1 C00   21:47 JUN 20,'83                                                                          PAGE    1
A      1                     3.000  +3,3                                                                *H01
       2                     3.010  VERSION  EQU      C'H02'                                            *H02
       3                   372.000  +372,372                                                            *H01
       4                   372.010   REV ' X1 = CONTROLLER MODEL (7260, 7275, 3281)'                    *H01
       5                   376.000  +376,376                                                            *H01
       6                   376.010   REV '                   6 - 3282 (STC 8775)'                       *H01
       7                   541.000  +541                                                                *H01
       8                   541.010           DATA     7275                                              *H01
       9                   571.000  +571,573                                                            *H01
      10                   571.010           SPACE                                                      *H01
      11                   571.020           MTW,0    :MACHINE          SKIP IF NOT SIGMA-7-LIKE        *H01
      12                   571.030           BNEZ     %+2                                               *H01
      13                  1933.000  +1933                                                               *H02
      14                  1933.010           BAL,15   #IOEX             TEST AND SAVE AIO STATUS        *H02
      15                  1933.020           B        %+5                SKIP IF NO ERRORS              *H02
      16                  1933.030           SPACE                                                      *H02
      17                  1933.040           CI,15    X'8000'           TEST FOR NO RECOGNITION         *H02
      18                  1933.050           BAZ      %+2                SKIP IF REAL ERROR             *H02
      19                  1933.060           SPACE                                                      *H02
      20                  1933.070           LPSD,3   T1DWTIOW          IGNORE NON-RECOGNITION          *H02
      21                  1933.080           SPACE                                                      *H02
      22                  1933.090           STW,1    T1DWTTIO          SET ERROR FLAG                  *H02
      23                  1933.100           SPACE                                                      *H02
      24                  1937.000  +1937,1939                                                          *H02
      25                  1937.010           SPACE                                                      *H02
      26                  1942.000  +1942,1943                                                          *H02
      27                  1942.010           SPACE                                                      *H02
      28                  1946.000  +1946                                                               *H02
      29                  1946.010           SPACE                                                      *H02
      30                  1947.000  +1947                                                               *H02
      31                  1947.010           SPACE                                                      *H02
      32                  2375.000  +2375,2387                                                          *H02
      33                  2375.010           SPACE                                                      *H02
      34                  2375.020           LW,15    TMODB             SKIP TDV IF TEST MODE           *H02
      35                  2375.030           AND,15   KY0400                                            *H02
      36                  2375.040           BNEZ     %+5                                               *H02
      37                  2375.050           SPACE                                                      *H02
      38                  2375.060           LI,4     T1DSN2            LOAD POINTER TO TDV DATA        *H02
      39                  2375.070           BAL,15   #IOEX              ISSUE TDV AND CHECK            *H02
      40                  2375.080           B        %+2                 NORMAL EXIT                   *H02
      41                  2375.090           B        T1XSN9               ERROR EXIT                   *H02
      42                  2375.100           SPACE                                                      *H02
      43                  2375.110           MTW,1    T1DSN6            UPDATE STEP COUNTER             *H02
      44                  2375.120           SPACE                                                      *H02
      45                  2375.130           LI,4     T1DSN1            LOAD POINTER TO TIO DATA        *H02
      46                  2375.140           BAL,15   #IOEX              ISSUE TIO AND CHECK            *H02
      47                  2375.150           B        %+2                 NORMAL EXIT                   *H02
      48                  2375.160           B        T1XSN9               ERROR EXIT                   *H02
      49                  2375.170           SPACE                                                      *H02
      50                  2375.180           MTW,1    T1DSN6            UPDATE STEP COUNTER             *H02
      51                  2375.190           SPACE                                                      *H02
      52                  2410.000  +2410,2411                                                          *H02
      53                  2410.010           SPACE                                                      *H02
      54                  2473.000  +2473                                                               *H02
      55                  2473.010           SPACE                                                      *H02
      56                  2491.000  +2491,2492                                                          *H02
      57                  2491.010           SPACE                                                      *H02
      58                  2491.020  T1DSN5   DATA     T1DSN,T1DSN2,T1DSN1 DATA BASES: SIO, TDV, TIO     *H02
      59                  2491.030           SPACE                                                      *H02
      60                  4186.000  +4186,4186                                                          *H01
      61                  4186.010  MX016    MSGX     NL,3AST,START,OF,IO,OPERATION,3AST                *H01
      62                  4241.000  +4241                                                               *H01
      63                  4241.010  MX075    MSGX     3AST,NL                                           *H01
      64                  4241.020  MX076    MSGX     SENSE,DATA,ERROR,NL                               *H01
      65                  4389.000  +4389,4393                                                          *H01
      66                  4389.010  MX303    MSGX     INTERRUPT,NOT,EXPECTED,NL                         *H01
      67                  4389.020  MX304    MSGX     SIO,NOT,ACCEPTED,NL                               *H01
      68                  4389.030  MX305    MSGX     TIME,BS,OUT,NL                                    *H01
      69                  4389.040  MX306    MSGX     STATUS,ERROR,NL                                   *H01
      70                  4389.050  MX307    MSGX     DATA,ERROR,NL                                     *H01
      71                  5695.000  +5695,5695                                                          *H01
      72                  5695.010           SPACE                                                      *H01
      73                  5695.020           AND,15   =X'FFBFFFFF'      CLEAR REPORT BIT 9              *H01
      74                  5695.030           B        *CKSAV             (MEANING CHANGED)              *H01
      75                  5695.040           SPACE                                                      *H01
      76                  5769.000  +5769,5769                                                          *H01
      77                  5769.010           SPACE                                                      *H01
      78                  5769.020           AND,15   =X'FFBFFFFF'      CLEAR REPORT BIT 9              *H01
      79                  5769.030           B        *CKSAV             (MEANING CHANGED)              *H01
      80                  5769.040           SPACE                                                      *H01
      81                  5793.000  +5793,5793                                                          *H01
      82                  5793.010           SPACE                                                      *H01
      83                  5793.020           AND,15   =X'FFBFFFFF'      CLEAR REPORT BIT 9              *H01
      84                  5793.030           B        *CKSAV,2           (MEANING CHANGED)              *H01
      85                  5793.040           SPACE                                                      *H01
      86                  5831.000  +5831,5832                                                          *H01
      87                  5831.010           SPACE                                                      *H01
      88                  5831.020           AND,15   =X'FFBFFFFF'      CLEAR REPORT BIT 9              *H01
      89                  5831.030           B        *CKSAV,1           (MEANING CHANGED)              *H01
      90                  5831.040           SPACE                                                      *H01
      91                  6361.000  +6361,6361                                                          *H01
      92                  6361.010           DATA     X'0000EF00'        (IGNORE DRIVE ID BYTE)         *H01
      93                  6379.000  +6379,6379                                                          *H01
      94                  6379.010           DATA     MX076             9  SENSE DATA ERROR             *H01
      95                  6398.000  +6398,6398                                                          *H01
      96                  6398.010           DATA     MX075             28 ***,NL                       *H01
      97                  6564.000  +6564,6564                                                          *H01
      98                  6564.010           DATA     X'F8002801'        MESSAGE MAP                    *H01
      99                  6585.000  +6585                                                               *H01
     100                  6585.010           SPACE                                                      *H01
     101                  6585.020           EOR,15   =X'00400000'      CLEAR BIT 9                     *H01
     102                  6585.030           CI,15    X'20'              CHECK FOR BIT 26               *H01
     103                  6585.040           BAZ      %+2                 (SENSE DATA ERROR)            *H01
     104                  6585.050           EOR,15   =X'00C00000'      CLEAR BIT 8, SET BIT 9          *H01
     105                  6585.060           SPACE                                                      *H01
     106                  7845.000  +7845,7845                                                          *H01
     107                  7845.010  CYLNR    DATA     0,1,557,0,203,815,1123,555                        *H01
     108                  8153.000  +8153,8153                                                          *H01
     109                  8153.010  T1V11    LI,15    X'0000'           IGNORE SENSE BYTES 4 AND 5      *H01
     110                  8163.000  +8163,8163                                                          *H01
     111                  8163.010           LI,15    X'FFFF'           MODELS 0, 1, 3, AND 4           *H01
     112                  8260.000  +8260,8266                                                          *H01
     113                  8267.000  +8267,8267                                                          *H02
     114                  8267.010           LW,12    4                 DISPLAY SUBTEST                 *H02
     115                  8267.020           BAL,15   *:DECC             TO BE EXECUTED                 *H02
     116                  8267.030           SPACE                                                      *H02
     117                  8267.040           STB,15   TSTMSG+2                                          *H02
     118                  8267.050           SLS,15   -8                                                *H02
     119                  8267.060           STH,15   TSTMSG+1,1                                        *H02
     120                  8267.070           SPACE                                                      *H02
     121                  8267.080           BAL,15   *:PRINT                                           *H02
     122                  8267.090           DATA     TSTMSG                                            *H02
     123                  8267.100           SPACE                                                      *H02
     124                  8267.110           LW,15    TST1T,4                                           *H02
     125                  8267.120           LW,4     DEVTYP            LOAD DEVICE TYPE: DP=0, DC=1    *H02
     126                  8279.000  +8279,8279                                                          *H02
     127                  8279.010           SPACE                                                      *H02
     128                  8279.020  TSTMSG   TEXTC    'TST1,000'                                        *H02
     129                  8279.030           SPACE                                                      *H02
     130                  8319.000  +8319,8319                                                          *H01
     131                  8319.010           GEN,8,24 X'7F',T05                                         *H01
     132                  9999.999  +END
1 C00   21:47 JUN 20,'83                                                                          PAGE    2
A   .SS BA,HA,WA,DA,LF,CF,AF,AFA,NAME,NUM,ABSVAL
    .SS R0,R1,R2,R3,R4,R5,R6,R7,R8,R9,R10,R11,R12,R13,R14,R15
    .SS X1,X2,X3,X4,X5,X6,X7,SCOR,TCOR,%,%%
    .END
1 C00   21:47 JUN 20,'83    TELEFILE ROTATING MEMORY TEST 960-0604-H02                            PAGE    3
A       1                                     PCC
        2         TEXT               CATALOG  EQU      C'0604'
        1*        TEXT               VERSION  EQU      C'H02'                                            *H02
        4                            TITLE    EQU      S:PT('TELEFILE ROTATING MEMORY TEST ',;
        5         TEXT                                 '960-',CATALOG,'-',VERSION)

        7                                     SYSTEM   SIG7FDP

        9                            *
       10                            * ID PROCEDURE
       11                            *
       12         00000000           ID       CNAME
       13                                     PROC
       14                            LF       EQU      %
       15                            :PNTRLOC SET      %
       16                                     ORG      %+1
       17                            :PNTR    SET      0
       18                            :LIST    SET      0
       19                            :LISTA   SET      AF(1)
       20                                     DO       NUM(AF)>1
       21                            :LIST    SET      :LIST|(AF(2)&X'F')**7
       22                                     FIN
       23                                     DO       NUM(AF)>2
       24                            :LIST    SET      :LIST|(AF(3)&X'7')
       25                                     FIN
       26                                     DO       NUM(AF)>3
       27                            :LIST    SET      :LIST|(AF(4)&X'F')**3
       28                                     FIN
       29                                     GEN,15,17 :LIST,:LISTA
       30                                     PEND
       31                            *
       32                            * INH PROCEDURE
       33                            *
       34         00000000           INH      CNAME
       35                                     PROC
       36                                     ORG      %-1
       37                            :LIST    SET      :LIST|(AF(1)&X'3')**11
       38                                     DO       NUM(AF)=2
       39                            :LIST    SET      :LIST|X'4000'
       40                                     FIN
       41                            LF       GEN,15,17 :LIST,:LISTA
       42                                     DO       NUM(AF)=2
       43                                     DATA     AF(2)
       44                                     FIN
       45                                     PEND
       46                            *
       47                            *
       48                            * PT PROCEDURE
       49                            *
       50         00000000           PT       CNAME
       51                                     PROC
       52                            :PNTR    SET      :PNTR|X'80000000'
       53                                     PEND
       54                            *
       55                            *
       56                            * TM PROCEDURE
       57                            *
       58         00000000           TM       CNAME
       59                                     PROC
       60                            :PNTR    SET      :PNTR|X'40000000'
       61                                     PEND
       62                            *
       63                            *
       64                            * SK PROCEDURE
       65                            *
       66         00000000           SK       CNAME
       67                                     PROC
       68                            :PNTR    SET      :PNTR|X'20000000'
       69                                     PEND
       70                            *
       71                            * IS PROCEDURE
       72                            *
       73         00000000           IS       CNAME
       74                                     PROC
       75                            :PNTR    SET      :PNTR|X'10000000'
       76                            LF       EQU      %
       77                                     GEN,1,31 AFA(1),AF(1)
       78                                     PEND
       79                            *
       80                            *
       81                            * EX PROCEDURE
       82                            *
       83         00000000           EX       CNAME
       84                                     PROC
       85                            :PNTR    SET      :PNTR|X'08000000'
       86                            LF       EQU      %
       87                                     GEN,1,31 AFA(1),AF(1)
       88                                     PEND
       89                            *
       90                            *
       91                            * ES1 PROCEDURE
       92                            *
       93         00000000           ES1      CNAME
       94                                     PROC
       95                            :PNTR    SET      :PNTR|X'04000000'
       96                            LF       EQU      %
       97                                     GEN,1,31 AFA(1),AF(1)
       98                            I        DO       NUM(AF)-1
       99                                     DATA     AF(I+1)
      100                                     FIN
      101                                     PEND
      102                            *
      103                            * IO PROCEDURE
      104                            *
      105         00000000           IO       CNAME
      106                                     PROC
      107                            :PNTR    SET      :PNTR|X'02000000'
      108                            LF       EQU      %
      109                                     GEN,1,31 AFA(1),AF(1)
      110                                     PEND
      111                            *
      112                            * WT PROCEDURE
      113                            *
      114         00000000           WT       CNAME
      115                                     PROC
      116                            RDY      SET      0
      117                            INT      SET      1
      118                            DLY      SET      2
      119                            :PNTR    SET      :PNTR|X'01000000'
      120                            LF       EQU      %
      121                                     GEN,1,31 AFA(1),AF(1)
      122                            I        DO       NUM(AF)-1
      123                                     DATA     AF(I+1)
      124                                     FIN
      125                                     PEND
      126                            *
      127                            * ES2 PROCEDURE
      128                            *
      129         00000000           ES2      CNAME
      130                                     PROC
      131                            :PNTR    SET      :PNTR|X'00800000'
      132                            LF       EQU      %
      133                                     GEN,1,31 AFA(1),AF(1)
      134                            I        DO       NUM(AF)-1
      135                                     DATA     AF(I+1)
      136                                     FIN
      137                                     PEND
      138                            *
      139                            * ST PROCEDURE
      140                            *
      141         00000000           ST       CNAME
      142                                     PROC
      143                            :PNTR    SET      :PNTR|X'00400000'
      144                            LF       EQU      %
      145                                     GEN,1,31 AFA(1),AF(1)
      146                            I        DO       NUM(AF)-1
      147                                     DATA     AF(I+1)
      148                                     FIN
      149                            *
      150                                     PEND
      151                            *
      152                            * IO1 PROCEDURE
      153                            *
      154         00000000           IO1      CNAME
      155                                     PROC
      156                            SIO      SET      0
      157                            TIO      SET      1
      158                            HIO      SET      2
      159                            AIO      SET      3
      160                            TDV      SET      4
      161                            :PNTR    SET      :PNTR|X'00200000'
      162                            LF       EQU      %
      163                                     GEN,1,31 AFA(1),AF(1)
      164                            I        DO       NUM(AF)-1
      165                                     DATA     AF(I+1)
      166                                     FIN
      167                                     PEND
      168                            *
      169                            * IO2 PROCEDURE
      170                            *
      171         00000000           IO2      CNAME
      172                                     PROC
      173                            SIO      SET      0
      174                            TIO      SET      1
      175                            HIO      SET      2
      176                            AIO      SET      3
      177                            TDV      SET      4
      178                            TDV15    SET      20
      179                            :PNTR    SET      :PNTR|X'00100000'
      180                            LF       EQU      %
      181                                     GEN,1,31 AFA(1),AF(1)
      182                            I        DO       NUM(AF)-1
      183                                     DATA     AF(I+1)
      184                                     FIN
      185                                     PEND
      186                            *
      187                            * IO3 PROCEDURE
      188                            *
      189         00000000           IO3      CNAME
      190                                     PROC
      191                            SIO      SET      0
      192                            TIO      SET      1
      193                            HIO      SET      2
      194                            AIO      SET      3
      195                            TDV      SET      4
      196                            TDV0     SET      5
      197                            TDV1     SET      6
      198                            TDV2     SET      7
      199                            TDV3     SET      8
      200                            TDV4     SET      9
      201                            TDV5     SET      10
      202                            TDV6     SET      11
      203                            TDV7     SET      12
      204                            TDV8     SET      13
      205                            TDV9     SET      14
      206                            TDV10    SET      15
      207                            TDV11    SET      16
      208                            TDV12    SET      17
      209                            TDV13    SET      18
      210                            TDV14    SET      19
      211                            TDV15    SET      20
      212                            :PNTR    SET      :PNTR|X'00080000'
      213                            LF       EQU      %
      214                                     GEN,1,31 AFA(1),AF(1)
      215                            I        DO       NUM(AF)-1
      216                                     DATA     AF(I+1)
      217                                     FIN
      218                                     PEND
      219                            * SN PROCEDURE
      220                            *
      221         00000000           SN       CNAME
      222                                     PROC
      223                            :PNTR    SET      :PNTR|X'00040000'
      224                                     PEND
      225                            *
      226                            * CM PROCEDURE
      227                            *
      228         00000000           CM       CNAME
      229                                     PROC
      230                            :PNTR    SET      :PNTR|X'00020000'
      231                                     PEND
      232                            *
      233                            * ES3 PROCEDURE
      234                            *
      235         00000000           ES3      CNAME
      236                                     PROC
      237                            :PNTR    SET      :PNTR|X'00010000'
      238                            LF       EQU      %
      239                                     GEN,1,31 AFA(1),AF(1)
      240                            I        DO       NUM(AF)-1
      241                                     DATA     AF(I+1)
      242                                     FIN
      243                                     PEND
      244                            *
      245                            * TEND   PROCEDURE
      246                            *
      247         00000000           TEND     CNAME
      248                                     PROC
      249                            :TPTLAST SET      %
      250                                     ORG       :PNTRLOC
      251                                     DATA     :PNTR
      252                                     ORG      :TPTLAST
      253                                     PEND
      254                            *
      255         00000000           MVW      CNAME
      256                                     PROC
      257                            LF       LW,15    AF(1)
      258                                     STW,15   AF(2)
      259                                     PEND
      260                            *
      261         00000000           LOOP     CNAME                      LOOP WITH INDEX INCR.
      262                                     PROC                        AND TEST IF LESS
      263                            LF       AI,CF(2) 1                 INCREMENT INDEX
      264                                     CW,CF(2) AF(1)             TEST IF LESS
      265                                     BL       AF(2)             YES: BRANCH
      266                                     PEND
      267                            *
      268         00000000           TEST     CNAME                      BRANCH TO FUNCTIONAL
      269                                     PROC
      270                            LF       BAL,15   T1D                   TEST DRIVER WITH
      271                                     DATA     AF(1)             THIS TEST SEQUENCE
      272                                     PEND
      273                            *
      274         00000000           IOCD     CNAME                      GIVE THE GEN STATEMENT
      275                                     PROC                         WHICH IS USED FOR THE
      276                            LF       GEN,8,24,8,24 AF(1),AF(2),AF(3),AF(4)
      277                                     PEND                           DEFINITION OF IOCD'S
      278                            *
      279                            * MSGX PROCEDURE
      280                            *
      281         00000000           MSGX     CNAME
      282                                     PROC
      283                                     DISP     %
      284                                     LIST     0
      285                            LF       GEN,8    NUM(AF)
      286                            I        DO       NUM(AF)
      287                                     DO       AF(I)-DAT<256
      288                                     GEN,8    AF(I)-DAT
      289                                     ELSE
      290                                     GEN,8    X'FF'             NO SECOND TABLE USED
      291                                     FIN
      292                                     FIN
      293                                     LIST     1
      294                                     PEND
      295                            *
      296                            * T PROCEDURE
      297                            *
      298         00000000           T        CNAME
      299                                     PROC
      300                                     DISP     %
      301                                     LIST     0
      302                            I        SET      S:NUMC(AF(1))
      303                            LF       GEN,8    I
      304                                     GEN,8*I  AF(1)
      305                                     LIST     1
      306                                     PEND
      307                            *
      308                            * GENV PROCEDURE
      309                            *
      310         00000000           GENV     CNAME
      311                                     PROC
      312                            LF       GEN,8,24 AF(2),AF(1)
      313                                     PEND
      314                            *
      315                            * SEND PROCEDURE
      316                            *
      317         00000000           SEND     CNAME
      318                                     PROC
      319                            LF       BAL,15   #MSGP
      320                                     DATA     AF(1)
      321                                     PEND

      323         00000000           TEXTCS   CNAME
      324                                     PROC
      325                                     DISP     %
      326                                     LIST     0
      327                            LF       TEXTC    AF
      328                                     LIST     1
      329                                     PEND
1 C00   21:47 JUN 20,'83    TELEFILE ROTATING MEMORY TEST 960-0604-H02                            PAGE    4
A     331         00000000           REVCOUNT SET      0
      332         00000000           REVSTART SET      0

      334         00000000           REV      CNAME
      335                                     PROC
      336                                     DO       REVCOUNT=0
      337                            REVSTART SET      %
      338                            LF       RES      1
      339                                     FIN
      340                            REVCOUNT SET      REVCOUNT+1
      341                                     DO       SCOR(LF,REVEND)
      342                                     TEXTC    AF
      343                                     CODE
      344                                     ORG      REVSTART
      345                                     GEN,32   REVCOUNT
      346                                     ELSE
      347                                     TEXTC    AF
      348                                     FIN
      349                                     PEND

      351         00000000           CODE     CNAME
      352                                     PROC
      353                            REVPRINT LW,3     REVISION
      354                                     LW,4     =REVISION+1
      355                                     STW,4    %+2
      356                                     BAL,15   *:PRINT
      357                                     DATA     0
      358                                     LB,5     *4
      359                                     AI,5     4
      360                                     SLS,5    -2
      361                                     AW,4     5
      362                                     BDR,3    REVPRINT+2
      363                                     LW,4     %+2
      364                                     STW,4    REVBRNCH
      365                                     B        REVBRNCH+1
      366                                     PEND

      368   01 03500                          ORG      X'3500'
            01 03500
      369   01 03501    01404040 A   REVISION REV      ' '
      370   01 03502    19E2E8E2 A    REV 'SYST,X1,0,X3,X4,X5,....XN'
            01 03503    E36BE7F1 A
            01 03504    6BF06BE7 A
            01 03505    F36BE7F4 A
            01 03506    6BE7F56B A
            01 03507    4B4B4B4B A
            01 03508    E7D54040 A
      371   01 03509    01404040 A    REV ' '
        1*  01 0350A    2940E7F1 A    REV ' X1 = CONTROLLER MODEL (7260, 7275, 3281)'                    *H01
            01 0350B    407E40C3 A
            01 0350C    D6D5E3D9 A
            01 0350D    D6D3D3C5 A
            01 0350E    D940D4D6 A
            01 0350F    C4C5D340 A
            01 03510    4DF7F2F6 A
            01 03511    F06B40F7 A
            01 03512    F2F7F56B A
            01 03513    40F3F2F8 A
            01 03514    F15D4040 A
      373   01 03515    01404040 A    REV ' '
      374   01 03516    3840E7F3 A    REV ' X3 = DEVICE TYPE: 2 - 3281 (WITH FIXED HEADS AS CYL0-1)'
            01 03517    407E40C4 A
            01 03518    C5E5C9C3 A
            01 03519    C540E3E8 A
            01 0351A    D7C57A40 A
            01 0351B    F2406040 A
            01 0351C    F3F2F8F1 A
            01 0351D    404DE6C9 A
            01 0351E    E3C840C6 A
            01 0351F    C9E7C5C4 A
            01 03520    40C8C5C1 A
            01 03521    C4E240C1 A
            01 03522    E240C3E8 A
            01 03523    D3F060F1 A
            01 03524    5D404040 A
      375   01 03525    26404040 A    REV '                   5 - 3283 (T302/306)'
            01 03526    40404040 A
            01 03527    40404040 A
            01 03528    40404040 A
            01 03529    40404040 A
            01 0352A    F5406040 A
            01 0352B    F3F2F8F3 A
            01 0352C    404DE3F3 A
            01 0352D    F0F261F3 A
            01 0352E    F0F65D40 A
        1*  01 0352F    26404040 A    REV '                   6 - 3282 (STC 8775)'                       *H01
            01 03530    40404040 A
            01 03531    40404040 A
            01 03532    40404040 A
            01 03533    40404040 A
            01 03534    F6406040 A
            01 03535    F3F2F8F2 A
            01 03536    404DE2E3 A
            01 03537    C340F8F7 A
            01 03538    F7F55D40 A
      377   01 03539    26404040 A    REV '                   7 - 3281 (STC 8350)'
            01 0353A    40404040 A
            01 0353B    40404040 A
            01 0353C    40404040 A
            01 0353D    40404040 A
            01 0353E    F7406040 A
            01 0353F    F3F2F8F1 A
            01 03540    404DE2E3 A
            01 03541    C340F8F3 A
            01 03542    F5F05D40 A
      378   01 03543    01404040 A    REV ' '
      379   01 03544    2440E7F4 A    REV ' X4 THROUGH XN = DEVICE DESCRIPTORS:'
            01 03545    40E3C8D9 A
            01 03546    D6E4C7C8 A
            01 03547    40E7D540 A
            01 03548    7E40C4C5 A
            01 03549    E5C9C3C5 A
            01 0354A    40C4C5E2 A
            01 0354B    C3D9C9D7 A
            01 0354C    E3D6D9E2 A
            01 0354D    7A404040 A
      380   01 0354E    01404040 A    REV ' '
      381   01 0354F    31404040 A    REV '   BIT 0 = 0 (MIOP) OR 1 (SIOP) FOR DUAL ACCESS B'
            01 03550    C2C9E340 A
            01 03551    F0407E40 A
            01 03552    F0404DD4 A
            01 03553    C9D6D75D A
            01 03554    40D6D940 A
            01 03555    F1404DE2 A
            01 03556    C9D6D75D A
            01 03557    40C6D6D9 A
            01 03558    40C4E4C1 A
            01 03559    D340C1C3 A
            01 0355A    C3C5E2E2 A
            01 0355B    40C24040 A
      382   01 0355C    2F404040 A    REV '   BITS 1-15 = DEVICE ADDRESS FOR DUAL ACCESS B'
            01 0355D    C2C9E3E2 A
            01 0355E    40F160F1 A
            01 0355F    F5407E40 A
            01 03560    C4C5E5C9 A
            01 03561    C3C540C1 A
            01 03562    C4C4D9C5 A
            01 03563    E2E240C6 A
            01 03564    D6D940C4 A
            01 03565    E4C1D340 A
            01 03566    C1C3C3C5 A
            01 03567    E2E240C2 A
      383   01 03568    01404040 A    REV ' '
      384   01 03569    32404040 A    REV '   BIT 16 = 0 (MIOP) OR 1 (SIOP) FOR DUAL ACCESS A'
            01 0356A    C2C9E340 A
            01 0356B    F1F6407E A
            01 0356C    40F0404D A
            01 0356D    D4C9D6D7 A
            01 0356E    5D40D6D9 A
            01 0356F    40F1404D A
            01 03570    E2C9D6D7 A
            01 03571    5D40C6D6 A
            01 03572    D940C4E4 A
            01 03573    C1D340C1 A
            01 03574    C3C3C5E2 A
            01 03575    E240C140 A
      385   01 03576    30404040 A    REV '   BITS 17-31 = DEVICE ADDRESS FOR DUAL ACCESS A'
            01 03577    C2C9E3E2 A
            01 03578    40F1F760 A
            01 03579    F3F1407E A
            01 0357A    40C4C5E5 A
            01 0357B    C9C3C540 A
            01 0357C    C1C4C4D9 A
            01 0357D    C5E2E240 A
            01 0357E    C6D6D940 A
            01 0357F    C4E4C1D3 A
            01 03580    40C1C3C3 A
            01 03581    C5E2E240 A
            01 03582    C1404040 A
      386   01 03583    01404040 A    REV ' '
      387   01 03584    2EE2E8E2 A    REV 'SYST,3281,0,7,81A1,81A2,81A3 (SIOP, 3 DEVICES)'
            01 03585    E36BF3F2 A
            01 03586    F8F16BF0 A
            01 03587    6BF76BF8 A
            01 03588    F1C1F16B A
            01 03589    F8F1C1F2 A
            01 0358A    6BF8F1C1 A
            01 0358B    F3404DE2 A
            01 0358C    C9D6D76B A
            01 0358D    40F340C4 A
            01 0358E    C5E5C9C3 A
            01 0358F    C5E25D40 A
      388   01 03590    01404040 A    REV ' '
      389   01 03591    2AE2E8E2 A    REV 'SYST,3281,0,7,01A303B3 (MIOP, DUAL ACCESS)'
            01 03592    E36BF3F2 A
            01 03593    F8F16BF0 A
            01 03594    6BF76BF0 A
            01 03595    F1C1F3F0 A
            01 03596    F3C2F340 A
            01 03597    4DD4C9D6 A
            01 03598    D76B40C4 A
            01 03599    E4C1D340 A
            01 0359A    C1C3C3C5 A
            01 0359B    E2E25D40 A
      390   01 0359C    01404040 A   REVEND REV ' '
            01 0359D    32303500
            01 0359E    32402DCD
            01 0359F    354035A1
            01 035A0    EAF0021C
            01 035A1    00000000 A
            01 035A2    F2500004 A
            01 035A3    20500004 A
            01 035A4    2550007E A
            01 035A5    30400005 A
            01 035A6    6430359F
            01 035A7    324035A9
            01 035A8    3540041E
            01 035A9    6800041F
            01 03500    00000016 A
1 C00   21:47 JUN 20,'83    TELEFILE ROTATING MEMORY TEST 960-0604-H02                            PAGE    5
A     392                            *  MONITOR LINK TABLE
      393                            *  ------------------
      394                            *                     THIS TABLE IS LOADED BY THE MONITOR FOR THE
      395                            *  PURPOSE OF ESTABLISHING COMMUNICATIONS BETWEEN THE TEST PROGRAM AND
      396                            *  THE MONITOR (DPM).
      397                            *
      398   01 00200                          ORG      X'200'
            01 00200
      399                            *
      400         01 00200           :MLT     EQU      %                 ABSOLUTE RECOVERY LOCATION
      401         01 00201           :P1      EQU      :MLT+1            DIRECTIVE PARAMETER 1
      402         01 00202           :P2      EQU      :MLT+2            DIRECTIVE PARAMETER 2
      403         01 00203           :P3      EQU      :MLT+3            DIRECTIVE PARAMETER 3
      404         01 00204           :P4      EQU      :MLT+4            DIRECTIVE PARAMETER 4
      405         01 0020F           :DUMP    EQU      :MLT+15           ADDR OF MEMORY DUMP ROUTINE
      406         01 00211           :PSW     EQU      :MLT+17           PARAMETER STATUS WORD
      407         01 00213           :BCDC    EQU      :MLT+19           ADDR OF BCD FORMAT CONVERSION
      408         01 00214           :MONITOR EQU      :MLT+20           DIRECTIVE RETURN ADDRESS
      409         01 00215           :LGFLAG  EQU      :MLT+21           LOAD AND GO FLAG; LOAD & GO IF = -
      410         01 00216           :BINC    EQU      :MLT+22           ADDR OF BINARY FORMAT CONVERSION R
      411         01 00217           :DECC    EQU      :MLT+23           ADDR OF DECIMAL FORMAT CONVERSION
      412         01 00218           :HEXC    EQU      :MLT+24           ADDR OF HEXADEC FORMAT CONVERSION
      413         01 00219           :1BYTEIN EQU      :MLT+25           ADDR OF 1 BYTE INPUT ROUTINE
      414         01 0021A           :CURBCNT EQU      :MLT+26           CURRENT BYTE COUNT
      415         01 0021B           :ERROR   EQU      :MLT+27           ADDR OF ERROR REPORT ROUTINE
      416         01 0021C           :PRINT   EQU      :MLT+28           ADDR OF MESSAGE PRINT ROUTINE
      417         01 0021D           :SENSE   EQU      :MLT+29           ADDR OF SENSE SWITCH 1,3 TESTS
      418         01 0021E           :MONWAIT EQU      :MLT+30           MONITOR WAIT
      419         01 0021F           :MRECOVR EQU      :MLT+31           BRANCH TO ABSOLUTE RECOVERY LOCATION
      420         01 00220           :MSGOUT  EQU      :MLT+32           MSG OUTPUT DEVICE, TYPE AND ADDR
      421         01 00221           :MSGIN   EQU      :MLT+33           MSG INPUT DEVICE, TYPE AND ADDR
      422         01 00222           :LOADIN  EQU      :MLT+34           ADDR OF INITIAL LOADING DEVICE
      423         01 00223           :TYPE    EQU      :MLT+35           TELETYPE PRINT ROUTINE
      424         01 00224           :KSRADR  EQU      :MLT+36           KEYBOARD/PRINTER DEVICE ADDR X'001
      425         01 00225           :MACHINE EQU      :MLT+37           MACHINE TYPE CODE
      426         01 00226           :RELBIAS EQU      :MLT+38           RELOCATION BIAS
      427         01 00227           :RLOADER EQU      :MLT+39           ADDR OF RESIDENT LOADER
      428         01 00228           :DTLFLAG EQU      :MLT+40           DIAGNOSTIC TAPE LIBRARY FLAG
      429         01 00229           :PREPORT EQU      :MLT+41           ADDR OF PARAMETER ERROR REPORT
      430         01 0022A           :SENSE2  EQU      :MLT+42           SECOND SENSE ROUTINE
      431         01 0022B           :WAIT    EQU      :MLT+43           WAIT ROUTINE
      432         01 0022C           :DICINDX EQU      :MLT+44           ADDR OF DICTIONARY INDEX
      433         01 0022D           :DICILEN EQU      :MLT+45           LENGTH OF DICTIONARY INDEX
      434         01 0022E           :MEMSIZE EQU      :MLT+46           SYSTEM MEMORY SIZE
      435         01 0022F           :MEMLAST EQU      :MLT+47           ADDR OF LAST USABLE MEMORY LOCATIO
      436         01 00230           :MONIOBF EQU      :MLT+48           ADDR OF MONITOR IO BUFFER
      437         01 00231           :MONPBF  EQU      :MLT+49           ADDR OF ABSOLUTE RECOVERY ROUTINE
      438         01 00237           :REMOTE  EQU      :MLT+55           REMOTE CONNECT ROUTINE
      439         01 00240           :MLTEND  EQU      :MLT+64           LAST LOCATION OF MONITOR LINK TABL
      440                            *
      441                            *  PROGRAM INTERFACE TABLE
      442                            *  -----------------------
      443                            *                          THIS TABLE IS LOADED BY THE TEST PROGRAM FOR
      444                            *  THE PURPOSE OF ESTABLISHING COMMUNICATIONS BETWEEN THE MONITOR (DPM)
      445                            *  AND THE USER PROGRAM.
      446                            *
      447   01 00300                          ORG      X'300'
            01 00300
      448         01 00300           :PIT     EQU      %
      449   01 00300    0000034D     :PIT0    DATA     :CATALOG          ADDR OF LOC. CONTAINING CATALOG NO.
      450   01 00301    0000034E     :PIT1    DATA     :PROGID           ADDR OF PROGRAM ID MESSAGE.
      451   01 00302    00000320     :PIT2    DATA     :DIC              ADDR OF DIRECTIVE DICTIONARY
      452   01 00303    00000012 A   :PIT3    DATA     :DICEND-:DIC      LENGTH OF DIRECTIVE DICTIONARY
      453   01 00304    00000419     :PIT4    DATA     :RECOVER          ADDR OF ABSOLUTE RECOVERY ROUTINE
      454   01 00305    00000332     :PIT5    DATA     :CDT              ADDR OF CONTEXT DISCRIPTION TABLE
      455   01 00306    00000002 A   :PIT6    DATA     :CDTEND-:CDT      LENGTH OF CONTEXT DESCRIPTION TABLE
      456   01 00307    00000000 A   :PIT7    DATA     0                 LOAD AND GO TRANSFER ADDR.
      457   01 00308    00000359     :PIT8    DATA     :INITIAL          ADDR OF INITIALIZER ROUTINE
      458   01 00309    00000000 A   :PIT9    DATA     0                 LAST MODEL NUMBER STORED IN CDB
      459   01 0030A    00000000 A   :PIT10   DATA     0                 PARAMETER NUMBER, PARAMETER IN ERROR
      460   01 0030B    00000000 A   :PIT11   DATA     0                 ADDR OF MSG TO BE PRINTED AFTER INIT
      461   01 0030C    00000000 A   :PIT12   DATA     0                 RUNFLAG, RUN PROG IF FLAG = -1
      462   01 0030D    00000000 A   :PIT13   DATA     0
      463   01 0030E    00000000 A   :PIT14   DATA     0
      464   01 0030F    00000000 A   :PIT15   DATA     0                 INTERRUPT/MACHINE FAULT HANDLER
      465   01 00310    00000000 A   :PIT16   DATA     0
      466   01 00311    00000000 A   :PIT17   DATA     0
      467   01 00312    00000000 A   :PIT18   DATA     0
      468   01 00313    00000000 A   :PIT19   DATA     0
      469   01 00314    00000000 A   :PIT20   DATA     0
      470   01 00315    00000000 A   :PIT21   DATA     0
      471   01 00316    00000000 A   :PIT22   DATA     0
      472   01 00317    00000000 A   :PIT23   DATA     0
      473   01 00318    00000000 A   :PIT24   DATA     0
      474   01 00319    00000000 A   :PIT25   DATA     0
      475   01 0031A    00000000 A   :PIT26   DATA     0
      476   01 0031B    00003236     :PIT27   DATA     USERPROG+1028     END OF USER IO AREA
      477   01 0031C    00000000 A            DATA     0,0,0,0
            01 0031D    00000000 A
            01 0031E    00000000 A
            01 0031F    00000000 A
1 C00   21:47 JUN 20,'83    TELEFILE ROTATING MEMORY TEST 960-0604-H02                            PAGE    6
A     479                            *
      480                            *  DIRECTIVE DICTIONARY
      481                            *  --------------------
      482                            *                        THIS TABLE SUPPLIES THE MONITOR WITH
      483                            *  INFORMATION ABOUT EACH DIRECTIVE AVAILABLE IN THE TEST PROGRAM.
      484                            *  EACH DICTIONARY ENTRY CONSISTS OF 2 WORDS (64 BITS) WHICH ARE
      485                            *  DEFINED AS FOLLOWS:
      486                            *
      487                            *  BITS 00 THRU 31  4 BYTE MNEMONIC IDENTIFIER IN EBCDIC
      488                            *  BITS 32 THRU 34  TYPE OF CONVERSION FOR PARAMETER 1.
      489                            *  BITS 35 THRU 37  TYPE OF CONVERSION FOR PARAMETER 2.
      490                            *  BITS 38 THRU 40  TYPE OF CONVERSION FOR PARAMETER 3.
      491                            *  BITS 41 THRU 43  TYPE OF CONVERSION FOR PARAMETER 4.
      492                            *  BITS 44 THRU 47  NOT ASSIGNED; MUST BE EQUAL TO ZERO
      493                            *  BITS 48 THRU 63  ROUTINE ADDRESS
      494                            *
      495                            *  TYPE OF PARAMETER CONVERSION
      496                            *
      497                            *  000   HEXADECIMAL CONVERSION
      498                            *  001   DECIMAL CONVERSION TO BINARY
      499                            *  002   ALPHANUMERIC
      500                            *  007   UNASSIGNED
      501                            *
      502                                     BOUND    8
      503                            *
      504         01 00320           :DIC     EQU      %
      505   01 00320    E3E2E3F0 N     GEN,32,3,3,3,3,20   'TST0',1,1,7,7,TST0   COMPREHENSIVE TEST
                        27F00503
      506   01 00322    E3E2E3F1 N     GEN,32,3,3,3,3,20   'TST1',1,1,1,0,TST1   FUNCTIONAL TEST
                        24801C12
      507   01 00324    E3E2E3F2 N     GEN,32,3,3,3,3,20   'TST2',1,1,7,7,TST2   RANDOM EXERCISER
                        27F01082
      508   01 00326    E3E2E3F3 N     GEN,32,3,3,3,3,20   'TST3',1,0,1,1,TST3   UTILITY TESTS
                        209011B1
      509   01 00328    C4C1E3C1 N     GEN,32,3,3,3,3,20   'DATA',1,0,0,0,:DATA  DATA DIRECTIVE
                        2000043E
      510   01 0032A    D3C9D4E3 N     GEN,32,3,3,3,3,20   'LIMT',1,1,1,0,:LIMT  LIMIT DIRECTIVE
                        2480045D
      511   01 0032C    00D4C5D4 N     GEN,32,3,3,3,3,20   'MEM',0,0,7,7,:MEM    MEM DIRECTIVE
                        03F00499
      512   01 0032E    E2C5C5D2 N     GEN,32,3,3,3,3,20   'SEEK',1,1,1,1,:SEEK  SEEK DIRECTIVE
                        249004D1
      513   01 00330    D4E2C7E3 N     GEN,32,3,3,3,3,20   'MSGT',0,0,7,0,MSGTS  MSGTS DIRECTIVE
                        03800C4B
      514         01 00332           :DICEND  EQU      %
      515                            *
      516                            *
      517                            *  CONTEXT DESCRIPTION TABLE
      518                            *  -------------------------
      519                            *                             THE CONTEXT DESCRIPTION TABLE ALLOWS
      520                            *  THE MONITOR TO PASS-ON ENVIRONMENTAL INFORMATION FROM THE 'SYST'
      521                            *  DIRECTIVE TO THE TEST PROGRAM. NORMALLY ONLY ONE ENTRY WILL BE
      522                            *  REQUIRED. EACH CONTEXT DESCRIPTION TABLE ENTRY CONSISTS OF 2 WORDS
      523                            *  (64 BITS) WHICH ARE DEFINED AS FOLLOWS:
      524                            *
      525                            *  BITS 00 THRU 08  LENGTH OF CONTEXT DATA BLOCK
      526                            *  BITS 09 THRU 27  NOT ASSIGNED; MUST BE EQUAL TO ZERO
      527                            *  BITS 28 THRU 31  NUMBER OF DEVICE MODEL NUMBERS
      528                            *  BITS 32 THRU 61  ADDR OF CONTEXT DATA BLOCK
      529                            *
      530         01 00332           :CDT     EQU      :DICEND
      531   01 00332    0B000003 N            GEN,9,19,4,32 :CDBEND-:CDB,0,:CDBMEND-:CDBM,:CDB
                        00000337
      532         01 00334           :CDTEND  EQU      %
      533                            *
      534                            *
      535                            *  CONTEXT DATA BLOCK
      536                            *  ------------------
      537                            *                      THE CONTEXT DATA BLOCK CONTAINS ENVIRONMENTAL
      538                            *  INFORMATION FOR THE TEST PROGRAM.
      539                            *
      540         01 00334           :CDBM    EQU      %
      541   01 00334    00001C5C A            DATA     7260                             MODEL NUMBER
        1*  01 00335    00001C6B A            DATA     7275                                              *H01
      542   01 00336    00000CD1 A            DATA     3281              TCP-3281
      543         01 00337           :CDBMEND EQU      %
      544                            *
      545         01 00337           :CDB     EQU      %
      546   01 00337    00000000 A            DATA     0     0           PARAMETER CNT (0-15), MODEL (16-31)
      547                            *
      548   01 00338    00000000 A            DATA     0                 REVISION NUMBER
      549         00000014                    DO       20
      550   01 00339    00000000 A            DATA     0                 MODEL OR DEVICE TYPE
      551                                     FIN
            01 0033A    00000000 A
            01 0033B    00000000 A
            01 0033C    00000000 A
            01 0033D    00000000 A
            01 0033E    00000000 A
            01 0033F    00000000 A
            01 00340    00000000 A
            01 00341    00000000 A
            01 00342    00000000 A
            01 00343    00000000 A
            01 00344    00000000 A
            01 00345    00000000 A
            01 00346    00000000 A
            01 00347    00000000 A
            01 00348    00000000 A
            01 00349    00000000 A
            01 0034A    00000000 A
            01 0034B    00000000 A
            01 0034C    00000000 A
      552                            *
      553         01 0034D           :CDBEND  EQU      %
      554         01 0034D           :CATALOG EQU      %                 PROGRAM CATALOG NUMBER
      555   01 0034D    00000000 A            DATA     0                 PROGRAM NUMBER
      556                            *
      557         01 0034E           :PROGID  EQU      %                 PROGRAM IDENTIFICATION MESSAGE
      558         01 0034E                    TEXTCS   TITLE
1 C00   21:47 JUN 20,'83    TELEFILE ROTATING MEMORY TEST 960-0604-H02                            PAGE    7
A     560                            *
      561                            *        *** INITIAL - INITIALIZATION ROUTINE ***
      562                            *
      563                            * THIS ROUTINE IS ACCESSED BY THE MONITOR AFTER LOADING THE TEST
      564                            * PROGRAM AND WHENEVER A SYST DIRECTIVE IS EXECUTED BY THE USER.
      565                            *
      566   01 00359    35F00408     :INITIAL STW,15   :INITR            SAVE RETURN ADDRESS
      567   01 0035A    6AF00237              BAL,15   :REMOTE           CONNECT REMOTE DPM
      568   01 0035B    6AF00419              BAL,15   :RECOVER          ENTER RECOVERY ROUTINE
      569   01 0035C    22000000 A            LI,0     0                 0
      570   01 0035D    35001B7C              STW,0    SIOPFLAG          RESET SIOPFLAG

        2*  01 0035E    33000225              MTW,0    :MACHINE          SKIP IF NOT SIGMA-7-LIKE        *H01
        3*  01 0035F    69300361              BNEZ     %+2                                               *H01
      574   01 00360    35000418              STW,0    CC3               NO-RESET CC3 INDICATOR
      575   01 00361    52400337              LH,4     :CDB              FETCH # PARAMETERS ENTERED
      576   01 00362    68300371              BEZ      :INITX+1          NO SYST DIRECTIVE ENTERED
      577   01 00363    22900100 A            LI,9     256               BUFFER SIZE IN WORDS
      578   01 00364    6AF01A24              BAL,15   BUFINIT           INITIALIZE MEMORY ALLOCATION ROUT.
      579   01 00365    6AF01A34              BAL,15   BUFRAND           DETERMINE THE # OF BUFFERS AVAILABLE
      580   01 00366    68000367              B        %+1
      581   01 00367    32F01A96              LW,15    BUFNR             # BUFFERS
      582   01 00368    21F0000A A            CI,15    10                MORE THAN 10?
      583   01 00369    6820036B              BLE      %+2               NO
      584   01 0036A    22F0000A A            LI,15    10                SET #BUFFERS TO 10
      585   01 0036B    35F00417              STW,15   #QS               SAVE AS #QUEUE ENTRIES PER CHANNEL
      586   01 0036C    52400337              LH,4     :CDB              # SYST DIR. PARAMETERS
      587   01 0036D    21400004 A            CI,4     4                 AT LEAST 4 ?
      588   01 0036E    68100373              BGE      :INIT1            YES
      589   01 0036F    20400001 A            AI,4     1                 PARAMETER IN ERROR
      590   01 00370    3540030A     :INITX   STW,4    :PIT10            SAVE
      591   01 00371    3500030C              STW,0    :PIT12            RESET RUN FLAG
      592   01 00372    E8000408              B        *:INITR           EXIT TO MONITOR
      593   01 00373    32500338     :INIT1   LW,5     :CDB+1            REVISION #
      594   01 00374    68300377              BEZ      %+3               =0
      595   01 00375    22400002 A            LI,4     2                 REVISION # NOT 0
      596   01 00376    68000370              B        :INITX            GO TO REPORT
      597   01 00377    22700000 A            LI,7     0                 # DEVICES ACCUMULATION
      598   01 00378    22400003 A            LI,4     3                 CURRENT SYST PARAMETER
      599   01 00379    32580336              LW,5     :CDB-1,4          PAR.
      600   01 0037A    22600006 A   :INIT2   LI,6     MODELEND-MODEL    # MODELS
      601   01 0037B    315C0408              CW,5     MODEL-1,6         THIS MODEL?
      602   01 0037C    68300380              BE       :INIT3            YES
      603   01 0037D    6460037B              BDR,6    %-2               LOOP UNTIL ALL MODELS COMPARED
      604   01 0037E    68000370              B        :INITX            GO TO REPORT
      605   01 0037F    32600005 A            LW,6     5                 SPECIFY CURRENT MODEL INDEX
      606   01 00380    20400001 A   :INIT3   AI,4     1                 INCR PAR.#
      607   01 00381    51400337              CH,4     :CDB              LAST PAR.?
      608   01 00382    69200370              BG       :INITX            YES-ERROR
      609   01 00383    32580336              LW,5     :CDB-1,4          FETCH PAR.
      610   01 00384    31502DCE     :INIT4   CW,5     =X'60006000'      CORRECT AS DEVICE ADDRESS(ES)?
      611   01 00385    69400370              BCS,4    :INITX            NO
      612   01 00386    21500080 A            CI,5     X'80'
      613   01 00387    68400370              BCR,4    :INITX            NO
      614   01 00388    53000005 A            MTH,0    5                 DUAL ACCESS B DEV ADDRESS SPECIFIED?
      615   01 00389    6830038C              BEZ      %+3               NO
      616   01 0038A    31502DCF              CW,5     =X'00800000'      CORRECT AS DEVICE ADDRESS?
      617   01 0038B    68400370              BCR,4    :INITX            NO
      618   01 0038C    20700001 A            AI,7     1                 INCR DEVICE COUNT
      619   01 0038D    355E3262              STW,5    TEMP1,7           SAVE ADDR IN TEMP
      620   01 0038E    350E3329              STW,0    TEMP3-1,7         CLEAR ASSOCIATED TEMPORARY CIT AREA
      621   01 0038F    325C040F              LW,5     DEVTYPE-1,6       FETCH DEVICE TYPE
      622   01 00390    355E32C6              STW,5    TEMP2,7           SAVE IN TEMP
      623   01 00391    20400001 A            AI,4     1                 INCR PAR.#
      624   01 00392    51400337              CH,4     :CDB              LAST ?
      625   01 00393    6920039A              BG       :INIT5            YES
      626   01 00394    22500006 A            LI,5     MODELEND-MODEL    # MODELS
      627   01 00395    32880336              LW,8     :CDB-1,4          PAR.
      628   01 00396    318A0408              CW,8     MODEL-1,5         THIS MODEL?
      629   01 00397    6830037F              BE       :INIT3-1          YES
      630   01 00398    64500396              BDR,5    %-2               LOOP UNTIL ALL MODELS COMPARED
      631   01 00399    68000383              B        :INIT4-1          GO TO TEST FOR DEVICE ADDRESS
      632   01 0039A    357017D5     :INIT5   STW,7    DCTNUM            SAVE # DEVICES AS DIOS PARAMETER
      633   01 0039B    20700001 A            AI,7     1                 # LOCATIONS REQ'D FOR DCT ENTRY
      634   01 0039C    224FFFEA A            LI,4     -22               # DCT ENTRIES
      635   01 0039D    32A00007 A            LW,10    7                 MOVE
      636   01 0039E    6AF01A30              BAL,15   BUFSEQ            FETCH AND RESERVE THIS MEMORY
      637   01 0039F    359817EC              STW,9    DCT1+22,4         ALLOCATE MEMORY TO DCT ENTRY
      638   01 003A0    6540039E              BIR,4    %-2               LOOP TIL COMPLETED
      639   01 003A1    32D017D5              LW,13    DCTNUM            # DEVICES
      640   01 003A2    25D00001 A            SLS,13   1                 # DEVICES X2
      641   01 003A3    22A00001 A            LI,10    1                 CIT STARTING INDEX
      642   01 003A4    22700000 A            LI,7     0                 DCT
      643   01 003A5    32600007 A   :INIT6   LW,6     7                 POINTER
      644   01 003A6    524E3263              LH,4     TEMP1+1,7         FETCH IO ADDRESS
      645   01 003A7    683003B9              BEZ      :INIT9+1          NO ADDRESS SPECIFIED
      646   01 003A8    692003AA              BGZ      %+2               NOT SIOP
      647   01 003A9    4B402DD0              AND,4    =X'1F00'          SIOP-MASK OFF ALL BUT IOP ADDRESS
      648   01 003AA    4B402DD1              AND,4    =X'1FF0'          MASK OFF DEVICE ADDRESS
      649   01 003AB    525E332A              LH,5     TEMP3,7           HAS A CIT ALREADY BEEN ASSIGNED?
      650   01 003AC    693003B9              BNEZ     :INIT9+1          YES
      651   01 003AD    525C3263     :INIT7   LH,5     TEMP1+1,6         FETCH ANOTHER ADDRESS
      652   01 003AE    683003B5              BEZ      :INIT8            NO ADDRESS SPECIFIED
      653   01 003AF    692003B1              BGZ      %+2               NOT SIOP
      654   01 003B0    4B502DD0              AND,5    =X'1F00'          SIOP-MASK OFF ALL BUT IOP ADDRESS
      655   01 003B1    4B502DD1              AND,5    =X'1FF0'          MASK OFF DEVICE ADDRESS
      656   01 003B2    31400005 A            CW,4     5                 SAME IOP,CONTROLLER ADDRESS?
      657   01 003B3    693003B5              BNE      %+2               NO-BIPASS CIT ASSIGNING
      658   01 003B4    55AC332A              STH,10   TEMP3,6           ASSIGN THE CIT INDEX
      659   01 003B5    20600001 A   :INIT8   AI,6     1                 UPDATE POINTER
      660   01 003B6    3160000D A            CW,6     13                LAST
      661   01 003B7    691003AD              BL       :INIT7            NO-LOOP
      662   01 003B8    20A00001 A   :INIT9   AI,10    1                 INCREMENT CIT INDEX
      663   01 003B9    20700001 A            AI,7     1                 INCR DCT
      664   01 003BA    3170000D A            CW,7     13                LAST DEVICE
      665   01 003BB    691003A5              BL       :INIT6            NO-LOOP
      666   01 003BC    38A00001 A            SW,10    1                 REDUCE #CIT'S BY 1
      667   01 003BD    3280000A A            LW,8     10                SAVE #CITS
      668   01 003BE    20A00001 A            AI,10    1                 #LOCATIONS REQ'D FOR CIT ENTRY
      669   01 003BF    224FFFF9 A            LI,4     -7
      670   01 003C0    6AF01A30              BAL,15   BUFSEQ            FETCH AND RESERVE SPACE
      671   01 003C1    35981803              STW,9    CIT1+7,4          ALLOCATE MEMORY TO CIT ENTRY
      672   01 003C2    654003C0              BIR,4    %-2               LOOP TIL COMPLETED
      673   01 003C3    32F00417              LW,15    #QS               # Q'S PER CHANNEL
      674   01 003C4    37F00008 A            MW,15    8                 X # CHANNELS
      675   01 003C5    20F00001 A            AI,15    1                 PLUS 1
      676   01 003C6    32A0000F A            LW,10    15
      677   01 003C7    226FFFF0 A            LI,6     -16
      678   01 003C8    6AF01A30              BAL,15   BUFSEQ            FETCH AND RESERVE SPACE
      679   01 003C9    359C17FC              STW,9    IOQ1+16,6         SAVE
      680   01 003CA    656003C8              BIR,6    %-2               LOOP TIL COMPLETED
      681   01 003CB    22D00001 A            LI,13    1                 IOQ INDEX
      682   01 003CC    32E00417              LW,14    #QS               MAX ALLOWABLE Q ENTRIES
      683   01 003CD    22400001 A            LI,4     1                 CIT INDEX
      684   01 003CE    B5E81801     :INIT12  STW,14   *CIT6,4           SAVE MAX ALLOWABLE Q ENTRIES
      685   01 003CF    B5D81802              STW,13   *CIT7,4           SAVE STARTING Q INDEX
      686   01 003D0    32600004 A            LW,6     4                 SAVE CIT INDEX
      687   01 003D1    20600001 A            AI,6     1                 INCR INDEX
      688   01 003D2    31600008 A            CW,6     8                 LAST?
      689   01 003D3    692003D8              BG       :INIT13           YES
      690   01 003D4    B56817FC              STW,6    *CIT1,4           SAVE NEXT CIT INDEX
      691   01 003D5    32400006 A            LW,4     6                 NEXT CIT BECOMES CURRENT CIT
      692   01 003D6    30D00417              AW,13    #QS               UPDATE IOQ INDEX
      693   01 003D7    680003CE              B        :INIT12           LOOP TO NEXT CIT TABLE
      694   01 003D8    B50817FC     :INIT13  STW,0    *CIT1,4           SAVE 0 INDICATING LAST CIT
      695   01 003D9    32F00417              LW,15    #QS               # Q'S PER CHANNEL
      696   01 003DA    37F00008 A            MW,15    8                 X # CHANNELS
      697   01 003DB    20F00001 A            AI,15    1                 PLUS 1
      698   01 003DC    32A0000F A            LW,10    15
      699   01 003DD    25A00003 A            SLS,10   3                 X8
      700   01 003DE    20A00001 A            AI,10    1                 PLUS 1
      701   01 003DF    6AF01A30              BAL,15   BUFSEQ            FETCH MEMORY FOR IOCD'S
      702   01 003E0    4B902DD2              AND,9    =X'FFFFFFFE'      SET ADDRESS TO DOUBLEWORD BOUNDRY
      703   01 003E1    359011AE              STW,9    T2:3IOCD          SAVE
      704   01 003E2    22700001 A            LI,7     1                 STARTING DCT INDEX
      705   01 003E3    326E32C6     :INIT14  LW,6     TEMP2,7           FETCH DEVICE TYPE
      706   01 003E4    B56E17DA              STW,6    *DCT5,7           SAVE
      707   01 003E5    6B4E3329              INT,4    TEMP3-1,7         FETCH AND SEPARATE DAA,DAB CIT'S
      708   01 003E6    32EE3262              LW,14    TEMP1,7           FETCH DEVICE ADDRESS(ES)
      709   01 003E7    52F0000E A            LH,15    14                DUAL ACCESS B
      710   01 003E8    4BF02DD3              AND,15   =X'1FFF'          MASK
      711   01 003E9    B5FE17D7              STW,15   *DCT2,7           SAVE DUAL ACCESS B DEVICE ADDR.
      712   01 003EA    B54E17D9              STW,4    *DCT4,7           SAVE               CIT  INDEX
      713   01 003EB    52C2000E A            LH,12    14,1              DUAL ACCESS A DEVICE ADDRESS
      714   01 003EC    4BC02DD3              AND,12   =X'1FFF'          MASK
      715   01 003ED    B5CE17D6              STW,12   *DCT1,7           SAVE             A DEVICE ADDR.
      716   01 003EE    B55E17D8              STW,5    *DCT3,7           SAVE               CIT INDEX
      717   01 003EF    32B02DD4              LW,11    =X'80000000'      MSB
      718   01 003F0    31E02DD5              CW,14    =X'FFFF0000'      IS THERE DUAL ACCESS B?
      719   01 003F1    684003F7              BCR,4    :INIT15           NO
      720   01 003F2    C7BE17D6              STS,11   *DCT1,7           SET DUAL ACCESS FLAG
      721   01 003F3    31E0000B A            CW,14    11                DUAL ACCESS B ON A SIOP?
      722   01 003F4    684003F7              BCR,4    :INIT15           NO
      723   01 003F5    25B0007F A            SLS,11   -1
      724   01 003F6    B5B817FF              STW,11   *CIT4,4           SET SIOP FLAG
      725   01 003F7    21E08000 A   :INIT15  CI,14     X'8000'          DUAL ACCESS A ON A SIOP?
      726   01 003F8    684003FC              BCR,4    %+4               NO
      727   01 003F9    32B02DD6              LW,11    =X'40000000'      BIT 1
      728   01 003FA    B5BA17FF              STW,11   *CIT4,5           SET SIOP FLAG
      729   01 003FB    35101B7C              STW,1    SIOPFLAG          SET SIOPFLAG
      730   01 003FC    32FC1B91              LW,15    CYLNR,6           FORM ABSOLUTE SURFACE ADDRESS
      731   01 003FD    37FC1B89              MW,15    HEADNR,6
      732   01 003FE    37FC1B81              MW,15    SECTNR,6
      733   01 003FF    38F00001 A            SW,15    1
      734   01 00400    B50E17E4              STW,0    *DCT15,7          LOWER LIMIT=0
      735   01 00401    B5FE17E5              STW,15   *DCT16,7          UPPER LIMIT=(#CYLS*#HEADS*#SECTS)-1
      736   01 00402    20700001 A            AI,7     1                 INCR DCT INDEX
      737   01 00403    317017D5              CW,7     DCTNUM            LAST DCT?
      738   01 00404    682003E3              BLE      :INIT14           NO-LOOP
      739   01 00405    224FFFFF A            LI,4     -1
      740   01 00406    3540030C              STW,4    :PIT12            SET RUN FLAG
      741   01 00407    E8000408              B        *:INITR           RETURN TO MONITOR
      742   01 00408    00000000 A   :INITR   DATA     0                 RETURN ADDRESS SAVE

      744         01 00409           MODEL    EQU      %                 MODEL NUMBER
      745   01 00409    00000001 A            DATA     1                 ADVANCED RAD (512 T., 12 S.)
      746   01 0040A    00000002 A            DATA     2                 DISK (557 CYLS, 30 HDS, 16 SECS)
      747   01 0040B    00000004 A            DATA     4                 DISK (203 C., 20 H., 10 S.)
      748   01 0040C    00000005 A            DATA     5                 DISK (815 CYLS, 19 HDS, 16 SECS)
      749   01 0040D    00000006 A            DATA     6                 DISK (1120 CYLS, 30 HDS, 16 SECS)
      750   01 0040E    00000007 A            DATA     7                 DISK (555 CYLS, 30 HDS, 16 SECS)
      751         01 0040F           MODELEND EQU      %
      752   01 0040F    00000000 A            DATA     0

      754         01 00410           DEVTYPE  EQU      %                 DEVICE TYPE
      755   01 00410    00000001 A            DATA     1                 ADVANCED RAD (512 T., 12 S.)
      756   01 00411    00000002 A            DATA     2                 DISK (557 CYLS, 30 HDS, 16 SECS)
      757   01 00412    00000004 A            DATA     4                 DISK (203 C., 20 H., 10 S.)
      758   01 00413    00000005 A            DATA     5                 DISK (815 CYLS, 19 HDS, 16 SECS)
      759   01 00414    00000006 A            DATA     6                 DISK (1120 CYLS, 30 HDS, 16 SECS)
      760   01 00415    00000007 A            DATA     7                 DISK (555 CYLS, 30 HDS, 16 SECS)
      761         01 00416           DEVTYPEND EQU     %
      762   01 00416    00000000 A            DATA     0

      764   01 00417    00000000 A   #QS      DATA     0                 # QUEUE ENTRIES PER CHANNEL
      765   01 00418    00000020 A   CC3      DATA     X'20'             COND.CODE 3;SIGMA 9 = 20,ELSE 0
      766                            *
      767                            *
      768                            *        ***RECOVERY ROUTINE***
      769                            *
      770   01 00419    22000000 A   :RECOVER LI,0     0                 RESET
      771   01 0041A    22E01060 A            LI,14    X'1060'           COUNTER 4 AND IO INTER BITS
      772   01 0041B    6DE01500 A            WD,14    X'1500'           DISABLE AND
      773   01 0041C    6DE01100 A            WD,14    X'1100'             DISARM INTERRUPTS
      774   01 0041D    35F00420              STW,15   :RECOVS

      776         01 0041E           REVBRNCH EQU      %
      777   01 0041E    6AF0359D              BAL,15   REVPRINT
      778   01 0041F    E8000420              B        *:RECOVS
      779   01 00420                 :RECOVS  RES      1
      780                            *
      781                            *
      782                            *
      783   01 00421    68000422     PROGERR  B        %+1
      784   01 00422    68000423              B        %+1
      785   01 00423    35F00EE8              STW,15   VHEX6A
      786   01 00424    6AF00B7B              SEND     MX000
            01 00425    00003C1C
      787   01 00426    6AF00B7B              SEND     MX083
            01 00427    00003DE1
      788   01 00428    E8000214              B        *:MONITOR
      789                            *
      790                            *
      791                            *             *** INTERRUPT/TRAP HANDLER ***
      792                            *
      793                            * PARAMETERS REQ'D:
      794                            * ----------------
      795                            *   TESTNR  - TEST BEING PERFORMED (1=TST1,2=TST2,3=TST3)
      796                            *   SUBTNR  - SUBTEST BEING PERFORMED (TST1 ONLY)
      797                            *   ITHRST  - RESTART ADDRESS
      798                            *
      799   01 00429    35F0043D     ITHDLR   STW,15   ITHSAVE           SAVE RETURN ADDRESS
      800   01 0042A    22E01060 A            LI,14    X'1060'           COUNTER 4 AND IO INTER BITS
      801   01 0042B    6DE01500 A            WD,14    X'1500'           DISABLE AND
      802   01 0042C    6DE01100 A            WD,14    X'1100'             DISARM INTERRUPTS
      803   01 0042D    75100525              STB,1    T1DINHP           SET LOOP INHIBIT
      804   01 0042E    3310052A              MTW,1    T1DCE             REPORT ALWAYS 'ERROR'
      805   01 0042F    311011B0              CW,1     TESTNR            FUNCTIONAL TEST ?
      806   01 00430    69300434              BNE      %+4               NO
      807   01 00431    22F00433              LI,15    %+2               LOAD RETURN ADDRESS
      808   01 00432    35F00537              STW,15   T1DS+11             AND STORE IT IN FTD
      809   01 00433    68000585              B        T1DE2             GO TO REPORT ROUTINE
      810   01 00434    32F011B0              LW,15    TESTNR            TEST NUMBER
      811   01 00435    35F00EE1              STW,15   VDEC1A
      812   01 00436    32F01B60              LW,15    DEVADDR           LOAD DEVICE ADDRESS
      813   01 00437    35F00EE7              STW,15   VHEX4A                IN PRINT MESSAGE
      814   01 00438    6AF00B7B              SEND     MX039
            01 00439    00003CF6
      815   01 0043A    32F0043C              LW,15    ITHRST            (R15)=RESTART ADDRESS
      816   01 0043B    E800043D              B        *ITHSAVE          RETURN TO MONITOR INTER/TRAP HANDLER
      817                            *
      818   01 0043C    00000000 A   ITHRST   DATA     0
      819   01 0043D    00000000 A   ITHSAVE  DATA     0
      820                            *
1 C00   21:47 JUN 20,'83    TELEFILE ROTATING MEMORY TEST 960-0604-H02                            PAGE    8
A     822                            *                                                                      *
      823                            *
      824                            *        *** D A T A  DIRECTIVE ***
      825                            *
      826                            * THIS ROUTINE HANDLES THE 'DATA' DIRECTIVE AND SAVES P1-P3 IN
      827                            * LOCATIONS :DATAP1.
      828                            *
      829                            * PARAMETERS:  P1=0  FIXED PATTERN
      830                            *                P2= PATTERN
      831                            *                P3=  (UNUSED)
      832                            *              P1=1  INCREMENTING PATTERN
      833                            *                P2= STARTING PATTERN
      834                            *                P3= INCREMENT
      835                            *              P1=2  RANDOM PATTERN
      836                            *                P2= STARTING SEED
      837                            *                P3= (UNUSED)
      838                            *              P1=3  SEEK ADDRESS FIXED PATTERN
      839                            *                P2  (UNUSED)
      840                            *                P3  (UNUSED)
      841                            *
      842         01 0043E           :DATA    EQU      %                 DATA DIRECTIVE HANDLER
      843   01 0043E    31300201              CW,3     :P1               IS P1>3
      844   01 0043F    6910044E              BL       :DATAX            YES-ERROR
      845   01 00440    31100201              CW,1     :P1               IS P1=0
      846   01 00441    68200444              BLE      %+3               NO
      847   01 00442    22400002 A   :DATA1   LI,4     2                 EXPECT #PAR=2
      848   01 00443    6800044A              B        :DATA2            GO TO TEST
      849   01 00444    69300447              BNE      %+3               P1 NOT 1
      850   01 00445    22400003 A            LI,4     3                 EXPECT #PAR=3
      851   01 00446    6800044A              B        :DATA2            GO TO TEST
      852   01 00447    31300201              CW,3     :P1               IS P1 =3
      853   01 00448    69300442              BNE      :DATA1            NO
      854   01 00449    22400001 A            LI,4     1                 EXPECT # PAR=1
      855   01 0044A    35400456     :DATA2   STW,4    :DATATBL          SAVE # PARS
      856   01 0044B    35400457              STW,4    :DATATBL+1           IN TEST TABLE
      857   01 0044C    71420211              CB,4     :PSW,1            ARE # PARAMETERS ENTERED EQUAL TO
      858   01 0044D    68300451              BE       :DATA3            YES                # EXPECTED ?
      859   01 0044E    6AF00A8D     :DATAX   BAL,15   #TPM              NO-REPORT ERROR
      860   01 0044F    00000456              DATA    :DATATBL           TEST TABLE ADDRESS
      861   01 00450    E8000214              B        *:MONITOR         RETURN TO MONITOR
      862   01 00451    02200030 A   :DATA3   LCI      3
      863   01 00452    2A400201              LM,4     :P1               FETCH P1-P3
      864   01 00453    2B40045A              STM,4    :DATAP1           SAVE P1-P3
      865   01 00454    E8000214              B        *:MONITOR         RETURN TO MONITOR
      866                            *
      867                            *
      868                                     BOUND    8
      869   01 00456    00000001 A   :DATATBL DATA     1,3               # PAR.S
            01 00457    00000003 A
      870   01 00458    00000000 A            DATA     0,3               RANGE OF P1
            01 00459    00000003 A
      871   01 0045A    00000000 A   :DATAP1  DATA     0,X'DB6DB6DB',0   PARAMETER  SAVE                  A02
            01 0045B    DB6DB6DB A
            01 0045C    00000000 A
1 C00   21:47 JUN 20,'83    TELEFILE ROTATING MEMORY TEST 960-0604-H02                            PAGE    9
A     873                            *                                                                      *
      874                            *
      875                            *        ***  L I M T  DIRECTIVE ***
      876                            *
      877                            * THIS ROUTINE HANDLES THE 'LIMT' DIRECTIVE.
      878                            *
      879                            * PARAMETER P1 = 1  LIMIT THE COMPARE ERROR PRINTOUT TO P2 LINES.
      880                            *              = 2  SUMMARY MESSAGE, PASS CONTROL
      881                            *                   P2 = 0  INHIBIT CYCLE SUMMARY MESSAGE(S)
      882                            *                      = N  PRINT PASS  SUMMARY MESSAGE EVERY N PASSES
      883                            *                   P3 = N  NUMBER OF PASSES TO PERFORM
      884                            *              = 3  P2 = 0  RESET
      885                            *                      = 1  DISPLAY UNCONDITIONAL (TEST 1 ONLY)
      886                            *                      = 2  SUPPRESS CONSTANT PART OF MESSAGES
      887                            *                      = 4  SUPPRESS STEPPING TESTS
      888                            *              = 4  TST2,TST3 ERROR MESSAGE PRINT/INHIBIT
      889                            *                   P2 = 0
      890                            *                   P3 = 0
      891                            *                   P4 = 32-BIT MESSAGE MASK
      892                            *                        (BIT=0-SUPPRESS;BIT=1-PRINT)
      893                            *
      894         01 0045D           :LIMT    EQU      %                 LIMT DIRECTIVE HANDLER
      895   01 0045D    32400201              LW,4     :P1               PARAMETER P1
      896   01 0045E    21400001 A            CI,4     1                 IS P1=1
      897   01 0045F    69300465              BNE      :LIMT1            NO
      898   01 00460    6AF00A8D              BAL,15   #TPM              TEST PARAMETERS
      899   01 00461    00000484              DATA     :LIMTBL1          LIMIT VALUE TABLE FOR P1=1
      900   01 00462    32400202              LW,4     :P2
      901   01 00463    35400ABF              STW,4    COMPL             SAVE COMPARE PRINTOUT COUNT
      902   01 00464    E8000214              B        *:MONITOR         RETURN TO MONITOR
      903   01 00465    21400002 A   :LIMT1   CI,4     2                 IS P1=2?
      904   01 00466    6930046E              BNE      :LIMT2
      905   01 00467    6AF00A8D              BAL,15   #TPM              TEST PARAMETERS
      906   01 00468    0000048A              DATA     :LIMTBL2          LIMIT VALUE TABLE FOR P1=2
      907   01 00469    32400202              LW,4     :P2               P2
      908   01 0046A    354013F3              STW,4    SUMINH            SAVE AS SUMMARY INHIBIT FLAG
      909   01 0046B    32400203              LW,4     :P3               P3
      910   01 0046C    354013F4              STW,4    SUMCNT            SAVE AS PASS  COUNT
      911   01 0046D    E8000214              B        *:MONITOR         RETURN TO MONITOR
      912                            *
      913   01 0046E    21400003 A   :LIMT2   CI,4     3                 IS P1=3?
      914   01 0046F    6930047F              BNE      :LIMT3            NO
      915   01 00470    6AF00A8D              BAL,15   #TPM              TEST PARAMETERS
      916   01 00471    00000492              DATA     :LIMTBL3
      917   01 00472    22000000 A            LI,0     0
      918   01 00473    32F00202              LW,15    :P2
      919   01 00474    4BF01BDC              AND,15   K1                SET
      920   01 00475    35F01B7D              STW,15   DISPLAY             AND
      921   01 00476    32F00202              LW,15    :P2                    RESET
      922   01 00477    25F0007F A            SLS,15   -1                          DISPLAY MODE,
      923   01 00478    4BF01BDC              AND,15   K1
      924   01 00479    35F00B7A              STW,15   MSGPSP                      MESSAGE SUPPRESSION AND
      925   01 0047A    32F00202              LW,15    :P2
      926   01 0047B    25F0007E A            SLS,15   -2
      927   01 0047C    4BF01BDC              AND,15   K1                         STEPPING TEST SUPPRESSION
      928   01 0047D    35F01B7E              STW,15   STEPSP
      929   01 0047E    E8000214              B        *:MONITOR
      930   01 0047F    21400004 A   :LIMT3   CI,4     4                 IS P1=4?
      931   01 00480    69300467              BNE      :LIMT1+2          NO-GO TO REPORT
      932   01 00481    32400204              LW,4     :P4               FETCH 32-BIT MESSAGE MASK
      933   01 00482    35400498              STW,4    LIMT23M           AND SAVE
      934   01 00483    E8000214              B        *:MONITOR         RETURN TO MONITOR
      935                            *
      936                                     BOUND    8
      937   01 00484    00000002 A   :LIMTBL1 DATA     2,2               #PAR.S
            01 00485    00000002 A
      938   01 00486    00000001 A            DATA     1,1               RANGE OF P1
            01 00487    00000001 A
      939   01 00488    00000000 A            DATA     0,999                      P2
            01 00489    000003E7 A
      940   01 0048A    00000003 A   :LIMTBL2 DATA     3,3               #PAR.S
            01 0048B    00000003 A
      941   01 0048C    00000002 A            DATA     2,2               RANGE OF P1
            01 0048D    00000002 A
      942   01 0048E    00000000 A            DATA     0,64000                    P2
            01 0048F    0000FA00 A
      943   01 00490    00000000 A            DATA     0,64000                    P3
            01 00491    0000FA00 A
      944   01 00492    00000002 A   :LIMTBL3 DATA     2,2
            01 00493    00000002 A
      945   01 00494    00000003 A            DATA     3,3
            01 00495    00000003 A
      946   01 00496    00000000 A            DATA     0,7
            01 00497    00000007 A
      947   01 00498    FFFFFFFF A   LIMT23M  DATA     X'FFFFFFFF'       TST2,TST3 REPORT MASK
1 C00   21:47 JUN 20,'83    TELEFILE ROTATING MEMORY TEST 960-0604-H02                            PAGE   10
A     949                            *
      950                            *        ***  M E M  DIRECTIVE ***
      951                            *
      952                            * THIS ROUTINE HANDLES THE 'MEM' DIRECTIVE.
      953                            * PARAMETERS:  (NONE) OR
      954                            *              P1 = STARTING BUFFER WORD ADDRESS
      955                            *              P2 = ENDING BUFFER WORD ADDRESS
      956                            *
      957                            * IF P1,P2 NOT SPECIFIED, AVAILABLE MEMORY IS PRINTED.
      958                            *
      959         01 00499           :MEM     EQU      %                 MEM DIRECTIVE HANDLER
      960   01 00499    72820211              LB,8     :PSW,1            PARAMETER COUNT
      961   01 0049A    692004AA              BGZ      :MEM1             COUNT>0
      962   01 0049B    32801A7D              LW,8     BUFSTART          STARTING MEMORY ADDRESS
      963   01 0049C    35800EE9              STW,8    VHEX8A            SAVE
      964   01 0049D    3280022F              LW,8     :MEMLAST          LAST BEFORE MONITOR
      965   01 0049E    35800EF0              STW,8    VHEX8B            SAVE
      966   01 0049F    6AF00B7B              BAL,15   #MSGP
      967   01 004A0    00004042              DATA     MX404             'MEM AVAIL X TO X'
      968   01 004A1    2080099D A            AI,8     2461              BIPASS MONITOR
      969   01 004A2    3180022E              CW,8     :MEMSIZE          IS MONITOR AT TOP OF MEMORY?
      970   01 004A3    E8100214              BGE      *:MONITOR         YES-RETURN
      971   01 004A4    35800EE9              STW,8    VHEX8A            SAVE
      972   01 004A5    3280022E              LW,8     :MEMSIZE          LAST MEMORY ADDRESS
      973   01 004A6    35800EF0              STW,8    VHEX8B            SAVE
      974   01 004A7    6AF00B7B              BAL,15   #MSGP
      975   01 004A8    0000404A              DATA     MX405             '    AND  X TO X'
      976   01 004A9    E8000214              B        *:MONITOR         RETURN
      977   01 004AA    21800002 A   :MEM1    CI,8     2                 IS #PAR.S=2? ?
      978   01 004AB    683004AF              BE       :MEM2             YES
      979   01 004AC    6AF00B7B              BAL,15   #MSGP
      980   01 004AD    00003F71              DATA     MX400             'NOT ENOUGH PARAMETERS'
      981   01 004AE    E8000214              B        *:MONITOR         RETURN
      982   01 004AF    32800201     :MEM2    LW,8     :P1               P1
      983   01 004B0    31801A7D              CW,8     BUFSTART          OUTSIDE PROGRAM?
      984   01 004B1    681004B6              BGE      :MEM4             YES
      985   01 004B2    35100EE1              STW,1    VDEC1A            P1 IN ERROR
      986   01 004B3    6AF00B7B     :MEM3    BAL,15   #MSGP
      987   01 004B4    00003F7D              DATA     MX402             'PARAMETER X TOO SMALL'
      988   01 004B5    E8000214              B        *:MONITOR         RETURN
      989   01 004B6    19801A92     :MEM4    CLM,8    MONLMT            P1 IN MONITOR ?
      990   01 004B7    696004BC              BCS,6    :MEM6             NO
      991   01 004B8    35100EE1              STW,1    VDEC1A            P1 IN ERROR
      992   01 004B9    6AF00B7B     :MEM5    BAL,15   #MSGP
      993   01 004BA    00004051              DATA     MX406             'PARAMETER X IN MONITOR'
      994   01 004BB    E8000214              B        *:MONITOR         RETURN
      995   01 004BC    31800202     :MEM6    CW,8     :P2               IS P2>P1
      996   01 004BD    691004C0              BL       :MEM7             YES
      997   01 004BE    35200EE1              STW,2    VDEC1A            P2 IN ERROR
      998   01 004BF    680004B3              B        :MEM3             GO TO REPORT
      999   01 004C0    32900202     :MEM7    LW,9     :P2               P2
     1000   01 004C1    19901A92              CLM,9    MONLMT            IS P2 IN MONITOR?
     1001   01 004C2    696004C5              BCS,6    :MEM8             NO
     1002   01 004C3    35200EE1              STW,2    VDEC1A            P2 IN ERROR
     1003   01 004C4    680004B9              B        :MEM5             GO TO REPORT
     1004   01 004C5    3190022E     :MEM8    CW,9     :MEMSIZE          P2 INSIDE MEMORY
     1005   01 004C6    682004CB              BLE      :MEM9             YES
     1006   01 004C7    35200EE1              STW,2    VDEC1A            P2 IN ERROR
     1007   01 004C8    6AF00B7B              BAL,15   #MSGP
     1008   01 004C9    00003F82              DATA     MX403             'PARAMETER 2 TOO BIG'
     1009   01 004CA    E8000214              B        *:MONITOR
     1010   01 004CB    35901A90     :MEM9    STW,9    BUFLMT            SAVE P1,P2
     1011   01 004CC    35801A91              STW,8    BUFLMT+1
     1012   01 004CD    35101A8E              STW,1    BUFMAPI           RESET BUFFER MAP INITIALIZED FLAG
     1013   01 004CE    6AF01A34              BAL,15   BUFRAND           DETERMINE THE # OF BUFFERS AVAILABLE
     1014   01 004CF    680004D0              B        %+1
     1015   01 004D0    E8000214              B        *:MONITOR         RETURN
1 C00   21:47 JUN 20,'83    TELEFILE ROTATING MEMORY TEST 960-0604-H02                            PAGE   11
A    1017                            *
     1018                            *        *** S E E K  DIRECTIVE ***
     1019                            *
     1020                            * THIS ROUTINE HANDLES THE 'SEEK' DIRECTIVE, VERIFIES THE PARAMETERS
     1021                            * AND SAVES THE SURFACE LIMITS IN ALL DCT TABLES. (NOTE: PARAMETERS
     1022                            * MUST BE WITHIN THE SURFACE LIMITS OR ALL DEVICES UNDER TEST.)
     1023                            *
     1024                            *   PARAMETER: P1 =  STARTING CYLINDER OR TRACK
     1025                            *              P2 =  STARTING HEAD OR 0
     1026                            *              P3 =  STARTING SECTOR
     1027                            *              P4 =  NUMBER OF SECTORS TO BE TESTED
     1028                            *
     1029         01 004D1           :SEEK    EQU      %                 SEEK DIRECTIVE HANDLER
     1030   01 004D1    327017D5              LW,7     DCTNUM            # DEVICES
     1031   01 004D2    B24E17DA     :SEEK1   LW,4     *DCT5,7           FETCH DEVICE TYPE
     1032   01 004D3    32D81B91              LW,13    CYLNR,4           CYLINDER OR TRACK
     1033   01 004D4    32E81B89              LW,14    HEADNR,4          HEAD
     1034   01 004D5    32F81B81              LW,15    SECTNR,4          SECTOR
     1035   01 004D6    38F00001 A            SW,15    1
     1036   01 004D7    38E00001 A            SW,14    1
     1037   01 004D8    38D00001 A            SW,13    1
     1038   01 004D9    692004DB              BGZ      %+2
     1039   01 004DA    46D0000E A            XW,13    14
     1040   01 004DB    35D004F7              STW,13   :SEEKTBL+3        SAVE IN PARAMETER TABLE
     1041   01 004DC    35E004F9              STW,14   :SEEKTBL+5
     1042   01 004DD    35F004FB              STW,15   :SEEKTBL+7
     1043   01 004DE    02200030 A            LCI      3
     1044   01 004DF    2AB00201              LM,11    :P1               FETCH PARAMETERS P1-P3
     1045   01 004E0    55B0000B A            STH,11   11                CYL (OR TRACK) TO MSH
     1046   01 004E1    75C4000B A            STB,12   11,2              MERGE HEAD (OR 0)
     1047   01 004E2    75D6000B A            STB,13   11,3              MERGE SECTOR
     1048   01 004E3    6AF01395              BAL,15   SEEKABS           CONVERT TO ABSOLUTE FORMAT
     1049   01 004E4    35B004FE              STW,11   :SEEKTEMP         SAVE LOW LIMITS IN TEMP
     1050   01 004E5    B24E17DA              LW,4     *DCT5,7           DEVICE TYPE
     1051   01 004E6    32F81B91              LW,15    CYLNR,4           CYLINDER OR TRACK
     1052   01 004E7    37F81B89              MW,15    HEADNR,4          HEAD
     1053   01 004E8    37F81B81              MW,15    SECTNR,4          FORM UPPER LIMIT
     1054   01 004E9    38F0000B A            SW,15    11                MAX # SECTORS TO TEST
     1055   01 004EA    35F004FD              STW,15   :SEEKTBL+9        SAVE LIMIT IN PARAMETER TABLE
     1056   01 004EB    6AF00A8D              BAL,15   #TPM              TEST PARAMETERS
     1057   01 004EC    000004F4              DATA     :SEEKTBL          PARAMETER LIMIT TABLE ADDRESS
     1058   01 004ED    32F004FE              LW,15    :SEEKTEMP
     1059   01 004EE    B5FE17E4              STW,15   *DCT15,7          SAVE LOWER SEEK LIMIT
     1060   01 004EF    30F00204              AW,15    :P4               FORM UPPER LIMIT
     1061   01 004F0    38F00001 A            SW,15    1                 LESS 1
     1062   01 004F1    B5FE17E5              STW,15   *DCT16,7          SAVE UPPER SEEK LIMIT
     1063   01 004F2    647004D2              BDR,7    :SEEK1            LOOP TO NEXT DCT
     1064   01 004F3    E8000214              B        *:MONITOR         LAST-EXIT
     1065                            *
     1066                                     BOUND    8
     1067   01 004F4    00000004 A   :SEEKTBL DATA     4,4               #PAR.S
            01 004F5    00000004 A
     1068   01 004F6    00000000 A            DATA     0,0               RANGE OF P1
            01 004F7    00000000 A
     1069   01 004F8    00000000 A            DATA     0,0                        P2
            01 004F9    00000000 A
     1070   01 004FA    00000000 A            DATA     0,0                        P3
            01 004FB    00000000 A
     1071   01 004FC    00000001 A            DATA     1,0                        P4
            01 004FD    00000000 A
     1072   01 004FE    00000000 A   :SEEKTEMP DATA    0                 TEMP LIMIT SAVE
     1073                            *
     1074                            *
     1075                            *        ***COMPREHENSIVE TEST***
     1076                            *
     1077                                     BOUND    8
     1078   01 00500    00000000 A   TST0P    DATA     0,0
            01 00501    00000000 A
     1079   01 00502                 T0FLG    RES      1
     1080                            *
     1081   01 00503    35100502     TST0     STW,1    T0FLG             SET TEST 0 FLAG
     1082   01 00504    6AF00A8D              BAL,15   #TPM              TEST PARAMETERS
     1083   01 00505    00000500              DATA     TST0P
     1084   01 00506    6AF00B7B     TST0A    SEND     MX501             FUNCTIONAL TEST STARTED
            01 00507    00003FAB
     1085   01 00508    6AF00B7B              SEND     MX037             ***
            01 00509    00003CEC
     1086   01 0050A    22000000 A            LI,0     0                                                  A01
     1087   01 0050B    35000201              STW,0    :P1                                                A01
     1088   01 0050C    35000202              STW,0    :P2                                                A01
     1089   01 0050D    75020211              STB,0    :PSW,1
     1090   01 0050E    68001C14              B        TST1A
     1091   01 0050F    6AF00B7B     TST0B    SEND     MX502             END OF FUNCTIONAL TEST
            01 00510    00003FAF
     1092   01 00511    6AF00B7B              SEND     MX037             ***
            01 00512    00003CEC
     1093   01 00513    6AF00B7B              SEND     MX503             RANDOM EXERCISER STARTED
            01 00514    00003FB4
     1094   01 00515    6AF00B7B              SEND     MX037             ***
            01 00516    00003CEC
     1095   01 00517    22F01388 A            LI,15    5000              SET
     1096   01 00518    35F00201              STW,15   :P1                 PARAMETER 1
     1097   01 00519    35300202              STW,3    :P2                  AND PARAMETER 2
     1098   01 0051A    75220211              STB,2    :PSW,1                AND PARAMETER COUNT
     1099   01 0051B    68001087              B        TST2A
     1100   01 0051C    6AF0053D              TEST     TSEQRS                                             A02
            01 0051D    00001D1E
     1101   01 0051E    6AF00B7B     TST0C    SEND     MX504             END OF RANDOM EXERCISER
            01 0051F    00003FB8
     1102   01 00520    EAF0021D              BAL,15   *:SENSE
     1103   01 00521    2E000521              WAIT     %
     1104   01 00522    68000506              B        TST0A
     1105   01 00523    E8000214              B        *:MONITOR
1 C00   21:47 JUN 20,'83    TELEFILE ROTATING MEMORY TEST 960-0604-H02                            PAGE   12
A    1107                            *
     1108                            *
     1109                            *        ***FUNCTIONAL TEST DRIVER ROUTINE***
     1110                            *
     1111                            * THE FUNCTIONAL TEST DRIVER ROUTINE CONTROLS THE EXECUTION OF A TEST
     1112                            * SEQUENCE, WHICH CAN CONTAIN UP TO 16 SUBROUTINES. THE TOTAL EXECUTION OF
     1113                            * THE TEST SEQUENCE IS PERFORMED IN THE FOLLOWING TWO   LOOPS:
     1114                            *
     1115                            * BUILD AND EXECUTION LOOP
     1116                            * IN THIS          LOOP ALL SUBROUTINES OF A TEST SEQUENCE ARE EXECUTED
     1117                            * WITHOUT THE TIME DELAY OF PRINTING DATA. ALL IMPORTANT DATA ARE
     1118                            * SAVED FOR THE PRINTOUT IN THE REPORTING LOOP.
     1119                            *
     1120                            * REPORTING LOOP
     1121                            * IN THE REPORTING LOOP A TOTAL PICTURE OF THE TEST SEQUENCE CAN BE
     1122                            * PRINTED OUT. THE CONDITION FOR PRINTING DEPENDS ON INHIBIT FLAG,
     1123                            * DISPLAY DIRECTIVE AND SENSE SWITCHES.
     1124                            *
     1125                            *
     1126                            * CALLING SEQUENCE:
     1127                            *        BAL,15   T1D               BRANCH TO FUNCTIONAL TEST DRIVER
     1128                            *        DATA     TSEQ01            ADDRESS OF PARAMETER TABLE
     1129                            *        XXXX     YYYY              RETURN ADDRESS
     1130                            *
     1131                            * ALL REGISTERS ARE SAVED.
     1132                            * THE FOLLOWING REGISTERS ARE USED IN THE TEST DRIVER:
     1133                            *
     1134                            *        R6       INDEX
     1135                            *        R7       INDEX
     1136                            *        R8       CONTROL MASK
     1137                            *        R9       ADDRESS OF PARAM. TABLE (MODIFIED IN SUBROUTINE)
     1138                            *        R10      RETURN ADDRESS
     1139                            *        R11      PARAMETER CONTROL WORD
     1140                            *
     1141                            *
     1142                            *
     1143   01 00524    00000000 A   T1DEAB   DATA     0                 ABORT FLAG; 1=EARLY TERM.OF SEQUENCE
     1144   01 00525    00000000 A   T1DINHP  DATA     0                 INHIBIT WORD
     1145   01 00526    00000000 A   T1DPEF   DATA     0                 PREVIOUS ERROR FLAG
     1146   01 00527    00000000 A   T1DLCNT  DATA     0                 DRIVER LOOP COUNT
     1147   01 00528    00000000 A   T1DCI    DATA     0                 INDIRECT PARAM ROUT. CONTR. W.
     1148   01 00529    00000000 A   T1DCP    DATA     0                 PERFORMANCE CONTROL WORD
     1149   01 0052A    00000000 A   T1DCE    DATA     0                 ERROR CONTROL WORD
     1150   01 0052B    00000000 A   T1DCM    DATA     0                 CONTROL MASK
     1151   01 0052C                 T1DS     RES      12                SAVE LOCATION FOR CONTENTS OF REG 4-15
     1152                                     BOUND    8
     1153   01 00538    00000000 A   T1DID    DATA     0,0               ADR OF MSG TABLE, COUNT
            01 00539    00000000 A
     1154   01 0053A    00000000 A   T1DMSEQ  DATA     0                 MULTIPLE SEQUENCE NUMBER
     1155   01 0053B    00000000 A   T1DMSEQC DATA     0                 CURRENT SEQUENCE NUMBER
     1156   01 0053C    00000000 A   T1DVCNT  DATA     0                 TEST VARIATION COUNT
     1157                            *
     1158                            *
     1159                            *
     1160                            *
     1161   01 0053D    022000C0 A   T1D      LCI      12
     1162   01 0053E    2B40052C              STM,4    T1DS              SAVE R4 TO R15
     1163   01 0053F    33100527              MTW,1    T1DLCNT           INCREMENT LOOP COUNTER
     1164   01 00540    B290000F A   T1DL     LW,9     *15               FETCH ADR OF PARAMETER TABLE
     1165   01 00541    22000000 A            LI,0     0
     1166   01 00542    B2B00009 A   T1DB0    LW,11    *9                GET EXECUTION CONTROL WORD
     1167   01 00543    33100009 A            MTW,1    9                 INCR. PARAMETER ADDRESS
     1168   01 00544    B2F00009 A            LW,15    *9                GET 2ND WORD OF PARAM. TABLE
     1169   01 00545    32C0000F A            LW,12    15                GET ADR OF MSG TABLE
     1170   01 00546    72D0000F A            LB,13    15                GET MSG
     1171   01 00547    4BD01BED              AND,13   KX000F              COUNT
     1172   01 00548    15C00538              STD,12   T1DID             SAVE
     1173   01 00549    72D2000F A            LB,13    15,1              GET MULTIPLE
     1174   01 0054A    4BD01BED              AND,13   KX000F            SEQUENCE NUMBER
     1175   01 0054B    25D0007F A            SLS,13   -1
     1176   01 0054C    35D0053B              STW,13   T1DMSEQC          SAVE CURRENT SEQUENCE NO
     1177   01 0054D    7262000F A            LB,6     15,1              GET SUBROUTINE TABLE INDEX
     1178   01 0054E    2560047C A            SAS,6    -4                  TABLE INDEX
     1179   01 0054F    32DC05E5              LW,13    T1DSEQT,6         GET SUBROUTINE TABLE ADDRESS
     1180   01 00550    35D005E4              STW,13   T1DSEQA           SAVE
     1181   01 00551    22C00000 A            LI,12    0
     1182   01 00552    72D0000F A            LB,13    15                GET
     1183   01 00553    25D0047C A            SAS,13   -4                  INHIBIT INFO
     1184   01 00554    75D0000C A            STB,13   12
     1185   01 00555    3300000F A            MTW,0    15                IS LOOP ADR SPECIFIED
     1186   01 00556    68100559              BGEZ     %+3               NO
     1187   01 00557    33100009 A            MTW,1    9                 INCR PARAMETER ADDRESS
     1188   01 00558    B0C00009 A            AW,12    *9                GET LOOP ADR
     1189   01 00559    35C00525              STW,12   T1DINHP           SAVE INHIBIT WORD
     1190   01 0055A    33100009 A            MTW,1    9                 INCR PARAMETER ADR
     1191                            *
     1192                            *        ***EXECUTION LOOP***
     1193                            *
     1194   01 0055B    35000524     T1DX     STW,0    T1DEAB               ABORT FLAG
     1195   01 0055C    35000529              STW,0    T1DCP                PERFORMAANCE CONTROL WORD
     1196   01 0055D    3500052A              STW,0    T1DCE                ERROR CONTROL WORD
     1197   01 0055E    226FFFF0 A            LI,6     -16               INIT. INDEX
     1198   01 0055F    22800001 A            LI,8     1                 INIT. CONTROL MASK
     1199   01 00560    2580027F A   T1DX1    SCS,8    -1                PREPARE MASK
     1200   01 00561    25B00001 A            SLS,11   +1                TEST EXECUTION CONTROL WORD
     1201   01 00562    6880057D              BCR,8    T1DX6             GO TO NEXT BIT
     1202   01 00563    B2FC05E4              LW,15    *T1DSEQA,6        GET SUBROUTINE ADR
     1203   01 00564    22000000 A            LI,0     0
     1204   01 00565    35000528              STW,0    T1DCI             RESET INDIRECT PARAMETER WORD
     1205   01 00566    B300000F A            MTW,0    *15               PARAMETERS WITH THIS SUBROUTINE
     1206   01 00567    6830056C              BEZ      T1DX2             NO
     1207   01 00568    B3000009 A            MTW,0    *9                INDIRECT PARAMETER
     1208   01 00569    6810056C              BGEZ     T1DX2             NO
     1209   01 0056A    35900528              STW,9    T1DCI             SAVE R9
     1210   01 0056B    B2900009 A            LW,9     *9                GET PARAMETER ADR
     1211   01 0056C    EAA4000F A   T1DX2    BAL,10   *15,2             B: EXECUTION ROUTINE
     1212   01 0056D    68000574     T1DXN    B        T1DX3             NORMAL RETURN
     1213   01 0056E    32F0053B     T1DXE    LW,15    T1DMSEQC          GET CURRENT SEQUENCE NO
     1214   01 0056F    31F0053A              CW,15    T1DMSEQ           UPDATE REQUIRED
     1215   01 00570    68300572              BE       %+2               NO
     1216   01 00571    35F0053A              STW,15   T1DMSEQ           SAVE NEW SEQUENCE NO
     1217   01 00572    6680052A              AWM,8    T1DCE             SET BIT IN ERROR CONTROL WORD
     1218   01 00573    66100526              AWM,1    T1DPEF            SET PREVIOUS ERROR FLAG
     1219   01 00574    66800529     T1DX3    AWM,8    T1DCP             SET BIT IN PERFORMANCE CONTROL WORD
     1220   01 00575    33000524              MTW,0    T1DEAB            TEST ABORT FLAG
     1221   01 00576    68300579              BEZ      T1DX5             NO
     1222   01 00577    CF001B60              HIO,0    *DEVADDR          YES: RESET DEVICE WITH HIO
     1223   01 00578    6800057E              B        T1DE0             BRANCH TO REPORT ROUTINE
     1224   01 00579    33000528     T1DX5    MTW,0    T1DCI             INDIRECT PARAMETER
     1225   01 0057A    6830057D              BEZ      %+3               NO
     1226   01 0057B    32900528              LW,9     T1DCI             RESTORE R9
     1227   01 0057C    33100009 A            MTW,1    9                 INCREMENT RARAMETER ADR
     1228   01 0057D    65600560     T1DX6    BIR,6    T1DX1             GO TO TEST NEXT BIT
     1229                            *
     1230                            *        ***REPORT LOOP***
     1231                            *
     1232   01 0057E    33001B7D     T1DE0    MTW,0    DISPLAY
     1233   01 0057F    69300585              BNEZ     T1DE2
     1234   01 00580    3300052A              MTW,0    T1DCE             TEST ERROR CNT
     1235   01 00581    683005C7              BEZ      T1DE5             B: NO ERRORS DURING TEST
     1236   01 00582    72F00525     T1DE1    LB,15    T1DINHP
     1237   01 00583    21F00002 A            CI,15    2                 TEST PRINT INHIBIT FLAG
     1238   01 00584    694005C7              BCS,4    T1DE5             SKIP PRINT
     1239   01 00585    6AF009AE     T1DE2    BAL,15   #SENSE
     1240   01 00586    691005C7              BCS,1    T1DE5             B: PRINT INHIBITED - SSW 4 ON
     1241   01 00587    32A01B68              LW,10    SUBTNR            FETCH SUBTEST NO
     1242   01 00588    35A00EE4              STW,10   VDEC3A            SAVE SUBTEST NO
     1243   01 00589    32A01B60              LW,10    DEVADDR           LOAD DEVICE ADDRESS
     1244   01 0058A    35A00EE7              STW,10   VHEX4A                IN PRINT MESSAGE
     1245   01 0058B    32F00204              LW,15    :P4               TEST PARAMETER 4
     1246   01 0058C    693005AA              BNEZ     T1DE2A            B: SELECTIVE SUPPRESSION
     1247   01 0058D    6AF00B7B              BAL,15   #MSGP
     1248   01 0058E    00003CDA              DATA     MX035             PRINT MSG 35 - HEADING
     1249   01 0058F    22403CE8              LI,4     MX036             ***ERROR***
     1250   01 00590    3300052A              MTW,0    T1DCE             TEST ERROR COUNT
     1251   01 00591    69300593              BCS,3    %+2               BRANCH IF ERROR
     1252   01 00592    22403D0A              LI,4     MX040             ***DISPLAY***
     1253   01 00593    35400595              STW,4    %+2               STORE IT AS MESSAGE ADDR
     1254   01 00594    6AF00B7B              BAL,15   #MSGP             PRINT
     1255   01 00595    00000000 A            DATA     0                 MX036 OR MX040
     1256   01 00596    12400538              LD,4     T1DID             FETCH PARAMETERS
     1257   01 00597    30400005 A            AW,4     5                 ENDING ADR OF MSG TABLE
     1258   01 00598    3A500005 A            LCW,5    5                 NEG MESSAGE COUNT
     1259   01 00599    B2CA0004 A   T1DE20   LW,12    *4,5              FETCH MSG ADR
     1260   01 0059A    35C0059C              STW,12   %+2
     1261   01 0059B    6AF00B7B              BAL,15   #MSGP
     1262   01 0059C    00000000 A            DATA     0                 PRINT ID
     1263   01 0059D    65500599              BIR,5    T1DE20            B: PRINT NEXT MSG
     1264   01 0059E    6AF00B7B              SEND     MX037             ***
            01 0059F    00003CEC
     1265   01 005A0    32F0053C              LW,15    T1DVCNT           GET VARIATION COUNT
     1266   01 005A1    683005A5              BEZ      %+4
     1267   01 005A2    35F00EE4              STW,15   VDEC3A
     1268   01 005A3    6AF00B7B              SEND     MX080             TEST VARIATION : ...
            01 005A4    00003DD4
     1269   01 005A5    32F0053B              LW,15    T1DMSEQC          FETCH SEQUENCE NO
     1270   01 005A6    683005AA              BEZ      T1DE2A            B: SEQUENCE ZERO
     1271   01 005A7    35F00EE4              STW,15   VDEC3A
     1272   01 005A8    6AF00B7B              SEND     MX085             REPORT MULTIPLE SEQUENCE
            01 005A9    00003DE5
     1273   01 005AA    226FFFF0 A   T1DE2A   LI,6     -16               INIT. INDEX
     1274   01 005AB    22800001 A            LI,8     1                 INIT. MASK
     1275   01 005AC    2580027F A   T1DE3    SCS,8    -1                PREPARE MASK
     1276   01 005AD    32F00529              LW,15    T1DCP             TEST PERFORMANCE WORD
     1277   01 005AE    4BF00008 A            AND,15   8
     1278   01 005AF    683005BE              BEZ      T1DE              NO PERFORMANCE
     1279   01 005B0    32F00204              LW,15    :P4               TEST PARAMETER 4
     1280   01 005B1    55F0000F A            STH,15   15                ADJUST IT
     1281   01 005B2    4BF00008 A            AND,15   8                 AND WITH MASK
     1282   01 005B3    693005BE              BNEZ     T1DE              SKIP  REPORTING
     1283   01 005B4    6AF00B7B              SEND     MX037             ***
            01 005B5    00003CEC
     1284   01 005B6    32F0052A              LW,15    T1DCE             TEST ERROR CONTROL WORD
     1285   01 005B7    4BF00008 A            AND,15   8
     1286   01 005B8    683005BB              BEZ      T1DE4             NO ERROR
     1287   01 005B9    6AF00B7B              SEND     MX036             ***ERROR***
            01 005BA    00003CE8
     1288   01 005BB    22000000 A   T1DE4    LI,0     0                 RESET REG.0
     1289   01 005BC    B2FC05E4              LW,15    *T1DSEQA,6        GET SUBROUTINE ADR
     1290   01 005BD    EAA2000F A            BAL,10   *15,1             B: REPORT
     1291   01 005BE    656005AC     T1DE     BIR,6    T1DE3             LOOP    NEXT SET OF MSG'S
     1292   01 005BF    32F00204              LW,15    :P4               TEST PARAMETER 4
     1293   01 005C0    693005C7              BNEZ     T1DE5             B: SELECTIVE SUPPRESSION
     1294   01 005C1    33000524              MTW,0    T1DEAB            TEST ABORT FLAG
     1295   01 005C2    683005C5              BEZ      T1DE4B            B: TEST SEQUENCE TERMINATED NORMALLY
     1296   01 005C3    6AF00B7B              BAL,15   #MSGP
     1297   01 005C4    00003CEE              DATA     MX038             PRINT MSG 38
     1298   01 005C5    6AF00B7B     T1DE4B   BAL,15   #MSGP
     1299   01 005C6    00003D14              DATA     MX042             PRINT MSG 42
     1300   01 005C7    6AF009AE     T1DE5    BAL,15   #SENSE
     1301   01 005C8    694005CF              BCS,4    T1DE6             SENSE SWITCH 2 SET
     1302   01 005C9    3300052A              MTW,0    T1DCE             ERROR COUNT
     1303   01 005CA    683005E1              BEZ      T1DEXIT
     1304   01 005CB    EAF0021D              BAL,15   *:SENSE
     1305   01 005CC    2E000000 A            WAIT
     1306   01 005CD    680005D6              B        T1DE8             LOOP
     1307   01 005CE    680005E1              B        T1DEXIT           CONTINUE
     1308   01 005CF    33000526     T1DE6    MTW,0    T1DPEF            PREVIOUS ERROR FLAG SET
     1309   01 005D0    683005E1              BEZ      T1DEXIT           NO
     1310   01 005D1    3300052A              MTW,0    T1DCE             ERROR CONTROL
     1311   01 005D2    693005D6              BNEZ     T1DE8             ERROR IN CURRENT TEST
     1312   01 005D3    32F0053B              LW,15    T1DMSEQC          GET SEQUENCE NO
     1313   01 005D4    31F0053A              CW,15    T1DMSEQ
     1314   01 005D5    691005E1              BL       T1DEXIT           NOT FINAL SEQUENCE
     1315   01 005D6    72F00525     T1DE8    LB,15    T1DINHP
     1316   01 005D7    21F00001 A            CI,15    1                 TEST LOOP INHIBIT FLAG
     1317   01 005D8    694005E1              BCS,4    T1DEXIT           YES
     1318   01 005D9    32F00525              LW,15    T1DINHP           GET LOOP ADDRESS
     1319   01 005DA    4BF01BFF              AND,15   KXN02
     1320   01 005DB    693005DE              BNEZ     %+3               LOOP ADR PRESENT
     1321   01 005DC    32F00537              LW,15    T1DS+11           RESTORE R15
     1322   01 005DD    68000540              B        T1DL              LOOP ON TEST DRIVER
     1323   01 005DE    022000B0 A            LCI      11
     1324   01 005DF    2A40052C              LM,4     T1DS              RESTORE R4 TO R14
     1325   01 005E0    E800000F A            B        *15               GO TO TRANSFER ADR
     1326   01 005E1    022000C0 A   T1DEXIT  LCI      12
     1327   01 005E2    2A40052C              LM,4     T1DS              RESTORE R4 TO R15
     1328   01 005E3    E802000F A            B        *15,1             RETURN TO SUBTEST
     1329                            *
     1330                            *
     1331                            *        SUBROUTINE ADR TABLE
     1332                            *
     1333   01 005E4    00000000 A   T1DSEQA  DATA     0                 CURRENT TABLE ADR
     1334   01 005E5    000005F6     T1DSEQT  DATA     T1DSEQ0+16        ENDING ADR OF SEQ 0
     1335         01 005E6           T1DSEQ0  EQU      %
     1336   01 005E6    00000612              DATA     T1APT             PATTERN SPREAD
     1337   01 005E7    0000062A              DATA     T1ATM             TEST MODE SELECTION
     1338   01 005E8    0000066A              DATA     T1ASK             SEEK
     1339   01 005E9    000006AE              DATA     T1AIS             INSTRUCTION SEQUENCE ROUTINE
     1340   01 005EA    000006EA              DATA     T1AEX             EXECUTE ROUTINE
     1341   01 005EB    000005F7              DATA     T1AES1            ESCAPE ROUTINE 1
     1342   01 005EC    0000070D              DATA     T1ASIO            START IO ROUTINE
     1343   01 005ED    00000721              DATA     T1AWT             WAIT ROUTINE
     1344   01 005EE    00000600              DATA     T1AES2            ESCAPE ROUTINE 2
     1345   01 005EF    00000864              DATA     T1AST             STEPPING ROUTINE
     1346   01 005F0    00000833              DATA     T1AIO1            IO INSTR ROUTINE -1
     1347   01 005F1    0000083E              DATA     T1AIO2            IO INSTR ROUTINE -2
     1348   01 005F2    00000849              DATA     T1AIO3            IO INSTR ROUTINE -3
     1349   01 005F3    000008E7              DATA     T1ASN             SENSE ROUTINE
     1350   01 005F4    00000983              DATA     T1ACP             COMPARE ROUTINE
     1351   01 005F5    00000609              DATA     T1AES3            ESCAPE ROUTINE 3
     1352   01 005F6    00000421     T1DSEQ1  DATA     PROGERR
1 C00   21:47 JUN 20,'83    TELEFILE ROTATING MEMORY TEST 960-0604-H02                            PAGE   13
A    1354                            *
     1355                            *
     1356                            *
     1357                            *
     1358                            *        *** TEST DRIVER-INTERFACE SUBROUTINE REQUIREMENTS
     1359                            *
     1360                            * EACH TEST SUBROUTINE INTERFACED TO THE TEST DRIVER CONSISTS OF
     1361                            * THE FOLLOWING SECTIONS
     1362                            *
     1363                            * 1. PARAMETER AND ADR TABLE:
     1364                            * (LABEL)1ST WORD: PARAMETER FLAG (0= NO PARAM. IN TABLE)
     1365                            *        2ND WORD: ENTRANCE TO REPORT ROUTINE
     1366                            *        3RD WORD: ENTRANCE TO EXECUTION ROUTINE
     1367                            *
     1368                            * 2. EXECUTE ROUTINE
     1369                            *        AT ENTRY, R9 = ADR OF PARAMETER TABLE
     1370                            *        EACH SUBROUTINE SAVES ALL REQUIRED PARAMETERS AND INCR R9
     1371                            *        BY THE CORRESPONDING CNT
     1372                            *        EXECUTES TEST, SAVES THE OBSERVED RESULTS AND EXITS AS
     1373                            *        FOLLOWS:
     1374                            *                B    T1DXN   SUCCESS RETURN    OR    B     *10
     1375                            *                B    T1DXE   FAILURE RETURN    OR    B     *10,1
     1376                            *
     1377                            * 3. REPORT ROUTINE
     1378                            *        PRINT INFORMATION STORED BY THE EXECUTE ROUTINE IS PRINTED.
     1379                            *        EXIT: B     T1DE        OR      B     *10
     1380                            *
     1381                            *
     1382                            *
     1383                            *
     1384                            *        ***T1-ES  ESCAPE SUBROUTINES***
     1385                            *
     1386                            * THIS ROUTINE ALLOWS THE PROGRAMMER TO ESCAPE OUT OF THE
     1387                            * SEQUENCE OF THE FTD TO PERFORM INSTRUCTIONS WHICH ARE
     1388                            * INDIVIDUAL TO A SUBTEST.
     1389                            *
     1390                            * PARAMETERS:
     1391                            * A.IMMEDATE      ES1    T53X1,T53X2 (ADR. OF EXEC./REPORT ROUT.)
     1392                            * B.INDIRECT      ES1    *T44X
     1393                            *
     1394                            *
     1395   01 005F7    00000001 A   T1AES1   DATA     1                 PARAMETER FLAG
     1396   01 005F8    E80005FF              B        *T1DES1+1         REPORT ROUTINE
     1397   01 005F9    02200020 A            LCI      2                 SAVE
     1398   01 005FA    AAC00009 A            LM,12    *9                    ADDRESSES OF
     1399   01 005FB    2BC005FE              STM,12   T1DES1                      EXECUTION AND REPORT ROUTINE
     1400   01 005FC    20900002 A            AI,9     2                 INCREMENT REG.9
     1401   01 005FD    E80005FE              B        *T1DES1           GO TO ESCAPE EXECUTION ROUT.
     1402                            *
     1403   01 005FE    00000000 A   T1DES1   DATA     0,0
            01 005FF    00000000 A
     1404                            *
     1405   01 00600    00000001 A   T1AES2   DATA     1
     1406   01 00601    E8000608              B        *T1DES2+1
     1407   01 00602    02200020 A            LCI      2
     1408   01 00603    AAC00009 A            LM,12    *9
     1409   01 00604    2BC00607              STM,12   T1DES2
     1410   01 00605    20900002 A            AI,9     2
     1411   01 00606    E8000607              B        *T1DES2
     1412                            *
     1413   01 00607    00000000 A   T1DES2   DATA     0,0
            01 00608    00000000 A
     1414                            *
     1415   01 00609    00000001 A   T1AES3   DATA     1
     1416   01 0060A    E8000611              B        *T1DES3+1
     1417   01 0060B    02200020 A            LCI      2
     1418   01 0060C    AAC00009 A            LM,12    *9
     1419   01 0060D    2BC00610              STM,12   T1DES3
     1420   01 0060E    20900002 A            AI,9     2
     1421   01 0060F    E8000610              B        *T1DES3
     1422                            *
     1423   01 00610    00000000 A   T1DES3   DATA     0,0
            01 00611    00000000 A
     1424                            *
     1425                            *
     1426                            *        ***T1-PATT  PATTERN SPREAD SUBROUTINE***
     1427                            *
     1428                            * THIS ROUTINE USES THE PATTERN SPREAD SUBROUTINE
     1429                            *
     1430                            * PARAMETERS:     NONE
     1431                            *
     1432                            *
     1433   01 00612    00000000 A   T1APT    DATA       0                 PARAMETER FLAG
     1434   01 00613    68000619              B          T1EPT           ADDR. OF REPORT ROUTINE
     1435                            *
     1436                            *
     1437                            *
     1438   01 00614    6AF00B44     T1XPT    BAL,15   #PATT             PATTERN SPREAD ROUTINE
     1439   01 00615    32F01B6E              LW,15    BFRA              CLEAR BUFFER B
     1440   01 00616    E830000A A            BEZ      *10                  IF BUFFER ADDRESS A IS
     1441   01 00617    6AF00AAA              BAL,15   #CLEARB                  NOT EQUAL ZERO.
     1442   01 00618    E800000A A            B        *10               RETURN TO FTD
     1443                            *
     1444   01 00619    32F01B6B     T1EPT    LW,15    PATID             GET PATTERN TYPE
     1445   01 0061A    35F00EE1              STW,15   VDEC1A              AND STORE IT FOR MESSAGE
     1446   01 0061B    32F01B6E              LW,15    BFRA              GET BUFFER A ADDRESS
     1447   01 0061C    6930061E              BNEZ     %+2               BUFFER ADDRESS A
     1448   01 0061D    32F01B6F              LW,15    BFRB              BUFFER ADDRESS B
     1449   01 0061E    35F00EEF              STW,15   VHEX6B            STORE IT FOR MESSAGE
     1450   01 0061F    6AF00B7B              SEND     MX045             SPREAD DATA...
            01 00620    00003D2B
     1451   01 00621    6AF00B7B              SEND     MX044             PATTERN TYPE...
            01 00622    00003D22
     1452   01 00623    32F01B6E              LW,15    BFRA              REPORT THE CLEARING OF
     1453   01 00624    E830000A A            BEZ      *10                       OF BUFFER B
     1454   01 00625    32F01B6F              MVW      BFRB,VHEX6A         IF BUFFER ADDRESS A
            01 00626    35F00EE8
     1455   01 00627    6AF00B7B              SEND     MX041                       WAS NOT EQUAL ZERO.
            01 00628    00003D0E
     1456   01 00629    E800000A A            B        *10               RETURN TO FTD
     1457                            *
     1458                            *
     1459                            *
     1460                            *        ***T1-TM  TEST MODE SELECTION***
     1461                            *
     1462                            * THIS ROUTINE ISSUES A TEST MODE SELECTION ORDER AND TESTS THE
     1463                            * RETURNED STATUS. IF ANY ERROR OCCURS THE TEST WILL BE ABORTED.
     1464                            *
     1465                            * PARAMETERS:     NONE
     1466                            *
     1467                            * REGISTERS USED: 4,5,12,13,14,15
     1468                            *
     1469                            *
     1470                            *
     1471   01 0062A    00000000 A   T1ATM    DATA       0                 PARAMETER FLAG
     1472   01 0062B    68000642              B          T1ETM           ADDR. OF REPORT ROUTINE
     1473                            *
     1474                            *
     1475                            *
     1476                            *
     1477   01 0062C    22F00000 A   T1XTM    LI,15    0                 RESET
     1478   01 0062D    35F00668              STW,15   T1DTM6              TEST COUNT
     1479   01 0062E    3510065B              STW,1    T1DTM1            RESET DELAY ERROR FLAG
     1480   01 0062F    22400656              LI,4     T1DTM             LOAD ADDRESS OF DATA BASE
     1481   01 00630    6AF009B1              BAL,15   #IOEX             TEST AND SAVE STATUS/CC
     1482   01 00631    68000633              B        %+2               OK
     1483   01 00632    68000640              B        T1XTM9            ERROR: ABORT EXIT
     1484   01 00633    33100668              MTW,1    T1DTM6            INCREMENT TEST COUNT
     1485   01 00634    6AF00B6B              BAL,15   #CORD             WAIT TILL CONTROLLER IS READY
     1486   01 00635    3520065B              STW,2    T1DTM1            ERROR: SET DELAY ERROR FLAG
     1487   01 00636    2240065B              LI,4     T1DTM1            LOAD ADDRESS OF DATA BASE
     1488   01 00637    6AF009B1              BAL,15   #IOEX             TEST AND SAVE STATUS/CC
     1489   01 00638    6800063A              B        %+2               OK
     1490   01 00639    68000640              B        T1XTM9            ERROR: ABORT EXIT
     1491   01 0063A    33100668              MTW,1    T1DTM6            INCREMENT TEST COUNT
     1492   01 0063B    22400660              LI,4     T1DTM2            LOAD ADDRESS OF DATA BASE
     1493   01 0063C    6AF009B1              BAL,15   #IOEX             TEST AND SAVE STATUS/CC
     1494   01 0063D    6800063F              B        %+2
     1495   01 0063E    68000640              B        T1XTM9
     1496   01 0063F    E800000A A            B        *10
     1497                            *
     1498   01 00640    33100524     T1XTM9   MTW,1    T1DEAB            SET ABORT FLAG
     1499   01 00641    E802000A A            B        *10,1             ERROR RETURN
     1500                            *
     1501   01 00642    52F01B71     T1ETM    LH,15    TMODB             STORE TEST MODE SELECTION
     1502   01 00643    35F00EE7              STW,15   VHEX4A               BYTES IN MESSAGE
     1503   01 00644    52F0052A              LH,15    T1DCE             TEST ERROR CONTROL WORD
     1504   01 00645    21F04000 A            CI,15    X'4000'
     1505   01 00646    6940064A              BCS,4    T1ETM1            ERROR
     1506   01 00647    6AF00B7B              SEND     MX053             TEST MODE SELECTION EXECUTED..
            01 00648    00003D32
     1507   01 00649    E800000A A            B        *10               RETURN
     1508   01 0064A    32500668     T1ETM1   LW,5     T1DTM6            LOAD TEST COUNTER
     1509   01 0064B    6AF00B7B              SEND     MX057             TEST MODE SELECTION ORDER
            01 0064C    00003D48
     1510   01 0064D    324A0665              LW,4     T1DTM5,5          LOAD ADDRESS OF DATA BASE
     1511   01 0064E    B1200004 A            CW,2     *4                TEST IF DELAY ERROR FLAG IS SET
     1512   01 0064F    69300654              BNE      T1ETM3            NO
     1513   01 00650    22F003E8 A            LI,15    1000              PREPARE
     1514   01 00651    35F00EE3              STW,15   VDEC4A            STORE IN MESSAGE
     1515   01 00652    6AF00B7B              SEND     MX019             NOT READY 1000 MSEC AFTER SIO
            01 00653    00003C7A
     1516   01 00654    6AF009DB     T1ETM3   BAL,15   #IOCP             PRINT IO STATUS
     1517   01 00655    E800000A A            B        *10               RETURN
     1518                            *
     1519   01 00656    00000EF9     T1DTM    DATA     DA(IOCDX13)       IOCD ADDRESS
     1520   01 00657    00000000 A            DATA     0                 SIO
     1521   01 00658    10000000 A            DATA     X'10000000'       EXPECTED STATUS/CC
     1522   01 00659    9700C000 A            DATA     X'9700C000'       MASK
     1523   01 0065A    00000000 A            DATA     0                 OBSERVED STATUS
     1524   01 0065B    00000000 A   T1DTM1   DATA     0                 DELAY ERROR FLAG
     1525   01 0065C    00000001 A            DATA     1                 TIO
     1526   01 0065D    10000000 A            DATA     X'10000000'       EXPECTED STATUS/CC
     1527   01 0065E    9FFFC000 A            DATA     X'9FFFC000'       MASK
     1528   01 0065F    00000000 A            DATA     0                 OBSERVED STATUS
     1529   01 00660    00000000 A   T1DTM2   DATA     0
     1530   01 00661    00000014 A            DATA     20                TDV WITH ADDRESS X'F'
     1531   01 00662    00004000 A            DATA     X'4000'           EXPECTED STATUS/CC
     1532   01 00663    FFFFC000 A            DATA     X'FFFFC000'       MASK
     1533   01 00664    00000000 A            DATA     0                 OBSERVED STATUS
     1534                            *
     1535   01 00665    00000656     T1DTM5   DATA     T1DTM,T1DTM1,T1DTM2
            01 00666    0000065B
            01 00667    00000660
     1536   01 00668    00000000 A   T1DTM6   DATA     0
     1537   01 00669                 T1DTM7   RES      1
     1538                            *
     1539                            *
     1540                            *
     1541                            *
     1542                            *        ***T1-SK  SEEK***
     1543                            *
     1544                            * THIS ROUTINE ISSUES A  SEEK ORDER AND TESTS THE RETURNED
     1545                            *  STATUS. IF ANY ERROR OCCURS THE TEST WILL BE ABORTED.
     1546                            *
     1547                            * PARAMETERS:     NONE
     1548                            *
     1549                            * REGISTERS USED: 4,5,12,13,14,15
     1550                            *
     1551                            *
     1552                            *
     1553   01 0066A    00000000 A   T1ASK    DATA       0                 PARAMETER FLAG
     1554   01 0066B    68000683              B          T1ESK           ADDR. OF REPORT ROUTINE
     1555                            *
     1556                            *
     1557                            *
     1558                            *
     1559   01 0066C    22F00000 A   T1XSK    LI,15    0                 RESET
     1560   01 0066D    35F006AD              STW,15   T1DSK6              TEST COUNT
     1561   01 0066E    351006A0              STW,1    T1DSK1            RESET DELAY ERROR FLAG
     1562   01 0066F    2240069B              LI,4     T1DSK             LOAD ADDRESS OF DATA BASE
     1563   01 00670    6AF009B1              BAL,15   #IOEX             TEST AND SAVE STATUS/CC
     1564   01 00671    68000673              B        %+2               OK
     1565   01 00672    68000681              B        T1XSK9            ERROR: ABORT EXIT
     1566   01 00673    331006AD              MTW,1    T1DSK6            INCREMENT TEST COUNT
     1567   01 00674    6AF00B72              BAL,15   #DERD             WAIT TILL DEVICE ON CYLINDER
     1568   01 00675    352006A0              STW,2    T1DSK1            ERROR: SET DELAY ERROR FLAG
     1569   01 00676    224006A0              LI,4     T1DSK1            LOAD ADDRESS OF DATA BASE
     1570   01 00677    6AF009B1              BAL,15   #IOEX             TEST AND SAVE STATUS/CC
     1571   01 00678    6800067A              B        %+2               OK
     1572   01 00679    68000681              B        T1XSK9            ERROR: ABORT EXIT
     1573   01 0067A    331006AD              MTW,1    T1DSK6            INCREMENT TEST COUNT
     1574   01 0067B    32F01B71              LW,15    TMODB
     1575   01 0067C    4BF01BFB              AND,15   KY0400            NO TDV IN DEVICE TEST MODE
     1576   01 0067D    E930000A A            BNEZ     *10
     1577   01 0067E    224006A5              LI,4     T1DSK2            LOAD ADDRESS OF DATA BASE
     1578   01 0067F    6AF009B1              BAL,15   #IOEX             TEST AND SAVE STATUS/CC
     1579   01 00680    E800000A A            B        *10               NORMAL EXIT
     1580   01 00681    33100524     T1XSK9   MTW,1    T1DEAB            SET ABORT FLAG
     1581   01 00682    E802000A A            B        *10,1             ERROR RETURN
     1582                            *
     1583   01 00683    32F01B72     T1ESK    LW,15    SKADR             GET SEEK ADDRESS
     1584   01 00684    35F00EED              STW,15   VHEX2B              AND STORE SECTOR ADDR
     1585   01 00685    72E4000F A            LB,14    15,2              AND
     1586   01 00686    35E00EE6              STW,14   VHEX2A                 HEAD ADDRESS
     1587   01 00687    52E0000F A            LH,14    15                AND
     1588   01 00688    35E00EE7              STW,14   VHEX4A              CYLINDER ADDR. IN MESSAGE
     1589   01 00689    52F0052A              LH,15    T1DCE             TEST ERROR CONTROL WORD
     1590   01 0068A    21F02000 A            CI,15    X'2000'
     1591   01 0068B    6940068F              BCS,4    T1ESK1            ERROR
     1592   01 0068C    6AF00B7B              SEND     MX055             SEEK                EXECUTED..
            01 0068D    00003D3D
     1593   01 0068E    E800000A A            B        *10               RETURN
     1594   01 0068F    325006AD     T1ESK1   LW,5     T1DSK6            LOAD TEST COUNTER
     1595   01 00690    6AF00B7B              SEND     MX059             SEEK ORDER
            01 00691    00003D50
     1596   01 00692    324A06AA              LW,4     T1DSK5,5          LOAD ADDRESS OF DATA BASE
     1597   01 00693    B1200004 A            CW,2     *4                TEST IF DELAY ERROR FLAG IS SET
     1598   01 00694    69300699              BNE      T1ESK3            NO
     1599   01 00695    22F003E8 A            LI,15    1000              PREPARE
     1600   01 00696    35F00EE3              STW,15   VDEC4A              MESSAGE
     1601   01 00697    6AF00B7B              SEND     MX060             DEVICE AFTER 1000 MSEC NOT ON CYL
            01 00698    00003D58
     1602   01 00699    6AF009DB     T1ESK3   BAL,15   #IOCP             PRINT IO STATUS
     1603   01 0069A    E800000A A            B        *10               RETURN
     1604                            *
     1605   01 0069B    00000EF0     T1DSK    DATA     DA(IOCDX03)       IOCD ADDRESS
     1606   01 0069C    00000000 A            DATA     0                 SIO
     1607   01 0069D    10000000 A            DATA     X'10000000'       EXPECTED STATUS/CC
     1608   01 0069E    9700C000 A            DATA     X'9700C000'       MASK
     1609   01 0069F    00000000 A            DATA     0                 OBSERVED STATUS
     1610   01 006A0    00000000 A   T1DSK1   DATA     0                 DELAY ERROR FLAG
     1611   01 006A1    00000001 A            DATA     1                 TIO
     1612   01 006A2    10000000 A            DATA     X'10000000'       EXPECTED STATUS/CC
     1613   01 006A3    FFFFC000 A            DATA     X'FFFFC000'       MASK
     1614   01 006A4    00000000 A            DATA     0                 OBSERVED STATUS
     1615   01 006A5    00000000 A   T1DSK2   DATA     0
     1616   01 006A6    00000004 A            DATA     4                 TDV
     1617   01 006A7    00000000 A            DATA     0                 EXPECTED STATUS/CC
     1618   01 006A8    FFFF8000 A            DATA     X'FFFF8000'       MASK
     1619   01 006A9    00000000 A            DATA     0                 OBSERVED STATUS
     1620                            *
     1621   01 006AA    0000069B     T1DSK5   DATA     T1DSK,T1DSK1,T1DSK2
            01 006AB    000006A0
            01 006AC    000006A5
     1622   01 006AD    00000000 A   T1DSK6   DATA     0
     1623                            *
     1624                            *
     1625                            *        ***T1-IS INSTRUCTION SEQUENCE ROUTINE***
     1626                            *
     1627                            * THE INSTRUCTION SEQUENCE ROUTINE COMBINES THE IO-ROUTINE AND
     1628                            * THE WT-ROUTINE, THE IO1-ROUTINE AND THE IO2-ROUTINE.
     1629                            * THE ONLY VARIABLE PARAMETER IS THE IOCD ADDRESS.
     1630                            * ALL OTHER PARAMETERS ARE CONSTANT:
     1631                            *        WAIT DELAY TYPE :  WAIT ON READY
     1632                            *        DELAY TIME      :  2000 MILLISECONDS
     1633                            *        COMMAND ADDRESS :  IO-ROUTINE IOCD ADDRESS
     1634                            *        REM. BYTECOUNT  :  ZERO
     1635                            *        TIO EXP. STATUS :  X'10000000'
     1636                            *        TIO      MASK   :  X'FFFFC000'
     1637                            *        TDV EXP. STATUS :  X'00000000'
     1638                            *        TDV      MASK   :  X'FFFFC000'
     1639                            *
     1640                            * PARAMETERS:     IS     IOCD08
     1641                            *                                   (IOCD08= DOUBLE WORD ADDRESS)
     1642                            * REGISTERS USED: 9,10,15
     1643                            * SUBROUTINES USED: IO-ROUTINE, WT-ROUTINE, IO1-ROUTINE, IO2-ROUTINE
     1644                            * THESE SUBROUTINES MAY NOT BE USED AGAIN IN THE SAME TEST SEQUENCE.
     1645                            *
     1646                            *
     1647   01 006AE    00000001 A   T1AIS    DATA     1
     1648   01 006AF    680006CB              B        T1EIS             REPORTING ROUT.
     1649                            *
     1650                            *
     1651   01 006B0    B2F00009 A   T1BIS    LW,15    *9                GET PARAMETER
     1652   01 006B1    35F006DF              STW,15   T1DIS                 AND STORE
     1653   01 006B2    35F006E2              STW,15   T1DIS+3                THEM IN THE CORRECT
     1654   01 006B3    350006DE              STW,0    T1DISI                   LOCATIONS
     1655   01 006B4    350006DD              STW,0    T1DISF
     1656   01 006B5    33100009 A            MTW,1    9                 INCR. REG 9
     1657   01 006B6    359006DC              STW,9    T1DISS             AND SAVE ITS CONTENTS.
     1658   01 006B7    229006DF              LI,9     T1DIS             LOAD PARAMETER TABLE ADDRESS
     1659   01 006B8    6AA0070F              BAL,10   T1BSIO            EXECUTE SIO ROUTINE
     1660   01 006B9    680006BC              B        %+3               OK
     1661   01 006BA    331006DD              MTW,1    T1DISF            ERROR
     1662   01 006BB    680006C7              B        T1XIS2            ABORT
     1663   01 006BC    331006DE              MTW,1    T1DISI            INCREMENT INDEX
     1664   01 006BD    6AA00723              BAL,10   T1BWT             EXECUTE WAIT ROUTINE
     1665   01 006BE    680006C0              B        %+2               OK
     1666   01 006BF    331006DD              MTW,1    T1DISF            ERROR
     1667   01 006C0    331006DE              MTW,1    T1DISI            INCREMENT INDEX
     1668   01 006C1    6AA00835              BAL,10   T1BIO1            EXECUTE IO (TIO) ROUT.
     1669   01 006C2    680006C4              B        %+2               OK
     1670   01 006C3    331006DD              MTW,1    T1DISF            ERROR
     1671   01 006C4    6AA00840              BAL,10   T1BIO2            EXECUTE IO (TDV) ROUTINE
     1672   01 006C5    680006C7              B        T1XIS2            OK
     1673   01 006C6    331006DD              MTW,1    T1DISF            ERROR
     1674   01 006C7    329006DC     T1XIS2   LW,9     T1DISS            RESTORE REG.9
     1675   01 006C8    330006DD              MTW,0    T1DISF            CHECK ERROR FLAG
     1676   01 006C9    6830056D              BEZ      T1DXN             NO ERROR
     1677   01 006CA    6800056E              B        T1DXE             ERROR
     1678                            *
     1679   01 006CB    52F0052A     T1EIS    LH,15    T1DCE             CHECK IF FTD ERROR FLAG SET?
     1680   01 006CC    21F01000 A            CI,15    X'1000'
     1681   01 006CD    694006D5              BCS,4    T1EIS1            YES
     1682   01 006CE    6AF00B7B              SEND     MX054             NO: SEND REPORT MESSAGE
            01 006CF    00003D3A
     1683   01 006D0    32C006DF              LW,12    T1DIS             LOAD IOCD ADDRESS
     1684   01 006D1    6AF00A29              BAL,15   #IOCDP               AND PRINT IOCD DATA
     1685   01 006D2    32C006DF              LW,12    T1DIS             LOAD IOCD ADDRESS
     1686   01 006D3    6AF00A47              BAL,15   #BCOP               AND PRINT BUFFER CONTENTS
     1687   01 006D4    680005BE              B        T1DE              RETURN
     1688                            *                                          ERROR REPORTING
     1689   01 006D5    6AA00717     T1EIS1   BAL,10   T1ESIO            REPORT OF SIO ROUTINE
     1690   01 006D6    330006DE              MTW,0    T1DISI            CHECK INDEX
     1691   01 006D7    683005BE              BEZ      T1DE              ABORT IF ZERO
     1692   01 006D8    6AA007A6              BAL,10   T1EWT             REPORT OF WAIT ROUTINE
     1693   01 006D9    6AA00837              BAL,10   T1EIO1            REPORT OF IO1 ROUTINE (TIO)
     1694   01 006DA    6AA00842              BAL,10   T1EIO2            REPORT OF IO2 ROUTINE (TDV)
     1695   01 006DB    680005BE              B        T1DE              RETURN
     1696                            *
     1697                            *
     1698   01 006DC                 T1DISS   RES      1
     1699   01 006DD                 T1DISF   RES      1
     1700   01 006DE                 T1DISI   RES      1
     1701                            *
     1702   01 006DF    00000000 A   T1DIS    DATA     0                 PARAMETER FOR IO- ROUTINE
     1703   01 006E0    00000000 A            DATA     0,2000,0,0        PARAMETER FOR WT- ROUTINE
            01 006E1    000007D0 A
            01 006E2    00000000 A
            01 006E3    00000000 A
     1704   01 006E4    00000001 A            DATA     1,X'10000000',X'FFFFC000' P. FOR TIO
            01 006E5    10000000 A
            01 006E6    FFFFC000 A
     1705   01 006E7    00000004 A            DATA     4,X'000000',X'FFFFC000' P. FOR TDV
            01 006E8    00000000 A
            01 006E9    FFFFC000 A
     1706                            *
     1707                            *
     1708                            *        ***T1-EX EXECUTION ROUTINE***
     1709                            *
     1710                            * THE EXECUTION ROUTINE COMBINES THE IO-ROUTINE AND
     1711                            * THE WT-ROUTINE. THE ONLY VARIABLE PARAMETER IS THE IOCD ADDRESS.
     1712                            * ALL OTHER PARAMETERS ARE CONSTANT:
     1713                            *        WAIT DELAY TYPE :  WAIT ON READY
     1714                            *        DELAY TIME      :  60 MILLISECONDS
     1715                            *        COMMAND ADDRESS :  IO-ROUTINE IOCD ADDRESS
     1716                            *        REM. BYTECOUNT  :  ZERO
     1717                            *
     1718                            * PARAMETERS:     EX     IOCD08
     1719                            *                                   (IOCD08= DOUBLE WORD ADDRESS)
     1720                            * REGISTERS USED: 9,10,15
     1721                            * SUBROUTINES USED: IO-ROUTINE, WT-ROUTINE
     1722                            * THESE SUBROUTINES MAY NOT BE USED AGAIN IN THE SAME TEST SEQUENCE.
     1723                            *
     1724                            *
     1725   01 006EA    00000001 A   T1AEX    DATA     1
     1726   01 006EB    68000700              B        T1EEX             REPORTING ROUT.
     1727                            *
     1728                            *
     1729   01 006EC    B2F00009 A   T1BEX    LW,15    *9                GET PARAMETER
     1730   01 006ED    35F00708              STW,15   T1DEX              AND SAVE THEM.
     1731   01 006EE    35F0070B              STW,15   T1DEX+3
     1732   01 006EF    35000707              STW,0    T1DEXI             RESET INDEX
     1733   01 006F0    35000706              STW,0    T1DEXF            RESET ERROR FLAG
     1734   01 006F1    33100009 A            MTW,1    9                 INCR. REG.9
     1735   01 006F2    35900705              STW,9    T1DEXS            SAVE REG.9
     1736   01 006F3    22900708              LI,9     T1DEX             LO AD ADDRESS OF PARAMETER TABLE
     1737   01 006F4    6AA0070F              BAL,10   T1BSIO            EXECUTE SIO ROUTINE
     1738   01 006F5    680006F8              B        %+3               OK
     1739   01 006F6    33100706              MTW,1    T1DEXF            ERROR
     1740   01 006F7    680006FC              B        T1XEX2            ABORT
     1741   01 006F8    33100707              MTW,1    T1DEXI            INCREMENT INDEX
     1742   01 006F9    6AA00723              BAL,10   T1BWT             EXECUTE WAIT ROUTINE
     1743   01 006FA    680006FC              B        %+2               OK
     1744   01 006FB    33100706              MTW,1    T1DEXF            ERROR
     1745   01 006FC    32900705     T1XEX2   LW,9     T1DEXS            RESTORE REG.9
     1746   01 006FD    33000706              MTW,0    T1DEXF            CHECK ERROR FLAG
     1747   01 006FE    6830056D              BEZ      T1DXN             NO ERRORS
     1748   01 006FF    6800056E              B        T1DXE             ERRORS
     1749                            *
     1750   01 00700    6AA00717     T1EEX    BAL,10   T1ESIO            REPORT OF SIO ROUTINE
     1751   01 00701    33000707              MTW,0    T1DEXI            CHECK INDEX
     1752   01 00702    683005BE              BEZ      T1DE              ABORT
     1753   01 00703    6AA007A6              BAL,10   T1EWT             REPORT FOR WAIT ROUTINE
     1754   01 00704    680005BE              B        T1DE
     1755                            *
     1756   01 00705                 T1DEXS   RES      1
     1757   01 00706                 T1DEXF   RES      1
     1758   01 00707                 T1DEXI   RES      1
     1759                            *
     1760   01 00708    00000000 A   T1DEX    DATA     0                 PARAMETER FOR IO- ROUTINE
     1761   01 00709    00000000 A            DATA     0,60,0,0          PARAMETER FOR WT- ROUTINE
            01 0070A    0000003C A
            01 0070B    00000000 A
            01 0070C    00000000 A
     1762                            *
     1763                            *
     1764                            *        *** T1-SIO - START IO SUBROUTINE ***
     1765                            *
     1766                            * THIS ROUTINE ISSUES A SIO INSTRUCTION AND TESTS FOR THE ACCEPTANCE
     1767                            * OF THE SIO AND DEVICE AUTOMATIC
     1768                            *
     1769                            * PARAMETERS:
     1770                            * A. IMMEDIATE:(SIO,IOCD  -  DOUBLE WORD ADR)
     1771                            * B. INDIRECT: (SIO,*LABEL) WHERE LOCATION LABEL CONTAINS THE IOCD
     1772                            *                           DOUBLEWORD ADR)
     1773                            *
     1774                            * REGISTERS USED: R4,R5,R12,R13,R14,R15
     1775                            *
     1776                            *
     1777                            *
     1778   01 0070D    00000001 A   T1ASIO   DATA       1                 PARAMETER FLAG
     1779   01 0070E    68000717              B          T1ESIO          ADDR. OF REPORT ROUTINE
     1780                            *
     1781   01 0070F    B2C00009 A   T1BSIO   LW,12    *9                FETCH IOLD ADR
     1782   01 00710    35C0071C              STW,12   T1DSIO            SAVE IOCD ADR
     1783   01 00711    20900001 A            AI,9     1                 INCR PARAMETER ADR
     1784   01 00712    2240071C     T1XSIO   LI,4     T1DSIO            FETCH ADR OF DATA BASE
     1785   01 00713    6AF009B1              BAL,15   #IOEX             TEST AND SAVE STATUS/CC
     1786   01 00714    E800000A A            B        *10               EXIT TO DRIVER - NORMAL
     1787   01 00715    33100524              MTW,1    T1DEAB            SET ABORT FLAG
     1788   01 00716    E802000A A            B        *10,1             ERROR RETURN
     1789   01 00717    6AF00B7B     T1ESIO   BAL,15   #MSGP
     1790   01 00718    00003C60              DATA     MX016             PRINT MSG 16
     1791   01 00719    2240071C              LI,4     T1DSIO            FETCH ADR OF DATA BASE
     1792   01 0071A    6AF009DB              BAL,15   #IOCP             PRINT IO STATUS
     1793   01 0071B    E800000A A            B        *10               EXIT
     1794                            *
     1795   01 0071C    00000000 A   T1DSIO   DATA     0                 IOCD ADR
     1796   01 0071D    00000000 A            DATA     0                 TYPE = 0 (SIO)
     1797   01 0071E    10000000 A            DATA     X'10000000'       EXPECTED STATUS/CC
     1798   01 0071F    9700C000 A            DATA     X'9700C000'       MASK
     1799   01 00720    00000000 A            DATA     0                 OBSERVED STATUS (0-15),CC (16-17)
     1800                            *
     1801                            *        *** T1-WT - WAIT FOR IO COMPLETION SUBROUTINE ***
     1802                            *
     1803                            * THIS ROUTINE USES COUNTER 4 INTERRUPT (2MSEC CLOCK INTERVALS) TO
     1804                            * TIME OUT THE PERIOD DURING WHICH AN IO INTERRUPT IS EXPECTED OR
     1805                            * THE CONTROLLER IS EXPECTED TO RETURN TO THE READY STATE.
     1806                            * IF AN INTERRUPT IS EXPECTED, THE AIO STATUS WILL BE TESTED.
     1807                            * THE FOLLOWING TESTS WILL BE PERFORMED DURING WAIT-FOR-READY.
     1808                            * 1. CONTROLLER AND DEVICE STATE; 2. CURRENT COMMAND ADR; 3. REMAINING
     1809                            * BYTE CNT.
     1810                            *
     1811                            * PARAMETERS:
     1812                            * A. IMMEDIATE: (WAIT,INT,DELAY,EXP CCA,EXP BC,EXP AIO STAT/CC,AIO MASK)
     1813                            *               (WAIT,RDY,DELAY,EXP CCA,EXP BC)
     1814                            *               (WAIT,DLY,DELAY)
     1815                            * B. INDIRECT:  (WAIT,*LABEL) WHERE LOCATION LABEL CONTAINS THE FIRST
     1816                            *               PARAMETER.
     1817                            * NOTE:  EXP BC BITS 0-15=STARTING BC, BITS 16-31=EXP REMAINING BC
     1818                            *
     1819                            * REGISTERS USED: R4,R5,R12-R15
     1820                            *
     1821                            *
     1822   01 00721    00000001 A   T1AWT    DATA       1                 PARAMETER FLAG
     1823   01 00722    680007A6              B          T1EWT           ADDR. OF REPORT ROUTINE
     1824                            *
     1825                            *
     1826   01 00723    32400009 A   T1BWT    LW,4     9                 FETCH ADR OF PARAMETERS
     1827   01 00724    B2500004 A            LW,5     *4                LOAD TYPE
     1828   01 00725    325A0728              LW,5     T1BWTD,5          GET PARAMETER COUNT
     1829   01 00726    30900005 A            AW,9     5                 INCR PARAMETER ADR
     1830   01 00727    6800072B              B        T1BWTS            B: SAVE PARAMETERS
     1831   01 00728    00000004 A   T1BWTD   DATA     4
     1832   01 00729    00000006 A            DATA     6
     1833   01 0072A    00000002 A            DATA     2
     1834                            *
     1835   01 0072B    02200040 A   T1BWTS   LCI      4
     1836   01 0072C    AAC00004 A            LM,12    *4                FETCH   4 PARAMETERS
     1837   01 0072D    2BC00801              STM,12   T1DWT             SAVE PARAMETERS
     1838   01 0072E    3110000C A            CW,1     12                TEST TYPE
     1839   01 0072F    69300734              BNE      T1XWT             EXIT
     1840   01 00730    32C80004 A            LW,12    4,4               FETCH 5TH AND
     1841   01 00731    32D80005 A            LW,13    5,4                 6TH PARAMETER
     1842   01 00732    35C00808              STW,12   T1DWTAO+2         SAVE
     1843   01 00733    35D00809              STW,13   T1DWTAO+3           PARAMETERS FOR AIO
     1844   01 00734    22000000 A   T1XWT    LI,0     0
     1845   01 00735    350007B4              STW,0    T1DWTMSG          RESET TIME-OUT MSG ADR
     1846   01 00736    35000806              STW,0    T1DWTAO           RESET INTERRUPT RECEIVED FLAG
     1847   01 00737    3500080B              STW,0    T1DWTTIO          RESET ERROR FLAG
     1848   01 00738    35000824              STW,0    T1DWTABT          RESET ABORT FLAG
     1849   01 00739    32C00802              LW,12    T1DWTDI           FETCH DELAY COUNT (MSEC)
     1850   01 0073A    25C0007F A            SLS,12   -1                DIVIDE BY 2
     1851   01 0073B    20C00001 A            AI,12    1                 COMPENSATE DELAY COUNT TO INSURE
     1852                            *                                   AT LEAST A 1 MSEC DELAY
     1853   01 0073C    35C00818              STW,12   T1DWTDC
     1854   01 0073D    32C00819              LW,12    T1DWTMTW          INITIALIZE COUNT PULSE 4
     1855   01 0073E    35C00055 A            STW,12   X'55'               INTERRUPT LOCATION
     1856   01 0073F    32D0081A              LW,13    T1DWTCXP          INITIALIZE COUNTER 4 ZERO
     1857   01 00740    35D0005B A            STW,13   X'5B'               INTERRUPT LOCATION
     1858   01 00741    22E01040 A            LI,14    X'1040'           COUNTER 4 BITS
     1859   01 00742    6DE01200 A            WD,14    X'1200'           ARM AND ENABLE COUNTER 4 INTERRUPTS
     1860   01 00743    33000801              MTW,0    T1DWT             TEST TYPE OF WAIT
     1861   01 00744    6830074E              BEZ      T1XWT1            B: NOT A WAIT FOR INTERRUPT
     1862   01 00745    31200801              CW,2     T1DWT
     1863   01 00746    6830074C              BE       T1XWT0            DELAY ONLY
     1864   01 00747    32C0081B              LW,12    T1DWTIXP          INITIALIZE IO
     1865   01 00748    35C0005C A            STW,12   X'5C'               INTERRUPT LOCATION
     1866   01 00749    22E00020 A            LI,14    X'0020'           IO INTERRUPT BIT
     1867   01 0074A    6DE01200 A            WD,14    X'1200'           ARM AND ENABLE IO INTERRUPT
     1868   01 0074B    6800074B              B        %                 WAIT FOR IO INTERRUPT
     1869   01 0074C    6800074C     T1XWT0   B        %                 WAIT FOR COUNTER 4 INT.
     1870   01 0074D    E800000A A            B        *10               EXIT TO DRIVER
     1871                            *
     1872   01 0074E    22400200 A   T1XWT1   LI,4     512
     1873   01 0074F    6440074F              BDR,4    %
     1874   01 00750    670209D5              EXU      IOINSTR,1         ISSUE TIO
     1875   01 00751    6980074E              BCS,8    T1XWT1            B: NO ADR RECOGNITION OR BUSY SIOP
     1876   01 00752    31D02DD7              CW,13    =X'66000000'      TEST BITS 1,2,5,AND 6 OF TIO STATUS
     1877   01 00753    6940074E              BCS,4    T1XWT1            B: LOOP ON TIO
     1878   01 00754    22E01060 A            LI,14    X'1060'           COUNTER 4 AND IO INTER BITS
     1879   01 00755    6DE01500 A            WD,14    X'1500'           DISABLE AND
     1880   01 00756    6DE01100 A            WD,14    X'1100'             DISARM INTERRUPTS
     1881   01 00757    2240080B     T1XWT2   LI,4     T1DWTTIO          FETCH ADR OF DATA BASE
     1882   01 00758    6AF009B1              BAL,15   #IOEX             TEST AND SAVE STATUS/CC
     1883   01 00759    6800075B              B        %+2               B: NORMAL RETURN
     1884   01 0075A    3510080B              STW,1    T1DWTTIO          SET ERROR FLAG
     1885   01 0075B    15C00816              STD,12   T1DWTCA           SAVE TIO STATUS
     1886   01 0075C    32C00816              LW,12    T1DWTCA           FETCH TIO STATUS
     1887   01 0075D    52D20817              LH,13    T1DWTCA+1,1       GET REMAINING BYTE CNT
     1888   01 0075E    51D20804              CH,13    T1DWTRBC,1        TEST REMAINING BYTE CNT
     1889   01 0075F    68300770              BE       T1XWT2AA          B: NO BYTE CNT ERROR

     1891                            *THE FOLLOWING TESTS WILL SUPPRESS CHECK OF EXPECTED REMAINING
     1892                            *BYTE COUNT FOR VARIOUS SUBTESTS WHEN DIAGNOSING THE T3281

     1894   01 00760    32401B68              LW,4     SUBTNR
     1895   01 00761    21400052 A            CI,4     82
     1896   01 00762    68300770              BE       T1XWT2AA
     1897   01 00763    21400059 A            CI,4     89
     1898   01 00764    68300770              BE       T1XWT2AA
     1899   01 00765    2140005A A            CI,4     90
     1900   01 00766    68300770              BE       T1XWT2AA
     1901   01 00767    2140005E A            CI,4     94
     1902   01 00768    68300770              BE       T1XWT2AA

     1904   01 00769    21400068 A            CI,4     104               SURFACE TEST?
     1905   01 0076A    6830076D              BE       %+3               YES
     1906   01 0076B    2140004C A            CI,4     76                MULTIPLE SECTOR TEST
     1907   01 0076C    6930076F              BNE      %+3               NO
     1908   01 0076D    21D003DC A            CI,13    X'3DC'            TEST BYTE CNT AGAIN
     1909   01 0076E    68300770              BE       T1XWT2AA          B: BO BYTE COUNT ERROR
     1910   01 0076F    3510080B              STW,1    T1DWTTIO          SET ERROR FLAG

     1912   01 00770    4BC02DD8     T1XWT2AA AND,12   =X'FFFFFF'        CURRENT COMMAND ADR ONLY
     1913   01 00771    32401B68              LW,4     SUBTNR
     1914   01 00772    2140002F A            CI,4     47
     1915   01 00773    68300777              BE       T1XWT2A
     1916   01 00774    31C00803              CW,12    T1DWTCCA          TEST CURRENT COMMAND ADR
     1917   01 00775    68300777              BE       %+2               B: NO COMMAND ADR ERROR
     1918   01 00776    35100824              STW,1    T1DWTABT          SET ABORT FLAG

     1920   01 00777    33000824     T1XWT2A  MTW,0    T1DWTABT          TEST ABORT FLAG
     1921   01 00778    6830077E              BEZ      T1XWT3            NO ABORT
     1922   01 00779    22400810              LI,4     T1DWTTDV          LOAD DATA BASE ADDR.
     1923   01 0077A    6AF009B1              BAL,15   #IOEX
     1924   01 0077B    6800077C              B        %+1
     1925   01 0077C    33100524              MTW,1    T1DEAB            SET ABORT FLAG
     1926   01 0077D    E802000A A            B        *10,1             EXIT TO DRIVER - ABORT RETURN
     1927   01 0077E    3300080B     T1XWT3   MTW,0    T1DWTTIO          TEST ERROR FLAG
     1928   01 0077F    E932000A A            BNEZ     *10,1             EXIT TO DRIVER - ERROR RETURN
     1929   01 00780    E800000A A            B        *10               EXIT TO DRIVER - NORMAL RETURN
     1930                            *
     1931                            *        *** IO INTERRUPT HANDLER ***
     1932                            *
     1933   01 00781    22400806     T1DWTIH  LI,4     T1DWTAO           FETCH ADR OF DATA BASE
        1*  01 00782    6AF009B1              BAL,15   #IOEX             TEST AND SAVE AIO STATUS        *H02
        2*  01 00783    68000788              B        %+5                SKIP IF NO ERRORS              *H02

        4*  01 00784    21F08000 A            CI,15    X'8000'           TEST FOR NO RECOGNITION         *H02
        5*  01 00785    68400787              BAZ      %+2                SKIP IF REAL ERROR             *H02

        7*  01 00786    0E300820              LPSD,3   T1DWTIOW          IGNORE NON-RECOGNITION          *H02

        9*  01 00787    3510080B              STW,1    T1DWTTIO          SET ERROR FLAG                  *H02

     1934   01 00788    22E01060 A            LI,14    X'1060'           COUNTER 4 AND IO INTER BITS
     1935   01 00789    6DE01500 A            WD,14    X'1500'           DISABLE AND
     1936   01 0078A    6DE01100 A            WD,14    X'1100'             DISARM INTERRUPTS

     1940   01 0078B    35D00805              STW,13   T1DWTAA           SAVE AIO ADR
     1941   01 0078C    35100806              STW,1    T1DWTAO           SET INTERRUPT RECEIVED FLAG

     1944   01 0078D    52D20805              LH,13    T1DWTAA,1         GET AIO ADDRESS
     1945   01 0078E    31D01B60              CW,13    DEVADDR           TEST AIO ADR
     1946   01 0078F    68300791              BE       %+2               B: NO AIO ADR ERROR

     1947   01 00790    3510080B              STW,1    T1DWTTIO          SET ERROR FLAG

     1948   01 00791    22F00757              LI,15    T1XWT2            FETCH READY TEST ADR             A02
     1949   01 00792    35F00820              STW,15   T1DWTIOW          SET EXIT ADR
     1950   01 00793    0E300820              LPSD,3   T1DWTIOW          EXIT FROM INTERRUPT HANDLER
     1951                            *
     1952                            *        *** CNTR 4 INTERRUPT  HANDLER ***
     1953                            *
     1954   01 00794    31200801     T1DWTCH  CW,2     T1DWT             TEST TYPE
     1955   01 00795    69300798              BNE      %+3               NO DELAY ONLY
     1956   01 00796    22F0074D              LI,15    T1XWT0+1
     1957   01 00797    680007A1              B        T1DWTCH1
     1958   01 00798    31100801              CW,1     T1DWT             TEST TYPE
     1959   01 00799    6830079C              BE       %+3               INTERRUPT TYPE
     1960   01 0079A    32C00826              LW,12    T1DWTMS1          FETCH ERROR MESSAGE ADR
     1961   01 0079B    6800079E              B        %+3               B: CONT
     1962   01 0079C    32400806              LW,4     T1DWTAO           FETCH INTER RECEIVED FLAG
     1963   01 0079D    32C80825              LW,12    T1DWTMS0,4        FETCH ERROR MESSAGE ADR
     1964   01 0079E    35C007B4              STW,12   T1DWTMSG          SAVE ERROR MESSAGE ADR
     1965   01 0079F    35200824              STW,2    T1DWTABT          SET ABORT FLAG
     1966   01 007A0    22F00757              LI,15    T1XWT2            FETCH TIO INSTR ADR
     1967   01 007A1    35F0081C     T1DWTCH1 STW,15   T1DWTCIW          SET EXIT ADR
     1968   01 007A2    22E01060 A            LI,14    X'1060'           COUNTER 4 AND IO INTER BITS
     1969   01 007A3    6DE01500 A            WD,14    X'1500'           DISABLE AND
     1970   01 007A4    6DE01100 A            WD,14    X'1100'             DISARM INTERRUPTS
     1971   01 007A5    0E30081C              LPSD,3   T1DWTCIW          EXIT FROM INTERRUPT HANDLER
     1972                            *
     1973                            *
     1974   01 007A6    31200801     T1EWT    CW,2     T1DWT             TEST TYPE
     1975   01 007A7    693007AD              BNE      T1EWT0            NOT DELAY ONLY
     1976   01 007A8    32C00802              LW,12    T1DWTDI
     1977   01 007A9    35C00EE3              STW,12   VDEC4A
     1978   01 007AA    6AF00B7B              SEND     MX067
            01 007AB    00003D8C
     1979   01 007AC    E800000A A            B        *10
     1980   01 007AD    6AF00B7B     T1EWT0   BAL,15   #MSGP
     1981   01 007AE    00003C68              DATA     MX017             PRINT MSG 17
     1982   01 007AF    330007B4              MTW,0    T1DWTMSG          TEST TIME-OUT ERROR MSG
     1983   01 007B0    683007B5              BEZ      %+5               B: NO TIME-OUT ERROR
     1984   01 007B1    32C00802              LW,12    T1DWTDI           FETCH INITIAL DELAY VALUE
     1985   01 007B2    35C00EE3              STW,12   VDEC4A              AND SAVE
     1986   01 007B3    6AF00B7B              BAL,15   #MSGP             PRINT MSG 18 OR 19
     1987   01 007B4    00000000 A   T1DWTMSG DATA     0
     1988   01 007B5    33000806              MTW,0    T1DWTAO           TEST INTERRUPT RECEIVED FLAG
     1989   01 007B6    683007C2              BEZ      T1EWT2            B: INTERRUPT NOT RECEIVED
     1990   01 007B7    32C0080A              LW,12    T1DWTAO+4         FETCH AIO STATUS/CC
     1991   01 007B8    21C08000 A            CI,12    X'8000'
     1992   01 007B9    694007C0              BCS,4    T1EWT1            B: NO INTERRUPT RECOGNITION
     1993   01 007BA    32C00805              LW,12    T1DWTAA           FETCH INTERRUPT ADR
     1994   01 007BB    35C00EEE              STW,12   VHEX4B
     1995   01 007BC    32C01B60              LW,12    DEVADDR           LOAD EXPECTED DEVICE ADDRESS
     1996   01 007BD    35C00EE7              STW,12   VHEX4A            SAVE ADR
     1997   01 007BE    6AF00B7B              BAL,15   #MSGP
     1998   01 007BF    00003C93              DATA     MX022             PRINT MSG 22
     1999   01 007C0    22400806     T1EWT1   LI,4     T1DWTAO           FETCH ADR OF DATA BASE
     2000   01 007C1    6AF009DB              BAL,15   #IOCP             PRINT AIO STATUS
     2001   01 007C2    2240080B     T1EWT2   LI,4     T1DWTTIO          FETCH ADR OF DATA BASE
     2002   01 007C3    6AF009DB              BAL,15   #IOCP             PRINT TIO STATUS
     2003   01 007C4    32C00803              LW,12    T1DWTCCA          EXP CCA
     2004   01 007C5    32D00816              LW,13    T1DWTCA           OBS CCB
     2005   01 007C6    35C00EE8              STW,12   VHEX6A            SAVE
     2006   01 007C7    35D00EEF              STW,13   VHEX6B              ADR
     2007   01 007C8    6AF00B7B              BAL,15   #MSGP
     2008   01 007C9    00003C81              DATA     MX020             PRINT MSG 20
     2009   01 007CA    32C00804              LW,12    T1DWTRBC          EXP RBC
     2010   01 007CB    32D00817              LW,13    T1DWTCA+1         OBS RBC
     2011   01 007CC    35C00EE7              STW,12   VHEX4A            SAVE
     2012   01 007CD    35D00EEE              STW,13   VHEX4B              RBC
     2013   01 007CE    6AF00B7B              BAL,15   #MSGP
     2014   01 007CF    00003C8B              DATA     MX021             PRINT MSG 21
     2015   01 007D0    3240080F              LW,4     T1DWTTIO+4        FETCH TIO STATUS
     2016   01 007D1    52400004 A            LH,4     4
     2017   01 007D2    2140E600 A            CI,4     X'E600'           TEST BITS 0,1,2,5,AND 6
     2018   01 007D3    E840000A A            BCR,4    *10               EXIT TO DRIVER
     2019   01 007D4    12C00816              LD,12    T1DWTCA           FETCH TIO STATUS
     2020   01 007D5    4BC02DD8              AND,12   =X'FFFFFF'        REMOVE
     2021   01 007D6    4BD02DD9              AND,13   =X'FFFF'            EXTRA BITS
     2022   01 007D7    21400600 A            CI,4     X'0600'           TEST CONTROLLER STATE
     2023   01 007D8    684007DC              BCR,4    %+4               B: CONTROLLER IS READY
     2024   01 007D9    25400277 A            SCS,4    -9                ALIGN CONTROLLER STATUS
     2025   01 007DA    4B400003 A            AND,4    3                 BITS 5 AND 6 ONLY
     2026   01 007DB    680007E1              B        T1EWT4            B: MSG INDEX IN R4
     2027   01 007DC    21406000 A            CI,4     X'6000'           TEST DEVICE STATUS
     2028   01 007DD    684007F7              BCR,4    T1EWT5-1          B: DEVICE READY
     2029   01 007DE    25400273 A            SCS,4    -13               ALIGN DEVICE STATUS
     2030   01 007DF    4B400003 A            AND,4    3                 BITS 1 AND 2 ONLY
     2031   01 007E0    20400003 A            AI,4     3                 ADJUST INDEX FOR DEVICE MESSAGES
     2032   01 007E1    32E80826     T1EWT4   LW,14    T1DWTMS2-1,4      FETCH MESSAGE ADR
     2033   01 007E2    35E007E4              STW,14   %+2               SAVE ADR
     2034   01 007E3    6AF00B7B              BAL,15   #MSGP
     2035   01 007E4    00000000 A            DATA     0                 PRINT MSG 23,24,25,26,27,OR 28
     2036   01 007E5    31D00804              CW,13    T1DWTRBC          TEST REMAINING BYTE COUNT
     2037   01 007E6    693007E9              BNE      %+3               B: EXP ~= OBS REMAINING BYTE CNT
     2038   01 007E7    22400000 A            LI,4     0                 MSG INDEX (29)
     2039   01 007E8    680007F8              B        T1EWT5            B: CONT
     2040   01 007E9    D1D6000C A            CH,13    *12,3             TEST STARTING BYTE CNT
     2041   01 007EA    693007ED              BNE      %+3               B: STARING BC ~= REMAINING BYTE CNT
     2042   01 007EB    22400001 A            LI,4     1                 MSG INDEX (30)
     2043   01 007EC    680007F8              B        T1EWT5            B: CONT
     2044   01 007ED    21D20000 A            CI,13    X'20000'          TEST IOP HALT
     2045   01 007EE    684007F1              BCR,4    %+3               B: NOT IOP HALT
     2046   01 007EF    22400002 A            LI,4     2                 MSG INDEX (31)
     2047   01 007F0    680007F8              B        T1EWT5            B: CONT
     2048   01 007F1    5300000D A            MTH,0    13                TEST MAGNITUDE OF REMAINING BYTE CNT
     2049   01 007F2    691007F5              BLZ      %+3               B: LESS THAN ZERO
     2050   01 007F3    22400003 A            LI,4     3                 MSG INDEX (32)
     2051   01 007F4    680007F8              B        T1EWT5            B: CONT
     2052   01 007F5    22400004 A            LI,4     4                 MSG INDEX (33)
     2053   01 007F6    680007F8              B        T1EWT5            B: CONT
     2054   01 007F7    22400005 A            LI,4     5                 MSG INDEX (34)
     2055   01 007F8    32C8082D     T1EWT5   LW,12    T1DWTMS3,4        FETCH MSG ADR
     2056   01 007F9    35C007FB              STW,12   %+2               SAVE ADR
     2057   01 007FA    6AF00B7B              BAL,15   #MSGP
     2058   01 007FB    00000000 A            DATA     0                 PRINT MSG 29 THRU 35
     2059   01 007FC    33000824              MTW,0    T1DWTABT          CHECK ABORT FLAG
     2060   01 007FD    E830000A A            BEZ      *10               RETURN
     2061   01 007FE    22400810              LI,4     T1DWTTDV
     2062   01 007FF    6AF009DB              BAL,15   #IOCP             PRINT TDV STATUS
     2063   01 00800    E800000A A            B        *10               EXIT TO DRIVER
     2064                            *
     2065   01 00801    00000000 A   T1DWT    DATA     0                 TYPE - 0=READY TEST ONLY
     2066                            *                                          1=INTERRUPT WAIT AND RDY TEST
     2067                            *                                         -1=DELAY ONLY
     2068   01 00802    00000000 A   T1DWTDI  DATA     0                 DELAY IN MSEC
     2069   01 00803    00000000 A   T1DWTCCA DATA     0                 EXPECTED CURRENT COMMAND ADR
     2070   01 00804    00000000 A   T1DWTRBC DATA     0                 EXPECTED REMAINING BYTE COUNT
     2071                            *
     2072                            *
     2073   01 00805    00000000 A   T1DWTAA  DATA     0                 AIO ADDRESS
     2074   01 00806    00000000 A   T1DWTAO  DATA     0                 INTERRUPT RECEIVED IF = 1
     2075   01 00807    00000003 A            DATA     3                 TYPE = 3 (AIO)
     2076   01 00808    00000000 A            DATA     0                 EXPECTED STATUS/CC
     2077   01 00809    00000000 A            DATA     0                 MASK
     2078   01 0080A    00000000 A            DATA     0                 OBSERVED STATUS
     2079   01 0080B    00000000 A   T1DWTTIO DATA     0                 ERROR FLAG
     2080   01 0080C    00000001 A            DATA     1                 TYPE = 1 (TIO)
     2081   01 0080D    10000000 A            DATA     X'10000000'       EXPECTED STATUS AND CC
     2082   01 0080E    77008000 A            DATA     X'77008000'       MASK
     2083   01 0080F    00000000 A            DATA     0                 OBSERVED STATUS AND CC
     2084   01 00810    00000000 A   T1DWTTDV DATA     0
     2085   01 00811    00000004 A            DATA     4                 TDV
     2086   01 00812    00000000 A            DATA     0                 EXPECTED STATUS
     2087   01 00813    00000000 A            DATA     0                 MASK
     2088   01 00814    00000000 A            DATA     0
     2089                            *
     2090                                     BOUND    8
     2091   01 00816    00000000 A   T1DWTCA  DATA     0                 OBSERVED CURRENT COM. ADR
     2092   01 00817    00000000 A            DATA     0                 OBSERVED REMAINING BYTE CNT
     2093                            *
     2094   01 00818    00000000 A   T1DWTDC  DATA     0                 CURRENT DELAY CNT
     2095   01 00819    33F00818     T1DWTMTW MTW,-1   T1DWTDC           STORED IN LOC. X'55'
     2096   01 0081A    0F00081C     T1DWTCXP XPSD,0   T1DWTCIW          STORED IN LOC. X'5B'
     2097   01 0081B    0F000820     T1DWTIXP XPSD,0   T1DWTIOW          STORED IN LOC. X'5C'
     2098                                     BOUND    8
     2099   01 0081C    00000000 A   T1DWTCIW DATA     0,0
            01 0081D    00000000 A
     2100   01 0081E    00000794              DATA     T1DWTCH,X'07000000'
            01 0081F    07000000 A
     2101   01 00820    00000000 A   T1DWTIOW DATA     0,0
            01 00821    00000000 A
     2102   01 00822    00000781              DATA     T1DWTIH,X'07000000'
            01 00823    07000000 A
     2103   01 00824    00000000 A   T1DWTABT DATA     0                 ABORT FLAG
     2104                            *
     2105                            *
     2106   01 00825    00003C71     T1DWTMS0 DATA     MX018             TIME-OUT
     2107   01 00826    00003C7A     T1DWTMS1 DATA     MX019               MESSAGES
     2108                            T1DWTMS2 DATA     MX023,MX024,MX025,;        CONTROLLER STATUS
     2109   01 00827    00003C9C                       MX026,MX027,MX028          DEVICE STATUS MSG'S
            01 00828    00003CA2
            01 00829    00003CA6
            01 0082A    00003CA9
            01 0082B    00003CAF
            01 0082C    00003CB3
     2110                            T1DWTMS3 DATA     MX029,MX030,MX031,;        REMAINING BYTE CNT
     2111                                              MX032,MX033,;                MESSAGES
     2112   01 0082D    00003CB6                       MX034                      INTERRUPT MSG
            01 0082E    00003CC0
            01 0082F    00003CCA
            01 00830    00003CCD
            01 00831    00003CD2
            01 00832    00003CD7
     2113                            *
     2114                            *        *** T1-IO  - IO INSTRUCTION SUBROUTINE ***
     2115                            *
     2116                            * THIS ROUTINE ISSUES AN IO INSTRUCTION AND COMPARES THE CODITION
     2117                            * CODE AND STATUS TO THE EXPECTED CONDITION CODE AND STATUS
     2118                            *
     2119                            * PARAMETERS:
     2120                            * A. IMMEDIATE: (IO1,TYPE,EXP STATUS & CC. MASK, IOCD (SIO ONLY))
     2121                            * B. INDIRECT:  (IO1,*LABEL) WHERE LOCATION LABEL CONTAINS THE FIRST
     2122                            *                            PARAMETER
     2123                            * REGISTERS USED: R4,R12,R13,R14,R15,R5
     2124                            *
     2125                            *
     2126                            *
     2127   01 00833    00000001 A   T1AIO1   DATA       1                 PARAMETER FLAG
     2128   01 00834    68000837              B          T1EIO1          ADDR. OF REPORT ROUTINE
     2129                            *
     2130   01 00835    22400839     T1BIO1   LI,4     T1DIO1            FETCH ADR OF DATA BASE
     2131   01 00836    68000854              B        T1BIOC            B: COMMON BUILD ROUTINE
     2132   01 00837    22400839     T1EIO1   LI,4     T1DIO1            FETCH ADR OF DATA BASE
     2133   01 00838    68000862              B        T1EIOC            B: COMMON EXECUTION ROUTINE
     2134                            *                                   *** DATA BASE ***
     2135   01 00839    00000000 A   T1DIO1   DATA     0                 IOCD ADR
     2136   01 0083A    00000000 A            DATA     0                 IO TYPE
     2137   01 0083B    00000000 A            DATA     0                 EXPECTED STATUS (0-15), CC (16-17)
     2138   01 0083C    00000000 A            DATA     0                 MASK
     2139   01 0083D    00000000 A            DATA     0                 OBSERVED STATUS (0-15), CC (16-17)
     2140                            *
     2141                            *
     2142                            *
     2143                            *
     2144   01 0083E    00000001 A   T1AIO2   DATA       1                 PARAMETER FLAG
     2145   01 0083F    68000842              B          T1EIO2          ADDR. OF RUPORT ROUTINE
     2146                            *
     2147   01 00840    22400844     T1BIO2   LI,4     T1DIO2            FETCH ADR OF DATA BASE
     2148   01 00841    68000854              B        T1BIOC            B: COMMON BUILD ROUTINE
     2149   01 00842    22400844     T1EIO2   LI,4     T1DIO2            FETCH ADR OF DATA BASE
     2150   01 00843    68000862              B        T1EIOC            B: COMMON EXECUTION ROUTINE
     2151                            *                                   *** DATA BASE ***
     2152   01 00844    00000000 A   T1DIO2   DATA     0                 IOCD ADR
     2153   01 00845    00000000 A            DATA     0                 IO TYPE
     2154   01 00846    00000000 A            DATA     0                 EXPECTED STATUS (0-15), CC (16-17)
     2155   01 00847    00000000 A            DATA     0                 MASK
     2156   01 00848    00000000 A            DATA     0                 OBSERVED STATUS (0-15), CC (16-17)
     2157                            *
     2158                            *
     2159                            *
     2160                            *
     2161   01 00849    00000001 A   T1AIO3   DATA       1                 PARAMETER FLAG
     2162   01 0084A    6800084D              B          T1EIO3          ADDR. OF REPORT ROUTINE
     2163                            *
     2164   01 0084B    2240084F     T1BIO3   LI,4     T1DIO3            FETCH ADR OF DATA BASE
     2165   01 0084C    68000854              B        T1BIOC            B: COMMON BUILD ROUTINE
     2166   01 0084D    2240084F     T1EIO3   LI,4     T1DIO3            FETCH ADR OF DATA BASE
     2167   01 0084E    68000862              B        T1EIOC            B: COMMON EXECUTION ROUTINE
     2168                            *                                   *** DATA BASE ***
     2169   01 0084F    00000000 A   T1DIO3   DATA     0                 IOCD ADR
     2170   01 00850    00000000 A            DATA     0                 IO TYPE
     2171   01 00851    00000000 A            DATA     0                 EXPECTED STATUS (0-15), CC (16-17)
     2172   01 00852    00000000 A            DATA     0                 MASK
     2173   01 00853    00000000 A            DATA     0                 OBSERVED STATUS (0-15), CC (16-17)
     2174                            *
     2175                            *
     2176                            *        *** T1-IOC - IO INSTRUCTION SUBROUTINE
     2177                            *
     2178                            * THIS ROUTINE PERFORMS COMMON FUNCTIONS FOR THE FOLLOWING ROUTINES:
     2179                            * T1-IO1, T1-IO2, T1-IO3, T1-IO4
     2180                            *
     2181                            * REGISTER CONTENTS AT ENTRY: R4 = ADDRESS OF DATA BASE
     2182                            *                              R5,R12-R15 ARE USED BY THIS ROUTINE
     2183                            *
     2184                            * EXIT:  IMMEDIATE RETURN TO TEST DRIVER (B  *10)
     2185                            *
     2186                            *
     2187                            *                                   *** BUILD ROUTINE ***
     2188   01 00854    02200040 A   T1BIOC   LCI      4                 FETCH 4 PARAMETERS (R9 FROM DRIVER)
     2189   01 00855    AAC00009 A            LM,12    *9
     2190   01 00856    02200030 A            LCI      3                 SAVE TYPE, EXP STAT/CC, MASK
     2191   01 00857    ABC20004 A            STM,12   *4,1
     2192   01 00858    21C00000 A            CI,12    0                 TEST INSTR TYPE
     2193   01 00859    6830085D              BE       T1BIOC1           B: SIO
     2194   01 0085A    22F00000 A            LI,15    0
     2195   01 0085B    20900003 A            AI,9     3                 INCR. PARAMETER ADR
     2196   01 0085C    6800085E              B        %+2               B: NOT AN SIO
     2197   01 0085D    20900004 A   T1BIOC1  AI,9     4                 INCR. PARAMETER ADR
     2198   01 0085E    B5F00004 A            STW,15   *4                SAVE IOCD
     2199                            *                                   *** EXECUTION ROUTINE
     2200   01 0085F    6AF009B1     T1XIOC   BAL,15   #IOEX             TEST AND SAVE STATUS/CC
     2201   01 00860    E800000A A            B        *10               EXIT TO DRIVER - NORMAL
     2202   01 00861    E802000A A            B        *10,1             EXIT TO DRIVER - ERROR
     2203                            *                                   *** REPORT ROUTINE ***
     2204   01 00862    6AF009DB     T1EIOC   BAL,15   #IOCP             PRINT IO STATUS
     2205   01 00863    E800000A A            B        *10               EXIT
     2206                            *
     2207                            *
     2208                            *        ***T1-ST STEPPING SUBROUTINE***
     2209                            **
     2210                            *
     2211                            *
     2212                            *
     2213   01 00864    00000001 A   T1AST    DATA       1                 PARAMETER FLAG
     2214   01 00865    680008A5              B          T1EST           ADDR. OF REPORT ROUTINE
     2215                            *
     2216                            *
     2217   01 00866    02200030 A   T1BST    LCI      3                 STORE 3 PARAMETER
     2218   01 00867    AAC00009 A            LM,12    *9                 IN SUBROUTINE
     2219   01 00868    02200030 A            LCI      3
     2220   01 00869    2BC008D9              STM,12   T1DST1
     2221   01 0086A    20900003 A            AI,9     3                 INCR. REG.9 BY 3
     2222   01 0086B    22401388 A            LI,4     5000
     2223   01 0086C    6440086C              BDR,4    %                 DELAY
     2224   01 0086D    350008DF     T1XST    STW,0    T1DST5            RESET ERROR COUNT
     2225   01 0086E    350008DD              STW,0    T1DST3A           RESET CONTROL POINTER
     2226   01 0086F    350008E0              STW,0    T1DST6            RESET TDV COUNTER
     2227   01 00870    22D03364              LI,13    BF2               LOAD BUFFER ADDRESS FOR OBSERVED D.
     2228   01 00871    32F01B60              LW,15    DEVADDR           CALCULATE
     2229   01 00872    49F01BED              OR,15    KX000F
     2230   01 00873    35F008DE              STW,15   T1DST4                  AND SAVE IT
     2231   01 00874    324008DD     T1XST1   LW,4     T1DST3A           LOAD CONTROL POINTER
     2232   01 00875    314008DB              CW,4     T1DST3            END OF TEST ?
     2233   01 00876    6910087A              BL       T1XST1A           NO
     2234   01 00877    330008DF              MTW,0    T1DST5            YES: CHECK ERROR COUNT
     2235   01 00878    E932000A A            BNEZ     *10,1             ERRORS
     2236   01 00879    E800000A A            B        *10               NO ERRORS
     2237                            *
     2238   01 0087A    D2C808DA     T1XST1A  LH,12    *T1DST2,4         GET DISPLACEMENT
     2239   01 0087B    20C02F0D              AI,12    STEPDATA
     2240   01 0087C    D2F808D9              LH,15    *T1DST1,4         GET CONTROL HALF WORD
     2241   01 0087D    72E6000F A            LB,14    15,3              SET TDV STEP/TEST COUNT
     2242   01 0087E    25E00002 A            SLS,14   2                 MULTIPLY BY 4
     2243   01 0087F    35E008DC              STW,14   T1DST1A           SAVE
     2244   01 00880    7244000F A            LB,4     15,2              GET TDV STEP/NO TEST COUNT
     2245   01 00881    25400002 A            SLS,4    2                 MULTIPLY BY 4
     2246   01 00882    6830088A              BEZ      T1XST1B
     2247   01 00883    664008E0              AWM,4    T1DST6            ADD TO TDV COUNTER
     2248   01 00884    CEF008DE     T1XST1AA TDV,15   *T1DST4           ISSUE STEP TDV
     2249   01 00885    68800889              BCR,8    %+4               TDV NOT ACCEPTED
     2250   01 00886    21F10000 A            CI,15    X'10000'          SIOP BUSY
     2251   01 00887    69400884              BCS,4    T1XST1AA          YES
     2252   01 00888    680008A3              B        T1XST9            TDV NOT ACCEPTED - ABORT
     2253   01 00889    64400884              BDR,4    T1XST1AA
     2254   01 0088A    22400000 A   T1XST1B  LI,4     0                 SET TDV POINTER
     2255   01 0088B    314008DC              CW,4     T1DST1A           CHECK TDV COUNT FOR STEP AND TEST
     2256   01 0088C    6910088F              BL       %+3               CONTINUE
     2257   01 0088D    331008DD              MTW,1    T1DST3A           INCREMENT CONTROL POINTER
     2258   01 0088E    68000874              B        T1XST1
     2259   01 0088F    331008E0              MTW,1    T1DST6            INCREMENT TDV COUNTER
     2260   01 00890    225FFFFD A            LI,5     -3                SET INDEX
     2261   01 00891    CEFA08DE     T1XST1BB TDV,15   *T1DST4,5         ISSUE TDV
     2262   01 00892    68800896              BCR,8    %+4               TDV NOT ACCEPTED
     2263   01 00893    21F10000 A            CI,15    X'10000'          SIOP BUSY
     2264   01 00894    69400891              BCS,4    T1XST1BB          YES
     2265   01 00895    680008A3              B        T1XST9            TDV NOT ACCEPTED - ABORT
     2266   01 00896    25E00308 A            SCD,14   8                 SAVE TDV DATA
     2267   01 00897    20500001 A            AI,5     1
     2268   01 00898    68200891              BLE      T1XST1BB
     2269   01 00899    B5E0000D A            STW,14   *13               SAVE OBSERVED DATA
     2270   01 0089A    4BE01B67              AND,14   STMASK
     2271   01 0089B    B2F8000C A            LW,15    *12,4
     2272   01 0089C    4BF01B67              AND,15   STMASK
     2273   01 0089D    31E0000F A            CW,14    15
     2274   01 0089E    683008A0              BE       %+2
     2275   01 0089F    331008DF              MTW,1    T1DST5            INCREMENT ERROR COUNT
     2276   01 008A0    20400001 A            AI,4     1                 INCREMENT REG.4
     2277   01 008A1    20D00001 A            AI,13    1                 INCR. BUFFER ADDRESS
     2278   01 008A2    6800088B              B        T1XST1B+1
     2279   01 008A3    33100524     T1XST9   MTW,1    T1DEAB            SET ABORT FLAG
     2280   01 008A4    E802000A A            B        *10,1             ERROR RETURN
     2281                            *
     2282   01 008A5    22E008E1     T1EST    LI,14    T1DST7            LOAD ADDRESSES
     2283   01 008A6    22F008E4              LI,15    T1DST8
     2284   01 008A7    15E00EF8              STD,14   VBINFA            AND STORE IT IN VBINFA,VBINFB
     2285   01 008A8    6AF00B7B              SEND     MX071             STEP...
            01 008A9    00003DA6
     2286   01 008AA    325008E0              LW,5     T1DST6            SAVE TDV COUNT
     2287   01 008AB    350008E0              STW,0    T1DST6            RESET TOTAL TDV COUNT
     2288   01 008AC    350008DD              STW,0    T1DST3A           RESET CONTROL POINTER
     2289   01 008AD    22D03364              LI,13    BF2               LOAD BUFFER ADR FOR OBS. DATA
     2290   01 008AE    324008DD     T1EST1   LW,4     T1DST3A           LOAD CONTROL POINTER
     2291   01 008AF    314008DB              CW,4     T1DST3            END OF TEST ?
     2292   01 008B0    E810000A A            BGE      *10               YES: RETURN
     2293                            *
     2294   01 008B1    D2C808DA     T1EST1A  LH,12    *T1DST2,4         GET DISPLACEMENT
     2295   01 008B2    20C02F0D              AI,12    STEPDATA
     2296   01 008B3    D2F808D9              LH,15    *T1DST1,4         GET CONTROL HALF WORD
     2297   01 008B4    72E6000F A            LB,14    15,3              SET TDV STEP/TEST COUNT
     2298   01 008B5    25E00002 A            SLS,14   2                 MULTIPLY BY 4
     2299   01 008B6    35E008DC              STW,14   T1DST1A           SAVE
     2300   01 008B7    7244000F A            LB,4     15,2              GET TDV STEP/NO TEST COUNT
     2301   01 008B8    25400002 A            SLS,4    2                 MULTIPLY BY 4
     2302   01 008B9    664008E0              AWM,4    T1DST6            ADD TO TDV COUNT
     2303   01 008BA    22400000 A   T1EST1B  LI,4     0
     2304   01 008BB    314008DC              CW,4     T1DST1A
     2305   01 008BC    691008BF              BL       %+3
     2306   01 008BD    331008DD              MTW,1    T1DST3A
     2307   01 008BE    680008AE              B        T1EST1
     2308   01 008BF    22E00000 A            LI,14    0
     2309   01 008C0    32F008E0              LW,15    T1DST6
     2310   01 008C1    36E01BEC              DW,14    KX0004
     2311   01 008C2    35E00EE1              STW,14   VDEC1A
     2312   01 008C3    35F00EE7              STW,15   VHEX4A
     2313   01 008C4    B2E8000C A            LW,14    *12,4
     2314   01 008C5    35E008E2              STW,14   T1DST7+1
     2315   01 008C6    4BE01B67              AND,14   STMASK
     2316   01 008C7    B2F0000D A            LW,15    *13
     2317   01 008C8    35F008E5              STW,15   T1DST8+1
     2318   01 008C9    4BF01B67              AND,15   STMASK
     2319   01 008CA    31F0000E A            CW,15    14
     2320   01 008CB    683008D1              BE       T1EST2
     2321   01 008CC    32F01B67              MVW      STMASK,T1DST7+2
            01 008CD    35F008E3
     2322   01 008CE    6AF00B7B              SEND     MX072
            01 008CF    00003DB1
     2323   01 008D0    680008D3              B        T1EST3
     2324                            *
     2325   01 008D1    6AF00B7B     T1EST2   SEND     MX073
            01 008D2    00003DBA
     2326   01 008D3    20400001 A   T1EST3   AI,4     1
     2327   01 008D4    20D00001 A            AI,13    1                 INCR. BUFFER ADR
     2328   01 008D5    331008E0              MTW,1    T1DST6
     2329   01 008D6    315008E0              CW,5     T1DST6
     2330   01 008D7    E910000A A            BL       *10               TDV COUNT EXCEDED: ABORT CONDITION
     2331   01 008D8    680008BB              B        T1EST1B+1
     2332                            *
     2333                            *
     2334   01 008D9                 T1DST1   RES      1                 PARAM.1: ADR OF 1.CONTROL HALF WORD
     2335   01 008DA                 T1DST2   RES      1                 PARAM.2: ADR OF 1.DISPLACEMENT
     2336   01 008DB                 T1DST3   RES      1                 PARAM.3: NUMBER OF CONTROL HALFWORDS
     2337   01 008DC                 T1DST1A  RES      1                 TDV COUNT
     2338   01 008DD                 T1DST3A  RES      1                 CONTROL POINTER
     2339   01 008DE                 T1DST4   RES      1                 DEVICE ADDRSS
     2340   01 008DF                 T1DST5   RES      1                 ERROR COUNT
     2341   01 008E0                 T1DST6   RES      1                 TOTAL TDV COUNT
     2342   01 008E1    00200401 A   T1DST7   DATA     X'200401',0,-1    MASK... FOR BINFA
            01 008E2    00000000 A
            01 008E3    FFFFFFFF A
     2343   01 008E4    00200401 A   T1DST8   DATA     X'200401',0,-1    MASK... FOR BINFB
            01 008E5    00000000 A
            01 008E6    FFFFFFFF A
     2344                            *
     2345                            *        ***T1-SN  SENSE***
     2346                            *
     2347                            * THIS ROUTINE ISSUES A SENSE ORDER AND TESTS THE RETURNED
     2348                            * STATUS. IF ANY ERROR OCCURS THE TEST WILL BE ABORTED.
     2349                            *
     2350                            * PARAMETERS:     NONE
     2351                            *
     2352                            * REGISTERS USED: 4,5,12,13,14,15
     2353                            *
     2354                            *
     2355                            *
     2356   01 008E7    00000000 A   T1ASN    DATA       0                 PARAMETER FLAG
     2357   01 008E8    6800090E              B          T1ESN           ERROR FLAG/REPORT ROUTINE
     2358                            *
     2359                            *
     2360                            *
     2361                            *
     2362   01 008E9    22F00000 A   T1XSN    LI,15    0                 RESET
     2363   01 008EA    35F00976              STW,15   T1DSN6              TEST COUNT
     2364   01 008EB    35100965              STW,1    T1DSN1            RESET DELAY ERROR FLAG
     2365   01 008EC    22FFFFFF A            LI,15    -1
     2366   01 008ED    15F01B5A              STD,15   SENOBS            RESET OBSERVED DATA
     2367   01 008EE    15F21B5A              STD,15   SENOBS,1
     2368   01 008EF    22400960              LI,4     T1DSN             LOAD ADDRESS OF DATA BASE
     2369   01 008F0    6AF009B1              BAL,15   #IOEX             TEST AND SAVE STATUS/CC
     2370   01 008F1    680008F3              B        %+2               OK
     2371   01 008F2    6800090C              B        T1XSN9            ERROR: ABORT EXIT
     2372   01 008F3    33100976              MTW,1    T1DSN6            INCREMENT TEST COUNT
     2373   01 008F4    6AF00B6B              BAL,15   #CORD             WAIT TILL CONTROLLER IS READY
     2374   01 008F5    35200965              STW,2    T1DSN1            ERROR: SET DELAY ERROR FLAG

        2*  01 008F6    32F01B71              LW,15    TMODB             SKIP TDV IF TEST MODE           *H02
        3*  01 008F7    4BF01BFB              AND,15   KY0400                                            *H02
        4*  01 008F8    693008FD              BNEZ     %+5                                               *H02

        6*  01 008F9    2240096A              LI,4     T1DSN2            LOAD POINTER TO TDV DATA        *H02
        7*  01 008FA    6AF009B1              BAL,15   #IOEX              ISSUE TDV AND CHECK            *H02
        8*  01 008FB    680008FD              B        %+2                 NORMAL EXIT                   *H02
        9*  01 008FC    6800090C              B        T1XSN9               ERROR EXIT                   *H02

       11*  01 008FD    33100976              MTW,1    T1DSN6            UPDATE STEP COUNTER             *H02

       13*  01 008FE    22400965              LI,4     T1DSN1            LOAD POINTER TO TIO DATA        *H02
       14*  01 008FF    6AF009B1              BAL,15   #IOEX              ISSUE TIO AND CHECK            *H02
       15*  01 00900    68000902              B        %+2                 NORMAL EXIT                   *H02
       16*  01 00901    6800090C              B        T1XSN9               ERROR EXIT                   *H02

       18*  01 00902    33100976              MTW,1    T1DSN6            UPDATE STEP COUNTER             *H02

     2388   01 00903    224FFFFC A   T1XSN1   LI,4     -4                LOAD INDEX
     2389   01 00904    32E81B5A              LW,14    SENEXP+4,4        GET EXP. DATA
     2390   01 00905    32F81B5E              LW,15    SENOBS+4,4
     2391   01 00906    4BE81B56              AND,14   SENMAS+4,4         OR WITH MASK
     2392   01 00907    4BF81B56              AND,15   SENMAS+4,4
     2393   01 00908    31E0000F A            CW,14    15                COMPARE
     2394   01 00909    E932000A A            BNE      *10,1             ERROR RETURN
     2395   01 0090A    65400904              BIR,4    %-6               LOOP
     2396   01 0090B    E800000A A            B        *10               NORMAL RETURN
     2397   01 0090C    33100524     T1XSN9   MTW,1    T1DEAB            SET ABORT FLAG
     2398   01 0090D    E802000A A            B        *10,1             ERROR RETURN
     2399   01 0090E    32500976     T1ESN    LW,5     T1DSN6            LOAD TEST COUNTER
     2400   01 0090F    31300005 A            CW,3     5                 CHECK TEST COUNTER
     2401   01 00910    6830091B              BE       T1ESN4            NO STATUS ERROR
     2402   01 00911    6AF00B7B              SEND     MX061             SENSE ORDER
            01 00912    00003D60
     2403   01 00913    324A0973              LW,4     T1DSN5,5          LOAD ADDRESS OF DATA BASE
     2404   01 00914    B1200004 A            CW,2     *4                TEST IF DELAY ERROR FLAG IS SET
     2405   01 00915    6930091A              BNE      T1ESN3            NO
     2406   01 00916    22F003E8 A            LI,15    1000              PREPARE
     2407   01 00917    35F00EE3              STW,15   VDEC4A              MESSAGE
     2408   01 00918    6AF00B7B              SEND     MX019             NOT READY 1000 MSEC AFTER SIO
            01 00919    00003C7A
     2409   01 0091A    6AF009DB     T1ESN3   BAL,15   #IOCP             PRINT IO STATUS

     2412   01 0091B    6AF00B7B     T1ESN4   SEND     MX062             SENSE DATA
            01 0091C    00003D63
     2413   01 0091D    22E0096F              LI,14    T1DSN3
     2414   01 0091E    22F00971              LI,15    T1DSN4
     2415   01 0091F    15E00EF6              STD,14   VHEXF8A           LOAD ADDRESSES
     2416   01 00920    12E01B52              LD,14    SENMAS            GET MASK
     2417   01 00921    35E00970              STW,14   T1DSN3+1            FOR ADDRESS...
     2418   01 00922    35F00972              STW,15   T1DSN4+1
     2419   01 00923    32E01B55              LW,14    SENMAS+3
     2420   01 00924    55E20972              STH,14   T1DSN4+1,1
     2421   01 00925    12E01B56              LD,14    SENEXP            GET EXPECTED SENSE DATA
     2422   01 00926    35E0096F              STW,14   T1DSN3                FOR ADDRESS....
     2423   01 00927    32E01B5B              LW,14    SENOBS+1          GET BYTES 4-7
     2424   01 00928    4BE02DCF              AND,14   =X'00800000'      RELEASE MODE ONLY
     2425   01 00929    49F0000E A            OR,15    14                NEW EXPECTED DATA
     2426   01 0092A    35F00971              STW,15   T1DSN4
     2427   01 0092B    32E01B59              LW,14    SENEXP+3
     2428   01 0092C    55E20971              STH,14   T1DSN4,1
     2429   01 0092D    6AF00B7B              SEND     MX063             EXP X1 2X...
            01 0092E    00003D68
     2430   01 0092F    22FFFFFF A            LI,15    -1                GET MASK
     2431   01 00930    35F00970              STW,15   T1DSN3+1          FOR ADDRESS ...
     2432   01 00931    35F00972              STW,15   T1DSN4+1
     2433   01 00932    12E01B5A              LD,14    SENOBS            GET OBSERVED SENSE DATA
     2434   01 00933    35E0096F              STW,14   T1DSN3               FOR ADDRESS ...
     2435   01 00934    35F00971              STW,15   T1DSN4
     2436   01 00935    32E01B5D              LW,14    SENOBS+3
     2437   01 00936    55E20971              STH,14   T1DSN4,1
     2438   01 00937    6AF00B7B              SEND     MX064             OBS 01 02 ...
            01 00938    00003D6E
     2439   01 00939    22E00977              LI,14    T1DSN7            LOAD
     2440   01 0093A    22F0097A              LI,15    T1DSN8            FOR
     2441   01 0093B    15E00EF8              STD,14   VBINFA            VBINFA AND VBINFB
     2442   01 0093C    52F21B53              LH,15    SENMAS+1,1        GET SENSE MASK
     2443   01 0093D    35F00979              STW,15   T1DSN7+2
     2444   01 0093E    52F21B57              LH,15    SENEXP+1,1        GET SENSE EXPECTED
     2445   01 0093F    35F00978              STW,15   T1DSN7+1
     2446   01 00940    52F21B5B              LH,15    SENOBS+1,1        GET SENSE OBSERVED
     2447   01 00941    35F0097B              STW,15   T1DSN8+1
     2448   01 00942    6AF00B7B              SEND     MX065             OBS 06 AND 07
            01 00943    00003D74
     2449   01 00944    22E0097D              LI,14    T1DSN9            LOAD ADDRESSES
     2450   01 00945    22F00980              LI,15    T1DSNA            FOR
     2451   01 00946    15E00EF8              STD,14   VBINFA            VBINFA AND VBINFB
     2452   01 00947    52F01B54              LH,15    SENMAS+2          GET MASK
     2453   01 00948    35F0097F              STW,15   T1DSN9+2
     2454   01 00949    52F01B58              LH,15    SENEXP+2          GET EXP SENSE DATA
     2455   01 0094A    35F0097E              STW,15   T1DSN9+1
     2456   01 0094B    52F01B5C              LH,15    SENOBS+2          GET OBS SENSE DATA
     2457   01 0094C    35F00981              STW,15   T1DSNA+1
     2458   01 0094D    6AF00B7B              SEND     MX066             CONTROLLER FAULTS.....
            01 0094E    00003D80
     2459   01 0094F    52F21B54              LH,15    SENMAS+2,1        GET MASK
     2460   01 00950    35F0097F              STW,15   T1DSN9+2
     2461   01 00951    52F21B58              LH,15    SENEXP+2,1        GET EXP SENSE DATA
     2462   01 00952    35F0097E              STW,15   T1DSN9+1
     2463   01 00953    52F21B5C              LH,15    SENOBS+2,1        GET OBS SENSE DATA
     2464   01 00954    35F00981              STW,15   T1DSNA+1
     2465   01 00955    6AF00B7B              SEND     MX068             INTERRUPT BITS ...
            01 00956    00003D92
     2466   01 00957    52F01B55              LH,15    SENMAS+3          GET MASK
     2467   01 00958    35F0097F              STW,15   T1DSN9+2
     2468   01 00959    52F01B59              LH,15    SENEXP+3          GET EXP SENSE DATA
     2469   01 0095A    35F0097E              STW,15   T1DSN9+1
     2470   01 0095B    52F01B5D              LH,15    SENOBS+3          GET OBS SENSE DATA
     2471   01 0095C    35F00981              STW,15   T1DSNA+1
     2472   01 0095D    6AF00B7B              SEND     MX069             CHECK BYTES ...
            01 0095E    00003D9C
     2473   01 0095F    E800000A A            B        *10

     2474   01 00960    00000EF2     T1DSN    DATA     DA(IOCDX04)       IOCD ADDRESS
     2475   01 00961    00000000 A            DATA     0                 SIO
     2476   01 00962    10000000 A            DATA     X'10000000'       EXPECTED STATUS/CC
     2477   01 00963    1000C000 A            DATA     X'1000C000'       MASK
     2478   01 00964    00000000 A            DATA     0                 OBSERVED STATUS
     2479   01 00965    00000000 A   T1DSN1   DATA     0                 DELAY ERROR FLAG
     2480   01 00966    00000001 A            DATA     1                 TIO
     2481   01 00967    10000000 A            DATA     X'10000000'       EXPECTED STATUS/CC
     2482   01 00968    9FFFC000 A            DATA     X'9FFFC000'       MASK
     2483   01 00969    00000000 A            DATA     0                 OBSERVED STATUS
     2484   01 0096A    00000000 A   T1DSN2   DATA     0
     2485   01 0096B    00000004 A            DATA     4                 TDV
     2486   01 0096C    00000000 A            DATA     0                 EXPECTED STATUS/CC
     2487   01 0096D    00008000 A            DATA     X'00008000'       MASK
     2488   01 0096E    00000000 A            DATA     0                 OBSERVED STATUS
     2489   01 0096F    00000000 A   T1DSN3   DATA     0,0               DATA, MASK FOR HF8A
            01 00970    00000000 A
     2490   01 00971    00000000 A   T1DSN4   DATA     0,0               DATA, MASK FOR HF8B
            01 00972    00000000 A

        2*  01 00973    00000960     T1DSN5   DATA     T1DSN,T1DSN2,T1DSN1 DATA BASES: SIO, TDV, TIO     *H02
            01 00974    0000096A
            01 00975    00000965

     2493   01 00976    00000000 A   T1DSN6   DATA     0
     2494   01 00977    04100401 A   T1DSN7   DATA     X'04100401',0,0   PATTERN,DATA,MASK FOR BINFA
            01 00978    00000000 A
            01 00979    00000000 A
     2495   01 0097A    04100401 A   T1DSN8   DATA     X'04100401',0,-1  PATTERN,DATA,MASK FOR BINFB
            01 0097B    00000000 A
            01 0097C    FFFFFFFF A
     2496   01 0097D    04100401 A   T1DSN9   DATA     X'04100401',0,0   PATTERN,DATA,MASK FOR BINFA
            01 0097E    00000000 A
            01 0097F    00000000 A
     2497   01 00980    04100401 A   T1DSNA   DATA     X'04100401',0,-1  PATTERN,DATA,MASK FOR BINFB
            01 00981    00000000 A
            01 00982    FFFFFFFF A
     2498                            *
     2499                            *
     2500                            *
     2501                            *        ***T1-ACP   COMPARE SUBROUTINE***
     2502                            *
     2503                            * THIS ROUTINE USES TWO TIMES THE COMPARE SUBROUTINE,THE FIRST
     2504                            * TIME TO DETECT AN ERROR AND THE SECOND TIME FOR ERROR REPORTING
     2505                            *
     2506                            * PARAMETERS:     SEE #COMP SUBROUTINE
     2507                            *
     2508                            *
     2509   01 00983    00000000 A   T1ACP    DATA       0                 PARAMETER FLAG
     2510   01 00984    6800098C              B          T1ECP           ADDR. OF REPORT ROUTINE
     2511                            *
     2512                            *
     2513                            *
     2514                            *
     2515   01 00985    33100AC0     T1XCP    MTW,1    COMPF             SET PRINT INHIBIT FLAG
     2516   01 00986    6AF00AC7              BAL,15   #COMP             COMPARE ROUTINE
     2517   01 00987    68000989              B        %+2               NORMAL RETURN
     2518   01 00988    3310000A A            MTW,1    10                ERROR RETURN: SET ERROR RETURN
     2519   01 00989    22000000 A            LI,0     0                 RESET
     2520   01 0098A    35000AC0              STW,0    COMPF                 PRINT INHIBIT FLAG
     2521   01 0098B    E800000A A            B        *10               RETURN TO FTD
     2522                            *
     2523   01 0098C    6AF00B7B     T1ECP    SEND     MX046             COMPARE OF DATA
            01 0098D    00003D2E
     2524   01 0098E    32F01B6E              LW,15    BFRA              NO: GIVE REPORT
     2525   01 0098F    21F00003 A            CI,15    3                 CHECK IF TWO BUFFER COMPARE
     2526   01 00990    69100997              BL       T1ECP1            NO
     2527   01 00991    35F00EE8              STW,15   VHEX6A            YES: STORE FOR MESSAGE
     2528   01 00992    32F01B6F              LW,15    BFRB              GET ALSO BUFFER B ADR.
     2529   01 00993    35F00EEF              STW,15   VHEX6B              AND STOE IT
     2530   01 00994    6AF00B7B              SEND     MX043             BUFFER A ...
            01 00995    00003D18
     2531   01 00996    6800099D              B        T1ECP1A
     2532   01 00997    32F01B6B     T1ECP1   LW,15    PATID             LOAD PATTERN TYPE
     2533   01 00998    35F00EE1              STW,15   VDEC1A              AND STORE IT FOR MESSAGE
     2534   01 00999    32F01B6F              LW,15    BFRB
     2535   01 0099A    35F00EEF              STW,15   VHEX6B            DO THE SAME FOR BUFFER ADDR.
     2536   01 0099B    6AF00B7B              SEND     MX044             PATTERN TYPE ...
            01 0099C    00003D22
     2537   01 0099D    33000AC1     T1ECP1A  MTW,0    COMPE             TEST ERROR COUNT
     2538   01 0099E    691009A1              BL       T1ECP2            SEED ERROR
     2539   01 0099F    692009AA              BG       T1ECP4            DATA ERROR
     2540   01 009A0    E800000A A            B        *10               RETURN
     2541                            *
     2542   01 009A1    32F01B6C     T1ECP2   LW,15    PATID+1           GET THE SEED
     2543   01 009A2    35F00EE9              STW,15   VHEX8A
     2544   01 009A3    32F03364              LW,15    BF2               GET OBSERVED SEED
     2545   01 009A4    35F00EF0              STW,15   VHEX8B
     2546   01 009A5    6AF00B7B              SEND     MX411             PATTERN SEED: XXXX...
            01 009A6    00003F87
     2547   01 009A7    6AF00B7B              SEND     MX074
            01 009A8    00003DC0
     2548   01 009A9    E800000A A            B        *10
     2549                            *
     2550   01 009AA    6AF00AC7     T1ECP4   BAL,15   #COMP             COMPARE ROUTINE
     2551   01 009AB    680009AC              B        %+1
     2552   01 009AC    E800000A A            B        *10               RETURN
     2553                            *
     2554                            *
     2555                            *
1 C00   21:47 JUN 20,'83    TELEFILE ROTATING MEMORY TEST 960-0604-H02                            PAGE   14
A    2557                            *
     2558                            *
     2559                            *
     2560                            *        ***COMMON SUBROUTINES***
     2561                            *        ------------------------
     2562                            *
     2563                            *
     2564                            *        ***SENSE ROUTINE***
     2565                            *
     2566                            * THE SENSE ROUTINE ELIMINATES READ DIRECT INSTRUCTIONS, WHICH
     2567                            * ARE NOT ALLOWED FOR ON LINE DIAGNOSTIC OPERATIONS.
     2568                            *
     2569                            * PARAMETERS:
     2570                            *        CC       SENSE SWITCH 1-4
     2571                            *
     2572                            * CALLING SEQUENCE:
     2573                            *        BAL,15   #SENSE
     2574                            *        BCR,4    TST1A             RETURN ADDRESS
     2575                            *
     2576                            * REGISTERS USED: 15
     2577                            * SUBROUTINES USED: NONE
     2578                            *
     2579   01 009AD                 SENSES   RES      1
     2580                            *
     2581   01 009AE    35F009AD     #SENSE   STW,15   SENSES
     2582   01 009AF    EAF0022A              BAL,15   *:SENSE2
     2583   01 009B0    E80009AD              B        *SENSES
     2584                            *
     2585                            *
     2586                            *        ***IO EXECUTION ROUTINE***
     2587                            *
     2588                            * THE IO EXECUTION ROUTINE ISSUES AN IO INSTRUCTION AND TESTS
     2589                            * THE RETURNED STATUS.
     2590                            *
     2591                            * CALLING SEQUENCE:  E.G.
     2592                            *        LI,4     T1DSN             LOAD ADDRESS OF DATA BASE
     2593                            *        BAL,15   #IOEX             ISSUE IO INSTR., TEST AND SAVE ST.
     2594                            *        B        T1XSN3            NORMAL EXIT
     2595                            *        B        T1XSN4            ERROR EXIT
     2596                            *
     2597                            * CONTENTS OF THE DATA BASE: E.G.
     2598                            *T1DSN   DATA     DA(IOCDX04)       IOCD ADDRESS
     2599                            *        DATA     0                 IO TYPE 0 = SIO
     2600                            *        DATA     X'10000000'       EXPECTED STATUS/CC
     2601                            *        DATA     X'FFFFC000'       MASK
     2602                            *        DATA     0                 OBSERVED STATUS/CC
     2603                            *
     2604                            * THE REGISTERS 0,4,5,12-15 ARE USED AND CONTAIN THE FOLLOWING
     2605                            * DATA:
     2606                            *        REG.4    ADDRESS OF DATA BASE
     2607                            *        REG.5    IO TYPE
     2608                            *        REG.12   CURRENT COMMAND ADDRESS
     2609                            *        REG.13   STATUS/BYTE COUNT
     2610                            *        REG.14   EXPECTED STATUS/CC ANDED WITH MASK
     2611                            *        REG.15   OBSERVED STATUS/CC ANDED WITH MASK
     2612                            *
     2613   01 009B1    35F009D4     #IOEX    STW,15   IOEXS
     2614   01 009B2    B2000004 A            LW,0     *4
     2615   01 009B3    B2E20004 A            LW,14    *4,1              GET I/O TYPE
     2616   01 009B4    20EFFFFB A            AI,14    -5                CHECK IF SPECIAL TDV
     2617   01 009B5    691009BB              BL       IOEX1             NO
     2618   01 009B6    32F01B60              LW,15    DEVADDR           MODIFY
     2619   01 009B7    4BF01BEB              AND,15   KM16                DEVICE
     2620   01 009B8    30F0000E A            AW,15    14                    ADDRESS
     2621   01 009B9    22500005 A            LI,5     5                 GET I/O TYPE NUMBER
     2622   01 009BA    680009BC              B        %+2
     2623   01 009BB    B2520004 A   IOEX1    LW,5     *4,1              GET I/O TYPE NUMBER
     2624   01 009BC    670A09D5              EXU      IOINSTR,5         EXECUTE IO INSTRUCTION
     2625   01 009BD    7406000E A            STCF     14,3              SAVE CONDITION CODE
     2626   01 009BE    22000000 A            LI,0     0                 RESET REG.0
     2627   01 009BF    35D0000F A            STW,13   15                SAVE STATUS
     2628   01 009C0    75E4000F A            STB,14   15,2                OF REG. 13 AND COND. CODE
     2629   01 009C1    35F80004 A            STW,15   4,4                 AND STORE IT IN DATA BASE
     2630   01 009C2    32501B68              LW,5     SUBTNR
     2631   01 009C3    21500069 A            CI,5     105
     2632   01 009C4    683009CC              BE       IOEX2
     2633   01 009C5    B2520004 A            LW,5     *4,1              GET IO TYPE
     2634   01 009C6    21500010 A            CI,5     16                IS IT SPECIAL TDV11
     2635   01 009C7    683009CA              BE       %+3                 YES
     2636   01 009C8    2150000F A            CI,5     15                IS IT SPECIAL TDV10
     2637   01 009C9    693009CC              BNE      IOEX2             NO
     2638   01 009CA    32502DDA              LW,5     =X'00600000'      DELAY OF OVER 5 SEC.             A01
     2639   01 009CB    645009CB              BDR,5    %
     2640   01 009CC    31E00418     IOEX2    CW,14    CC3               COMPARE COND CODE 3 (ONLY SIGMA9)
     2641   01 009CD    E94209D4              BCS,4    *IOEXS,1          ERROR EXIT
     2642   01 009CE    4BF80003 A            AND,15   3,4               MASK OBSERVED STATUS AND CC
     2643   01 009CF    32E80002 A            LW,14    2,4               LOAD EXPECTED STATUS AND CC
     2644   01 009D0    4BE80003 A            AND,14   3,4               MASK IT
     2645   01 009D1    31E0000F A            CW,14    15                  AND COMPARE IT
     2646   01 009D2    E83009D4              BE       *IOEXS            OK
     2647   01 009D3    E80209D4              B        *IOEXS,1          ERROR
     2648                            *
     2649   01 009D4                 IOEXS    RES      1
     2650                            *
     2651                            *
     2652                            * IOINST - IO INSTRUCTION LIST
     2653                            *
     2654         01 009D5                    EQU      %
     2655   01 009D5    CCC01B60     IOINSTR  SIO,12   *DEVADDR          TYPE 0
     2656   01 009D6    CDC01B60              TIO,12   *DEVADDR          TYPE 1
     2657   01 009D7    CFC01B60              HIO,12   *DEVADDR          TYPE 2
     2658   01 009D8    6ED00000 A            AIO,13   0                 TYPE 3
     2659   01 009D9    CEC01B60              TDV,12   *DEVADDR          TYPE 4
     2660   01 009DA    CEC0000F A            TDV,12   *15               TYPE 5-20
     2661                            *
     2662                            *        ***IO COMPARE AND PRINT ROUTINE***
     2663                            *
     2664                            * THE IO COMPARE AND PRINT ROUTINE TESTS THE STATUS AND
     2665                            * CONDITION CODE AND PRINTS ACCORDINGLY MESSAGES, STATUS,
     2666                            * IOCDS...
     2667                            * IF THERE IS NO ADDRESS RECOGNITION, THE STATUS WILL NOT
     2668                            * BE PRINTED. IF THE IO INSTRUCTION WAS A SIO THE IOCD IS PRINTED.
     2669                            * IF THE IO INSTRUCTION IS A TDV GROUP 1 TO 15, THE GROUP WILL
     2670                            * BE IDENTIFIED.
     2671                            *
     2672                            * PARAMETER:
     2673                            *        REG.4    ADDRESS OF DATA BASE
     2674                            *                 DATA IN DATA BASE
     2675                            *
     2676                            * CALLING SEQUENCE:
     2677                            *        LI,4     T1DSN             GET ADDRESS OF DATA BASE
     2678                            *        BAL,15   #IOCP             BRANCH TO SUBROUTINE
     2679                            *        B        *10               RETURN ADDRESS
     2680                            *
     2681                            * REGISTER USED:  4, 5, 12-15
     2682                            * SUBROUTINES USED:  :PRINT, #MSGP, #IOCDP
     2683                            *
     2684                            *
     2685   01 009DB    35F00A18     #IOCP    STW,15   IOCPS             SAVE RETURN
     2686   01 009DC    B2520004 A            LW,5     *4,1              FETCH IO TYPE
     2687   01 009DD    21500004 A            CI,5     4                 TEST IO INSTR. TYPE
     2688   01 009DE    691009E0              BL       %+2               B: NOT A TDV
     2689   01 009DF    22500004 A            LI,5     4                 MAKE TYPE = TDV
     2690   01 009E0    32C80004 A            LW,12    4,4               FETCH OBSERVED STATUS
     2691   01 009E1    4BC02DDB              AND,12   =X'0000C000'      CONDITION CODE ONLY
     2692   01 009E2    31C02DDB              CW,12    =X'0000C000'      TEST FOR NO ADR RECOGNITION
     2693   01 009E3    693009EA              BNE      IOCP1             B: ADR WAS RECOGNIZED
     2694   01 009E4    32CA0A19              LW,12    IOCPL,5           FETCH ERROR MSG ADR FROM LIST
     2695   01 009E5    35C009E7              STW,12   %+2
     2696   01 009E6    6AF00B7B              BAL,15   #MSGP             PRINT MSG: 1, 2, 3, 4, OR 5
     2697   01 009E7    00000000 A            DATA     0                 MSG ADR
     2698   01 009E8    22000000 A            LI,0     0                 RESET REG. ZERO
     2699   01 009E9    E8000A18              B        *IOCPS            EXIT
     2700   01 009EA    32CA0A1E     IOCP1    LW,12    IOCPT,5           FETCH STATUS IO MSG FROM LIST
     2701   01 009EB    35C009ED              STW,12   %+2
     2702   01 009EC    6AF00B7B              BAL,15   #MSGP             PRINT MSG  6, 7, 8, 9, OR 10
     2703   01 009ED    00000000 A            DATA     0                 MSG ADR
     2704   01 009EE    6AF00B7B              SEND     MX601             STATUS HEADING
            01 009EF    0000403E
     2705   01 009F0    32D80002 A            LW,13    2,4               FETCH EXPECTED STATUS
     2706   01 009F1    25D00274 A            SCS,13   -12               ALIGN CC
     2707   01 009F2    35D00A27              STW,13   IOBIN2+1          SAVE CC
     2708   01 009F3    25D0027C A            SCS,13   -4
     2709   01 009F4    35D00A24              STW,13   IOBIN1+1          SAVE STATUS
     2710   01 009F5    32E80003 A            LW,14    3,4               GET MASK
     2711   01 009F6    25E00274 A            SCS,14   -12
     2712   01 009F7    33000418              MTW,0    CC3               SIGMA 9 ?
     2713   01 009F8    683009FA              BEZ      %+2
     2714   01 009F9    49E01BDD              OR,14    K2                CHANGE MASK
     2715   01 009FA    35E00A28              STW,14   IOBIN2+2          SAVE CC
     2716   01 009FB    25E0027C A            SCS,14   -4
     2717   01 009FC    35E00A25              STW,14   IOBIN1+2          SAVE MASK
     2718   01 009FD    22F00A23              LI,15    IOBIN1            GET ADDRESS
     2719   01 009FE    35F00EF8              STW,15   VBINFA
     2720   01 009FF    22F00A26              LI,15    IOBIN2              AND
     2721   01 00A00    35F00EF9              STW,15   VBINFB                  STORE
     2722   01 00A01    6AF00B7B              BAL,15   #MSGP
     2723   01 00A02    00003C49              DATA     MX011             PRINT MSG 11
     2724   01 00A03    32D80004 A            LW,13    4,4               OBSERVED STATUS
     2725   01 00A04    25D00274 A            SCS,13   -12               ALIGN CC
     2726   01 00A05    35D00EF2              STW,13   VBIN4A            SAVE CC
     2727   01 00A06    25D0027C A            SCS,13   -4
     2728   01 00A07    35D00EF4              STW,13   VBIN16A           SAVE STATUS
     2729   01 00A08    6AF00B7B              BAL,15   #MSGP
     2730   01 00A09    00003C4D              DATA     MX012             PRINT MSG:12
     2731   01 00A0A    32580001 A            LW,5     1,4               FETCH INSTRUCTION TYPE
     2732   01 00A0B    69300A11              BNEZ     IOCP2             B: NOT AN SIO
     2733   01 00A0C    32C80000 A            LW,12    0,4               FETCH IOCD ADR
     2734   01 00A0D    6AF00A29              BAL,15   #IOCDP            B: PRINT IOCD MSG
     2735   01 00A0E    32C80000 A            LW,12    0,4               GET IOCD ADDR
     2736   01 00A0F    6AF00A47              BAL,15   #BCOP
     2737   01 00A10    E8000A18              B        *IOCPS            EXIT
     2738   01 00A11    21500005 A   IOCP2    CI,5     5                 TEST INSTRUCTION TYPE
     2739   01 00A12    E9100A18              BL       *IOCPS            EXIT: NOT A TEST MODE TDV
     2740   01 00A13    205FFFFB A            AI,5     -5                ADJUST TYPE
     2741   01 00A14    35500EE6              STW,5    VHEX2A            SAVE TYPE
     2742   01 00A15    6AF00B7B              BAL,15   #MSGP
     2743   01 00A16    00003C51              DATA     MX013             PRINT MSG 13
     2744   01 00A17    E8000A18              B        *IOCPS            EXIT
     2745   01 00A18    00000000 A   IOCPS    DATA     0                 RETURN ADR
     2746                            *
     2747   01 00A19    00003C21     IOCPL    DATA     MX001,MX002,MX003,MX004,MX005        NO AR MSG ADR
            01 00A1A    00003C26
            01 00A1B    00003C2B
            01 00A1C    00003C30
            01 00A1D    00003C35
     2748   01 00A1E    00003C3A     IOCPT    DATA     MX006,MX007,MX008,MX009,MX010        STATUS ID MSG ADR
            01 00A1F    00003C3D
            01 00A20    00003C40
            01 00A21    00003C43
            01 00A22    00003C46
     2749   01 00A23    00100801 A   IOBIN1   DATA     X'00100801',0,0
            01 00A24    00000000 A
            01 00A25    00000000 A
     2750   01 00A26    00040400 A   IOBIN2   DATA     X'00040400',0,0
            01 00A27    00000000 A
            01 00A28    00000000 A
     2751                            *
     2752                            *
     2753                            *
     2754                            *        ***IOCD PRINT ROUTINE***
     2755                            *
     2756                            * THE IOCD PRINT ROUTINE PRINTS THE COMMAND ADDRESS (CA) AND THE
     2757                            * IOCD. UP TO 16 IOCD'S CAN BE PRINTED IF IOCD'S CONTAIN DC OR
     2758                            * CC FLAGS OR IF THE ORDER IS TRANSFER IN CHANNEL.
     2759                            *
     2760                            * PARAMETERS:
     2761                            *        REG.12   IOCD ADDRESS
     2762                            *                 IOCD DATA
     2763                            *
     2764                            * CALLING SEQUENCE:
     2765                            *        LI,12    DA(IOCD)
     2766                            *        BAL,15   #IOCDP
     2767                            *        B        *10               RETURN ADDRESS
     2768                            *
     2769                            * REGISTERS USED: 5, 12, 13, 15
     2770                            * SUBROUTINES USED: #MSGP
     2771                            *
     2772                            *
     2773                            *
     2774   01 00A29    35F00A3D     #IOCDP   STW,15   IOCDPS            SAVE RETURN ADR.
     2775   01 00A2A    22FFFFF0 A            LI,15    -16
     2776   01 00A2B    35F00A3E              STW,15   IOCDPX            SAVE INDEX
     2777   01 00A2C    30C0000C A            AW,12    12                CALCULATE WORD ADDRESS
     2778   01 00A2D    35C00EE8              STW,12   VHEX6A            SAVE IOCD ADR
     2779   01 00A2E    6AF00B7B              BAL,15   #MSGP
     2780   01 00A2F    00003C57              DATA     MX014             PRINT MSG 14
     2781   01 00A30    32500EE8     IOCDP0   LW,5     VHEX6A            FETCH IOCD ADR
     2782   01 00A31    92C00005 A            LD,12    *5                FETCH IOCD
     2783   01 00A32    35C00EE9              STW,12   VHEX8A            SAVE
     2784   01 00A33    35D00EF0              STW,13   VHEX8B              IOCD
     2785   01 00A34    6AF00B7B              BAL,15   #MSGP
     2786   01 00A35    00003C5C              DATA     MX015             PRINT MSG 14
     2787   01 00A36    72C00EF0              LB,12    VHEX8B            FETCH IOCD FLAGS
     2788   01 00A37    21C000A0 A            CI,12    X'A0'             TEST CC AND DC FLAGS
     2789   01 00A38    E8400A3D              BCR,4    *IOCDPS           B: NOT CC OR DC
     2790   01 00A39    33200EE8              MTW,2    VHEX6A            INCR IOCD ADDR
     2791   01 00A3A    33100A3E     IOCDP1   MTW,1    IOCDPX            INDR INDEX
     2792   01 00A3B    69100A30              BLZ      IOCDP0            PRINT NEXT IOCD
     2793   01 00A3C    E8000A3D              B        *IOCDPS
     2794                            *
     2795   01 00A3D    00000000 A   IOCDPS   DATA     0                 EXIT ADR
     2796   01 00A3E    00000000 A   IOCDPX   DATA     0                 INDEX
     2797                            *
     2798                            *
     2799                            *
     2800                            *        ***BUFFER CONTENTS PRINT ROUTINE***
     2801                            *
     2802                            * THE BUFFER CONTENTS ROUTINE IS A DEVICE ORIENTED SUBROUTINE.
     2803                            * IT PRINTS THE CONTENTS OF THE BUFFER DEPENDANT ON ORDER AND
     2804                            * BYTE COUNT.
     2805                            * THE ORDERS ARE TESTMODE SELECTION, SEEK, AND HEADER WRITE.
     2806                            * THE PRINTOUT IS LIMITED BY BYTECOUNT AND PRINT LIMIT (LIMT
     2807                            * DIRECTIVE, DEFAULT IS 5).
     2808                            *
     2809                            * PARAMETERS:
     2810                            *        REG.12           ADDRESS OF IOCD
     2811                            *        COMPL    PRINT LIMIT
     2812                            *
     2813                            * CALLING SEQUENCE:
     2814                            *        LW,12    =IOCDX02
     2815                            *        BAL,15   #BCOP
     2816                            * REGISTERS USED: 5,12,14 AND 15
     2817                            *
     2818   01 00A3F                 BCOPS    RES      2
     2819   01 00A41    00003F99     BCOPM    DATA     MX420,MX421
            01 00A42    00003F9F
     2820   01 00A43    00000003 A   BCOPO    DATA     X'03',X'83',X'13',X'09'
            01 00A44    00000083 A
            01 00A45    00000013 A
            01 00A46    00000009 A
     2821                            *
     2822   01 00A47    35F00A3F     #BCOP    STW,15   BCOPS             SAVE RETURN ADDRESS
     2823   01 00A48    32F0000C A            LW,15    12                LOAD IOCD ADDRESS
     2824   01 00A49    30F0000F A            AW,15    15                 CALCULATE WORD ADDRESS
     2825   01 00A4A    F2E0000F A            LB,14    *15               LOAD ORDER FROM IOCD
     2826   01 00A4B    225FFFFC A            LI,5     -4                COMPARE IT WITH
     2827   01 00A4C    31EA0A47     BCOP1    CW,14    BCOPO+4,5            SEEK ORDERS X'03' AND X'83'
     2828   01 00A4D    68300A50              BE       BCOP2                TEST MODE SELECTION
     2829   01 00A4E    65500A4C              BIR,5    BCOP1                AND HEADER WRITE
     2830   01 00A4F    E8000A3F              B        *BCOPS            NO MATCH: RETURN
     2831   01 00A50    D2E6000F A   BCOP2    LH,14    *15,3             GET BYTE COUNT
     2832   01 00A51    25E0007E A            SLS,14   -2                 CALCULATE WORD COUNT
     2833   01 00A52    31E00ABF              CW,14    COMPL                AND COMPARE IT WITH PRINT LIMIT
     2834   01 00A53    69100A55              BL       %+2               PRINT WHAT EVER IS LESS
     2835   01 00A54    32E00ABF              LW,14    COMPL
     2836   01 00A55    3A50000E A            LCW,5    14                LOAD COMPLEMENT IN REG5
     2837   01 00A56    B2E0000F A            LW,14    *15               GET BUFFER ADDRESS
     2838   01 00A57    4BE02DDC              AND,14   =X'FFFFF'           AND MASK IT
     2839   01 00A58    25E0007E A            SLS,14   -2                   AND CALCULATE WORD ADDRESS
     2840   01 00A59    35E00EE8              STW,14   VHEX6A            THEN STORE CONTENTS IN PRINT LOC.
     2841   01 00A5A    32F00A41              MVW      BCOPM,BCOP4+1     STORE FIRST MESSAGE ADDRESS IN MSGP. LOC
            01 00A5B    35F00A5F
     2842   01 00A5C    B2F0000E A   BCOP3    MVW      *14,VHEX8A        STORE BUFFER DATA IN PRINT LOC.
            01 00A5D    35F00EE9
     2843   01 00A5E    6AF00B7B     BCOP4    SEND     MX000             SEND MESSAGES
            01 00A5F    00003C1C
     2844   01 00A60    3310000E A            MTW,1    14                INCREMENT BUFFER ADDRESS
     2845   01 00A61    32F00A42              MVW      BCOPM+1,BCOP4+1   STORE SECOND MESSAGE ADDRESS IN MSGP.LOC
            01 00A62    35F00A5F
     2846   01 00A63    65500A5C              BIR,5    BCOP3             LOOP
     2847   01 00A64    E8000A3F              B        *BCOPS            RETURN
     2848                            *
     2849                            *
     2850                            *        ***START COUNTER ROUTINE***
     2851                            *
     2852                            * THE START COUNTER ROUTINE PREPARES AND STARTS THE COUNTER 4
     2853                            * INTERRUPT TO MEASURE OR TIME OUT OTHER PROCEDURES.
     2854                            * THE RETURN FROM THE SUBROUTINE IS DELAYED TILL ONE OF THE
     2855                            * 2 MSEC CLOCK SIGNALS IS RECEIVED  TO ACCOMPLISH EXACT TIMING.
     2856                            *
     2857                            * PARAMETERS:
     2858                            *        DELAY    LABEL OF THE LOCATION WHICH IS DECREMENTED
     2859                            *                 BY THE 2 MSEC CLOCK (VALUE IN 2 MSEC)
     2860                            *        SCNTF    TIME OUT FLAG (1= TIME OUT)
     2861                            *
     2862                            * CALLING SEQUENCE:
     2863                            *        BAL,15   #SCNT
     2864                            *        DATA     T67EE             ADDRESS FOR TIME OUT RETURN
     2865                            *        LI,15    10                GET DELAY VALUE (HERE 20 MSEC)
     2866                            *        STW,15   DELAY
     2867                            *
     2868                            * IF THE DATA STATEMENT CONTAINS ADDRESS= 0, THEN THE PROGRAM
     2869                            * IS CONTINUED AFTER THE TIME OUT INTERRUPT. THE FLAG SCNTF HAS TO
     2870                            * BE CHECKED TO VERIFY THE TIME OUT.
     2871                            *
     2872                            *
     2873                            * REGISTERS USED: 15
     2874                            *
     2875                            *
     2876   01 00A65    35F00A78     #SCNT    STW,15   SCNTS             SAVE RETURN ADDRESS
     2877   01 00A66    B2F0000F A            LW,15    *15               GET INTERRUPT RETURN ADDRESS
     2878   01 00A67    35F00A79              STW,15   SCNTIR
     2879   01 00A68    22F00000 A            LI,15    0                 RESET
     2880   01 00A69    35F00A7A              STW,15   SCNTF               TIME OUT FLAG
     2881   01 00A6A    35101B77              STW,1    DELAY
     2882   01 00A6B    32F00A76              LW,15    SCNTM             INITIALIZE COUNT ZERO PULS
     2883   01 00A6C    35F00055 A            STW,15   X'55'
     2884   01 00A6D    32F00A77              LW,15    SCNTI             INITIALIZE COUNT ZERO 4
     2885   01 00A6E    35F0005B A            STW,15   X'5B'
     2886   01 00A6F    22F01000 A            LI,15    X'1000'           ARM AND ENABLE
     2887   01 00A70    6DF01200 A            WD,15    X'1200'
     2888   01 00A71    33001B77              MTW,0    DELAY             WAIT TILL CLOCK SIGNAL
     2889   01 00A72    69300A71              BNEZ     %-1
     2890   01 00A73    22F01040 A            LI,15    X'1040'           ARM AND ENABLE BOTHH
     2891   01 00A74    6DF01200 A            WD,15    X'1200'
     2892   01 00A75    E8020A78              B        *SCNTS,1
     2893                            *
     2894   01 00A76    33F01B77     SCNTM    MTW,-1   DELAY
     2895   01 00A77    0F000A7C     SCNTI    XPSD,0   SCNTIW
     2896                            *
     2897   01 00A78                 SCNTS    RES      1
     2898   01 00A79                 SCNTIR   RES      1
     2899   01 00A7A                 SCNTF    RES      1
     2900                                     BOUND    8
     2901   01 00A7C    00000000 A   SCNTIW   DATA     0,0
            01 00A7D    00000000 A
     2902   01 00A7E    00000A81              DATA     SCNTB,X'07000000'
            01 00A7F    07000000 A
     2903   01 00A80                 SCNTBS   RES      1
     2904                            *
     2905   01 00A81    35F00A80     SCNTB    STW,15   SCNTBS
     2906   01 00A82    32F00A79              LW,15    SCNTIR
     2907   01 00A83    68300A85              BEZ      %+2
     2908   01 00A84    35F00A7C              STW,15   SCNTIW
     2909   01 00A85    22F01060 A            LI,15    X'1060'           DISARM ALL INTERRUPTS
     2910   01 00A86    6DF01500 A            WD,15    X'1500'
     2911   01 00A87    35100A7A              STW,1    SCNTF             LOAD TIME OUT FLAG
     2912   01 00A88    32F00A80              LW,15    SCNTBS
     2913   01 00A89    0E300A7C              LPSD,3   SCNTIW
     2914                            *
     2915                            *
     2916                            *        ***HALT COUNTER ROUTINE***
     2917                            *
     2918                            * CALLING SEQUENCE:
     2919                            *        BAL,15   #HCNT
     2920                            *
     2921                            * REGISTERS USED: 14, 15
     2922                            *
     2923                            *
     2924   01 00A8A    22E01060 A   #HCNT    LI,14    X'1060'           DISARM ALL INTERRUPTS
     2925   01 00A8B    6DE01500 A            WD,14    X'1500'
     2926   01 00A8C    E800000F A            B        *15
     2927                            *
     2928                            *
     2929                            *
     2930                            *        ***TEST DIRECTIVE PARAMETERS***
     2931                            *
     2932                            * THIS SUBROUTINE TESTS THE LOWER AND UPPER LIMITS OF PARAMETERS IN-
     2933                            * SERTED BY A DIRECTIVE.
     2934                            *
     2935                            * PARAMETERS:
     2936                            *        :PSW     PARAMETER COUNT
     2937                            *        :P1 THRU PARAMETER 1 THRU
     2938                            *        :P4          PARAMETER 4
     2939                            *
     2940                            * CALLING SEQUENCE:
     2941                            *        BAL,15   #TPM
     2942                            *        DATA     TABLE             DOUPLEWORD TABLE
     2943                            *
     2944                            * THE DOUPLEWORD TABLE CONTAINS THE LOWER AND UPPER LIMIT OF
     2945                            * THE PARAMETER COUNT AND THE PARAMETERS.
     2946                            * E.G.:
     2947                            *TABLE   DATA     0,2               LIMITS OF PAR. COUNT
     2948                            *        DATA     1,99              LIMITS OF PARAMETER 1
     2949                            *        DATA     1,99              LIMITS OF PARAMETER 2
     2950                            *
     2951                            * REGISTERS USED: 4, 5, 13-15
     2952                            * SUBROUTINES USED: #MSGP
     2953                            *
     2954                            *
     2955   01 00A8D    72420211     #TPM     LB,4     :PSW,1            LOAD PARAMETER COUNT
     2956   01 00A8E    B2E0000F A            LW,14    *15               GET COMPARE TABLE ADDRESS
     2957   01 00A8F    9940000E A            CLM,4    *14               COMPARE PARAMETER COUNT
     2958   01 00A90    69900A9A              BCS,9    TPM2              ERROR
     2959   01 00A91    22500000 A            LI,5     0                 LOAD PARAMETER INDEX
     2960   01 00A92    31500004 A   TPM1     CW,5     4                 RETURN
     2961   01 00A93    E832000F A            BE       *15,1                IF NO PARAMETERS
     2962   01 00A94    32DA0201              LW,13    :P1,5             LOAD PARAMETER
     2963   01 00A95    33100005 A            MTW,1    5                 INCREMENT INDEX
     2964   01 00A96    35500EE1              STW,5    VDEC1A            PREPARE FOR PRINT IF ERROR
     2965   01 00A97    99DA000E A            CLM,13   *14,5
     2966   01 00A98    69900AA1              BCS,9    TPM3              LIMIT ERROR
     2967   01 00A99    68000A92              B        TPM1
     2968                            *
     2969   01 00A9A    69800A9E     TPM2     BCS,8    %+4               TOO MANY
     2970   01 00A9B    6AF00B7B              SEND     MX400             NOT ENOUGH PARAMETERS
            01 00A9C    00003F71
     2971   01 00A9D    E8000214              B        *:MONITOR         RETURN
     2972   01 00A9E    6AF00B7B              SEND     MX401             TOO MANY PARAMETERS
            01 00A9F    00003F77
     2973   01 00AA0    E8000214              B        *:MONITOR         RETURN
     2974                            *
     2975   01 00AA1    69800AA5     TPM3     BCS,8    %+4               TO BIG
     2976   01 00AA2    6AF00B7B              SEND     MX402             PARAMETER TOO SMALL
            01 00AA3    00003F7D
     2977   01 00AA4    E8000214              B        *:MONITOR         RETURN
     2978   01 00AA5    6AF00B7B              SEND     MX403             PARAMETER TOO BIG
            01 00AA6    00003F82
     2979   01 00AA7    E8000214              B        *:MONITOR         RETURN
     2980                            *
     2981                            *
     2982                            *        ***CLEAR SUBROUTINE***
     2983                            *
     2984                            * PARAMETERS:
     2985                            *        WCNT     WORD COUNT
     2986                            *        BFRA     BUFFER ADDRESS A (#CLEARA ONLY)
     2987                            *        BFRB     BUFFER ADDRESS B (#CLEARB ONLY)
     2988                            *
     2989                            * CALLING SEQUENCE:
     2990                            *        BAL,15   #CLEARA  (OR #CLEARB)
     2991                            *
     2992                            * REGISTERS USED: 0, 4, 14-15
     2993                            *
     2994                            *
     2995   01 00AA8    32E01B6E     #CLEARA  LW,14    BFRA
     2996   01 00AA9    68000AAB              B        %+2               LOAD BUFFER ADDRESS
     2997   01 00AAA    32E01B6F     #CLEARB  LW,14    BFRB
     2998   01 00AAB    30E01B6A              AW,14    WCNT                AND ADD WORD COUNT
     2999   01 00AAC    3A401B6A              LCW,4    WCNT              LOAD INDEX WITH WORD COUNT
     3000   01 00AAD    22000000 A            LI,0     0                 RESET REG. 0
     3001   01 00AAE    B508000E A            STW,0    *14,4             RESET BUFFER LOCATION
     3002   01 00AAF    65400AAE              BIR,4    %-1               LOOP TILL BUFFER IS RESET
     3003   01 00AB0    E800000F A            B        *15                 AND RETURN
     3004                            *
     3005                            *
     3006                            *        ***RANDOM NUMBER GENERATOR***
     3007                            *
     3008                            * THE CALCULATION OF THE NEXT RANDOM NUMBER (SEED) DEPENDS ON THE
     3009                            * PREVIOUS NUMBER (SEED) AND THE VALUES OF TWO COUNTERS (RANDM) AND
     3010                            * (RANDN). THE COUNTERS ARE ALSO CHANGED DURING A CLCULATION OF A
     3011                            * NEW RANDOM NUMBER.
     3012                            *
     3013                            * PARAMETERS:
     3014                            *        SEED     RANDOM NUMBER
     3015                            *        RANDM    COUNTER M
     3016                            *        RANDN    COUNTER N
     3017                            *        REG.14   NEW SEED
     3018                            *
     3019                            * REGISTERS USED: 14, 15
     3020                            *
     3021                            *
     3022   01 00AB1    22679CB1 A   RANDK    DATA     577215665         GAMMA-CONSTANT
     3023   01 00AB2    544B2FBA A   SEED     DATA     1414213562        SQRT(2)
     3024   01 00AB3    12B9B0A1 A   RANDM    DATA     314159265         CONSTANT PI
     3025   01 00AB4    22679CB1 A   RANDN    DATA     577215665         CONSTANT GAMMA
     3026                            *
     3027   01 00AB5    33100AB3     #RAND    MTW,1    RANDM             TEST COUNTER M
     3028   01 00AB6    68300AB8              BCR,3    %+2
     3029   01 00AB7    33F00AB4              MTW,-1   RANDN             DECREMENT COUNTER N
     3030   01 00AB8    32E00AB2              LW,14    SEED              LOAD SEED
     3031   01 00AB9    25E0020D A            SCS,14   13                SHIFT SEED
     3032   01 00ABA    30E00AB1              AW,14    RANDK             ADD CONSTANT
     3033   01 00ABB    48E00AB3              EOR,14   RANDM             COMBINE WITH COUNTER M
     3034   01 00ABC    48E00AB4              EOR,14   RANDN             COMBINE WITH COUNTER N
     3035   01 00ABD    35E00AB2              STW,14   SEED              STORE SEED
     3036   01 00ABE    E800000F A            B        *15               RETURN
     3037                            *
     3038                            *
     3039                            *        ***COMPARE SUBROUTINE***
     3040                            *
     3041                            * THE COMPARE SUBROUTINE COMPARES THE CONTENTS OF TWO BUFFERS OR
     3042                            * THE CONTENTS OF A BUFFER WITH A DATA PATTERN ACCORDING TO THE
     3043                            * PATTERN TYPE SPECIFIED.
     3044                            *
     3045                            * PARAMETERS:
     3046                            *        PATID    PATTERN TYPE
     3047                            *        PATID+1  DATA PATTERN
     3048                            *        PATID+2  INCREMENT VALUE (ONLY TYPE 1)
     3049                            *        WCNT     WORD COUNT
     3050                            *        BFRA     BUFFER ADDRESS A
     3051                            *        BFRB     BUFFER ADDRESS B
     3052                            *
     3053                            * IF THE CONTENTS OF BFRA IS ZERO
     3054                            * ,     THE COMPARISON IS DONE THEN BETWEEN THE CONTENTS OF BUFFER B
     3055                            * AND A DATA PATTERN GENERATED ACCORDING TO THE PATTERN TYPE.
     3056                            *
     3057                            *
     3058                            * REGISTERS USED: 4, 5, 12, 14-15
     3059                            * SUBROUTINES USED: #MSGP
     3060                            *
     3061                            *
     3062   01 00ABF    00000005 A   COMPL    DATA     5                 COMPARE PRINT LIMITS
     3063   01 00AC0    00000000 A   COMPF    DATA     0                 PRINT INHIBIT FLAG
     3064   01 00AC1                 COMPE    RES      1                 ERROR FLAG / COUNT
     3065   01 00AC2                 COMPS    RES      1                 RETURN ADDRESS
     3066   01 00AC3                 COMPA    RES      1                 BUFFER ADDRESS A (TOP)
     3067   01 00AC4                 COMPB    RES      1                 BUFFER ADDRESS B (TOP)
     3068   01 00AC5                 COMPN    RES      1                 WORD COUNT / 2
     3069                            *
     3070   01 00AC6    12B9B0A1 A   KPI      DATA     314159265         CONSTANT PI
     3071                            *
     3072   01 00AC7    22E00000 A   #COMP    LI,14    0                 RESET
     3073   01 00AC8    35E00AC1              STW,14   COMPE                ERROR COUNT
     3074   01 00AC9    35F00AC2              STW,15   COMPS             SAVE RETURN ADDRESS
     3075   01 00ACA    32501B6B              LW,5     PATID             LOAD PATTERN TYPE
     3076   01 00ACB    21500002 A            CI,5     2                 CHECK IF WRONG TYPE
     3077   01 00ACC    69200ACC              BG       %                 STOP
     3078   01 00ACD    3A401B6A              LCW,4    WCNT              LOAD WORD COUNT
     3079   01 00ACE    32F01B6F              LW,15    BFRB              LOAD BUFFER ADDRESS B
     3080   01 00ACF    30F01B6A              AW,15    WCNT              ADD WORD COUNT
     3081   01 00AD0    35F00AC4              STW,15   COMPB              AND STORE IT
     3082   01 00AD1    32F01B6E              LW,15    BFRA              LOAD BUFFER ADDRESS A
     3083   01 00AD2    3300000F A            MTW,0    15                CHECK IF COMPARE WITH TWO BUFFERS
     3084   01 00AD3    68300AD7              BEZ      %+4               NO
     3085   01 00AD4    30F01B6A              AW,15    WCNT              YES: ADD WORD COUNT
     3086   01 00AD5    35F00AC3              STW,15   COMPA             STORE IT
     3087   01 00AD6    22500003 A            LI,5     3                 SET COMPARE TYPE 3
     3088   01 00AD7    32E01B6C              LW,14    PATID+1           GET THE SEED
     3089   01 00AD8    325A0ADA              LW,5     %+2,5             LOAD COMPARE ROUTINE ADDR.
     3090   01 00AD9    E8000005 A            B        *5                BRANCH TO ROUTINE
     3091                            *
     3092   01 00ADA    00000ADE              DATA     COMP0             COMPARE FIXED PATTERN
     3093   01 00ADB    00000AE3              DATA     COMP1             COMPARE INCR. PATTERN
     3094   01 00ADC    00000AE9              DATA     COMP2             COMPARE RANDOM PATTERN
     3095   01 00ADD    00000B0F              DATA     COMP5             2 BUFFER COMPARE
     3096                            *
     3097                            *        ***COMPARE FIXED DATA PATTERN***
     3098                            *
     3099   01 00ADE    B1E80AC4     COMP0    CW,14    *COMPB,4
     3100   01 00ADF    68300AE1              BE       %+2
     3101   01 00AE0    6AF00B16              BAL,15   COMP6             BRANCH TO ERROR REPORTING ROUTINE
     3102   01 00AE1    65400ADE              BIR,4    COMP0             LOOP
     3103   01 00AE2    68000B30              B        COMP9             RETURN
     3104                            *
     3105                            *        ***COMPARE INCREMENTED DATA PATTERN***
     3106                            *
     3107   01 00AE3    B1E80AC4     COMP1    CW,14    *COMPB,4
     3108   01 00AE4    68300AE6              BE       %+2
     3109   01 00AE5    6AF00B16              BAL,15   COMP6             BRANCH TO ERROR REPORTING ROUTINE
     3110   01 00AE6    30E01B6D              AW,14    PATID+2           INCREMENT DATA
     3111   01 00AE7    65400AE3              BIR,4    COMP1             LOOP
     3112   01 00AE8    68000B30              B        COMP9             RETURN
     3113                            *
     3114                            *        ***COMPARE RANDOM PATTERN***
     3115                            *
     3116   01 00AE9    3AF01B6A     COMP2    LCW,15   WCNT              LOAD WORD COUNT
     3117   01 00AEA    25F0047F A            SAS,15   -1                DIVIDE WORD COUNT BY 2
     3118   01 00AEB    35F00AC5              STW,15   COMPN             SAVE COUNT
     3119   01 00AEC    3AF0000F A            LCW,15   15                GET POSITIVE NUMBER
     3120   01 00AED    B0F80AC4              AW,15    *COMPB,4          ADD DOUBLE WORDS OF DATA
     3121   01 00AEE    65400AED              BIR,4    %-1               LOOP
     3122   01 00AEF    69300AF5              BNEZ     COMP2C            ERROR: GO TO STEP TEST
     3123   01 00AF0    B2F01B6F              LW,15    *BFRB             LOAD 1. OBSERVED WORD
     3124   01 00AF1    31F01B6C              CW,15    PATID+1            AND COMPARE IT WITH THE SEED
     3125   01 00AF2    68300B30              BE       COMP9             OK: RETURN
     3126   01 00AF3    33F00AC1              MTW,-1   COMPE             SET ERROR FLAG NEGATIV
     3127   01 00AF4    E8020AC2              B        *COMPS,1          RETURN TO CALLING ROUTINE
     3128                            *
     3129   01 00AF5    3A401B6A     COMP2C   LCW,4    WCNT              LOAD WORD COUNT
     3130   01 00AF6    32500AC6              LW,5     KPI               LOAD CONSTANT PI
     3131   01 00AF7    35500B43              STW,5    PATTM             SAVE IT
     3132   01 00AF8    31400AC5     COMP2D   CW,4     COMPN             IS THAT THE MIDDLE
     3133   01 00AF9    68300B0A              BE       COMP2E            YES
     3134   01 00AFA    B1E80AC4              CW,14    *COMPB,4
     3135   01 00AFB    68300AFD              BE       %+2
     3136   01 00AFC    6AF00B16              BAL,15   COMP6             BRANCH TO ERROR REPORTING ROUTINE
     3137   01 00AFD    31400AC5              CW,4     COMPN             IS THE 1. OR THE 2. HALF USED
     3138   01 00AFE    68100B00              BGE      %+2               2. HALF
     3139   01 00AFF    48E02DDD              EOR,14   =-1               1. HALF
     3140   01 00B00    35E0000F A            STW,14   15                  AND NOW GENERATE THE
     3141   01 00B01    25E00007 A            SLS,14   7                    NEXT RANDOM NUMBER IN THE
     3142   01 00B02    38E0000F A            SW,14    15                     WAY AS IN THE PATTERN SPREAD
     3143   01 00B03    46E00B43              XW,14    PATTM                      ROUTINE
     3144   01 00B04    30E00B43              AW,14    PATTM
     3145   01 00B05    31400AC5              CW,4     COMPN             CHECK AGAIN WHICH HALF
     3146   01 00B06    69100B08              BL       %+2
     3147   01 00B07    48E02DDD              EOR,14   =-1               2. HALF ONLY
     3148   01 00B08    65400AF8              BIR,4    COMP2D            LOOP
     3149   01 00B09    68000B30              B        COMP9             RETURN
     3150   01 00B0A    32E01B6C     COMP2E   LW,14    PATID+1           GET THE SEED AGAIN
     3151   01 00B0B    32500AC6              LW,5     KPI                 AND THE CONSTANT PI
     3152   01 00B0C    35500B43              STW,5    PATTM                 TO TEST THE 2. HALF
     3153   01 00B0D    48E02DDD              EOR,14   =-1               WHICH IS THE 1 COMPLEMENT
     3154   01 00B0E    68000AFA              B        COMP2D+2            OF THE 1. BUFFER HALF
     3155                            *
     3156                            *
     3157                            *        ***COMPARE WITH TWO BUFFERS***
     3158                            *
     3159   01 00B0F    B2E80AC3     COMP5    LW,14    *COMPA,4          GET EXPECTED WORD
     3160   01 00B10    B1E80AC4              CW,14    *COMPB,4            AND COMPARE IT WITH OBSERVED
     3161   01 00B11    68300B13              BE       %+2               OK
     3162   01 00B12    6AF00B16              BAL,15   COMP6             GO TO ERROR REPORTING ROUTINE
     3163   01 00B13    65400B0F              BIR,4    COMP5             LOOP
     3164   01 00B14    68000B30              B        COMP9             RETURN
     3165                            *
     3166                            *        ***ERROR REPORTING ROUTINE***
     3167                            *
     3168   01 00B15                 COMP6S   RES      1
     3169                            *
     3170   01 00B16    35F00B15     COMP6    STW,15   COMP6S            SAVE EXPECTED DATA
     3171   01 00B17    33000AC0              MTW,0    COMPF             PRINT INHIBIT FLAG SET
     3172   01 00B18    69300B2E              BNEZ     COMP6C            YES: NO PRINT
     3173   01 00B19    33000AC1              MTW,0    COMPE             ERROR COUNT
     3174   01 00B1A    69300B1F              BNEZ     COMP6A               STILL ZERO: PRINT HEADERS
     3175   01 00B1B    6AF00B7B              SEND     MX411             COMPARE ERROR
            01 00B1C    00003F87
     3176   01 00B1D    6AF00B7B              SEND     MX603             HEADING
            01 00B1E    00004040
     3177   01 00B1F    32F00AC1     COMP6A   LW,15    COMPE             CHECK IF PRINT LIMIT
     3178   01 00B20    31F00ABF              CW,15    COMPL                IS ALREADY REACHED
     3179   01 00B21    68100B2E              BGE      COMP6C            YES: RETURN
     3180   01 00B22    32C00B3F              LW,12    #COMPBIN          LOAD ADDRESS OF COMPBIN
     3181   01 00B23    35C00EF8              STW,12   VBINFA            STORE IT FOR MESSAGE
     3182   01 00B24    32C01B6A              LW,12    WCNT              LOAD WORDCOUNT
     3183   01 00B25    30C00004 A            AW,12    4                    AND ADD WORD INDEX
     3184   01 00B26    35C00EE7              STW,12   VHEX4A                AND STORE IT FOR M.
     3185   01 00B27    35E00B3D              STW,14   COMPBIN+1
     3186   01 00B28    6AF00B7B              SEND     MX413             SEND IT
            01 00B29    00003F8A
     3187   01 00B2A    B2F80AC4              LW,15    *COMPB,4          GET OBSERVED DATA
     3188   01 00B2B    35F00B3D              STW,15   COMPBIN+1           STORE IT
     3189   01 00B2C    6AF00B7B              SEND     MX414                 AND SEND IT
            01 00B2D    00003F8F
     3190   01 00B2E    33100AC1     COMP6C   MTW,1    COMPE             INCREMENT ERROR COUNT
     3191   01 00B2F    E8000B15              B        *COMP6S           RETURN
     3192                            *
     3193   01 00B30    33000AC1     COMP9    MTW,0    COMPE             TEST ERROR COUNT
     3194   01 00B31    E8300AC2              BEZ      *COMPS            RETURN TO CALLING ROUTINE
     3195   01 00B32    33100AC2              MTW,1    COMPS             ERRORS: INCREM. RETURN ADDR.
     3196   01 00B33    33000AC0              MTW,0    COMPF             TEST PRINT FLAG
     3197   01 00B34    E9300AC2              BNEZ     *COMPS            RETURN
     3198   01 00B35    32C00AC1              LW,12    COMPE             LOAD ERROR COUNT
     3199   01 00B36    31C00ABF              CW,12    COMPL             COMPARE WITH PRINT LIMIT
     3200   01 00B37    E8200AC2              BLE      *COMPS            RETURN
     3201   01 00B38    35C00EE3              STW,12   VDEC4A
     3202   01 00B39    6AF00B7B              SEND     MX417             PRINT LIMIT MESSAGE
            01 00B3A    00003F92
     3203   01 00B3B    E8000AC2              B        *COMPS            RETURN
     3204                            *
     3205                            *
     3206   01 00B3C    00200401 A   COMPBIN  DATA     X'00200401'
     3207   01 00B3D                          RES      1
     3208   01 00B3E    FFFFFFFF A            DATA     -1
     3209   01 00B3F    00000B3C     #COMPBIN DATA     COMPBIN
     3210                            *
     3211                            *
     3212                            *        ***PATTERN SPREAD***
     3213                            *
     3214                            * THE PATTERN SPREAD SUBROUTINE SPREADS A DATA PATTERN ACCORDING
     3215                            * TO THE TYPE SPECIFIED (PARAMETER: PATID)
     3216                            * THE DATA ARE SPREAD IN BUFFER A (BFRA), EXCEPT IF BFRA=0, THEN
     3217                            * DATA ARE SPREAD IN BUFFER B (BFRB).
     3218                            *
     3219                            *        TYPE 0   SPREAD FIXED DATA PATTERN
     3220                            *        TYPE 1   SPREAD INCREMENTED DATA PATTERN
     3221                            *        TYPE 2   SPREAD RANDOM DATA PATTERN
     3222                            *
     3223                            * PARAMETER:
     3224                            *        PATID    PATTERN IDENTIFICATION TYPE
     3225                            *        PATID+1  DATA PATTERN
     3226                            *        PATID+2  INCREMENT VALUE (TYPE 1 ONLY)
     3227                            *        WCNT     WORD COUNT
     3228                            *        BFRA     BUFFER ADDRESS A
     3229                            *        BFRB     BUFFER ADDRESS B
     3230                            *
     3231                            * CALLING SEQUENCE:
     3232                            *        BAL,15   #PATT
     3233                            *
     3234                            * REGISTERS USED: 4, 5, 15
     3235                            *
     3236                            *
     3237   01 00B40                 PATTS    RES      1                 RETURN ADDRESS
     3238   01 00B41                 PATTB    RES      1                 BUFFER ADDRESS (TOP)
     3239   01 00B42                 PATTH    RES      1                 BUFFER ADDRESS (TOP OF 1. HALF)
     3240   01 00B43                 PATTM    RES      1                 RANDOM NUMBER STORAGE
     3241                            *
     3242   01 00B44    35F00B40     #PATT    STW,15   PATTS             SAVE RETURN ADDRESS
     3243   01 00B45    3A401B6A              LCW,4    WCNT              LOAD WORD COUNT
     3244   01 00B46    32F01B6E              LW,15    BFRA
     3245   01 00B47    3300000F A            MTW,0    15
     3246   01 00B48    69300B4A              BNEZ     %+2               SPREAD IN BUFFER A
     3247   01 00B49    32F01B6F              LW,15    BFRB              BUFFER B IS USED
     3248   01 00B4A    30F01B6A              AW,15    WCNT              ADD WORD COUNT
     3249   01 00B4B    35F00B41              STW,15   PATTB             STORE ADDR. OF BUFFER TOP
     3250   01 00B4C    32F01B6C              LW,15    PATID+1           GET DATA PATTERN
     3251   01 00B4D    32501B6B              LW,5     PATID               AND TYPE
     3252   01 00B4E    21500002 A            CI,5     2                 ERROR?
     3253   01 00B4F    69200B4F              BG       %                 YES: STOP
     3254   01 00B50    325A0B52              LW,5     %+2,5             GET PATTERN SPREAD ROUT. ADDR.
     3255   01 00B51    E8000005 A            B        *5                BRANCH
     3256                            *
     3257   01 00B52    00000B55              DATA     PATT0             FIXED PATTERN
     3258   01 00B53    00000B58              DATA     PATT1             INCREMENTED PATTERN
     3259   01 00B54    00000B5C              DATA     PATT2             RANDOM PATTERN
     3260                            *
     3261   01 00B55    B5F80B41     PATT0    STW,15   *PATTB,4          STORE DATA PATTERN
     3262   01 00B56    65400B55              BIR,4    PATT0             LOOP
     3263   01 00B57    E8000B40              B        *PATTS            RETURN
     3264                            *
     3265   01 00B58    B5F80B41     PATT1    STW,15   *PATTB,4          STORE DATA PATTERN
     3266   01 00B59    30F01B6D              AW,15    PATID+2           INCREMENT DATA PATTERN
     3267   01 00B5A    65400B58              BIR,4    PATT1             LOOP
     3268   01 00B5B    E8000B40              B        *PATTS            RETURN
     3269                            *
     3270   01 00B5C    32500B41     PATT2    LW,5     PATTB             LOAD ADDRESS
     3271   01 00B5D    2540047F A            SAS,4    -1                DIVIDE WORD COUNT
     3272   01 00B5E    30500004 A            AW,5     4                    AND ADD IT TO ADDRESS
     3273   01 00B5F    35500B42              STW,5    PATTH                 AND STORE IT
     3274   01 00B60    32500AC6              LW,5     KPI               LOAD CONSTANT PI
     3275   01 00B61    35500B43              STW,5    PATTM               AND STORE IT
     3276   01 00B62    B5F80B42     PATT2A   STW,15   *PATTH,4          STORE DATA PATTERN IN 1. HALF
     3277   01 00B63    48F02DDD              EOR,15   =-1               TAKE 1'S COMPLEMENT
     3278   01 00B64    B5F80B41              STW,15   *PATTB,4            AND STORE IT IN 2. HALF OF BUFFER
     3279   01 00B65    25F00007 A            SLS,15   7                 BUILD THE NEXT RANDOM
     3280   01 00B66    B8F80B41              SW,15    *PATTB,4                           NUMBER
     3281   01 00B67    46F00B43              XW,15    PATTM
     3282   01 00B68    30F00B43              AW,15    PATTM
     3283   01 00B69    65400B62              BIR,4    PATT2A            LOOP
     3284   01 00B6A    E8000B40              B        *PATTS            RETURN
     3285                            *
     3286                            *
     3287                            *        ***CONTROLLER-READY DELAY***
     3288                            *
     3289                            * THIS ROUTINE ISSUES EVERY 100 MICROSECONDS A TIO INSTRUCTION
     3290                            * TO TEST IF THE CONTROLLER IS READY AGAIN. MAXIMAL DELAY IS
     3291                            * 1 SECOND.
     3292                            *
     3293                            * PARAMETER:
     3294                            *        DEVADDR  DEVICE ADDRESS
     3295                            *
     3296                            * CALLING SEQUENCE:
     3297                            *        BAL,15   #CORD
     3298                            *        XXXX     YYYY              ERROR RETURN
     3299                            *        XXXX     YYYY              NORMAL RETURN
     3300                            *
     3301                            * REGISTERS USED: 4, 5, 15
     3302                            *
     3303                            *
     3304   01 00B6B    224FD8F0 A   #CORD    LI,4     -10000            INITIAL VALUE 10.000
     3305   01 00B6C    225FFFC0 A            LI,5     -64
     3306   01 00B6D    65500B6D              BIR,5    %                 100 MICROSECONDS DELAY
     3307   01 00B6E    CD001B60              TIO,0    *DEVADDR          ISSUE TIO
     3308   01 00B6F    E8C2000F A            BCR,12   *15,1             NORMAL RETURN
     3309   01 00B70    65400B6C              BIR,4    #CORD+1           LOOP
     3310   01 00B71    E800000F A            B        *15               ERROR RETURN
     3311                            *
     3312                            *
     3313                            *        ***DEVICE READY       DELAY***
     3314                            * THIS ROUTINE ISSUES EVERY 100 MICROSECONDS A TIO INSTRUCTION
     3315                            * TO TEST IF THE DEVICE IS READY.       MAXIMAL DELAY IS 1 SEC.
     3316                            *
     3317                            * PARAMETER:
     3318                            *        DEVADDR  DEVICE ADDRESS
     3319                            *
     3320                            * CALLING SEQUENCE:
     3321                            *        BAL,15   #DERD
     3322                            *        XXXX     YYYY              ERROR RETURN
     3323                            *        XXXX     YYYY              NORMAL RETURN
     3324                            *
     3325                            * REGISTERS USED: 4, 5, 12, 13, 15
     3326                            *
     3327                            *
     3328   01 00B72    224FD8F0 A   #DERD    LI,4     -10000            INITIAL VALUE 10.000
     3329   01 00B73    225FFFC0 A            LI,5     -64
     3330   01 00B74    65500B74              BIR,5    %                 100 MICROSECONDS DELAY
     3331   01 00B75    670209D5              EXU      IOINSTR,1         ISSUE TIO
     3332   01 00B76    31D01C01              CW,13    KXN06             IS DEVICE READY
     3333   01 00B77    E842000F A            BCR,4    *15,1             NORMAL RETURN
     3334   01 00B78    65400B73              BIR,4    #DERD+1           LOOP
     3335   01 00B79    E800000F A            B        *15               ERROR RETURN
     3336                            *
     3337                            *
     3338                            *
     3339                            *
     3340                            *        ***MESSAGE PRINT ROUTINE***
     3341                            *
     3342                            * THE MESSAGE PRINT ROUTINE RECONSTRUCTS A MESSAGE FROM THE
     3343                            * MSG INDEX TABLE AND OUTPUTS THE MESSAGE.
     3344                            *
     3345                            * PARAMETERS:
     3346                            *        MSGPSP   SUPPRESS CONSTANT WORDS IN MESSAGE
     3347                            *
     3348                            * CALLING SEQUENCE:
     3349                            *        BAL,15   #MSGP
     3350                            *        DATA     MX000             THIS IS A BYTE ADDRESS
     3351                            *        B        *10               RETURN ADDRESS
     3352                            *
     3353                            * ALL REGISTERS ARE SAVED AND RESTORED.
     3354                            * REGISTERS USED: 0, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15
     3355                            * SUBROUTINES USED: :PRINT
     3356                            *
     3357                            *
     3358                            * CODE OF SPECIAL FEATURES:
     3359                            *
     3360                            * 0      NO LABEL EXTERNAL TABLE
     3361                            * 1      NL       NEW LINE
     3362                            * 2      BS       BACK SPACE
     3363                            * 3      1B       ONE BLANK
     3364                            *
     3365                            *
     3366   01 00B7A    00000000 A   MSGPSP   DATA     0                 SUPPRESS FLAG
     3367                            *
     3368   01 00B7B    02200000 A   #MSGP    LCI      0                 SAVE REGISTERS
     3369   01 00B7C    2B000C3A              STM,0    MSGSAVE           SAVE REGISTERS 0 - 15
     3370   01 00B7D    B2600C49              LW,6     *MSGPX            BYTE ADR OF MSG INDEX TABLE
     3371   01 00B7E    729C0000 A            LB,9     0,6               FETCH MSG WORD COUNT
     3372   01 00B7F    22B00000 A   MSGP0    LI,11    0                 RESET MSG BYTE COUNT
     3373   01 00B80    35B00C4A              STW,11   MSGPVF            RESET VARIABLE FLAG
     3374   01 00B81    22403091              LI,4     BA(MSGBUF)+1      STARTING ADR OF OUTPUT BUFFER
     3375   01 00B82    68000B84              B        MSGP1
     3376   01 00B83    6AE00C1F     MSGP0A   BAL,14   MSGP15            GET A BLANK CHARACTER
     3377   01 00B84    33100006 A   MSGP1    MTW,1    6                 INCR MSG INDEX ADR
     3378   01 00B85    727C0000 A            LB,7     0,6               FETCH DICTIONARY ADR TABLE INDEX
     3379   01 00B86    21700003 A            CI,7     3
     3380   01 00B87    69200B9D              BG       MSGP1C            NORMAL TYPE
     3381   01 00B88    32FE0B8A              LW,15    MSGP1ADR,7        GET ADDRESS
     3382   01 00B89    E800000F A            B        *15
     3383                            *
     3384   01 00B8A    00000B8E     MSGP1ADR DATA     MSGP1A0           CODE = 0, EXTERNAL TABLE
     3385   01 00B8B    00000B92              DATA     MSGP1A1           CODE = 1, NEW LINE
     3386   01 00B8C    00000B96              DATA     MSGP1A2           CODE = 2, BACK SPACE
     3387   01 00B8D    00000B9A              DATA     MSGP1A3           CODE = 3, ONE BLANK
     3388                            *
     3389   01 00B8E    33100006 A   MSGP1A0  MTW,1    6                 INCR. MSG INDEX ADR
     3390   01 00B8F    727C0000 A            LB,7     0,6               FETCH DICTIONARY ADR TABLE INDEX
     3391   01 00B90    325E0EE6              LW,5     DATEXT,7          FETCH WORD FROM EXT DIC ADR TABLE
     3392   01 00B91    68000B9E              B        MSGP1C+1
     3393                            *
     3394   01 00B92    6AE00C1F     MSGP1A1  BAL,14   MSGP15
     3395   01 00B93    6AE00BB1              BAL,14   MSGP4P            BRANCH TO PRINT ROUTINE
     3396   01 00B94    64900B7F              BDR,9    MSGP0
     3397   01 00B95    68000BAE              B        MSGP2C
     3398                            *
     3399   01 00B96    204FFFFF A   MSGP1A2  AI,4     -1                DECREMENT BUFFER ADDRESS
     3400   01 00B97    20BFFFFF A            AI,11    -1                DECREMENT BYTE COUNT
     3401   01 00B98    64900B84              BDR,9    MSGP1
     3402   01 00B99    68000BAD              B        MSGP2B
     3403                            *
     3404   01 00B9A    6AE00C1F     MSGP1A3  BAL,14   MSGP15            GET ONE BLANK
     3405   01 00B9B    64900B84              BDR,9    MSGP1             DECREMENT MSG WORD COUNT
     3406   01 00B9C    68000BAD              B        MSGP2B
     3407                            *
     3408                            *
     3409   01 00B9D    325E0DE6     MSGP1C   LW,5     DAT,7             FETCH WORD FROM DIC ADR TABLE
     3410   01 00B9E    69100BB9              BLZ      MSGP4             B: THE CURRENT WORD IS A VARIABLE
     3411   01 00B9F    33000B7A              MTW,0    MSGPSP
     3412   01 00BA0    69300BA9              BNEZ     MSGP2A
     3413   01 00BA1    728A0000 A            LB,8     0,5               FETCH BYTE CNT
     3414   01 00BA2    20500001 A            AI,5     1                 INCREMENT
     3415   01 00BA3    30B00008 A   MSGP2    AW,11    8                 UPDATE MSG BYTE CNT
     3416   01 00BA4    72AA0000 A            LB,10    0,5               FETCH MSG BYTE
     3417   01 00BA5    75A80000 A            STB,10   0,4               STORE IN OUTPUT BUFFER
     3418   01 00BA6    20400001 A            AI,4     1                 INCR
     3419   01 00BA7    20500001 A            AI,5     1                   BYTE ADRS
     3420   01 00BA8    64800BA4              BDR,8    MSGP2+1           LOOP ON NEXT MSG BYTE
     3421   01 00BA9    21B00048 A   MSGP2A   CI,11    72                TEST FOR EXCESS MSG LENGTH
     3422   01 00BAA    68200BAC              BLE      %+2               B: LIMIT NOT EXCEEDED
     3423   01 00BAB    22B00048 A            LI,11    72                PROGRAMM ERROR
     3424   01 00BAC    64900B83              BDR,9    MSGP0A
     3425   01 00BAD    6AE00BB1     MSGP2B   BAL,14   MSGP4P            PRINT
     3426   01 00BAE    022000F0 A   MSGP2C   LCI      15
     3427   01 00BAF    2A000C3A              LM,0     MSGSAVE           RESTORE 0-14
     3428   01 00BB0    E8020C49              B        *MSGPX,1          EXIT
     3429                            *
     3430                            *
     3431   01 00BB1    33000B7A     MSGP4P   MTW,0    MSGPSP            TEST SUPPRESS FLAG
     3432   01 00BB2    68300BB5              BEZ      %+3               NO
     3433   01 00BB3    33000C4A              MTW,0    MSGPVF            YES: CHECK VARIABLE FLAG
     3434   01 00BB4    E830000E A            BEZ      *14               NO VARIABLES: RETURN
     3435   01 00BB5    75B00C24              STB,11   MSGBUF            LOAD BYTE COUNT
     3436   01 00BB6    EAF0021C              BAL,15   *:PRINT
     3437   01 00BB7    00000C24              DATA     MSGBUF
     3438   01 00BB8    E800000E A            B        *14               RETURN
     3439                            *
     3440                            *
     3441                            *
     3442   01 00BB9    72800005 A   MSGP4    LB,8     5                 FETCH CONVERSION TYPE
     3443   01 00BBA    33100C4A              MTW,1    MSGPVF            INCR. VARIABLE FLAG
     3444   01 00BBB    4B502DD8              AND,5    =X'00FFFFFF'      REMOVE CONVERSION TYPE
     3445   01 00BBC    B2C00005 A            LW,12    *5                FETCH VARIABLE DATA
     3446   01 00BBD    21800020 A            CI,8     X'20'             TEST FOR DECIMAL CONVERSION
     3447   01 00BBE    68400BC6              BCR,4    MSGP5             B: NOT DECIMAL OR BIN FORMAT
     3448   01 00BBF    21800040 A            CI,8     X'40'             TEST FOR BINARY FORMAT
     3449   01 00BC0    69400BF9              BCS,4    MSGP9             B: BINARY FORMAT
     3450   01 00BC1    EAF00217              BAL,15   *:DECC            B: CONVERT TO DECIMAL (LSD)
     3451   01 00BC2    35F0000D A            STW,15   13                SAVE LSD
     3452   01 00BC3    EAF00217              BAL,15   *:DECC            B: CONVERT TO DECIMAL (MSD)
     3453   01 00BC4    35F0000C A            STW,15   12                SAVE MSD
     3454   01 00BC5    68000BEC              B        MSGP6             B: STORE IN OUTPUT BUFFER
     3455                            *
     3456   01 00BC6    21800040 A   MSGP5    CI,8     X'40'             TEST FOR HEXADECIMAL CONVERSION
     3457   01 00BC7    68400BF0              BCR,4    MSGP7             B: NOT HEXADECIMAL
     3458   01 00BC8    21800010 A            CI,8     X'10'             TEST FOR SPECIAL HEX CONVERSION
     3459   01 00BC9    68400BCC              BCR,4    %+3               B: NO SPECIAL HEX CONV.
     3460   01 00BCA    B2E2000C A            LW,14    *12,1             FETCH MASK
     3461   01 00BCB    B2C0000C A            LW,12    *12               FETCH VARIABLE DATA
     3462   01 00BCC    EAF00218              BAL,15   *:HEXC            B: CONVERT TO HEX (LSD)
     3463   01 00BCD    35F0000D A            STW,15   13                SAVE
     3464   01 00BCE    EAF00218              BAL,15   *:HEXC            B: CONVERT TO HEX (MSD)
     3465   01 00BCF    35F0000C A            STW,15   12                SAVE MSD
     3466   01 00BD0    21800010 A            CI,8     X'10'             TEST FOR SPECIAL HEX CONVERSION
     3467   01 00BD1    68400BEC              BCR,4    MSGP6             B: N0 SPECIL HEX CONV.
     3468   01 00BD2    225FFFF8 A            LI,5     -8                INDEX
     3469   01 00BD3    25E00304 A            SCD,14   4                 ALIGN MASK
     3470   01 00BD4    4BF02DDE              AND,15   =X'F'             REMOVE EXTRA BITS
     3471   01 00BD5    69300BD8              BNEZ     %+3               B: MASK NO ZERO
     3472   01 00BD6    22F000E7 A            LI,15    'X'               CHANGE DIGIT
     3473   01 00BD7    75FA000E A            STB,15   14,5              TO 'X'
     3474   01 00BD8    65500BD3              BIR,5    %-5               LOOP
     3475   01 00BD9    22500038 A            LI,5     X'38'             BYTE ADDRESS OF CONV. DATA
     3476   01 00BDA    4B802DDE              AND,8    =X'F'             REMOVE CONVERSION CODE
     3477   01 00BDB    38500008 A            SW,5     8                 ADJUST BYTE ADR OF CONV. DATA
     3478   01 00BDC    30B00008 A            AW,11    8                 UPDATE MSG BYTE COUNT
     3479   01 00BDD    72AA0000 A   MSGP6A   LB,10    0,5               FETCH BYTE
     3480   01 00BDE    75A80000 A            STB,10   0,4               STORE IN OUTPUT BUFFER
     3481   01 00BDF    20500001 A            AI,5     1                 INCR
     3482   01 00BE0    20400001 A            AI,4     1                   BYTE ADR
     3483   01 00BE1    64800BE3              BDR,8    %+2               LOOP ON NEXT BYTE
     3484   01 00BE2    68000BA9              B        MSGP2A            B: ALL BYTES STORED
     3485   01 00BE3    21800001 A            CI,8     1                 TEST FOR ODD
     3486   01 00BE4    69400BDD              BCS,4    MSGP6A            B: ODD COUNT
     3487   01 00BE5    22A00040 A            LI,10    X'40'             BLANK
     3488   01 00BE6    75A80000 A            STB,10   0,4               STORE BLANKS
     3489   01 00BE7    20400001 A            AI,4     1                 INCR. BYTE ADR
     3490   01 00BE8    75A80000 A            STB,10   0,4
     3491   01 00BE9    20400001 A            AI,4     1                 INCR BYTE ADR
     3492   01 00BEA    20B00002 A            AI,11    2                 INCR MSG BYTE COUNT
     3493   01 00BEB    68000BDD              B        MSGP6A            LOOP ON NEXT BYTE
     3494   01 00BEC    22500038 A   MSGP6    LI,5     X'38'             BYTE ADR OF CONV.DATA (NO ADJUSTM)
     3495   01 00BED    4B802DDE              AND,8    =X'F'             REMOVE CONVERSION TYPE
     3496   01 00BEE    38500008 A            SW,5     8                 ADJUST BYTE ADR OF CONV. DATA
     3497   01 00BEF    68000BA3              B        MSGP2             STORE VARIABLE DATA IN MSG
     3498                            *
     3499   01 00BF0    4B802DDF     MSGP7    AND,8    =X'1F'            REMOVE CONVERSION TYPE
     3500   01 00BF1    20800001 A            AI,8     1                 INCR CONVERSION CNT
     3501   01 00BF2    22000000 A            LI,0     0
     3502   01 00BF3    75820000 A            STB,8    0,1               NO. OF CHAR TO BE CONVERTED
     3503   01 00BF4    22800008 A            LI,8     8                 NO. OF CHAR/GROUP
     3504   01 00BF5    75840000 A            STB,8    0,2
     3505   01 00BF6    75160000 A            STB,1    0,3               NO. OF BLANKS BETWEEN GROUPS
     3506   01 00BF7    22AFFFFF A            LI,10    -1                MASK = ALL ONES
     3507   01 00BF8    68000C00              B        MSGP10            CONVERT DATA
     3508                            *
     3509   01 00BF9    B200000C A   MSGP9    LW,0     *12               FETCH CONTROL WORD
     3510   01 00BFA    B2A4000C A            LW,10    *12,2             FETCH DATA MASK
     3511   01 00BFB    B2C2000C A            LW,12    *12,1             FETCH DATA WORD
     3512   01 00BFC    72800000 A            LB,8     0                 NO. OF LEADING ZEROES
     3513   01 00BFD    68300C00              BEZ      MSGP10            B: NO LEADING ZEROES
     3514   01 00BFE    6AE00C1F              BAL,14   MSGP15            B: STORE LEADING ZEROES
     3515   01 00BFF    64800BFE              BDR,8    %-1               LOOP
     3516   01 00C00    72F20000 A   MSGP10   LB,15    0,1               NO. OF CHAR TO BE CONVERTED
     3517   01 00C01    22500020 A            LI,5     32                MAX. CHAR COUNT
     3518   01 00C02    3850000F A            SW,5     15                ADJUSTMENT CNT
     3519   01 00C03    A5C00005 A            S,12     *5                ADJUST DATA WORD
     3520   01 00C04    A5A00005 A            S,10     *5                ADJUST MASK
     3521   01 00C05    22E00000 A            LI,14    0
     3522   01 00C06    72840000 A            LB,8     0,2               NO. OF CHAR/GROUP
     3523   01 00C07    36E00008 A            DW,14    8                 FIND NO. OF GROUPS
     3524   01 00C08    3300000E A            MTW,0    14                TEST REMAINDER
     3525   01 00C09    68300C0C              BEZ      %+3               CHAR CNT = MODULO GROUP COUNT
     3526   01 00C0A    3310000F A            MTW,1    15                INCR LOOP CNT
     3527   01 00C0B    68000C0D              B        %+2
     3528   01 00C0C    72E40000 A   MSGP11   LB,14    0,2               NO OF CHAR/GROUP
     3529   01 00C0D    25C00301 A            SCD,12   1                 GET 1 BIT OF DATA
     3530   01 00C0E    4BD00001 A            AND,13   1
     3531   01 00C0F    20D000F0 A            AI,13    X'F0'             NUMERIC EBCDIC CHAR (0 OR 1)
     3532   01 00C10    25A00201 A            SCS,10   1                 SHIFT MASK
     3533   01 00C11    21A00001 A            CI,10    1
     3534   01 00C12    69400C14              BCS,4    %+2               B: OUTPUT CHAR WILL BE 0 OR 1
     3535   01 00C13    22D000E7 A            LI,13    'X'               OUTPUT CHAR WILL BE AN X
     3536   01 00C14    75D80000 A            STB,13   0,4               STORE IN OUTPUT BUFFER
     3537   01 00C15    20400001 A            AI,4     1                 INCR BUFFER ADR
     3538   01 00C16    20B00001 A            AI,11    1                 INCR MSG BUTE CNT
     3539   01 00C17    64E00C0D              BDR,14   MSGP11+1          LOOP
     3540   01 00C18    64F00C1A              BDR,15   %+2
     3541   01 00C19    68000BA9              B        MSGP2A            B: BINARY CONVERSION DONE
     3542   01 00C1A    72860000 A            LB,8     0,3               NO OF BLANKS BETWEEN GROUPS
     3543   01 00C1B    68300C1E              BEZ      %+3               B: NO BLANKS BETWEEN GROUPS
     3544   01 00C1C    6AE00C1F              BAL,14   MSGP15            B: STORE A BLANK
     3545   01 00C1D    64800C1C              BDR,8    %-1               LOOP
     3546   01 00C1E    68000C0C              B        MSGP11            B: NEXT GROUP
     3547                            *
     3548   01 00C1F    22D00040 A   MSGP15   LI,13    X'40'             FETCH BLANK CHAR
     3549   01 00C20    75D80000 A            STB,13   0,4               STORE IN OUTPUT BUFFER
     3550   01 00C21    20400001 A            AI,4     1                 INCR BUFFER ADDR
     3551   01 00C22    20B00001 A            AI,11    1                 INCR MSG BYTE CNT
     3552   01 00C23    E800000E A            B        *14               RETURN
     3553                            *
     3554                            *
     3555                            *
     3556   01 00C24                 MSGBUF   RES      22                MSG OUTPUT BUFFER
     3557   01 00C3A                 MSGSAVE  RES      15                REGISTERS 0-14
     3558   01 00C49    00000000 A   MSGPX    DATA     0                 EXIT ADDRESS
     3559   01 00C4A    00000000 A   MSGPVF   DATA     0                 VARIABLE WORD FLAG
     3560                            *
     3561                            *
     3562                            *        ***MESSAGE TEST ROUTINE***
     3563                            *
     3564                            * THE MESSAGE TEST ROUTINE OUTPUTS ALL MESSAGES BETWEEN THE
     3565                            * LABELS MXSTART AND MXEND. THIS ROUTINE IS FOR VERIFICATION
     3566                            * OF ALL MESSAGES.
     3567                            *
     3568                            *
     3569   01 00C4B    22404208     MSGTS    LI,4     BA(MXEND)
     3570   01 00C4C    22503C1C              LI,5     BA(MXSTART)
     3571   01 00C4D    38400005 A            SW,4     5
     3572   01 00C4E    35500C50     MSGTS1   STW,5    %+2
     3573   01 00C4F    6AF00B7B              BAL,15   #MSGP
     3574   01 00C50    00000000 A            DATA     0
     3575   01 00C51    726A0000 A            LB,6     0,5
     3576   01 00C52    20600001 A            AI,6     1
     3577   01 00C53    38400006 A            SW,4     6
     3578   01 00C54    21400000 A            CI,4     0
     3579   01 00C55    68200C59              BLEZ     %+4
     3580   01 00C56    30500006 A            AW,5     6
     3581   01 00C57    726A0000 A            LB,6     0,5
     3582   01 00C58    69300C4E              BNEZ     MSGTS1
     3583   01 00C59    E8000214              B        *:MONITOR         THE PROGRAM WILL WAIT
     3584                            *
     3585                            *
     3586                            *        ***DT - DICTIONARY TABLE***
     3587                            *
     3588   01 00C5A                 DT       LOC,1    %
            01 00C5A
     3589         01 00C5A           W001     T        'A'
     3590         01 00C5A 2         W002     T        'ACCESS'
     3591         01 00C5C 1         W003     T        'ACCEPTED'
     3592         01 00C5E 2         W004     T        'ADDRESS'
     3593         01 00C60 2         W005     T        'AFTER'
     3594         01 00C62           W006     T        'ALIGNMENT'
     3595         01 00C64 2         W007     T        'AIO'
     3596         01 00C65 2         W009     T        'AT'
     3597         01 00C66 1         W010     T        'AND'
     3598         01 00C67 1         W011     T        'AVAILABLE'
     3599         01 00C69 3         W012     T        'B'
     3600         01 00C6A 1         W013     T        'BIG'
     3601         01 00C6B 1         W014     T        'BE'
     3602         01 00C6C           W015     T        'BIT'
     3603         01 00C6D           W016     T        ' '
     3604         01 00C6D 2         W017     T        '  '
     3605         01 00C6E 1         W018     T        '    '
     3606         01 00C6F 2         W019     T        '        '
     3607         01 00C71 3         W020     T        'BUFFER'
     3608         01 00C73 2         W021     T        'BUSY'
     3609         01 00C74 3         W022     T        'BYTE'
     3610         01 00C76           W023     T        'BYTES'
     3611         01 00C77 2         W024     T        'CODE'
     3612         01 00C78 3         W025     T        'COMMAND'
     3613         01 00C7A 3         W026     T        ':'
     3614         01 00C7B 1         W027     T        ','
     3615         01 00C7B 3         W028     T        'CLEAR'
     3616         01 00C7D 1         W029     T        'COMPARE'
     3617         01 00C7F 1         W030     T        'COMPLETED'
     3618         01 00C81 3         W031     T        'CONTROLLER'
     3619         01 00C84 2         W033     T        'COUNT'
     3620         01 00C86           W034     T        'CYLINDER'
     3621         01 00C88 1         W035     T        'CC'
     3622         01 00C89           W036     T        'CURRENT'
     3623         01 00C8B           W037     T        'CHAINING'
     3624         01 00C8D 1         W038     T        'DATA'
     3625         01 00C8E 2         W039     T        'DELAY'
     3626         01 00C90           W040     T        'DEVICE'
     3627         01 00C91 3         W041     T        'DONE'
     3628         01 00C93           W043     T        'END'
     3629         01 00C94           W044     T        'ENOUGH'
     3630         01 00C95 3         W045     T        'EQUAL'
     3631         01 00C97 1         W046     T        'ERROR'
     3632         01 00C98 3         W047     T        'EXP'
     3633         01 00C99 3         W048     T        'EXERCISER'
     3634         01 00C9C 1         W049     T        'EXECUTED'
     3635         01 00C9E 2         W050     T        'FAM READ/WRITE:'
     3636         01 00CA2 2         W051     T        'FAILURE'
     3637         01 00CA4 2         W052     T        'FAULT'
     3638         01 00CA6           W054     T        'FUNCTIONAL'
     3639         01 00CA8 3         W055     T        'GROUP'
     3640         01 00CAA 1         W056     T        'GENERATION'
     3641         01 00CAD           W057     T        'HALT'
     3642         01 00CAE 1         W058     T        'HIO'
     3643         01 00CAF 1         W059     T        'INCORRECT'
     3644         01 00CB1 3         W061     T        'INTERRUPT'
     3645         01 00CB4 1         W062     T        'IN'
     3646         01 00CB5           W063     T        'INVALID'
     3647         01 00CB7           W064     T        'IO'
     3648         01 00CB7 3         W065     T        'IOCD'
     3649         01 00CB9           W067     T        'LIMIT'
     3650         01 00CBA 2         W068     T        'LENGTH'
     3651         01 00CBC 1         W071     T        'MANY'
     3652         01 00CBD 2         W074     T        'MEMORY'
     3653         01 00CBF 1         W075     T        'MODE'
     3654         01 00CC0 2         W076     T        'MSEC'
     3655         01 00CC1 3         W079     T        'NO'
     3656         01 00CC2 2         W080     T        'NOT'
     3657         01 00CC3 2         W081     T        'OBS'
     3658         01 00CC4 2         W082     T        'OF'
     3659         01 00CC5 1         W083     T        'OK'
     3660         01 00CC6           W084     T        'OPERATION'
     3661         01 00CC8 2         W086     T        'ON'
     3662         01 00CC9 1         W087     T        'OR'
     3663         01 00CCA           W088     T        'ORDER'
     3664         01 00CCB 2         W089     T        'OUT'
     3665         01 00CCC 2         W090     T        'PARAMETER'
     3666         01 00CCF           W091     T        'PATTERN'
     3667         01 00CD1           W092     T        'PENDING'
     3668         01 00CD3           W093     T        'PHASE'
     3669         01 00CD4 2         W094     T        'POSSIBLE'
     3670         01 00CD6 3         W095     T        'PRINT'
     3671         01 00CD8 1         W096     T        'RANDOM'
     3672         01 00CDA           W097     T        'READ'
     3673         01 00CDB 1         W098     T        'READY'
     3674         01 00CDC 3         W099     T        'RECEIVED'
     3675         01 00CDF           W100     T        'RECOGNITION'
     3676         01 00CE2           W101     T        'RECORD'
     3677         01 00CE3 3         W102     T        'REMAINING'
     3678         01 00CE6 1         W103     T        'REPEATED'
     3679         01 00CE8 2         W104     T        'RESET'
     3680         01 00CEA           W106     T        'RESTORE'
     3681         01 00CEC           W107     T        'SEEK'
     3682         01 00CED 1         W108     T        'SENSE'
     3683         01 00CEE 3         W109     T        'SEQUENCE'
     3684         01 00CF1           W110     T        'SELECTION'
     3685         01 00CF3 2         W112     T        'SIO'
     3686         01 00CF4 2         W114     T        'SPREAD'
     3687         01 00CF6 1         W115     T        'START'
     3688         01 00CF7 3         W116     T        'STATUS'
     3689         01 00CF9 2         W117     T        'SUMMARY'
     3690         01 00CFB 2         W118     T        'TDV'
     3691         01 00CFC 2         W119     T        'TEST'
     3692         01 00CFD 3         W121     T        'TIME'
     3693         01 00CFF           W122     T        'TIO'
     3694         01 00D00           W123     T        'TO'
     3695         01 00D00 3         W124     T        'TOO'
     3696         01 00D01 3         W125     T        'STARTED'
     3697         01 00D03 3         W126     T        'SMALL'
     3698         01 00D05 1         W128     T        'TST0'
     3699         01 00D06 2         W129     T        'TST1'
     3700         01 00D07 3         W130     T        'TST2'
     3701         01 00D09           W131     T        'TST3'
     3702         01 00D0A 1         W132     T        'TYPE'
     3703         01 00D0B 2         W133     T        'WILL'
     3704         01 00D0C 3         W134     T        'WORD'
     3705         01 00D0E           W135     T        'WRITE'
     3706         01 00D0F 2         W136     T        '***'
     3707         01 00D10 2         W137     T        'DOUBLE'
     3708         01 00D12 1         W138     T        '%%%'
     3709         01 00D13 1         W139     T        'DISPLAY'
     3710         01 00D15 1         W140     T        'BITS'
     3711         01 00D16 2         W141     T        '                '
     3712         01 00D1A 3         W142     T        'CONDITION'
     3713         01 00D1D 1         W143     T        'CHECK'
     3714         01 00D1E 3         W144     T        'DIFFERENCE'
     3715         01 00D21 2         W145     T        'HEADER'
     3716         01 00D23 1         W147     T        'INPUT'
     3717         01 00D24 3         W148     T        'IOP'
     3718         01 00D25 3         W149     T        'MODIFIER'
     3719         01 00D28           W150     T        'OUTPUT'
     3720         01 00D29 3         W151     T        'PARITY'
     3721         01 00D2B 2         W152     T        'RAD'
     3722         01 00D2C 2         W153     T        'RATE'
     3723         01 00D2D 3         W154     T        'RELEASE'
     3724         01 00D2F 3         W155     T        'SHORT'
     3725         01 00D31 1         W156     T        'S'
     3726         01 00D31 3         W157     T        '      '
     3727         01 00D33 2         W158     T        'BUS'
     3728         01 00D34 2         W159     T        'DEVCMD'
     3729         01 00D36 1         W160     T        'SCOP'
     3730         01 00D37 2         W161     T        'STEP'
     3731         01 00D38 3         W162     T        'ANGULAR'
     3732         01 00D3A 3         W163     T        'ATTENTION'
     3733         01 00D3D 1         W164     T        'BOUNDARY'
     3734         01 00D3F 2         W165     T        'CPU'
     3735         01 00D40 2         W166     T        'DOWN'
     3736         01 00D41 3         W167     T        'ENVIRONMENT'
     3737         01 00D44 3         W168     T        'FLAW'
     3738         01 00D46           W169     T        'HEAD'
     3739         01 00D47 1         W170     T        'UE V  C '
     3740         01 00D49 2         W171     T        'UE V  F '
     3741         01 00D4B 3         W172     T        'INCREMENTING'
     3742         01 00D4F           W173     T        'INTERLOCK'
     3743         01 00D51 2         W174     T        'LATENCY'
     3744         01 00D53 2         W175     T        'MARK'
     3745         01 00D54 3         W176     T        'MATRIX'
     3746         01 00D56 2         W177     T        'MOVING'
     3747         01 00D58 1         W178     T        'MULTIPLE'
     3748         01 00D5A 2         W180     T        'POWER'
     3749         01 00D5C           W181     T        'PROGRAM'
     3750         01 00D5E           W182     T        'PROTECT'
     3751         01 00D60           W184     T        'RESERVE'
     3752         01 00D62           W185     T        'SECTOR'
     3753         01 00D63 3         W186     T        'SIMULATION'
     3754         01 00D66 2         W187     T        'SURFACE'
     3755         01 00D68 2         W188     T        'TRACK'
     3756         01 00D6A           W189     T        'WRONG'
     3757         01 00D6B 2         W190     T        '(BYTE 6,7)'
     3758         01 00D6E 1         W191     T        '(BYTE 8,9)'
     3759         01 00D71           W192     T        '(BYTE 10,11)'
     3760         01 00D74 1         W193     T        '(BYTE 12,13)'
     3761         01 00D77 2         W194     T        'SEED'
     3762         01 00D78 3         W195     T        'SET'
     3763         01 00D79 3         W196     T        'WITHIN'
     3764         01 00D7B 2         W197     T        'AGAIN'
     3765         01 00D7D           W198     T        'AVERAGE'
     3766         01 00D7F           W199     T        'POSITION'
     3767         01 00D81 1         W200     T        'PASS'
     3768         01 00D82 2         W201     T        'SUBTEST'
     3769         01 00D84 2         W202     T        'TRAP'
     3770         01 00D85 3         W203     T        'TST'
     3771         01 00D86 3         W204     T        'CHANNEL'
     3772         01 00D88 3         W205     T        'AL'
     3773         01 00D89 2         W206     T        'ING'
     3774         01 00D8A 2         W207     T        'INTERFACE'
     3775         01 00D8D           W208     T        'VARIATION'
     3776         01 00D8F 2         W209     T        '...'
     3777         01 00D90 2         W210     T        'STROBE'
     3778                            *
     3779                            *        ***TEXT STATEMENTS***
     3780                            *
     3781         01 00D92 1         W601     TEXTCS   '    01234567 89ABCDEF CC(1-4)'
     3782         01 00D9B           W602     TEXTCS   '---------------------------'
     3783                            W603     TEXTCS   '    *BYTE 0 * *BYTE 1 * *BYTE 2 * *BYTE 3 *',;
     3784         01 00DA2                             '  WD CNT'
     3785         01 00DAF           W604     TEXTCS   'BYTE  0   1   2   3     4   5   14  15'
     3786                            *
     3787                            *******************TST2,TST3***************************
     3788         01 00DB9           W902     T        'SYSTEM'
     3789         01 00DBA 3         W905     T        'CC(1-4)'
     3790         01 00DBC 3         W906     T        'STATE'
     3791         01 00DBE 1         W913     T        'UNAVAIL'
     3792         01 00DC0 1         W914     T        'MONITOR'
     3793         01 00DC2 1         W915     T        'PASS'
     3794         01 00DC3 2         W916     T        '/'
     3795         01 00DC4           W917     T        'CKWRITE'
     3796         01 00DC6           W919     T        'NON-RECOV.'
     3797         01 00DC8 3         W920     T        'RETRY'
     3798         01 00DCA 1         W921     T        'EXPECTED'
     3799         01 00DCC 2         W923     T        'INITIALIZATION'
     3800         01 00DD0 1         W924     T        'DISK'
     3801         01 00DD1 2         W925     T        'PACK'
     3802         01 00DD2 3         W927     T        'ALTERNATE'
     3803         01 00DD5 1         W928     T        'WAIT'
     3804         01 00DD6 2         W930     T        'TST'
     3805         01 00DD7 2         W931     T        '----------'
     3806         01 00DDA 1         W932     T        'EXERCISING'
     3807         01 00DDD           W933     T        'VERIFICATION'
     3808         01 00DE0 1         W934     T        'ARE'
     3809         01 00DE1 1         W935     T        'TOTAL'
     3810         01 00DE2 3         W990     T        '+'
     3811         01 00DE3 1         W991     T        '-'
     3812         01 00DE3 3         W992     T        'RANGE'
     3813                            *
     3814                            *
     3815                                     BOUND    4
     3816   01 00DE6                          LOC,4    %
            01 00DE6
     3817                            *
     3818                            *
     3819                            *
     3820                            *        ***DAT - DICTIONARY ADDRESS TABLE***
     3821                            *
     3822                                     LOCAL    AIO,CC,HIO,IO,SIO,TDV,TIO,TST0,TST1,TST2,TST3,SCOP,;
     3823                                              ORDER,SEED,DELAY,DISPLAY,PATTERN,SUMMARY
     3824         01 00DE6           DAT      EQU      %
     3825         01 00EE6           DATEXT   EQU      %+256
     3826   01 00DE6    00000000 A            DATA     0                 EXTERNAL TABLE
     3827   01 00DE7    00000001 A   NL       DATA     1                 NEW LINE
     3828   01 00DE8    00000002 A   BS       DATA     2                 BACK SPACE
     3829   01 00DE9    00000003 A   1B       DATA     3                 ONE BLANK
     3830   01 00DEA    000031B4     2B          DATA     W016
     3831   01 00DEB    000031B6     3B          DATA     W017
     3832   01 00DEC    000031B9     5B          DATA     W018
     3833   01 00DED    000034C7     7B          DATA     W157
     3834   01 00DEE    000031BE     9B          DATA     W019
     3835   01 00DEF    0000345A     17B         DATA     W141
     3836   01 00DF0    00003168     A           DATA     W001
     3837   01 00DF1    00003171     ACCEPTED    DATA     W003
     3838   01 00DF2    0000317A     ADDRESS     DATA     W004
     3839   01 00DF3    00003182     AFTER       DATA     W005
     3840   01 00DF4    000035EE     AGAIN       DATA     W197
     3841   01 00DF5    00003623     AL          DATA     W205
     3842   01 00DF6    00003188     ALIGNMENT   DATA     W006
     3843   01 00DF7    000034E3     ANGULAR     DATA     W162
     3844   01 00DF8    000035F4     AVERAGE     DATA     W198
     3845   01 00DF9    00003192     AIO         DATA     W007
     3846   01 00DFA    00003196     AT          DATA     W009
     3847   01 00DFB    000034EB     ATTENTION   DATA     W163
     3848   01 00DFC    00003199     AND         DATA     W010
     3849   01 00DFD    0000319D     AVAILABLE   DATA     W011
     3850   01 00DFE    000031A7     B           DATA     W012
     3851   01 00DFF    000031A9     BIG         DATA     W013
     3852   01 00E00    000031AD     BE          DATA     W014
     3853   01 00E01    000031B0     BIT         DATA     W015
     3854   01 00E02    00003455     BITS        DATA     W140
     3855   01 00E03    000034F5     BOUNDARY    DATA     W164
     3856   01 00E04    000031C7     BUFFER      DATA     W020
     3857   01 00E05    000034CE     BUS         DATA     W158
     3858   01 00E06    000031CE     BUSY        DATA     W021
     3859   01 00E07    000031D3     BYTE        DATA     W022
     3860   01 00E08    000031D8     BYTES       DATA     W023
     3861   01 00E09    0000361B     CHANNEL     DATA     W204
     3862   01 00E0A    000031DE     CODE        DATA     W024
     3863   01 00E0B    000031E3     COMMAND     DATA     W025
     3864   01 00E0C    000031EB     COLON       DATA     W026
     3865   01 00E0D    000031ED     COMMA       DATA     W027
     3866   01 00E0E    000031EF     CLEAR       DATA     W028
     3867   01 00E0F    000031F5     COMPARE     DATA     W029
     3868   01 00E10    000031FD     COMPLETED   DATA     W030
     3869   01 00E11    0000346B     CONDITION   DATA     W142
     3870   01 00E12    00003207     CONTROLLER  DATA     W031
     3871   01 00E13    00003212     COUNT       DATA     W033
     3872   01 00E14    000034FE     CPU         DATA     W165
     3873   01 00E15    00003218     CYLINDER    DATA     W034
     3874   01 00E16    00003221     CC          DATA     W035
     3875   01 00E17    00003224     CURRENT     DATA     W036
     3876   01 00E18    0000322C     CHAINING    DATA     W037
     3877   01 00E19    00003475     CHECK       DATA     W143
     3878   01 00E1A    00003235     DATA        DATA     W038
     3879   01 00E1B    000034D2     DEVCMD      DATA     W159
     3880   01 00E1C    0000323A     DELAY       DATA     W039
     3881   01 00E1D    00003240     DEVICE      DATA     W040
     3882   01 00E1E    0000347B     DIFFERENCE  DATA     W144
     3883   01 00E1F    0000344D     DISPLAY     DATA     W139
     3884   01 00E20    00003247     DONE        DATA     W041
     3885   01 00E21    00003442     DOUBLE      DATA     W137
     3886   01 00E22    00003502     DOWN        DATA     W166
     3887   01 00E23    0000324C     END         DATA     W043
     3888   01 00E24    00003250     ENOUGH      DATA     W044
     3889   01 00E25    00003507     ENVIRONMENT DATA     W167
     3890   01 00E26    00003257     EQUAL       DATA     W045
     3891   01 00E27    0000325D     ERROR       DATA     W046
     3892   01 00E28    00003263     EXP         DATA     W047
     3893   01 00E29    00003267     EXERCISER   DATA     W048
     3894   01 00E2A    00003271     EXECUTED    DATA     W049
     3895   01 00E2B    0000327A     FAM         DATA     W050
     3896   01 00E2C    0000328A     FAILURE     DATA     W051
     3897   01 00E2D    00003292     FAULT       DATA     W052
     3898   01 00E2E    00003513     FLAW        DATA     W168
     3899   01 00E2F    00003298     FUNCTIONAL  DATA     W054
     3900   01 00E30    000032A3     GROUP       DATA     W055
     3901   01 00E31    000032A9     GENERATION  DATA     W056
     3902   01 00E32    000032B4     HALT        DATA     W057
     3903   01 00E33    00003518     HEAD        DATA     W169
     3904   01 00E34    0000351D     HEAD1       DATA     W170
     3905   01 00E35    00003526     HEAD2       DATA     W171
     3906   01 00E36    00003486     HEADER      DATA     W145
     3907   01 00E37    000032B9     HIO         DATA     W058
     3908   01 00E38    00003626     ING         DATA     W206
     3909   01 00E39    000032BD     INCORRECT   DATA     W059
     3910   01 00E3A    0000352F     INCREMENTING DATA    W172
     3911   01 00E3B    0000348D     INPUT       DATA     W147
     3912   01 00E3C    0000362A     INTERFACE   DATA     W207
     3913   01 00E3D    000032C7     INTERRUPT   DATA     W061
     3914   01 00E3E    0000353C     INTERLOCK   DATA     W173
     3915   01 00E3F    000032D1     IN          DATA     W062
     3916   01 00E40    000032D4     INVALID     DATA     W063
     3917   01 00E41    000032DC     IO          DATA     W064
     3918   01 00E42    00003493     IOP         DATA     W148
     3919   01 00E43    000032DF     IOCD        DATA     W065
     3920   01 00E44    00003546     LATENCY     DATA     W174
     3921   01 00E45    000032E4     LIMIT       DATA     W067
     3922   01 00E46    000032EA     LENGTH      DATA     W068
     3923   01 00E47    000032F1     MANY        DATA     W071
     3924   01 00E48    0000354E     MARK        DATA     W175
     3925   01 00E49    00003553     MATRIX      DATA     W176
     3926   01 00E4A    000032F6     MEMORY      DATA     W074
     3927   01 00E4B    0000378D     MINUS    DATA     W991
     3928   01 00E4C    000032FD     MODE        DATA     W075
     3929   01 00E4D    00003497     MODIFIER    DATA     W149
     3930   01 00E4E    0000355A     MOVING      DATA     W177
     3931   01 00E4F    00003561     MULTIPLE    DATA     W178
     3932   01 00E50    00003302     MSEC        DATA     W076
     3933   01 00E51    00003307     NO          DATA     W079
     3934   01 00E52    0000330A     NOT         DATA     W080
     3935   01 00E53    0000330E     OBS         DATA     W081
     3936   01 00E54    00003312     OF          DATA     W082
     3937   01 00E55    00003315     OK          DATA     W083
     3938   01 00E56    00003318     OPERATION   DATA     W084
     3939   01 00E57    00003322     ON          DATA     W086
     3940   01 00E58    00003325     OR          DATA     W087
     3941   01 00E59    00003328     ORDER       DATA     W088
     3942   01 00E5A    0000332E     OUT         DATA     W089
     3943   01 00E5B    000034A0     OUTPUT      DATA     W150
     3944   01 00E5C    00003332     PARAMETER   DATA     W090
     3945   01 00E5D    0000333C     PATTERN     DATA     W091
     3946   01 00E5E    000034A7     PARITY      DATA     W151
     3947   01 00E5F    00003605     PASS        DATA     W200
     3948   01 00E60    00003344     PENDING     DATA     W092
     3949   01 00E61    0000334C     PHASE       DATA     W093
     3950   01 00E62    0000378B     PLUS     DATA     W990
     3951   01 00E63    00003352     POSSIBLE    DATA     W094
     3952   01 00E64    000035FC     POSITION    DATA     W199
     3953   01 00E65    0000356A     POWER       DATA     W180
     3954   01 00E66    00003570     PROGRAM     DATA     W181
     3955   01 00E67    00003578     PROTECT     DATA     W182
     3956   01 00E68    0000335B     PRINT       DATA     W095
     3957   01 00E69    000034AE     RAD         DATA     W152
     3958   01 00E6A    00003361     RANDOM      DATA     W096
     3959   01 00E6B    0000378F     RANGE    DATA     W992
     3960   01 00E6C    000034B2     RATE        DATA     W153
     3961   01 00E6D    00003368     READ        DATA     W097
     3962   01 00E6E    0000336D     READY       DATA     W098
     3963   01 00E6F    00003373     RECEIVED    DATA     W099
     3964   01 00E70    0000337C     RECOGNITION DATA     W100
     3965   01 00E71    00003388     RECORD      DATA     W101
     3966   01 00E72    000034B7     RELEASE     DATA     W154
     3967   01 00E73    0000338F     REMAINING   DATA     W102
     3968   01 00E74    00003399     REPEATED    DATA     W103
     3969   01 00E75    000033A2     RESET       DATA     W104
     3970   01 00E76    00003580     RESERVE     DATA     W184
     3971   01 00E77    000033A8     RESTORE     DATA     W106
     3972   01 00E78    000034C5     S           DATA     W156
     3973   01 00E79    000034D9     SCOP        DATA     W160
     3974   01 00E7A    00003588     SECTOR      DATA     W185
     3975   01 00E7B    000035DE     SEED        DATA     W194
     3976   01 00E7C    000033B0     SEEK        DATA     W107
     3977   01 00E7D    000033B5     SENSE       DATA     W108
     3978   01 00E7E    000033BB     SEQUENCE    DATA     W109
     3979   01 00E7F    000033C4     SELECTION   DATA     W110
     3980   01 00E80    000035E3     SET         DATA     W195
     3981   01 00E81    000034BF     SHORT       DATA     W155
     3982   01 00E82    000033CE     SIO         DATA     W112
     3983   01 00E83    0000358F     SIMULATION  DATA     W186
     3984   01 00E84    000033D2     SPREAD      DATA     W114
     3985   01 00E85    000033D9     START       DATA     W115
     3986   01 00E86    000033DF     STATUS      DATA     W116
     3987   01 00E87    000034DE     STEP        DATA     W161
     3988   01 00E88    00003642     STROBE      DATA     W210
     3989   01 00E89    0000360A     SUBTEST     DATA     W201
     3990   01 00E8A    000033E6     SUMMARY     DATA     W117
     3991   01 00E8B    0000359A     SURFACE     DATA     W187
     3992   01 00E8C    000033EE     TDV         DATA     W118
     3993   01 00E8D    000033F2     TEST        DATA     W119
     3994   01 00E8E    000033F7     TIME        DATA     W121
     3995   01 00E8F    000033FC     TIO         DATA     W122
     3996   01 00E90    00003400     TO          DATA     W123
     3997   01 00E91    00003403     TOO         DATA     W124
     3998   01 00E92    000035A2     TRACK       DATA     W188
     3999   01 00E93    00003407     STARTED     DATA     W125
     4000   01 00E94    0000340F     SMALL       DATA     W126
     4001   01 00E95    00003612     TRAP        DATA     W202
     4002   01 00E96    00003617     TST         DATA     W203
     4003   01 00E97    00003415     TST0        DATA     W128
     4004   01 00E98    0000341A     TST1        DATA     W129
     4005   01 00E99    0000341F     TST2        DATA     W130
     4006   01 00E9A    00003424     TST3        DATA     W131
     4007   01 00E9B    00003429     TYPE        DATA     W132
     4008   01 00E9C    0000364C     TX01        DATA     W601
     4009   01 00E9D    0000366C     TX02        DATA     W602
     4010   01 00E9E    00003688     TX03        DATA     W603
     4011   01 00E9F    000036BC     TX04        DATA     W604
     4012   01 00EA0    00003634     VARIATION  DATA      W208
     4013   01 00EA1    0000342E     WILL        DATA     W133
     4014   01 00EA2    000035E7     WITHIN      DATA     W196
     4015   01 00EA3    00003433     WORD        DATA     W134
     4016   01 00EA4    00003438     WRITE       DATA     W135
     4017   01 00EA5    000035A8     WRONG       DATA     W189
     4018   01 00EA6    0000343E     3AST        DATA     W136
     4019   01 00EA7    000035AE     BYTE6       DATA     W190
     4020   01 00EA8    000035B9     BYTE8       DATA     W191
     4021   01 00EA9    000035C4     BYTE10      DATA     W192
     4022   01 00EAA    000035D1     BYTE12      DATA     W193
     4023   01 00EAB    0000363E     3POINTS     DATA     W209
     4024                            *
     4025                            *
     4026                            *        ***CONVERSION CONTROL BYTE DEFINITION***
     4027                            *
     4028         000000A1           D1       SET      X'A1'
     4029         000000A2           D2       SET      X'A2'
     4030         000000A3           D3       SET      X'A3'
     4031         000000A4           D4       SET      X'A4'
     4032         000000A8           D8       SET      X'A8'
     4033         000000C2           H2       SET      X'C2'
     4034         000000C4           H4       SET      X'C4'
     4035         000000C6           H6       SET      X'C6'
     4036         000000C8           H8       SET      X'C8'
     4037         000000D8           HF8      SET      X'D8'
     4038         00000081           B2       SET      X'81'
     4039         00000083           B4       SET      X'83'
     4040         00000087           B8       SET      X'87'
     4041         0000008F           B16      SET      X'8F'
     4042         0000009F           B32      SET      X'9F'
     4043         000000E0           BF       SET      X'E0'
     4044                            *
     4045                            *
     4046                            *
     4047                            *        ***DAT - VARIABLE DATA ADDRESS TABLE***
     4048                            *
     4049                            *
     4050                            *
     4051   01 00EAC    A1000EE1     DEC1A    GENV     VDEC1A,D1
     4052   01 00EAD    A2000EE2     DEC2A    GENV     VDEC2A,D2
     4053   01 00EAE    A3000EE4     DEC3A    GENV     VDEC3A,D3
     4054   01 00EAF    A4000EE3     DEC4A    GENV     VDEC4A,D4
     4055   01 00EB0    A8000EE5     DEC8A    GENV     VDEC8A,D8
     4056   01 00EB1    C2000EE6     HEX2A    GENV     VHEX2A,H2
     4057   01 00EB2    C4000EE7     HEX4A    GENV     VHEX4A,H4
     4058   01 00EB3    C6000EE8     HEX6A    GENV     VHEX6A,H6
     4059   01 00EB4    C8000EE9     HEX8A    GENV     VHEX8A,H8
     4060   01 00EB5    A2000EEA     DEC2B    GENV     VDEC2B,D2
     4061   01 00EB6    A4000EEB     DEC4B    GENV     VDEC4B,D4
     4062   01 00EB7    A8000EEC     DEC8B    GENV     VDEC8B,D8
     4063   01 00EB8    C2000EED     HEX2B    GENV     VHEX2B,H2
     4064   01 00EB9    C4000EEE     HEX4B    GENV     VHEX4B,H4
     4065   01 00EBA    C6000EEF     HEX6B    GENV     VHEX6B,H6
     4066   01 00EBB    C8000EF0     HEX8B    GENV     VHEX8B,H8
     4067   01 00EBC    D8000EF6     HEXF8A   GENV     VHEXF8A,HF8
     4068   01 00EBD    D8000EF7     HEXF8B   GENV     VHEXF8B,HF8
     4069   01 00EBE    81000EF1     BIN2A    GENV     VBIN2A,B2
     4070   01 00EBF    83000EF2     BIN4A    GENV     VBIN4A,B4
     4071   01 00EC0    87000EF3     BIN8A    GENV     VBIN8A,B8
     4072   01 00EC1    8F000EF4     BIN16A   GENV     VBIN16A,B16
     4073   01 00EC2    9F000EF5     BIN32A   GENV     VBIN32A,B32
     4074   01 00EC3    E0000EF8     BINFA    GENV     VBINFA,BF
     4075   01 00EC4    E0000EF9     BINFB    GENV     VBINFB,BF
     4076                            *
     4077                            *
     4078                            *****************TST2,TST3***************************
     4079   01 00EC5    87000F01     BIN8B    GENV     VBIN8B,B8
     4080   01 00EC6    A4000EFA     DEC4C    GENV     VDEC4C,D4
     4081   01 00EC7    A8000EFB     DEC8C    GENV     VDEC8C,D8
     4082   01 00EC8    A8000EFC     DEC8D    GENV     VDEC8D,D8
     4083   01 00EC9    A8000EFD     DEC8E    GENV     VDEC8E,D8
     4084   01 00ECA    A8000EFE     DEC8F    GENV     VDEC8F,D8
     4085   01 00ECB    A8000EFF     DEC8G    GENV     VDEC8G,D8
     4086   01 00ECC    C8000F00     HEX8C    GENV     VHEX8C,H8
     4087                            *********************END************************
     4088                            ******************TST2,TST3***************************
     4089   01 00ECD    000036E4     SYSTEM   DATA     W902
     4090   01 00ECE    000036EB     CC14     DATA     W905
     4091   01 00ECF    000036F3     STATE    DATA     W906
     4092   01 00ED0    000036F9     UNAVAIL  DATA     W913
     4093   01 00ED1    00003701     MONITOR  DATA     W914
     4094   01 00ED2    0000370E     SLASH    DATA     W916
     4095   01 00ED3    00003710     CKWRITE  DATA     W917
     4096   01 00ED4    00003718     NONREC   DATA     W919
     4097   01 00ED5    00003723     RETRY    DATA     W920
     4098         01 00EA6           DASH     EQU      3AST
     4099   01 00ED6    00003729     EXPECTED DATA     W921
     4100   01 00ED7    00003732     INITIAL  DATA     W923
     4101   01 00ED8    00003741     DISK     DATA     W924
     4102   01 00ED9    00003746     PACK     DATA     W925
     4103   01 00EDA    0000374B     ALTERNATE DATA    W927
     4104   01 00EDB    00003755     WAIT     DATA     W928
     4105   01 00EDC    0000375E     DASHES   DATA     W931
     4106   01 00EDD    00003769     EXERCISING DATA   W932
     4107   01 00EDE    00003774     VERIF    DATA     W933
     4108   01 00EDF    00003781     ARE      DATA     W934
     4109   01 00EE0    00003785     TOTAL    DATA     W935
     4110                            *
     4111                            ******************END****************************
     4112                            *
     4113                            *
     4114         01 00EE1           DATLAST  EQU      %
     4115                            *
     4116                            *
     4117                            *        ***VARIABLE DATA LOCATIONS***
     4118                            *
     4119   01 00EE1    00000009 A   VDEC1A   DATA     9
     4120   01 00EE2    00000063 A   VDEC2A   DATA     99
     4121   01 00EE3    0000270F A   VDEC4A   DATA     9999
     4122   01 00EE4    000003E7 A   VDEC3A   DATA     999
     4123   01 00EE5    05F5E0FF A   VDEC8A   DATA     99999999
     4124   01 00EE6    000000FF A   VHEX2A   DATA     X'FF'
     4125   01 00EE7    0000FFFF A   VHEX4A   DATA     X'FFFF'
     4126   01 00EE8    00FFFFFF A   VHEX6A   DATA     X'FFFFFF'
     4127   01 00EE9    FFFFFFFF A   VHEX8A   DATA     X'FFFFFFFF'
     4128   01 00EEA    00000063 A   VDEC2B   DATA     99
     4129   01 00EEB    0000270F A   VDEC4B   DATA     9999
     4130   01 00EEC    05F5E0FF A   VDEC8B   DATA     99999999
     4131   01 00EED    000000FF A   VHEX2B   DATA     X'FF'
     4132   01 00EEE    0000FFFF A   VHEX4B   DATA     X'FFFF'
     4133   01 00EEF    00FFFFFF A   VHEX6B   DATA     X'FFFFFF'
     4134   01 00EF0    FFFFFFFF A   VHEX8B   DATA     X'FFFFFFFF'
     4135   01 00EF1    00000003 A   VBIN2A   DATA     X'3'
     4136   01 00EF2    0000000F A   VBIN4A   DATA     X'F'
     4137   01 00EF3    000000FF A   VBIN8A   DATA     X'FF'
     4138   01 00EF4    0000FFFF A   VBIN16A  DATA     X'FFFF'
     4139   01 00EF5    FFFFFFFF A   VBIN32A  DATA     X'FFFFFFFF'
     4140                                     BOUND    8
     4141   01 00EF6    00000F02     VHEXF8A  DATA     VHEXTEST
     4142   01 00EF7    00000F02     VHEXF8B  DATA     VHEXTEST
     4143   01 00EF8    00000F04     VBINFA   DATA     VBINTEST
     4144   01 00EF9    00000F04     VBINFB   DATA     VBINTEST
     4145                            **************TST2,TST3*************************
     4146   01 00EFA    00000000 A   VDEC4C   DATA     0
     4147   01 00EFB    00000000 A   VDEC8C   DATA     0
     4148   01 00EFC    00000000 A   VDEC8D   DATA     0
     4149   01 00EFD    00000000 A   VDEC8E   DATA     0
     4150   01 00EFE    00000000 A   VDEC8F   DATA     0
     4151   01 00EFF    00000000 A   VDEC8G   DATA     0
     4152   01 00F00    00000000 A   VHEX8C   DATA     0
     4153   01 00F01    00000000 A   VBIN8B   DATA     0
     4154                            *********************END************************
     4155                            *
     4156   01 00F02    FFFFFFFF A   VHEXTEST DATA     -1,X'F0F0F0F0'
            01 00F03    F0F0F0F0 A
     4157   01 00F04    04100401 A   VBINTEST DATA     X'04100401',-1,X'AAAAAAAA'
            01 00F05    FFFFFFFF A
            01 00F06    AAAAAAAA A
     4158                            *
     4159                            *
     4160                            *        P R O G R A M   M E S S A G E S
     4161                            *
     4162                            *
     4163                            * THE FOLLOWING SECTION DEFINES ALL MESSAGES WHICH ARE
     4164                            * STORED IN COMPRESSED FORM AND WHICH CAN ONLY BE OUTPUT
     4165                            * WITH THE '#MSGP'  SUBROUTINE. ALL VARIABLE DATA MUST
     4166                            * BE STORED IN THE APPROPRIATE LOCATIONS PRIOR TO OUTPUTTING
     4167                            * A MESSAGE.
     4168                            *
     4169   01 00F07                 MXSTART  LOC,1    %                 START OF MSG INDEX TABLES
            01 00F07
     4170         01 00F07           MX000    MSGX     PROGRAM,OR,CPU,ERROR
     4171         01 00F08 1         MX001    MSGX     SIO,NO,ADDRESS,RECOGNITION
     4172         01 00F09 2         MX002    MSGX     TIO,NO,ADDRESS,RECOGNITION
     4173         01 00F0A 3         MX003    MSGX     HIO,NO,ADDRESS,RECOGNITION
     4174         01 00F0C           MX004    MSGX     AIO,NO,INTERRUPT,RECOGNITION
     4175         01 00F0D 1         MX005    MSGX     TDV,NO,ADDRESS,RECOGNITION
     4176         01 00F0E 2         MX006    MSGX     SIO,STATUS
     4177         01 00F0F 1         MX007    MSGX     TIO,STATUS
     4178         01 00F10           MX008    MSGX     HIO,STATUS
     4179         01 00F10 3         MX009    MSGX     AIO,STATUS
     4180         01 00F11 2         MX010    MSGX     TDV,STATUS
     4181         01 00F12 1         MX011    MSGX     EXP,BINFA,BINFB
     4182         01 00F13 1         MX012    MSGX     OBS,BIN16A,BIN4A
     4183         01 00F14 1         MX013    MSGX     TEST,MODE,TDV,GROUP,HEX2A
     4184         01 00F15 3         MX014    MSGX     COMMAND,WORD,ADDRESS,HEX6A
     4185         01 00F17           MX015    MSGX     IOCD,HEX8A,HEX8B
        1*        01 00F18           MX016    MSGX     NL,3AST,START,OF,IO,OPERATION,3AST                *H01
     4187         01 00F1A           MX017    MSGX     3AST,STATUS,AT,END,OF,IO,OPERATION,3AST
     4188         01 00F1C 1         MX018    MSGX     IO,INTERRUPT,NOT,RECEIVED,DEC4A,MSEC,AFTER,SIO
     4189         01 00F1E 2         MX019    MSGX     NOT,READY,DEC4A,MSEC,AFTER,SIO
     4190                            MX020    MSGX     CURRENT,COMMAND,DOUBLE,WORD,ADDRESS,;
     4191         01 00F20 1                           EXP,HEX6A,OBS,HEX6B
     4192         01 00F22 3         MX021    MSGX     REMAINING,BYTE,COUNT,EXP,HEX4A,OBS,HEX4B
     4193         01 00F24 3         MX022    MSGX     ADDRESS,OF,IO,INTERRUPT,EXP,HEX4A,OBS,HEX4B
     4194         01 00F27           MX023    MSGX     CONTROLLER,NOT,OPERATION,BS,AL
     4195         01 00F28 2         MX024    MSGX     CONTROLLER,NOT,AVAILABLE
     4196         01 00F29 2         MX025    MSGX     CONTROLLER,BUSY
     4197         01 00F2A 1         MX026    MSGX     DEVICE,NOT,OPERATION,BS,AL
     4198         01 00F2B 3         MX027    MSGX     DEVICE,NOT,AVAILABLE
     4199         01 00F2C 3         MX028    MSGX     DEVICE,BUSY
     4200         01 00F2D 2         MX029    MSGX     FAILURE,AT,END,OF,DATA,PHASE,OR,ORDER,IN
     4201         01 00F30           MX030    MSGX     FAILURE,AT,ORDER,OUT,OR,START,OF,DATA,PHASE
     4202         01 00F32 2         MX031    MSGX     IO,HALT
     4203         01 00F33 1         MX032    MSGX     FAILURE,IN,DATA,PHASE
     4204         01 00F34 2         MX033    MSGX     FAILURE,AT,COUNT,DONE
     4205         01 00F35 3         MX034    MSGX     INTERRUPT,PENDING
     4206                            MX035    MSGX     NL,NL,TST1,BS,COMMA,BS,DEC3A,3B,IO,ADDRESS,HEX4A,;
     4207         01 00F36 2                           NL,TX02
     4208         01 00F3A           MX036    MSGX     3AST,ERROR,3AST
     4209         01 00F3B           MX037    MSGX     3AST
     4210                            MX038    MSGX     TEST,SEQUENCE,NOT,COMPLETED,NL,HIO,;
     4211         01 00F3B 2                           EXECUTED
     4212                            MX039    MSGX     FAULT,INTERRUPT,OR,TRAP,COLON,NL,IO,ADDRESS,HEX4A,NL,;
     4213         01 00F3D 2                           TEST,WILL,BE,REPEATED,COLON,NL,TST,BS,DEC1A
     4214         01 00F42 2         MX040    MSGX     3AST,DISPLAY,3AST
     4215         01 00F43 2         MX041    MSGX     CLEAR,BUFFER,B,COLON,HEX6A
     4216         01 00F45           MX042    MSGX     3AST,END,3AST
     4217         01 00F46           MX043    MSGX     BUFFER,A,COLON,HEX6A,NL,BUFFER,B,COLON,HEX6B
     4218         01 00F48 2         MX044    MSGX     PATTERN,TYPE,COLON,DEC1A,NL,BUFFER,COLON,HEX6B
     4219         01 00F4A 3         MX045    MSGX     SPREAD,DATA
     4220         01 00F4B 2         MX046    MSGX     COMPARE,OF,DATA
     4221         01 00F4C 2         MX053    MSGX     TEST,MODE,SELECTION,EXECUTED,COMMA,BYTES,HEX4A
     4222         01 00F4E 2         MX054    MSGX     SIO,EXECUTED
     4223         01 00F4F 1         MX055    MSGX     SEEK,EXECUTED,COMMA,ADDRESS,HEX4A,HEX2A,HEX2B
     4224         01 00F51 1         MX056    MSGX     SENSE,EXECUTED
     4225         01 00F52           MX057    MSGX     TEST,MODE,SELECTION,ORDER,COMMA,BYTES,HEX4A
     4226         01 00F54           MX059    MSGX     SEEK,ORDER,COMMA,ADDRESS,HEX4A,HEX2A,HEX2B
     4227         01 00F56           MX060    MSGX     DEVICE,AFTER,DEC4A,MSEC,NOT,ON,CYLINDER
     4228         01 00F58           MX061    MSGX     SENSE,ORDER
     4229         01 00F58 3         MX062    MSGX     SENSE,DATA,NL,TX04
     4230         01 00F5A           MX063    MSGX     EXP,2B,HEXF8A,3B,HEXF8B
     4231         01 00F5B 2         MX064    MSGX     OBS,2B,HEXF8A,3B,HEXF8B
     4232         01 00F5D           MX065    MSGX     DEVICE,FAULT,BS,S,BYTE6,NL,EXP,BINFA,NL,OBS,BINFB
     4233         01 00F60           MX066    MSGX     CONTROLLER,FAULT,BS,S,BYTE8,NL,EXP,BINFA,NL,OBS,BINFB
     4234         01 00F63           MX067    MSGX     DEC4A,MSEC,DELAY,AFTER,SIO
     4235         01 00F64 2         MX068    MSGX     INTERRUPT,BITS,BYTE10,NL,EXP,BINFA,NL,OBS,BINFB
     4236         01 00F67           MX069    MSGX     CHECK,BYTES,BYTE12,NL,EXP,BINFA,NL,OBS,BINFB
     4237         01 00F69 2         MX071    MSGX     STEP,7B,PHASE,3B,BYTE,COUNT,2B,DEVCMD,5B,BUS
     4238         01 00F6C 1         MX072    MSGX     HEX4A,DEC1A,EXP,BINFA,NL,7B,OBS,BINFB
     4239         01 00F6E 2         MX073    MSGX     HEX4A,DEC1A,5B,BS,BINFB
     4240                            MX074    MSGX     EXP,PATTERN,SEED,COLON,HEX8A,NL,OBS,PATTERN,SEED,;
     4241         01 00F70                             COLON,HEX8B
        1*        01 00F73           MX075    MSGX     3AST,NL                                           *H01
        2*        01 00F73 3         MX076    MSGX     SENSE,DATA,ERROR,NL                               *H01
     4242         01 00F75           MX080    MSGX     TEST,VARIATION,COLON,DEC3A
     4243         01 00F76 1         MX082    MSGX     HEX4A,DEC1A,5B,BS,BINFA,3B,HEX8A
     4244         01 00F78 1         MX083    MSGX     ADDRESS,COLON,HEX6A
     4245         01 00F79 1         MX085    MSGX     MULTIPLE,TEST,SEQUENCE,COLON,DEC3A
     4246                            *
     4247                            *
     4248         01 00F7A 3         MX101    MSGX     HIO,COMMA,TIO,COMMA,TDV,RECOGNITION,TEST
     4249         01 00F7C 3         MX102    MSGX     INVALID,ORDER,TEST
     4250         01 00F7D 3         MX103    MSGX     TEST,MODE,SELECTION,TEST
     4251         01 00F7F           MX104    MSGX     INTERRUPT,GENERATION,TEST
     4252         01 00F80           MX105    MSGX     COMMAND,CHAINING,TEST
     4253         01 00F81           MX106    MSGX     FAM,BYTE,COUNT,TEST
     4254         01 00F82 1         MX107    MSGX     FAM,INTERFACE,TEST
     4255         01 00F83 1         MX108    MSGX     FAM,BYTE,ALIGNMENT,TEST
     4256         01 00F84 2         MX109    MSGX     FAM,RANDOM,DATA,TEST
     4257         01 00F85 3         MX117    MSGX     RESTORE,TEST
     4258         01 00F86 2         MX118    MSGX     SENSE,TEST
     4259         01 00F87 1         MX119    MSGX     SEEK,TEST
     4260         01 00F88           MX120    MSGX     HEADER,READ,TEST
     4261         01 00F89           MX121    MSGX     HEADER,WRITE,TEST
     4262         01 00F8A           MX122    MSGX     READ,TEST
     4263         01 00F8A 3         MX123    MSGX     WRITE,TEST
     4264         01 00F8B 2         MX124    MSGX     CHECK,WRITE,TEST
     4265         01 00F8C 2         MX129    MSGX     CONTROLLER,BUSY,TEST
     4266         01 00F8D 2         MX131    MSGX     CONDITION,RELEASE,INTERRUPT,TEST
     4267         01 00F8E 3         MX132    MSGX     RELEASE,TEST
     4268         01 00F8F 2         MX140    MSGX     SHORT,RECORD,TEST
     4269         01 00F90 2         MX141    MSGX     SEEK,COLON,INCORRECT,LENGTH,TEST
     4270         01 00F92           MX142    MSGX     SEEK,COLON,INCORRECT,ADDRESS,TEST
     4271         01 00F93 2         MX143    MSGX     SEEK,COLON,DIFFERENCE,TEST
     4272                            MX144    MSGX     HEADER,WRITE,BS,COMMA,HEADER,READ,COLON,;
     4273         01 00F94 3                           INCORRECT,LENGTH,TEST
     4274                            MX145    MSGX     WRITE,BS,COMMA,CHECK,WRITE,BS,COMMA,READ,COLON,;
     4275         01 00F97 2                           INCORRECT,LENGTH,TEST
     4276         01 00F9A 3         MX146    MSGX     HEADER,READ,COLON,CHECK,BYTE,ERROR,TEST
     4277         01 00F9C 3         MX147    MSGX     READ,COLON,CHECK,BYTE,ERROR,TEST
     4278         01 00F9E 2         MX148    MSGX     IOP,HALT,TEST
     4279         01 00F9F 2         MX149    MSGX     HIO,HALT,TEST
     4280         01 00FA0 2         MX150    MSGX     IOP,OUTPUT,PARITY,ERROR,TEST
     4281         01 00FA2           MX151    MSGX     IOP,INPUT,PARITY,ERROR,TEST
     4282         01 00FA3 2         MX152    MSGX     RATE,ERROR,TEST
     4283         01 00FA4 2         MX153    MSGX     RAD,COLON,INVALID,ORDER,TEST
     4284         01 00FA6           MX154    MSGX     INTERRUPT,MODIFIER,BIT,TEST
     4285         01 00FA7 1         MX156    MSGX     IOP,DEVICE,ADDRESS,PARITY,ERROR,TEST
     4286         01 00FA9           MX157    MSGX     SEEK,COLON,ADDRESS,BUFFER,TEST
     4287         01 00FAA 2         MX158    MSGX     SEEK,COLON,DEVICE,INTERFACE,ERROR,TEST
     4288         01 00FAC 1         MX159    MSGX     CHECK,WRITE,ERROR,TEST
     4289         01 00FAD 2         MX160    MSGX     SENSE,ORDER,AND,ANGULAR,POSITION,TEST
     4290         01 00FAF 1         MX163    MSGX     WRITE,COMMA,CHECK,WRITE,AND,READ,TEST
     4291         01 00FB1 1         MX165    MSGX     MATRIX,TEST
     4292         01 00FB2           MX166    MSGX     RESTORE,AND,SEEK,TEST
     4293         01 00FB3 1         MX167    MSGX     SEEK,ORDER,COLON,INTERRUPT,TEST
     4294         01 00FB4 3         MX168    MSGX     RESTORE,ORDER,COLON,INTERRUPT,TEST
     4295         01 00FB6 1         MX169    MSGX     SEEK,ORDER,COLON,HEAD,MOVING,TEST
     4296         01 00FB8           MX170    MSGX     SEEK,ORDER,COLON,HEAD,POSITION,BS,ING,TEST
     4297         01 00FBA 1         MX171    MSGX     HEADER,WRITE,AND,HEADER,READ,TEST
     4298         01 00FBC           MX172    MSGX     WRITE,BS,COMMA,3POINTS,COLON,ADDRESS,INCREMENTING TEST
     4299         01 00FBE           MX174    MSGX     WRITE,BS,COMMA,3POINTS,COLON,ADDRESS,BOUNDARY,TEST
     4300         01 00FC0 1         MX176    MSGX     WRITE,ORDER,COLON,MULTIPLE,SECTOR,WRITE,TEST
     4301         01 00FC2 1         MX177    MSGX     HEADER,READ,ORDER,COLON,MULTIPLE,SECTOR,READ,TEST
     4302         01 00FC4 2         MX180    MSGX     SURFACE,TEST
     4303         01 00FC5 1         MX181    MSGX     FLAW,MARK,TEST
     4304         01 00FC6 1         MX182    MSGX     WRONG,ADDRESS,SIMULATION,TEST
     4305         01 00FC7 2         MX183    MSGX     DEVICE,ERROR,TEST
     4306         01 00FC8 2         MX185    MSGX     LATENCY,TEST
     4307         01 00FC9 1         MX186    MSGX     DOUBLE,SEEK,TEST
     4308         01 00FCA 1         MX187    MSGX     WRITE,COLON,HIO,AND,DEVICE,RESET,TEST
     4309         01 00FCC 1         MX188    MSGX     DEVICE,ADDRESS,PARITY,TEST
     4310         01 00FCD 2         MX189    MSGX     SEEK,ORDER,COLON,TIME,OUT,TEST
     4311         01 00FCF 1         MX190    MSGX     RESERVE,AND,RELEASE,TEST
     4312         01 00FD0 2         MX191    MSGX     RESERVE,AND,RELEASE,COLON,INTERRUPT,TEST
     4313         01 00FD2 1         MX199    MSGX     DEVICE,POWER,DOWN,TEST
     4314         01 00FD3 2         MX1100   MSGX     WRITE,PROTECT,TEST
     4315         01 00FD4 2         MX1101   MSGX     ATTENTION,INTERRUPT,TEST
     4316         01 00FD5 2         MX1102   MSGX     NOT,OPERATION,BS,AL,TEST
     4317         01 00FD7           MX1104   MSGX     WRITE,COMMA,3POINTS,COLON,SURFACE,TEST
     4318         01 00FD8 3         MX1200   MSGX     HEADER,READ
     4319         01 00FD9 2         MX1201   MSGX     HEADER,WRITE
     4320         01 00FDA 1         MX1105   MSGX     READ,STROBE,TEST
     4321         01 00FDB 1         MX1106   MSGX     HEAD,ALIGNMENT,TEST
     4322                            *
     4323                            *
     4324         01 00FDC 1         MX400    MSGX     NOT,ENOUGH,PARAMETER,BS,S
     4325         01 00FDD 3         MX401    MSGX     TOO,MANY,PARAMETER,BS,S
     4326         01 00FDF 1         MX402    MSGX     PARAMETER,DEC1A,TOO,SMALL
     4327         01 00FE0 2         MX403    MSGX     PARAMETER,DEC1A,TOO,BIG
     4328                            *
     4329                            *
     4330         01 00FE1 3         MX411    MSGX     COMPARE,ERROR
     4331         01 00FE2 2         MX413    MSGX     EXP,BINFA,3B,HEX4A
     4332         01 00FE3 3         MX414    MSGX     OBS,BINFA
     4333         01 00FE4 2         MX417    MSGX     PRINT,LIMIT,COLON,ERROR,COUNT,DEC4A
     4334         01 00FE6 1         MX420    MSGX     BUFFER,AT,HEX6A,COLON,HEX8A
     4335         01 00FE7 3         MX421    MSGX     17B,2B,HEX8A
     4336                            *
     4337                            *
     4338         01 00FE8 3         MX500    MSGX     CONTROLLER,RESET,COLON,RESTORE,ORDER,AND,HIO
     4339         01 00FEA 3         MX501    MSGX     FUNCTIONAL,TEST,STARTED
     4340         01 00FEB 3         MX502    MSGX     END,OF,FUNCTIONAL,TEST
     4341         01 00FED           MX503    MSGX     RANDOM,EXERCISER,STARTED
     4342         01 00FEE           MX504    MSGX     END,OF,RANDOM,EXERCISER
     4343         01 00FEF 1         MX505    MSGX     NL,NL,SCOP,DATA,PRINT,OUT
     4344         01 00FF1           MX506    MSGX     IO,ADDRESS,HEX4A
     4345         01 00FF2           MX508    MSGX     IO,INTERRUPT,NOT,RECEIVED
     4346         01 00FF3 1         MX520    MSGX     17B,HEAD1,EXP,DATA,7B,OBS,DATA
     4347         01 00FF5 1         MX521    MSGX     TRACK,DEC3A,5B,BINFA,1B,HEXF8A,1B,HEXF8B
     4348         01 00FF7 2         MX522    MSGX     17B,HEAD2,2B,HEADER,DATA
     4349         01 00FF9           MX523    MSGX     HEAD,DEC2A,7B,BINFA,3B,HEXF8A,1B,HEXF8B
     4350         01 00FFB 1         MX525    MSGX     INTERRUPT,PENDING,NOT,SET,WITHIN,DEC3A,MSEC
     4351         01 00FFD 1         MX526    MSGX     INTERRUPT,PENDING,NOT,RESET,WITHIN,DEC3A,MSEC
     4352         01 00FFF 1         MX527    MSGX     INTERRUPT,PENDING,NOT,SET,AGAIN,WITHIN,DEC3A,MSEC
     4353         01 01001 2         MX530    MSGX     AVERAGE,SEEK,TIME,DEC3A,MSEC
     4354         01 01003           MX531    MSGX     TIME,OF,IO,OPERATION,EQUAL,DEC8A,MSEC
     4355         01 01005           MX532    MSGX     SEEK,ADDRESS,HEX8A,NL,OBS,2B,BS,ADDRESS,HEX8B
     4356         01 01007 2         MX540    MSGX     START,OF,SIO
     4357         01 01008 2         MX541    MSGX     LATENCY,TIME,OUT,COLON,DEC4A,MSEC,AFTER,START,OF,TEST
     4358         01 0100B 1         MX542    MSGX     CONTROLLER,RESET,COLON,HIO
     4359         01 0100C 2         MX543    MSGX     CONTROLLER,RESET,COLON,RELEASE,AND,HIO
     4360         01 0100E 1         MX550    MSGX     ERROR,COUNT,COLON,DEC4A
     4361         01 0100F 2         MX601    MSGX     TX01
     4362         01 01010           MX603    MSGX     TX03
     4363                            *
     4364         01 01010 2         MX404    MSGX     MEMORY,AVAILABLE,BS,COLON,HEX8A,TO,HEX8B
     4365         01 01012 2         MX405    MSGX     9B,5B,AND,HEX8A,TO,HEX8B
     4366         01 01014 1         MX406    MSGX     PARAMETER,DEC1A,IN,MONITOR
     4367         01 01015 2         MX407    MSGX     NL,NL,TST,BS,DEC1A,IO,ADDRESS,HEX4A
     4368                            MX200    MSGX     NL,TST2,SUMMARY,NL,PASS,DEC8A,RANDOM,;
     4369                                              OPERATION,COUNT,9B,2B,TOTAL,ERROR,COUNT,NL,;
     4370                                              IO,ADDRESS,SEEK,BS,SLASH,BS,SENSE,READ,BS,;
     4371                                              SLASH,BS,WRITE,BS,SLASH,BS,CKWRITE,2B,SEEK,;
     4372                                              BS,SLASH,BS,SENSE,READ,BS,SLASH,BS,WRITE,;
     4373         01 01017 3                           BS,SLASH,BS,CKWRITE
     4374         01 01023 2         MX201    MSGX     HEX4A,7B,DEC8B,3B,1B,DEC8E,9B,1B,DEC8C,3B,1B,DEC8F
     4375                            MX202    MSGX     TST,BS,DEC1A,WILL,NOT,BE,EXECUTED,NL,;
     4376                                              DEC4A,WORD,BS,S,OF,MEMORY,ARE,NOT,;
     4377         01 01026 3                           AVAILABLE,TO,PROGRAM
     4378         01 0102B 3         MX203    MSGX     SURFACE,INITIAL,NL,3AST
     4379         01 0102D           MX204    MSGX     RANDOM,EXERCISING,NL,3AST
     4380         01 0102E 1         MX205    MSGX     SURFACE,VERIF,NL,3AST
     4381                            MX300    MSGX     NL,TST3,SUMMARY,NL,;
     4382                                              PASS,DEC8A,5B,SURFACE,ERROR,9B,1B,NONREC,;
     4383                                              ERROR,5B,RETRY,NL,IO,ADDRESS,2B,READ,3B,1B,WRITE,;
     4384                                              1B,CKWRITE,3B,READ,3B,1B,WRITE,1B,CKWRITE,;
     4385         01 0102F 2                           1B,COUNT
     4386                            MX301    MSGX     HEX4A,3B,3B,DEC8B,DEC8C,DEC8D,;
     4387         01 01038 1                           DEC8E,DEC8F,DEC8G,DEC4B
     4388         01 0103B           MX302    MSGX     TIME,DEC8A
        1*        01 0103B 3         MX303    MSGX     INTERRUPT,NOT,EXPECTED,NL                         *H01
        2*        01 0103D           MX304    MSGX     SIO,NOT,ACCEPTED,NL                               *H01
        3*        01 0103E 1         MX305    MSGX     TIME,BS,OUT,NL                                    *H01
        4*        01 0103F 2         MX306    MSGX     STATUS,ERROR,NL                                   *H01
        5*        01 01040 2         MX307    MSGX     DATA,ERROR,NL                                     *H01
     4394         01 01041 2         MX308    MSGX     START,TIME,DEC8B
     4395         01 01042 2         MX309    MSGX     SEEK,ADDRESS,HEX8C
     4396         01 01043 2         MX311    MSGX     REMAINING,BYTE,COUNT,DEC4C
     4397         01 01044 3         MX312    MSGX     SENSE,DATA,NOT,AVAILABLE
     4398         01 01046           MX313    MSGX     STATUS,OK
     4399         01 01046 3         MX314    MSGX     RANDOM,PATTERN,SEED,HEX8A
     4400                            MX315    MSGX     RANDOM,PATTERN,SEEK,ADDRESS,BS,COLON,EXP,;
     4401         01 01048                             HEX8A,OBS,HEX8B
     4402         01 0104A 3         MX316    MSGX     DISK,PACK,INITIAL
     4403                            MX317    MSGX     SURFACE,SELECTION,COLON,2B,CYLINDER,HEX4A,HEAD,;
     4404                                              HEX2A,NL,ALTERNATE,SELECTION,COLON,CYLINDER,HEX4B,;
     4405         01 0104B 3                           HEAD,HEX2B,NL,CLEAR,WAIT,TO,START
     4406         01 01051 1         MX318    MSGX     TST3,NOT,COMPLETED,BS,SLASH,BS,HEADER,ERROR
     4407         01 01053 2         MX319    MSGX     SURFACE,FLAW,BS,S,COLON
     4408         01 01055           MX320    MSGX     CYLINDER,HEX4A,HEAD,HEX2A
     4409                            MX321    MSGX     TST3,NOT,COMPLETED,BS,SLASH,BS,TOO,;
     4410         01 01056 1                           MANY,FLAW,BS,S
     4411         01 01059 1         MX322    MSGX     DASHES,BS,DASHES
     4412         01 0105A 1         MX323    MSGX     3AST,DATA,AT,END,OF,OPERATION,3AST
     4413         01 0105C 1         MX324    MSGX     CHECK,WRITE,OF,DATA
     4414         01 0105D 2         MX325    MSGX     SURFACE,CHECK,WRITE,NL,3AST
     4415         01 0105F           MX326    MSGX     SURFACE,READ,NL,3AST
     4416         01 01060 1         MX327    MSGX     SURFACE,WRITE,NL,3AST
     4417         01 01061 2         MX328    MSGX     HEADER,READ,NL,3AST
     4418         01 01062 3         MX329    MSGX     HEADER,WRITE,NL,3AST
     4419                            MX990    MSGX     3AST,NL,SYSTEM,AT,ERROR,NL,;
     4420                                              2B,IO,2B,BS,3B,EXP,NL,;
     4421                                              ADDRESS,STATE,2B,BS,3B,TIO,2B,CC14,2B,TDV,;
     4422         01 01064                             9B,IOCD,2B,5B,START,TIME
     4423                            MX991    MSGX     HEX4A,2B,BS,2B,READY,2B,BIN8A,BIN4A,2B,BIN8B,;
     4424         01 0106B 2                           1B,DASH,5B,DASH,2B,5B,DASH
     4425                            MX992    MSGX     HEX4A,3B,BUSY,3B,BIN8A,BIN4A,2B,BIN8B,;
     4426         01 01070                             HEX8A,HEX8B,2B,BS,DEC8A
     4427                            MX993    MSGX     HEX4A,2B,1B,UNAVAIL,BIN8A,BIN4A,2B,BIN8B,;
     4428         01 01073 2                           1B,DASH,5B,DASH,2B,5B,DASH
     4429         01 01077 2         MX994    MSGX     17B,17B,3B,BS,5B,HEX8A,HEX8B
     4430         01 01079 2         MX995    MSGX     3AST
     4431         01 0107A           MX2000   MSGX     HEAD,DEC2A,2B,PLUS,DEC4A
     4432         01 0107B 2         MX2001   MSGX     HEAD,DEC2A,2B,MINUS,DEC4A
     4433         01 0107D           MX2002   MSGX     HEAD,DEC2A,2B,PLUS,DEC4A,3AST
     4434         01 0107E 3         MX2003   MSGX     HEAD,DEC2A,2B,MINUS,DEC4A,3AST
     4435         01 01080 2         MX2004   MSGX     HEAD,DEC2A,OUT,OF,RANGE
     4436                            *
     4437                            *
     4438                                     BOUND    4
     4439   01 01082                 MXEND    LOC,4    %
            01 01082
     4440                                     LOCAL
     4441                            *
1 C00   21:47 JUN 20,'83    TELEFILE ROTATING MEMORY TEST 960-0604-H02                            PAGE   15
A    4443                            *
     4444                            *        *** T S T 2  RANDOM EXERCISER ***
     4445                            *
     4446                            * THIS ROUTINE HANDLES THE 'TST2' DIRECTIVE AND PERFORMS THE RANDOM
     4447                            * EXERCISER TEST.
     4448                            *
     4449                            *  PARAMETERS: P1= NUMBER OF IO OPERATIONS TO PERFORM (1<=P1<=65535).
     4450                            *              P2= RETRY COUNT (0<=P2<=99).
     4451                            *
     4452         01 01082           TST2     EQU      %                 RANDOM EXERCISER TEST
     4453   01 01082    6AF00A8D              BAL,15   #TPM              VERIFY PARAMETERS P1,P2
     4454   01 01083    0000118E              DATA     T2TBL             TESTING LIMITS
     4455   01 01084    22400000 A            LI,4     0
     4456   01 01085    354019D5              STW,4     FASTCNT
     4457   01 01086    35400502              STW,4    T0FLG             RESET TST0 FLAG
     4458   01 01087    352011B0     TST2A    STW,2    ITHTEST           SPECIFY TST2 TO TRAP HDLR
     4459   01 01088    22400429              LI,4     ITHDLR            TRAP HANDLER ADDRESS
     4460   01 01089    3540030F              STW,4     :PIT15           SAVE
     4461   01 0108A    22401087              LI,4     TST2A
     4462   01 0108B    3540043C              STW,4    ITHRST            RESTART ADDRESS TO TRAP HDLR
     4463   01 0108C    22400000 A            LI,4     0
     4464   01 0108D    35401986              STW,4    CURTIME           RESET TIME TO 0
     4465   01 0108E    352011A7     TST2B    STW,2    T2:3              SPECIFY TST2 IN PROGRESS
     4466   01 0108F    31301A96              CW,3     BUFNR             ARE THE # BUFFERS > 3
     4467   01 01090    69101097              BL       %+7               YES
     4468   01 01091    22400401 A            LI,4     1025              # WORDS REQ'D
     4469   01 01092    35400EE3              STW,4    VDEC4A            SAVE IN MSG
     4470   01 01093    35200EE1              STW,2    VDEC1A            TST2
     4471   01 01094    6AF00B7B              BAL,15   #MSGP             TST2 WILL NOT BE EXECUTED ...
     4472   01 01095    0000409B              DATA     MX202
     4473   01 01096    68001127              B        TST215            GO TO EXIT
     4474   01 01097    351013F5              STW,1    SUMCURC           INITIALIZE CURRENT PASS  COUNT TO 1
     4475   01 01098    35201B6B              STW,2    PATID             SET PATTERN TYPE TO 2 (RANDOM PATN)
     4476   01 01099    6AF00AB5     TST20    BAL,15   #RAND             FETCH A RANDOM NUMBER
     4477   01 0109A    35E011AD              STW,14   BASEED            SAVE AS BASE SEED
     4478   01 0109B    32400201              LW,4     :P1               # OPERATIONS TO PERFORM
     4479   01 0109C    354011A3              STW,4    T2OPER            SAVE
     4480   01 0109D    32400202              LW,4     :P2               RETRY COUNT
     4481   01 0109E    754011A9              STB,4    T2RT              SAVE
     4482   01 0109F    754012A8              STB,4    T3RT              SAVE
     4483   01 010A0    22400000 A            LI,4     0
     4484   01 010A1    354011AA              STW,4    T2DAF             RESET DUAL ACCESS FLAG
     4485   01 010A2    354011AC              STW,4    T2PHASE           SET PHASE TO SURFACE INITIALIZATION
     4486   01 010A3    354012A0              STW,4    T3MAP             RESET VERIFY FLAG
     4487   01 010A4    22700001 A            LI,7     1                 INITIALIZE DCT INDEX
     4488   01 010A5    6AF012CC     TST21    BAL,15   T3PREP            PREPARE DCT TABLES,FLAGS
     4489   01 010A6    351011AB              STW,1    T2FC              SET CURRENT FC TO WRITE ORDER
     4490   01 010A7    6AF012DF              BAL,15   T3EXU             INITIALIZE SURFACE W RANDOM PATTERN
     4491   01 010A8    20700001 A            AI,7     1                 INCREMENT DCT INDEX
     4492   01 010A9    317017D5              CW,7     DCTNUM            LAST DEVICE?
     4493   01 010AA    682010A5              BLE      TST21             NO-LOOP
     4494   01 010AB    229001F4 A            LI,9     500               SET TIME BETWEEN CTR4=0'S TO 500MS
     4495   01 010AC    6AF01B2B              BAL,15   DIOSIN            INITIALIZE AND ENVOKE DIOS NORMAL
     4496   01 010AD    351011AF              STW,1    T2IOCDB           RESET IOCD BUILD FLAG
     4497   01 010AE    351012A0              STW,1    T3MAP             SET VERIFY FLAG
     4498   01 010AF    351011A4     TST22    STW,1    T2DCT             SET CURRENT DCT TO 1           MODE
     4499   01 010B0    351011AC              STW,1    T2PHASE           SET PHASE TO RANDOM EXERCISING
     4500   01 010B1    22400000 A            LI,4     0
     4501   01 010B2    354011AA              STW,4    T2DAF             RESET DUAL ACCESS FLAG
     4502   01 010B3    327011A4     TST23    LW,7     T2DCT             FETCH CURRENT DCT INDEX
     4503   01 010B4    B2CE17E5     TST24    LW,12    *DCT16,7          LAST SEEK ADDRESS
     4504   01 010B5    B8CE17E4              SW,12    *DCT15,7          LAST-FIRST
     4505   01 010B6    6AF00AB5              BAL,15   #RAND             RANDOM NUMBER
     4506   01 010B7    22400000 A            LI,4     0
     4507   01 010B8    3250000E A            LW,5     14
     4508   01 010B9    3640000C A            DW,4     12                RN/SEEK SPREAD
     4509   01 010BA    B04E17E4              AW,4     *DCT15,7          PLUS STARTING SEEK ADDRESS
     4510   01 010BB    32B00004 A            LW,11    4                 SEEK ADDRESS
     4511   01 010BC    6AF01380              BAL,15   SEEKREQ           CONVERT SEEK ADDRESS TO FORMATED
     4512   01 010BD    680010BE              B        %+1
     4513   01 010BE    32C011A9              LW,12    T2RT              RETRY COUNT,MAX TIME FOR OPER.
     4514   01 010BF    6AF00AB5              BAL,15   #RAND             RANDOM NUMBER
     4515   01 010C0    32F0000E A            LW,15    14
     4516   01 010C1    22E00000 A            LI,14    0
     4517   01 010C2    36E02DE0              DW,14    =10               RANDOM NUMBER (MOD10)
     4518   01 010C3    32400201              LW,4     :P1               #OPERATIONS
     4519   01 010C4    2540007F A            SLS,4    -1                1/2 OPER COUNT
     4520   01 010C5    314011A3              CW,4     T2OPER            DETERMINE THE PHASE
     4521   01 010C6    692010E6              BG       TST28             PHASE 2
     4522   01 010C7    19E01194              CLM,14   PROBPH1           PHASE 1-DETERMINE THE SEQ TO USE
     4523   01 010C8    696010DA              BCS,6    TST2SEQ3          SEQ#3
     4524         01 010C9           TST2SEQ1 EQU      %                 SEQ#1 ** SEEK CC SURF CC SENSE **
     4525   01 010C9    6AF0112D              BAL,15   TST2SEEK          FETCH SEEK OPER PAR.S
     4526   01 010CA    32E02DE1              LW,14    =X'2C000000'      IOCD FLAGS W CC
     4527   01 010CB    6AF0117C              BAL,15   T2BUILD           BUILD IOCD
     4528   01 010CC    662011A5              AWM,2    T2IOCD            UPDATE WA(IOCD)
     4529   01 010CD    6AF01148              BAL,15   TST2SUR1          BUILD SURF OPERATIONS
     4530   01 010CE    32502DE2              LW,5     =X'20000000'      CC FLAG
     4531   01 010CF    C75211A5              STS,5    *T2IOCD,1         SET CC FLAG
     4532   01 010D0    662011A5              AWM,2    T2IOCD            UPDATE WA(IOCD)
     4533   01 010D1    6AF0113C              BAL,15   TST2SNS           FETCH SENSE PAR.S
     4534   01 010D2    32E02DE3              LW,14    =X'1C000000'      IOCD FLAGS
     4535   01 010D3    6AF01184              BAL,15   T2BUILD1          BUILD IOCD
     4536   01 010D4    1280119C              LD,8     T2SAVP+4          RESTORE NEWQ PAR.S FOR SEEK
     4537   01 010D5    12A0119E              LD,10    T2SAVP+6
     4538   01 010D6    49802DE2              OR,8     =X'20000000'      SET CC FLAG
     4539   01 010D7    6AF01808              BAL,15   NEWQ1             INSERT REQUEST
     4540   01 010D8    680010D8              B        %                 *** PROGRAM ERROR ***
     4541   01 010D9    680010FC              B        TST210            GO TO INSERT RELEASE ORDER
     4542         01 010DA           TST2SEQ3 EQU      %                 SEQ#3 ** SEEK ** SENSE **
     4543   01 010DA    6AF0112D              BAL,15   TST2SEEK          FETCH SEEK OPER PAR.S
     4544   01 010DB    32E02DE3              LW,14    =X'1C000000'      IOCD FLAGS
     4545   01 010DC    6AF0117C              BAL,15   T2BUILD           BUILD IOCD
     4546   01 010DD    6AF01808              BAL,15   NEWQ1             INSERT REQUEST
     4547   01 010DE    680010DE              B        %                 *** PROGRAM ERROR ***
     4548   01 010DF    6AF0113C              BAL,15   TST2SNS           FETCH SENSE OPER PAR.S
     4549   01 010E0    32E02DE3              LW,14    =X'1C000000'      IOCD FLAGS
     4550   01 010E1    6AF0117C              BAL,15   T2BUILD           BUILD IOCD
     4551   01 010E2    49802DD6              OR,8     =X'40000000'      SET DEP FLAG
     4552   01 010E3    6AF01808              BAL,15   NEWQ1             INSERT REQUEST
     4553   01 010E4    680010E4              B        %                 *** PROGRAM ERROR ***
     4554   01 010E5    680010FC              B        TST210            GO TO INSERT RELEASE ORDER
     4555   01 010E6    19E01196     TST28    CLM,14   PROBPH2           DETERMINE THE SEQ. TO BE USED
     4556   01 010E7    696010DA              BCS,6    TST2SEQ3          SEQ#3
     4557         01 010E8           TST2SEQ2 EQU      %                 SEQ#2 ** SEEK ** SURF ** SENSE **
     4558   01 010E8    6AF0112D              BAL,15   TST2SEEK          FETCH SEEK OPER PAR.S
     4559   01 010E9    32E02DE3              LW,14    =X'1C000000'      IOCD FLAGS
     4560   01 010EA    6AF0117C              BAL,15   T2BUILD           BUILD IOCD
     4561   01 010EB    6AF01808              BAL,15   NEWQ1             INSERT REQUEST
     4562   01 010EC    680010EC              B        %                 *** PROGRAM ERROR ***
     4563   01 010ED    6AF01144              BAL,15   TST2SURF          BUILD SURFACE IOCD(S)
     4564   01 010EE    32502DE4              LW,5     =X'10000000'      CE FLAG
     4565   01 010EF    C75211A5              STS,5    *T2IOCD,1         SET INTO IOCD
     4566   01 010F0    12801198              LD,8     T2SAVP            RESTORE STARTING PAR.S
     4567   01 010F1    12A0119A              LD,10    T2SAVP+2
     4568   01 010F2    49802DD6              OR,8     =X'40000000'      SET DEP FLAG
     4569   01 010F3    6AF01808              BAL,15   NEWQ1             INSERT REQUEST
     4570   01 010F4    680010F4              B        %                 *** PROGRAM ERROR ***
     4571   01 010F5    6AF0113C              BAL,15   TST2SNS           FETCH SENSE OPER PAR.S
     4572   01 010F6    32E02DE3              LW,14    =X'1C000000'      IOCD FLAGS
     4573   01 010F7    6AF0117C              BAL,15   T2BUILD           BUILD IOCD
     4574   01 010F8    32B011A0              LW,11    T2SAVP+8          RESTORE EXPECTED SEEK ADDRESS
     4575   01 010F9    49802DD6              OR,8     =X'40000000'      SET DEP FLAG
     4576   01 010FA    6AF01808              BAL,15   NEWQ1             INSERT REQUEST
     4577   01 010FB    680010FB              B        %                 *** PROGRAM ERROR ***
     4578   01 010FC    22800017 A   TST210   LI,8     X'17'             RELEASE ORDER                    A01
     4579   01 010FD    498011AA              OR,8     T2DAF             SET DUAL ACCESS FLAG
     4580   01 010FE    6AF01A34              BAL,15   BUFRAND           FETCH A BUFFER
     4581   01 010FF    680010FE              B        %-1               NONE AVAILABLE-LOOP
     4582   01 01100    22A00000 A            LI,10    0                 BYTE COUNT
     4583   01 01101    32E02DE3              LW,14    =X'1C000000'      IOCD FLAGS
     4584   01 01102    6AF0117C              BAL,15   T2BUILD           BUILD IOCD
     4585   01 01103    6AF01808              BAL,15   NEWQ1             INSERT REQUEST
     4586   01 01104    68001104              B        %                 *** PROGRAM ERORR ***
     4587   01 01105    330011A3              MTW,0    T2OPER            DECREMENT OPERATION COUNT
     4588   01 01106    69101115              BLZ      TST213            COUNT <= 0
     4589   01 01107    324011AA     TST211   LW,4     T2DAF             IS THE DUAL ACCESS FLAG SET
     4590   01 01108    6910110E              BLZ      TST212            YES
     4591   01 01109    B24E17D6              LW,4     *DCT1,7           IS THE DEVICE IN DUAL ACCESS?
     4592   01 0110A    6810110E              BGEZ     TST212            NO
     4593   01 0110B    32402DD4              LW,4     =X'80000000'      SET DUAL ACCESS FLAG
     4594   01 0110C    354011AA              STW,4    T2DAF
     4595   01 0110D    680010B3              B        TST23             LOOP TO TEST DUAL ACCESS B OF DEVICE
     4596   01 0110E    22400000 A   TST212   LI,4     0
     4597   01 0110F    354011AA              STW,4    T2DAF             RESET DUAL ACCESS FLAG
     4598   01 01110    331011A4              MTW,1    T2DCT             INCREMENT DCT INDEX
     4599   01 01111    325011A4              LW,5     T2DCT
     4600   01 01112    315017D5              CW,5     DCTNUM            LAST DEVICE?
     4601   01 01113    682010B3              BLE      TST23             NO-TEST THIS DEVICE
     4602   01 01114    680010AF              B        TST22             YES-GO TO TEST 1ST DEVICE
     4603   01 01115    22400001 A   TST213   LI,4     1                 STARTING CIT INDEX
     4604   01 01116    B25817FD              LW,5     *CIT2,4           IS THE Q EMPTY
     4605   01 01117    69301116              BNEZ     %-1               NO-LOOP
     4606   01 01118    B24817FC              LW,4     *CIT1,4           NEXT CIT INDEX
     4607   01 01119    69301116              BNEZ     %-3               NOT LAST-LOOP TO TEST FOR Q EMPTY
     4608   01 0111A    22700001 A            LI,7     1                 INITIALIZE DCT
     4609         01 0111B           TST214   EQU      %
     4610   01 0111B    68001123              B        %+8               BYPASS SURFACE VERIFICATION
     4611   01 0111C    6AF012D3              BAL,15   T3PREP1           PREPARE DCT TABLES
     4612   01 0111D    352011AB              STW,2    T2FC              SET FC TO READ
     4613   01 0111E    352011AC              STW,2    T2PHASE           SET PHASE TO SURFACE VERIFICATION
     4614   01 0111F    6AF012DF              BAL,15   T3EXU             READ ALL SURFACE AND VERIFY
     4615   01 01120    20700001 A            AI,7     1                 INCREMENT DCT INDEX
     4616   01 01121    317017D5              CW,7     DCTNUM            LAST DEVICE
     4617   01 01122    6820111B              BLE      TST214            NO-LOOP
     4618   01 01123    6AF013B1              BAL,15   SUMMARY           PRINT SUMMARY REPORT
     4619   01 01124    68001099              B        TST20             ADDITIONAL PASS REQUIRED
     4620   01 01125    22401060 A            LI,4     X'1060'
     4621   01 01126    6D401100 A            WD,4     X'1100'           DISARM IO,CTR4 INTERRUPTS
     4622   01 01127    33000502     TST215   MTW,0    T0FLG             TEST FOR TST0
     4623   01 01128    6930051E              BNEZ     TST0C             YES-RETURN TO TST0
     4624   01 01129    EAF0021D              BAL,15   *:SENSE           TEST SSW1,3
     4625   01 0112A    2E00112A              WAIT     %                 WAIT
     4626   01 0112B    6800108E              B        TST2B             LOOP
     4627   01 0112C    E8000214              B        *:MONITOR         RETURN TO MONITOR
     4628                            *
     4629   01 0112D    35F011A2     TST2SEEK STW,15   T2SAVX2           SAVE RETURN ADDRESS
     4630   01 0112E    22800083 A            LI,8     X'83'             SEEK W MODIFIER ORDER
     4631   01 0112F    B25E17DA              LW,5     *DCT5,7           DEVICE TYPE
     4632   01 01130    311A1BA1              CW,1     DEVNR,5           RAD?
     4633   01 01131    69301133              BNE      %+2               NO
     4634   01 01132    22800003 A            LI,8     X'03'             SEEK ORDER
     4635   01 01133    22A00004 A            LI,10    4                 BYTE COUNT
     4636   01 01134    498011AA              OR,8     T2DAF             DUAL ACCESS FLAG
     4637   01 01135    6AF01A34              BAL,15   BUFRAND           FETCH A BUFFER
     4638   01 01136    68001135              B        %-1               NONE AVAILABLE-LOOP
     4639   01 01137    B5B00009 A            STW,11   *9                SAVE SEEK ADDRESS IN BUFFER
     4640   01 01138    1580119C              STD,8    T2SAVP+4          SAVE SEEK PARAMETERS
     4641   01 01139    15A0119E              STD,10   T2SAVP+6
     4642   01 0113A    33F011A3              MTW,-1   T2OPER            DECREMENT OPERATION COUNT
     4643   01 0113B    E80011A2              B        *T2SAVX2          EXIT
     4644   01 0113C    35F011A2     TST2SNS  STW,15   T2SAVX2           SAVE RETURN ADDRESS
     4645   01 0113D    22800004 A            LI,8     X'04'             SENSE ORDER
     4646   01 0113E    498011AA              OR,8     T2DAF             MERGE DUAL ACCESS FLAG
     4647   01 0113F    22A00010 A            LI,10    16                BYTE COUNT
     4648   01 01140    6AF01A34              BAL,15   BUFRAND           FETCH A BUFFER
     4649   01 01141    68001140              B        %-1               NONE AVAILABLE-LOOP
     4650   01 01142    33F011A3              MTW,-1   T2OPER            DECREMENT OPERATION COUNT
     4651   01 01143    E80011A2              B        *T2SAVX2          EXIT
     4652                            *
     4653   01 01144    35F011A2     TST2SURF STW,15   T2SAVX2           SAVE RETURN ADDRESS
     4654   01 01145    6AF0117C              BAL,15   T2BUILD           FETCH AN IOCD AREA
     4655   01 01146    32802DD6              LW,8     =X'40000000'      SET DEP FLAG
     4656   01 01147    68001149              B        %+2
     4657   01 01148    35F011A2     TST2SUR1 STW,15   T2SAVX2           SAVE RETURN ADDRESS
     4658   01 01149    33F011A3              MTW,-1   T2OPER            DECREMENT OPERATION COUNT
     4659   01 0114A    6AF00AB5              BAL,15   #RAND             RANDOM NUMBER
     4660   01 0114B    3240000E A            LW,4     14
     4661   01 0114C    4B400003 A            AND,4    3                 MOD 4
     4662   01 0114D    728811A6              LB,8     T2ORD,4           FETCH AN ORDER (WR,RD,CKWR)
     4663   01 0114E    498011AA              OR,8     T2DAF             MERGE DUAL ACCESS FLAG
     4664   01 0114F    6AF01A34              BAL,15   BUFRAND           FETCH A BUFFER
     4665   01 01150    6800114F              B        %-1               NONE AVAILABLE-LOOP
     4666   01 01151    B25E17DA              LW,5     *DCT5,7           DEVICE TYPE
     4667   01 01152    32AA1B99              LW,10    BYTNR,5           BYTE COUNT
     4668   01 01153    31100008 A            CW,1     8                 PATTERN REQUIRED?
     4669   01 01154    68401156              BCR,4    %+2               NO
     4670   01 01155    6AF013F6              BAL,15   PATTERN           BUILD PATTERN IN BUFFER
     4671   01 01156    32E02DE5              LW,14    =X'0C000000'      IOCD FLAGS
     4672   01 01157    6AF01184              BAL,15   T2BUILD1          BUILD IOCD
     4673   01 01158    15801198              STD,8    T2SAVP            SAVE PAR.S
     4674   01 01159    15A0119A              STD,10   T2SAVP+2
     4675   01 0115A    6AF0139F              BAL,15   SEEKINC           INCREMENT SEEK ADDRESS
     4676   01 0115B    35B011A0              STW,11   T2SAVP+8          SAVE SEEK ADDRESS
     4677   01 0115C    6AF01395              BAL,15   SEEKABS           CONVERT SEEK ADDRESS TO ABSOLUTE
     4678   01 0115D    B1BE17E5              CW,11    *DCT16,7          IS THE ADDRESS > SEEK LIMIT?
     4679   01 0115E    E92011A2              BG       *T2SAVX2          EXIT
     4680   01 0115F    6AF01380              BAL,15   SEEKREQ           IS A SEEK HEAD BOUNDRY CROSSED??
     4681   01 01160    68001162              B        %+2               NO
     4682   01 01161    E80011A2              B        *T2SAVX2          YES-EXIT
     4683   01 01162    6AF00AB5              BAL,15   #RAND             RANDOM NUMBER
     4684   01 01163    3240000E A            LW,4     14
     4685   01 01164    32D02DE2              LW,13    =X'20000000'      COMMAND CHAINING FLAG
     4686   01 01165    32E02DE2              LW,14    =X'20000000'      CC FLAG
     4687   01 01166    4B400003 A            AND,4    3                 MOD 4
     4688   01 01167    724811A6              LB,4     T2ORD,4           ORDER
     4689   01 01168    71460008 A            CB,4     8,3               SAME AS PREVIOUS SURFACE ORDER?
     4690   01 01169    6930116C              BNE      %+3               NO
     4691   01 0116A    32D02DD4              LW,13    =X'80000000'      DATA CHAINING FLAG
     4692   01 0116B    32E02DE4              LW,14    =X'10000000'      DC FLAG
     4693   01 0116C    C7D211A5              STS,13   *T2IOCD,1         SET DC OR CC FLAG IN IOCD
     4694   01 0116D    32D0000E A            LW,13    14                CC,DC FLAGS
     4695   01 0116E    47D01198              STS,13   T2SAVP            MERGE INTO CALL
     4696   01 0116F    662011A5              AWM,2    T2IOCD            UPDATE WA(IOCD)
     4697   01 01170    75460008 A            STB,4    8,3               SAVE ORDER
     4698   01 01171    6AF01A34              BAL,15   BUFRAND           FETCH A BUFFER
     4699   01 01172    68001171              B        %-1               NONE AVAILABLE-LOOP
     4700   01 01173    31100008 A            CW,1     8                 PATTERN REQUIRED?
     4701   01 01174    68401176              BCR,4    %+2               NO
     4702   01 01175    6AF013F6              BAL,15   PATTERN           BUILD PATTERN
     4703   01 01176    32E02DE5              LW,14    =X'0C000000'      IOCD FLAGS
     4704   01 01177    6AF01184              BAL,15   T2BUILD1          BUILD IOCD
     4705   01 01178    33F011A3              MTW,-1   T2OPER            DECREMENT OPERATION COUNT
     4706   01 01179    6AF0139F              BAL,15   SEEKINC           INCREMENT SEEK ADDRESS
     4707   01 0117A    35B011A0              STW,11   T2SAVP+8          SAVE SEEK ADDRESS
     4708   01 0117B    E80011A2              B        *T2SAVX2          EXIT
     4709                            *
     4710   01 0117C    35F011A1     T2BUILD  STW,15   T2SAVX1           SAVE RETURN ADDRESS
     4711   01 0117D    6AF01844              BAL,15   GETQ              RESERVE A Q ENTRY
     4712   01 0117E    6800117D              B        %-1               Q FULL-LOOP
     4713   01 0117F    32400006 A            LW,4     6                 IOQ INDEX
     4714   01 01180    25400003 A            SLS,4    3                 X8
     4715   01 01181    304011AE              AW,4     T2:3IOCD          FORM WA(IOCD)
     4716   01 01182    354011A5              STW,4    T2IOCD            SAVE
     4717   01 01183    68001185              B        %+2
     4718   01 01184    35F011A1     T2BUILD1 STW,15   T2SAVX1           SAVE RETURN ADDRESS
     4719   01 01185    32500009 A            LW,5     9                 BUFFER ADDRESS
     4720   01 01186    25500002 A            SLS,5    2                 BA(BUFFER)
     4721   01 01187    75800005 A            STB,8    5                 MERGE ORDER,BA(BUFFER)
     4722   01 01188    B55011A5              STW,5    *T2IOCD           SAVE IN IOCD MSH
     4723   01 01189    3250000E A            LW,5     14                IOCD FLAGS
     4724   01 0118A    55A20005 A            STH,10   5,1               MERGE BYTE COUNT , FLAGS
     4725   01 0118B    B55211A5              STW,5    *T2IOCD,1         SAVE IN IOCD LSH
     4726   01 0118C    E80011A1              B        *T2SAVX1          EXIT
     4727                            *
     4728                            *
     4729                                     BOUND    8
     4730   01 0118E    00000001 A   T2TBL    DATA     1,2               #PAR.S
            01 0118F    00000002 A
     4731   01 01190    00000001 A            DATA     1,X'FFFF'         RANGE OF P1
            01 01191    0000FFFF A
     4732   01 01192    00000000 A            DATA     0,99                       P2
            01 01193    00000063 A
     4733   01 01194    00000007 A   PROBPH1  DATA     7,1               PROB. RANGE OF VARIABLE FOR SEQ#1
            01 01195    00000001 A
     4734   01 01196    00000007 A   PROBPH2  DATA     7,1               PROB. RANGE OF VARIABLE FOR SEQ#2
            01 01197    00000001 A
     4735   01 01198                 T2SAVP   RES      9                 TEMP SAVE
     4736   01 011A1    00000000 A   T2SAVX1  DATA     0                 RETURN ADDRESS SAVE
     4737   01 011A2    00000000 A   T2SAVX2  DATA     0                 RETURN ADDRESS SAVE
     4738   01 011A3    00000000 A   T2OPER   DATA     0                 CURRENT REMAINING #OPERATIONS
     4739   01 011A4    00000000 A   T2DCT    DATA     0                 CURRENT DCT INDEX
     4740   01 011A5    00000000 A   T2IOCD   DATA     0                 IOCD SAVE
     4741   01 011A6    01       A   T2ORD    DATA,1   1,X'12',5,1       SURFACE ORDERS
            01 011A6 1  12       A
            01 011A6 2  05       A
            01 011A6 3  01       A
     4742   01 011A7    00000000 A   T2:3     DATA     0                 TST2/TST3 INDICATOR
     4743   01 011A8    00000000 A   T2CURS   DATA     0                 CURRENT SEEK ADDRESS
     4744   01 011A9    00001388 A   T2RT     DATA     5000              RETRY COUNT,MAX ALLOWED TIME OF OPER.
     4745   01 011AA    00000000 A   T2DAF    DATA     0                 DUAL ACCESS FLAG
     4746   01 011AB    00000000 A   T2FC     DATA     0                 FUNCTION CODE
     4747   01 011AC    00000000 A   T2PHASE  DATA     0                 TEST PHASE (0=SURF INIT;1=RANDOM
     4748                            *                                   EXERC.;2=SURF VERIF.)
     4749   01 011AD    00000000 A   BASEED   DATA     0                 RANDOM PATTERN BASE SEED
     4750   01 011AE    00000000 A   T2:3IOCD DATA     0                 ADDRESS OF AREA USED FOR IOCD'S
     4751   01 011AF    00000000 A   T2IOCDB  DATA     0                 IOCD BUILD FLAG (1=NO,2=YES)
     4752   01 011B0    00000000 A   ITHTEST  DATA     0                 INT/TRAP HDLR TEST NUMBER
1 C00   21:47 JUN 20,'83    TELEFILE ROTATING MEMORY TEST 960-0604-H02                            PAGE   16
A    4754                            *
     4755                            *        *** T S T 3  UTILITY TESTS ***
     4756                            *
     4757                            * THIS ROUTINE HANDLES THE 'TST3' DIRECTIVE AND PERFORMS THE SPECIFIED
     4758                            * TEST(S).
     4759                            *
     4760                            *   PARAMETERS: P1=1  SURFACE TEST
     4761                            *                     ------------
     4762                            *                 P2=0  WRITE,READ AND VERIFY
     4763                            *                 P2=1  WRITE
     4764                            *                 P2=2  READ AND VERIFY
     4765                            *                 P2=3  READ
     4766                            *                 P2=4  CHECKWRITE
     4767                            *                 P2=5  WRITE AND READ (NO VERIFY)
     4768                            *               P1=2  HEADER TEST (DISK PACK ONLY)
     4769                            *                     ----------------------------
     4770                            *                 P2=0  WRITE,READ AND VERIFY
     4771                            *                 P2=1  WRITE
     4772                            *                 P2=2  READ AND VERIFY
     4773                            *                 P2=3  READ
     4774                            *               P1=3  DISK PACK INITIALIZATION
     4775                            *                     ------------------------
     4776                            *                 P2=0 OR ALTERNATE (IN HEX) TO BE ASSIGNED
     4777                            *                    (BITS 8-15=CYL;BITS 16-23=HEAD)
     4778                            *               P3=     RETRY COUNT (0<=P3<=99)
     4779                            *               P4=     READ AFTER WRITE COUNT (TST3,1,0 AND TST3,1,5
     4780                            *                       (0<=P4<=65535)               AND TST3,2,0 ONLY)
     4781                            *
     4782         01 011B1           TST3     EQU      %                 TST3 DIRECTIVE HANDLER
     4783   01 011B1    353011B0              STW,3    ITHTEST           SPECIFY TST3 TO TRAP HDLR
     4784   01 011B2    224011B1              LI,4     TST3
     4785   01 011B3    3540043C              STW,4    ITHRST            SPECIFY RESTART ADDR TO TRAP HDLR
     4786   01 011B4    22400429              LI,4     ITHDLR            TRAP HANDLER ADDRESS
     4787   01 011B5    3540030F              STW,4    :PIT15            SAVE
     4788   01 011B6    22400000 A            LI,4     0
     4789   01 011B7    35401986              STW,4    CURTIME           RESET CURRENT TIME
     4790   01 011B8    354019D5              STW,4    FASTCNT
     4791   01 011B9    353011A7     TST3B    STW,3    T2:3              TST3
     4792   01 011BA    31301A96              CW,3     BUFNR             ARE THE # BUFFERS => 3?
     4793   01 011BB    682011C2              BLE      %+7               YES
     4794   01 011BC    22400302 A            LI,4     770               # WORDS REQ'D
     4795   01 011BD    35400EE3              STW,4    VDEC4A            SAVE IN MSG
     4796   01 011BE    35300EE1              STW,3    VDEC1A            TST3
     4797   01 011BF    6AF00B7B              BAL,15   #MSGP             TST3 WILL NOT BE EXECUTED ...
     4798   01 011C0    0000409B              DATA     MX202
     4799   01 011C1    68001236              B        TST324            GO TO EXIT
     4800   01 011C2    3510141C              STW,1    PATAVAIL          RESET PATTERN AVAILABLE FLAG
     4801   01 011C3    31100201              CW,1     :P1               IS P1 =1
     4802   01 011C4    693011D0              BNE      TST310            NO
     4803   01 011C5    32500202              LW,5     :P2               IS P2 = 0?
     4804   01 011C6    693011CA              BNEZ     %+4               NO
     4805   01 011C7    22500004 A   TST31    LI,5     4                 SET #PARS = 4
     4806   01 011C8    22600005 A            LI,6     5                 SET P2 LIMIT = 5
     4807   01 011C9    680011DB              B        TST312            GO TO TEST PARS
     4808   01 011CA    21500005 A            CI,5     5                 IS P2 = 5?
     4809   01 011CB    693011CE              BNE      %+3               NO
     4810   01 011CC    3520141C              STW,2    PATAVAIL          SET PATTERN AVAILABLE FLAG
     4811   01 011CD    680011C7              B        TST31
     4812   01 011CE    22500003 A            LI,5     3                 SET #PARS = 3
     4813   01 011CF    680011C8              B        TST31+1
     4814   01 011D0    31200201     TST310   CW,2     :P1               IS P1=2
     4815   01 011D1    693011D9              BNE      TST311            NO
     4816   01 011D2    31100202              CW,1     :P2               IS P2= 0
     4817   01 011D3    682011D7              BLE      %+4               NO
     4818   01 011D4    22500004 A            LI,5     4                 SET #PARS =4
     4819   01 011D5    22600003 A            LI,6     3                 SET P2 LIMIT=3
     4820   01 011D6    680011DB              B        TST312            GO TO TEST
     4821   01 011D7    22500003 A            LI,5     3                 SET #PARS =3
     4822   01 011D8    680011D5              B        %-3
     4823   01 011D9    22500003 A   TST311   LI,5     3                 SET #PARS =3
     4824   01 011DA    32602DD8              LW,6     =X'FFFFFF'        SET P2 LIMIT
     4825   01 011DB    35501291     TST312   STW,5    T3TBL+1           SAVE # PARS
     4826   01 011DC    35601295              STW,6    T3TBL+5           SAVE P2 LIMIT
     4827   01 011DD    6AF00A8D              BAL,15   #TPM              TEST PARAMETERS
     4828   01 011DE    00001290              DATA     T3TBL             TESTING LIMITS
     4829   01 011DF    351013F5     TST3121  STW,1    SUMCURC           INITIALIZE CURRENT PASS  TO 1
     4830   01 011E0    02200030 A            LCI      3
     4831   01 011E1    2AD0045A              LM,13    :DATAP1           FETCH DATA DIRECTIVE PARAMETERS
     4832   01 011E2    2BD01B6B              STM,13   PATID             SAVE IN PATTERN ROUTINE
     4833   01 011E3    3130045A              CW,3     :DATAP1           SEEK ADDRESS PATTERN REQ'D?
     4834   01 011E4    693011E9              BNE      %+5               NO
     4835   01 011E5    22400000 A            LI,4     0
     4836   01 011E6    35401B6B              STW,4    PATID             SET PATTERN TYPE TO FIXED
     4837   01 011E7    680011E9              B        %+2               CONTINUE
     4838   01 011E8    6AF00AB5     TST313   BAL,15   #RAND             RANDOM NUMBER
     4839   01 011E9    35E011AD              STW,14   BASEED            SAVE AS BASE SEED
     4840   01 011EA    311013F5              CW,1     SUMCURC           FIRST PASS?
     4841   01 011EB    693011FC              BNE      TST3131           NO
     4842   01 011EC    3120141C              CW,2     PATAVAIL          IS TST3,1,5 IN PROGRESS?
     4843   01 011ED    693011FC              BNE      TST3131           NO
     4844   01 011EE    35101A8E              STW,1    BUFMAPI           RESET BUFFER MAP INITIALIZED
     4845   01 011EF    22400100 A            LI,4     256               WORD COUNT
     4846   01 011F0    35401B6A              STW,4    WCNT              SAVE IN PATTERN ROUTINE
     4847   01 011F1    22400000 A            LI,4     0
     4848   01 011F2    35401B6E              STW,4    BFRA              RESET BFRA USAGE
     4849   01 011F3    31201B6B     TST3130  CW,2     PATID             RANDOM PATTERN?
     4850   01 011F4    693011F6              BNE      %+2               NO
     4851   01 011F5    35E01B6C              STW,14   PATID+1           SAVE PATTERN SEED
     4852   01 011F6    6AF01A34              BAL,15   BUFRAND           FETCH A BUFFER ADDRESS
     4853   01 011F7    680011FC              B        TST3131           ALL BUFFERS CONTAIN A PATTERN
     4854   01 011F8    35901B6F              STW,9    BFRB              SAVE BUFFER ADDRESS
     4855   01 011F9    6AF00B44              BAL,15   #PATT             BUILD A PATTERN IN ONE BUFFER
     4856   01 011FA    32E0000F A            LW,14    15                MOVE NEW PATTERN SEED
     4857   01 011FB    680011F3              B        TST3130           LOOP
     4858   01 011FC    22700001 A   TST3131  LI,7     1                 STARTING DCT INDEX
     4859   01 011FD    31300201     TST314   CW,3     :P1               TST3,3?
     4860   01 011FE    6830123D              BE       TST330            YES
     4861   01 011FF    22400000 A   TST3141  LI,4     0                 0
     4862   01 01200    354011AA              STW,4    T3DAF             RESET DUAL ACCESS FLAG
     4863   01 01201    32400203     TST315   LW,4     :P3               FETCH RETRY COUNT
     4864   01 01202    754012A8              STB,4    T3RT              SAVE
     4865   01 01203    311013F5              CW,1     SUMCURC           1. PASS
     4866   01 01204    69301206              BNE      %+2
     4867   01 01205    6AF012CC              BAL,15   T3PREP            PREPARE DCT TABLE,FLAGS
     4868   01 01206    6AF012D3              BAL,15   T3PREP1           PREPARE DCT TABLE (BIPASS SUMMARY CLEAR
     4869   01 01207    32400204     TST316   LW,4     :P4               FETCH READ AFTER WRITE COUNT
     4870   01 01208    354012A7              STW,4    T3RAW             SAVE
     4871   01 01209    32500201              LW,5     :P1               P1
     4872   01 0120A    38500001 A            SW,5     1                 P1-1
     4873   01 0120B    23500006 A            MI,5     6                 (P1-1)*6
     4874   01 0120C    31300201              CW,3     :P1               P1=3?
     4875   01 0120D    6830120F              BE       %+2               YES
     4876   01 0120E    30500202              AW,5     :P2               (P1-1)*6+P2
     4877   01 0120F    724A129A              LB,4     T3MAPI,5          FETCH MAP
     4878   01 01210    354012A0              STW,4    T3MAP             SAVE
     4879   01 01211    22400020 A            LI,4     X'20'             BIT
     4880   01 01212    354012A1              STW,4    T3MAPB            INITIALIZE TESTING BIT
     4881   01 01213    22500005 A            LI,5     5
     4882   01 01214    355012A2              STW,5    T3MAPC            INITIALIZE MAP ORDER COUNT TO 5
     4883   01 01215    324012A1     TST317   LW,4     T3MAPB            FETCH TEST BIT
     4884   01 01216    314012A0              CW,4     T3MAP             PERFORM CORRESPONDING ORDER?
     4885   01 01217    6840121E              BCR,4    TST319            NO
     4886   01 01218    325012A2              LW,5     T3MAPC            FETCH MAP ORDER COUNT
     4887   01 01219    724A129E              LB,4     T3MAPO,5          FETCH CORRESPONDING ORDER
     4888   01 0121A    354011AB              STW,4    T3FC              SAVE AS CURRENT FUNCTION CODE (ORDER
     4889   01 0121B    38500001 A            SW,5     1
     4890   01 0121C    355011AC              STW,5    T3PHASE           SET PHASE (TEST TYPE)
     4891   01 0121D    6AF012DF     TST318   BAL,15   T3EXU             EXECUTE ORDER
     4892   01 0121E    33F012A2     TST319   MTW,-1   T3MAPC            DECR MAP COUNT
     4893   01 0121F    68201224              BLEZ     TST320            NO MORE ORDERS
     4894   01 01220    324012A1              LW,4     T3MAPB            FETCH AND
     4895   01 01221    2540007F A            SLS,4    -1                   ADJUST TESTING BIT
     4896   01 01222    354012A1              STW,4    T3MAPB            SAVE
     4897   01 01223    68001215              B        TST317            LOOP
     4898   01 01224    31300201     TST320   CW,3     :P1               TST3,3?
     4899   01 01225    6830126A              BE       TST331            GO TO CONTINUE INITIALIZATION
     4900   01 01226    33F012A7              MTW,-1   T3RAW             DECR READ AFTER WRITE COUNT
     4901   01 01227    6810121D              BGEZ     TST318            NOT 0-LOOP
     4902   01 01228    324011AA     TST321   LW,4     T3DAF             FETCH DUAL ACCESS FLAG
     4903   01 01229    6910122F              BLZ      TST322            DUAL ACCESS B TEST COMPLETED
     4904   01 0122A    B24E17D6              LW,4     *DCT1,7           IS THE DEVICE IN DUAL ACCESS?
     4905   01 0122B    6810122F              BGEZ     TST322            NO
     4906   01 0122C    32402DD4              LW,4     =X'80000000'      YES
     4907   01 0122D    354011AA              STW,4    T3DAF             SET DUAL ACCESS FLAG
     4908   01 0122E    68001207              B        TST316            LOOP TO TEST SAME DEVICE
     4909   01 0122F    20700001 A   TST322   AI,7     1                 INCREMENT DCT INDEX
     4910   01 01230    317017D5              CW,7     DCTNUM            LAST DEVICE ?
     4911   01 01231    682011FD              BLE      TST314            NO-LOOP
     4912   01 01232    6AF013B1              BAL,15   SUMMARY           SUMMARY REPORT
     4913   01 01233    6800123A              B        TST325            ADDITIONAL PASS REQ'D
     4914   01 01234    22401060 A   TST323   LI,4     X'1060'
     4915   01 01235    6D401100 A            WD,4     X'1100'           DISARM IO,CTR4 INTERRUPTS
     4916   01 01236    EAF0021D     TST324   BAL,15   *:SENSE           TEST SSW1,3
     4917   01 01237    2E001237              WAIT     %
     4918   01 01238    680011B9              B        TST3B             LOOP
     4919   01 01239    E8000214              B        *:MONITOR         RETURN TO MONITOR
     4920   01 0123A    311011AB     TST325   CW,1     T3FC              CAN A NEW SEED BE USED?
     4921   01 0123B    694011E8              BCS,4    TST313            YES
     4922   01 0123C    680011FC              B        TST3131           NO
     4923                            *
     4924         01 0123D           TST330   EQU      %                 DISK PACK INITIALIZATION
     4925   01 0123D    02000000 A            NOP
     4926   01 0123E    6AF00B7B              BAL,15   #MSGP
     4927   01 0123F    0000412B              DATA     MX316             DISK PACK INIT...
     4928   01 01240    B24E17D6              LW,4     *DCT1,7           FETCH DEVICE ADDRESS
     4929   01 01241    35400EE7              STW,4    VHEX4A            SAVE
     4930   01 01242    6AF00B7B              BAL,15   #MSGP
     4931   01 01243    00003FC4              DATA     MX506             IO ADDRESS...
     4932   01 01244    33000202              MTW,0    :P2               ALTERNATE ASSIGNMENT REQ'D?
     4933   01 01245    69301249              BNEZ     %+4               YES
     4934   01 01246    22400000 A            LI,4     0
     4935   01 01247    354017D4              STW,4    PACKERR           CLEAR ERROR TABLE POINTER
     4936   01 01248    680011FF              B        TST3141           GO TO PERFORM HDR/DATA WRITE & READ
     4937   01 01249    B2BE17E4              LW,11    *DCT15,7          SEEK ADDRESS LOW LIMIT
     4938   01 0124A    6AF01380              BAL,15   SEEKREQ           CONVERT TO 4-BYTE ADDRESS
     4939   01 0124B    6800124C              B        %+1
     4940   01 0124C    5240000B A            LH,4     11                SELECTED CYLINDER
     4941   01 0124D    35400EE7              STW,4    VHEX4A            SAVE
     4942   01 0124E    7244000B A            LB,4     11,2              SELECTED HEAD
     4943   01 0124F    35400EE6              STW,4    VHEX2A            SAVE
     4944   01 01250    72420202              LB,4     :P2,1             ALTERNATE CYLINDER
     4945   01 01251    35400EEE              STW,4    VHEX4B            SAVE
     4946   01 01252    72440202              LB,4     :P2,2             ALTERNATE HEAD
     4947   01 01253    35400EED              STW,4    VHEX2B            SAVE
     4948   01 01254    6AF00B7B              BAL,15   #MSGP
     4949   01 01255    0000412F              DATA     MX317             SURFACE SELECTED...
     4950   01 01256    EAF0022B              BAL,15   *:WAIT            WAIT FOR RESPONSE
     4951   01 01257    000012AB              DATA     T3WAITM                                            A02
     4952   01 01258    6AF012CC              BAL,15   T3PREP            PREPARE DCT TABLES
     4953   01 01259    351012A5              STW,1    T3FLAW            SET FLAW FLAG
     4954   01 0125A    351012A6              STW,1    T3ALT             SET ALTERNATE FLAG
     4955   01 0125B    22400009 A            LI,4     X'09'
     4956   01 0125C    354011AB              STW,4    T3FC              ESTABLISH FC = WRITE HEADER
     4957   01 0125D    32400203              LW,4     :P3               RETRY COUNT
     4958   01 0125E    754012A8              STB,4    T3RT              SET RETRY COUNT
     4959   01 0125F    B25E17E4              LW,5     *DCT15,7          FETCH SEEK ADDRESS LOW LIMIT
     4960   01 01260    355012A3              STW,5    T3FRSTS           SAVE
     4961   01 01261    B24E17DA              LW,4     *DCT5,7           DEVICE TYPE
     4962   01 01262    32481B81              LW,4     SECTNR,4          # SECTORS
     4963   01 01263    38400001 A            SW,4     1                 LESS 1
     4964   01 01264    30500004 A            AW,5     4                 FORM SEEK ADDRESS HIGH LIMIT
     4965   01 01265    355012A4              STW,5    T3LASTS           SAVE
     4966   01 01266    22400004 A            LI,4     4
     4967   01 01267    354011AC              STW,4    T3PHASE           SET PHASE (TEST TYPE)
     4968   01 01268    6AF012DF              BAL,15   T3EXU             WRITE HEADERS
     4969   01 01269    68001234              B        TST323            GO TO TEST SSW1,3
     4970   01 0126A    326017D4     TST331   LW,6     PACKERR           ARE THERE SURFACE ERRORS?
     4971   01 0126B    6830122F              BEZ      TST322            NO FLAWS-GO TO INCREMENT DCT INDEX
     4972   01 0126C    351012A5     TST333   STW,1    T3FLAW            SET FLAW FLAG
     4973   01 0126D    22400006 A            LI,4     6
     4974   01 0126E    754012A8              STB,4    T3RT              SET RETRY COUNT TO 6
     4975   01 0126F    22400009 A            LI,4     X'09'
     4976   01 01270    354011AB              STW,4    T3FC              SET FC TO WRITE HDR
     4977   01 01271    22400000 A            LI,4     0
     4978   01 01272    354012AA              STW,4    T3TMP             TEMPORARY ERROR COUNT = 0
     4979   01 01273    324012AA              LW,4     T3TMP
     4980   01 01274    32B812AD     TST334   LW,11    T3ERTBL,4         FETCH CYL,HEAD ADDRESS
     4981   01 01275    4BB02DE6              AND,11   =X'FFFFFF00'      MASK
     4982   01 01276    6AF01395              BAL,15   SEEKABS           CONVERT TO ABSOLUTE
     4983   01 01277    35B012A3              STW,11   T3FRSTS           SAVE AS STARTING SEEK ADDRESS
     4984   01 01278    B24E17DA              LW,4     *DCT5,7           FETCH DEVICE TYPE
     4985   01 01279    30B81B81              AW,11    SECTNR,4          FETCH # SECTORS
     4986   01 0127A    38B00001 A            SW,11    1                 FORM LAST SEEK ADDRESS
     4987   01 0127B    35B012A4              STW,11   T3LASTS           SAVE
     4988   01 0127C    22400004 A            LI,4     4
     4989   01 0127D    354011AC              STW,4    T3PHASE           SET PHASE (TEST TYPE)
     4990   01 0127E    6AF012DF              BAL,15   T3EXU             WRITE HDRS
     4991   01 0127F    331012AA              MTW,1    T3TMP             INCR HEADER COUNT
     4992   01 01280    324012AA              LW,4     T3TMP
     4993   01 01281    314017D4              CW,4     PACKERR           LAST CYLINDER/HEAD
     4994   01 01282    68201274              BLE      TST334            NO-LOOP
     4995   01 01283    6AF00B7B              BAL,15   #MSGP
     4996   01 01284    0000414E              DATA     MX319             SURFACE FLAWS...
     4997   01 01285    326017D4              LW,6     PACKERR           INITIALIZE ERROR TABLE INDEX
     4998   01 01286    325C12AD     TST335   LW,5     T3ERTBL,6         FETCH SEEK ADDRESS
     4999   01 01287    25500078 A            SLS,5    -8                REMOVE SECTOR
     5000   01 01288    35500EE6              STW,5    VHEX2A            SAVE HEAD
     5001   01 01289    25500078 A            SLS,5    -8                ADJUST
     5002   01 0128A    35500EE7              STW,5    VHEX4A            SAVE CYLINDER
     5003   01 0128B    6AF00B7B              BAL,15   #MSGP
     5004   01 0128C    00004154              DATA     MX320             CYLINDER...
     5005   01 0128D    64601286              BDR,6    TST335            LOOP TILL ALL ADDRESSES PRINTED
     5006   01 0128E    6800122F              B        TST322             GO    TO INCR DCT INDEX
     5007                            *
     5008                                     BOUND    8
     5009   01 01290    00000002 A   T3TBL    DATA     2,4               # PAR.S
            01 01291    00000004 A
     5010   01 01292    00000001 A            DATA     1,3               RANGE OF P1
            01 01293    00000003 A
     5011   01 01294    00000000 A            DATA     0,4                        P2
            01 01295    00000004 A
     5012   01 01296    00000000 A            DATA     0,99                       P3
            01 01297    00000063 A
     5013   01 01298    00000000 A            DATA     0,X'FFFF'                  P4
            01 01299    0000FFFF A
     5014                            * ORDER SEQUENCE MAP: BIT0,1=UNUSED;BIT2=WR HDR;BIT3=RD HDR;BIT4=WR
     5015                            *                     BIT5=RD;BIT6=CKWR;BIT7=VERIFY
     5016                            T3MAPI   DATA,1   X'0D',X'08',X'05',X'04',X'03',X'0C',; SURFACE TESTING
     5017                                              X'31',X'20',X'11',X'10',;             HEADER TESTING
     5018   01 0129A    0D       A                     0,0,X'3D'                             INITIALIZATION
            01 0129A 1  08       A
            01 0129A 2  05       A
            01 0129A 3  04       A
            01 0129B    03       A
            01 0129B 1  0C       A
            01 0129B 2  31       A
            01 0129B 3  20       A
            01 0129C    11       A
            01 0129C 1  10       A
            01 0129C 2  00       A
            01 0129C 3  00       A
            01 0129D    3D       A
     5019                                     BOUND    4
     5020         01 0129E           T3MAPO   EQU      %                 CORRESPONDING ORDERS (INDEXED BY
     5021                                     DATA,1   0,X'05',X'02',X'01',;                MAP COUNT)
     5022   01 0129E    00       A            X'0A',X'09',0,0
            01 0129E 1  05       A
            01 0129E 2  02       A
            01 0129E 3  01       A
            01 0129F    0A       A
            01 0129F 1  09       A
            01 0129F 2  00       A
            01 0129F 3  00       A
     5023   01 012A0    00000000 A   T3MAP    DATA     0                 CURRENT ORDER SEQUENCE MAP
     5024   01 012A1    00000000 A   T3MAPB   DATA     0                 TESTING BIT
     5025   01 012A2    00000000 A   T3MAPC   DATA     0                 MAP  COUNT
     5026   01 012A3    00000000 A   T3FRSTS  DATA     0                 SEEK ADDRESS LOWER LIMIT (ABSOLUTE)
     5027   01 012A4    00000000 A   T3LASTS  DATA     0                 SEEK ADDRESS UPPER LIMIT (ABSOLUTE)
     5028   01 012A5    00000000 A   T3FLAW   DATA     0                 FLAW MARK FLAG (1=ASSIGN)
     5029   01 012A6    00000000 A   T3ALT    DATA     0                 ALTERNATE FLAG (1=ASSIGN)
     5030   01 012A7    00000000 A   T3RAW    DATA     0                 READ AFTER WRITE COUNT
     5031   01 012A8    00001388 A   T3RT     DATA     5000              RETRY COUNT,MAX ALLOW TIME OF OPER.
     5032         01 011AB           T3FC     EQU      T2FC              FUNCTION CODE (ORDER)
     5033         01 011AA           T3DAF    EQU      T2DAF             DUAL ACCESS FLAG
     5034         01 011A8           T3CURS   EQU      T2CURS            CURRENT SEEK ADDRESS (ABSOLUTE)
     5035         01 011AC           T3PHASE  EQU      T2PHASE           CURRENT PHASE (TEST TYPE);(0=CKWRITE;
     5036                            *                                   1=READ;2=WRITE;3=HDR READ;4=HDR WR)
     5037   01 012A9    00000000 A   T3FINI   DATA     0                 FINISH FLAG (2=FINISH)
     5038   01 012AA    00000000 A   T3TMP    DATA     0                 TEMPORARY LOC.
     5039         01 012AB           T3WAITM  TEXTCS   'WAIT'
     5040   01 012AD                 T3ERTBL  RES      31                DISK PACK ERROR TABLE (CYL,HEAD) A02
1 C00   21:47 JUN 20,'83    TELEFILE ROTATING MEMORY TEST 960-0604-H02                            PAGE   17
A    5042                            *
     5043                            *        ***  T3PREP SUBROUTINE ***
     5044                            *
     5045                            * THE ROUTINE PLACES THE PRE- AND POST- HANDLER ADDRESSES INTO THE DCT
     5046                            * TABLE, CLEARS THE DEVICE'S OPERATION AND ERROR TALLIES, ESTABLISHES
     5047                            * THE TESTING  SURFACE LIMITS AND RESETS THE FLAW,ALTERNATE FLAGS FOR
     5048                            * HEADER OPERATIONS.
     5049                            *
     5050                            * CALLING SEQUENCE:
     5051                            *        BAL,15   T3PREP            PREPARE DCT TABLE
     5052                            *    OR  BAL,15   T3PREP1           PREPARE DCT TABLE (BIPASS TALLY CLR)
     5053                            *        B        -                 RETURN
     5054                            *
     5055                            * PARAMETERS:
     5056                            *        (R7)=DCT                   DCT INDEX
     5057                            *
     5058                            * REGISTERS USED: R4,R5,R14
     5059                            * REGISTERS DISTURBED: R4,R5,R15
     5060                            * OTHER ROUTINES ACCESSED: NONE
     5061                            *
     5062         01 012CC           T3PREP   EQU      %                 PREPARE DCT TABLE
     5063   01 012CC    22E00000 A            LI,14    0
     5064   01 012CD    B5EE17E6              STW,14   *DCT17,7          CLEAR DCT OPERATION,ERROR TALLIES
     5065   01 012CE    B5EE17E7              STW,14   *DCT18,7
     5066   01 012CF    B5EE17E8              STW,14   *DCT19,7
     5067   01 012D0    B5EE17E9              STW,14   *DCT20,7
     5068   01 012D1    B5EE17EA              STW,14   *DCT21,7
     5069   01 012D2    B5EE17EB              STW,14   *DCT22,7
     5070   01 012D3    22E00000 A   T3PREP1  LI,14    0
     5071   01 012D4    35E012A6              STW,14   T3ALT             RESET ALTERNATE FLAG
     5072   01 012D5    35E012A5              STW,14   T3FLAW            RESET FLAW FLAG
     5073   01 012D6    B24E17E4              LW,4     *DCT15,7          FETCH SURFACE LIMITS
     5074   01 012D7    B25E17E5              LW,5     *DCT16,7
     5075   01 012D8    354012A3              STW,4    T3FRSTS           SAVE AS FIRST,LAST SURFACE LIMITS
     5076   01 012D9    355012A4              STW,5    T3LASTS
     5077   01 012DA    224016E4              LI,4     PREHDLR           PRE-HANDLER ADDRESS
     5078   01 012DB    22501746              LI,5     POSTHDLR          POST-HANDLER ADDRESS
     5079   01 012DC    B54E17DC              STW,4    *DCT7,7           SAVE IN DCT
     5080   01 012DD    B55E17DD              STW,5    *DCT8,7
     5081   01 012DE    E800000F A            B        *15               EXIT
     5082                            *
     5083                            *        *** T3EXU SUBROUTINE ***
     5084                            *
     5085                            * THIS ROUTINE PERFORMS SEQUENTIAL SURFACE OR HEADER OPERATIONS ON ALL
     5086                            * SELECTED SURFACE ADDRESSES OF ONE DEVICE.
     5087                            *
     5088                            * CALLING SEQUENCE:
     5089                            *        BAL,15   T3EXU             PERFORM SEQUENTIAL SURFACE TESTING
     5090                            *        B        -                 RETURN
     5091                            *
     5092                            * PARAMETERS:
     5093                            *        (R7)=DCT                   DCT INDEX
     5094                            *        T3FRSTS                    FIRST SEEK ADDRESS (ABSOLUTE)
     5095                            *        T3LASTS                    LAST SEEK ADDRESS (ABSOLUTE)
     5096                            *        T3DAF                      DUAL ACCESS FLAG  (BIT 0: 0=DAA,
     5097                            *        T3RT                       RETRY COUNT               1=DAB
     5098                            *        T3FC                       ORDER TO BE PERFORMED
     5099                            *        T3MAP                      VERIFICATION FLAG (BIT 31: 1= VERIFY
     5100                            *                                                                DATA)
     5101                            * REGISTERS USED: R4-R15
     5102                            * REGISTERS DISTURBED: R4-R6,R8-R15
     5103                            * OTHER ROUTINES ACCESSED: DIOSIF,SEEKREQ,BUFRAND,T3CHK,NEWQ,PATTERN
     5104                            *
     5105         01 012DF           T3EXU    EQU      %                 TST3 EXECUTE
     5106   01 012DF    35F01348              STW,15   T3EXUX            SAVE RETURN ADDRESS
     5107   01 012E0    229007D0 A            LI,9     2000              SET TIME BETWEEN CTR4=0'S TO 2SEC
     5108   01 012E1    6AF01B2E              BAL,15   DIOSIF            INITIALIZE AND ENVOKE DIOS FAST MODE
     5109   01 012E2    351012A9              STW,1    T3FINI            RESET FINISH FLAG
     5110   01 012E3    352011AF              STW,2    T2IOCDB           SET IOCD BUILD FLAG
     5111   01 012E4    324012A3              LW,4     T3FRSTS           FETCH STARTING SURFACE (ABSOLUTE)
     5112   01 012E5    354011A8              STW,4    T3CURS            SAVE AS CURRENT SEEK ADDRESS
     5113   01 012E6    B24E17D8              LW,4     *DCT3,7           FETCH DUAL ACCESS A CIT INDEX
     5114   01 012E7    330011AA              MTW,0    T3DAF             DUAL ACCESS A ?
     5115   01 012E8    681012EA              BGEZ     %+2               YES
     5116   01 012E9    B24E17D9              LW,4     *DCT4,7           FETCH DUAL ACCESS B CIT INDEX
     5117   01 012EA    3540137F              STW,4    T3CHKCIT          SAVE CIT INDEX
     5118   01 012EB    3510134C              STW,1    T3EXUFI           RESET FIXED, INCR PAT'N MODE FLAG
     5119   01 012EC    22400000 A            LI,4     0
     5120   01 012ED    35401349              STW,4    T3EXUSB           CLEAR SEEK, WRITE, RELEASE
     5121   01 012EE    3540134A              STW,4    T3EXUWB             BUFFERS FOR FIXED,
     5122   01 012EF    3540134B              STW,4    T3EXURB               INCR PAT'N MODE
     5123   01 012F0    3120141C              CW,2     PATAVAIL          TST3,1,5 IN PROGRESS?
     5124   01 012F1    68301302              BE       T3EXU0            YES
     5125   01 012F2    312011B0              CW,2     TESTNR
     5126   01 012F3    68301302              BE       T3EXU0
     5127   01 012F4    3120045A              CW,2     :DATAP1           FIXED OR INCREMENTING PATTERN REQ'D
     5128   01 012F5    68201302              BLE      T3EXU0            NO
     5129   01 012F6    311011AB              CW,1     T3FC              WRITE ORDER?
     5130   01 012F7    69301302              BNE      T3EXU0            NO
     5131   01 012F8    6AF01A34              BAL,15   BUFRAND           FETCH A BUFFER
     5132   01 012F9    680012F8              B        %-1
     5133   01 012FA    35901349              STW,9    T3EXUSB           SAVE AS SEEK BUFFER
     5134   01 012FB    6AF01A34              BAL,15   BUFRAND           FETCH ANOTHER BUFFER
     5135   01 012FC    680012FB              B        %-1
     5136   01 012FD    3590134A              STW,9    T3EXUWB           SAVE AS WRITE BUFFER
     5137   01 012FE    6AF01A34              BAL,15   BUFRAND           FETCH ANOTHER BUFFER
     5138   01 012FF    680012FE              B        %-1
     5139   01 01300    3590134B              STW,9    T3EXURB           SAVE AS RELEASE BUFFER
     5140   01 01301    3520134C              STW,2    T3EXUFI           SET FIXED, INCR MODE FLAG
     5141   01 01302    32B011A8     T3EXU0   LW,11    T3CURS            FETCH CURRENT SEEK ADDRESS
     5142   01 01303    6AF01380              BAL,15   SEEKREQ           CONVERT TO FORMATED
     5143   01 01304    68001305              B        %+1
     5144   01 01305    68001308              B        T3EXU2            GO TO PERFORM SEEK
     5145   01 01306    6AF01380     T3EXU1   BAL,15   SEEKREQ           CONVERT TO FORMATED
     5146   01 01307    68001313              B        T3EXU3            NO SEEK REQ'D
     5147   01 01308    328011AA     T3EXU2   LW,8     T3DAF             FETCH DUAL ACCESS FLAG
     5148   01 01309    20800003 A            AI,8     X'03'             MERGE SEEK ORDER
     5149   01 0130A    32901349              LW,9     T3EXUSB           BUFFER ALREADY AVAILABLE?
     5150   01 0130B    6930130E              BNEZ     %+3               YES-BIPASS BUFFER FETCH
     5151   01 0130C    6AF01A34              BAL,15   BUFRAND           FETCH A BUFFER
     5152   01 0130D    6AF0135A              BAL,15   T3CHK             NO BUFFER AVAIL.-TEST FOR DATA VERIF.
     5153   01 0130E    B5B00009 A            STW,11   *9                SEEK ADDRESS TO BUFFER
     5154   01 0130F    22A00004 A            LI,10    4                 BUFFER AVAIL.-SEEK BYTE COUNT
     5155   01 01310    32C012A8              LW,12    T3RT              RETRY  COUNT, MAX TIME OF OPER.
     5156   01 01311    6AF01803              BAL,15   NEWQ              INSERT OPERATION
     5157   01 01312    6AF0134D              BAL,15   T3QTEST           Q FULL-TEST FOR DATA VERIF.  REQ'D
     5158   01 01313    328011AA     T3EXU3   LW,8     T3DAF             REQUEST INSERTED
     5159   01 01314    498011AB              OR,8     T3FC              DUAL ACCESS FLAG, FUNCTION CODE
     5160   01 01315    49802DD6              OR,8     =X'40000000'      MERGE DEP FLAG
     5161   01 01316    3290134A              LW,9     T3EXUWB           BUFFER ALREADY AVAILABLE?
     5162   01 01317    6930131A              BNEZ     %+3               YES-BIPASS BUFFER FETCH
     5163   01 01318    6AF01A34              BAL,15   BUFRAND           FETCH A BUFFER
     5164   01 01319    6AF0135A              BAL,15   T3CHK             NO BUFFER AVAIL.-TEST FOR DATA VERIF.
     5165   01 0131A    B24E17DA              LW,4     *DCT5,7           DEVICE TYPE
     5166   01 0131B    32A81B99              LW,10    BYTNR,4           FETCH BYTE COUNT (SURFACE)
     5167   01 0131C    21800008 A            CI,8     X'08'             IS THE FC A HEADER OPER
     5168   01 0131D    6840131F              BCR,4    %+2               NO
     5169   01 0131E    22A00008 A            LI,10    8                 SET BYTE COUNT TO 8
     5170   01 0131F    311011AB              CW,1     T3FC              PATTERN REQ'D?
     5171   01 01320    68401327              BCR,4    %+7               NO
     5172   01 01321    3110134C              CW,1     T3EXUFI           PATERN TO BE SPREAD?
     5173   01 01322    69201327              BG       %+5               NO-FIXED,INCR PAT'N ALREADY SPREAD
     5174   01 01323    68301326              BE       %+3               PATTERN REQ'D
     5175   01 01324    22400000 A            LI,4     0
     5176   01 01325    3540134C              STW,4    T3EXUFI           RESET FIXED,INCR PAT'N MODE TO AVAILABLE
     5177   01 01326    6AF013F6              BAL,15   PATTERN           BUILD PATTERN
     5178   01 01327    32C019D5              LW,12    FASTCNT
     5179   01 01328    330019D8              MTW,0    FASTIOCD
     5180   01 01329    6930132D              BNEZ     %+4
     5181   01 0132A    22C00000 A            LI,12    0
     5182   01 0132B    35C019D5              STW,12   FASTCNT
     5183   01 0132C    68001331              B        T3EXU3A
     5184   01 0132D    21C00002 A            CI,12    2
     5185   01 0132E    69101331              BL       T3EXU3A
     5186   01 0132F    31C019D5              CW,12    FASTCNT
     5187   01 01330    6830132F              BE       %-1
     5188   01 01331    32C012A8     T3EXU3A  LW,12    T3RT              RETRY COUNT, MAX ALLOW. TIME OF OPER
     5189   01 01332    6AF01803              BAL,15   NEWQ              INSERT OPERATION
     5190   01 01333    6AF0134D              BAL,15   T3QTEST           Q FULL -TEST FOR DATA VERIF.REQ'D
     5191   01 01334    661011A8              AWM,1    T3CURS            INCREMENT SEEK ADDRESS
     5192   01 01335    32B011A8              LW,11    T3CURS
     5193   01 01336    31B012A4              CW,11    T3LASTS           LAST SEEK ADDRESS?
     5194   01 01337    68201306              BLE      T3EXU1            NO-LOOP
     5195   01 01338    32B012A4              LW,11    T3LASTS           FETCH LAST SEEK ADDRESS
     5196   01 01339    6AF01380              BAL,15   SEEKREQ           CONVERT TO FORMATED
     5197   01 0133A    6800133B              B        %+1
     5198   01 0133B    328011AA              LW,8     T3DAF             DUAL ACCESS FLAG
     5199   01 0133C    20800017 A            AI,8     X'17'             MERGE RELEASE ORDER              A01
     5200   01 0133D    3290134B              LW,9     T3EXURB           BUFFER ALREADY AVAILABLE?
     5201   01 0133E    69301341              BNEZ     %+3               YES-BIPASS BUFFER FETCH
     5202   01 0133F    6AF01A34              BAL,15   BUFRAND           FETCH A BUFFER
     5203   01 01340    6AF0135A              BAL,15   T3CHK             NO BUFFER AVAIL.-TEST FOR DATA VERIF
     5204   01 01341    22A00000 A            LI,10    0                 BUFFER AVAIL.-RELEASE BYTE COUNT
     5205   01 01342    32C012A8              LW,12    T3RT              RETRY COUNT,MAX ALLOW. TIME OF OPER.
     5206   01 01343    6AF01803              BAL,15   NEWQ              INSERT REQUEST
     5207   01 01344    6AF0135A              BAL,15   T3CHK             Q FULL-TEST FOR DATA VERIF.
     5208   01 01345    352012A9              STW,2    T3FINI            SET FINISH FLAG
     5209   01 01346    6AF0135A              BAL,15   T3CHK             TEST REMAINING OPERATIONS
     5210   01 01347    E8001348              B        *T3EXUX           EXIT EXECUTE ROUTINE
     5211                            *
     5212   01 01348    00000000 A   T3EXUX   DATA     0                 RETURN ADDRESS SAVE
     5213   01 01349    00000000 A   T3EXUSB  DATA     0                 FIXED,INCR PAT: SEEK BUFFER OR 0
     5214   01 0134A    00000000 A   T3EXUWB  DATA     0                                 WRITE BUFFER OR 0
     5215   01 0134B    00000000 A   T3EXURB  DATA     0                                 RELEASE BUFFER OR 0
     5216   01 0134C    00000000 A   T3EXUFI  DATA     0                 FIXED,INCR PAT'N FLAG (0=PAT AVAIL;
     5217                            *                                   1=SPREAD;2=SPREAD AND RESET FLAG)
     5218                            *
     5219                            *        *** T3QTEST ***
     5220                            *
     5221                            * THIS ROUTINE CALLS UPON THE T3CHK ROUTINE FOR Q REMOVALS AND
     5222                            * ATTEMPTS TO TIME FURTHER Q ENTRIES IN ORDER TO REDUCE THE IO INTERRUPT
     5223                            * INHIBIT INTERFERENCE.
     5224                            *
     5225                            * CALLING SEQUENCE:
     5226                            *        B        -                 RETURN
     5227                            *        BAL,15   T3QTEST           TEST Q AND INTERLOCK
     5228                            *
     5229                            * PARAMETERS:
     5230                            *        (R7)=DCT                   DCT INDEX
     5231                            *        FASTIOCD                   DIOS FAST MODE FLAG
     5232                            *
     5233                            * REGISTERS USED: R4,R6,R15
     5234                            * REGISTERS DISTURBED: R4,R6,R15
     5235                            * OTHER ROUTINES ACCESSED: T3CHK
     5236                            *
     5237         01 0134D           T3QTEST  EQU      %                 TEST Q STATUS
     5238   01 0134D    33E0000F A            MTW,-2   15                CALL-1
     5239   01 0134E    35F01359              STW,15   T3QTESTX          SAVE RETURN ADDRESS
     5240   01 0134F    68001351              B        %+2
     5241   01 01350    68001352              B        %+2
     5242   01 01351    6AF0135A              BAL,15   T3CHK             TEST FOR DATA VARIF. REQ'D
     5243   01 01352    B11E17DA              CW,1     *DCT5,7           RAD?
     5244   01 01353    E8301359              BE       *T3QTESTX         YES-EXIT
     5245   01 01354    324019D8              LW,4     FASTIOCD          IS ANOTHER OPER. AVAIL AT INTERRUPT
     5246   01 01355    E8301359              BEZ      *T3QTESTX         NO-EXIT
     5247   01 01356    314019D8              CW,4     FASTIOCD          DELAY FOR CURRENT OPERATION COMPLETION
     5248   01 01357    68301356              BE       %-1
     5249   01 01358    E8001359              B        *T3QTESTX         EXIT
     5250                            *
     5251   01 01359    00000000 A   T3QTESTX DATA     0                 RETURN ADDRESS SAVE
     5252                            *
     5253                            *        *** T3CHK SUBROUTINE ***
     5254                            *
     5255                            * THIS ROUTINE SCANS THE QUEUE FOR COMPLETED OPERATION; PERFORMS
     5256                            * DATA CHECKING; AND REMOVES THE OPERATIONS FROM THE QUEUE. THIS
     5257                            * ROUTINE IS ACCESSED ONLY DURING SEQUENTIAL SURFACE TESTING IN
     5258                            * ORDER TO VERIFY DATA OUTSIDE THE INTERRUPT HANDLER ROUTINES.
     5259                            *
     5260                            * CALLING SEQUENCE:
     5261                            *        B        -                 RETURN-SCAN COMPLETED (T3FINI RESET)
     5262                            *        BAL,15   T3CHK             SCAN THE QUEUE AND VERIFY DATA
     5263                            *        B        -                 QUEUE EMPTY AND T3FINI SET
     5264                            *
     5265                            * PARAMETERS:
     5266                            *        (R7)=DCT                   DCT INDEX
     5267                            *        T3DAF                      DUAL ACCESS FLAG (BIT0: 0=DAA,
     5268                            *                                                            1=DAB)
     5269                            *        T3FINI                     FINISH FLAG (0=SCAN QUEUE ONCE;
     5270                            *                                   1=SCAN QUEUE UNTIL EMPTY)
     5271                            *        T3MAP                      VERIFICATION FLAG (0=NO DATA VERIFY)
     5272                            *        T3CHKCIT                   CIT INDEX
     5273                            *
     5274                            * REGISTERS USED: R4-R15
     5275                            * REGISTERS DISTURBED: R4-R6
     5276                            * OTHER ROUTINES ACCESSED: CKDATAI,REPORT,RELQ
     5277                            *
     5278         01 0135A           T3CHK    EQU      %                 DATA VERIFICATION
     5279   01 0135A    35F01379              STW,15   T3CHKX            SAVE RETURN ADDRESS
     5280   01 0135B    02200050 A            LCI      5
     5281   01 0135C    2B80137A              STM,8    T3CHKS            SAVE R
     5282   01 0135D    3240137F     T3CHK0   LW,4     T3CHKCIT          FETCH CIT INDEX
     5283   01 0135E    B26817FD              LW,6     *CIT2,4           FETCH HEAD-OF-Q INDEX
     5284   01 0135F    68301367              BEZ      T3CHK3            Q EMPTY
     5285   01 01360    B2EC17EE     T3CHK1   LW,14    *IOQ3,6           FETCH OPERATION STATUS
     5286   01 01361    69101367              BLZ      T3CHK3            REQUEST BUSY
     5287   01 01362    21E00010 A            CI,14    X'10'             DATA CHECK FLAG SET?
     5288   01 01363    69401371              BCS,4    T3CHK6            YES
     5289   01 01364    6800135D              B        T3CHK0            NO (OPERATION RETRY COMPLETE) - LOOP
     5290   01 01365    B26C17ED     T3CHK2   LW,6     *IOQ2,6           FETCH NEXT Q ENTRY
     5291   01 01366    69201360              BGZ      T3CHK1            NOT LAST-LOOP
     5292   01 01367    312012A9     T3CHK3   CW,2     T3FINI            LAST OPERATION INSERTED?
     5293   01 01368    6830136D              BE       T3CHK5            YES
     5294   01 01369    33E01379     T3CHK4   MTW,-2   T3CHKX            CALL-1
     5295   01 0136A    02200050 A   T3CHK41  LCI      5
     5296   01 0136B    2A80137A              LM,8     T3CHKS            RESTORE R
     5297   01 0136C    E8001379              B        *T3CHKX           EXIT
     5298   01 0136D    3240137F     T3CHK5   LW,4     T3CHKCIT          FETCH CIT INDEX
     5299   01 0136E    B25817FD              LW,5     *CIT2,4           IS THE Q EMPTY?
     5300   01 0136F    69301369              BNEZ     T3CHK4            NO
     5301   01 01370    6800136A              B        T3CHK41           YES-EXIT
     5302   01 01371    311012A0     T3CHK6   CW,1     T3MAP             DATA VERIFICATION SPECIFIED
     5303   01 01372    68401377              BCR,4    T3CHK8            NO
     5304   01 01373    6AF014EE              BAL,15   CKDATAI           CHECK DATA
     5305   01 01374    68001377              B        T3CHK8            OK
     5306   01 01375    6AF015EF              BAL,15   REPORT            PRINT ALL ERROR MESSAGES
     5307   01 01376    F0E6E04F A            DATA     X'F0E6E04F'       REPORT MAP
     5308   01 01377    6AF01865     T3CHK8   BAL,15   RELQ              REMOVE OPERATION FROM Q
     5309   01 01378    68001365              B        T3CHK2            CONTINUE
     5310                            *
     5311   01 01379    00000000 A   T3CHKX   DATA     0                 RETURN ADDRESS SAVE
     5312   01 0137A                 T3CHKS   RES      5                 R SAVE
     5313   01 0137F    00000000 A   T3CHKCIT DATA     0                 CIT INDEX SAVE
     5314                            *
     5315                            *        *** SEEKREQ SUBROUTINE ***
     5316                            *
     5317                            * THIS ROUTINE CONVERTS THE ABSOLUTE SEEK ADDRESS INTO THE 4-BYTE
     5318                            * FORMATED SEEK ADDRESS AND  DETERMINES IF A SEEK OPERATION SHOULD BE
     5319                            * PERFORMED (I.E. THE ADDRESS IS THE START OF A CYLINDER BOUNDRY).
     5320                            *
     5321                            * CALLING SEQUENCE:
     5322                            *        BAL,15   SEEKREQ           CONVERT ABSOLUTE TO FORMATED
     5323                            *        B        -                 NO SEEK REQUIRED  RETURN
     5324                            *        B        -                 SEEK REQUIRED  RETURN
     5325                            *
     5326                            * PARAMETERS:
     5327                            *        (R7)=DCT                   DCT INDEX
     5328                            *        (R11)=SEEK                 ABSOLUTE SEEK  ADDRESS
     5329                            *
     5330                            * RETURNED PARAMETERS:
     5331                            *        (R11)=SEEK                 4-BYTE SEEK ADDRESS
     5332                            *
     5333                            * REGISTERS USED: R4,R5,R15
     5334                            * REGISTERS DISTURBED: R4,R5,R15
     5335                            * OTHER ROUTINES ACCESSED: NONE
     5336                            *
     5337         01 01380           SEEKREQ  EQU      %
     5338   01 01380    46F0000B A            XW,15    11                SAVE R15
     5339   01 01381    B24E17DA              LW,4     *DCT5,7           FETCH DEVICE TYPE
     5340   01 01382    22E00000 A            LI,14    0
     5341   01 01383    36E81BAA              DW,14    SPTNR,4           ABSOL/SECTORS PER TRACK (CYL)
     5342   01 01384    55F00005 A            STH,15   5                 SAVE CYLINDER (TRACK)
     5343   01 01385    32F0000E A            LW,15    14                REMAINDER
     5344   01 01386    22E00000 A            LI,14    0
     5345   01 01387    36E81BB2              DW,14    SPHNR,4           REMAINDER/#HEADS
     5346   01 01388    31181BA1              CW,1     DEVNR,4           RAD?
     5347   01 01389    6930138B              BNE      %+2               NO
     5348   01 0138A    46E0000F A            XW,14    15                XCHANGE HEAD/SECTOR
     5349   01 0138B    75F40005 A            STB,15   5,2               SAVE HEAD (0)
     5350   01 0138C    75E60005 A            STB,14   5,3               SAVE SECTOR
     5351   01 0138D    46F0000B A            XW,15    11                RESTORE R15
     5352   01 0138E    32B00005 A            LW,11    5                 SEEK ADDRESS TO R11
     5353   01 0138F    3300000B A            MTW,0    11                IS SEEK ADDRESS 0 ?
     5354   01 01390    E832000F A            BEZ      *15,1             YES-EXIT+1
     5355   01 01391    5302000B A            MTH,0    11,1              TEST LSH OF SEEK ADDRESS
     5356   01 01392    E832000F A            BEZ      *15,1             0-EXIT+1
     5357   01 01393    E800000F A            B        *15               EXIT
     5358                            *
     5359   01 01394    00000000 A   SEEKX    DATA     0                 RETURN ADDRESS SAVE
     5360                            *
     5361                            *        *** SEEKABS SUBROUTINE ***
     5362                            *
     5363                            * THIS ROUTINE CONVERTS THE 4-BYTE SEEK ADDRESS TO THE ABSOLUTE SEEK
     5364                            * ADDRESS.
     5365                            *
     5366                            * CALLING SEQUENCE:
     5367                            *        BAL,15   SEEKABS           CONVERT FORMATED TO ABSOLUTE
     5368                            *        B        -                 RETURN
     5369                            *
     5370                            * PARAMETERS:
     5371                            *        (R7)=DCT                   DCT INDEX
     5372                            *        (R11)=SEEK                 4-BYTE FORMATED SEEK ADDRESS
     5373                            *
     5374                            * PARAMETERS RETURNED:
     5375                            *        (R11)=SEEK                 ABSOLUTE SEEK ADDRESS
     5376                            *
     5377                            * REGISTERS USED: R4,R5,R14
     5378                            * REGISTERS DISTURBED: R4,R5,R14
     5379                            * OTHER ROUTINES ACCESSED: NONE
     5380                            *
     5381         01 01395           SEEKABS  EQU      %                 CONVERT 4-BYTE SEEK ADDR TO ABSOLUTE
     5382   01 01395    B24E17DA              LW,4     *DCT5,7           FETCH DEVICE TYPE
     5383   01 01396    5250000B A            LH,5     11                CYLINDER OR TRACK
     5384   01 01397    37581BAA              MW,5     SPTNR,4           ABSOL
     5385   01 01398    32E00005 A            LW,14    5                 SAVE
     5386   01 01399    7254000B A            LB,5     11,2              HEAD OR 0
     5387   01 0139A    37581BB2              MW,5     SPHNR,4           ABSOL
     5388   01 0139B    30E00005 A            AW,14    5                 ACCUM
     5389   01 0139C    72B6000B A            LB,11    11,3              SECTOR
     5390   01 0139D    30B0000E A            AW,11    14                ABSOLUTE
     5391   01 0139E    E800000F A            B        *15               EXIT
     5392                            *
     5393                            *        *** SEEKINC SUBROUTINE ***
     5394                            *
     5395                            * THIS ROUTINE INCREMENTS THE 4-BYTE FORMATED SEEK ADDRESS IN THE SAME
     5396                            * MANNER AS THE HARDWARE AUTOMATIC ADDRESS INCREMENTING FUNCTION.
     5397                            *
     5398                            * CALLING SEQUENCE:
     5399                            *        BAL,15   SEEKINC           INCREMENT  SEEK ADDRESS
     5400                            *        B        -                 RETURN
     5401                            *
     5402                            * PARAMETERS:
     5403                            *        (R7)=DCT                   DCT INDEX
     5404                            *        (R11)=SEEK                 4-BYTE FORMATED SEEK ADDRESS
     5405                            *
     5406                            * RETURNED PARAMETERS:
     5407                            *        (R11)=SEEK                 INCREMENTED SEEK ADDRESS
     5408                            *
     5409                            * REGISTERS USED: R4,R5,R14
     5410                            * REGISTERS DISTURBED: R4,R5,R14
     5411                            * OTHER ROUTINES ACCESSED: NONE
     5412                            *
     5413         01 0139F           SEEKINC  EQU      %                 INCREMENT SEEK ADDRESS
     5414   01 0139F    22E00000 A            LI,14    0
     5415   01 013A0    B24E17DA              LW,4     *DCT5,7           DEVICE TYPE
     5416   01 013A1    32581B81              LW,5     SECTNR,4          MAX SECTOR
     5417   01 013A2    20B00001 A            AI,11    1                 INCREMENT SECTOR
     5418   01 013A3    7156000B A            CB,5     11,3              LAST SECTOR?
     5419   01 013A4    E920000F A            BG       *15               NO-EXIT
     5420   01 013A5    75E6000B A            STB,14   11,3              SET SECTOR = 0
     5421   01 013A6    31181BA1              CW,1     DEVNR,4           RAD?
     5422   01 013A7    683013AA              BE       %+3               YES
     5423   01 013A8    7314000B A            MTB,1    11,2              DISK-INCR DISK HEAD
     5424   01 013A9    E800000F A            B        *15               EXIT
     5425   01 013AA    5310000B A            MTH,1    11                INCR TRACK
     5426   01 013AB    52B0000B A            LH,11    11
     5427   01 013AC    31B81B89              CW,11    HEADNR,4          TRACK END?
     5428   01 013AD    691013AF              BL       %+2               NO
     5429   01 013AE    22B00000 A            LI,11    0                 YES-SET ADDRESS = 0
     5430   01 013AF    25B00010 A            SLS,11   16
     5431   01 013B0    E800000F A            B        *15               EXIT
     5432                            *
     5433                            *        *** SUMMARY SUBROUTINE ***
     5434                            *
     5435                            * THIS ROUTINE PRINTS THE SUMMARY MESSAGES OF TST2 AND TST3 AND
     5436                            * MONITORS THE PASS COUNT OF TST2,TST3. MESSAGE INHIBITING,
     5437                            * MESSAGE FREQUENCY AND PASS COUNT (MAX) ARE PRE-DEFINED BY THE
     5438                            * 'LIMT' DIRECTIVE.
     5439                            *
     5440                            * CALLING SEQUENCE:
     5441                            *        BAL,15   SUMMARY           SUMMARY MSG /PASS COUNT MONITOR
     5442                            *        B        -                 ANOTHER PASS IS REQUIRED
     5443                            *        B        -                 PASSES COMPLETE
     5444                            *
     5445                            * PARAMETERS:
     5446                            *        DCT17 THRU DCT22           OPERATION/ERROR COUNTS FOR EACH
     5447                            *                                                               DEVICE
     5448                            *        T2:3                       TST2/TST3 INDICATOR (2=TST2,3=TST3)
     5449                            *        SUMINH                     PRINT SUMMARY MSG EVERY SUMINH
     5450                            *                                   PASSES (0=INHIBIT);FIXED BY LIMT
     5451                            *        SUMCNT                     NUMBER OF PASSES TO BE PERFORMEX;
     5452                            *                                   FIXED BY LIMT DIRECTIVE.
     5453                            *        SUMCURC                    CURRENT PASS NUMBER (INITIALIZED
     5454                            *                                   TO 1 BEFORE FIRST PASS PERFORMED)
     5455                            *        T3RTY                      RETRY COUNT
     5456                            *
     5457                            * REGISTERS USED: R4-R7,R14,R15
     5458                            * REGISTERS DISTURBED: R4-R7,R14,R15
     5459                            * OTHER ROUTINES ACCESSED: #MSGP
     5460                            *
     5461         01 013B1           SUMMARY  EQU      %                 SUMMARY SUBROUTINE
     5462   01 013B1    35F013EE              STW,15   SUMMARYX          SAVE RETURN ADDRESS
     5463   01 013B2    330013F3              MTW,0    SUMINH            IS THE SUMMARY MSG INHIBITED?
     5464   01 013B3    683013D1              BEZ      SUM5              YES
     5465   01 013B4    22400000 A            LI,4     0
     5466   01 013B5    325013F5              LW,5     SUMCURC           CURRENT PASS
     5467   01 013B6    364013F3              DW,4     SUMINH            DETERMINE IF SUMMARY REQ'D
     5468   01 013B7    32400004 A            LW,4     4                 IS SUMMARY REQ'D.
     5469   01 013B8    693013D1              BNEZ     SUM5              NO
     5470   01 013B9    324011A7              LW,4     T2:3              TEST TYPE
     5471   01 013BA    325813ED              LW,5     SUMSGH-2,4        FETCH AND SAVE SUMMARY
     5472   01 013BB    355013C4              STW,5    SUM1                 MESSAGE HEADER ADDRESSES
     5473   01 013BC    325813EF              LW,5     SUMSGH,4               IN MSGOUT CALLING SEQUENCE
     5474   01 013BD    355013CA              STW,5    SUM2
     5475   01 013BE    355013CD              STW,5    SUM4
     5476   01 013BF    325013F5              LW,5     SUMCURC           CURRENT PASS NUMBER
     5477   01 013C0    35500EE5              STW,5    VDEC8A            SAVE
     5478   01 013C1    724012A8              LB,4     T3RT              RETRY COUNT
     5479   01 013C2    35400EEB              STW,4    VDEC4B            SAVE
     5480   01 013C3    6AF00B7B              BAL,15   #MSGP
     5481   01 013C4    00000000 A   SUM1     DATA     0                 SUMMARY  MSG HEADERS
     5482   01 013C5    22700001 A            LI,7     1                 FETCH STARTING DCT INDEX
     5483   01 013C6    B24E17D6     SUM11    LW,4     *DCT1,7           IS THE DEVICE IN DUAL ACCESS
     5484   01 013C7    681013CB              BGEZ     SUM3              NO
     5485   01 013C8    6AF013D6              BAL,15   SUM991            FETCH PARAMETERS FOR DUAL ACCESS B
     5486   01 013C9    6AF00B7B              BAL,15   #MSGP
     5487   01 013CA    00000000 A   SUM2     DATA     0                 SUMMARY MESSAGE
     5488   01 013CB    6AF013DB     SUM3     BAL,15   SUM992            FETCH PARAMETERS FOR DUAL ACCESS A
     5489   01 013CC    6AF00B7B              BAL,15   #MSGP
     5490   01 013CD    00000000 A   SUM4     DATA     0                 SUMMARY MESSAGE
     5491   01 013CE    20700001 A            AI,7     1                 INCR DCT INDEX
     5492   01 013CF    317017D5              CW,7     DCTNUM            LAST DEVICE?
     5493   01 013D0    682013C6              BLE      SUM11             NO-LOOP
     5494   01 013D1    331013F5     SUM5     MTW,1    SUMCURC           INCR CURRENT PASS NUMBER
     5495   01 013D2    324013F5              LW,4     SUMCURC
     5496   01 013D3    314013F4              CW,4     SUMCNT            LAST PASS
     5497   01 013D4    E92213EE              BG       *SUMMARYX,1       YES-EXIT+1
     5498   01 013D5    E80013EE              B        *SUMMARYX         EXIT
     5499                            *                                   ROUTINE TO TRANSFER SUMMARY INFO.
     5500   01 013D6    B24E17D7     SUM991   LW,4     *DCT2,7           DUAL ACCESS B DEVICE ADDRESS
     5501   01 013D7    B25E17E9              LW,5     *DCT20,7          FETCH DUAL ACCESS B
     5502   01 013D8    B26E17EA              LW,6     *DCT21,7            SUMMARY PARAMETERS
     5503   01 013D9    B2EE17EB              LW,14    *DCT22,7
     5504   01 013DA    680013DF              B        SUM993            GO TO SAVE PARAMETERS
     5505   01 013DB    B24E17D6     SUM992   LW,4     *DCT1,7           FETCH DUAL ACCESS A
     5506   01 013DC    B25E17E6              LW,5     *DCT17,7            SUMMARY PARAMETERS
     5507   01 013DD    B26E17E7              LW,6     *DCT18,7
     5508   01 013DE    B2EE17E8              LW,14    *DCT19,7
     5509   01 013DF    35400EE7     SUM993   STW,4    VHEX4A            SAVE SUMMARY PARAMETERS
     5510   01 013E0    22400000 A            LI,4     0
     5511   01 013E1    55400EFD              STH,4    VDEC8E            CLEAR MSH MSG
     5512   01 013E2    55520EFD              STH,5    VDEC8E,1
     5513   01 013E3    25500070 A            SLS,5    -16
     5514   01 013E4    35500EEC              STW,5    VDEC8B
     5515   01 013E5    55400EFE              STH,4    VDEC8F
     5516   01 013E6    55620EFE              STH,6    VDEC8F,1
     5517   01 013E7    25600070 A            SLS,6    -16
     5518   01 013E8    35600EFB              STW,6    VDEC8C
     5519   01 013E9    55400EFF              STH,4    VDEC8G
     5520   01 013EA    55E20EFF              STH,14   VDEC8G,1
     5521   01 013EB    25E00070 A            SLS,14   -16
     5522   01 013EC    35E00EFC              STW,14   VDEC8D
     5523   01 013ED    E800000F A            B        *15               EXIT
     5524                            *
     5525   01 013EE    00000000 A   SUMMARYX DATA     0                 RETURN ADDRESS SAVE
     5526   01 013EF    0000405F     SUMSGH   DATA     MX200,MX300       MESSAGE ADDRESSES
            01 013F0    000040BE
     5527   01 013F1    0000408E              DATA     MX201,MX301
            01 013F2    000040E1
     5528   01 013F3    00000001 A   SUMINH   DATA     1                 SUMMARY MSG INHIBIT FLAG (0=INHIBIT)
     5529   01 013F4    00000000 A   SUMCNT   DATA     0                 PASS  COUNT
     5530   01 013F5    00000001 A   SUMCURC  DATA     1                 CURRENT PASS  COUNT
     5531                            *
     5532                            *        *** PATTERN SUBROUTINE ***
     5533                            *
     5534                            * THIS ROUTINE BUILDS THE DATA PATTERN (SURFACE OR HEADER) IN THE
     5535                            * SPECIFIED BUFFER. HEADER FLAW MARK AND/OR ALTERNATE HEADER
     5536                            * INFORMATION IS INSERTED IF FLAGGED.
     5537                            *
     5538                            * CALLING SEQUENCE:
     5539                            *        BAL,15   PATTERN           BUILD PATTERN
     5540                            *        B        -                 RETURN
     5541                            *
     5542                            * PARAMETERS:
     5543                            *        (R7)=DCT                   DCT INDEX
     5544                            *        (R8)=FC                    OPERATION'S FUNCTION CODE (ORDER)
     5545                            *        (R9)=BUFFER                BUFFER WORD ADDRESS
     5546                            *        (R10)=SIZE                 PATTERN SIZE (IN BYTES)
     5547                            *        (R11)=SEEK                 4-BYTE FORMATED SEEK ADDRESS
     5548                            *        T3FLAW                     FLAW FLAG (1=INSERT FLAW MRKR)
     5549                            *        T3ALT                      ALTERNATE FLAG (1= INSERT ALT.
     5550                            *                                   ADDRESS  FOUND IN :P2)
     5551                            *        T2:3                       TST2/TST3  FLAG  (2=TST2,3=TST3)
     5552                            *        :DATAP1                    PATTERN TYPE OF DATA DIRECTIVE
     5553                            *        :DATAP1+1                  PATTERN STARTING WORD
     5554                            *
     5555                            * REGISTERS USED:  R4,R5,R15
     5556                            * REGISTERS DISTURBED: R4,R5,R15
     5557                            * OTHER ROUTINES  ACCESSED: #PATT
     5558                            *
     5559         01 013F6           PATTERN  EQU      %                 BUILD DATA OR HEADER PATTERN
     5560   01 013F6    35F0141B              STW,15   PATX              SAVE RETURN ADDRESS
     5561   01 013F7    312011A7              CW,2     T2:3              TST2?
     5562   01 013F8    68301410              BE       PAT2              YES
     5563   01 013F9    3120141C              CW,2     PATAVAIL          IS TST3,1,5 IN PROGRESS?
     5564   01 013FA    E830000F A            BE       *15               YES-EXIT (PATTERN ALREADY BUILT)
     5565   01 013FB    21800008 A            CI,8     8                 HEADER ORDER?
     5566   01 013FC    6840140B              BCR,4    PAT1              NO
     5567   01 013FD    3240000B A            LW,4     11                SEEK ADDRESS
     5568   01 013FE    32502DD5              LW,5     =X'FFFF0000'      ALT.ADR = ALL ONES
     5569   01 013FF    25400178 A            SLD,4    -8                ADJUST
     5570   01 01400    B5400009 A            STW,4    *9                SAVE 1ST HALF OF HEADER
     5571   01 01401    330012A6              MTW,0    T3ALT             ALTERNATE TO BE INSERTED IN HEADER
     5572   01 01402    68301405              BEZ      %+3               NO
     5573   01 01403    4B502DE7              AND,5    =X'FF000000'      SECT ADR ONLY
     5574   01 01404    49500202              OR,5     :P2               INSERT ALTERNATE
     5575   01 01405    B5520009 A            STW,5    *9,1              SAVE 2ND HALF OF HEADER
     5576   01 01406    330012A5              MTW,0    T3FLAW            FLAW MARK REQ'D?
     5577   01 01407    6830140A              BEZ      %+3               NO
     5578   01 01408    224000FF A            LI,4     X'FF'             FLAW MARK
     5579   01 01409    F5400009 A            STB,4    *9                SAVE AS 1ST BYTE OF HEADER
     5580   01 0140A    E800141B              B        *PATX             EXIT
     5581   01 0140B    3130045A     PAT1     CW,3     :DATAP1           SEEK ADDRESS PATTERN?
     5582   01 0140C    6930140E              BNE      %+2               NO
     5583   01 0140D    35B01B6C              STW,11   PATID+1           SAVE SEEK ADDRESS AS FIXED PATTERN
     5584   01 0140E    31201B6B              CW,2     PATID             RANDOM PATTERN?
     5585   01 0140F    69301413              BNE      PAT3              NO
     5586   01 01410    324011AD     PAT2     LW,4     BASEED            BASE SEED
     5587   01 01411    4840000B A            EOR,4    11                SEED=(BASEED).EOR.(SEEK ADDRESS)
     5588   01 01412    35401B6C              STW,4    PATID+1           SAVE RANDOM PATTERN SEED
     5589   01 01413    22400000 A   PAT3     LI,4     0
     5590   01 01414    35401B6E              STW,4    BFRA              RESET BFRA USAGE
     5591   01 01415    3240000A A            LW,4     10                PATTERN BYTE SIZE
     5592   01 01416    2540007E A            SLS,4    -2                PATTERN WORD SIZE
     5593   01 01417    35401B6A              STW,4    WCNT              SAVE
     5594   01 01418    35901B6F              STW,9    BFRB              BUFFER ADDRESS
     5595   01 01419    6AF00B44              BAL,15   #PATT             BUILD PATTERN
     5596   01 0141A    E800141B              B        *PATX             EXIT
     5597                            *
     5598   01 0141B    00000000 A   PATX     DATA     0                 RETURN ADDRESS SAVE
     5599   01 0141C    00000000 A   PATAVAIL DATA     0                 PATTERN AVAILABLE FLAG (1=NO,2=YES)
     5600                            *
     5601                            *        *** CKSTATUS SUBROUTINE ***
     5602                            *
     5603                            * THIS ROUTINE CHECKS THE STATUS FOR AN SIO REJECTED, OPERATION TIME-
     5604                            * OUT AND OPERATION COMPLETION. IF ERRORS DETECTED, THE ROUTINE
     5605                            * DETERMINES THE RETRY OPERATION, THE EXPECTED STATUS AND MASK
     5606                            * AND THE ERROR MESSAGE LINES TO BE REPORTED.
     5607                            *
     5608                            * CALLING SEQUENCE:
     5609                            *        BAL,15   CKSTATUS          CHECK THE OPERATIONS STATUS
     5610                            *        B        -                 STATUS CORRECT
     5611                            *        B        -                 STATUS ERROR(S)
     5612                            *        B        -                 FLAW MARKER STATUS PRESENT
     5613                            *
     5614                            * PARAMETERS:
     5615                            *        (R6)=IOQ                   IOQ TABLE INDEX
     5616                            *        (R7)=DCT                   DCT INDEX
     5617                            *
     5618                            * PARAMETERS RETURNED ON STATUS ERROR EXIT:
     5619                            *        DCT14                      RETRY ORDER (FUNCTION CODE)
     5620                            *        (R14)=STATUS,MASK INDEXES  INDEXES TO EXPECTED STATUS,MASK
     5621                            *                                   TABLE 'REPMASK' OF 'REPORT' SUB-
     5622                            *                                   ROUTINE (BYTE 0=SIO; BYTE 1=TIO;
     5623                            *                                   BYTE 2=TDV; BYTE 3=AIO)
     5624                            *        (R15)=REPORT MSG MAP       BIT MAP OF ERROR MSGS TO BE
     5625                            *                                   PRINTED BY 'REPORT' SUBROUTINE
     5626                            * REGISTERS USED: R4,R5,R10-R15
     5627                            * REGISTERS DISTURBED: R4,R5,R10-R15
     5628                            * OTHER ROUTINES ACCESSED: NONE
     5629                            *
     5630         01 0141D           CKSTATUS EQU      %                 CHECK STATUS
     5631   01 0141D    35F014E9              STW,15   CKSAV             SAVE RETURN ADDRESS
     5632   01 0141E    22F00001 A            LI,15    1                 RESET REPORT MASK
     5633   01 0141F    B11C17EE              CW,1     *IOQ3,6           SIO REJECTED ?      **SIO REJECTED**
     5634   01 01420    68401429              BCR,4    CKSTAT0           NO
     5635   01 01421    22E00B00 A            LI,14    X'00000B00'       STATUS,MASK POINTERS
     5636   01 01422    32F02DE8              LW,15    =X'F47A0011'      REPORT MASK
     5637   01 01423    B25C17F1              LW,5     *IOQ6,6           FC CURRENTLY BEING EXECUTED
     5638   01 01424    B24C17F7              LW,4     *IOQ12,6          FETCH DA(IOCD)
     5639   01 01425    B54E17DE              STW,4    *DCT9,7           SET CURRENT CA = DA(IOCD)
     5640   01 01426    B24C17F3              LW,4     *IOQ8,6           DEVICE ADDRESS
     5641   01 01427    CF000004 A            HIO,0    *4                ISSUE HIO TO DEVICE
     5642   01 01428    680014E6              B        CKERR3            GO TO SPECIFY RETRY FC
     5643   01 01429    B25C17F7     CKSTAT0  LW,5     *IOQ12,6          DA(IOCD)
     5644   01 0142A    32802DE9              LW,8     =X'A0000000'      MASK
     5645   01 0142B    32400005 A   CKSTAT01 LW,4     5
     5646   01 0142C    25400001 A            SLS,4    1                 WA(IOCD)
     5647   01 0142D    B1820004 A            CW,8     *4,1              DATA OR COMMAND CHAINING?
     5648   01 0142E    68401437              BCR,4    CKSTAT03          NO
     5649   01 0142F    F2E00004 A            LB,14    *4                ORDER
     5650   01 01430    21E00014 A            CI,14    X'14'             SURFACE ORDER?
     5651   01 01431    68401435              BCR,4    CKSTAT02          NO
     5652   01 01432    B15E17DE              CW,5     *DCT9,7           CAN DATA CHECKING OCCUR FOR THIS ORDER?
     5653   01 01433    68101435              BGE      %+2               NO
     5654   01 01434    22F0000F A            LI,15    X'F'              SET REPORT MASK BITS
     5655   01 01435    20500001 A   CKSTAT02 AI,5     1                 UPDATE DA(IOCD)
     5656   01 01436    6800142B              B        CKSTAT01          LOOP
     5657   01 01437    355014EB     CKSTAT03 STW,5    CKSTATCW          SAVE EXPECTED COMMAND ADDRESS
     5658   01 01438    351014EA              STW,1    CKRTYP            RETRY TYPE 1
     5659   01 01439    B12C17EE              CW,2     *IOQ3,6           TIME-OUT?               **TIME-OUT**
     5660   01 0143A    68401444              BCR,4    CKSTAT1           NO
     5661   01 0143B    B2EC17F7              LW,14    *IOQ12,6          FETCH DA(IOCD)
     5662   01 0143C    B5EE17DE              STW,14   *DCT9,7           SET CURRENT CA = DA(IOCD)
     5663   01 0143D    32E02DEA              LW,14    =X'00050900'      STATUS POINTERS
     5664   01 0143E    32F02DEB              LW,15    =X'F266F791'      REPORT MASK
     5665   01 0143F    EB5C17EE              INT,5    *IOQ3,6           A SEEK INTERRUPT EXPECTED?
     5666   01 01440    681014C8              BCR,1    CKERR0            NO
     5667   01 01441    32E02DEC              LW,14    =X'000A0B00'      STATUS MASK POINTERS
     5668   01 01442    4BF02DED              AND,15   =X'FFFFFE7F'      REMOVE COMMAND ADDR,BYTE COUNT MSGS
     5669   01 01443    680014D6              B        CKERR1            GO TO SPECIFY RETRY FC
     5670   01 01444    351014EA     CKSTAT1  STW,1    CKRTYP            RETRY TYPE 1
     5671   01 01445    EB5C17EE              INT,5    *IOQ3,6           SEEK OR RESTORE INTERRUPT EXPECTED?
     5672   01 01446    6810145F              BCR,1    CKSTAT2           NO
     5673   01 01447    32E02DEE              LW,14    =X'000A0B03'      STATUS POINTERS
     5674   01 01448    32F02DEF              LW,15    =X'F166EE11'      REPORT MASK
     5675   01 01449    B2BE17DF              LW,11    *DCT10,7          AIO STATUS, CC1-3
     5676   01 0144A    B2CE17E1              LW,12    *DCT12,7          TDV,TIO CC1-3     **SEEK INTERRUPT**
     5677   01 0144B    31C02DF0              CW,12    =X'C0800000'      TEST TDV CC1,2, TIO CC1
     5678   01 0144C    694014D6              BCS,4    CKERR1            ERROR
     5679   01 0144D    22500009 A            LI,5     9
     5680   01 0144E    31500225              CW,5     :MACHINE          SIGMA 8/9?
     5681   01 0144F    69301454              BNE      %+5               NO
     5682   01 01450    31C02DF1              CW,12    =X'20200000'      TEST TDV,TIO CC3=0
     5683   01 01451    694014D6              BCS,4    CKERR1            ERROR
     5684   01 01452    21B02000 A            CI,11    X'00002000'       TEST AIO CC3=0
     5685   01 01453    694014D6              BCS,4    CKERR1            ERROR
     5686   01 01454    B2CE17E0              LW,12    *DCT11,7          TDV,TIO STATUS
     5687   01 01455    4BC02DF2              AND,12   =X'00007700'      MASK
     5688   01 01456    31C02DF3              CW,12    =X'00001000'      TEST TIO
     5689   01 01457    693014D6              BNE      CKERR1            ERROR
     5690   01 01458    4BB02DF4              AND,11   =X'FF3FC000'      MASK
     5691   01 01459    31B02DF5              CW,11    =X'08000000'      TEST AIO STATUS,CC1,2
     5692   01 0145A    693014D6              BNE      CKERR1            ERROR
     5693   01 0145B    B2CC17F7              LW,12    *IOQ12,6          FETCH DA(IOCD)
     5694   01 0145C    B5CE17DE              STW,12   *DCT9,7           SET CURRENT COMMAND ADDRESS = DA(IOCD)

        2*  01 0145D    4BF02DF6              AND,15   =X'FFBFFFFF'      CLEAR REPORT BIT 9              *H01
        3*  01 0145E    E80014E9              B        *CKSAV             (MEANING CHANGED)              *H01

     5696   01 0145F    351014EA     CKSTAT2  STW,1    CKRTYP            RETRY TYPE 1
     5697   01 01460    B2CE17E1              LW,12    *DCT12,7          TDV ,TIO CC1-4
     5698   01 01461    31C02DF7              CW,12    =X'C0000000'      TEST TDV CC1,2=00      **TDV CC1,2**
     5699   01 01462    694014E2              BCS,4    CKERR20           ERROR
     5700   01 01463    31C02DCF              CW,12    =X'00800000'      TEST TIO CC1=0           **TIO CC1**
     5701   01 01464    694014E2              BCS,4    CKERR20           ERROR
     5702   01 01465    22500009 A            LI,5     9
     5703   01 01466    31500225              CW,5     :MACHINE          SIGMA 8/9
     5704   01 01467    6930146D              BNE      %+6               NO
     5705   01 01468    31C02DF1              CW,12    =X'20200000'      TEST TDV,TIO CC3=0
     5706   01 01469    694014E2              BCS,4    CKERR20           ERROR
     5707   01 0146A    B2BE17DF              LW,11    *DCT10,7          FETCH AIO CC1-3
     5708   01 0146B    21B02000 A            CI,11    X'00002000'       TEST AIO CC3=0
     5709   01 0146C    694014C2              BCS,4    CKERR             ERROR
     5710   01 0146D    B2BE17E0              LW,11    *DCT11,7          TDV STATUS, TIO STATUS
     5711   01 0146E    31B02DF8              CW,11    =X'00000600'      TEST TIO 5,6=00          **TIO 5,6**
     5712   01 0146F    694014C2              BCS,4    CKERR             ERROR
     5713   01 01470    31B02DF9              CW,11    =X'00006000'      TEST FOR TIO 1,2=00      **TIO 1,2**
     5714   01 01471    68401478              BCR,4    CKSTAT3           YES
     5715   01 01472    4BB02DF9              AND,11   =X'00006000'      MASK TIO 1,2
     5716   01 01473    31B02DF9              CW,11    =X'00006000'      TEST TIO 1,2=11
     5717   01 01474    693014C2              BNE      CKERR             ERROR
     5718   01 01475    B25C17F1              LW,5     *IOQ6,6           FETCH CURRENT ORDER
     5719   01 01476    21500080 A            CI,5     X'80'             MODIFIER BIT SET?
     5720   01 01477    684014C2              BCR,4    CKERR             NO-ERROR
     5721   01 01478    32E02DFA     CKSTAT3  LW,14    =X'00070902'      STATUS POINTERS
     5722   01 01479    32F02DFB              LW,15    =X'F166EF91'      REPORT MAP
     5723   01 0147A    352014EA              STW,2    CKRTYP            RETRY TYPE 2
     5724   01 0147B    B2BE17E0              LW,11    *DCT11,7          TDV STATUS,TIO STATUS
     5725   01 0147C    31B02DFC              CW,11    =X'003C0000'      TEST TDV 10,11,12,13 =0      **IOP**
     5726   01 0147D    694014C2              BCS,4    CKERR             ERROR
     5727   01 0147E    352014EA              STW,2    CKRTYP            RETRY TYPE 2       **INVALID ORDER**
     5728   01 0147F    31B02DF5              CW,11    =X'08000000'      TEST TDV 4=0       ** ORDER PARITY**
     5729   01 01480    694014C2              BCS,4    CKERR             ERROR
     5730   01 01481    351014EA              STW,1    CKRTYP            RETRY TYPE 1
     5731   01 01482    31B02DFD              CW,11    =X'04000000'      TEST TDV 5=0   **OPERATIONAL ERROR**
     5732   01 01483    694014C2              BCS,4    CKERR             ERROR
     5733   01 01484    351014EA              STW,1    CKRTYP            RETRY TYPE 1
     5734   01 01485    31B02DE2              CW,11    =X'20000000'      TEST TDV 2=0   **PROGRAMMING ERROR**
     5735   01 01486    694014C2              BCS,4    CKERR             ERROR
     5736   01 01487    352014EA              STW,2    CKRTYP            RETRY TYPE 2
     5737   01 01488    31B02DE4              CW,11    =X'10000000'      TEST TDV 3 = 0     **WRITE PROTECT**
     5738   01 01489    694014C2              BCS,4    CKERR             ERROR
     5739   01 0148A    352014EA              STW,2    CKRTYP            RETRY TYPE 2
     5740   01 0148B    31B02DFE              CW,11    =X'01000000'      TEST TDV 7 = 0     **HEADER PARITY**
     5741   01 0148C    694014C2              BCS,4    CKERR             ERROR
     5742   01 0148D    31B02DFF              CW,11    =X'02000000'      TEST TDV 6 = 0      **VERIFICATION**
     5743   01 0148E    694014E2              BCS,4    CKERR20           ERROR
     5744   01 0148F    352014EA              STW,2    CKRTYP            RETRY TYPE 2
     5745   01 01490    31B02DD6              CW,11    =X'40000000'      TEST TDV 1 = 0              **FLAW**
     5746   01 01491    694014AA              BCS,4    CKSTAT8           FLAW BYTE
     5747   01 01492    31B02E00     CKSTAT4  CW,11    =X'00400000'      TEST TDV 9 = 0       **TRANS. DATA**
     5748   01 01493    694014C2              BCS,4    CKERR             ERROR
     5749   01 01494    31B02DD4              CW,11    =X'80000000'      TEST TDV 0 =0         **UNASSIGNED**
     5750   01 01495    694014C2              BCS,4    CKERR             ERROR
     5751   01 01496    351014EA              STW,1    CKRTYP            RETRY TYPE 1
     5752   01 01497    31B02E01              CW,11    =X'00000800'      TEST TIO 4 = 0       **UNUSUAL END**
     5753   01 01498    694014C2              BCS,4    CKERR             ERROR
     5754   01 01499    31B02E02              CW,11    =X'00000183'      TEST TIO  7,8,14,15          **TIO**
     5755   01 0149A    694014C2              BCS,4    CKERR             ERROR
     5756   01 0149B    31B02DF3              CW,11    =X'00001000'      TEST TIO 3 =1          **AUTOMATIC**
     5757   01 0149C    684014C2              BCR,4    CKERR             ERROR
     5758   01 0149D    352014EA              STW,2    CKRTYP            RETRY TYPE 2
     5759   01 0149E    B2AE17DF              LW,10    *DCT10,7          FETCH AIO STATUS,CC
     5760   01 0149F    4BA02E03              AND,10   =X'FFFFC000'      MASK AIO STATUS, CC1-2
     5761   01 014A0    32402E04              LW,4     =X'00100000'      EXPECTED CE INTERRUPT STATUS
     5762   01 014A1    3140000A A            CW,4     10                TEST AIO 0-15                **AIO**
     5763   01 014A2    693014C2              BNE      CKERR             ERROR
     5764   01 014A3    5302000C A            MTH,0    12,1              TEST BYTE COUNT =0    **BYTE COUNT**
     5765   01 014A4    693014C2              BNEZ     CKERR             ERROR
     5766   01 014A5    325014EB     CKSTAT6  LW,5     CKSTATCW          FETCH EXP COMMAND ADDRESS
     5767   01 014A6    B15E17DE              CW,5     *DCT9,7           TEST COMMAND ADDRESS
     5768   01 014A7    693014C2              BNE      CKERR             ERROR            **COMMAND ADDRESS**

        2*  01 014A8    4BF02DF6              AND,15   =X'FFBFFFFF'      CLEAR REPORT BIT 9              *H01
        3*  01 014A9    E80014E9              B        *CKSAV             (MEANING CHANGED)              *H01

     5770                            *                                   ***FLAW MARKER DETECTED
     5771   01 014AA    B25E17DE     CKSTAT8  LW,5     *DCT9,7           FETCH CURRENT COMMAND ADDRESS
     5772   01 014AB    25500001 A            SLS,5    1
     5773   01 014AC    F2400005 A            LB,4     *5                FETCH ORDER
     5774   01 014AD    2140000A A            CI,4     X'0A'             A HEADER READ?
     5775   01 014AE    68301492              BE       CKSTAT4           YES-CONTINUE NORMAL STATUS CHECKING
     5776   01 014AF    25400277 A            SCS,4    -9
     5777   01 014B0    C8400005 A            EOR,4    *5
     5778   01 014B1    31402DFE              CW,4     =X'01000000'      IS A FLAW MARKER POSSIBLE
     5779   01 014B2    684014C2              BCR,4    CKERR             NO-ERROR
     5780   01 014B3    32E02E05              LW,14    =X'00060804'      STATUS POINTERS
     5781   01 014B4    49F02E06              OR,15    =X'F166EF90'      REPORT MASK
     5782   01 014B5    B2AE17DF              LW,10    *DCT10,7          AIO STATUS, CC
     5783   01 014B6    B2BE17E0              LW,11    *DCT11,7          TDV,TIO STATUS
     5784   01 014B7    B2CE17E1              LW,12    *DCT12,7          TDV,TIO CC AND BYTE COUNT
     5785   01 014B8    4BA02E07              AND,10   =X'FFEFC000'      MASK AIO STATUS, CC1-2
     5786   01 014B9    31A02E08              CW,10    =X'00084000'      CORRECT
     5787   01 014BA    693014C8              BNE      CKERR0            NO
     5788   01 014BB    4BB02E09              AND,11   =X'FFFF7FFF'      MASK TDV,TIO STATUS
     5789   01 014BC    31B02E0A              CW,11    =X'40001800'      TEST TDV, TIO STATUS
     5790   01 014BD    693014C8              BNE      CKERR0            ERROR
     5791   01 014BE    31C02DF0              CW,12    =X'C0800000'      TEST TDV CC1-2, TIO CC1
     5792   01 014BF    694014C8              BCS,4    CKERR0            ERROR

        2*  01 014C0    4BF02DF6              AND,15   =X'FFBFFFFF'      CLEAR REPORT BIT 9              *H01
        3*  01 014C1    E80414E9              B        *CKSAV,2           (MEANING CHANGED)              *H01

     5794   01 014C2    32E02DFA     CKERR    LW,14    =X'00070902'      STATUS POINTERS
     5795   01 014C3    49F02E06              OR,15    =X'F166EF90'      REPORT MASK
     5796   01 014C4    B24C17F1              LW,4     *IOQ6,6           FETCH CURRENT ORDER
     5797   01 014C5    21400080 A            CI,4     X'80'             MODIFIER BIT SET?
     5798   01 014C6    684014C8              BCR,4    %+2               NO
     5799   01 014C7    32E02E0B              LW,14    =X'00050902'      STATUS POINTERS
     5800   01 014C8    B25E17DE     CKERR0   LW,5     *DCT9,7           TIO CURRENT COMMAND ADDRESS
     5801   01 014C9    25500001 A            SLS,5    1                 CURRENT WA(IOCD)
     5802   01 014CA    B2400005 A            LW,4     *5
     5803   01 014CB    2540007F A            SLS,4    -1
     5804   01 014CC    C8400005 A            EOR,4    *5                FORM (ORDER BIT 6).EOR.(ORDER BIT 7)
     5805   01 014CD    F2500005 A            LB,5     *5                ORDER
     5806   01 014CE    313014EA              CW,3     CKRTYP            RETRY TYPE 3?
     5807   01 014CF    683014E6              BE       CKERR3            YES
     5808   01 014D0    311014EA              CW,1     CKRTYP            RETRY TYPE 1?
     5809   01 014D1    693014DC              BNE      CKERR2            NO
     5810   01 014D2    71100004 A            CB,1     4                 SURFACE OR HEADER ORDER?
     5811   01 014D3    694014E5              BCS,4    CKERR21           YES-GO TO SPECIFY SEEK AS RETRY
     5812   01 014D4    21500024 A            CI,5     X'24'             SEEK ORDER?
     5813   01 014D5    694014E6              BCS,4    CKERR3            NO-GO TO SPECIFY SAME ORDER AS RETRY
     5814   01 014D6    22500003 A   CKERR1   LI,5     X'03'             SEEK ORDER
     5815   01 014D7    B24E17DA              LW,4     *DCT5,7           DEVICE TYPE
     5816   01 014D8    31181BA1              CW,1     DEVNR,4           RAD?
     5817   01 014D9    683014E6              BE       CKERR3            YES
     5818   01 014DA    225000B3 A            LI,5     X'B3'             RESTORE ORDER
     5819   01 014DB    680014E6              B        CKERR3            GO TO SPECIFY
     5820   01 014DC    71100004 A   CKERR2   CB,1     4                 SURFACE OR HEADER ORDER?
     5821   01 014DD    694014E5              BCS,4    CKERR21           YES-GO TO SPECIFY SEEK AS RETRY
     5822   01 014DE    21500024 A            CI,5     X'24'             SEEK ORDER?
     5823   01 014DF    694014E6              BCS,4    CKERR3            NO-GO TO SPECIFY SAME ORDER AS RETRY
     5824   01 014E0    22500003 A            LI,5     X'03'             SEEK ORDER
     5825   01 014E1    680014E6              B        CKERR3            GO TO SPECIFY
     5826   01 014E2    32E02E0B     CKERR20  LW,14    =X'00050902'      STATUS POINTERS
     5827   01 014E3    49F02E06              OR,15    =X'F166EF90'      REPORT MASK
     5828   01 014E4    680014D6              B        CKERR1            CONTINUE
     5829   01 014E5    22500003 A   CKERR21  LI,5     X'03'             SEEK ORDER
     5830   01 014E6    B55E17E3     CKERR3   STW,5    *DCT14,7          SAVE RETRY ORDER

        2*  01 014E7    4BF02DF6              AND,15   =X'FFBFFFFF'      CLEAR REPORT BIT 9              *H01
        3*  01 014E8    E80214E9              B        *CKSAV,1           (MEANING CHANGED)              *H01

     5833   01 014E9    00000000 A   CKSAV    DATA     0                 RETURN ADDRESS SAVE
     5834   01 014EA    00000000 A   CKRTYP   DATA     0                 RETRY TYPE
     5835   01 014EB    00000000 A   CKSTATCW DATA     0                 EXPECTED CURRENT COMMAND ADDRESS
     5836                            *
     5837                            *        *** CKDATA SUBROUTINE ***
     5838                            *
     5839                            * THIS ROUTINE CHECKS THE DATA FOR SURFACE,HEADER AND SENSE OPERA-
     5840                            * TIONS. COMPARE ERROR MESSAGES ARE PRINTED OR INHIBITED ACCORDING
     5841                            * TO THE ENTRY POINT. DATA CHECKING OF CHAINED OPERATIONS ARE
     5842                            * INCLUDED. DATA ERRORS ARE LOGGED IN DCT TABLE.
     5843                            *
     5844                            * CALLING SEQUENCE:
     5845                            *        BAL,15   CKDATAI           CHECK DATA (INHIBIT ERROR MSGS)
     5846                            *    OR  BAL,15   CKDATA            CHECK DATA AND PRINT ERROR MSGS
     5847                            *        B        -                 NO DATA ERRORS
     5848                            *        B        -                 DATA ERRORS DETECTED
     5849                            *
     5850                            * PARAMETERS:
     5851                            *        (R6)=IOQ                   IOQ TABLE INDEX
     5852                            *        (R7)=DCT                   DCT INDEX
     5853                            *        (R15)=PARTIAL REPORT       PARTIAL REPORT MSG MAP:
     5854                            *              MSG MAP              BIT 26=1-SENSE DATA IN ERROR
     5855                            *                                   BIT 27=1-SENSE DATA NOT PRESENT
     5856                            *
     5857                            * REGISTERS USED: R4,R5,R8-R15
     5858                            * REGISTERS DISTURBED: R4,R5,R8-R14
     5859                            * OTHER ROUTINES ACCESSED: #MSGP, T1ECP1,T1ECP,#COMP,LOGDER,
     5860                            *                           T1XSN1,T1ESN4, SEEKINC
     5861                            *
     5862         01 014EC           CKDATA   EQU      %                 COMPARE AND PRINT
     5863   01 014EC    22400000 A            LI,4     0                 RESET  FLAG
     5864   01 014ED    680014EF              B        %+2
     5865         01 014EE           CKDATAI  EQU      %                 COMPARE AND INHIBIT PRINT
     5866   01 014EE    22400001 A            LI,4     1                 SET FLAG
     5867   01 014EF    35400AC0              STW,4    COMPF             ESTABLISH COMPARE DATA FLAG
     5868   01 014F0    35F0157E              STW,15   CKDATX            SAVE RETURN ADDRESS
     5869   01 014F1    311012A0              CW,1     T3MAP             IS      VERIFICATION REQ'D?
     5870   01 014F2    E840157E              BCR,4    *CKDATX           NO-EXIT
     5871   01 014F3    02200030 A            LCI      3
     5872   01 014F4    2A801B6A              LM,8     WCNT              SAVE PATTERN PARAMETERS
     5873   01 014F5    2B801584              STM,8    CKDATPS
     5874   01 014F6    2A801B6D              LM,8     WCNT+3
     5875   01 014F7    2B801587              STM,8    CKDATPS+3
     5876   01 014F8    35101580              STW,1    CKDATE            RESET ERROR FLAG
     5877   01 014F9    22F00010 A            LI,15    X'10'             SET REPORT MAP BIT 27:SENSE  W ISSUE
     5878   01 014FA    35F0157F              STW,15   CKDATM            SAVE
     5879   01 014FB    B2BC17FA              LW,11    *IOQ15,6          SEEK ADDRESS
     5880   01 014FC    B2CC17F7              LW,12    *IOQ12,6          DA(IOCD)
     5881   01 014FD    35C01581              STW,12   CKIOCD            SAVE DA(IOCD)
     5882   01 014FE    32C01581     CKDAT1   LW,12    CKIOCD            DA(IOCD)
     5883   01 014FF    25C00001 A            SLS,12   1                 WA(IOCD)
     5884   01 01500    F280000C A            LB,8     *12               ORDER
     5885   01 01501    B290000C A            LW,9     *12               ORDER,BA(BUFFER)
     5886   01 01502    4B902DD8              AND,9    =X'00FFFFFF'      MASK BA(BUFFER)
     5887   01 01503    2590007E A            SLS,9    -2                WA(BUFFER)
     5888   01 01504    22400000 A            LI,4     0
     5889   01 01505    35401B6E              STW,4    BFRA              RESET BFRA USAGE
     5890   01 01506    35901B6F              STW,9    BFRB              BUFFER ADDRESS SAVE
     5891   01 01507    21800001 A            CI,8     X'01'             WRITE ORDER?
     5892   01 01508    6830156B              BE       CKDAT9            YES-GO TO INCREMENT SEEK ADDRESS
     5893   01 01509    21800002 A            CI,8     X'02'             READ II ORDER?
     5894   01 0150A    6830152B              BE       CKDAT2            YES
     5895   01 0150B    21800012 A            CI,8     X'12'             READ I ORDER?
     5896   01 0150C    6830152B              BE       CKDAT2            YES
     5897   01 0150D    21800004 A            CI,8     X'04'             SENSE ORDER
     5898   01 0150E    68301551              BE       CKDAT5            YES
     5899   01 0150F    2180000A A            CI,8     X'0A'             HEADER READ ORDER?
     5900   01 01510    68301521              BE       CKDAT11           YES
     5901   01 01511    21800005 A            CI,8     X'05'             CHECKWRITE ORDER?
     5902   01 01512    6930156C              BNE      CKDAT10           NO
     5903   01 01513    33000AC0              MTW,0    COMPF             ERROR PRINTOUT PERMITTED?
     5904   01 01514    6930156B              BNEZ     CKDAT9            NO-GO TO UPDATE SEEK ADDRESS
     5905   01 01515    6AF00B7B              BAL,15   #MSGP
     5906   01 01516    00004171              DATA     MX324             CHECK WRITE OF DATA ...
     5907   01 01517    22400000 A            LI,4     0
     5908   01 01518    35400AC1              STW,4    COMPE             RESET COMPARE ROUTINE ERROR FLAG
     5909   01 01519    6AA00997              BAL,10   T1ECP1            FINISH MSG HEADER
     5910   01 0151A    31201B6B              CW,2     PATID             RAMDOM PATTERN?
     5911   01 0151B    6930156B              BNE      CKDAT9            NO-GO TO UPDATE SEEK ADDRESS
     5912   01 0151C    324011AD              LW,4     BASEED            SEED
     5913   01 0151D    35400EE9              STW,4    VHEX8A            SAVE
     5914   01 0151E    6AF00B7B              BAL,15   #MSGP
     5915   01 0151F    0000411B              DATA     MX314             RANDOM PATTERN SEED ...
     5916   01 01520    6800156B              B        CKDAT9            GO TO UPDATE SEEK ADDRESS
     5917   01 01521    3240000B A   CKDAT11  LW,4     11                SEEK ADDRESS
     5918   01 01522    B2521B6F              LW,5     *BFRB,1           FETCH OBS SECTOR,ALT CYL/HEAD
     5919   01 01523    25500008 A            SLS,5    8                 REMOVE OBS SECTOR
     5920   01 01524    25400178 A            SLD,4    -8                FORM 8-BYTE EXP HDR
     5921   01 01525    35401582              STW,4    CKDATHDR          SAVE
     5922   01 01526    35501583              STW,5    CKDATHDR+1
     5923   01 01527    22401582              LI,4     CKDATHDR          EXP BUFFER ADDRESS
     5924   01 01528    35401B6E              STW,4    BFRA              SPECIFY BUFFER ADDRESS
     5925   01 01529    35201B6A              STW,2    WCNT              WORD COUNT = 2 (8 BYTES)
     5926   01 0152A    68001537              B        CKDAT22           GO TO COMPARE
     5927   01 0152B    3130045A     CKDAT2   CW,3     :DATAP1           SEEK ADDRESS PATTERN?
     5928   01 0152C    6930152E              BNE      %+2               NO
     5929   01 0152D    35B01B6C              STW,11   PATID+1           SAVE SEEK ADDRESS AS FIXED PATTERN
     5930   01 0152E    31201B6B              CW,2     PATID             RANDOM PATTERN?
     5931   01 0152F    69301533              BNE      %+4               NO
     5932   01 01530    324011AD     CKDAT21  LW,4     BASEED            BASE SEED
     5933   01 01531    4840000B A            EOR,4    11                SEED=(BASE SEED).EOR.(SEEK ADDRESS)
     5934   01 01532    35401B6C              STW,4    PATID+1           SAVE AS RANDOM PATTERN SEED
     5935   01 01533    B24E17DA              LW,4     *DCT5,7           DEVICE TYPE
     5936   01 01534    32481B99              LW,4     BYTNR,4           PATTERN BYTE SIZE
     5937   01 01535    2540007E A            SLS,4    -2                PATTERN WORD SIZE
     5938   01 01536    35401B6A              STW,4    WCNT              SAVE
     5939   01 01537    33000AC0     CKDAT22  MTW,0    COMPF             PRINTOUT INHIBITED?
     5940   01 01538    69301542              BNEZ     CKDAT3            YES-BIPASS COMPARE MSG HDR
     5941   01 01539    22400000 A            LI,4     0
     5942   01 0153A    35400AC1              STW,4    COMPE             RESET COMPARE ROUTINE ERROR FLAG
     5943   01 0153B    6AA0098C              BAL,10   T1ECP             PRINT COMPARE MSG HDR
     5944   01 0153C    31201B6B              CW,2     PATID             RANDOM PATTERN?
     5945   01 0153D    69301542              BNE      CKDAT3            NO-BIPASS SEED MSG
     5946   01 0153E    324011AD              LW,4     BASEED            BASE SEED
     5947   01 0153F    35400EE9              STW,4    VHEX8A            SAVE
     5948   01 01540    6AF00B7B              BAL,15   #MSGP
     5949   01 01541    0000411B              DATA     MX314             RANDOM PATTERN SEED ...
     5950   01 01542    6AF00AC7     CKDAT3   BAL,15   #COMP             COMPARE EXP,OBS DATA
     5951   01 01543    6800156B              B        CKDAT9            EQUAL-GO TO UPDATE SEEK ADDRESS
     5952   01 01544    35201580              STW,2    CKDATE            SET ERROR FLAG
     5953   01 01545    6AF015B1              BAL,15   LOGDER            LOG DATA ERROR
     5954   01 01546    33000AC1              MTW,0    COMPE             PATTERN SEED (1ST WORD) ERROR?
     5955   01 01547    6810156B              BGEZ     CKDAT9            NO-GO TO UPDATE SEEK ADDRESS
     5956   01 01548    33000AC0              MTW,0    COMPF             PRINTOUT INHIBITED?
     5957   01 01549    6930156B              BNEZ     CKDAT9            YES-BIPASS SEEK ADDRESS MSG
     5958   01 0154A    35B00EE9              STW,11   VHEX8A            SAVE EXP SEEK ADDRESS
     5959   01 0154B    B2400009 A            LW,4     *9                FETCH 1ST WORD OF OBS PATTERN
     5960   01 0154C    484011AD              EOR,4    BASEED            FORM OBS SEEK ADDRESS
     5961   01 0154D    35400EF0              STW,4    VHEX8B            SAVE
     5962   01 0154E    6AF00B7B              BAL,15   #MSGP
     5963   01 0154F    00004120              DATA     MX315             PATTERN SEEK ADDRESS EXP ...
     5964   01 01550    6800156B              B        CKDAT9            GO TO UPDATE SEEK ADDRESS
     5965   01 01551    35B016BC     CKDAT5   STW,11   SENSEXP           SAVE SEEK ADDRESS AS EXP SENSE
     5966   01 01552    B24E17DA              LW,4     *DCT5,7           DEVICE TYPE
     5967   01 01553    25400004 A            SLS,4    4                 ADJUST DEVICE TYPE TO BITS 1-3
     5968   01 01554    22500005 A            LI,5     5                 BYTE INDEX
     5969   01 01555    F25A0009 A            LB,5     *9,5              GET OBSERVED SENSE BYTE 5
     5970   01 01556    4B502E0C              AND,5    =X'00000080'      RELEASE MODE ONLY
     5971   01 01557    49400005 A            OR,4     5                 NEW EXPECTED DATA
     5972   01 01558    754216BD              STB,4    SENSEXP+1,1       SAVE IN BYTE 5
     5973   01 01559    22400003 A            LI,4     3                 INDEX
     5974   01 0155A    B2580009 A   CKDAT6   LW,5     *9,4              MOVE EXP,OBS,MASK DATA
     5975   01 0155B    35581B5A              STW,5    SENOBS,4
     5976   01 0155C    325816BC              LW,5     SENSEXP,4
     5977   01 0155D    35581B56              STW,5    SENEXP,4
     5978   01 0155E    325816B8              LW,5     SENSEM,4
     5979   01 0155F    35581B52              STW,5    SENMAS,4
     5980   01 01560    33F00004 A            MTW,-1   4
     5981   01 01561    6810155A              BGEZ     CKDAT6            LOOP TIL MOVE COMPLETE
     5982   01 01562    6AA00903              BAL,10   T1XSN1            TEST SENSE DATA
     5983   01 01563    6800156C              B        CKDAT10           CORRECT
     5984   01 01564    35201580              STW,2    CKDATE            SET ERROR FLAG
     5985   01 01565    6AF015B1              BAL,15   LOGDER            LOG DATA ERROR
     5986   01 01566    22400020 A            LI,4     X'20'             SET REPORT MAP BIT 26 (SENSE AVAIL.)
     5987   01 01567    3540157F              STW,4    CKDATM            SAVE BIT
     5988   01 01568    33000AC0              MTW,0    COMPF             IS PRINTOUT INHIBITED?
     5989   01 01569    6930156C              BNEZ     CKDAT10           YES
     5990   01 0156A    6AA0091B              BAL,10   T1ESN4            PRINT EXP,OBS  SENSE DATA
     5991   01 0156B    6AF0139F     CKDAT9   BAL,15   SEEKINC           INCREMENT SEEK ADDRESS
     5992   01 0156C    32501581     CKDAT10  LW,5     CKIOCD            DA(IOCD)
     5993   01 0156D    25500001 A            SLS,5    1                 WA(IOCD)
     5994   01 0156E    B2420005 A            LW,4     *5,1              LSH CURRENT IOCD
     5995   01 0156F    31402DE9              CW,4     =X'A0000000'      A CHAINING FLAG SET??
     5996   01 01570    68401575              BCR,4    CKDAT13           NO
     5997   01 01571    66101581              AWM,1    CKIOCD            UPDATE CURRENT DA(IOCD)
     5998   01 01572    32C01581              LW,12    CKIOCD            FETCH DA(IOCD)
     5999   01 01573    B1CE17DE              CW,12    *DCT9,7           THIS IOCD > CURRENT COMMAND ADDR?
     6000   01 01574    682014FE              BLE      CKDAT1            NO-LOOP TO EXAMINE THE IOCD FOR
     6001   01 01575    02200030 A   CKDAT13  LCI      3                                      DATA COMPARISON
     6002   01 01576    2A801584              LM,8     CKDATPS           RESTORE PATTERN PARAMETERS
     6003   01 01577    2B801B6A              STM,8    WCNT
     6004   01 01578    2A801587              LM,8     CKDATPS+3
     6005   01 01579    2B801B6D              STM,8    WCNT+3
     6006   01 0157A    32F0157F     CKDAT12  LW,15    CKDATM            FETCH GENERATED REPORT MAP
     6007   01 0157B    31201580              CW,2     CKDATE            HAS A DATA ERROR BEEN DETECTED?
     6008   01 0157C    E832157E              BE       *CKDATX,1         YES-EXIT+1
     6009   01 0157D    E800157E              B        *CKDATX           NO-EXIT
     6010                            *
     6011   01 0157E    00000000 A   CKDATX   DATA     0                 RETURN ADDRESS SAVE
     6012   01 0157F    00000000 A   CKDATM   DATA     0                 REPORT MAP
     6013   01 01580    00000000 A   CKDATE   DATA     0                 ERROR FLAG (1=NO,2=YES)
     6014   01 01581    00000000 A   CKIOCD   DATA     0                 DA(IOCD) TEMP SAVE
     6015   01 01582    00000000 A   CKDATHDR DATA     0,0               EXPECTED DISK HEADER BUFFER
            01 01583    00000000 A
     6016   01 01584                 CKDATPS  RES      6                 PATTERN PARAMETER SAVE
     6017                            *
     6018                            *        *** LOG SUBROUTINE ***
     6019                            *
     6020                            * THIS ROUTINE UPDATES THE OPERATION AND ERROR SUMMARY COUNTS
     6021                            * IN THE DCT TABLE.
     6022                            *
     6023                            * CALLING SEQUENCE:
     6024                            *        BAL,15   LOGOP             LOG TST2 OPERATION
     6025                            *    OR  BAL,15   LOGSER            LOG TST3 STATUS ERROR OR TST2
     6026                            *                                   OPERATION COUNT AND STATUS ERROR
     6027                            *    OR  BAL,15   LOGDER            LOG TST2/TST3 DATA ERROR
     6028                            *        B        -                 RETURN
     6029                            *
     6030                            * PARAMETERS:
     6031                            *        (R6)=IOQ                   IOQ TABLE INDEX
     6032                            *        (R7)=DCT                   DCT INDEX
     6033                            *
     6034                            * REGISTERS USED: R4,R5,R10-R15
     6035                            * REGISTERS DISTURBED: R4,R5,R13-R15
     6036                            * OTHER ROUTINES ACCESSED: NONE
     6037                            *
     6038         01 0158A           LOGOP    EQU      %                 LOG TST2 OPERATIONS
     6039   01 0158A    351015E7              STW,1    LOGERF            RESET ERROR FLAG
     6040   01 0158B    312011A7              CW,2     T2:3              TST2 IN PROGRESS?
     6041   01 0158C    E930000F A            BNE      *15               NO-EXIT
     6042   01 0158D    02200070 A   LOGOP00  LCI      7
     6043   01 0158E    2B6015E8              STM,6    LOGOPS            SAVE R6-R12
     6044   01 0158F    B24C17F7              LW,4     *IOQ12,6          DA(IOCD)
     6045   01 01590    32500004 A   LOGOP0   LW,5     4
     6046   01 01591    B15E17DE              CW,5     *DCT9,7           COMPARE TO CURRENT COMMAND ADDRESS
     6047   01 01592    692015E4              BG       LOGEX             EXIT-THIS OPERATION NOT PERFORMED
     6048   01 01593    25500001 A            SLS,5    1                 WA(IOCD)
     6049   01 01594    22C00001 A            LI,12    1                 INCREMENT
     6050   01 01595    B2E00005 A            LW,14    *5                ORDER BYTE
     6051   01 01596    25E0007F A            SLS,14   -1                FORM (ORDER BIT 6).EOR.(ORDER BIT 7)
     6052   01 01597    C8E00005 A            EOR,14   *5
     6053   01 01598    7110000E A            CB,1     14                SURFACE OR HDR ORDER?
     6054   01 01599    6940159E              BCS,4    LOGOP2            YES
     6055   01 0159A    F2E00005 A            LB,14    *5                ORDER
     6056   01 0159B    21E00030 A            CI,14    X'30'             SEEK OR SENSE ORDER?
     6057   01 0159C    694015AC              BCS,4    LOGOP3            NO-BIPASS TALLYING
     6058   01 0159D    25C00010 A   LOGOP1   SLS,12   16                ADJUST TALLY
     6059   01 0159E    22E00008 A   LOGOP2   LI,14    X'08'             BIT 28
     6060   01 0159F    22B00000 A            LI,11    0                 TALLY
     6061   01 015A0    312015E7              CW,2     LOGERF            ERROR TO BE LOGGED?
     6062   01 015A1    693015A5              BNE      %+4               NO
     6063   01 015A2    B14E17DE              CW,4     *DCT9,7           THIS IOCD IN ERROR?
     6064   01 015A3    693015A5              BNE      %+2               NO
     6065   01 015A4    32B0000C A            LW,11    12                FETCH INCREMENT
     6066   01 015A5    B1EC17EE              CW,14    *IOQ3,6           DUAL ACCESS B USED?
     6067   01 015A6    694015AA              BCS,4    %+4               YES
     6068   01 015A7    E6CE17E6              AWM,12   *DCT17,7          UPDATE DUAL ACCESS A SUMMARY
     6069   01 015A8    E6BE17E7              AWM,11   *DCT18,7
     6070   01 015A9    680015AC              B        %+3               CONTINUE
     6071   01 015AA    E6CE17E9              AWM,12   *DCT20,7          UPDATE DUAL ACCESS B SUMMARY
     6072   01 015AB    E6BE17EA              AWM,11   *DCT21,7
     6073   01 015AC    B2E20005 A   LOGOP3   LW,14    *5,1              FETCH LSH IOCD
     6074   01 015AD    31E02DE9              CW,14    =X'A0000000'      A CHAINING FLAG SET?
     6075   01 015AE    E840000F A            BCR,4    *15               NO-EXIT
     6076   01 015AF    20400001 A            AI,4     1                 YES-UPDATE DA(IOCD)
     6077   01 015B0    68001590              B        LOGOP0            LOOP
     6078                            *
     6079         01 015B1           LOGDER   EQU      %                 LOG DATA ERROR
     6080   01 015B1    33000AC0              MTW,0    COMPF             REPORTING PASS?
     6081   01 015B2    E830000F A            BEZ      *15               YES-EXIT
     6082   01 015B3    02200070 A            LCI      7
     6083   01 015B4    2B6015E8              STM,6    LOGOPS            SAVE R6-R12
     6084   01 015B5    32E00008 A            LW,14    8                 MOVE ORDER
     6085   01 015B6    22A00000 A            LI,10    0                 CLEAR TALLIES
     6086   01 015B7    22B00001 A            LI,11    1                 INCREMENT
     6087   01 015B8    22C00000 A            LI,12    0
     6088   01 015B9    21E00004 A            CI,14    X'04'             SENSE ORDER?
     6089   01 015BA    693015BC              BNE      %+2               NO
     6090   01 015BB    22B10000 A            LI,11    X'10000'          ADJUST INCREMENT
     6091   01 015BC    312011A7              CW,2     T2:3              TST2 IN PROGRESS?
     6092   01 015BD    683015BF              BE       %+2               YES
     6093   01 015BE    46A0000B A            XW,10    11                XCHANGE INCREMENT FOR TST3 LOGGING
     6094   01 015BF    680015DA              B        LOGER3            GO TO LOG
     6095                            *
     6096         01 015C0           LOGSER   EQU      %                 LOG TST2,TST3 STATUS ERRORS
     6097   01 015C0    352015E7              STW,2    LOGERF            SET ERROR FLAG
     6098   01 015C1    312011A7              CW,2     T2:3              IS TST2 IN PROGRESS?
     6099   01 015C2    6830158D              BE       LOGOP00           YES-GO TO LOG OPS, STATUS ERRORS
     6100   01 015C3    02200070 A            LCI      7
     6101   01 015C4    2B6015E8              STM,6    LOGOPS            SAVE R6-R12
     6102   01 015C5    B24C17F7              LW,4     *IOQ12,6          DA(IOCD)
     6103   01 015C6    25400001 A            SLS,4    1                 WA(IOCD)
     6104   01 015C7    F2E00004 A            LB,14    *4                ORDER BYTE
     6105   01 015C8    22A00000 A   LOGER0   LI,10    0                 CLEAR TALLIES
     6106   01 015C9    22B00000 A            LI,11    0
     6107   01 015CA    22C00000 A            LI,12    0
     6108   01 015CB    21E00001 A            CI,14    1                 READ OR HDR READ ORDER?
     6109   01 015CC    694015CF              BCS,4    %+3               NO
     6110   01 015CD    22A10000 A            LI,10    X'10000'          INCREMENT
     6111   01 015CE    680015D6              B        LOGER1
     6112   01 015CF    21E00004 A            CI,14    4                 CHECKWRITE ORDER?
     6113   01 015D0    684015D3              BCR,4    %+3               NO
     6114   01 015D1    22C10000 A            LI,12    X'10000'          INCREMENT
     6115   01 015D2    680015D6              B        LOGER1
     6116   01 015D3    21E00002 A            CI,14    2                 WRITE OR HDR WRITE?
     6117   01 015D4    694015E4              BCS,4    LOGEX             NO-EXIT
     6118   01 015D5    22B10000 A            LI,11    X'10000'          INCREMENT
     6119   01 015D6    B30C17F6     LOGER1   MTW,0    *IOQ11,6          LAST RETRY?
     6120   01 015D7    692015DA              BGZ      %+3               NO
     6121   01 015D8    25A00170 A            SLD,10   -16               ADJUST TALLY TO UNRECOV. ERROR
     6122   01 015D9    25C00070 A            SLS,12   -16
     6123   01 015DA    22E00008 A   LOGER3   LI,14    X'08'             BIT 28
     6124   01 015DB    B1EC17EE              CW,14    *IOQ3,6           DUAL ACCESS B?
     6125   01 015DC    694015E1              BCS,4    LOGER2            YES
     6126   01 015DD    E6AE17E6              AWM,10   *DCT17,7          UPDATE DUAL ACCESS A SUMMARY
     6127   01 015DE    E6BE17E7              AWM,11   *DCT18,7
     6128   01 015DF    E6CE17E8              AWM,12   *DCT19,7
     6129   01 015E0    680015E4              B        LOGEX             EXIT
     6130   01 015E1    E6AE17E9     LOGER2   AWM,10   *DCT20,7          UPDATE DUAL ACCESS B SUMMARY
     6131   01 015E2    E6BE17EA              AWM,11   *DCT21,7
     6132   01 015E3    E6CE17EB              AWM,12   *DCT22,7
     6133   01 015E4    02200070 A   LOGEX    LCI      7
     6134   01 015E5    2A6015E8              LM,6     LOGOPS            RESTORE R6-R12
     6135   01 015E6    E800000F A            B        *15               EXIT
     6136                            *
     6137   01 015E7    00000000 A   LOGERF   DATA     0                 ERROR FLAG (1=NO,2=YES)
     6138   01 015E8                 LOGOPS   RES      7                 REGISTER SAVE
     6139                            *
     6140                            *
     6141                            *        *** REPORT SUBROUTINE ***
     6142                            *
     6143                            * THIS ROUTINE PRINTS A SEQUENCE OF ERROR LINES ACCORDING TO THE
     6144                            * SUPPLIED MESSAGE BIT MAP.
     6145                            *
     6146                            * CALLING SEQUENCE:
     6147                            *        LW,14    =N
     6148                            *        BAL,15   REPORT            REPORT ERROR MESSAGES
     6149                            *        DATA     MAP
     6150                            *
     6151                            * PARAMETERS:
     6152                            *        (R14)=STATUS INDEXES       INDEXES TO THE EXPECTED STATUS AND
     6153                            *                                   MASK TABLE 'REPMASK' (BYTE 0=SIO;
     6154                            *                                   BYTE 1=TIO;BYTE 2=TDV;BYTE 3=AIO)
     6155                            *        (R15)=REPORT MAP ADDRESS   ADDRESS OF 32-BIT REPORT BIT MAP
     6156                            *                                   WITH EACH BIT POSITION SPECIFYING
     6157                            *                                   A 'REPMSG' LINE TO BE PRINTED.
     6158                            *        (R6)=IOQ OR 0              IOQ INDEX OR 0 IF NONE
     6159                            *        (R7)=DCT OR 0              DCT INDEX OR 0 IF NONE
     6160                            *
     6161                            * REGISTERS USED: R4,R5,R8-R15
     6162                            * REGISTERS DISTURBED: R4,R5
     6163                            * OTHER ROUTINES ACCESSED: PICTUREC,#IOCP,#IOCDP,SEEKINC,T1ESN4,
     6164                            *                          #MSGP,CKDATA, PICTURED
     6165                            *
     6166         01 015EF           REPORT   EQU      %                 REPORT ALL ERROR MESSAGES
     6167   01 015EF    6D000032 A            WD,0     X'32'             INHIBIT IO INTERRUPT
     6168   01 015F0    02200080 A            LCI      8
     6169   01 015F1    2B801689              STM,8    REPSAVR           SAVE R8-R15
     6170   01 015F2    35201979              STW,2    QSCAN             INHIBIT CTR4 Q SCANNING
     6171   01 015F3    6AF01A98              BAL,15   PICTUREC          FETCH SYSTEM INFO AT ERROR
     6172   01 015F4    324011A7              LW,4     T2:3              TST2/3 INDICATOR
     6173   01 015F5    35400EE1              STW,4    VDEC1A            SAVE
     6174   01 015F6    32401A17              LW,4     IOINTUNK          AIO STATUS FROM UNKNOWN DEVICE
     6175   01 015F7    32700007 A            LW,7     7                 IS THERE A DCT SPECIFIED?
     6176   01 015F8    683015FD              BEZ      %+5               NO
     6177   01 015F9    B24C17F3              LW,4     *IOQ8,6           DEVICE ADDRESS FROM Q ENTRY
     6178   01 015FA    32600006 A            LW,6     6                 IS THERE A Q ENTRY?
     6179   01 015FB    693015FD              BNEZ     %+2               YES
     6180   01 015FC    B24E17DF              LW,4     *DCT10,7          FETCH AIO DEVICE ADDRESS
     6181   01 015FD    4B402DD3              AND,4    =X'1FFF'          MASK DEVICE ADDRESS
     6182   01 015FE    35400EE7              STW,4    VHEX4A            SAVE
     6183   01 015FF    35401695              STW,4    REPOTBL+3         SAVE AIO STATUS
     6184   01 01600    32401986              LW,4     CURTIME           CURRENT TIME
     6185   01 01601    35400EE5              STW,4    VDEC8A            SAVE
     6186   01 01602    B2AC17F7              LW,10    *IOQ12,6          DA(IOCD)
     6187   01 01603    35A016C0              STW,10   REPTBL            SAVE IOCD
     6188   01 01604    B2CC17F9              LW,12    *IOQ14,6          START TIME
     6189   01 01605    35C00EEC              STW,12   VDEC8B            SAVE
     6190   01 01606    B2DC17FA              LW,13    *IOQ15,6          SEEK ADDRESS
     6191   01 01607    35D00F00              STW,13   VHEX8C            SAVE
     6192   01 01608    52A212A8              LH,10    T3RT,1            MAX ALLOWABLE TIME OF OPERATION
     6193   01 01609    35A00EE3              STW,10   VDEC4A            SAVE
     6194   01 0160A    B2BE17DE              LW,11    *DCT9,7           CURRENT COMMAND ADDRESS
     6195   01 0160B    35B00EEF              STW,11   VHEX6B            SAVE
     6196   01 0160C    B2EE17E1              LW,14    *DCT12,7          COND.CODES,TERMINAL BYTE COUNT
     6197   01 0160D    5242000E A            LH,4     14,1              BYTE COUNT
     6198   01 0160E    35400EFA              STW,4    VDEC4C            SAVE REMAINING BYTE COUNT
     6199   01 0160F    B2FE17E2              LW,15    *DCT13,7          SIO STATUS
     6200   01 01610    35F01692              STW,15   REPOTBL           SAVE SIO STATUS
     6201   01 01611    B2CE17DF              LW,12    *DCT10,7          AIO STATUS
     6202   01 01612    35C01695              STW,12   REPOTBL+3         SAVE AIO STATUS,CC1-3
     6203   01 01613    B2DE17E0              LW,13    *DCT11,7          TDV,TIO STATUS
     6204   01 01614    55D0000C A            STH,13   12                SEPARATE TDV,TIO STATUS
     6205   01 01615    72F0000E A            LB,15    14                TDV CC1-4
     6206   01 01616    75F4000D A            STB,15   13,2              MERGE W TDV STATUS
     6207   01 01617    72F2000E A            LB,15    14,1              TIO CC1-4
     6208   01 01618    75F4000C A            STB,15   12,2              MERGE W TIO STATUS
     6209   01 01619    35C01693              STW,12   REPOTBL+1         SAVE TIO STATUS
     6210   01 0161A    35D01694              STW,13   REPOTBL+2         SAVE TDV STATUS
     6211   01 0161B    B2401690              LW,4     *REPSAVR+7        FETCH REPORT MAP
     6212   01 0161C    4B400498              AND,4    LIMT23M           MERGE WITH LIMT DIRECTIVE MASK
     6213   01 0161D    68301684              BEZ      REPT41            NO REPORTING REQ'D
     6214   01 0161E    35401691              STW,4    REPMAP            SAVE
     6215                            *                                   SCAN THE MESSAGE MAP FOR/ BITS AND
     6216                            *                                   PRINT CORRESPONDING MESSAGE.
     6217   01 0161F    224FFFE2 A            LI,4     -30               BIT COUNT = 30
     6218   01 01620    354016C5              STW,4    REPTB             SAVE
     6219   01 01621    32802DD4              LW,8     =X'80000000'      TEST BIT TO MSB
     6220   01 01622    31801691     REPT1    CW,8       REPMAP          DOES THIS MSG REQUIRE PRINTING?
     6221   01 01623    68401678              BCR,4    REPT32            NO-BIPASS MSG
     6222   01 01624    31802DE4              CW,8     =X'10000000'      A HDR MSG REQUIRED?
     6223   01 01625    6840162C              BCR,4    REPT101           NO
     6224   01 01626    325011AC              LW,5     T3PHASE           FETCH TEST PHASE
     6225   01 01627    324A1698              LW,4     REPHDR2,5         FETCH MSG ADDRESS
     6226   01 01628    313011A7              CW,3     T2:3              TST3 IN PROGRESS?
     6227   01 01629    6930162B              BNE      %+2               NO
     6228   01 0162A    324A169B              LW,4     REPHDR3,5         FETCH MSG ADDRESS
     6229   01 0162B    68001675              B        REPT31            GO TO PRINT
     6230   01 0162C    31802E0D     REPT101  CW,8     =X'00180E00'      A STATUS MSG REQ'D?
     6231   01 0162D    6840163C              BCR,4    REPT2             NO
     6232   01 0162E    324016C5              LW,4     REPTB             BIT
     6233   01 0162F    324816E4              LW,4     REPMSG+30,4       FETCH STATUS TYPE AND POINTERS
     6234   01 01630    72560004 A            LB,5     4,3               TYPE
     6235   01 01631    355016C1              STW,5    REPTBL+1          SAVE IN TABLE
     6236   01 01632    72540004 A            LB,5     4,2               POINTER
     6237   01 01633    329A1692              LW,9     REPOTBL,5         FETCH OBSERVED STATUS,CC1-4
     6238   01 01634    359016C4              STW,9    REPTBL+4          SAVE
     6239   01 01635    3240168F              LW,4     REPSAVR+6         FETCH POINTERS TO EXP,MASK
     6240   01 01636    724A0004 A            LB,4     4,5               FETCH STATUS TYPE-DEPENDENT POINTER
     6241   01 01637    12A816A0              LD,10    REPMASK,4         FETCH STATUS,MASK
     6242   01 01638    15A016C2              STD,10   REPTBL+2          SAVE
     6243   01 01639    224016C0              LI,4     REPTBL            TABLE ADDRESS
     6244   01 0163A    6AF009DB              BAL,15   #IOCP             PRINT IO INSTRUCTION EXP,OBS STATUS
     6245   01 0163B    68001678              B        REPT32            CONTINUE
     6246   01 0163C    21808000 A   REPT2    CI,8     X'8000'           IS AN IOCD MSG REQ'D?
     6247   01 0163D    68401641              BCR,4    %+4               NO
     6248   01 0163E    B2CC17F7              LW,12    *IOQ12,6          FETCH DA(IOCD)
     6249   01 0163F    6AF00A29              BAL,15   #IOCDP            PRINT COMMAND ADDRESS, IOCD(S)
     6250   01 01640    68001678              B        REPT32            CONTINUE
     6251   01 01641    21800100 A            CI,8     X'100'            IS A COMMAND ADDRESS REQ'D?
     6252   01 01642    68401645              BCR,4    %+3               NO
     6253   01 01643    32B014EB              LW,11    CKSTATCW          FETCH EXPECTED COMMAND ADDRESS
     6254   01 01644    35B00EE8              STW,11   VHEX6A            SAVE IN MSG
     6255   01 01645    21800030 A            CI,8     X'30'             SENSE DATA?
     6256   01 01646    68401673              BCR,4    REPT3             NO
     6257   01 01647    21800010 A            CI,8     X'10'             SENSE INFO TO BE GATHERED?
     6258   01 01648    68401678              BCR,4    REPT32            NO (ALREADY AVAILABLE)
     6259   01 01649    22000B4B              LI,0     DA(SNSIOCD)       DA(IOCD)
     6260   01 0164A    B25C17F3              LW,5     *IOQ8,6           DEVICE ADDRESS
     6261   01 0164B    CC000005 A            SIO,0    *5                ISSUE SIO
     6262   01 0164C    69C01652              BCS,12   REPT21            SIO REJECTED
     6263   01 0164D    224FEC78 A            LI,4     -5000             MAX DELAY COUNT
     6264   01 0164E    CDF00005 A            TIO,15   *5                ISSUE TIO
     6265   01 0164F    68C01655              BCR,12   REPT22            CONTROLLER READY
     6266   01 01650    6540164E              BIR,4    %-2               BUSY- DECR DELAY COUNT,LOOP
     6267   01 01651    CF000005 A            HIO,0    *5                ISSUE HIO TO DEVICE
     6268   01 01652    6AF00B7B     REPT21   BAL,15   #MSGP
     6269   01 01653    00004113              DATA     MX312             SENSE DATA NOT AVAILABLE ...
     6270   01 01654    68001678              B        REPT32            CONTINUE
     6271   01 01655    31F02DE4     REPT22   CW,15    =X'10000000'      CORRECT SENSE ORDER TERMINAL STATUS
     6272   01 01656    69301652              BNE      REPT21            NO
     6273   01 01657    22B00000 A            LI,11    0                 SEEK ADDRESS = 0
     6274   01 01658    B25217F1              LW,5     *IOQ6,1           CURRENT FC
     6275   01 01659    215000B3 A            CI,5     X'B3'             A RESTOERE ORDER?
     6276   01 0165A    68301669              BE       REPT25            YES-EXP SEEK ADDRESS = 0
     6277   01 0165B    B2BC17FA              LW,11    *IOQ15,6          SEEK ADDRESS
     6278   01 0165C    B2AC17F7              LW,10    *IOQ12,6          DA(IOCD)
     6279   01 0165D    25A00001 A            SLS,10   1                 WA(IOCD)
     6280   01 0165E    B240000A A   REPT24   LW,4     *10               MSH IOCD
     6281   01 0165F    2540007F A            SLS,4    -1                ADJUST
     6282   01 01660    C840000A A            EOR,4    *10               FORM (ORDER BIT 6).EOR.(ORDER BIT 7)
     6283   01 01661    71100004 A            CB,1     4                 IS RESULT =1 (SEEK INCR REQ'D)?
     6284   01 01662    68401664              BCR,4    %+2               NO
     6285   01 01663    6AF0139F              BAL,15   SEEKINC           INCREMENT SEEK ADDRESS
     6286   01 01664    32502DE9              LW,5     =X'A0000000'      DC CC FLAGS
     6287   01 01665    B152000A A            CW,5     *10,1             CHAINING FLAG SET IN IOCD?
     6288   01 01666    68401669              BCR,4    %+3               NO
     6289   01 01667    20A00002 A            AI,10    2                 UPDATE WA(IOCD)
     6290   01 01668    6800165E              B        REPT24            LOOP
     6291   01 01669    35B016BC     REPT25   STW,11   SENSEXP           SAVE SEEK ADDRESS IN SENSE EXP
     6292   01 0166A    B24E17DA              LW,4     *DCT5,7           DEVICE TYPE
     6293   01 0166B    25400004 A            SLS,4    4                 ADJUST DEVICE TYPE TO BITS 1-3
     6294   01 0166C    754216BD              STB,4    SENSEXP+1,1       SAVE IN EXP SENSE BYTE 5
     6295   01 0166D    225FFFF8 A            LI,5     -8
     6296   01 0166E    324A16C0              LW,4     SENSEM+8,5        MOVE MASK,EXP SENSE INFO
     6297   01 0166F    354A1B5A              STW,4    SENMAS+8,5
     6298   01 01670    6550166E              BIR,5    %-2               LOOP TIL 32 BYTES MOVED
     6299   01 01671    6AA0091B     REPT23   BAL,10   T1ESN4            PRINT EXP,OBS SENSE DATA
     6300   01 01672    68001678              B        REPT32            CONTINUE
     6301   01 01673    324016C5     REPT3    LW,4     REPTB             TEST BIT
     6302   01 01674    324816E4              LW,4     REPMSG+30,4       FETCH MSG ADDRESS
     6303   01 01675    35401677     REPT31   STW,4    %+2               SAVE IN MSGOUT CALL
     6304   01 01676    6AF00B7B              BAL,15   #MSGP             PRINT MSG
     6305   01 01677    00000000 A            DATA     0                 MSG BYTE ADDRESS
     6306   01 01678    2580007F A   REPT32   SLS,8    -1                ADJUST TEST BIT TO NEXT POSITION
     6307   01 01679    331016C5              MTW,1    REPTB             INCREMENT TEST BIT COUNT
     6308   01 0167A    69301622              BNEZ     REPT1             NOT 0-LOOP TO ANOTHER MSG
     6309   01 0167B    31201691              CW,2     REPMAP            DATA COMPARE TO BE MADE
     6310   01 0167C    6840167F              BCR,4    REPT4             NO
     6311   01 0167D    6AF014EC              BAL,15   CKDATA            TEST DATA W COMPARE ERROR PRINTOUT
     6312   01 0167E    6800167F              B        %+1
     6313   01 0167F    31101691     REPT4    CW,1     REPMAP            SYSTEM STATUS TO BE PRINTED?
     6314   01 01680    68401682              BCR,4    %+2               NO
     6315   01 01681    6AF01AAA              BAL,15   PICTURED          SYSTEM INFORMATION PRINTOUT
     6316   01 01682    6AF00B7B              BAL,15   #MSGP
     6317   01 01683    00003D14              DATA     MX042             ***END***
     6318   01 01684    02200080 A   REPT41   LCI      8
     6319   01 01685    2A801689              LM,8     REPSAVR           RESTORE R
     6320   01 01686    35101979              STW,1    QSCAN             ALLOW CTR4 Q SCANNING
     6321   01 01687    6D000022 A            WD,0     X'22'             RESET IO INTERRUPT INHIBIT
     6322   01 01688    E802000F A            B        *15,1             EXIT
     6323                            *
     6324         01 01689           REPSAVR  EQU      %
     6325   01 01689                          RES      8                 REGISTER SAVE
     6326   01 01691    00000000 A   REPMAP   DATA     0                 REPORT MAP (MODIFIED BY LIMT MASK)
     6327                                     BOUND    8
     6328   01 01692                 REPOTBL  RES      4                 OBSERVED STATUS TABLE
     6329   01 01696    04006D68     SNSIOCD  GEN,8,24 X'04',BA(SENOBS)  SENSE IOCD
     6330   01 01697    00000010 A            GEN,8,24 0,16
     6331   01 01698    000040AF     REPHDR2  DATA     MX203,MX204,MX205
            01 01699    000040B4
            01 0169A    000040B9
     6332   01 0169B    00004176     REPHDR3  DATA     MX325,MX326,MX327,MX328,MX329
            01 0169C    0000417C
            01 0169D    00004181
            01 0169E    00004186
            01 0169F    0000418B
     6333                            *                                   EXPECTED STATUS AND MASK TABLE
     6334                            *                                   INDEX   ORDER   DESCRIPTION
     6335         01 016A0           REPMASK  EQU      %                 -----   -----   -----------
     6336   01 016A0    10000000 A            DATA     X'10000000'         0     SIO     ALL ORDERS
     6337   01 016A1    F700C000 A            DATA     X'F700C000'
     6338   01 016A2    00000000 A            DATA     0                   1     AIO     UNEXP INTERRUPT
     6339   01 016A3    00000000 A            DATA     0
     6340   01 016A4    00300000 A            DATA     X'00300000'         2     AIO     CE INTERRUPT
     6341   01 016A5    FFCFC000 A            DATA     X'FFCFC000'
     6342   01 016A6    08000000 A            DATA     X'08000000'         3     AIO     SEEK OR RESTORE
     6343   01 016A7    FF3FC000 A            DATA     X'FF3FC000'                       ON-SECTOR INTERRUPT
     6344   01 016A8    00084000 A            DATA     X'00084000'         4     AIO     FLAW MARKER
     6345   01 016A9    FFCFC000 A            DATA     X'FFCFC000'
     6346   01 016AA    10000000 A            DATA     X'10000000'         5     TIO     SEEK OR RESTORE
     6347   01 016AB    1FFF8000 A            DATA     X'1FFF8000'
     6348   01 016AC    18000000 A            DATA     X'18000000'         6     TIO     FLAW MARKER
     6349   01 016AD    FFFFC000 A            DATA     X'FFFFC000'
     6350   01 016AE    10000000 A            DATA     X'10000000'         7     TIO     ALL OTHER ORDERS
     6351   01 016AF    7FFF8000 A            DATA     X'7FFF8000'
     6352   01 016B0    40000000 A            DATA     X'40000000'         8     TDV     FLAW MARKER
     6353   01 016B1    FFFFC000 A            DATA     X'FFFFC000'
     6354   01 016B2    00000000 A            DATA     0                   9     TDV     ALL OTHER ORDERS
     6355   01 016B3    FFFFC000 A            DATA     X'FFFFC000'
     6356   01 016B4    10000000 A            DATA     X'10000000'         A     TIO     SEEK OR RESTORE
     6357   01 016B5    77008000 A            DATA     X'77008000'
     6358   01 016B6    00000000 A            DATA     0                   B     TDV     SEEK OR RESTORE
     6359   01 016B7    0000C000 A            DATA     X'0000C000'
     6360   01 016B8    FFFFFFFF A   SENSEM   DATA     X'FFFFFFFF'       SENSE MASKS
        1*  01 016B9    0000EF00 A            DATA     X'0000EF00'        (IGNORE DRIVE ID BYTE)         *H01
     6362   01 016BA    FFFF0000 A            DATA     X'FFFF0000'
     6363   01 016BB    00000000 A            DATA     0
     6364   01 016BC    00000000 A   SENSEXP  DATA     0,0,0,0           SENSE EXPECTED STATUS
            01 016BD    00000000 A
            01 016BE    00000000 A
            01 016BF    00000000 A
     6365                                     BOUND    8
     6366   01 016C0                 REPTBL   RES      5                 PARAMETER TABLE FOR IOCOMP CALL
     6367   01 016C5    00000000 A   REPTB    DATA     0                 TEST BIT
     6368                            *                                INDEX       MESSAGE
     6369                            *                                -----  ------------------
     6370   01 016C6    00004056     REPMSG   DATA     MX407             0  TSTX IO ADDRESS XXXX
     6371   01 016C7    00004165              DATA     MX322             1  --------------------
     6372   01 016C8    000040EC              DATA     MX302             2  TIME
     6373   01 016C9    00000000 A            DATA     0                 3  (TEST DESCRIPTION),NL,***
     6374   01 016CA    000040EF              DATA     MX303             4  INTERRUPT NOT EXPECTED
     6375   01 016CB    000040F4              DATA     MX304             5  SIO NOT ACCEPTED
     6376   01 016CC    000040F9              DATA     MX305             6  TIMEOUT
     6377   01 016CD    000040FE              DATA     MX306             7  STATUS ERROR
     6378   01 016CE    00004102              DATA     MX307             8  DATA ERROR
        1*  01 016CF    00003DCF              DATA     MX076             9  SENSE DATA ERROR             *H01
     6380   01 016D0    00003C60              DATA     MX016             10 ***START OF OPERATION***
     6381   01 016D1    00000000 A            DATA     0                 11 SIO STATUS
     6382   01 016D2    00000204 A            DATA     X'00000204'       12 TDV STATUS
     6383   01 016D3    00004106              DATA     MX308             13 START TIME
     6384   01 016D4    0000410A              DATA     MX309             14 SEEK ADDRESS
     6385   01 016D5    00003C57              DATA     MX014             15 COMMAND WORD ADDRESS
     6386   01 016D6    00000000 A            DATA     0                 16 IOCD
     6387   01 016D7    00003CEC              DATA     MX037             17 ***
     6388   01 016D8    00003C68              DATA     MX017             18 ***STATUS AT END OF OPERATION***
     6389   01 016D9    00003C71              DATA     MX018             19 INTERRUPT NOT RECEIVED
     6390   01 016DA    00000303 A            DATA     X'00000303'       20 AIO STATUS
     6391   01 016DB    00000101 A            DATA     X'00000101'       21 TIO STATUS
     6392   01 016DC    00000204 A            DATA     X'00000204'       22 TDV STATUS
     6393   01 016DD    00003C81              DATA     MX020             23 CURRENT COMMAND DOUBLEWORD...
     6394   01 016DE    0000410E              DATA     MX311             24 REMAINING BYTE COUNT
     6395   01 016DF    00004118              DATA     MX313             25 STATUS CORRECT
     6396   01 016E0    00000000 A            DATA     0                 26 (SENSE DATA AVAIL. FLAG)
     6397   01 016E1    00000000 A            DATA     0                 27 SENSE DATA (W ISSUE)
        1*  01 016E2    00003DCC              DATA     MX075             28 ***,NL                       *H01
     6399   01 016E3    00004169              DATA     MX323             29 ***DATA AT END OF OPERATION***
     6400                            *                                   30 (COMPARE DATA)
     6401                            *                                   31 (SYSTEM STATUS)
     6402                            *
     6403                            *        *** PREHDLR ROUTINE ***
     6404                            *
     6405                            * THIS ROUTINE BUILDS THE IOCD'S OF TST3 AND BUILDS THE IOCD'S FOR
     6406                            * TST2 AND TST3 RETRY OPERATIONS.
     6407                            *
     6408                            * CALLING SEQUENCE
     6409                            *        BAL,15   *(*DCT7,7)
     6410                            *        B        -                 PERFORM THE OPERATION
     6411                            *        B        -                 REMOVE THE OPERATION FROM THE QUEUE
     6412                            *
     6413                            * PARAMETERS:
     6414                            *        (R6)=IOQ                   IOQ TABLE INDEX
     6415                            *        (R7)=DCT                   DCT INDEX
     6416                            *        T2:3IOCD                   ADDRESS OF IOCD STORAGE LOCATIONS
     6417                            *        T2IOCDB                    IOCD BUILD FLAG (1=NO,2=YES)
     6418                            *
     6419                            * PARAMETERS RETURNED:
     6420                            *        (R0)=DA(IOCD)              IOCD DOUBLEWORD ADDRESS
     6421                            *        (R8)=DA,DEP,FC             DUAL ACCESS FLAG (BIT 0); DEPENDENT
     6422                            *                                   OPER FLAG (BIT1); FUNCTION CODE
     6423                            *                                   (BITS 5-31)
     6424                            *        (R12)=RETRY,TIME           RETRY COUNT (BITS 0-7);  MAX ALLOW
     6425                            *                                   TIME OF OPERATION (BITS 8-31)
     6426                            * REGISTERS USED: R4,R5,R15
     6427                            * REGISTERS DISTURBED: R4,R5,R15
     6428                            * OTHER ROUTINES ACCESSED: SEEKABS,SEEKREQ
     6429                            *
     6430         01 016E4           PREHDLR  EQU      %                 PRE-HANDLER
     6431   01 016E4    35F01744              STW,15   PREX              SAVE RETURN ADDRESS
     6432   01 016E5    32000006 A            LW,0     6                 IOQ INDEX
     6433   01 016E6    25000003 A            SLS,0    3                 X8
     6434   01 016E7    300011AE              AW,0     T2:3IOCD          FORM WA(IOCD)
     6435   01 016E8    B25C17EE              LW,5     *IOQ3,6           Q STATUS
     6436   01 016E9    31502DE2              CW,5     =X'20000000'      A RETRY IN PROGRESS?
     6437   01 016EA    6940170B              BCS,4    PRE2              YES
     6438   01 016EB    31502DF5              CW,5     =X'08000000'      AN UNRECOVERABLE ERROR?
     6439   01 016EC    69401725              BCS,4    PRE5              YES
     6440   01 016ED    B24E17DB              LW,4     *DCT6,7           FETCH DCT STATUS
     6441   01 016EE    6910173F              BLZ      PRE7              AN UNRECOVERABLE ERROR ON THIS DEVICE
     6442   01 016EF    B24C17F4     PRE0     LW,4     *IOQ9,6           BUFFER WORD ADDRESS
     6443   01 016F0    25400002 A            SLS,4    2                 BUFFER BYTE ADDRESS
     6444   01 016F1    B28C17F0              LW,8     *IOQ5,6           FC=ORDER
     6445   01 016F2    75800004 A            STB,8    4                 MERGE ORDER W BYTE ADDRESS
     6446   01 016F3    B25C17F5              LW,5     *IOQ10,6          BYTE COUNT
     6447   01 016F4    21800001 A            CI,8     1
     6448   01 016F5    683016F8              BE       %+3
     6449   01 016F6    49502DE3              OR,5     =X'1C000000'
     6450   01 016F7    680016F9              B        %+2
     6451   01 016F8    49502E0E              OR,5     =X'4C000000'
     6452   01 016F9    312011AF              CW,2     T2IOCDB           IS THE IOCD TO BE BUILD?
     6453   01 016FA    693016FC              BNE      %+2               NO
     6454   01 016FB    95400000 A            STD,4    *0                SAVE IOCD
     6455   01 016FC    2500007F A            SLS,0    -1                FORM DA(IOCD)
     6456   01 016FD    B24C17EE     PRE1     LW,4     *IOQ3,6           IOQ STATUS
     6457   01 016FE    22500008 A            LI,5     X'08'             DCT RESERVE DUAL ACCESS A
     6458   01 016FF    21400008 A            CI,4     8                 DUAL ACCESS B USED?
     6459   01 01700    68401703              BCR,4    %+3               NO
     6460   01 01701    2550007F A            SLS,5    -1                DCT RESERVE DUAL ACCESS B
     6461   01 01702    49802DD4              OR,8     =X'80000000'      SET DA FLAG
     6462   01 01703    C75E17DB              STS,5    *DCT6,7           SET RESERVE FLAG
     6463   01 01704    21400004 A            CI,4     4                 DEP REQUEST
     6464   01 01705    68401707              BCR,4    %+2               NO
     6465   01 01706    49802DD6              OR,8     =X'40000000'      SET DEP FLAG
     6466   01 01707    32C011A9              LW,12    T2RT              MAX ALLOWABLE TIME OF OPERATION
     6467   01 01708    B25C17F6              LW,5     *IOQ11,6          CURRENT RETRY COUNT
     6468   01 01709    7550000C A            STB,5    12                MERGE RETRY,TIME
     6469   01 0170A    E8001744              B        *PREX             EXIT
     6470   01 0170B    B28E17E3     PRE2     LW,8     *DCT14,7          RETRY FC
     6471   01 0170C    B18C17F0              CW,8     *IOQ5,6           IS THE RETRY COMPLETE?
     6472   01 0170D    6930171C              BNE      PRE4              NO
     6473   01 0170E    B2FC17EE              LW,15    *IOQ3,6           IOQ STATUS
     6474   01 0170F    32502DE3              LW,5     =X'1C000000'      IOCD FLAGS
     6475   01 01710    21F00080 A            CI,15    X'80'             COMMAND CHAINING
     6476   01 01711    68401713              BCR,4    %+2               NO
     6477   01 01712    48502E0F              EOR,5    =X'30000000'      SET CC FLAG,RESET CE FLAG IN IOCD
     6478   01 01713    21F00040 A            CI,15    X'40'             DATA CHAINING?
     6479   01 01714    68401716              BCR,4    %+2               NO
     6480   01 01715    48502E10              EOR,5    =X'90000000'      SET DC FLAG,RESET CE FLAG IN IOCD
     6481   01 01716    B24C17F5              LW,4     *IOQ10,6          BYTE COUNT
     6482   01 01717    55420005 A            STH,4    5,1               MERGE BYTE COUNT FLAGS
     6483   01 01718    B24C17F4              LW,4     *IOQ9,6           BUFFER
     6484   01 01719    25400002 A            SLS,4    2                 BA(BUFFER)
     6485   01 0171A    75800004 A            STB,8    4                 MERGE ORDER,BA(BUFFER)
     6486   01 0171B    680016FB              B        PRE1-2            GO TO COMPLETE
     6487   01 0171C    32502DE3     PRE4     LW,5    =X'1C000000'       IOCD FLAGS
     6488   01 0171D    218000B3 A            CI,8     X'B3'             RESTORE ORDER?
     6489   01 0171E    68301720              BE       %+2               YES-BYTE COUNT = 0
     6490   01 0171F    20500004 A            AI,5     4                 SEEK ORDER BYTE COUNT = 4
     6491   01 01720    324017FA              LW,4     IOQ15             FORM SEEK ADDRESS
     6492   01 01721    30400006 A            AW,4     6
     6493   01 01722    25400002 A            SLS,4    2                 BA(BUFFER)
     6494   01 01723    75800004 A            STB,8    4                 MERGE ORDER,BA(BUFFER)
     6495   01 01724    680016FB              B        PRE1-2            CONTINUE
     6496   01 01725    312011AF     PRE5     CW,2     T2IOCDB           SEQUENTIAL SURFACE OPERATIONS?
     6497   01 01726    E9321744              BNE      *PREX,1           NO-REMOVE THIS REQUEST
     6498   01 01727    B24E17DB     PRE6     LW,4     *DCT6,7           FETCH DCT STATUS
     6499   01 01728    4B402E11              AND,4    =X'7FFFFFFF'      RESET UNRECOV.ERROR FLAG
     6500   01 01729    B54E17DB              STW,4    *DCT6,7           SAVE
     6501   01 0172A    B13C17F1              CW,3     *IOQ6,6           A SEEK ORDER FAILING
     6502   01 0172B    683016EF              BE       PRE0              YES-GO TO REPEAT
     6503   01 0172C    B2BC17FA              LW,11    *IOQ15,6          SEEK ADDRESS
     6504   01 0172D    6AF01395              BAL,15   SEEKABS           CONVERT TO ABSOLUTE
     6505   01 0172E    20B00001 A            AI,11    1                 INCREMENT SEEK ADDRESS
     6506   01 0172F    31B012A4              CW,11    T3LASTS           LAST SEEK ADDRESS?
     6507   01 01730    E9221744              BG       *PREX,1           YES-REMOVE REQUEST FROM Q
     6508   01 01731    6AF01380              BAL,15   SEEKREQ           CONVERT SEEK ADDRESS TO FORMATED
     6509   01 01732    68001733              B        %+1
     6510   01 01733    31B02DD9              CW,11    =X'FFFF'
     6511   01 01734    E8421744              BCR,4    *PREX,1           CYL END-REMOVE THIS REQUEST
     6512   01 01735    22401745              LI,4     PREBFR            BUFFER ADDRESS
     6513   01 01736    B5B00004 A            STW,11   *4                SAVE SEEK ADDRESS
     6514   01 01737    B5BC17FA              STW,11   *IOQ15,6          SAVE
     6515   01 01738    22800003 A            LI,8     X'03'             SEEK ORDER
     6516   01 01739    B58C17F0              STW,8    *IOQ5,6           SAVE AS ORIGINAL FC
     6517   01 0173A    728012A8              LB,8     T3RT              RETRY COUNT
     6518   01 0173B    B58C17F6              STW,8    *IOQ11,6          SAVE
     6519   01 0173C    22800004 A            LI,8     4                 BYTE COUNT
     6520   01 0173D    B58C17F5              STW,8    *IOQ10,6          SAVE
     6521   01 0173E    680016F0              B        PRE0+1            CONTINUE
     6522   01 0173F    21500004 A   PRE7     CI,5     4                 THIS REQUEST A DEPENDENT REQUEST?
     6523   01 01740    E9421744              BCS,4    *PREX,1           YES-REMOVE THIS REQUEST FROM Q
     6524   01 01741    4B402E11              AND,4    =X'7FFFFFFF'      RESET UNRECOVER. ERROR FLAG
     6525   01 01742    B54E17DB              STW,4    *DCT6,7           SAVE
     6526   01 01743    680016EF              B        PRE0              GO TO BUILD IOCD
     6527                            *
     6528   01 01744    00000000 A   PREX     DATA     0                 RETURN ADDRESS SAVE
     6529                            *
     6530   01 01745    00000000 A   PREBFR   DATA     0                 PRE-HANDLER TEMP BFR
     6531                            *        *** POSTHDLR ROUTINE ***
     6532                            *
     6533                            * THIS ROUTINE PERFORMS OPERATION CLEANUP BY CHECKING STATUS AND
     6534                            * DATA. ERROR(S) ARE REPORTED AND RETRY OPERATIONS INITIATED.
     6535                            *
     6536                            * CALLING SEQUENCE:
     6537                            *        BAL,15   *(*DCT8,7)        PERFORM  STATUS,DATA CHECKING
     6538                            *        B        -                 INITIATE (CONTINUE)A RETRY
     6539                            *        B        -                 NO RETRY REQUIRED
     6540                            *
     6541                            * PARAMETERS:
     6542                            *        (R6)=IOQ OR 0              IOQ TABLE INDEX OR 0 IF NONE
     6543                            *        (R7)=DCT OR 0              DCT INDEX OR 0 IF NONE
     6544                            *
     6545                            * PARAMETERS RETURNED:
     6546                            *        (R10)= TTYPE               TERMINATION ACTION TYPE
     6547                            *
     6548                            * REGISTERS USED: R0,R4-R15
     6549                            * REGISTERS DISTURBED: R4,R5,R8-R15
     6550                            * OTHER ROUTINES ACCESSED: REPORT,CKSTATUS, CKDATAI, LOGOP, LOGSER,
     6551                            *                          #MSGP
     6552                            *
     6553         01 01746           POSTHDLR EQU      %                 POST-HANDLER
     6554   01 01746    35F017D3              STW,15   POSTX             SAVE RETURN ADDRESS
     6555   01 01747    32700007 A            LW,7     7                 IS THERE A DCT SPECIFIED ?
     6556   01 01748    69201752              BGZ      POST1             YES
     6557   01 01749    22A00000 A            LI,10    0                 TTYPE=0
     6558   01 0174A    32401A17              LW,4     IOINTUNK          FETCH AIO STATUS
     6559   01 0174B    4B402DDB              AND,4    =X'0000C000'      MASK CC1,2
     6560   01 0174C    31402DDB              CW,4     =X'0000C000'      CC1,2=11 (NO INTERRUPT RECOGNITION)
     6561   01 0174D    E83217D3              BE       *POSTX,1          YES-EXIT
     6562   01 0174E    22E00001 A   POST0    LI,14    X'00000001'       STATUS POINTERS
     6563   01 0174F    6AF015EF              BAL,15   REPORT            REPORT
        1*  01 01750    F8002801 A            DATA     X'F8002801'        MESSAGE MAP                    *H01
     6565   01 01751    E80217D3              B        *POSTX,1          EXIT
     6566   01 01752    32600006 A   POST1    LW,6     6                 DOES A Q ENTRY EXIST
     6567   01 01753    6830174E              BEZ      POST0             NO-GO TO REPORT
     6568   01 01754    6AF0141D              BAL,15   CKSTATUS          CHECK STATUS
     6569   01 01755    68001760              B        POST2             NO ERRORS
     6570   01 01756    68001777              B        POST4             STATUS ERROR(S)
     6571   01 01757    3120000F A            CW,2     15                FLAW MARKER REPORTED - CAN DATA
     6572   01 01758    6840175C              BCR,4    %+4               NO                    CHECKING OCCUR?
     6573   01 01759    6AF014EE              BAL,15   CKDATAI           CHECK DATA
     6574   01 0175A    6800175C              B        %+2               NO ERRORS
     6575   01 0175B    68001764              B        POST201           ERROR(S)-GO TO REPORT
     6576   01 0175C    6AF0158A              BAL,15   LOGOP             LOG OPERATIONS
     6577   01 0175D    22400000 A            LI,4     0
     6578   01 0175E    B54C17F6              STW,4    *IOQ11,6          CLEAR RETRY COUNT
     6579   01 0175F    680017B7              B        POST16            CONTINUE
     6580   01 01760    311019D6     POST2    CW,1     FASTMODE          FAST MODE?
     6581   01 01761    6830177C              BE       POST6             YES-BIPASS DATA CHECK
     6582   01 01762    6AF014EE              BAL,15   CKDATAI           CHECK DATA W PRINTOUT INHIBITED
     6583   01 01763    6800177C              B        POST6             NO ERRORS
     6584   01 01764    32E02DFA     POST201  LW,14    =X'00070902'      EXP STATUS POINTERS
     6585   01 01765    49F02E12              OR,15    =X'F0E6EF8F'      MERGE REPORT MAP

        2*  01 01766    48F02E00              EOR,15   =X'00400000'      CLEAR BIT 9                     *H01
        3*  01 01767    21F00020 A            CI,15    X'20'              CHECK FOR BIT 26               *H01
        4*  01 01768    6840176A              BAZ      %+2                 (SENSE DATA ERROR)            *H01
        5*  01 01769    48F02E13              EOR,15   =X'00C00000'      CLEAR BIT 8, SET BIT 9          *H01

     6586   01 0176A    35F0176C              STW,15   %+2               SAVE
     6587   01 0176B    6AF015EF              BAL,15   REPORT            REPORT ALL ERRORS
     6588   01 0176C    00000000 A            DATA     0                 MESSAGE MAP
     6589   01 0176D    6AF0158A              BAL,15   LOGOP             LOG DATA OPERATION
     6590   01 0176E    22400003 A            LI,4     X'03'             RETRY FC=SEEK
     6591   01 0176F    B25E17DA              LW,5     *DCT5,7           DEVICE TYPE
     6592   01 01770    311A1BA1              CW,1     DEVNR,5           RAD?
     6593   01 01771    68301775              BE       %+4               YES
     6594   01 01772    311019D6              CW,1     FASTMODE          FAST MODE?
     6595   01 01773    68301775              BE       %+2               YES
     6596   01 01774    22400083 A            LI,4     X'83'             SEEK W MODIFIER
     6597   01 01775    B54E17E3              STW,4    *DCT14,7          SAVE IN DCT TABLE
     6598   01 01776    68001791              B        POST71            CONTINUE
     6599   01 01777    35F01779     POST4    STW,15   %+2               SAVE REPORT MAP IN MSG CALL
     6600   01 01778    6AF015EF              BAL,15   REPORT            REPORT THE ERROR(S)
     6601   01 01779    00000000 A            DATA     0                 MESSAGE MAP
     6602   01 0177A    6AF015C0              BAL,15   LOGSER            LOG STATUS ERROR(S)
     6603   01 0177B    68001791              B        POST71            GO TO TEST FOR LAST RETRY
     6604   01 0177C    B28C17F1     POST6    LW,8     *IOQ6,6           CURRENT ORDER
     6605   01 0177D    21800080 A            CI,8     X'80'             ORDER MODIFIER BIT SET?
     6606   01 0177E    68401786              BCR,4    POST7             NO
     6607   01 0177F    EB5C17EE              INT,5    *IOQ3,6           ALREADY IN THE INTER-OP STATE
     6608   01 01780    69101787              BCS,1    POST7+1           YES
     6609   01 01781    21500080 A            CI,5     X'80'             COMMAND CHAINING PRESENT?
     6610   01 01782    69401786              BCS,4    POST7             YES (MODIFIER NOT EFFECTIVE)
     6611   01 01783    6AF0158A              BAL,15   LOGOP             LOG OPERATION
     6612   01 01784    22A00002 A            LI,10    2                 TTYPE =2 (INTER-OP REQ'D)
     6613   01 01785    E80217D3              B        *POSTX,1          EXIT
     6614   01 01786    6AF0158A     POST7    BAL,15   LOGOP             LOG OPERATION(S)
     6615   01 01787    B18C17F0              CW,8     *IOQ5,6           IS CURRENT FC = STARTING FC?
     6616   01 01788    683017AF              BE       POST12            YES
     6617   01 01789    EB5C17EE              INT,5    *IOQ3,6           IS A RETRY IN PROGRESS?
     6618   01 0178A    682017AF              BCR,2    POST12            NO
     6619   01 0178B    6AF0158A              BAL,15   LOGOP             LOG OPERATIONS
     6620   01 0178C    B25C17F0              LW,5     *IOQ5,6           STARTING FC
     6621   01 0178D    218000B3 A            CI,8     X'B3'             IS CURRENT ORDER = RESTORE ORDER?
     6622   01 0178E    69301790              BNE      %+2               NO
     6623   01 0178F    22500083 A            LI,5     X'83'             SET RETRY ORDER = SEEK W MODIFIER
     6624   01 01790    B55E17E3              STW,5    *DCT14,7          SAVE IN DCT TABLE             ORDER
     6625   01 01791    B30C17F6     POST71   MTW,0    *IOQ11,6          LAST RETRY?
     6626   01 01792    682017B7              BLEZ     POST16            YES
     6627   01 01793    B28E17E3              LW,8     *DCT14,7          RETRY FC
     6628   01 01794    B18C17F1              CW,8     *IOQ6,6           IS RETRY ORDER = CURRENT ORDER?
     6629   01 01795    683017A3              BE       POST10            YES
     6630   01 01796    B24C17F7              LW,4     *IOQ12,6          DA(IOCD)
     6631   01 01797    25400001 A            SLS,4    1                 WA(IOCD)
     6632   01 01798    32502DE9              LW,5     =X'A0000000'      BITS 0,2
     6633   01 01799    F1800004 A   POST8    CB,8     *4                IS RETRY FC WITHIN THE COMMAND STRING?
     6634   01 0179A    6830179F              BE       POST9             YES
     6635   01 0179B    B1520004 A            CW,5     *4,1              CHAINING SPECIFIED?
     6636   01 0179C    684017A3              BCR,4    POST10            NO
     6637   01 0179D    20400002 A            AI,4     2                 UPDATE WA(IOCD)
     6638   01 0179E    68001799              B        POST8             LOOP
     6639   01 0179F    B24C17F0     POST9    LW,4     *IOQ5,6           STARTING FC
     6640   01 017A0    B54E17E3              STW,4    *DCT14,7          SAVE AS RETRY FC
     6641   01 017A1    22A00000 A            LI,10    0                 TTYPE=0
     6642   01 017A2    E80017D3              B        *POSTX            EXIT (TTYPE=0)
     6643   01 017A3    22A00000 A   POST10   LI,10    0                 TTYPE=0
     6644   01 017A4    B18C17F0              CW,8     *IOQ5,6           IS THE RETRY FC = STARTING FC?
     6645   01 017A5    693017AC              BNE      POST17            NO
     6646   01 017A6    311019D6              CW,1     FASTMODE          FAST MODE?
     6647   01 017A7    E93017D3              BNE      *POSTX            NO-RETRY EXIT (TTYPE=0)
     6648   01 017A8    B18C17F1              CW,8     *IOQ6,6           IS RETRY FC = CURRENT FC
     6649   01 017A9    E93017D3              BNE      *POSTX            NO RETRY EXIT (TTYPE=0)
     6650   01 017AA    22A00001 A            LI,10    1                 TTYPE=1
     6651   01 017AB    E80217D3              B        *POSTX,1          PLACE IN DATA CHECK REQ'D
     6652   01 017AC    22A00001 A   POST17   LI,10    1                 NO
     6653   01 017AD    E80017D3              B        *POSTX            RETRY EXIT (TTYPE=1)
     6654   01 017AE    33F017D3     POST11   MTW,-1   POSTX             EXIT
     6655   01 017AF    22A00000 A   POST12   LI,10    0                 TTYPE=0
     6656   01 017B0    B28C17F1              LW,8     *IOQ6,6           CURRENT FC
     6657   01 017B1    21800017 A            CI,8     X'17'             RELEASE ORDER?                   A01
     6658   01 017B2    E93217D3              BNE      *POSTX,1          NO-EXIT+1 (TTYPE=0) OR EXIT (TTYPE=1)
     6659   01 017B3    B25E17DB              LW,5     *DCT6,7           DCT STATUS
     6660   01 017B4    4B502E14              AND,5    =X'FFFFFFF3'      RESET DEVICE RESERVED STATE
     6661   01 017B5    B55E17DB              STW,5    *DCT6,7           SAVE
     6662   01 017B6    E80217D3              B        *POSTX,1          EXIT+1 (TTYPE=0) OR EXIT (TTYPE=1)
     6663   01 017B7    313011A7     POST16   CW,3     T2:3              TST3 IN PROGRESS?
     6664   01 017B8    693017AE              BNE      POST11            NO
     6665   01 017B9    31300201              CW,3     :P1               TST3,3 IN PROGRESS?
     6666   01 017BA    693017AE              BNE      POST11            NO
     6667   01 017BB    B28C17F1     POST20   LW,8     *IOQ6,6           FETCH CURRENT FC
     6668   01 017BC    21800008 A            CI,8     8                 A HEADER ORDER?
     6669   01 017BD    684017C1              BCR,4    %+4               NO
     6670   01 017BE    6AF00B7B              BAL,15   #MSGP             TST3 NOT COMPLETED ...
     6671   01 017BF    00004145              DATA     MX318
     6672   01 017C0    680017D0              B        POST21
     6673   01 017C1    B24C17FA              LW,4     *IOQ15,6          FETCH SEEK ADDRESS
     6674   01 017C2    4B402DE6              AND,4    =X'FFFFFF00'      REMOVE SECTOR
     6675   01 017C3    325017D4              LW,5     PACKERR           CURRENT # ERRORS
     6676   01 017C4    683017C8              BEZ      %+4               TABLE EMPTY
     6677   01 017C5    314A12AD              CW,4     T3ERTBL,5         THIS CYLINDER,HEAD ALREADY IN TABLE
     6678   01 017C6    683017AE              BE       POST11            YES
     6679   01 017C7    645017C5              BDR,5    %-2               LOOP
     6680   01 017C8    331017D4              MTW,1    PACKERR           INCR # ERRORS
     6681   01 017C9    325017D4              LW,5     PACKERR
     6682   01 017CA    2150001E A            CI,5     30                TOO MANY?                        A02
     6683   01 017CB    692017CE              BG       %+3               YES - GO TO ABORT TST3,3
     6684   01 017CC    354A12AD              STW,4    T3ERTBL,5         SAVE CYLINDER,HEAD IN TABLE
     6685   01 017CD    680017AE              B        POST11            CONTINUE
     6686   01 017CE    6AF00B7B              BAL,15   #MSGP
     6687   01 017CF    00004159              DATA     MX321             TST3 ABORTED...
     6688   01 017D0    22501060 A   POST21   LI,5     X'1060'
     6689   01 017D1    6D501100 A            WD,5     X'1100'           DISARM IO,CTR4 INTERRUPTS
     6690   01 017D2    E8000214              B        *:MONITOR         RETURN TO MONITOR
     6691                            *
     6692   01 017D3    00000000 A   POSTX    DATA     0                 RETURN ADDRESS SAVE
     6693   01 017D4    00000000 A   PACKERR  DATA     0                 DISK PACK INIT. ERROR COUNT
1 C00   21:47 JUN 20,'83    TELEFILE ROTATING MEMORY TEST 960-0604-H02                            PAGE   18
A    6695                            *        ************************
     6696                            *        * D I O S  S Y S T E M *
     6697                            *        ************************
     6698                            *          REVISION C 01/26/72
     6699                            *
     6700   01 017D5    00000000 A   DCTNUM   DATA     0
     6701   01 017D6    00000000 A   DCT1     DATA     0
     6702   01 017D7    00000000 A   DCT2     DATA     0
     6703   01 017D8    00000000 A   DCT3     DATA     0
     6704   01 017D9    00000000 A   DCT4     DATA     0
     6705   01 017DA    00000000 A   DCT5     DATA     0
     6706   01 017DB    00000000 A   DCT6     DATA     0
     6707   01 017DC    00000000 A   DCT7     DATA     0
     6708   01 017DD    00000000 A   DCT8     DATA     0
     6709   01 017DE    00000000 A   DCT9     DATA     0
     6710   01 017DF    00000000 A   DCT10    DATA     0
     6711   01 017E0    00000000 A   DCT11    DATA     0
     6712   01 017E1    00000000 A   DCT12    DATA     0
     6713   01 017E2    00000000 A   DCT13    DATA     0
     6714   01 017E3    00000000 A   DCT14    DATA     0
     6715   01 017E4    00000000 A   DCT15    DATA     0
     6716   01 017E5    00000000 A   DCT16    DATA     0
     6717   01 017E6    00000000 A   DCT17    DATA     0
     6718   01 017E7    00000000 A   DCT18    DATA     0
     6719   01 017E8    00000000 A   DCT19    DATA     0
     6720   01 017E9    00000000 A   DCT20    DATA     0
     6721   01 017EA    00000000 A   DCT21    DATA     0
     6722   01 017EB    00000000 A   DCT22    DATA     0
     6723                            *
     6724   01 017EC    00000000 A   IOQ1     DATA     0
     6725   01 017ED    00000000 A   IOQ2     DATA     0
     6726   01 017EE    00000000 A   IOQ3     DATA     0
     6727   01 017EF    00000000 A   IOQ4     DATA     0
     6728   01 017F0    00000000 A   IOQ5     DATA     0
     6729   01 017F1    00000000 A   IOQ6     DATA     0
     6730   01 017F2    00000000 A   IOQ7     DATA     0
     6731   01 017F3    00000000 A   IOQ8     DATA     0
     6732   01 017F4    00000000 A   IOQ9     DATA     0
     6733   01 017F5    00000000 A   IOQ10    DATA     0
     6734   01 017F6    00000000 A   IOQ11    DATA     0
     6735   01 017F7    00000000 A   IOQ12    DATA     0
     6736   01 017F8    00000000 A   IOQ13    DATA     0
     6737   01 017F9    00000000 A   IOQ14    DATA     0
     6738   01 017FA    00000000 A   IOQ15    DATA     0
     6739   01 017FB    00000000 A   IOQ16    DATA     0
     6740                            *
     6741   01 017FC    00000000 A   CIT1     DATA     0
     6742   01 017FD    00000000 A   CIT2     DATA     0
     6743   01 017FE    00000000 A   CIT3     DATA     0
     6744   01 017FF    00000000 A   CIT4     DATA     0
     6745   01 01800    00000000 A   CIT5     DATA     0
     6746   01 01801    00000000 A   CIT6     DATA     0
     6747   01 01802    00000000 A   CIT7     DATA     0
     6748                            *
     6749                            *
     6750                            *                 *************
     6751                            *                 *  N E W Q  *
     6752                            *                 *************
     6753                            *
     6754                            * DESCRIPTION: THIS ROUTINE ACCEPTS A USER REQUEST FOR AN OPERATION,
     6755                            * INSERTS THE REQUEST INTO THE CHANNEL QUEUE AND, IF POSSIBLE,STARTS
     6756                            * THE OPERATION.
     6757                            *
     6758                            * CALL:       BAL,15  NEWQ          INSERT A REQUEST
     6759                            * PARAMETERS: (R7)=DCT       32     DEVICE CONTROL TABLE INDEX
     6760                            *             (R8)=DA,DEP,  1,1     DUAL ACCESS,DEPENDENT OPER
     6761                            *                  CC,DC,FC  1,1,28 COMMAND CHAIN,DATA CHAIN,FUNCTION CODE
     6762                            *             (R9)=BUF       32     BUFFER WORD ADDRESS
     6763                            *             (R10)=SIZE     32     BUFFER SIZE
     6764                            *             (R11)=SEEK     32     SEEK ADDRESS
     6765                            *             (R12)=RETRY,   8,24   RETRY COUNT, MAX OPERATING TIME
     6766                            *                   TIME
     6767                            * RETURN:     CALL+1                REQUEST INSERTION ABORTED, Q FULL
     6768                            *             CALL+2                REQUEST INSERTED
     6769                            * PARAMETERS: (R6)=IOQ              IOQ TABLE INDEX
     6770                            *             (R7-R12)=SAME
     6771                            *
     6772                            * CALL:       BAL,15  NEWQ1         INSERT A REQUEST
     6773                            * PARAMETERS: (R6)=IOQ              IOQ INDEX
     6774                            *             (R7-R12)=SAME AS ABOVE
     6775                            * RETURN:     CALL+1                REQUEST INSERTED
     6776                            * PARAMETERS (R6-R12)=SAME
     6777                            *
     6778                            * REGISTERS USED: R4,R5,R13,R15
     6779                            *
     6780         01 01803           NEWQ     EQU      %                 REQUEST INSERTION
     6781   01 01803    35F01840              STW,15   NEWQX             SAVE RETURN ADDRESS
     6782   01 01804    6D000032 A            WD,0     X'32'             INHIBIT IO INTERRUPT
     6783   01 01805    6AF01844              BAL,15   GETQ              FETCH A Q INDEX & LINK Q
     6784   01 01806    68001837              B        NEWQ2             INSERTION ABORT (Q FULL)
     6785   01 01807    6800180A              B        %+3               CONTINUE
     6786         01 01808           NEWQ1    EQU      %                 Q ENTRY ALREADY AVAILABLE
     6787   01 01808    35F01840              STW,15   NEWQX             SAVE RETURN ADDRESS
     6788   01 01809    6D000032 A            WD,0     X'32'             INHIBIT IO INTERRUPTS
     6789   01 0180A    35201979              STW,2    QSCAN             INHIBIT CTR4 Q SCANNING
     6790   01 0180B    B57C17F2              STW,7    *IOQ7,6           SAVE DCT INDEX
     6791   01 0180C    6B500008 A            INT,5    8                 SEPARATE FC
     6792   01 0180D    B55C17F0              STW,5    *IOQ5,6           SAVE FC
     6793   01 0180E    B55C17F1              STW,5    *IOQ6,6           SAVE CURRENT FC
     6794   01 0180F    B59C17F4              STW,9    *IOQ9,6           SAVE BUF
     6795   01 01810    B5AC17F5              STW,10   *IOQ10,6          SAVE SIZE
     6796   01 01811    B5BC17FA              STW,11   *IOQ15,6          SAVE SEEK
     6797   01 01812    7240000C A            LB,4     12                FETCH RETRY COUNT
     6798   01 01813    B54C17F6              STW,4    *IOQ11,6          SAVE RETRY
     6799   01 01814    3250000C A            LW,5     12                FETCH MAX TIME
     6800   01 01815    4B502DD8              AND,5    =X'00FFFFFF'      MASK TIME
     6801   01 01816    B55C17F8              STW,5    *IOQ13,6          SAVE TIME
     6802   01 01817    22400000 A            LI,4     0
     6803   01 01818    B54C17EE              STW,4    *IOQ3,6           CLEAR OPERATION FLAGS
     6804   01 01819    22400080 A            LI,4     X'80'             COMMAND CHAINING FLAG
     6805   01 0181A    31802DE2              CW,8     =X'20000000'      COMMAND  CHAINING SPECIFIED?
     6806   01 0181B    6840181D              BCR,4    %+2               NO
     6807   01 0181C    E64C17EE              AWM,4    *IOQ3,6           SET CC FLAG
     6808   01 0181D    2540007F A            SLS,4    -1                DATA CHAINING FLAG
     6809   01 0181E    31802DE4              CW,8     =X'10000000'      DATA CHAINING SPECIFIED?
     6810   01 0181F    68401821              BCR,4    %+2               NO
     6811   01 01820    E64C17EE              AWM,4    *IOQ3,6           SET DC FLAG
     6812   01 01821    32800008 A            LW,8     8                 TEST DUAL ACCESS (DA) PARAMETER
     6813   01 01822    6910183A              BLZ      NEWQ3             SET - SAVE DUAL ACCESS B PARAMETERS
     6814   01 01823    EB5E17D6              INT,5    *DCT1,7           FETCH DUAL ACCESS A DEVICE ADDRESS
     6815   01 01824    B55C17F3              STW,5    *IOQ8,6           SAVE DEV ADDRESS
     6816   01 01825    B24E17D8              LW,4     *DCT3,7           FETCH DUAL  ACCESS A CIT INDEX
     6817   01 01826    B54C17EF              STW,4    *IOQ4,6           SAVE DUAL ACCESS A CIT INDEX
     6818   01 01827    22400000 A   NEWQ5    LI,4     0
     6819   01 01828    6B500008 A            INT,5    8                 FETCH DEP
     6820   01 01829    6840182B              BCR,4    %+2               NOT DEPENDENT OPERATION-BIPASS DEP
     6821   01 0182A    20400004 A            AI,4     4                 DEP FLAG                FLAG GEN
     6822   01 0182B    E64C17EE              AWM,4    *IOQ3,6           SAVE DA,DEP FLAGS
     6823   01 0182C    15601842              STD,6    NEWQSAV           SAVE IOQ,DCT INDEXES
     6824   01 0182D    311019D6              CW,1     FASTMODE          FAST MODE?
     6825   01 0182E    69301834              BNE      NEWQ4             NO
     6826   01 0182F    B24E17DC              LW,4     *DCT7,7           DEVICE PREHANDLER ADDRESS
     6827   01 01830    EAF00004 A            BAL,15   *4                GO TO PREHANDLER
     6828   01 01831    68001833              B        %+2               OPERATION TO BE STARTED
     6829   01 01832    6AF01865              BAL,15   RELQ              REMOVE OPERATION FROM Q
     6830   01 01833    B50C17F7              STW,0    *IOQ12,6          SAVE DA(IOCD)
     6831   01 01834    6AF018CA     NEWQ4    BAL,15   SERVICEQ          CALL SERVICE FOR POSSIBLE START OPER
     6832   01 01835    12601842              LD,6     NEWQSAV           RESTORE IOQ, DCT INDEXES
     6833   01 01836    33101840              MTW,1    NEWQX             INCR RETURN ADDRESS (REQUEST INS.)
     6834   01 01837    6D000022 A   NEWQ2    WD,0     X'22'             RESET IO INTERRUPT INHIBIT
     6835   01 01838    35101979              STW,1    QSCAN             RESTORE CTR4 Q SCAN
     6836   01 01839    E8001840              B        *NEWQX            EXIT
     6837   01 0183A    B24E17D7     NEWQ3    LW,4     *DCT2,7           FETCH DUAL ACCESS B DEVICE ADDRESS
     6838   01 0183B    B54C17F3              STW,4    *IOQ8,6           SAVE DEV ADDRESS
     6839   01 0183C    B24E17D9              LW,4     *DCT4,7           FETCH DUAL ACCESS B CIT INDEX
     6840   01 0183D    B54C17EF              STW,4    *IOQ4,6           SAVE DUAL ACCESS B CIT INDEX
     6841   01 0183E    22400008 A            LI,4     8                 DUAL ACCESS FLAG
     6842   01 0183F    68001828              B        NEWQ5+1           CONTINUE
     6843                            *
     6844   01 01840    00000000 A   NEWQX    DATA     0                 RETURN ADDRESS SAVE
     6845                                     BOUND    8
     6846   01 01842                 NEWQSAV  RES      2                 IOQ, DCT INDEX SAVE
     6847                            *
     6848                            *                 *************
     6849                            *                 *  G E T Q  *
     6850                            *                 *************
     6851                            *
     6852                            * DESCRIPTION: THIS ROUTINE FETCHES AND LINKS A Q FOR THE REQUESTED
     6853                            * OPERATION.
     6854                            *
     6855                            * CALL:       BAL,15   GETQ         FETCH AND LINK A Q
     6856                            * PARAMETERS: (R7)=DCT     32       DEVICE CONTROL TABLE INDEX
     6857                            *             (R8)=DA,-,-  1,1,30   DUAL ACCESS
     6858                            * RETURN:     CALL+1                Q FULL
     6859                            *             CALL+2                Q OBTAINED AND LINKED
     6860                            * PARAMETERS: (R6)=IOQ              IOQ TABLE INDEX
     6861                            *             (R7,R8)=(SAME)
     6862                            *
     6863                            * REGISTERS USED: R4,R5,R13
     6864                            *
     6865         01 01844           GETQ     EQU      %                 FETCH AND LINK A Q
     6866   01 01844    22401060 A            LI,4     X'1060'
     6867   01 01845    6D401500 A            WD,4     X'1500'           DISABLE IO, CTR4 INTERRUPTS
     6868   01 01846    B24E17D8              LW,4     *DCT3,7           FETCH DUAL ACCESS A CIT INDEX
     6869   01 01847    32800008 A            LW,8     8                 TEST DA FOR DUAL ACCESS B
     6870   01 01848    6810184A              BGEZ     %+2               DUAL ACCESS A
     6871   01 01849    B24E17D9              LW,4     *DCT4,7           FETCH DUAL ACCESS B CIT INDEX
     6872   01 0184A    B2581800              LW,5     *CIT5,4           FETCH CURRENT # OF Q ENTRIES
     6873   01 0184B    B1581801              CW,5     *CIT6,4           COMPARE TO MAX ALLOWABLE Q ENTRIES
     6874   01 0184C    68101862              BGE      GETQ3             EXIT-Q FULL
     6875   01 0184D    B2681802              LW,6     *CIT7,4           FETCH CHANNEL'S STARTING Q INDEX
     6876   01 0184E    B2581801              LW,5     *CIT6,4           FETCH MAX # OF Q ENTRIES
     6877   01 0184F    B2DC17EC              LW,13    *IOQ1,6           IS THIS Q ENTRY FREE?
     6878   01 01850    69101855              BLZ      GETQ1             YES-GO TO LINK
     6879   01 01851    33100006 A            MTW,1    6                 INCR CURRENT IOQ INDEX
     6880   01 01852    6450184F              BDR,5    %-3               LOOP TO TEST NEXT Q ENTRY
     6881   01 01853    EAF0022B              BAL,15   *:WAIT            *** PROGRAM ERROR ***
     6882   01 01854    000012AB              DATA     T3WAITM                                            A02
     6883   01 01855    B25817FD     GETQ1    LW,5     *CIT2,4           DOES A HEAD-OF-Q EXIST?
     6884   01 01856    69201858              BGZ      %+2               YES
     6885   01 01857    B56817FD              STW,6    *CIT2,4           ESTABLISH HEAD-OF-Q
     6886   01 01858    B25817FE              LW,5     *CIT3,4           TAIL-OF-Q
     6887   01 01859    B55C17EC              STW,5    *IOQ1,6           SET PREVIOUS Q
     6888   01 0185A    B56A17ED              STW,6    *IOQ2,5           SET NEXT Q
     6889   01 0185B    22500000 A            LI,5     0
     6890   01 0185C    B55C17ED              STW,5    *IOQ2,6           SET NEXT Q TO NULL
     6891   01 0185D    B56817FE              STW,6    *CIT3,4           SET TAIL-OF-Q
     6892   01 0185E    32502DE4              LW,5     =X'10000000'      BIT 3
     6893   01 0185F    B55C17EE              STW,5    *IOQ3,6           SET INTER OP
     6894   01 01860    B3181800              MTW,1    *CIT5,4           INCR CURRENT # OF ENTRIES
     6895   01 01861    20F00001 A            AI,15    1                 EXIT+1
     6896   01 01862    22401060 A   GETQ3    LI,4     X'1060'
     6897   01 01863    6D401400 A            WD,4     X'1400'           ENABLE IO, CTR4 INTERRUPTS
     6898   01 01864    E800000F A            B        *15               EXIT
     6899                            *
     6900                            *                 *************
     6901                            *                 *  R E L Q  *
     6902                            *                 *************
     6903                            *
     6904                            * DESCRIPTION: THIS ROUTINE REMOVES A Q ENTRY FROM THE CHANNEL'S Q AND
     6905                            * RELEASES ALL BUFFERS ASSIGNED TO THE Q ENTRY.
     6906                            *
     6907                            * CALL:       BAL,15  RELQ          REMOVE THE Q ENTRY
     6908                            * PARAMETERS: (R6)=IOQ          32  IOQ TABLE INDEX
     6909                            * RETURN:     CALL+1                Q ENTRY REMOVED
     6910                            * PARAMETERS: (R6)=IOQ              IOQ TABLE INDEX
     6911                            *
     6912                            * REGISTERS USED: R4,R5,R14
     6913                            *
     6914         01 01865           RELQ     EQU      %                 REMOVE Q ENTRY
     6915   01 01865    22401060 A            LI,4     X'1060'
     6916   01 01866    6D401500 A            WD,4     X'1500'           DISABLE CTR4, IO INTERRUPTS
     6917   01 01867    1580188E              STD,8    RELQX             SAVE R8,9
     6918   01 01868    15E01890              STD,14   RELQX+2                R14,15
     6919   01 01869    B24C17EC              LW,4     *IOQ1,6           PREVIOUS Q INDEX
     6920   01 0186A    B25C17ED              LW,5     *IOQ2,6           NEXT Q INDEX
     6921   01 0186B    B55817ED              STW,5    *IOQ2,4           REMOVE ENTRY
     6922   01 0186C    B54A17EC              STW,4    *IOQ1,5
     6923   01 0186D    35701890              STW,7    RELQX+2           SAVE R7
     6924   01 0186E    B27C17EF              LW,7     *IOQ4,6           CIT INDEX
     6925   01 0186F    B16E17FD              CW,6     *CIT2,7           ENTRY HEAD-OF-Q
     6926   01 01870    69301872              BNE      %+2               NO
     6927   01 01871    B55E17FD              STW,5    *CIT2,7           SET NEW HEAD-OF-Q
     6928   01 01872    B16E17FE              CW,6     *CIT3,7           ENTRY TAIL-OF-Q
     6929   01 01873    69301875              BNE      %+2               NO
     6930   01 01874    B54E17FE              STW,4    *CIT3,7           INSERT NEW TAIL OF Q
     6931   01 01875    B3FE1800              MTW,-1   *CIT5,7           DECREMENT # OF ENTRIES
     6932   01 01876    224FFFFF A            LI,4     -1
     6933   01 01877    B54C17EC              STW,4    *IOQ1,6           SET ENTRY AS UNUSED
     6934   01 01878    B29C17F4              LW,9     *IOQ9,6           FETCH 1ST BUFFER ADDRESS
     6935   01 01879    6AF01A6E              BAL,15   BUFREL            RELEASE THE BUFFER
     6936   01 0187A    B24C17EE              LW,4     *IOQ3,6           FETCH Q STATUS
     6937   01 0187B    214000C0 A            CI,4     X'C0'             IS CHAINING SPECIFIED?
     6938   01 0187C    68401887              BCR,4    RELQ2             NO
     6939   01 0187D    B28C17F7              LW,8     *IOQ12,6          FETCH DA(IOCD)
     6940   01 0187E    25800001 A            SLS,8    1                 WA(IOCD)
     6941   01 0187F    20800002 A   RELQ1    AI,8     2                 WA(IOCD)+2
     6942   01 01880    B2900008 A            LW,9     *8                MSH IOCD
     6943   01 01881    4B902DD8              AND,9    =X'00FFFFFF'      MASK BA(BUFFER)
     6944   01 01882    2590007E A            SLS,9    -2                WA(BUFFER)
     6945   01 01883    6AF01A6E              BAL,15   BUFREL            RELEASE THE BUFFER
     6946   01 01884    32502DE9              LW,5     =X'A0000000'      BITS 0,2
     6947   01 01885    B1520008 A            CW,5     *8,1              IS CHAINING SPECIFIED?
     6948   01 01886    6940187F              BCS,4    RELQ1             YES-LOOP
     6949   01 01887    1280188E     RELQ2    LD,8     RELQX             RESTOE R8,9
     6950   01 01888    12E01890              LD,14    RELQX+2           RESTORE R14,15
     6951   01 01889    32701890              LW,7     RELQX+2           RESTORE R7
     6952   01 0188A    22401060 A            LI,4     X'1060'
     6953   01 0188B    6D401400 A            WD,4     X'1400'           ENABLE CTR4, IO INTERRUPTS
     6954   01 0188C    E800000F A            B        *15               EXIT-Q ENTRY UNLINKED
     6955                            *
     6956                                     BOUND    8
     6957   01 0188E                 RELQX    RES      4                 REGISTER SAVE
     6958                            *
     6959                            *
     6960                            *                 *******************
     6961                            *                 *  S T A R T I O  *
     6962                            *                 *******************
     6963                            *
     6964                            * DESCRIPTION: THIS ROUTINE CALLS THE PRE-HANDLER AND STARTS THE
     6965                            * OPERATION (ISSUES THE SIO).
     6966                            *
     6967                            * CALL:       BAL,15  STARTIO       START IO OPERATION
     6968                            * PARAMETERS: (R6)=IOQ          32  IOQ TABLE INDEX
     6969                            *             (R7)=DCT          32  DCT INDEX
     6970                            * RETURN:     CALL+1                SIO REJECTED
     6971                            *             CALL+2                OPERATION REMOVED FROM Q
     6972                            *             CALL+3                SIO ACCEPTED
     6973                            * PARAMETERS: (R6,R7)=(SAME)
     6974                            *
     6975                            * REGISTERS USED: R4,R5,R13,R15
     6976                            *
     6977         01 01892           STARTIO  EQU      %                 START IO
     6978   01 01892    35F018C9              STW,15   STARTIOX          SAVE RETURN ADDRESS
     6979   01 01893    B24E17DC              LW,4     *DCT7,7           FETCH DEVICE PRE-HANDLER ADDRESS
     6980   01 01894    EAF00004 A            BAL,15   *4                CALL PRE-HANDLER
     6981   01 01895    68001898              B        STARTIO2          START THE OPERATION
     6982   01 01896    6AF01865              BAL,15   RELQ              REMOVE OPERATION FROM Q
     6983   01 01897    E80218C9              B        *STARTIOX,1       EXIT
     6984   01 01898    356019D7     STARTIO2 STW,6    FASTIOQ           SAVE CURRENT IOQ (FAST MODE USAGE)
     6985   01 01899    B50C17F7              STW,0    *IOQ12,6          SAVE DA(IOCD)
     6986   01 0189A    7240000C A            LB,4     12                FETCH RETRY COUNT
     6987   01 0189B    B54C17F6              STW,4    *IOQ11,6          SAVE RETRY
     6988   01 0189C    3250000C A            LW,5     12                FETCH MAX TIME
     6989   01 0189D    4B502DD8              AND,5    =X'00FFFFFF'      MASK TIME
     6990   01 0189E    B55C17F8              STW,5    *IOQ13,6          SAVE TIME
     6991   01 0189F    6B500008 A            INT,5    8                 SEPARATE DA,DEP,FC
     6992   01 018A0    B55C17F1              STW,5    *IOQ6,6           SAVE CURRENT FC
     6993   01 018A1    B24C17EE              LW,4     *IOQ3,6           IOQ STATUS FLAGS
     6994   01 018A2    31402DF5              CW,4     =X'08000000'      UNRECOVERABLE ERROR?
     6995   01 018A3    684018A5              BCR,4    %+2               NO
     6996   01 018A4    B55C17F0              STW,5    *IOQ5,6           SET FC AS ORIGINAL FC
     6997   01 018A5    4B402E15              AND,4    =X'27FFFFE8'      RESET DATA CK,INTER-OP,BUSY,
     6998   01 018A6    6B500008 A            INT,5    8                 SEPARATE FC
     6999   01 018A7    684018A9              BCR,4    %+2               NOT DEPENDENT OPER     SIO REJECT,
     7000   01 018A8    20400004 A            AI,4     4                 SET DEP FLAG           TIMEOUT
     7001   01 018A9    30402DD6              AW,4     =X'40000000'      SET REQUEST SERVICED
     7002   01 018AA    B54C17EE              STW,4    *IOQ3,6           SAVE FLAGS
     7003   01 018AB    B24E17DB              LW,4     *DCT6,7           DCT STATUS FLAGS
     7004   01 018AC    4B402E16              AND,4    =X'8FFFFFFC'      RESET TIMEOUT,SIO REJECT, DEV BUSY,
     7005   01 018AD    B54E17DB              STW,4    *DCT6,7           SAVE FLAGS              INTER-OP
     7006   01 018AE    B2DC17F3              LW,13    *IOQ8,6           FETCH DEVICE ADDRESS
     7007   01 018AF    35D019D9              STW,13   FASTADR           SAVE CURRENT DEVICE ADDRESS (FAST
     7008   01 018B0    35D01B60              STW,13   DEVADDR           SAVE DEV ADDR FOR INTER/TRAP HANDLER
     7009   01 018B1    CC40000D A            SIO,4    *13               ISSUE SIO                     MODE)
     7010   01 018B2    69C018C0              BCS,12   STARTIO1          SIO REJECTED
     7011   01 018B3    32401986              LW,4     CURTIME           FETCH CURRENT TIME
     7012   01 018B4    B54C17F9              STW,4    *IOQ14,6          SAVE OPERATION START TIME
     7013   01 018B5    32D02DF7              LW,13    =X'C0000000'      BITS 0,1
     7014   01 018B6    C7DC17EE              STS,13   *IOQ3,6           SET REQUEST BUSY, REQUEST SERVICED
     7015   01 018B7    B25C17EF              LW,5     *IOQ4,6           FETCH CIT INDEX
     7016   01 018B8    32D02DD4              LW,13    =X'80000000'      BIT 0
     7017   01 018B9    C7DA17FF              STS,13   *CIT4,5           SET CHANNEL TO BUSY
     7018   01 018BA    32D02DD6              LW,13    =X'40000000'      BIT 1
     7019   01 018BB    6B500008 A            INT,5    8                 TEST DUAL ACCESS (DA)
     7020   01 018BC    688018BE              BCR,8    %+2               DUAL ACCESS A
     7021   01 018BD    25D0007F A            SLS,13   -1                DUAL ACCESS B
     7022   01 018BE    C7DE17DB              STS,13   *DCT6,7           SET DCT DEVICE BUSY FLAG
     7023   01 018BF    E80418C9              B        *STARTIOX,2       EXIT-OPERATION STARTED (SIO ACCEPTED)
     7024   01 018C0    74040005 A   STARTIO1 STCF     5,2               MERGE CC1-4   INTO STATUS
     7025   01 018C1    B55E17E2              STW,5    *DCT13,7          SAVE SIO STATUS, CC1-4
     7026   01 018C2    CE50000D A            TDV,5    *13               ISSUE TDV
     7027   01 018C3    7400000D A            STCF     13                MOVE CC1-4
     7028   01 018C4    B55E17E0              STW,5    *DCT11,7          SAVE TDV STATUS
     7029   01 018C5    B5DE17E1              STW,13   *DCT12,7          SAVE TDV CC1-4
     7030   01 018C6    C71C17EE              STS,1    *IOQ3,6           SET IOQ SIO REJECT
     7031   01 018C7    C71E17DB              STS,1    *DCT6,7           SET DCT SIO REJECT
     7032   01 018C8    E80018C9              B        *STARTIOX         EXIT-SIO REJECTED
     7033                            *
     7034   01 018C9    00000000 A   STARTIOX DATA     0                 RETURN ADDRESS SAVE
     7035                            *
     7036                            *
     7037                            *                *******************
     7038                            *                *  S E R V I C E  *
     7039                            *                *******************
     7040                            *
     7041                            * DESCRIPTION: THIS ROUTINE HANDLES THE  NEW OPERATION, IO INTERRUPT
     7042                            * AND RETRY OPERATIONS.
     7043                            *
     7044                            * CALL:       BAL,15   SERVICEQ     REQUEST AN OPERATION START
     7045                            * PARAMETERS: (R6)=IOQ           32 IOQ TABLE INDEX
     7046                            *             (R7)=DCT           32 DCT INDEX
     7047                            * RETURN:     CALL+1                RETURN
     7048                            * PARAMETERS: (VARIABLE)
     7049                            *
     7050                            * CALL:       BAL,15   SERVICEI     REQUEST A CLEANUP
     7051                            * PARAMETERS: (R6)=IOQ OR 0      32 IOQ TABLE INDEX (OR 0 IF NONE)
     7052                            *             (R7)=DCT OR 0      32 DCT INDEX (OR 0 IF NONE)
     7053                            * RETURN:     CALL+1                RETURN
     7054                            * PARAMETERS: (VARIABLE)
     7055                            *
     7056                            * REGISTERS USED: R4,R5,R13,R15
     7057                            *
     7058         01 018CA           SERVICEQ EQU      %                 PERFORM OPERATION STARTUP (IF POSSIBLE)
     7059   01 018CA    35F018FD              STW,15   SERVICEX          SAVE RETURN ADDRESS
     7060   01 018CB    680018DC              B        SERV3             GO TO TEST CHANNEL,DEVICE,OPER FOR
     7061         01 018CC           SERVICEI EQU      %                 PERFORM CLEANUP             STARTUP
     7062   01 018CC    35F018FD              STW,15   SERVICEX          SAVE RETURN ADDRESS
     7063   01 018CD    6AF01900     SERV1    BAL,15   CLEANUP           PERFORM CLEANUP
     7064   01 018CE    680018DC              B        SERV3             NO RETRY OR FOLLOW-ON REQUIRED
     7065   01 018CF    6AF01892     SERV2    BAL,15   STARTIO           PERFORM STARTUP
     7066   01 018D0    680018CD              B        SERV1             SIO REJECTED-GO TO CLEANUP
     7067   01 018D1    680018DC              B        SERV3             OPERATION HAS BEEN REMOVED
     7068   01 018D2    311019D6              CW,1     FASTMODE          FAST MODE?
     7069   01 018D3    693018DC              BNE      SERV3             NO
     7070   01 018D4    22400000 A            LI,4     0                 0
     7071   01 018D5    EB5C17EE              INT,5    *IOQ3,6           RETRY IN PROGRESS?
     7072   01 018D6    692018DA              BCS,2    SERV21            YES-BIPASS SPECIFYING NEXT IOCD
     7073   01 018D7    B26C17ED              LW,6     *IOQ2,6           NEXT ENTRY EXIST?
     7074   01 018D8    683018DA              BEZ      SERV21            NO
     7075   01 018D9    B24C17F7              LW,4     *IOQ12,6          FETCH ITS IOCD
     7076   01 018DA    354019D8     SERV21   STW,4    FASTIOCD          SAVE AS NEXT IOCD (OR CLEAR NEXT IOCD)
     7077   01 018DB    E80018FD              B        *SERVICEX         EXIT
     7078   01 018DC    32600006 A   SERV3    LW,6     6                 IS THE IOQ SPECIFIED?
     7079   01 018DD    E83018FD              BEZ      *SERVICEX         NO-EXIT
     7080   01 018DE    B24C17EF     SERV31   LW,4     *IOQ4,6           FETCH ITS CIT INDEX
     7081   01 018DF    B24817FC              LW,4     *CIT1,4           FETCH NEXT CIT INDEX
     7082   01 018E0    693018E2              BNEZ     %+2               NOT LAST
     7083   01 018E1    22400001 A   SERV32   LI,4     1                 STARTING CIT INDEX
     7084   01 018E2    354018FE              STW,4    SERVCIT           SAVE
     7085   01 018E3    354018FF              STW,4    SERVCITC          SAVE AS CURRENT CIT INDEX
     7086   01 018E4    B30817FF     SERV4    MTW,0    *CIT4,4           TEST CHANNEL  STATUS
     7087   01 018E5    691018F5              BLZ      SERV8             CHANNEL BUSY
     7088   01 018E6    B26817FD     SERV5    LW,6     *CIT2,4           FETCH HEAD-OF-Q
     7089   01 018E7    683018F5              BEZ      SERV8             NO HEAD EXISTS
     7090   01 018E8    EB5C17EE     SERV7    INT,5    *IOQ3,6           TEST STATUS FLAGS
     7091   01 018E9    69D018F3              BCS,13   SERV6             REQUEST CANNOT BE STARTED
     7092   01 018EA    B27C17F2              LW,7     *IOQ7,6           FETCH DCT INDEX
     7093   01 018EB    EBDE17DB              INT,13   *DCT6,7           TEST STATUS FLAGS
     7094   01 018EC    697018F3              BCS,7    SERV6             REQUEST CANNOT BE STARTED
     7095   01 018ED    21D0000C A            CI,13    X'C'              DEVICE RESERVED?
     7096   01 018EE    684018CF              BCR,4    SERV2             NO-GO TO START
     7097   01 018EF    25D00001 A            SLS,13   1                 ADJUST
     7098   01 018F0    C8DC17EE              EOR,13   *IOQ3,6           MATCH IOQ,DCT DUAL ACCESS FLAGS
     7099   01 018F1    21D00008 A            CI,13    8                 MATCH ?
     7100   01 018F2    684018CF              BCR,4    SERV2             YES-GO TO START OPERATION
     7101   01 018F3    B26C17ED     SERV6    LW,6     *IOQ2,6           FETCH NEXT REQUEST
     7102   01 018F4    693018E8              BNEZ     SERV7             NOT LAST - LOOP
     7103   01 018F5    324018FF     SERV8    LW,4     SERVCITC          FETCH CURRENT CIT INDEX
     7104   01 018F6    B24817FC              LW,4     *CIT1,4           FETCH NEXT CIT INDEX
     7105   01 018F7    693018F9              BNEZ     %+2               NOT LAST
     7106   01 018F8    22400001 A            LI,4     1                 STARTING CIT INDEX
     7107   01 018F9    354018FF              STW,4    SERVCITC          SAVE AS CURRENT CIT INDEX
     7108   01 018FA    314018FE              CW,4     SERVCIT           LAST CIT TO SCAN?
     7109   01 018FB    693018E4              BNE      SERV4             NO-LOOP
     7110   01 018FC    E80018FD              B        *SERVICEX         EXIT
     7111                            *
     7112   01 018FD    00000000 A   SERVICEX DATA     0                 RETURN ADDRESS SAVE
     7113   01 018FE    00000000 A   SERVCIT  DATA     0                 STARTING CIT INDEX
     7114   01 018FF    00000000 A   SERVCITC DATA     0                 CURRENT CIT INDEX
     7115                            *
     7116                            *                 *******************
     7117                            *                 *  C L E A N U P  *
     7118                            *                 *******************
     7119                            *
     7120                            * DESCRIPTION: THIS ROUTINE HANDLES THE CLEANUP OPERATION.
     7121                            *
     7122                            * CALL:       BAL,15  CLEANUP       PERFORM CLEANUP
     7123                            * PARAMETERS: (R6)=IOQ OR 0    32   IOQ TABLE INDEX
     7124                            *             (R7)=DCT OR 0    32   DCT INDEX
     7125                            * RETURN:     CALL+1                NO RETRY OR FOLLOW-ON REQUIRED
     7126                            *             CALL+2                RETRY    OR FOLLOW-ON REQUIRED
     7127                            * PARAMETERS: (R6,R7)=(SAME)
     7128                            *             (R10)=TTYPE      32   TERMINATION TYPE
     7129                            *
     7130                            * REGISTERS USED: R4,R5,R14,R15
     7131                            *
     7132         01 01900           CLEANUP  EQU      %                 PERFORM CLEANUP
     7133   01 01900    35F01942              STW,15   CLEANUPX          SAVE RETURN ADDRESS
     7134   01 01901    22400000 A            LI,4     0
     7135   01 01902    354019D8              STW,4    FASTIOCD          CLEAR FAST MODE 'NEXT IOCD'
     7136   01 01903    B24E17DD              LW,4     *DCT8,7           FETCH POST-HANDLER ADDRESS
     7137   01 01904    32700007 A            LW,7     7                 IS THE DCT SPECIFIED?
     7138   01 01905    69301907              BNEZ     %+2               YES
     7139   01 01906    B24217DD              LW,4     *DCT8,1           FETCH FIRST POST HANDLER ADDR
     7140   01 01907    EAF00004 A            BAL,15   *4                CALL POST-HANDLER FOR THIS DEVICE
     7141   01 01908    6800192C              B        CLEAN6            RETRY OR FOLLOW-ON REQUESTED
     7142   01 01909    22E00000 A            LI,14    0                 MASK
     7143   01 0190A    32600006 A            LW,6     6                 IS IOQ INDEX = 0 ?
     7144   01 0190B    E8301942              BEZ      *CLEANUPX         EXIT-OPER NOT IN Q
     7145   01 0190C    21A00000 A            CI,10    0                 CLEANUP TYPE 0 ?
     7146   01 0190D    69301916              BNE      CLEAN3            NO
     7147   01 0190E    6AF01865              BAL,15   RELQ              REMOVE REQUEST FROM Q
     7148   01 0190F    22E00000 A            LI,14    0
     7149   01 01910    32F02E17     CLEAN1   LW,15    =X'70000000'      MASK
     7150   01 01911    C7EE17DB              STS,14   *DCT6,7           RESET DEVICE BUSY
     7151   01 01912    B24C17EF              LW,4     *IOQ4,6           FETCH CIT INDEX
     7152   01 01913    32F02DD4     CLEAN2   LW,15    =X'80000000'      BIT 0
     7153   01 01914    C7E817FF              STS,14   *CIT4,4           RESET CHANNEL BUSY
     7154   01 01915    E8001942              B        *CLEANUPX         EXIT OR EXIT+1 (FOLLOW-ON)
     7155   01 01916    21A00001 A   CLEAN3   CI,10    1                 CLEANUP TYPE 1 ?
     7156   01 01917    6930191D              BNE      CLEAN4            NO
     7157   01 01918    B25C17EE              LW,5     *IOQ3,6           FETCH IOQ STATUS
     7158   01 01919    4B502E18              AND,5    =X'47FFFFCC'      UPDATE STATUS
     7159   01 0191A    20500010 A            AI,5     X'10'             SET DATA CHK
     7160   01 0191B    B55C17EE              STW,5    *IOQ3,6           SAVE STATUS
     7161   01 0191C    68001910              B        CLEAN1            CONTINUE
     7162   01 0191D    21A00002 A   CLEAN4   CI,10    2                 CLEANUP TYPE 2 ?
     7163   01 0191E    69301926              BNE      CLEAN5            NO
     7164   01 0191F    32F02DE4              LW,15    =X'10000000'      BIT 3
     7165   01 01920    C7FE17DB              STS,15   *DCT6,7           SET INTER-OP
     7166   01 01921    B25C17EE              LW,5     *IOQ3,6           FETCH IOQ STATUS
     7167   01 01922    4B502E19              AND,5    =X'F7FFFFCC'      RESET FOLLOW-ON, SIO REJ,TIMEOUT
     7168   01 01923    49502DE4              OR,5     =X'10000000'      SET INTER-OP
     7169   01 01924    B55C17EE              STW,5    *IOQ3,6           SAVE STATUS
     7170   01 01925    68001912              B        CLEAN2-1          CONTINUE
     7171   01 01926    B25C17EE     CLEAN5   LW,5     *IOQ3,6           FETCH IOQ STATUS
     7172   01 01927    4B502E1A              AND,5    =X'07FFFFCC'      RESET REQ BUSY
     7173   01 01928    20500020 A            AI,5     X'20'             SET FOLLOW-ON
     7174   01 01929    B55C17EE              STW,5    *IOQ3,6           SAVE STATUS
     7175   01 0192A    33101942              MTW,1    CLEANUPX          SET EXIT+1
     7176   01 0192B    68001910              B        CLEAN1            CONTINUE
     7177   01 0192C    22E00000 A   CLEAN6   LI,14    0                 MASK
     7178   01 0192D    21A00001 A            CI,10    1                 CLEANUP TYPE 1?
     7179   01 0192E    68301938              BE       CLEAN9            YES-BIPASS DECREMENTING RETRY COUNT
     7180   01 0192F    B3FC17F6              MTW,-1   *IOQ11,6          DECREMENT RETRY COUNT
     7181   01 01930    68101938              BGEZ     CLEAN9            RETRY COUNT => 0
     7182   01 01931    B24C17EE              LW,4     *IOQ3,6           IOQ STATUS
     7183   01 01932    4B402E1B              AND,4    =X'4FFFFFFF'      RESET REQUEST BUSY,RETRY,INTER-OP
     7184   01 01933    49402DF5              OR,4     =X'08000000'      SET UNRECOVERABLE ERROR
     7185   01 01934    B54C17EE              STW,4    *IOQ3,6           SAVE
     7186   01 01935    32F02DD4              LW,15    =X'80000000'      BIT 0
     7187   01 01936    C7FE17DB              STS,15   *DCT6,7           SET UNRECOVERABLE ERROR IN DCT STATUS
     7188   01 01937    6800193B              B        CLEAN10           CONTINUE
     7189   01 01938    32F02E1C     CLEAN9   LW,15    =X'B0000033'      MASK
     7190   01 01939    32E02DE2              LW,14    =X'20000000'      RETRY BIT
     7191   01 0193A    C7EC17EE              STS,14   *IOQ3,6           SET RETRY
     7192   01 0193B    B24C17EF     CLEAN10  LW,4     *IOQ4,6           FETCH CIT INDEX
     7193   01 0193C    22E00000 A            LI,14    0
     7194   01 0193D    32F02DD4              LW,15    =X'80000000'      BIT 0
     7195   01 0193E    C7E817FF              STS,14   *CIT4,4           RESET CIT CHANNEL BUSY
     7196   01 0193F    32F02E17              LW,15    =X'70000000'      BITS 1,2,3
     7197   01 01940    C7EE17DB              STS,14   *DCT6,7           RESET DCT DEVICE BUSY
     7198   01 01941    E8021942              B        *CLEANUPX,1       EXIT-RETRY REQUIRED
     7199                            *
     7200   01 01942    00000000 A   CLEANUPX DATA     0                 RETURN ADDRESS SAVE
     7201                                     BOUND    8
     7202   01 01944                 CLEANUPR RES      2                 REGISTER SAVE
     7203                            *
     7204                            *                 *******************
     7205                            *                 *  C T R 4 I N T  *
     7206                            *                 *******************
     7207                            *
     7208                            * DESCRIPTION: THIS ROUTINE HANDLES THE CTR4=0 INTERRUPT AND CHECKS
     7209                            * ALL BUSY REQUESTS FOR TIMEOUT.
     7210                            *
     7211                            * CALL:      XPSD AT X'5B'          RECEIVE CTR4=0 INTERRUPT
     7212                            * PARAMETERS:(NONE)
     7213                            * RETURN:    LPSD                   EXIT, CLEARING INTERRUPT
     7214                            * PARAMETERS:(NONE)
     7215                            *
     7216                            * REGISTERS USED: R4-R11,R15
     7217                            *
     7218         01 01946           CTR4INT  EQU      %                 HANDLE CTR4=0 INTERRUPT
     7219   01 01946    2B40197A              STM,4    CTR4INTX          SAVE REG.
     7220   01 01947    32501987              LW,5     CTR4TB            FETCH TIME BETWEEN CTR4=0'S
     7221   01 01948    66501986              AWM,5    CURTIME           INCREMENT CURRENT TIME
     7222   01 01949    31101979              CW,1     QSCAN             IS SCANNING PERMITTED?
     7223   01 0194A    6930195A              BNE      CTR45             NO
     7224   01 0194B    22400001 A            LI,4     1                 STARTING CIT INDEX
     7225   01 0194C    B26817FD     CTR41    LW,6     *CIT2,4           FETCH STARTING IOQ INDEX
     7226   01 0194D    68301958              BEZ      CTR44             Q EMPTY
     7227   01 0194E    B25C17EE     CTR42    LW,5     *IOQ3,6           FETCH IOQ STATUS
     7228   01 0194F    68101956              BGEZ     CTR43             Q ENTRY NOT BUSY
     7229   01 01950    B27C17F2              LW,7     *IOQ7,6           FETCH DCT INDEX
     7230   01 01951    EB5E17DB              INT,5    *DCT6,7           FETCH DCT STATUS
     7231   01 01952    68601956              BCR,6    CTR43             DEVICE NOT BUSY
     7232   01 01953    3A501987              LCW,5    CTR4TB            TIME BETWEEN CTR4=0 INTER.
     7233   01 01954    E65C17F8              AWM,5    *IOQ13,6          DECR CURRENT TIME FOR REQUEST
     7234   01 01955    69101960              BLZ      CTR46             TIMEOUT
     7235   01 01956    B26C17ED     CTR43    LW,6     *IOQ2,6           FETCH NEXT Q ENTRY
     7236   01 01957    6920194E              BGZ      CTR42             NOT END - LOOP
     7237   01 01958    B24817FC     CTR44    LW,4     *CIT1,4           FETCH NEXT CIT
     7238   01 01959    6930194C              BNEZ     CTR41             NOT LAST - LOOP
     7239   01 0195A    32401987     CTR45    LW,4     CTR4TB            CTR4 TIME
     7240   01 0195B    2540007F A            SLS,4    -1                ADJUST
     7241   01 0195C    35401978              STW,4    CTR4TIME          RE-ESTABLISH DECR VALUE  FOR CTR4
     7242   01 0195D    022000C0 A            LCI      12
     7243   01 0195E    2A40197A              LM,4     CTR4INTX          RESTORE REG.
     7244   01 0195F    0E301972              LPSD,3   CTR4PSD           EXIT CTR4INT HANDLER
     7245   01 01960    6D000032 A   CTR46    WD,0     X'32'             INHIBIT IO INTERRUPT
     7246   01 01961    B25C17F3              LW,5     *IOQ8,6           FETCH DEVICE ADDRESS
     7247   01 01962    35501B60              STW,5    DEVADDR           SAVE DEV ADDR FOR INTER/TRAP HANDLER
     7248   01 01963    CDC00005 A            TIO,12   *5                ISSUE TIO
     7249   01 01964    7402000A A            STCF     10,1              SAVE CC1-4
     7250   01 01965    CE900005 A            TDV,9    *5                ISSUE TDV
     7251   01 01966    7400000A A            STCF     10                SAVE CC1-4
     7252   01 01967    55D2000A A            STH,13   10,1              MERGE BYTE COUNT
     7253   01 01968    52D0000D A            LH,13    13
     7254   01 01969    55D20009 A            STH,13   9,1               MERGE TDV, TIO STATUS
     7255   01 0196A    B5CE17DE              STW,12   *DCT9,7           SAVE CURRENT COMMAND ADDRESS
     7256   01 0196B    B59E17E0              STW,9    *DCT11,7          SAVE TIO, TDV STATUS
     7257   01 0196C    B5AE17E1              STW,10   *DCT12,7          SAVE TIO,TDV CC1-4   AND BYTE COUNT
     7258   01 0196D    CF000005 A            HIO,0    *5                ISSUE HIO TO HALT DEVICE
     7259   01 0196E    C72C17EE              STS,2    *IOQ3,6           SET TIMEOUT
     7260   01 0196F    6AF018CC              BAL,15   SERVICEI          CALL SERVICE FOR CLEANUP
     7261   01 01970    6D000022 A            WD,0     X'22'             RESET IO INTERRUPT INHIBIT
     7262   01 01971    6800195A              B        CTR45             GO TO EXIT
     7263                            *
     7264                                     BOUND    8
     7265   01 01972    00000000 A   CTR4PSD  DATA     0,0
            01 01973    00000000 A
     7266   01 01974    C0001946              GEN,4,28 12,CTR4INT
     7267   01 01975    00000000 A            GEN,32   0
     7268   01 01976    33F01978     CTR4MTW  MTW,-1   CTR4TIME          X'55' MTW INSTR.
     7269   01 01977    0F001972     CTR4XPSD XPSD,0   CTR4PSD           X'5B' XPSD INSTR.
     7270   01 01978    00000000 A   CTR4TIME DATA     0                 DECREMENTING CTR4 PULSE VALUE
     7271   01 01979    00000001 A   QSCAN    DATA     1                 IOQ SCAN FLAG (1=SCAN,2=NO SCAN).
     7272   01 0197A                 CTR4INTX RES      12                REG SAVE
     7273   01 01986    00000000 A   CURTIME  DATA     0                 CURRENT TIME
     7274   01 01987    00000000 A   CTR4TB   DATA     0                 CTR4 TIME BETWEEN INTERRUPTS
     7275                            *
     7276                            *                 *****************
     7277                            *                 *  I O I N T F  *
     7278                            *                 *****************
     7279                            *
     7280                            * DESCRIPTION: THIS ROUTINE HANDLES THE IO INTERRUPT IN THE FAST MODE
     7281                            * AND ISSUES AN SIO TO START THE NEXT OPERATION.
     7282                            *
     7283                            * CALL:       XPSD AT X'5C'         RECEIVE IO INTERRUPT
     7284                            * PARAMETERS: (NONE)
     7285                            * RETURN:     LPSD                  CLEAR INTERRUPT
     7286                            * PARAMETERS: (R6)=IOQ          32  IOQ TABLE INDEX
     7287                            *             (R7)=DCT          32  DCT INDEX
     7288                            *
     7289                            * REGISTERS USED: R0,R4-R7,R13     R0 AND R13 ARE VOLATILE
     7290                            *
     7291         01 01988           IOINTF   EQU      %                 IO INTERRUPT HANDLER
     7292   01 01988    6ED00000 A            AIO,13   0                 ISSUE AIO
     7293   01 01989    740019DA              STCF     FASTCC            SAVE CC1-4
     7294   01 0198A    35201979              STW,2    QSCAN             INHIBIT CTR4 Q SCANNING
     7295   01 0198B    68C01990              BCR,12   IOINTF1           AIO CC1,2=00 (NO ERRORS)
     7296   01 0198C    022000C0 A            LCI      12
     7297   01 0198D    2B401A18              STM,4    IOINTX            SAVE R
     7298   01 0198E    703019DA              LCF      FASTCC            RESTORE AIO CC1-4
     7299   01 0198F    680019DE              B        IOINTERR          GO TO PROCESS ERROR
     7300   01 01990    320019D8     IOINTF1  LW,0     FASTIOCD          FETCH NEXT OPERATION DA(IOCD)
     7301   01 01991    693019A1              BNEZ     IOINTF2           NEXT OPERATION EXISTS
     7302   01 01992    331019D5              MTW,1    FASTCNT
     7303   01 01993    022000C0 A            LCI      12
     7304   01 01994    2B401A18              STM,4    IOINTX            SAVE R
     7305   01 01995    326019D7              LW,6     FASTIOQ           IOQ INDEX
     7306   01 01996    B27C17F2              LW,7     *IOQ7,6           FETCH DCT INDEX
     7307   01 01997    703019DA              LCF      FASTCC            RESTORE AIO CC1-4
     7308   01 01998    74040004 A            STCF     4,2               MOVE
     7309   01 01999    4B402E1D              AND,4    =X'E000'          MASK AIO CC1-3
     7310   01 0199A    49D00004 A            OR,13    4                 MERGE AIO STATUS,CC1-3
     7311   01 0199B    324019D9              LW,4     FASTADR           FETCH DEVICE ADDRESS
     7312   01 0199C    EB5C17EE              INT,5    *IOQ3,6           RETRY IN PROGRESS?
     7313   01 0199D    692019FC              BCS,2    IOINT5            YES-GO TO CLEANUP VIA SERVICEI
     7314   01 0199E    6A0019C7              BAL,0    IOINTF5           SET DATA CHECK, RESET DEVICE
     7315   01 0199F    6AF018CA              BAL,15   SERVICEQ                          AND CHANNEL BUSY
     7316   01 019A0    680019B7              B        IOINTF3           GO TO EXIT
     7317         01 019A1           IOINTF2  EQU      %
     7318   01 019A1    35401A18              STW,4    IOINTX
     7319   01 019A2    224FFFC0 A            LI,4     -64
     7320   01 019A3    CCD019D9              SIO,13   *FASTADR
     7321   01 019A4    68C019A8              BCR,12   %+4
     7322   01 019A5    654019A3              BIR,4    %-2
     7323   01 019A6    32401A18              LW,4     IOINTX
     7324   01 019A7    680019BB              B        IOINTF4
     7325   01 019A8    32401A18              LW,4     IOINTX
     7326   01 019A9    022000C0 A            LCI      12
     7327   01 019AA    2B401A18              STM,4    IOINTX            SAVE R
     7328   01 019AB    6A0019D0              BAL,0    IOINTF6           SET DATA CHECK
     7329   01 019AC    B26C17ED              LW,6     *IOQ2,6           FETCH IOQ INDEX FOR STARTED OPER.
     7330   01 019AD    32502DF7              LW,5     =X'C0000000'
     7331   01 019AE    C75C17EE              STS,5    *IOQ3,6           SET REQUEST BUSY, SERVICED
     7332   01 019AF    32501986              LW,5     CURTIME           CURRENT TIME
     7333   01 019B0    B55C17F9              STW,5    *IOQ14,6          SAVE AS OPERATION START TIME
     7334   01 019B1    356019D7              STW,6    FASTIOQ           SAVE NEW Q INDEX
     7335   01 019B2    22500000 A            LI,5     0
     7336   01 019B3    B26C17ED              LW,6     *IOQ2,6           IS ANOTHER OPERATION AVAILABLE?
     7337   01 019B4    683019B6              BEZ      %+2               NO
     7338   01 019B5    B25C17F7              LW,5     *IOQ12,6          FETCH ITS DA(IOCD)
     7339   01 019B6    355019D8              STW,5    FASTIOCD          SAVE NEXT DA(IOCD) OR 0
     7340   01 019B7    022000C0 A   IOINTF3  LCI      12
     7341   01 019B8    2A401A18              LM,4     IOINTX            RESTORE R
     7342   01 019B9    35101979              STW,1    QSCAN             ALLOW CTR4 Q SCANNING
     7343   01 019BA    0E301A12              LPSD,3   IOINTPSD          EXIT IO INTERRUPT HANDLER
     7344   01 019BB    7404000D A   IOINTF4  STCF     13,2              MERGE CC1-4 AND SIO STATUS
     7345   01 019BC    B5DE17E2              STW,13   *DCT13,7          SAVE SIO STATUS,CC1-4
     7346   01 019BD    022000C0 A            LCI      12
     7347   01 019BE    2B401A18              STM,4    IOINTX            SAVE R
     7348   01 019BF    6A0019C7              BAL,0    IOINTF5           SET DATA CHECK FOR COMPLETED OPER.
     7349   01 019C0    B26C17ED              LW,6     *IOQ2,6           FETCH CURRENT IOQ INDEX
     7350   01 019C1    356019D7              STW,6    FASTIOQ           SAVE
     7351   01 019C2    C71E17DB              STS,1    *DCT6,7           SET SIO REJECTED
     7352   01 019C3    32502E1E              LW,5     =X'C0000001'
     7353   01 019C4    C75C17EE              STS,5    *IOQ3,6           SET REQUEST BUSY,SERVICED,SIO REJECTED
     7354   01 019C5    324019D9              LW,4     FASTADR           FETCH DEVICE ADDRESS
     7355   01 019C6    680019FD              B        IOINT10           GO TO CLEANUP SIO REJECTED
     7356   01 019C7    326019D7     IOINTF5  LW,6     FASTIOQ           FETCH IOQ INDEX
     7357   01 019C8    B27C17F2              LW,7     *IOQ7,6           FETCH DCT INDEX
     7358   01 019C9    B24C17EF              LW,4     *IOQ4,6           FETCH CIT INDEX
     7359   01 019CA    B25817FF              LW,5     *CIT4,4           FETCH CIT STATUS
     7360   01 019CB    4B502E11              AND,5    =X'7FFFFFFF'      RESET CHANNEL BUSY
     7361   01 019CC    B55817FF              STW,5    *CIT4,4           SAVE
     7362   01 019CD    B25E17DB              LW,5     *DCT6,7           FETCH DCT STATUS
     7363   01 019CE    4B502E1F              AND,5    =X'9FFFFFFF'      RESET DEVICE BUSY
     7364   01 019CF    B55E17DB              STW,5    *DCT6,7           SAVE
     7365   01 019D0    326019D7     IOINTF6  LW,6     FASTIOQ           FETCH IOQ
     7366   01 019D1    22400010 A            LI,4     X'10'
     7367   01 019D2    32502E20              LW,5     =X'80000010'
     7368   01 019D3    C74C17EE              STS,4    *IOQ3,6           RESET REQ BUSY, SET DATA CHECK
     7369   01 019D4    E8000000 A            B        *0                EXIT
     7370                            *
     7371   01 019D5    00000000 A   FASTCNT  DATA     0
     7372   01 019D6    00000000 A   FASTMODE DATA     0                 'FAST MODE' FLAG (1=FAST MODE)
     7373   01 019D7    00000000 A   FASTIOQ  DATA     0                 CURRENT IOQ INDEX
     7374   01 019D8    00000000 A   FASTIOCD DATA     0                 NEXT DA(IOCD)
     7375   01 019D9    00000000 A   FASTADR  DATA     0                 CURRENT DEVICE ADDRESS
     7376   01 019DA    00000000 A   FASTCC   DATA     0                 CC1-4 SAVE
     7377                            *
     7378                            *                 ***************
     7379                            *                 *  I O I N T  *
     7380                            *                 ***************
     7381                            *
     7382                            * DESCRIPTION: THIS ROUTINE ACCEPTS AND HANDLES THE IO INTERRUPT.
     7383                            *
     7384                            * CALL:       XPSD AT X'5C'         RECEIVE IO INTERRUPT
     7385                            * PARAMETERS: (NONE)
     7386                            * RETURN:     LPSD                  CLEAR INTERRUPT
     7387                            * PARAMETERS: (R6)=IOQ OR 0     32  IOQ TABLE INDEX (0 IF NOT IN Q)
     7388                            *             (R7)=DCT OR 0     32  DCT INDEX (0 IF NO INTER RECOG OR
     7389                            *                                              NO ADDRESS RECOG)
     7390                            * REGISTERS USED: R4-R6, R12-R15
     7391                            *
     7392         01 019DB           IOINT    EQU      %                 IO INTERRUPT HANDLER
     7393   01 019DB    2B401A18              STM,4    IOINTX            SAVE R
     7394   01 019DC    35201979              STW,2    QSCAN             INHIBIT CTR4 Q SCANNING
     7395   01 019DD    6ED00000 A            AIO,13   0                 ISSUE AIO
     7396   01 019DE    74040004 A   IOINTERR STCF     4,2               CC1-4
     7397   01 019DF    4B402E1D              AND,4    =X'E000'          MASK CC1-3
     7398   01 019E0    49D00004 A            OR,13    4                 MERGE CC1-3   INTO STATUS
     7399   01 019E1    69801A0D              BCS,8    IOINT7            CC1=1 NO INTERRUPT RECOGNITION
     7400   01 019E2    5242000D A            LH,4     13,1              FETCH DEVICE ADDRESS
     7401   01 019E3    4B402DD3              AND,4    =X'1FFF'          MASK DEVICE ADDRESS
     7402   01 019E4    22700001 A            LI,7     1                 STARTING DCT INDEX
     7403   01 019E5    325017D5              LW,5     DCTNUM            MAX # OF DCT ENTRIES
     7404   01 019E6    EBFE17D6     IOINT1   INT,15   *DCT1,7           IS DEVICE IN DUAL ACCESS?
     7405   01 019E7    688019EA              BCR,8    %+3               NO
     7406   01 019E8    B14E17D7              CW,4     *DCT2,7           IS DUAL ACCESS B THE INTERR. DEVICE?
     7407   01 019E9    683019F2              BE       IOINT3            YES
     7408   01 019EA    EBFE17D6              INT,15   *DCT1,7           FETCH DUAL ACCESS A DEVICE ADDRESS
     7409   01 019EB    3140000F A            CW,4     15                IS IT DUAL ACCESS A?
     7410   01 019EC    683019F0              BE       IOINT2            YES
     7411   01 019ED    20700001 A            AI,7     1                 INCR DCT INDEX
     7412   01 019EE    645019E6              BDR,5    IOINT1            LOOP
     7413   01 019EF    68001A0D              B        IOINT7            ERROR-DEVICE ADDRESS NOT IN TABLES
     7414   01 019F0    B25E17D8     IOINT2   LW,5     *DCT3,7           FETCH CIT FOR DUAL ACCESS A
     7415   01 019F1    680019F3              B        %+2
     7416   01 019F2    B25E17D9     IOINT3   LW,5     *DCT4,7           FETCH CIT FOR DUAL ACCESS B
     7417   01 019F3    B26A17FD              LW,6     *CIT2,5           FETCH STARTING IOQ
     7418   01 019F4    683019FB              BEZ      IOINT4            DEVICE NOT IN Q
     7419   01 019F5    B2FC17EE     IOINT9   LW,15    *IOQ3,6           IS THIS REQUEST BUSY?
     7420   01 019F6    681019F9              BGEZ     IOINT8            NO
     7421   01 019F7    B14C17F3              CW,4     *IOQ8,6           THIS Q USING DEVICE ?
     7422   01 019F8    683019FC              BE       IOINT5            YES
     7423   01 019F9    B26C17ED     IOINT8   LW,6     *IOQ2,6           FETCH NEXT Q
     7424   01 019FA    692019F5              BGZ      IOINT9            NOT LAST - LOOP
     7425   01 019FB    22600000 A   IOINT4   LI,6     0                 SET IOQ INDEX TO 0
     7426   01 019FC    B5DE17DF     IOINT5   STW,13   *DCT10,7          SAVE AIO STATUS, CC1-3
     7427   01 019FD    35401B60     IOINT10  STW,4    DEVADDR           SAVE DEV ADDR FOR INTER/TRAP HANDLER
     7428   01 019FE    CDC00004 A            TIO,12   *4                ISSUE TIO
     7429   01 019FF    7402000F A            STCF     15,1              SAVE CC1-4
     7430   01 01A00    CE500004 A            TDV,5    *4                ISSUE TDV
     7431   01 01A01    7400000F A            STCF     15                SAVE CC1-4
     7432   01 01A02    55D2000F A            STH,13   15,1              MERGE BYTE COUNT
     7433   01 01A03    52D0000D A            LH,13    13                ISOLATE TIO STATUS
     7434   01 01A04    55D20005 A            STH,13   5,1               MERGE TDV, TIO STATUS
     7435   01 01A05    B5CE17DE              STW,12   *DCT9,7           SAVE CURRENT COMMAND ADDRESS
     7436   01 01A06    B55E17E0              STW,5    *DCT11,7          SAVE STATUS
     7437   01 01A07    B5FE17E1              STW,15   *DCT12,7          SAVE CC1-4, BYTE COUNT
     7438   01 01A08    6AF018CC     IOINT6   BAL,15   SERVICEI          CALL SERVICE FOR CLEANUP
     7439   01 01A09    022000C0 A   IOINTEX  LCI      12
     7440   01 01A0A    2A401A18              LM,4     IOINTX            RESTORE R
     7441   01 01A0B    35101979              STW,1    QSCAN             ALLOW CTR4 Q SCANNING
     7442   01 01A0C    0E301A12              LPSD,3   IOINTPSD          EXIT
     7443   01 01A0D    35D01A17     IOINT7   STW,13   IOINTUNK          SAVE AIO STATUS,CC1-4
     7444   01 01A0E    22700000 A            LI,7     0                 SET DCT INDEX = 0
     7445   01 01A0F    22600000 A            LI,6     0                 SET IOQ INDEX = 0
     7446   01 01A10    68001A08              B        IOINT6            GO TO CLEANUP
     7447                            *
     7448                                     BOUND    8
     7449   01 01A12    00000000 A   IOINTPSD DATA     0,0
            01 01A13    00000000 A
     7450   01 01A14    C0000000 A            GEN,4,28 12,0              CC1-4=12;HANDLER ADDRESS SUPPLIED
     7451   01 01A15    04000000 A            GEN,8,24 4,0                                      BY DIOSIN(F)
     7452   01 01A16    0F001A12     IOXPSD   XPSD,0   IOINTPSD          XPSD INSTRUCTION
     7453   01 01A17    00000000 A   IOINTUNK DATA     0                 AIO STATUS,CC1-4 FOR NO INTERRUPT
     7454                            *                                   RECOGNITION OR UNKNOWN DEVICE
     7455   01 01A18                 IOINTX   RES      12
     7456                            *
     7457                            *                 *****************
     7458                            *                 *  B U F F E R  *
     7459                            *                 *****************
     7460                            *
     7461                            * DESCRIPTION:THIS ROUTINE HANDLES SEQUENTIAL AND RANDOM MEMORY
     7462                            * ALLOCATION.
     7463                            *
     7464                            * CALL:       BAL,15  BUFINIT       INITIALIZE BUFFER INFO
     7465                            * PARAMETERS: (R9)=BUFSIZE      32  BUFFER SIZE (IN WORDS) TO BE USED
     7466                            * RETURN:     CALL+1                EXIT
     7467                            * PARAMETERS: (R9)=SAME
     7468                            *
     7469                            * CALL:       BAL,15  BUFSEQ        SEQ. MEM ALLOCATION FOR DIOS TABLES
     7470                            * PARAMETERS: (R10)=SIZE        32  BUFFER SIZE (IN WORDS) REQUIRED
     7471                            * RETURN:     CALL+1                EXIT
     7472                            * PARAMETERS: (R9)=BUF          32  MEMORY WORD ADDRESS OF ALLOCATION
     7473                            *
     7474                            * CALL:       BAL,15  BUFRAND       RANDOM BUFFER ALLOCATION
     7475                            * PARAMETERS: (NONE)
     7476                            * RETURN:     CALL+1                NO BUF AVAILABLE
     7477                            *             CALL+2                BUF AVAILABLE
     7478                            * PARAMETERS: (R9)=BUF          32  MEMORY WORD ADDRESS OF ALLOCATION
     7479                            *
     7480                            * CALL:       BAL,15  BUFREL        RELEASE PREVIOUSLY ALLOCATED BUF
     7481                            * PARAMETERS: (R9)=BUF          32  MEMORY ADDRESS OF PREV. ALLOCATED BUF
     7482                            * RETURN:     CALL+1                EXIT
     7483                            * PARAMETERS: (R9)=(SAME)
     7484                            *
     7485                            * REGISTERS USED: R4,R5,R14,R15
     7486                            *
     7487         01 01A24           BUFINIT  EQU      %                 INITIALIZE BUFFER INFORMATION
     7488   01 01A24    35901A8F              STW,9    BUFSIZE           SAVE BUFFER SIZE
     7489   01 01A25    22502E34              LI,5     USERPROG+2        FETCH STARTING BUFFER MEMORY ADDR
     7490   01 01A26    3240022E              LW,4     :MEMSIZE          FETCH LAST MEMORY ADDR
     7491   01 01A27    15401A90              STD,4    BUFLMT            SAVE
     7492   01 01A28    35501A7D              STW,5    BUFSTART          SAVE AS CURRENT STARTING ADDRESS
     7493   01 01A29    3240022F              LW,4     :MEMLAST          MONITOR ADDRESS
     7494   01 01A2A    20400E00 A            AI,4     X'E00'            LAST MONITOR ADDRESS
     7495   01 01A2B    3250022F              LW,5     :MEMLAST          MONITOR ADDRESS
     7496   01 01A2C    20500001 A            AI,5     1
     7497   01 01A2D    15401A92              STD,4    MONLMT            SAVE
     7498   01 01A2E    35101A8E              STW,1    BUFMAPI           RESET MEMORY MAP INITIALIZED
     7499   01 01A2F    E800000F A            B        *15               EXIT
     7500                            *
     7501         01 01A30           BUFSEQ   EQU      %                 SEQUENTIAL BUFFER ALLOCATION
     7502   01 01A30    32901A7D              LW,9     BUFSTART          FETCH CURRENT STARTING ADDRESS
     7503   01 01A31    66A01A7D              AWM,10   BUFSTART          UPDATE CURRENT STARTING ADDRESS
     7504   01 01A32    66A01A91              AWM,10   BUFLMT+1          UPDATE BUFFER LOW LIMIT
     7505   01 01A33    E800000F A            B        *15               EXIT
     7506                            *
     7507         01 01A34           BUFRAND  EQU      %                 RANDOM BUFFER ALLOCATION
     7508   01 01A34    35F01A97              STW,15   BUFMAPX           SAVE RETURN ADDRESS
     7509   01 01A35    31201A8E              CW,2     BUFMAPI           IS MEMORY MAP INITIALIZED?
     7510   01 01A36    68301A4E              BE       BUFR10            YES
     7511   01 01A37    22400000 A   BUFR01   LI,4     0                 MAP INDEX=0
     7512   01 01A38    22500008 A            LI,5     8
     7513   01 01A39    354A1A7D              STW,4    BUFMAP-1,5        CLEAR MAP BITS
     7514   01 01A3A    64501A39              BDR,5    %-1               LOOP
     7515   01 01A3B    22500100 A            LI,5     32*8
     7516   01 01A3C    35501A96              STW,5    BUFNR             SET # BUFFERS IN MAP TO MAX.
     7517   01 01A3D    32501A91              LW,5     BUFLMT+1          STARTING BUFFER ADDRESS
     7518   01 01A3E    22F00001 A   BUFR02   LI,15    1                 MASKING BIT
     7519   01 01A3F    22E00020 A            LI,14    32                BIT COUNT
     7520   01 01A40    35581A86              STW,5    BUFADDR,4         SAVE MEM MAP ADDRESS
     7521   01 01A41    30501A8F     BUFR03   AW,5     BUFSIZE           ADD BUFFER SIZE TO ADDRESS
     7522   01 01A42    25F0027F A            SCS,15   -1                ADJUST BIT POSITION
     7523   01 01A43    19501A92              CLM,5    MONLMT            IS ADDRESS IN MONITOR AREA?
     7524   01 01A44    68601A47              BCR,6    %+3               YES-BIPASS
     7525   01 01A45    19501A90              CLM,5    BUFLMT            IS ADDRESS IN ALLOWABLE RANGE?
     7526   01 01A46    68601A49              BCR,6    %+3               YES
     7527   01 01A47    33F01A96              MTW,-1   BUFNR             DECREASE BY 1 THE # BUFFERS IN MAP
     7528   01 01A48    47F81A7E              STS,15   BUFMAP,4          SET ONE MAP BIT TO UNAVAIL.
     7529   01 01A49    64E01A41              BDR,14   BUFR03            LOOP FOR 32 BITS
     7530   01 01A4A    20400001 A            AI,4     1                 INCR MAP INDEX
     7531   01 01A4B    21400007 A            CI,4     7                 8 MAPS BUILD?
     7532   01 01A4C    68201A3E              BLE      BUFR02            NO-LOOP
     7533   01 01A4D    35201A8E              STW,2    BUFMAPI           SET MEMORY MAP TO INITIALIZED
     7534   01 01A4E    22E00009 A   BUFR10   LI,14    9                 MAX NO. OF MAPS TO SCAN
     7535   01 01A4F    12401A94              LD,4     BUFRR             FETCH RANDOM NUMBERS
     7536   01 01A50    25400301 A            SCD,4    1                 PERMUTE
     7537   01 01A51    15401A94              STD,4    BUFRR             SAVE
     7538   01 01A52    4B402E21              AND,4    =7                THIS MAP (RANGE: 0-7)
     7539   01 01A53    4B502DDF              AND,5    =31               THIS BIT (RANGE: 0-31)
     7540   01 01A54    22900001 A   BUFR11   LI,9     1
     7541   01 01A55    30981A7E              AW,9     BUFMAP,4          TEST FOR A BUFFER AVAIL.
     7542   01 01A56    69301A5D              BNEZ     BUFR12            ONE OR MORE BUFFERS AVAIL.
     7543   01 01A57    20400001 A            AI,4     1                 INCR MAP INDEX
     7544   01 01A58    21400007 A            CI,4     7                 LAST MAP?
     7545   01 01A59    68201A5B              BLE      %+2               NO
     7546   01 01A5A    22400000 A            LI,4     0                 RESET MAP INDEX
     7547   01 01A5B    64E01A54              BDR,14   BUFR11            LOOP FOR 9 MAP SCANS
     7548   01 01A5C    E8001A97              B        *BUFMAPX          EXIT-NO BUFFER AVAILABLE
     7549   01 01A5D    32900005 A   BUFR12   LW,9     5                 SAVE BIT
     7550   01 01A5E    22F00001 A            LI,15    1                 TESTING BIT
     7551   01 01A5F    25F0027F A            SCS,15   -1                ADJUST FOR MAP BIT TEST
     7552   01 01A60    33F00005 A            MTW,-1   5
     7553   01 01A61    68101A5F              BGEZ     %-2
     7554   01 01A62    31F81A7E              CW,15    BUFMAP,4          THIS BUFFER AVAILABLE
     7555   01 01A63    68401A6A              BCR,4    BUFR15            YES
     7556   01 01A64    229FFFFF A            LI,9     -1                DO A SEQ SEARCH OF THIS MAP
     7557   01 01A65    22F00001 A            LI,15    1
     7558   01 01A66    20900001 A            AI,9     1
     7559   01 01A67    25F0027F A            SCS,15   -1
     7560   01 01A68    31F81A7E              CW,15    BUFMAP,4               THIS BUFFER AVAIL.?
     7561   01 01A69    69401A66              BCS,4    %-3                    NO
     7562   01 01A6A    37901A8F     BUFR15   MW,9     BUFSIZE           CALCULATE DISPLACEMENT FROM START
     7563   01 01A6B    30981A86              AW,9     BUFADDR,4         ADD START ADDRESS OF MAP
     7564   01 01A6C    47F81A7E              STS,15   BUFMAP,4          SET BIT MAP POSITION TO UNAVAIL
     7565   01 01A6D    E8021A97              B        *BUFMAPX,1        EXIT -BUFFER AVAILABLE
     7566                            *
     7567         01 01A6E           BUFREL   EQU      %                 RELEASE A BUFFER
     7568   01 01A6E    19901A90              CLM,9    BUFLMT            IS THE BUFFER ADDRESS WITHIN LIMITS?
     7569   01 01A6F    E960000F A            BCS,6    *15               NO - EXIT
     7570   01 01A70    32500009 A            LW,5     9                 RELEASED BUFFER ADDRESS
     7571   01 01A71    38501A86              SW,5     BUFADDR           REL BFR-START BFR
     7572   01 01A72    22400000 A            LI,4     0
     7573   01 01A73    36401A8F              DW,4     BUFSIZE           (REL-START)/BUFSIZE
     7574   01 01A74    36402E22              DW,4     =32               FORMS: QUOT=MAP INDEX, REM=BIT POS
     7575   01 01A75    22E00001 A            LI,14    1                 BIT
     7576   01 01A76    25E0027F A            SCS,14   -1                ADJUST
     7577   01 01A77    33F00004 A            MTW,-1   4
     7578   01 01A78    68101A76              BGEZ     %-2               LOOP
     7579   01 01A79    48E02DDD              EOR,14   =-1               1'S COMPLEMENT
     7580   01 01A7A    4BEA1A7E              AND,14   BUFMAP,5          RESET MAP BIT
     7581   01 01A7B    35EA1A7E              STW,14   BUFMAP,5          SAVE NEW MAP
     7582   01 01A7C    E800000F A            B        *15               EXIT
     7583                            *
     7584                            *
     7585   01 01A7D    00000000 A   BUFSTART DATA     0                 STARTING BUFFER ADDRESS
     7586   01 01A7E                 BUFMAP   RES      8                 MEMORY MAP
     7587   01 01A86                 BUFADDR  RES      8                 MAP ADDRESSES
     7588   01 01A8E    00000001 A   BUFMAPI  DATA     1                 MAP INITIALIZED (1=NO,2=YES)
     7589   01 01A8F    00000000 A   BUFSIZE  DATA     0                 BUFFER  SIZE  REQUIRED  (IN  WORDS)
     7590                                     BOUND    8
     7591   01 01A90    00000000 A   BUFLMT   DATA     0,0               BUFFER HI-TO-LOW LIMITS
            01 01A91    00000000 A
     7592   01 01A92    00000000 A   MONLMT   DATA     0,0               MONITOR HI-TO-LOW LIMITS
            01 01A93    00000000 A
     7593   01 01A94    12B9B0A3 A   BUFRR    DATA     314159267,12131415
            01 01A95    00B91C57 A
     7594   01 01A96    00000000 A   BUFNR    DATA     0                 # BUFFERS IN MAP
     7595   01 01A97    00000000 A   BUFMAPX  DATA     0                 RETURN SAVE
     7596                            *
     7597                            *                 *******************
     7598                            *                 *  P I C T U R E  *
     7599                            *                 *******************
     7600                            *
     7601                            * DESCRIPTION: THIS ROUTINE COLLECTS AND DISPLAYS CURRENT SYSTEM STATUS.
     7602                            *
     7603                            * CALL:       BAL,15 PICTUREC       COLLECT CURRENT SYSTEM STATUS
     7604                            * PARAMETERS: (NONE)
     7605                            * RETURN:     CALL+1
     7606                            *
     7607                            * CALL:       BAL,15 PICTURED       DISPLAY CURRENT SYSTEM STATUS
     7608                            * PARAMETERS: (R7)=DCT OR 0     32  DCT INDEX OF DEVICE TO BE BIPASSED
     7609                            * RETURN:     CALL+1                                    (0 IF NONE)
     7610                            * PARAMETERS: (R7)=(SAME)
     7611                            *
     7612                            * REGISTERS USED: R4,R5,R13,R14,R15
     7613                            *
     7614         01 01A98           PICTUREC EQU      %                 COLLECT SYSTEM STATUS
     7615   01 01A98    324017D5              LW,4     DCTNUM            FETCH NUMBER OF DEVICES
     7616   01 01A99    22D00000 A   PICT1    LI,13    0                 CLEAR R13
     7617   01 01A9A    EB5817D6              INT,5    *DCT1,4           IS  THIS DEVICE DUAL ACCESS
     7618   01 01A9B    68801AA2              BCR,8    PICT2             NO
     7619   01 01A9C    B25817D7              LW,5     *DCT2,4           FETCH DUAL ACCESS B DEVICE ADDRESS
     7620   01 01A9D    CDD00005 A            TIO,13   *5                DUAL ACCESS B:  TIO
     7621   01 01A9E    7404000D A            STCF     13,2              MERGE CC1-4 WITH STATUS
     7622   01 01A9F    35D81B15              STW,13   PICTIOB,4
     7623   01 01AA0    CED00005 A            TDV,13   *5                                TDV
     7624   01 01AA1    35D81B20              STW,13   PICTDVB,4
     7625   01 01AA2    B25817D6     PICT2    LW,5     *DCT1,4           FETCH DUAL ACCESS A DEVICE ADDRESS
     7626   01 01AA3    CDD00005 A            TIO,13   *5                DUAL ACCESS A:  TIO
     7627   01 01AA4    7404000D A            STCF     13,2              MERGE CC1-4 WITH STATUS
     7628   01 01AA5    35D81AFF              STW,13   PICTIOA,4
     7629   01 01AA6    CED00005 A            TDV,13   *5                                TDV
     7630   01 01AA7    35D81B0A              STW,13   PICTDVA,4
     7631   01 01AA8    64401A99              BDR,4    PICT1             NOT LAST-LOOP
     7632   01 01AA9    E800000F A            B        *15               EXIT
     7633                            *
     7634         01 01AAA           PICTURED EQU      %                 DISPLAY COLLECTED SYSTEM STATUS
     7635   01 01AAA    35F01AFD              STW,15   PICTUREX          SAVE RETURN ADDRESS
     7636   01 01AAB    311017D5              CW,1     DCTNUM            DCT COUNT = 1?
     7637   01 01AAC    69301AAF              BNE      %+3               NO
     7638   01 01AAD    21700001 A            CI,7     1                 BIPASS DEVICE =  ONLY DEVICE?
     7639   01 01AAE    E8301AFD              BE       *PICTUREX         YES - EXIT
     7640   01 01AAF    6AF00B7B              BAL,15   #MSGP             HDR MESSAGES
     7641   01 01AB0    00004190              DATA     MX990
     7642   01 01AB1    324017D5              LW,4     DCTNUM            NUMBER OF DEVICES
     7643   01 01AB2    31400007 A   PICT11   CW,4     7                 THIS DEVICE IGNORED?
     7644   01 01AB3    68301ABE              BE       PICT13            YES
     7645   01 01AB4    B25817D6              LW,5     *DCT1,4           IS IT DUAL ACCESS?
     7646   01 01AB5    68101ABA              BGEZ     PICT12            NO B
     7647   01 01AB6    B25817D7              LW,5     *DCT2,4           FETCH DUAL ADDESS B DEVICE ADDRESS
     7648   01 01AB7    32E81B15              LW,14    PICTIOB,4         DUAL ACCESS B TIO
     7649   01 01AB8    32F81B20              LW,15    PICTDVB,4         DUAL ACCESS B TDV
     7650   01 01AB9    6AD01AC2              BAL,13   PICT99            DISPLAY DEVICE STATUS
     7651   01 01ABA    EB5817D6     PICT12   INT,5    *DCT1,4           FETCH DUAL ACCESS A DEVICE ADDRESS
     7652   01 01ABB    32E81AFF              LW,14    PICTIOA,4         DUAL ACCESS A TIO
     7653   01 01ABC    32F81B0A              LW,15    PICTDVA,4         DUAL ACCESS A TDV
     7654   01 01ABD    6AD01AC2              BAL,13   PICT99            DISPLAY DEVICE  STATUS
     7655   01 01ABE    64401AB2     PICT13   BDR,4    PICT11            NOT LAST - LOOP
     7656   01 01ABF    6AF00B7B              BAL,15   #MSGP             '***'
     7657   01 01AC0    000041E6              DATA     MX995
     7658   01 01AC1    E8001AFD              B        *PICTUREX         EXIT
     7659                            *
     7660         01 01AC2           PICT99   EQU      %                 SUBROUTINE TO DIPLAY DEVICE STATUS
     7661   01 01AC2    35D01AFE              STW,13   PICT99X           SAVE RETURN ADDRESS
     7662   01 01AC3    35500EE7              STW,5    VHEX4A            SAVE DEVICE ADDRESS
     7663   01 01AC4    72D4000E A            LB,13    14,2              CC1-4
     7664   01 01AC5    25D0007C A            SLS,13   -4                ADJUST
     7665   01 01AC6    75D60EF2              STB,13   VBIN4A,3          SAVE IN MSG
     7666   01 01AC7    25E00168 A            SLD,14   -24               ADJUST
     7667   01 01AC8    35E00EF3              STW,14   VBIN8A            SAVE TIO
     7668   01 01AC9    35F00F01              STW,15   VBIN8B            SAVE TDV
     7669   01 01ACA    B15817D7              CW,5     *DCT2,4           DUAL ACCESS B?
     7670   01 01ACB    68301AD3              BE       PICT990           YES
     7671   01 01ACC    B25817D8              LW,5     *DCT3,4           CIT INDEX
     7672   01 01ACD    EBF817DB              INT,15   *DCT6,4           DEVICE BUSY?
     7673   01 01ACE    69401ADF              BCS,4    PICT993           YES
     7674   01 01ACF    22D00004 A            LI,13    4                 BIT 29
     7675   01 01AD0    B1D817DB              CW,13    *DCT6,4           DEVICE UNAVAILABLE?
     7676   01 01AD1    69401ADC              BCS,4    PICT992           YES
     7677   01 01AD2    68001AD9              B        PICT991           DEVICE READY
     7678   01 01AD3    B25817D9     PICT990  LW,5     *DCT4,4           CIT INDEX
     7679   01 01AD4    EBF817DB              INT,15   *DCT6,4           DEVICE BUSY?
     7680   01 01AD5    69401ADF              BCS,4    PICT993           YES
     7681   01 01AD6    22D00008 A            LI,13    8                 BIT 28
     7682   01 01AD7    B1D817DB              CW,13    *DCT6,4           DEVICE UNAVAILABLE?
     7683   01 01AD8    69401ADC              BCS,4    PICT992           YES
     7684   01 01AD9    6AF00B7B     PICT991  BAL,15   #MSGP
     7685   01 01ADA    000041AE              DATA     MX991             DEVICE READY ...
     7686   01 01ADB    E8001AFE              B        *PICT99X          EXIT
     7687   01 01ADC    6AF00B7B     PICT992  BAL,15   #MSGP
     7688   01 01ADD    000041CE              DATA     MX993             DEVICE UNAVAIL ...
     7689   01 01ADE    E8001AFE              B        *PICT99X          EXIT
     7690   01 01ADF    B25A17FD     PICT993  LW,5     *CIT2,5           FETCH HEAD-OF-Q
     7691   01 01AE0    68301AD9              BEZ      PICT991           NONE
     7692   01 01AE1    32D00EE7     PICT994  LW,13    VHEX4A            FETCH DEVICE ADDRESS
     7693   01 01AE2    B1DA17F3              CW,13    *IOQ8,5           THIS OPER FOR THE DEVICE
     7694   01 01AE3    69301AE6              BNE      PICT995           NO
     7695   01 01AE4    B2DA17EE              LW,13    *IOQ3,5           REQUEST BUSY?
     7696   01 01AE5    69101AE9              BLZ      PICT9951          YES
     7697   01 01AE6    B25A17ED     PICT995  LW,5     *IOQ2,5           FETCH NEXT Q ENTRY INDEX
     7698   01 01AE7    68301AD9              BEZ      PICT991           LAST ENTRY
     7699   01 01AE8    68001AE1              B        PICT994           LOOP TO TEST THIS ENTRY
     7700   01 01AE9    22D041C0     PICT9951 LI,13    BA(MX992)         BUSY MSG ADDRESS
     7701   01 01AEA    35D01AF5              STW,13   PICT997           SAVE IN MSGOUT CALL
     7702   01 01AEB    B2DA17F7              LW,13    *IOQ12,5          FETCH DA(IOCD)
     7703   01 01AEC    25D00001 A            SLS,13   1                 WA(IOCD)
     7704   01 01AED    35D01AFF              STW,13   PICTIOCD          SAVE IN TEMP
     7705   01 01AEE    B2E01AFF     PICT996  LW,14    *PICTIOCD         IOCD MSH
     7706   01 01AEF    B2F21AFF              LW,15    *PICTIOCD,1       IOCD LSH
     7707   01 01AF0    35E00EE9              STW,14   VHEX8A            SAVE
     7708   01 01AF1    35F00EF0              STW,15   VHEX8B
     7709   01 01AF2    B2DA17F9              LW,13    *IOQ14,5          START TIME
     7710   01 01AF3    35D00EE5              STW,13   VDEC8A            SAVE
     7711   01 01AF4    6AF00B7B              BAL,15   #MSGP             DEVICE BUSY ...... OR
     7712   01 01AF5    00000000 A   PICT997  DATA     0                 IOCD MSG
     7713   01 01AF6    B2D21AFF              LW,13    *PICTIOCD,1       IOCD LSH
     7714   01 01AF7    31D02DE9              CW,13    =X'A0000000'      IS THERE A CHAINING FLAG SET?
     7715   01 01AF8    E8401AFE              BCR,4    *PICT99X          NO-EXIT
     7716   01 01AF9    66201AFF              AWM,2    PICTIOCD          UPDATE WA(IOCD)
     7717   01 01AFA    22D041DE              LI,13    BA(MX994)         IOCD MSG ADDRESS
     7718   01 01AFB    35D01AF5              STW,13   PICT997           SAVE IN MSGOUT CALL
     7719   01 01AFC    68001AEE              B        PICT996           LOOP TO PRINT IOCD
     7720                            *
     7721   01 01AFD    00000000 A   PICTUREX DATA     0                 RETURN ADDRESS SAVE
     7722   01 01AFE    00000000 A   PICT99X  DATA     0                 RETURN ADDRESS SAVE
     7723         01 01AFF           PICTIOCD EQU      %                 IOCD TEMP SAVE
     7724         01 01AFF           PICTIOA  EQU      %                 DUAL ACCESS A TIO SAVE
     7725   01 01AFF                          RES      11
     7726         01 01B0A           PICTDVA  EQU      %                 DUAL ACCESS A TDV SAVE
     7727   01 01B0A                          RES      11
     7728         01 01B15           PICTIOB  EQU      %                 DUAL ACCESS B TIO SAVE
     7729   01 01B15                          RES      11
     7730         01 01B20           PICTDVB  EQU      %                 DUAL ACCESS B TDV SAVE
     7731   01 01B20                          RES      11
     7732                            *
     7733                            *                 ***************
     7734                            *                 *  D I O S I  *
     7735                            *                 ***************
     7736                            *
     7737                            * DESCRIPTION: THIS ROUTINE INITIALIZES THE DIOS ROUTINES AND TABLES.
     7738                            *
     7739                            * CALL:        BAL,15  DIOSIN       INITIALIZE NORMAL MODE
     7740                            * PARAMETERS:  (R9)=TIME BETWEEN CTR4 INTERRUPTS (IN MSEC)
     7741                            * RETURN:      CALL+1
     7742                            * PARAMETERS:  (R9)=1/2(R9)
     7743                            *
     7744                            * CALL:        BAL,15  DIOSIF       INITIALIZE FAST MODE
     7745                            * PARAMETERS:  (R9)=TIME BETWEEN CTR4 INTERRUPTS (IN MSEC)
     7746                            * RETURN:      CALL+1
     7747                            * PARAMETERS:  (R9)=1/2(R9)
     7748                            *
     7749                            * REGISTERS USED: R0,R4,R5,R13,R14
     7750                            *
     7751         01 01B2B           DIOSIN   EQU      %                 INITIALIZE NORMAL MODE
     7752   01 01B2B    352019D6              STW,2    FASTMODE          RESET FAST MODE INDICATOR
     7753   01 01B2C    224019DB              LI,4     IOINT             IO INTERRUPT HANDLER ADDRESS
     7754   01 01B2D    68001B30              B        %+3
     7755         01 01B2E           DIOSIF   EQU      %                 INITIALIZE FAST MODE
     7756   01 01B2E    351019D6              STW,1    FASTMODE          SET FAST MODE INDICATOR
     7757   01 01B2F    22401988              LI,4     IOINTF            IO INTERRUPT HANDLER FAST MODE ADR
     7758   01 01B30    49402DF7              OR,4     =X'C0000000'      INIT CC1-4
     7759   01 01B31    35401A14              STW,4    IOINTPSD+2        SAVE IN PSD
     7760   01 01B32    12401976              LD,4     CTR4MTW           COUNTER 4:
     7761   01 01B33    35400055 A            STW,4    X'55'                        COUNT PULSE MTW
     7762   01 01B34    3550005B A            STW,5    X'5B'                        COUNT=0     XPSD
     7763   01 01B35    32401A16              LW,4     IOXPSD            IO INTERRUPT XPSD
     7764   01 01B36    3540005C A            STW,4    X'5C'
     7765   01 01B37    22000000 A            LI,0     0
     7766   01 01B38    35901987              STW,9    CTR4TB            SAVE TIME BETWEEN CTR4=0
     7767   01 01B39    2590007F A            SLS,9    -1                1/2
     7768   01 01B3A    35901978              STW,9    CTR4TIME          SAVE CTR4 TIME BETW INTERRUPTS
     7769   01 01B3B    35101A8E              STW,1    BUFMAPI           RESET BUFFER MAP INITIALIZED
     7770   01 01B3C    350019D8              STW,0    FASTIOCD          CLEAR  FAST MODE IOCD
     7771   01 01B3D    324017D5              LW,4     DCTNUM            NUMBER OF DEVICES
     7772   01 01B3E    B50817DB     DIOS1    STW,0    *DCT6,4           DCT STATUS=0
     7773   01 01B3F    64401B3E              BDR,4    %-1               LOOP FOR  ALL DEVICES
     7774   01 01B40    22400001 A            LI,4     1                 CIT INDEX
     7775   01 01B41    B2581802     DIOS2    LW,5     *CIT7,4           STARTING IOQ INDEX
     7776   01 01B42    B50817FD              STW,0    *CIT2,4           NO HEAD OF Q
     7777   01 01B43    B50817FE              STW,0    *CIT3,4           CLEAR TAIL OF Q
     7778   01 01B44    B2E817FF              LW,14    *CIT4,4           CIT STATUS
     7779   01 01B45    4BE02DD6              AND,14   =X'40000000'      RESET CHANNEL BUSY
     7780   01 01B46    B5E817FF              STW,14   *CIT4,4
     7781   01 01B47    B5081800              STW,0    *CIT5,4           CURRENT Q COUNT = 0
     7782   01 01B48    B2E81801              LW,14    *CIT6,4           MAX NO. OF Q'S
     7783   01 01B49    22DFFFFF A            LI,13    -1
     7784   01 01B4A    B5DA17EC              STW,13   *IOQ1,5           FREE THE Q
     7785   01 01B4B    20500001 A            AI,5     1                 INCR IOQ INDEX
     7786   01 01B4C    64E01B4A              BDR,14   %-2               NOT LAST-LOOP
     7787   01 01B4D    B24817FC              LW,4     *CIT1,4           FETCH NEXT CIT INDEX
     7788   01 01B4E    69301B41              BNEZ     DIOS2             NOT LAST-LOOP
     7789   01 01B4F    22401060 A            LI,4     X'1060'           BITS 19,25,26
     7790   01 01B50    6D401200 A            WD,4     X'1200'           ARM/ENABLE IO AND CTR4 INTERRUPTS
     7791   01 01B51    E800000F A            B        *15               EXIT
     7792                            *
1 C00   21:47 JUN 20,'83    TELEFILE ROTATING MEMORY TEST 960-0604-H02                            PAGE   19
A    7794                            *
     7795                            *        ***PARAMETER TABLE***
     7796                            *
     7797                            * THESE PARAMETERS ARE USED  BY ALL PARTS OF THE FUNCTIONAL TEST
     7798                            * PROGRAM: FUNCTIONAL TEST CONTOLLER, SUBTESTS, FUNCTIONAL
     7799                            * TEST DRIVER AND COMMON SUBROUTINES
     7800                                     BOUND    8
     7801   01 01B52                 SENMAS   RES      4                 MASK FOR SENSE DATA
     7802   01 01B56                 SENEXP   RES      4                 EXPECTED SENSE DATA
     7803   01 01B5A                 SENOBS   RES      4                 OBSERVED SENSE DATA
     7804   01 01B5E                 DEVADRA  RES      1                 DEVICE ADR A IN DUAL ACCESS
     7805   01 01B5F                 DEVADRB  RES      1                 DEVICE ADR B IN DUAL ACCESS
     7806   01 01B60                 DEVADDR  RES      1                 DEVICE ADDRESS OF CURRENT DEVICE
     7807   01 01B61                 DEVADR00 RES      1
     7808   01 01B62                 DEVADR12 RES      1
     7809   01 01B63                 DEVADR13 RES      1
     7810   01 01B64                 DEVADR14 RES      1
     7811   01 01B65                 DEVADR15 RES      1
     7812   01 01B66                 DEVPT    RES      1                 DEVICE POINTER
     7813   01 01B67                 STMASK   RES      1                 MASK FOR STEPPING
     7814   01 01B68                 SUBTNR   RES      1                 SUBTEST NUMBER
     7815   01 01B69                 LCNT     RES      1                 LOOP COUNTER
     7816   01 01B6A                 WCNT     RES      1                 WORD COUNT
     7817   01 01B6B                 PATID    RES      3                 PATTERN IDENTIFICATION
     7818   01 01B6E                 BFRA     RES      1                 BUFFER ADDRESS A
     7819   01 01B6F                 BFRB     RES      1                 BUFFER ADDRESS B
     7820   01 01B70                 DEVTYP   RES      1                 DEVICE TYPE
     7821   01 01B71                 TMODB    RES      1                 TEST MODE SELECTION BUFFER
     7822   01 01B72                 SKADR    RES      1                 SEEK ADDRESS
     7823   01 01B73                 ADR1     RES      1                 CYL, MAXIMAL AMOUNT
     7824   01 01B74                 ADR2     RES      1                 HEAD/TRACK, MAX. AMOUNT
     7825   01 01B75                 ADR3     RES      1                 SECTOR , MAXIMAL AMOUNT
     7826   01 01B76                 ADR4     RES      1                 BYTE , MAXIMAL AMOUNT
     7827   01 01B77                 DELAY    RES      1                 DELAY FOR INTERRRUPT             A02
     7828                            *
     7829   01 01B78                 ADDR1    RES      1                 LAST CYL. ADDRESS
     7830   01 01B79                 ADDR2    RES      1                 LAST HEAD/TRACK ADDRESS
     7831   01 01B7A                 ADDR3    RES      1                 LAST SECTOR ADDRESS
     7832   01 01B7B                 DEVTYPM  RES      1                 DEVICE TYPE MECHANICAL
     7833   01 01B7C                 SIOPFLAG RES      1                 1 = SIOP
     7834                            *
     7835                            *
     7836         01 011B0           TESTNR   EQU      ITHTEST           TEST NUMBER (TST1=1,TST2=2...)
     7837   01 01B7D    00000000 A   DISPLAY  DATA     0
     7838   01 01B7E    00000000 A   STEPSP   DATA     0
1 C00   21:47 JUN 20,'83    TELEFILE ROTATING MEMORY TEST 960-0604-H02                            PAGE   20
A    7840                            * DEVICE DEPENDENT CONSTANTS

     7842   01 01B7F    01028008 A   DEVMASK  DATA     X'01028008',X'10808080'
            01 01B80    10808080 A
     7843   01 01B81    00000000 A   SECTNR   DATA     0,12,16,0,10,16,16,16
            01 01B82    0000000C A
            01 01B83    00000010 A
            01 01B84    00000000 A
            01 01B85    0000000A A
            01 01B86    00000010 A
            01 01B87    00000010 A
            01 01B88    00000010 A
     7844   01 01B89    00000000 A   HEADNR   DATA     0,512,30,0,20,19,30,30
            01 01B8A    00000200 A
            01 01B8B    0000001E A
            01 01B8C    00000000 A
            01 01B8D    00000014 A
            01 01B8E    00000013 A
            01 01B8F    0000001E A
            01 01B90    0000001E A
        1*  01 01B91    00000000 A   CYLNR    DATA     0,1,557,0,203,815,1123,555                        *H01
            01 01B92    00000001 A
            01 01B93    0000022D A
            01 01B94    00000000 A
            01 01B95    000000CB A
            01 01B96    0000032F A
            01 01B97    00000463 A
            01 01B98    0000022B A
     7846   01 01B99    00000000 A   BYTNR    DATA     0,1024,1024,0,1024,1024,1024,1024
            01 01B9A    00000400 A
            01 01B9B    00000400 A
            01 01B9C    00000000 A
            01 01B9D    00000400 A
            01 01B9E    00000400 A
            01 01B9F    00000400 A
            01 01BA0    00000400 A
     7847   01 01BA1    00000000 A   DEVNR    DATA     0,1,0,0,0,0,0,0,0
            01 01BA2    00000001 A
            01 01BA3    00000000 A
            01 01BA4    00000000 A
            01 01BA5    00000000 A
            01 01BA6    00000000 A
            01 01BA7    00000000 A
            01 01BA8    00000000 A
            01 01BA9    00000000 A
     7848                                     BOUND    4
     7849   01 01BAA    00000000 A   SPTNR    DATA     0,12,30*16,0,20*10,19*16,30*16,30*16
            01 01BAB    0000000C A
            01 01BAC    000001E0 A
            01 01BAD    00000000 A
            01 01BAE    000000C8 A
            01 01BAF    00000130 A
            01 01BB0    000001E0 A
            01 01BB1    000001E0 A
     7850   01 01BB2    00000000 A   SPHNR    DATA     0,1,16,0,10,16,16,16
            01 01BB3    00000001 A
            01 01BB4    00000010 A
            01 01BB5    00000000 A
            01 01BB6    0000000A A
            01 01BB7    00000010 A
            01 01BB8    00000010 A
            01 01BB9    00000010 A
     7851                            *
     7852   01 01BBA    00000001 A   ORDER    DATA     1,5,2,9,10
            01 01BBB    00000005 A
            01 01BBC    00000002 A
            01 01BBD    00000009 A
            01 01BBE    0000000A A
     7853   01 01BBF    00000400 A   BYTCNT   DATA     1024,1024,1024,8,8
            01 01BC0    00000400 A
            01 01BC1    00000400 A
            01 01BC2    00000008 A
            01 01BC3    00000008 A
     7854   01 01BC4    000003E0 A   REMBC    DATA     X'3E0',X'3E0',X'400',0,8
            01 01BC5    000003E0 A
            01 01BC6    00000400 A
            01 01BC7    00000000 A
            01 01BC8    00000008 A
     7855   01 01BC9    000003E0 A   REMBCX   DATA     X'3E0',X'3D8'     MIOP,SIOP
            01 01BCA    000003D8 A
     7856                            *
     7857   01 01BCB    00000001 A   RMCO     DATA     1,2,3,4,5,9,X'A',X'12',X'83',X'13'
            01 01BCC    00000002 A
            01 01BCD    00000003 A
            01 01BCE    00000004 A
            01 01BCF    00000005 A
            01 01BD0    00000009 A
            01 01BD1    0000000A A
            01 01BD2    00000012 A
            01 01BD3    00000083 A
            01 01BD4    00000013 A
     7858   01 01BD5    00000017 A            DATA     X'17',X'33',X'B3',X'0F',X'1F',7                    A01
            01 01BD6    00000033 A
            01 01BD7    000000B3 A
            01 01BD8    0000000F A
            01 01BD9    0000001F A
            01 01BDA    00000007 A
     7859                            *
     7860                            *
     7861                            *        ***TABLE OF CONSTANTS***
     7862                            *
     7863   01 01BDB    00000000 A   K0       DATA     0
     7864   01 01BDC    00000001 A   K1       DATA     1
     7865   01 01BDD    00000002 A   K2       DATA     2
     7866   01 01BDE    00000003 A   K3       DATA     3
     7867   01 01BDF    00000004 A   K4       DATA     4
     7868   01 01BE0    00000005 A   K5       DATA     5
     7869   01 01BE1    00000008 A   K8       DATA     8
     7870   01 01BE2    00000009 A   K9       DATA     9
     7871   01 01BE3    0000000A A   K10      DATA     10
     7872   01 01BE4    0000000F A   K15      DATA     15
     7873   01 01BE5    00000010 A   K16      DATA     16
     7874   01 01BE6    00000021 A   K33      DATA     33
     7875   01 01BE7    00000064 A   K100     DATA     100
     7876   01 01BE8    00000100 A   K256     DATA     256
     7877   01 01BE9    00000200 A   K512     DATA     512
     7878                            *
     7879   01 01BEA    FFFFFFFF A   KM1      DATA     -1
     7880   01 01BEB    FFFFFFF0 A   KM16     DATA     -16
     7881                            *
     7882   01 01BEC    00000004 A   KX0004   DATA     X'4'
     7883   01 01BED    0000000F A   KX000F   DATA     X'000F'
     7884   01 01BEE    000000F0 A   KX00F0   DATA     X'00F0'
     7885   01 01BEF    000001F0 A   KX01F0   DATA     X'01F0'
     7886   01 01BF0    000000FF A   KX00FF   DATA     X'00FF'
     7887   01 01BF1    0000FFFF A   KXFFFF   DATA     X'FFFF'
     7888   01 01BF2    0000FFFC A   KXFFFC   DATA     X'FFFC'
     7889   01 01BF3    0000FFF0 A   KXFFF0   DATA     X'FFF0'
     7890   01 01BF4    00008000 A   KX8000   DATA     X'8000'
     7891   01 01BF5    00004000 A   KX4000   DATA     X'4000'
     7892                            *
     7893   01 01BF6    80000000 A   KY8000   DATA     X'80000000'
     7894   01 01BF7    40000000 A   KY4000   DATA     X'40000000'
     7895   01 01BF8    20000000 A   KY2000   DATA     X'20000000'
     7896   01 01BF9    10000000 A   KY1000   DATA     X'10000000'
     7897   01 01BFA    08000000 A   KY0800   DATA     X'08000000'
     7898   01 01BFB    04000000 A   KY0400   DATA     X'04000000'
     7899   01 01BFC    02000000 A   KY0200   DATA     X'02000000'
     7900   01 01BFD    01000000 A   KY0100   DATA     X'01000000'
     7901   01 01BFE    00200000 A   KY0020   DATA     X'00200000'
     7902                            *
     7903   01 01BFF    00FFFFFF A   KXN02    DATA     X'00FFFFFF'
     7904   01 01C00    04040404 A   KXN05    DATA     X'04040404'
     7905   01 01C01    60000000 A   KXN06    DATA     X'60000000'
     7906   01 01C02    FFFFFFF0 A   KXN10    DATA     X'FFFFFFF0'
     7907   01 01C03    803FD56A A   KXN11    DATA     X'803FD56A'
     7908   01 01C04    01010101 A   KXN12    DATA     X'01010101'
     7909   01 01C05    FFFF1F00 A   KXN13    DATA     X'FFFF1F00'
     7910                            *
     7911                            *
     7912                            *
     7913                            *
     7914                            *
     7915                            *        ***FUNCTIONAL TEST***
     7916                            *
     7917   01 01C06                 STFIRST  RES      1                 FIRST SUBTEST
     7918   01 01C07                 STLAST   RES      1                 LAST SUBTEST
     7919                            *
     7920                                     BOUND    8
     7921   01 01C08    00000000 A   TST1P    DATA     0,4               LOWER AND UPPER LIMIT OF P. COUNT
            01 01C09    00000004 A
     7922   01 01C0A    00000001 A            DATA     1,107             LIMITS FOR PARAM. 1
            01 01C0B    0000006B A
     7923   01 01C0C    00000001 A            DATA     1,107             LIMITS FOR PARAM. 2
            01 01C0D    0000006B A
     7924   01 01C0E    00000000 A            DATA     0,X'7FFFFFFF'
            01 01C0F    7FFFFFFF A
     7925   01 01C10    00000000 A            DATA     0,X'FFFF'
            01 01C11    0000FFFF A
     7926                            *
     7927   01 01C12    22000000 A   TST1     LI,0     0                 RESET
     7928   01 01C13    35000502              STW,0    T0FLG                 TEST0 FLAG
     7929   01 01C14    33001B7E     TST1A    MTW,0    STEPSP
     7930   01 01C15    69301C19              BNEZ     %+4
     7931   01 01C16    32F011B0              LW,15    TESTNR
     7932   01 01C17    21F00001 A            CI,15    1
     7933   01 01C18    68201C24              BLE      TST1A1
     7934   01 01C19    22F01DD6              LI,15    T00
     7935   01 01C1A    35F01D78              STW,15   TST1T+14
     7936   01 01C1B    35F01D7C              STW,15   TST1T+18
     7937   01 01C1C    35F01D7E              STW,15   TST1T+20
     7938   01 01C1D    35F01D8A              STW,15   TST1T+32
     7939   01 01C1E    35F01D8C              STW,15   TST1T+34
     7940   01 01C1F    35F01D8E              STW,15   TST1T+36
     7941   01 01C20    35F01D90              STW,15   TST1T+38
     7942   01 01C21    35F01D92              STW,15   TST1T+40
     7943   01 01C22    35F01DAC              STW,15   TST1T+66
     7944   01 01C23    35F01DAE              STW,15   TST1T+68
     7945   01 01C24    351011B0     TST1A1   STW,1    TESTNR            SET TEST NUMBER
     7946   01 01C25    6AF00A8D              BAL,15   #TPM              TEST PARAMETERS
     7947   01 01C26    00001C08              DATA     TST1P
     7948   01 01C27    32E00201              LW,14    :P1               LOAD REG.14
     7949   01 01C28    32F00202              LW,15    :P2               IS PARAM. 2 ZERO ?
     7950   01 01C29    69301C31              BNEZ     TST1B             NO
     7951   01 01C2A    32E00201              LW,14    :P1               YES: IS PARAM. 1 ZERO ?
     7952   01 01C2B    69301C2F              BNEZ     %+4               NO
     7953   01 01C2C    22E00001 A            LI,14    1                 YES: SET DEFAULT VALUES
     7954   01 01C2D    22F00063 A            LI,15    99
     7955   01 01C2E    68001C33              B        TST1C
     7956   01 01C2F    32F0000E A            LW,15    14                PARAM. 2 = PARAM.1
     7957   01 01C30    68001C33              B        TST1C
     7958   01 01C31    31E0000F A   TST1B    CW,14    15                COMPARE PARAM. 2 WITH PARAM. 1
     7959   01 01C32    69201D66              BG       TST1FX            ERROR!
     7960   01 01C33    35E01C06     TST1C    STW,14   STFIRST           STORE FIRST
     7961   01 01C34    35F01C07              STW,15   STLAST              AND LAST SUBTEST NUMBER
     7962   01 01C35    35101B66              STW,1    DEVPT
     7963   01 01C36    22F01C3C              LI,15    TST1E             LOAD PARAMETER
     7964   01 01C37    35F0043C              STW,15   ITHRST               FOR INTERRUPT/TRAP
     7965   01 01C38    22F00429              LI,15    ITHDLR                 HANDLER
     7966   01 01C39    35F0030F              STW,15   :PIT15
     7967   01 01C3A    32F01C06     TST1D    LW,15    STFIRST           LOAD FIRST SUBTESTNUMBER
     7968   01 01C3B    35F01B68              STW,15   SUBTNR               IN CURRENT SUBTESTNUMBERLOC.
     7969   01 01C3C    22000000 A   TST1E    LI,0     0                 RESET REG. 0
     7970   01 01C3D    32F00203              MVW      :P3,LCNT
            01 01C3E    35F01B69
     7971                            *
     7972                            * INITIALIZE ALL CONSTANT PARAMETERS
     7973                            *
     7974   01 01C3F    32601B66     TST1E1   LW,6     DEVPT             LOAD DEVICE POINTER
     7975   01 01C40    B27C17DA              LW,7     *DCT5,6           GET DEVICE TYPE
     7976   01 01C41    35701B7B              STW,7    DEVTYPM
     7977   01 01C42    32FE1BA1              LW,15    DEVNR,7
     7978   01 01C43    35F01B70              STW,15   DEVTYP
     7979   01 01C44    32FE1B91              LW,15    CYLNR,7           GET MAXIMAL CYL. ADR
     7980   01 01C45    35F01B73              STW,15   ADR1
     7981   01 01C46    20FFFFFF A            AI,15    -1                LAST CYL. ADDR
     7982   01 01C47    35F01B78              STW,15   ADDR1
     7983   01 01C48    32FE1B89              LW,15    HEADNR,7          GET MAXIMAL HEAD ADR
     7984   01 01C49    35F01B74              STW,15   ADR2
     7985   01 01C4A    20FFFFFF A            AI,15    -1                LAST HEAD/TRACK ADDR
     7986   01 01C4B    35F01B79              STW,15   ADDR2
     7987   01 01C4C    32FE1B81              LW,15    SECTNR,7          GET MAXIMAL SECTOR ADR
     7988   01 01C4D    35F01B75              STW,15   ADR3
     7989   01 01C4E    20FFFFFF A            AI,15    -1                LAST SECTOR ADDR
     7990   01 01C4F    35F01B7A              STW,15   ADDR3
     7991   01 01C50    32FE1B99              LW,15    BYTNR,7           GET MAXIMAL BYTE NUMBER
     7992   01 01C51    35F01B76              STW,15   ADR4
     7993   01 01C52    22800000 A            LI,8     0
     7994   01 01C53    B29C17D6              LW,9     *DCT1,6
     7995   01 01C54    68101C56              BGE      %+2
     7996   01 01C55    B28C17D7              LW,8     *DCT2,6           GET DEVICE ADDRESS
     7997   01 01C56    35801B5F              STW,8    DEVADRB
     7998   01 01C57    4B901BF1              AND,9    KXFFFF            REMOVE BIT 0
     7999   01 01C58    35901B5E              STW,9    DEVADRA           SAVE ADDRESS A
     8000   01 01C59    35901B60              STW,9    DEVADDR           SAVE CURRENT DEVICE ADDRESS
     8001   01 01C5A    4B901BF3              AND,9    KXFFF0            FORM SPECIAL ADDRESSES
     8002   01 01C5B    35901B61              STW,9    DEVADR00            X'0'
     8003   01 01C5C    2090000C A            AI,9     12
     8004   01 01C5D    35901B62              STW,9    DEVADR12          X'C'
     8005   01 01C5E    20900001 A            AI,9     1
     8006   01 01C5F    35901B63              STW,9    DEVADR13          X'D'
     8007   01 01C60    20900001 A            AI,9     1
     8008   01 01C61    35901B64              STW,9    DEVADR14          X'E'
     8009   01 01C62    20900001 A            AI,9     1
     8010   01 01C63    35901B65              STW,9    DEVADR15          X'F'
     8011   01 01C64    22F03262              LI,15    BF1               LOAD BUFFER ADDRESS
     8012   01 01C65    35F01B6E              STW,15   BFRA                  IN LOCATION A
     8013   01 01C66    22F03364              LI,15    BF2               LOAD BUFFER ADDRESS
     8014   01 01C67    35F01B6F              STW,15   BFRB                IN LOCATION BFRB
     8015   01 01C68    35000526              STW,0    T1DPEF
     8016   01 01C69    3500053A              STW,0    T1DMSEQ
     8017   01 01C6A    3500053C              STW,0    T1DVCNT           RESET TEST VARIATION COUNT
     8018   01 01C6B    35001B72              STW,0    SKADR             RESET SEEK ADDRESS
     8019   01 01C6C    35000527              STW,0    T1DLCNT           RESET LOOP COUNTER
     8020   01 01C6D    35001B71              STW,0    TMODB                TEST MODE BUFFER
     8021   01 01C6E    35003262              STW,0    BF1                  BUFFER 1
     8022   01 01C6F    35003263              STW,0    BF1+1
     8023   01 01C70    22F00100 A            LI,15    256               SET DEFAULT VALUE
     8024   01 01C71    35F01B6A              STW,15   WCNT                FOR WORD COUNT
     8025   01 01C72    35001B6B              STW,0    PATID             FIXED PATTERN TYPE
     8026   01 01C73    32F01C03              LW,15    KXN11             GET SEED
     8027   01 01C74    35F01B6C              STW,15   PATID+1              IN PATID+1
     8028   01 01C75    225FFFFC A            LI,5     -4
     8029   01 01C76    350A1B5A              STW,0    SENEXP+4,5
     8030   01 01C77    350A1B56              STW,0    SENMAS+4,5
     8031   01 01C78    65501C76              BIR,5    %-2
     8032   01 01C79    32F01BEA              LW,15    KM1
     8033   01 01C7A    35F01B67              STW,15   STMASK
     8034   01 01C7B    35F01B54              STW,15   SENMAS+2          SENSE MASK
     8035   01 01C7C    32F01B7B              LW,15    DEVTYPM
     8036   01 01C7D    25F00004 A            SLS,15   4
     8037   01 01C7E    75F21B57              STB,15   SENEXP+1,1
     8038   01 01C7F    33001B70              MTW,0    DEVTYP            MODIFY TDV STATUS FOR CONTR.
     8039   01 01C80    68301C83              BEZ      %+3                 TEST MODE:
     8040   01 01C81    22F00002 A            LI,15    X'02'             RAD
     8041   01 01C82    68001C84              B        %+2
     8042   01 01C83    22F00043 A            LI,15    X'43'             DISK
     8043   01 01C84    75F01EA9              STB,15   T1TDV3+1
     8044   01 01C85    32401B7C              LW,4     SIOPFLAG          TEST SIOPFLAG
     8045   01 01C86    32F81BC9              LW,15    REMBCX,4          GET REMAINING BC
     8046   01 01C87    35F01BC4              STW,15   REMBC             INITIALIZE
     8047   01 01C88    35F01BC5              STW,15   REMBC+1
     8048   01 01C89    35F02756              STW,15   T76WT+3             CONSTANTS
     8049   01 01C8A    35F02B63              STW,15   TSEQ104Y+3
     8050   01 01C8B    35F02B6E              STW,15   TSEQ104Z+3
     8051   01 01C8C    35F02ADB              STW,15   TSEQ100Z+3
     8052                            *
     8053                            * ROUTINE FOR INITIALIZING OF SUBTEST DEPENDANT PARAMETERS
     8054                            *
     8055                            *   FORM:
     8056                            *     GEN,8,8,16   42,64,T1V01   LOWER LIMIT, UPPER LIMIT,ADDRESS
     8057                            *
     8058                            *
     8059   01 01C8D    32401B68     TST1F    LW,4     SUBTNR            GET SUBTEST NUMBER
     8060   01 01C8E    32501BDB              LW,5     K0                RESET INDEX
     8061   01 01C8F    32FA1C9A     TST1F1   LW,15    TST1TAB,5         GET TABLE WORD
     8062   01 01C90    31F01BEA              CW,15    KM1               CHECK FOR TABLE END
     8063   01 01C91    68301D10              BE       TST1H             END
     8064   01 01C92    7140000F A            CB,4     15                CHECK FOR LOWER SUBTEST LIMIT
     8065   01 01C93    69101C98              BL       TST1G             NO
     8066   01 01C94    7142000F A            CB,4     15,1              CHECK FOR UPPER LIMIT
     8067   01 01C95    69201C98              BG       TST1G             NO
     8068   01 01C96    4BF01BF1              AND,15   KXFFFF            REMOVE BIT 0-15
     8069   01 01C97    EAF0000F A            BAL,15   *15               BRANCH TO ROUTINE
     8070   01 01C98    33100005 A   TST1G    MTW,1    5                 INCREMENT INDEX
     8071   01 01C99    68001C8F              B        TST1F1
     8072                            *
     8073                            *
     8074         01 01C9A           TST1TAB  EQU      %
     8075                            *
     8076                            ***TMOD***
     8077   01 01C9A    06091CC8 N       GEN,8,8,16    6,9,T1V01         BUFFER TEST MODE
     8078   01 01C9B    0F401CCB N       GEN,8,8,16    15,64,T1V02       CONTROLLER TEST MODE
     8079   01 01C9C    0E0E1CCE N       GEN,8,8,16    14,14,T1V03       INCREMENTAL CONTROLLER TESTMODE
     8080   01 01C9D    12121CCE N       GEN,8,8,16    18,18,T1V03
     8081   01 01C9E    14141CCE N       GEN,8,8,16    20,20,T1V03
     8082   01 01C9F    42421CD0 N       GEN,8,8,16    66,66,T1V04       INCREMENTAL DEVICE TESTMODE
     8083   01 01CA0    44441CD0 N       GEN,8,8,16    68,68,T1V04
     8084   01 01CA1    61611CD2 N       GEN,8,8,16    97,97,T1V05       DEVICE TESTMODE
     8085   01 01CA2    65651CD2 N       GEN,8,8,16    101,101,T1V05
     8086   01 01CA3    5A5B1CD2 N       GEN,8,8,16    90,91,T1V05
     8087   01 01CA4    67671CD2 N       GEN,8,8,16    103,103,T1V05
     8088   01 01CA5    31311CD4 N       GEN,8,8,16    49,49,T1V06       X'82' = TMODB
     8089   01 01CA6    32321CD6 N       GEN,8,8,16    50,50,T1V07       X'42' = TMODB
     8090                            ***SENMAS***
     8091   01 01CA7    15151CD8 N       GEN,8,8,16    21,21,T1V10       X'FFFFFFFF' = SENSE BYTE 0-3
     8092   01 01CA8    1A1A1CD8 N       GEN,8,8,16    26,26,T1V10
     8093   01 01CA9    1C1C1CD8 N       GEN,8,8,16    28,28,T1V10
     8094   01 01CAA    2F301CD8 N       GEN,8,8,16    47,48,T1V10
     8095   01 01CAB    36391CD8 N       GEN,8,8,16    54,57,T1V10
     8096   01 01CAC    41451CD8 N       GEN,8,8,16    65,69,T1V10
     8097   01 01CAD    4A4D1CD8 N       GEN,8,8,16    74,77,T1V10
     8098   01 01CAE    595D1CD8 N       GEN,8,8,16    89,93,T1V10
     8099   01 01CAF    60631CD8 N       GEN,8,8,16    96,99,T1V10
     8100   01 01CB0    65651CD8 N       GEN,8,8,16    101,101,T1V10
     8101   01 01CB1    41671CDB N       GEN,8,8,16    65,103,T1V11      X'0070FF00' = SENSE BYTE 4-7
     8102   01 01CB2    2A401CE7 N       GEN,8,8,16    42,64,T1V12       X'BF43'     = SENSE BYTE 8,9
     8103   01 01CB3    202A1CEA N       GEN,8,8,16    32,42,T1V13       X'FFFF'     = SENSE BYTE 12,13
     8104   01 01CB4    1A1A1CED N       GEN,8,8,16    26,26,T1V14       X'FFFF'     = SENSE BYTE 14,15
     8105   01 01CB5    4A4E1CED N       GEN,8,8,16    74,78,T1V14
     8106                            ***SENEXP***
     8107   01 01CB6    22401CF0 N       GEN,8,8,16    34,64,T1V30       X'0038'/X'0034' = SENSE BYTE 8,9
     8108   01 01CB7    1B1C1CF6 N       GEN,8,8,16    27,28,T1V31       X'0080' = SENSE BYTE 8,9
     8109   01 01CB8    52531CF8 N       GEN,8,8,16    82,83,T1V32       X'0800' =  "      "    "
     8110   01 01CB9    25251CFA N       GEN,8,8,16    37,37,T1V33       SET BIT 1 OF SENSE BYTE 8
     8111   01 01CBA    29291CFA N       GEN,8,8,16    41,41,T1V33
     8112   01 01CBB    21211CFD N       GEN,8,8,16    33,33,T1V35       X'510C' = SENSE BYTE 12,13
     8113   01 01CBC    23291D00 N       GEN,8,8,16    35,41,T1V36       X'803F' =   "    "    "
     8114   01 01CBD    27271D02 N       GEN,8,8,16    39,39,T1V37       X'C48A' =   "     "     "
     8115   01 01CBE    00671D0C N       GEN,8,8,16    00,103,T1V99
     8116   01 01CBF    00671D0C N       GEN,8,8,16    00,103,T1V99
     8117                            ***
     8118   01 01CC0    20231D04 N       GEN,8,8,16    32,35,T1V40       2 = WCNT
     8119   01 01CC1    46461D04 N       GEN,8,8,16    70,70,T1V40
     8120   01 01CC2    4E4F1D04 N       GEN,8,8,16    78,79,T1V40
     8121   01 01CC3    0E0E1D06 N       GEN,8,8,16    14,14,T1V41       X'FFFF1F00' = STMASK
     8122   01 01CC4    42441D06 N       GEN,8,8,16    66,68,T1V41
     8123   01 01CC5    01401D09 N       GEN,8,8,16    1,64,T1V42   ADDRESS 'F'
     8124   01 01CC6    FFFFFFFF A       GEN,8,8,16    -1,-1,-1
     8125   01 01CC7    FFFFFFFF A       GEN,8,8,16    -1,-1,-1
     8126                            *
     8127                            *
     8128                            * INITIALIZE TESTMODE BYTES
     8129                            *
     8130   01 01CC8    22F00001 A   T1V01    LI,15    X'01'
     8131   01 01CC9    75F01B71     T1V011   STB,15   TMODB
     8132   01 01CCA    68001C98              B        TST1G
     8133   01 01CCB    22F00002 A   T1V02    LI,15    X'02'
     8134   01 01CCC    75721B71     T1V021   STB,7    TMODB,1
     8135   01 01CCD    68001CC9              B        T1V011
     8136   01 01CCE    22F0000A A   T1V03    LI,15    X'0A'
     8137   01 01CCF    68001CCC              B        T1V021
     8138   01 01CD0    22F0000C A   T1V04    LI,15    X'0C'
     8139   01 01CD1    68001CC9              B        T1V011
     8140   01 01CD2    22F00004 A   T1V05    LI,15    X'04'
     8141   01 01CD3    68001CC9              B        T1V011
     8142   01 01CD4    22F00082 A   T1V06    LI,15    X'82'
     8143   01 01CD5    68001CCC              B        T1V021
     8144   01 01CD6    22F00042 A   T1V07    LI,15    X'42'
     8145   01 01CD7    68001CCC              B        T1V021
     8146                            *
     8147                            * INITIALIZE SENSE MASK
     8148                            *
     8149   01 01CD8    32F01BEA     T1V10    LW,15    KM1
     8150   01 01CD9    35F01B52              STW,15   SENMAS
     8151   01 01CDA    68001C98              B        TST1G

        1*  01 01CDB    22F00000 A   T1V11    LI,15    X'0000'           IGNORE SENSE BYTES 4 AND 5      *H01
     8154   01 01CDC    55F01B53              STH,15   SENMAS+1

     8156   01 01CDD    32F01B7B              LW,15    DEVTYPM
     8157   01 01CDE    21F00002 A            CI,15    2                 SKIP IF NEW-TECHNOLOGY DISK
     8158   01 01CDF    68301CE4              BE       T1V11X

     8160   01 01CE0    21F00005 A            CI,15    5                 SKIP IF NEW-TECHNOLOGY DISK
     8161   01 01CE1    68101CE4              BGE      T1V11X

        1*  01 01CE2    22F0FFFF A            LI,15    X'FFFF'           MODELS 0, 1, 3, AND 4           *H01
     8164   01 01CE3    68001CE5              B        %+2

     8166   01 01CE4    22F0EF00 A   T1V11X   LI,15    X'EF00'           SENSE MASK - MODELS 2, 5, 6, AND 7
     8167   01 01CE5    55F21B53              STH,15   SENMAS+1,1
     8168   01 01CE6    68001C98              B        TST1G

     8170   01 01CE7    22F0BF43 A   T1V12    LI,15    X'BF43'
     8171   01 01CE8    55F01B54              STH,15   SENMAS+2
     8172   01 01CE9    68001C98              B        TST1G

     8174   01 01CEA    32F01BEA     T1V13    LW,15    KM1
     8175   01 01CEB    55F01B55              STH,15   SENMAS+3
     8176   01 01CEC    68001C98              B        TST1G

     8178   01 01CED    32F01BEA     T1V14    LW,15    KM1
     8179   01 01CEE    55F21B55              STH,15   SENMAS+3,1
     8180   01 01CEF    68001C98              B        TST1G
     8181                            *
     8182                            * INITIALIZE EXPECTED SENSE DATA
     8183                            *
     8184   01 01CF0    22F00038 A   T1V30    LI,15    X'0038'
     8185   01 01CF1    33001B70              MTW,0    DEVTYP
     8186   01 01CF2    68301CF4              BEZ      %+2
     8187   01 01CF3    22F00034 A            LI,15    X'0034'
     8188   01 01CF4    55F01B58     T1V301   STH,15   SENEXP+2
     8189   01 01CF5    68001C98              B        TST1G
     8190   01 01CF6    22F00080 A   T1V31    LI,15    X'0080'
     8191   01 01CF7    68001CF4              B        T1V301
     8192   01 01CF8    22F00800 A   T1V32    LI,15    X'0800'
     8193   01 01CF9    68001CF4              B        T1V301
     8194   01 01CFA    52F01B58     T1V33    LH,15    SENEXP+2
     8195   01 01CFB    30F01BF5              AW,15    KX4000
     8196   01 01CFC    68001CF4              B        T1V301
     8197   01 01CFD    22F0510C A   T1V35    LI,15    X'510C'
     8198   01 01CFE    55F01B59     T1V351   STH,15   SENEXP+3
     8199   01 01CFF    68001C98              B        TST1G
     8200   01 01D00    22F0803F A   T1V36    LI,15    X'803F'
     8201   01 01D01    68001CFE              B        T1V351
     8202   01 01D02    22F0C48A A   T1V37    LI,15    X'C48A'
     8203   01 01D03    68001CFE              B        T1V351
     8204                            *
     8205                            *
     8206                            *
     8207   01 01D04    35201B6A     T1V40    STW,2    WCNT
     8208   01 01D05    68001C98              B        TST1G
     8209   01 01D06    32F01C05     T1V41    MVW      KXN13,STMASK
            01 01D07    35F01B67
     8210   01 01D08    68001C98              B        TST1G
     8211                            *
     8212   01 01D09    32F01B65     T1V42    MVW      DEVADR15,DEVADDR
            01 01D0A    35F01B60
     8213   01 01D0B    68001C98              B        TST1G
     8214   01 01D0C    68001C98     T1V99    B        TST1G
     8215   01 01D0D                          RES      3
     8216                            *
     8217                            *
     8218                            *
     8219                            *
     8220   01 01D10    21400001 A   TST1H    CI,4     1                 IS THIS THE SUBTEST 1
     8221   01 01D11    68301D29              BE       TST1H2            SKIP HIO
     8222   01 01D12    6AF0053D              TEST     TSEQHIO
            01 01D13    00001D26
     8223   01 01D14    2140004B A   TST1H1   CI,4     75                RESTORE ORDER ?
     8224   01 01D15    69101D29              BL       TST1H2            NO
     8225   01 01D16    33001B70              MTW,0    DEVTYP            CHECK DEVICE TYPE
     8226   01 01D17    69301D29              BNEZ     TST1H2            BRANCH IF RAD
     8227   01 01D18    6AF0053D              TEST     TSEQRS
            01 01D19    00001D1E
     8228   01 01D1A    68001D29              B        TST1H2
     8229                            *
     8230   01 01D1B    00003FA3     MSIDRS   DATA     MX500
     8231   01 01D1C    0000402D     MSIDSN   DATA     MX542
     8232   01 01D1D    00004032     MSIDRL   DATA     MX543
     8233                            *
     8234   01 01D1F    01001D1B     TSEQRS   ID       MSIDRS,1
     8235   01 01D1F    11001D1B              INH      1
     8236   01 01D20    00000EFB              IS       IOCDX33           ISSUE RESTORE
     8237   01 01D21    80001EC0              IO1      *T1HIO1
     8238   01 01D1E    10200000 A            TEND
     8239                            *
     8240   01 01D23    01001D1D     TSEQRL   ID       MSIDRL,1
     8241   01 01D23    11001D1D              INH      1
     8242   01 01D24    00000EFA              IS       IOCDX17
     8243   01 01D25    80001EC0              IO1      *T1HIO1
     8244   01 01D22    10200000 A            TEND
     8245                            *
     8246   01 01D27    01001D1C     TSEQHIO  ID       MSIDSN,1
     8247   01 01D27    11001D1C              INH      1
     8248   01 01D28    80001EC0              IO1      *T1HIO1
     8249   01 01D26    00200000 A            TEND
     8250                            *
     8251   01 01D29    32F81D6A     TST1H2   LW,15    TST1T,4           GET SUBTEST ADDRESS
     8252   01 01D2A    72E0000F A            LB,14    15                GET DEVICE TEST BYTE
     8253   01 01D2B    72DE1B7F              LB,13    DEVMASK,7         GET DEVICE TYPE MASK

     8255   01 01D2C    33000502              MTW,0    T0FLG             SKIP IF SUBTEST
     8256   01 01D2D    68301D30              BEZ      %+3                EXECUTION FORCED
     8257   01 01D2E    4BE0000D A            AND,14   13                SKIP IF SUBTEST
     8258   01 01D2F    68301D47              BEZ      TST1R              EXECUTION INHIBITED

        1*  01 01D30    32C00004 A            LW,12    4                 DISPLAY SUBTEST                 *H02
        2*  01 01D31    EAF00217              BAL,15   *:DECC             TO BE EXECUTED                 *H02

        4*  01 01D32    75F01D46              STB,15   TSTMSG+2                                          *H02
        5*  01 01D33    25F00078 A            SLS,15   -8                                                *H02
        6*  01 01D34    55F21D45              STH,15   TSTMSG+1,1                                        *H02

        8*  01 01D35    EAF0021C              BAL,15   *:PRINT                                           *H02
        9*  01 01D36    00001D44              DATA     TSTMSG                                            *H02

       11*  01 01D37    32F81D6A              LW,15    TST1T,4                                           *H02
       12*  01 01D38    32401B70              LW,4     DEVTYP            LOAD DEVICE TYPE: DP=0, DC=1    *H02
     8268   01 01D39    35000005 A            STW,0    5                  AND RESET ALL REGISTERS
     8269   01 01D3A    35000006 A            STW,0    6
     8270   01 01D3B    35000007 A            STW,0    7
     8271   01 01D3C    35000008 A            STW,0    8
     8272   01 01D3D    35000009 A            STW,0    9
     8273   01 01D3E    3500000A A            STW,0    10
     8274   01 01D3F    3500000B A            STW,0    11
     8275   01 01D40    3500000C A            STW,0    12
     8276   01 01D41    3500000D A            STW,0    13
     8277   01 01D42    3500000E A            STW,0    14
     8278   01 01D43    E800000F A            B        *15

        2*  01 01D44    08E3E2E3 A   TSTMSG   TEXTC    'TST1,000'                                        *H02
            01 01D45    F16BF0F0 A
            01 01D46    F0404040 A

     8280   01 01D47    3500053C     TST1R    STW,0    T1DVCNT           RESET TEST VARIATION COUNT
     8281   01 01D48    6AF0053D              TEST     TSEQHIO           ISSUE HIO
            01 01D49    00001D26
     8282   01 01D4A    33001B70              MTW,0    DEVTYP            CHECK DEVICE TYPE
     8283   01 01D4B    69301D51              BNEZ     TST1R0            BRANCH IF RAD
     8284   01 01D4C    32F01B68              LW,15    SUBTNR            TEST SUBTEST NUMBER
     8285   01 01D4D    21F0004B A            CI,15    75
     8286   01 01D4E    69101D56              BL       TST1R1            BRANCH IF SUBTESTNR LESS
     8287   01 01D4F    6AF0053D              TEST     TSEQRS            ISSUE RESTORE ORDER
            01 01D50    00001D1E
     8288   01 01D51    32F01B68     TST1R0   LW,15    SUBTNR
     8289   01 01D52    21F00062 A            CI,15    98
     8290   01 01D53    69101D56              BL       TST1R1
     8291   01 01D54    6AF0053D              TEST     TSEQRL
            01 01D55    00001D22
     8292   01 01D56    33F01B69     TST1R1   MTW,-1   LCNT
     8293   01 01D57    69201C3F              BGZ      TST1E1
     8294   01 01D58    33101B68              MTW,1    SUBTNR
     8295   01 01D59    32F01B68              LW,15    SUBTNR            LOAD SUBTEST COUNT
     8296   01 01D5A    31F01C07              CW,15    STLAST               WITH LAST SUBTEST NUMBER
     8297   01 01D5B    68201C3C              BLE      TST1E             CONTINUE
     8298   01 01D5C    33101B66              MTW,1    DEVPT             INCREM. DEVICE POINTER
     8299   01 01D5D    32601B66              LW,6     DEVPT                AND TEST
     8300   01 01D5E    316017D5              CW,6     DCTNUM                IF LAST DEVICE ?
     8301   01 01D5F    68201C3A              BLE      TST1D
     8302                            *
     8303   01 01D60    33000502     TST1X    MTW,0    T0FLG             CHECK TEST 0 FLAG
     8304   01 01D61    6930050F              BNEZ     TST0B             FLAG SET: GO TO TEST 0
     8305   01 01D62    EAF0021D              BAL,15   *:SENSE
     8306   01 01D63    2E001D63              WAIT     %
     8307   01 01D64    68001C14              B        TST1A             CONTINUE WITH TEST 1
     8308   01 01D65    E8000214              B        *:MONITOR         RETURN TO MONITOR
     8309                            *
     8310   01 01D66    35200EE1     TST1FX   STW,2    VDEC1A            LOAD PRINT LOCATION
     8311   01 01D67    6AF00B7B              SEND     MX403             PARAMETER 2 IS TOO BIG
            01 01D68    00003F82
     8312   01 01D69    E8000214              B        *:MONITOR
1 C00   21:47 JUN 20,'83    TELEFILE ROTATING MEMORY TEST 960-0604-H02                            PAGE   21
A    8314   01 01D6A    00001D46     TST1T    GEN,8,24 0,TST1R-1         NO SUBTEST NUMBER 0
     8315   01 01D6B    FF001EE3              GEN,8,24 X'FF',T01         DEVICE TYPE MASK/SUBTEST ADD
     8316   01 01D6C    7B001F02              GEN,8,24 X'7B',T02
     8317   01 01D6D    7B001F14              GEN,8,24 X'7B',T03
     8318   01 01D6E    7B001F3D              GEN,8,24 X'7B',T04
        1*  01 01D6F    7F001F68              GEN,8,24 X'7F',T05                                         *H01
     8320   01 01D70    7B001F80              GEN,8,24 X'7B',T06
     8321   01 01D71    7B001FA3              GEN,8,24 X'7B',T07
     8322   01 01D72    7B001FCE              GEN,8,24 X'7B',T08
     8323   01 01D73    7B001FEF              GEN,8,24 X'7B',T09
     8324   01 01D74    00001DD6              DATA     T00
     8325   01 01D75    00001DD6              DATA     T00
     8326   01 01D76    00001DD6              DATA     T00
     8327   01 01D77    00001DD6              DATA     T00
     8328   01 01D78    7000200F              GEN,8,24 X'70',T18
     8329   01 01D79    7B002142              GEN,8,24 X'7B',T30
     8330   01 01D7A    7B002151              GEN,8,24 X'7B',T31
     8331   01 01D7B    7B00215A              GEN,8,24 X'7B',T32
     8332   01 01D7C    70002003              GEN,8,24 X'70',T17
     8333   01 01D7D    70002162              GEN,8,24 X'70',T33
     8334   01 01D7E    6000201C              GEN,8,24 X'60',T19
     8335   01 01D7F    7B00216A              GEN,8,24 X'7B',T34
     8336   01 01D80    00001DD6              DATA     T00
     8337   01 01D81    00001DD6              DATA     T00
     8338   01 01D82    7B0021C9              GEN,8,24 X'7B',T41
     8339   01 01D83    7B0021D7              GEN,8,24 X'7B',T42
     8340   01 01D84    70002200              GEN,8,24 X'70',T43
     8341   01 01D85    7B00247D              GEN,8,24 X'7B',T58
     8342   01 01D86    7B00245F              GEN,8,24 X'7B',T57
     8343   01 01D87    7B00242A              GEN,8,24 X'7B',T56
     8344   01 01D88    00001DD6              DATA     T00
     8345   01 01D89    00001DD6              DATA     T00
     8346   01 01D8A    6000205D              GEN,8,24 X'60',T21
     8347   01 01D8B    7000217A              GEN,8,24 X'70',T36
     8348   01 01D8C    60002040              GEN,8,24 X'60',T20
     8349   01 01D8D    70002172              GEN,8,24 X'70',T35
     8350   01 01D8E    60002086              GEN,8,24 X'60',T22
     8351   01 01D8F    7B002182              GEN,8,24 X'7B',T37
     8352   01 01D90    600020AF              GEN,8,24 X'60',T23
     8353   01 01D91    7B00218E              GEN,8,24 X'7B',T38
     8354   01 01D92    600020D2              GEN,8,24 X'60',T24
     8355   01 01D93    7B00219B              GEN,8,24 X'7B',T39
     8356   01 01D94    7B0021AF              GEN,8,24 X'7B',T40
     8357   01 01D95    7B00249C              GEN,8,24 X'7B',T59
     8358   01 01D96    00001DD6              DATA     T00
     8359   01 01D97    70002216              GEN,8,24 X'70',T44
     8360   01 01D98    7B002230              GEN,8,24 X'7B',T45
     8361   01 01D99    7B0022B1              GEN,8,24 X'7B',T48
     8362   01 01D9A    7B0022CC              GEN,8,24 X'7B',T49
     8363   01 01D9B    7B0022F3              GEN,8,24 X'7B',T50
     8364   01 01D9C    7B00232F              GEN,8,24 X'7B',T51
     8365   01 01D9D    7B002344              GEN,8,24 X'7B',T52
     8366   01 01D9E    0200235A              GEN,8,24 X'02',T53
     8367   01 01D9F    7B002387              GEN,8,24 X'7B',T54
     8368   01 01DA0    7B002702              GEN,8,24 X'7B',T72
     8369   01 01DA1    00001DD6              DATA     T00
     8370   01 01DA2    7B00272C              GEN,8,24 X'7B',T74
     8371   01 01DA3    7B002103              GEN,8,24 X'7B',T29
     8372   01 01DA4    00001DD6              DATA     T00
     8373   01 01DA5    00001DD6              DATA     T00
     8374   01 01DA6    00001DD6              DATA     T00
     8375   01 01DA7    00001DD6              DATA     T00
     8376   01 01DA8    00001DD6              DATA     T00
     8377   01 01DA9    00001DD6              DATA     T00
     8378   01 01DAA    00001DD6              DATA     T00
     8379   01 01DAB    7B0023F4              GEN,8,24 X'7B',T55         SUBTEST 65
     8380   01 01DAC    70002A33              GEN,8,24 X'70',T92
     8381   01 01DAD    7B0024B0              GEN,8,24 X'7B',T60
     8382   01 01DAE    70002A3D              GEN,8,24 X'70',T93
     8383   01 01DAF    FF0024CF              GEN,8,24 X'FF',T61         SUBTEST 69
     8384   01 01DB0    F40024ED              GEN,8,24 X'F4',T62
     8385   01 01DB1    FF0024FD              GEN,8,24 X'FF',T63
     8386   01 01DB2    FF002A58              GEN,8,24 X'FF',T94
     8387   01 01DB3    FF00251D              GEN,8,24 X'FF',T65
     8388   01 01DB4    F400259A              GEN,8,24 X'F4',T66
     8389   01 01DB5    FF0025BE              GEN,8,24 X'FF',T67
     8390   01 01DB6    F40025FE              GEN,8,24 X'F4',T68
     8391   01 01DB7    F0002639              GEN,8,24 X'F0',T69         SUBTEST 77
     8392   01 01DB8    F000266E              GEN,8,24 X'F0',T70         SUBTEST 78
     8393   01 01DB9    F40026EC              GEN,8,24 X'F4',T71
     8394   01 01DBA    00001DD6              DATA     T00
     8395   01 01DBB    00001DD6              DATA     T00
     8396   01 01DBC    FF00275D              GEN,8,24 X'FF',T76
     8397   01 01DBD    F400276F              GEN,8,24 X'F4',T77
     8398   01 01DBE    FF002784              GEN,8,24 X'FF',T78
     8399   01 01DBF    FF00279C              GEN,8,24 X'FF',T79
     8400   01 01DC0    FF0027AD              GEN,8,24 X'FF',T80         SUBTEST 86
     8401   01 01DC1    70002259              GEN,8,24 X'70',T46
     8402   01 01DC2    70002285              GEN,8,24 X'70',T47
     8403   01 01DC3    F400280B              GEN,8,24 X'F4',T81         SUBTEST 89
     8404   01 01DC4    70002836              GEN,8,24 X'70',T82
     8405   01 01DC5    00001DD6              DATA     T00
     8406   01 01DC6    00001DD6              DATA     T00
     8407   01 01DC7    10002868              GEN,8,24 X'10',T85
     8408   01 01DC8    F40028C0              GEN,8,24 X'F4',T86         SUBTEST 94
     8409   01 01DC9    700028E3              GEN,8,24 X'70',T87
     8410   01 01DCA    70002938              GEN,8,24 X'70',T88
     8411   01 01DCB    7000297E              GEN,8,24 X'70',T89
     8412   01 01DCC    7B0029DF              GEN,8,24 X'7B',T90
     8413   01 01DCD    7B002A0E              GEN,8,24 X'7B',T91
     8414   01 01DCE    70002A79              GEN,8,24 X'70',T99
     8415   01 01DCF    70002AE5              GEN,8,24 X'70',T100
     8416   01 01DD0    70002B18              GEN,8,24 X'70',T101
     8417   01 01DD1    70002B43              GEN,8,24 X'70',T102
     8418   01 01DD2    70002B96              GEN,8,24 X'70',T104
     8419   01 01DD3    70002C10              GEN,8,24 X'70',T105
     8420   01 01DD4    00002D03              GEN,8,24 X'00',T106
     8421   01 01DD5    00001DD6              DATA     T00
     8422                            *
     8423   01 01DD6    68001D56     T00      B        TST1R1
     8424                            *
     8425                            *
     8426                            *
     8427                            *
1 C00   21:47 JUN 20,'83    TELEFILE ROTATING MEMORY TEST 960-0604-H02                            PAGE   22
A    8429                            *        ***IOCD TABLE***
     8430                            *
     8431                            *
     8432                                     BOUND    8
     8433   01 01DD8                          LOC,8    %
            01 01DD8
     8434   01 01DD8    00000000 A   IOCDX00  IOCD     0,0,0,0
                        00000000
     8435   01 01DDA    0100C988 N   IOCDX01  IOCD     1,BA(BF1),8,1024
                        08000400
     8436   01 01DDC    0200CD90 N   IOCDX02  IOCD     2,BA(BF2),8,1024
                        08000400
     8437   01 01DDE    1200CD90 N   IOCDX12  IOCD     X'12',BA(BF2),8,1024
                        08000400
     8438   01 01DE0    03006DC8 N   IOCDX03  IOCD     3,BA(SKADR),8,4
                        08000004
     8439   01 01DE2    83006DC8 N   IOCDX83  IOCD     X'83',BA(SKADR),8,4
                        08000004
     8440   01 01DE4    04006D68 N   IOCDX04  IOCD     4,BA(SENOBS),8,16
                        08000010
     8441   01 01DE6    0500C988 N   IOCDX05  IOCD     5,BA(BF1),8,1024
                        08000400
     8442   01 01DE8    07000000 A   IOCDX07  IOCD     7,0,0,0                                            A01
                        00000000
     8443   01 01DEA    0900C988 N   IOCDX09  IOCD     9,BA(BF1),8,8
                        08000008
     8444   01 01DEC    0A00CD90 N   IOCDX0A  IOCD     X'0A',BA(BF2),8,8
                        08000008
     8445   01 01DEE    0F000000 A   IOCDX0F  IOCD     X'F',0,0,0
                        00000000
     8446   01 01DF0    1F000000 A   IOCDX1F  IOCD     X'1F',0,0,0
                        00000000
     8447   01 01DF2    13006DC4 N   IOCDX13  IOCD     X'13',BA(TMODB),8,2
                        08000002
     8448   01 01DF4    17000000 A   IOCDX17  IOCD     X'17',0,0,0                                        A01
                        00000000
     8449   01 01DF6    33000000 A   IOCDX33  IOCD     X'33',0,0,0
                        00000000
     8450   01 01DF8    B3000000 A   IOCDXB3  IOCD     X'B3',0,0,0
                        00000000
     8451   01 01DFA    0100C988 N   IOCDX01A IOCD     1,BA(BF1),0,1024
                        00000400
     8452   01 01DFC    0500C988 N   IOCDX05A IOCD     5,BA(BF1),0,1024
                        00000400
     8453                            *
     8454                            *
     8455   01 01DFE    0000C988 N   IOCD02   IOCD     0,BA(BF1),9,1
                        09000001
     8456   01 01E00    13006DC4 N   IOCD03   IOCD     X'13',BA(TMODB),8,2
                        08000002
     8457   01 01E02    13006DC4 N   IOCD04   IOCD     X'13',BA(TMODB),0,2
                        00000002
     8458   01 01E04    13006DC4 N   IOCD05   IOCD     X'13',BA(TMODB),X'2A',2
                        2A000002
     8459   01 01E06    13006DC4 N            IOCD     X'13',BA(TMODB),X'A',2
                        0A000002
     8460   01 01E08    0000C988 N   IOCD06   IOCD     0,BA(BF1),1,0
                        01000000
     8461   01 01E0A    0100C988 N   IOCD07A  IOCD     X'01',BA(BF1),X'80',2
                        80000002
     8462   01 01E0C    0000C98A N            IOCD     0,BA(BF1)+2,X'20',2
                        20000002
     8463   01 01E0E    0200CD90 N            IOCD     X'02',BA(BF2),X'80',2
                        80000002
     8464   01 01E10    0000CD92 N            IOCD     0,BA(BF2)+2,X'0',2
                        00000002
     8465   01 01E12    0100C988 N   IOCD07B  IOCD     X'01',BA(BF1),X'80',2
                        80000002
     8466   01 01E14    0000C98A N            IOCD     0,BA(BF1)+2,X'20',2
                        20000002
     8467   01 01E16    0200CD90 N            IOCD     X'02',BA(BF2),X'0',4
                        00000004
     8468   01 01E18    0100C988 N   IOCD07C  IOCD     X'01',BA(BF1),X'20',4
                        20000004
     8469   01 01E1A    0200CD90 N            IOCD     X'02',BA(BF2),X'80',2
                        80000002
     8470   01 01E1C    0000CD92 N            IOCD     0,BA(BF2)+2,X'0',2
                        00000002
     8471   01 01E1E    0100C988 N   IOCD07D  IOCD     X'01',BA(BF1),X'20',4
                        20000004
     8472   01 01E20    0200CD90 N            IOCD     X'02',BA(BF2),X'0',4
                        00000004
     8473   01 01E22    0100000A A   IOCD08   IOCD     X'01',X'A',X'2A',13
                        2A00000D
     8474   01 01E24    02000000 A            IOCD     X'02',0,X'A',13
                        0A00000D
     8475   01 01E26    0100C988 N   IOCD09   IOCD     X'01',BA(BF1),X'2A',32
                        2A000020
     8476   01 01E28    0200CD90 N            IOCD     X'02',BA(BF2),X'A',32
                        0A000020
     8477                            *
     8478         01 01DF6           IOCD17   EQU      IOCDX33
     8479         01 01DE4           IOCD18   EQU      IOCDX04
     8480         01 01DE0           IOCD19   EQU      IOCDX03
     8481   01 01E2A    0A00C988 N   IOCD20   IOCD     X'0A',BA(BF1),0,8
                        00000008
     8482         01 01DEA           IOCD21   EQU      IOCDX09
     8483   01 01E2C    0200C988 N   IOCD22   IOCD     2,BA(BF1),0,4
                        00000004
     8484         01 01DDA           IOCD23   EQU      IOCDX01
     8485         01 01DE6           IOCD24   EQU      IOCDX05
     8486   01 01E2E    0400C988 N   IOCD30   IOCD     4,BA(BF1),0,0
                        00000000
     8487         01 01DEE           IOCD31   EQU      IOCDX0F
     8488         01 01DF4           IOCD32   EQU      IOCDX17                                            A01
     8489         01 01DF6           IOCD33   EQU      IOCDX33
     8490   01 01E30    03006DC8 N   IOCD34   IOCD     3,BA(SKADR),0,4
                        00000004
     8491         01 01DEC           IOCD35   EQU      IOCDX0A
     8492         01 01DEA           IOCD36   EQU      IOCDX09
     8493         01 01DDC           IOCD37   EQU      IOCDX02
     8494         01 01DFA           IOCD38   EQU      IOCDX01A
     8495         01 01DFC           IOCD39   EQU      IOCDX05A
     8496   01 01E32    0100C988 N   IOCD40A  IOCD     1,BA(BF1),0,2
                        00000002
     8497   01 01E34    0200CD90 N   IOCD40B  IOCD     2,BA(BF2),0,2
                        00000002
     8498   01 01E36    03006DC8 N   IOCD41   IOCD     3,BA(SKADR),0,0
                        00000000
     8499         01 01DE0           IOCD42   EQU      IOCDX03
     8500   01 01E38    030087FC N   IOCD43   IOCD     3,BA(T43ADR),0,4
                        00000004
     8501   01 01E3A    0000CD90 N   IOCD44   IOCD     0,BA(BF2),0,0
                        00000000
     8502   01 01E3C    0000C988 N   IOCD45   IOCD     0,BA(BF1),0,0
                        00000000
     8503   01 01E3E    0A00CD90 N   IOCD46   IOCD     X'A',BA(BF2),0,8
                        00000008
     8504   01 01E40    00000000 A   IOCD47   IOCD     0,0,0,2048
                        00000800
     8505   01 01E42    0000C988 N   IOCD48   IOCD     0,BA(BF1),X'8E',1024
                        8E000400
     8506   01 01E44    08000F22 N            IOCD     8,%,0,0
                        00000000
     8507   01 01E46    0000C988 N   IOCD49   IOCD     0,BA(BF1),0,1024
                        00000400
     8508         01 01DE0           IOCD50A  EQU      IOCDX03
     8509   01 01E48    8300C988 N   IOCD50B  IOCD     X'83',BA(BF1),0,4
                        00000004
     8510   01 01E4A    0100C988 N   IOCD50C  IOCD     1,BA(BF1),0,1
                        00000001
     8511   01 01E4C    0100C988 N   IOCD50D  IOCD     1,BA(BF1),0,8
                        00000008
     8512   01 01E4E    0200CD90 N   IOCD50E  IOCD     2,BA(BF2),X'40',1024
                        40000400
     8513   01 01E50    0200CD91 N   IOCD51A  IOCD     2,BA(BF2)+1,0,1024
                        00000400
     8514   01 01E52    0100C988 N   IOCD51B  IOCD     1,BA(BF1),0,1023
                        000003FF
     8515   01 01E54    0000CD90 N   IOCD52   IOCD     0,BA(BF2),X'94',1                                  A02
                        94000001
     8516   01 01E56    08000F2A N            IOCD     8,%-1,0,0
                        00000000
     8517   01 01E58    0000CD90 N   IOCD53   IOCD     0,BA(BF2),0,1
                        00000001
     8518   01 01E5A    83006DC8 N   IOCD54A  IOCD     X'83',BA(SKADR),0,4
                        00000004
     8519   01 01E5C    B3000000 A   IOCD54B  IOCD     X'B3',0,0,0
                        00000000
     8520   01 01E5E    0200CD90 N   IOCD56   IOCD     2,BA(BF2),0,1024
                        00000400
     8521         01 01DE0           IOCD58   EQU      IOCDX03
     8522         01 01DFC           IOCD59   EQU      IOCDX05A
     8523         01 01DE0           IOCD61   EQU      IOCDX03
     8524         01 01DEC           IOCD62   EQU      IOCDX0A
     8525   01 01E60    0000C988 N   IOCD63A  IOCD     0,BA(BF1),8,1024
                        08000400
     8526         01 01DDC           IOCD63B  EQU      IOCDX02
     8527         01 01DDA           IOCD65A  EQU      IOCDX01
     8528         01 01DEC           IOCD65B  EQU      IOCDX0A
     8529         01 01DDC           IOCD65C  EQU      IOCDX02
     8530         01 01DF6           IOCD66A  EQU      IOCDX33
     8531         01 01DE0           IOCD66B  EQU      IOCDX03
     8532   01 01E62    03006DC8 N   IOCD66C  IOCD     X'03',BA(SKADR),X'28',4
                        28000004
     8533   01 01E64    33000000 A            IOCD     X'33',0,8,0
                        08000000
     8534         01 01DE2           IOCD67   EQU      IOCDX83
     8535         01 01DF8           IOCD68   EQU      IOCDXB3
     8536   01 01E66    03006DC8 N   IOCD69   IOCD     X'03',BA(SKADR),X'28',4
                        28000004
     8537   01 01E68    04006D68 N            IOCD     X'04',BA(SENOBS),8,16
                        08000010
     8538         01 01DE2           IOCD70A  EQU      IOCDX83
     8539         01 01DEC           IOCD70B  EQU      IOCDX0A
     8540         01 01DEA           IOCD71A  EQU      IOCDX09
     8541         01 01DEC           IOCD71B  EQU      IOCDX0A
     8542   01 01E6A    0000C988 N   IOCD72   IOCD     0,BA(BF1),0,1024
                        00000400
     8543   01 01E6C    0000C988 N   IOCD74   IOCD     0,BA(BF1),0,1024
                        00000400
     8544   01 01E6E    0100C988 N   IOCD76   IOCD     1,BA(BF1),X'8D',1024
                        8D000400
     8545   01 01E70    08000F37 N            IOCD     8,%-1,0,0
                        00000000
     8546   01 01E72    0A00CD90 N   IOCD77   IOCD     X'0A',BA(BF2),X'8D',8
                        8D000008
     8547   01 01E74    08000F39 N            IOCD     8,%-1,0,0
                        00000000
     8548   01 01E76    0000C988 N   IOCD78A  IOCD     0,BA(BF1),X'A',4
                        0A000004
     8549   01 01E78    0200CD90 N   IOCD78B  IOCD     2,BA(BF2),X'A',4
                        0A000004
     8550         01 01DE6           IOCD78C  EQU      IOCDX05
     8551         01 01DDC           IOCD78D  EQU      IOCDX02
     8552         01 01DDA           IOCD80A  EQU      IOCDX01
     8553         01 01DDC           IOCD80B  EQU      IOCDX02
     8554         01 01DEA           IOCD81A  EQU      IOCDX09
     8555         01 01DEC           IOCD81B  EQU      IOCDX0A
     8556   01 01E7A    0000CD90 N   IOCD81C  IOCD     0,BA(BF2),0,1024
                        00000400
     8557         01 01DEA           IOCD82A  EQU      IOCDX09
     8558         01 01DDA           IOCD82B  EQU      IOCDX01
     8559         01 01DDC           IOCD82C  EQU      IOCDX02
     8560         01 01DE6           IOCD82D  EQU      IOCDX05
     8561         01 01DEC           IOCD82E  EQU      IOCDX0A
     8562   01 01E7C    0000CD90 N   IOCD85   IOCD     0,BA(BF2),X'10',1024
                        10000400
     8563   01 01E7E    00006DC8 N   IOCD86   IOCD     0,BA(SKADR),X'28',4
                        28000004
     8564   01 01E80    00006DC8 N            IOCD     0,BA(SKADR),0,4
                        00000004
     8565         01 01DDA           IOCD87A  EQU      IOCDX01
     8566         01 01DDC           IOCD87B  EQU      IOCDX02
     8567         01 01DE0           IOCD88   EQU      IOCDX03
     8568         01 01DE0           IOCD89   EQU      IOCDX03
     8569         01 01DE0           IOCD91A  EQU      IOCDX03
     8570         01 01DF0           IOCD91B  EQU      IOCDX1F
     8571         01 01DEE           IOCD91D  EQU      IOCDX0F
     8572         01 01DDA           IOCD99A  EQU      IOCDX01
     8573         01 01DDC           IOCD99B  EQU      IOCDX02
     8574         01 01DDA           IOCD100  EQU      IOCDX01
     8575   01 01E82    0100C988 N   IOCD104A IOCD     1,BA(BF1),X'8C',1024
                        8C000400
     8576   01 01E84    08000F41 N            IOCD     8,%-1,0,0
                        00000000
     8577   01 01E86    1200CD90 N   IOCD104B IOCD     X'12',BA(BF2),X'8C',1024
                        8C000400
     8578   01 01E88    08000F43 N            IOCD     8,%-1,0,0
                        00000000
     8579   01 01E8A    0500C988 N   IOCD104C IOCD     5,BA(BF1),X'8C',1024
                        8C000400
     8580   01 01E8C    08000F45 N            IOCD     8,%-1,0,0
                        00000000
     8581                            *
     8582   01 01E8E    00000000 A            IOCD     0,0,0,0
                        00000000
     8583   01 01E90                          LOC,4    %
            01 01E90
     8584                            *
     8585                            *
     8586                            *
     8587                            *        ***COMMON PARAMETER FOR FTD***
     8588                            *
     8589                            * IO1-IO3
     8590                            *
     8591   01 01E90    00000001 A   T1TIO1   DATA     1,X'10000000',X'FFFFC000'
            01 01E91    10000000 A
            01 01E92    FFFFC000 A
     8592   01 01E93    00000001 A   T1TIO2   DATA     1,X'18000000',X'FFFFC000'
            01 01E94    18000000 A
            01 01E95    FFFFC000 A
     8593   01 01E96    00000001 A   T1TIO3   DATA     1,X'10800000',X'FFFFC000'
            01 01E97    10800000 A
            01 01E98    FFFFC000 A
     8594   01 01E99    00000001 A   T1TIO4   DATA     1,X'10000000',X'FF7FC000'
            01 01E9A    10000000 A
            01 01E9B    FF7FC000 A
     8595   01 01E9C    00000001 A   T1TIO5   DATA     1,X'10400000',X'FFFFC000'
            01 01E9D    10400000 A
            01 01E9E    FFFFC000 A
     8596   01 01E9F    00000001 A   T1TIO6   DATA     1,X'18000000',X'FF7DC000' FOR SUBTEST 71
            01 01EA0    18000000 A
            01 01EA1    FF7DC000 A
     8597                            *
     8598                            *
     8599   01 01EA2    00000004 A   T1TDV1   DATA     4,X'00004000',X'FFFFC000'
            01 01EA3    00004000 A
            01 01EA4    FFFFC000 A
     8600   01 01EA5    00000004 A   T1TDV2   DATA     4,X'00000000',X'FFFFC000'
            01 01EA6    00000000 A
            01 01EA7    FFFFC000 A
     8601   01 01EA8    00000004 A   T1TDV3   DATA     4,X'43004000',X'FF00C000'
            01 01EA9    43004000 A
            01 01EAA    FF00C000 A
     8602   01 01EAB    00000004 A   T1TDV4   DATA     4,X'00004000',X'FF00C000'
            01 01EAC    00004000 A
            01 01EAD    FF00C000 A
     8603   01 01EAE    00000004 A   T1TDV5   DATA     4,X'00000000',X'FF7FC000'
            01 01EAF    00000000 A
            01 01EB0    FF7FC000 A
     8604   01 01EB1    00000004 A   T1TDV6   DATA     4,X'00004000',X'BC00C000'
            01 01EB2    00004000 A
            01 01EB3    BC00C000 A
     8605   01 01EB4    00000004 A   T1TDV7   DATA     4,X'20004000',X'FF00C000'
            01 01EB5    20004000 A
            01 01EB6    FF00C000 A
     8606   01 01EB7    00000004 A   T1TDV8   DATA     4,X'20000000',X'FF00C000'
            01 01EB8    20000000 A
            01 01EB9    FF00C000 A
     8607   01 01EBA    00000004 A   T1TDV9   DATA     4,0,0
            01 01EBB    00000000 A
            01 01EBC    00000000 A
     8608   01 01EBD    00000004 A   T1TDV10  DATA     4,X'00004000',X'BF7FC000'
            01 01EBE    00004000 A
            01 01EBF    BF7FC000 A
     8609                            *
     8610                            *
     8611   01 01EC0    00000002 A   T1HIO1   DATA     2,X'00000000',X'0000C000'
            01 01EC1    00000000 A
            01 01EC2    0000C000 A
     8612   01 01EC3    00000002 A   T1HIO2   DATA     2,X'18000000',X'FFFFC000'
            01 01EC4    18000000 A
            01 01EC5    FFFFC000 A
     8613   01 01EC6    00000002 A   T1HIO3   DATA     2,X'10000000',X'FFFFC000'
            01 01EC7    10000000 A
            01 01EC8    FFFFC000 A
     8614   01 01EC9    00000002 A   T1HIO4   DATA     2,X'76004000',X'FFFFC000'
            01 01ECA    76004000 A
            01 01ECB    FFFFC000 A
     8615                            *
     8616   01 01ECC    00000000 A   T1WT     DATA     0,30              READY,DELAY OF 30 MSEC
            01 01ECD    0000001E A
     8617   01 01ECE    00000000 A   T1IO     DATA     0                 IOCD DOUBLE WORD ADDRESS
     8618   01 01ECF    00000000 A            DATA     0                 REMAINING BYTE COUNT
     8619   01 01ED0    00000000 A            DATA     0,-1
            01 01ED1    FFFFFFFF A
     8620                            *
     8621                            *
     8622                            *
     8623   01 01ED2    00003C1C     MSID00   DATA     MX000
     8624                            *
     8625   01 01ED4    01001ED2     TSEQ00   ID       MSID00,1
     8626   01 01ED3    00000000 A            TEND
     8627                            *
1 C00   21:47 JUN 20,'83    TELEFILE ROTATING MEMORY TEST 960-0604-H02                            PAGE   23
A    8629                            *        ***FUNCTIONAL SUBTESTS***
     8630                            *        -------------------------
     8631                            *
     8632                            *        ***SUBTEST 01***
     8633                            *
     8634   01 01ED5    00003DEB     MSID01   DATA     MX101             HIO,TIO,TDV RECOGNITION TEST
     8635                            *
     8636   01 01ED7    01001ED5     TSEQ01A  ID       MSID01,1
     8637   01 01ED8    80001EC0              IO1      *T1HIO1
     8638   01 01ED6    00200000 A            TEND
     8639                            *
     8640   01 01EDA    01001ED5     TSEQ01B  ID       MSID01,1
     8641   01 01EDB    00000001 A            IO1      TIO,X'10000000',X'FF00C000'
            01 01EDC    10000000 A
            01 01EDD    FF00C000 A
     8642   01 01ED9    00200000 A            TEND
     8643                            *
     8644   01 01EDF    01001ED5     TSEQ01C  ID       MSID01,1
     8645   01 01EE0    00000004 A            IO1      TDV,X'00000000',X'0000C000'
            01 01EE1    00000000 A
            01 01EE2    0000C000 A
     8646   01 01EDE    00200000 A            TEND
     8647                            *
     8648                            *
     8649   01 01EE3    6AF0053D     T01      TEST     TSEQ01A
            01 01EE4    00001ED6
     8650   01 01EE5    6AF0053D              TEST     TSEQ01B           EXECUTE TEST SEQUENCE 01B
            01 01EE6    00001ED9
     8651   01 01EE7    6AF0053D              TEST     TSEQ01C           EXECUTE TEST SEQUENCE 01C
            01 01EE8    00001EDE
     8652   01 01EE9    68001D47              B        TST1R             RETURN TO TST1 CONTROL  PROG.
     8653                            *
     8654                            *
1 C00   21:47 JUN 20,'83    TELEFILE ROTATING MEMORY TEST 960-0604-H02                            PAGE   24
A    8656                            *        ***SUBTEST 02***
     8657                            *
     8658   01 01EEA    00003DF3     MSID02   DATA     MX102            INVALID ORDER TEST
     8659                            *
     8660   01 01EEC    01001EEA     TSEQ02A  ID       MSID02,1
     8661   01 01EED    00000EFF              IO       IOCD02
     8662   01 01EEE    00000000 A            WT       RDY,30,IOCD02,1
            01 01EEF    0000001E A
            01 01EF0    00000EFF
            01 01EF1    00000001 A
     8663   01 01EF2    80001E93              IO1      *T1TIO2
     8664   01 01EF3    80001EC3              IO2      *T1HIO2
     8665   01 01EF4    80001E90              IO3      *T1TIO1
     8666   01 01EEB    03380000 A            TEND
     8667                            *
     8668   01 01EF6    01001EEA     TSEQ02B  ID       MSID02,1
     8669   01 01EF7    00000EFF              IO       IOCD02
     8670   01 01EF8    00000000 A            WT       RDY,30,IOCD02,1
            01 01EF9    0000001E A
            01 01EFA    00000EFF
            01 01EFB    00000001 A
     8671   01 01EFC    80001EB7              IO1      *T1TDV8
     8672   01 01EFD    80001EC3              IO2      *T1HIO2
     8673   01 01EFE    80001EA5              IO3      *T1TDV2
     8674   01 01EF5    03380000 A            TEND
     8675                            *
     8676   01 01EFF    01       A   T02O     DATA,1   1,2,3,4,5,9,X'A',X'23',X'33',X'83'
            01 01EFF 1  02       A
            01 01EFF 2  03       A
            01 01EFF 3  04       A
            01 01F00    05       A
            01 01F00 1  09       A
            01 01F00 2  0A       A
            01 01F00 3  23       A
            01 01F01    33       A
            01 01F01 1  83       A
     8677                            *
     8678   01 01F02    72FC1EFF     T02      LB,15    T02O,6
     8679   01 01F03    75F01DFE              STB,15   IOCD02
     8680   01 01F04    6AF0053D              TEST     TSEQ02A           EXECUTE TEST SEQUENCE 02A
            01 01F05    00001EEB
     8681   01 01F06    6AF0053D              TEST     TSEQ02B           EXECUTE TEST SEQUENCE 02B
            01 01F07    00001EF5
     8682   01 01F08    20600001 A            LOOP,6   K10,T02
            01 01F09    31601BE3
            01 01F0A    69101F02
     8683   01 01F0B    68001D47              B        TST1R             RETURN TO TST1 CONTROL  PROG.
     8684                            *
     8685                            *
1 C00   21:47 JUN 20,'83    TELEFILE ROTATING MEMORY TEST 960-0604-H02                            PAGE   25
A    8687                            *        ***SUBTEST 03***
     8688                            *
     8689   01 01F0C    00003DF7     MSID03   DATA     MX103             TEST MODE SELECTION TEST
     8690                            *
     8691   01 01F0E    01001F0C     TSEQ03   ID       MSID03,1
     8692   01 01F0F    00000F00              EX       IOCD03
     8693                            *
     8694   01 01F10    80001EA2              IO1      *T1TDV1
     8695   01 01F11    80001EC6              IO2      *T1HIO3
     8696   01 01F12    80001EA5              IO3      *T1TDV2
     8697   01 01F0D    08380000 A            TEND
     8698                            *
     8699   01 01F13    01020400 A   T03X     DATA     X'01020400'
     8700                            *
     8701   01 01F14    72FC1F13     T03      LB,15    T03X,6            LOAD TEST MODE BYTE 1
     8702   01 01F15    75F01B71              STB,15   TMODB             STORE IT IN BUFFER
     8703   01 01F16    3310053C              MTW,1    T1DVCNT           INCREMENT TEST VARIATION COUNT
     8704   01 01F17    6AF0053D              TEST     TSEQ03            EXECUTE TEST SEQUENCE 03
            01 01F18    00001F0D
     8705   01 01F19    20600001 A            LOOP,6  K3,T03
            01 01F1A    31601BDE
            01 01F1B    69101F14
     8706   01 01F1C    68001D47              B        TST1R             RETURN TO TST1 CONTROL  PROG.
     8707                            *
1 C00   21:47 JUN 20,'83    TELEFILE ROTATING MEMORY TEST 960-0604-H02                            PAGE   26
A    8709                            *        ***SUBTEST 04***
     8710                            *
     8711   01 01F1D    00003DFC     MSID04   DATA     MX104             INTERRUPT GENERATION TEST
     8712                            *
     8713   01 01F1F    01001F1D     TSEQ04   ID       MSID04,1
     8714   01 01F20    00000F01              IO       IOCD04
     8715   01 01F21    80001F27              WT       *T04W
     8716   01 01F22    80001F2D              IO1      *T04T
     8717   01 01F23    80001F30              IO2      *T04HA
     8718   01 01F24    00000001 A            IO3      TIO,X'10000000',X'F7FFC000'
            01 01F25    10000000 A
            01 01F26    F7FFC000 A
     8719   01 01F1E    03380000 A            TEND
     8720   01 01F27    00000000 A   T04W     DATA     0,30,IOCD04,0
            01 01F28    0000001E A
            01 01F29    00000F01
            01 01F2A    00000000 A
     8721   01 01F2B    00004000 A            DATA     X'00004000',X'FFFFC000'
            01 01F2C    FFFFC000 A
     8722   01 01F2D    00000001 A   T04T     DATA     1,X'90000000',X'F7FFC000' TIO DATA
            01 01F2E    90000000 A
            01 01F2F    F7FFC000 A
     8723   01 01F30    00000000 A   T04HA    DATA     0,0,0
            01 01F31    00000000 A
            01 01F32    00000000 A
     8724   01 01F33    04104000 A   T04FL    DATA     X'04104000'
     8725   01 01F34    08102000 A   T04AI    DATA     X'08102000'       AIO STATUS BYTES
     8726   01 01F35    40400000 A   T04TC    DATA     X'40400000'
     8727   01 01F36    90901000 A   T04TO    DATA     X'90901000'       TIO DEVICE STATUS
     8728   01 01F37    0040C000 A   T04HC    DATA     X'0040C000'       CONDITION CODE
     8729   01 01F38    00000100 A   T04X     DATA     X'00000100'       RDY/RDY/INT BYTES
     8730   01 01F39    02030300 A   T04Y     DATA     X'02030300'       HIO/AIO/AIO BYTES
     8731   01 01F3A    00000000 A   T04Z     DATA     0,X'FFFFC000',X'C000' MASK FOR HIO/AIO
            01 01F3B    FFFFC000 A
            01 01F3C    0000C000 A
     8732                            *
     8733   01 01F3D    72FE1F38     T04      LB,15    T04X,7            LOAD RDY/INT
     8734   01 01F3E    35F01F27              STW,15   T04W
     8735   01 01F3F    72FE1F39              LB,15    T04Y,7            LOAD HIO,AIO
     8736   01 01F40    35F01F30              STW,15   T04HA
     8737   01 01F41    32FE1F3A              LW,15    T04Z,7            LOAD MASK
     8738   01 01F42    35F01F32              STW,15   T04HA+2
     8739   01 01F43    72FE1F37              LB,15    T04HC,7
     8740   01 01F44    75F41F31              STB,15   T04HA+1,2         CONDITION CODE
     8741   01 01F45    72FE1F35              LB,15    T04TC,7
     8742   01 01F46    75F41F2E              STB,15   T04T+1,2
     8743   01 01F47    72FE1F36              LB,15    T04TO,7           LOAD STATUS
     8744   01 01F48    75F01F2E              STB,15   T04T+1
     8745   01 01F49    35900006 A            STW,9    6                 RESET REG 6 TO ZERO
     8746   01 01F4A    3310053C              MTW,1    T1DVCNT           INCREMENT TEST VARIATION COUNT
     8747   01 01F4B    72FC1F33     T04A     LB,15    T04FL,6           LOAD INTERRUPT FLAG
     8748   01 01F4C    75F01E03              STB,15   WA(IOCD04)+1
     8749   01 01F4D    72FC1F34              LB,15    T04AI,6           LOAD EXPECTED STATUS
     8750   01 01F4E    75F21F31              STB,15   T04HA+1,1
     8751   01 01F4F    75F21F2B              STB,15   T04W+4,1
     8752   01 01F50    6AF0053D              TEST     TSEQ04            EXECUTE TEST SEQUENCE 04
            01 01F51    00001F1E
     8753   01 01F52    20600001 A            LOOP,6  K3,T04A            INNER LOOP
            01 01F53    31601BDE
            01 01F54    69101F4B
     8754   01 01F55    20700001 A            LOOP,7  K3,T04             OUTER LOOP
            01 01F56    31701BDE
            01 01F57    69101F3D
     8755   01 01F58    68001D47              B        TST1R             RETURN TO TST1 CONTROL  PROG.
     8756                            *
     8757                            *
1 C00   21:47 JUN 20,'83    TELEFILE ROTATING MEMORY TEST 960-0604-H02                            PAGE   27
A    8759                            *        ***SUBTEST 05***
     8760                            *
     8761   01 01F59    00003E00     MSID05   DATA     MX105             COMMAND CHAINING TEST
     8762                            *
     8763   01 01F5B    01001F59     TSEQ05   ID       MSID05,1
     8764   01 01F5C    00000F02              IO       IOCD05
     8765   01 01F5D    80001F5F              WT       *T05WT
     8766   01 01F5E    80001F64              IO1      *T05T
     8767   01 01F5A    03200000 A            TEND
     8768                            *
     8769   01 01F5F    00000000 A   T05WT    DATA     0,30,0,0
            01 01F60    0000001E A
            01 01F61    00000000 A
            01 01F62    00000000 A
     8770   01 01F63    00010000 A   T05X     DATA     X'00010000'
     8771   01 01F64    00000004 A   T05T     DATA     4,0,X'C000'       TDV DATA
            01 01F65    00000000 A
            01 01F66    0000C000 A
     8772   01 01F67    00400000 A   T05TX    DATA     X'00400000'
     8773                            *
     8774   01 01F68    72FC1F63     T05      LB,15    T05X,6            GET  TEST MODE BYTE
     8775   01 01F69    75F01B71              STB,15   TMODB             LOAD TEST MODE BYTE
     8776   01 01F6A    72FC1F67              LB,15    T05TX,6           LOAD TDV CONDITION CODE
     8777   01 01F6B    75F41F65              STB,15   T05T+1,2
     8778   01 01F6C    22F00F02              LI,15    IOCD05            LOAD IOCD ADDRESS
     8779   01 01F6D    30F00006 A            AW,15    6                 ADD INDEX
     8780   01 01F6E    35F01F61              STW,15   T05WT+2           STORE IN EXPECTED IOCD ADDR.
     8781   01 01F6F    3310053C              MTW,1    T1DVCNT           INCREMENT TEST VARIATION COUNT
     8782   01 01F70    6AF0053D              TEST     TSEQ05            EXECUTE TEST SEQUENCE 05
            01 01F71    00001F5A
     8783   01 01F72    20600001 A            LOOP,6  K2,T05
            01 01F73    31601BDD
            01 01F74    69101F68
     8784   01 01F75    68001D47              B        TST1R             RETURN TO TST1 CONTROL  PROG.
     8785                            *
     8786                            *
1 C00   21:47 JUN 20,'83    TELEFILE ROTATING MEMORY TEST 960-0604-H02                            PAGE   28
A    8788                            *        ***SUBTEST 06***
     8789                            *
     8790   01 01F76    00003E04     MSID06   DATA     MX106             FAM WRITE AND READ BYTE COUNT TEST
     8791                            *
     8792   01 01F78    01001F76     TSEQ06   ID       MSID06,1
     8793                                     TM
     8794   01 01F79    00000F04              EX       IOCD06
     8795   01 01F7A    80001E99              IO1      *T1TIO4
     8796   01 01F77    48200000 A            TEND
     8797   01 01F7B                          RES      4
     8798                            *
     8799   01 01F7F    01020000 A   T06O     DATA     X'01020000'
     8800                            *
     8801   01 01F80    35100007 A   T06      STW,1    7
     8802   01 01F81    75761E09     T06A     STB,7    WA(IOCD06)+1,3    STORE BYTE COUNT
     8803   01 01F82    35900006 A            STW,9    6                 RESET REG. 6 TO ZERO
     8804   01 01F83    72FC1F7F     T06B     LB,15    T06O,6            LOAD ORDER
     8805   01 01F84    75F01E08              STB,15   IOCD06              IN IOCD
     8806   01 01F85    6AF0053D              TEST     TSEQ06            EXECUTE TEST SEQUENCE 06
            01 01F86    00001F77
     8807   01 01F87    20600001 A            LOOP,6  K2,T06B            INNER LOOP
            01 01F88    31601BDD
            01 01F89    69101F83
     8808   01 01F8A    20700001 A            LOOP,7  K33,T06A           OUTER LOOP
            01 01F8B    31701BE6
            01 01F8C    69101F81
     8809   01 01F8D    68001D47              B        TST1R             RETURN TO TST1 CONTROL  PROG.
     8810                            *
     8811                            *
1 C00   21:47 JUN 20,'83    TELEFILE ROTATING MEMORY TEST 960-0604-H02                            PAGE   29
A    8813                            *        ***SUBTEST 07***
     8814                            *
     8815   01 01F8E    00003E09     MSID07   DATA     MX107             FAM WRITE AND READ: INTERFACE TEST
     8816                            *
     8817   01 01F90    01001F8E     TSEQ07   ID       MSID07,1
     8818                                     PT
     8819                                     TM
     8820   01 01F91    80001F94              IO       *T07S
     8821   01 01F92    80001F95              WT       *T07W
     8822   01 01F93    80001E99              IO1      *T1TIO4
     8823                                     CM
     8824   01 01F8F    C3220000 A            TEND
     8825                            *
     8826   01 01F94    00000000 A   T07S     DATA     0
     8827   01 01F95    00000000 A   T07W     DATA     0,30,0,0
            01 01F96    0000001E A
            01 01F97    00000000 A
            01 01F98    00000000 A
     8828                            *
     8829   01 01F99    00000F05     T07I     DATA     IOCD07A,IOCD07B,IOCD07C,IOCD07D
            01 01F9A    00000F09
            01 01F9B    00000F0C
            01 01F9C    00000F0F
     8830   01 01F9D    0003     A   T07P     DATA,2   3,2,2,1
            01 01F9D 2  0002     A
            01 01F9E    0002     A
            01 01F9E 2  0001     A
     8831                            *
     8832   01 01F9F    00010203 A   T07X     DATA     X'00010203',X'F0F1F2F3',X'0F1F2F3F',X'A55AC33C'
            01 01FA0    F0F1F2F3 A
            01 01FA1    0F1F2F3F A
            01 01FA2    A55AC33C A
     8833                            *
     8834   01 01FA3    22F00001 A   T07      LI,15    1                 LOAD
     8835   01 01FA4    35F01B6A              STW,15   WCNT                WORD COUNT
     8836   01 01FA5    32FE1F9F     T07A     LW,15    T07X,7            LOAD PATTERN SEED
     8837   01 01FA6    35F01B6C              STW,15   PATID+1
     8838   01 01FA7    22600000 A            LI,6     0
     8839   01 01FA8    32FC1F99     T07B     LW,15    T07I,6            LOAD IOCD ADDRESS
     8840   01 01FA9    35F01F94              STW,15   T07S
     8841   01 01FAA    50FC1F9D              AH,15    T07P,6            ADD IOCD WORD NUMBER
     8842   01 01FAB    35F01F97              STW,15   T07W+2            STORE IN WAIT PARAM.
     8843   01 01FAC    6AF0053D              TEST     TSEQ07            EXECUTE TEST SEQUENCE 07
            01 01FAD    00001F8F
     8844   01 01FAE    20600001 A            LOOP,6  K4,T07B            LOOP
            01 01FAF    31601BDF
            01 01FB0    69101FA8
     8845   01 01FB1    20700001 A            LOOP,7   K4,T07A
            01 01FB2    31701BDF
            01 01FB3    69101FA5
     8846   01 01FB4    68001D47              B        TST1R             RETURN TO TST1 CONTROL  PROG.
     8847                            *
     8848                            *
1 C00   21:47 JUN 20,'83    TELEFILE ROTATING MEMORY TEST 960-0604-H02                            PAGE   30
A    8850                            *        ***SUBTEST 08***
     8851                            *
     8852   01 01FB5    00003E0D     MSID08   DATA     MX108             FAM WRITE AND READ,BYTE ALIGNMENT
     8853                            *
     8854   01 01FB7    01001FB5     TSEQ08   ID       MSID08,1
     8855                                     TM
     8856   01 01FB8    00000F11              IO       IOCD08
     8857   01 01FB9    00000000 A            WT       RDY,30,IOCD08+1,0
            01 01FBA    0000001E A
            01 01FBB    00000F12
            01 01FBC    00000000 A
     8858   01 01FBD    80001E99              IO1      *T1TIO4
     8859                                     CM
     8860   01 01FB6    43220000 A            TEND
     8861                            *
     8862   01 01FBE    0F1E2D3C A   T08P     DATA     X'0F1E2D3C',X'4B5A6978',X'8796A5B4',X'C3FFFFFF'
            01 01FBF    4B5A6978 A
            01 01FC0    8796A5B4 A
            01 01FC1    C3FFFFFF A
     8863   01 01FC2    FF1E2D3C A            DATA     X'FF1E2D3C',X'4B5A6978',X'8796A5B4',X'C3D2FFFF'
            01 01FC3    4B5A6978 A
            01 01FC4    8796A5B4 A
            01 01FC5    C3D2FFFF A
     8864   01 01FC6    FFFF2D3C A            DATA     X'FFFF2D3C',X'4B5A6978',X'8796A5B4',X'C3D2E1FF'
            01 01FC7    4B5A6978 A
            01 01FC8    8796A5B4 A
            01 01FC9    C3D2E1FF A
     8865   01 01FCA    FFFFFF3C A            DATA     X'FFFFFF3C',X'4B5A6978',X'8796A5B4',X'C3D2E1F1'
            01 01FCB    4B5A6978 A
            01 01FCC    8796A5B4 A
            01 01FCD    C3D2E1F1 A
     8866                            *
     8867   01 01FCE    22F00004 A   T08      LI,15    4                 LOAD
     8868   01 01FCF    35F01B6A              STW,15   WCNT                WORD COUNT
     8869   01 01FD0    22F0CD90              LI,15    BA(BF2)           LOAD BUFFER ADDRESS
     8870   01 01FD1    35F01E24              STW,15   WA(IOCD08)+2        IN IOCD WORDS
     8871   01 01FD2    22F07EF8              LI,15    BA(T08P)          LOAD
     8872   01 01FD3    35F01E22              STW,15   IOCD08              BUFFER ADDRESS IN IOCD
     8873   01 01FD4    32F01E22     T08A     LW,15    IOCD08            LOAD BUFFER ADDR.
     8874   01 01FD5    4BF01BFF              AND,15   KXN02
     8875   01 01FD6    25F0007E A            SLS,15   -2                DIVIDE IT BY 4
     8876   01 01FD7    35F01B6E              STW,15   BFRA                FOR COMPARE PARAMETER
     8877   01 01FD8    22FFFFFF A            LI,15    -1                RESET START AND END
     8878   01 01FD9    35F03364              STW,15   BF2                 OF BUFFER 2
     8879   01 01FDA    35F03367              STW,15   BF2+3
     8880   01 01FDB    75101E22              STB,1    IOCD08            LOAD ORDER WRITE
     8881   01 01FDC    75201E24              STB,2    WA(IOCD08)+2      LOAD ORDER READ
     8882   01 01FDD    6AF0053D              TEST     TSEQ08            EXECUTE TEST SEQUENCE 08
            01 01FDE    00001FB6
     8883   01 01FDF    22F00011 A            LI,15    17
     8884   01 01FE0    66F01E22              AWM,15   IOCD08            MODIFY BUFFER(WRITE
     8885   01 01FE1    33101E24              MTW,1    WA(IOCD08)+2      MODIFY BUFFER(READ
     8886   01 01FE2    20600001 A            LOOP,6  K4,T08A
            01 01FE3    31601BDF
            01 01FE4    69101FD4
     8887   01 01FE5    68001D47              B        TST1R             RETURN TO TST1 CONTROL  PROG.
     8888                            *
     8889                            *
1 C00   21:47 JUN 20,'83    TELEFILE ROTATING MEMORY TEST 960-0604-H02                            PAGE   31
A    8891                            *        ***SUBTEST 09***
     8892                            *
     8893   01 01FE6    00003E12     MSID09   DATA     MX109             FAM WRITE AND READ,RANDOM DATA TEST
     8894                            *
     8895   01 01FE8    01001FE6     TSEQ09   ID       MSID09,1
     8896                                     PT
     8897                                     TM
     8898   01 01FE9    00000F13              IO       IOCD09
     8899   01 01FEA    00000000 A            WT       RDY,30,IOCD09+1,0
            01 01FEB    0000001E A
            01 01FEC    00000F14
            01 01FED    00000000 A
     8900   01 01FEE    80001E90              IO1      *T1TIO1
     8901                                     CM
     8902   01 01FE7    C3220000 A            TEND
     8903                            *
     8904   01 01FEF    35201B6B     T09      STW,2    PATID             RANDOM PATTERN
     8905   01 01FF0    22F00008 A            LI,15    8
     8906   01 01FF1    35F01B6A              STW,15   WCNT                WORD COUNT
     8907   01 01FF2    6AF00AB5     T09A     BAL,15   #RAND             GET A RANDOM NUMBER
     8908   01 01FF3    35E01B6C              STW,14   PATID+1             AND STORE IT IN PATID
     8909   01 01FF4    6AF0053D              TEST     TSEQ09            EXECUTE TEST SEQUENCE 09
            01 01FF5    00001FE7
     8910   01 01FF6    20600001 A            LOOP,6  K100,T09A
            01 01FF7    31601BE7
            01 01FF8    69101FF2
     8911   01 01FF9    68001D47              B        TST1R             RETURN TO TST1 CONTROL  PROG.
     8912                            *
     8913                            *
1 C00   21:47 JUN 20,'83    TELEFILE ROTATING MEMORY TEST 960-0604-H02                            PAGE   32
A    8915                            *        ***SUBTEST 17***
     8916                            *
     8917   01 01FFA    00003E17     MSID17   DATA     MX117             RESTORE TEST
     8918                            *
     8919   01 01FFC    01001FFA     TSEQ17   ID       MSID17,1          IDENTIFICATION
     8920   01 01FFC    11001FFA              INH      1
     8921                                     TM                         TEST MODE SELECTION
     8922   01 01FFD    00000EFB              IO       IOCD17            SIO WITH IOCD
     8923   01 01FFE    00002001              ST       STC17,STD17,1     STEPPING TEST
            01 01FFF    00002002
            01 02000    00000001 A
     8924   01 01FFB    42400000 A            TEND
     8925                            *
     8926   01 02001    001D     A   STC17    DATA,2   X'001D',X'00FF'   CONTROL DATA FOR DISK TEST
            01 02001 2  00FF     A
     8927   01 02002    0000     A   STD17    DATA,2   ST17-ST0,0        TEST DATA FOR DISK TEST
            01 02002 2  0000     A
     8928                            *
     8929                            *
     8930   01 02003    6AF0053D     T17      TEST     TSEQ17            TEST THE DISK
            01 02004    00001FFB
     8931   01 02005    68001D47              B        TST1R             RETURN TO TST1 CONTROL  PROG.
     8932                            *
1 C00   21:47 JUN 20,'83    TELEFILE ROTATING MEMORY TEST 960-0604-H02                            PAGE   33
A    8934                            *        ***SUBTEST 18***
     8935                            *
     8936   01 02006    00003E1A     MSID18   DATA     MX118             SENSE TEST
     8937                            *
     8938   01 02008    01002006     TSEQ18   ID       MSID18,1          IDENTIFICATION
     8939   01 02008    11002006              INH      1
     8940                                     TM                         TEST MODE SELECTION
     8941   01 02009    00000EF2              IO       IOCD18            SIO WITH IOCD
     8942   01 0200A    0000200D              ST       STC18,STD18,1     STEPPING TEST
            01 0200B    0000200E
            01 0200C    00000001 A
     8943   01 02007    42400000 A            TEND
     8944                            *
     8945   01 0200D    001A     A   STC18    DATA,2   X'001A',X'00FF'   CONTROL DATA FOR DISK TEST
            01 0200D 2  00FF     A
     8946   01 0200E    0074     A   STD18    DATA,2   ST18D-ST0,0       TEST DATA FOR DISK TEST
            01 0200E 2  0000     A
     8947                            *
     8948                            *
     8949                            *
     8950         01 0200F           T18      EQU      %
     8951   01 0200F    6AF0053D              TEST     TSEQ18            EXECUTE TEST SEQUENCE 18
            01 02010    00002007
     8952   01 02011    68001D47              B        TST1R             RETURN TO TST1 CONTROL  PROG.
     8953                            *
1 C00   21:47 JUN 20,'83    TELEFILE ROTATING MEMORY TEST 960-0604-H02                            PAGE   34
A    8955                            *        ***SUBTEST 19***
     8956                            *
     8957   01 02012    00003E1D     MSID19   DATA     MX119             SEEK TEST
     8958                            *
     8959   01 02014    01002012     TSEQ19   ID       MSID19,1          IDENTIFICATION
     8960   01 02014    11002012              INH      1
     8961                                     TM                         TEST MODE SELECTION
     8962   01 02015    00000EF0              IO       IOCD19            SIO WITH IOCD
     8963   01 02016    00002019              ST       STC19,STD19,1     STEPPING TEST
            01 02017    0000201A
            01 02018    00000001 A
     8964   01 02013    42400000 A            TEND
     8965                            *
     8966   01 02019    001D     A   STC19    DATA,2   X'001D',X'00FF'   CONTROL DATA FOR DISK TEST
            01 02019 2  00FF     A
     8967   01 0201A    0000     A   STD19    DATA,2   0,0               TEST DATA FOR DISK TEST
            01 0201A 2  0000     A
     8968                            *
     8969   01 0201B    00DC     A   T19STD   DATA,2   ST19D-ST0,ST19R-ST0
            01 0201B 2  00DC     A
     8970                            *
     8971                            *
     8972                            *
     8973   01 0201C    32F02E23     T19      LW,15    =X'FFFFAA00'
     8974   01 0201D    35F01B72              STW,15   SKADR             SEEK ADDRESS BUFFER
     8975   01 0201E    32401B7B              LW,4     DEVTYPM
     8976   01 0201F    32F02E24              LW,15    =X'001900CA'
     8977   01 02020    21400005 A            CI,4     5
     8978   01 02021    68202023              BLE      %+2
     8979   01 02022    32F02E25              LW,15    =X'0019809A'
     8980   01 02023    35F02FF5              STW,15   ST19MOD1
     8981   01 02024    35F02FF6              STW,15   ST19MOD2
     8982   01 02025    32F02E26              LW,15    =X'00180012'
     8983   01 02026    21400007 A            CI,4     7
     8984   01 02027    68302029              BE       %+2
     8985   01 02028    32F02E27              LW,15    =X'00180013'
     8986   01 02029    35F02FFB              STW,15   ST19MOD3
     8987   01 0202A    35F02FFC              STW,15   ST19MOD4
     8988                            *
     8989   01 0202B    32401B70              LW,4     DEVTYP            DEVICE TYPE DEVICE TYPE
     8990   01 0202C    52F8201B              LH,15    T19STD,4
     8991   01 0202D    55F0201A              STH,15   STD19
     8992   01 0202E    6AF0053D              TEST     TSEQ19            EXECUTE TEST SEQUENCE 19
            01 0202F    00002013
     8993   01 02030    68001D47              B        TST1R             RETURN TO TST1 CONTROL  PROG.
     8994                            *
1 C00   21:47 JUN 20,'83    TELEFILE ROTATING MEMORY TEST 960-0604-H02                            PAGE   35
A    8996                            *        ***SUBTEST 20***
     8997                            *
     8998   01 02031    00003E20     MSID20   DATA     MX120             HEADER READ TEST
     8999                            *
     9000                            *
     9001   01 02033    01022031     TSEQ20A  ID       MSID20,1,1
     9002   01 02033    11022031              INH      1
     9003                                     TM                         TESTMODE SELECTION
     9004                                     SK                         SEEK
     9005   01 02032    60000000 A            TEND
     9006                            *
     9007                            *
     9008   01 02035    01042031     TSEQ20D  ID       MSID20,1,2        IDENTIFICATION
     9009   01 02035    11042031              INH      1
     9010                                     TM                         TEST MODE SELECTION
     9011   01 02036    00000F15              IO       IOCD20            SIO WITH IOCD
     9012   01 02037    0000203A     TSEQ20DL ST       STC20D,STD20D,4   STEPPING TEST
            01 02038    0000203E
            01 02039    00000004 A
     9013   01 02034    42400000 A            TEND
     9014                            *
     9015   01 0203A    000B     A   STC20D   DATA,2   X'000B',X'0704',X'4811',X'0008'
            01 0203A 2  0704     A
            01 0203B    4811     A
            01 0203B 2  0008     A
     9016   01 0203C    000B     A   STC20R   DATA,2   X'000B',X'0C04',X'4211',X'0008'
            01 0203C 2  0C04     A
            01 0203D    4211     A
            01 0203D 2  0008     A
     9017   01 0203E    0150     A   STD20D   DATA,2   GAPD-ST0,HDRD1-ST0,HDRD2X-ST0,HDRD3-ST0
            01 0203E 2  017C     A
            01 0203F    018C     A
            01 0203F 2  01D0     A
     9018                            *
     9019                            *
     9020   01 02040    6AF0053D     T20      TEST     TSEQ20A           EXECUTE TEST SEQUENCE 20A
            01 02041    00002032
     9021   01 02042    22F0000A A            LI,15    X'0A'
     9022   01 02043    75F01B71              STB,15   TMODB             TEST MODE SELECTION BUFFER
     9023   01 02044    6AF02EF2              BAL,15   #STPALT           ALTER STEPPING DATA
     9024   01 02045    22F0203C              LI,15    STC20R            DISK 33 COUNTS
     9025   01 02046    32401B7B              LW,4     DEVTYPM           GET DEV MODEL
     9026   01 02047    21400007 A            CI,4     7                 IS IT DISK 33
     9027   01 02048    6830204A              BE       %+2               YES
     9028   01 02049    22F0203A              LI,15    STC20D            DISK COUNTS
     9029   01 0204A    35F02037              STW,15   TSEQ20DL          SAVE ADR IN TABLE
     9030   01 0204B    6AF0053D              TEST     TSEQ20D           EXECUTE TEST SEQUENCE 20D
            01 0204C    00002034
     9031   01 0204D    68001D47              B        TST1R             RETURN TO TST1 CONTROL  PROG.
     9032                            *
1 C00   21:47 JUN 20,'83    TELEFILE ROTATING MEMORY TEST 960-0604-H02                            PAGE   36
A    9034                            *        ***SUBTEST 21***
     9035                            *
     9036   01 0204E    00003E24     MSID21   DATA     MX121             HEADER WRITE TEST
     9037                            *
     9038                            *
     9039   01 02050    0102204E     TSEQ21A  ID       MSID21,1,1
     9040   01 02050    1102204E              INH      1
     9041                                     TM                         TESTMODE SELECTION
     9042                                     SK                         SEEK
     9043   01 0204F    60000000 A            TEND
     9044                            *
     9045                            *
     9046   01 02052    0104204E     TSEQ21D  ID       MSID21,1,2        IDENTIFICATION
     9047   01 02052    1104204E              INH      1
     9048                                     PT
     9049                                     TM                         TEST MODE SELECTION
     9050   01 02053    00000EF5              IO       IOCD21            SIO WITH IOCD
     9051   01 02054    00002057     TSEQ21DL ST       STC21D,STD21D,3   STEPPING TEST
            01 02055    0000205B
            01 02056    00000003 A
     9052   01 02051    C2400000 A            TEND
     9053                            *
     9054   01 02057    000A     A   STC21D   DATA,2   X'000A',X'0004',X'1C18',0
            01 02057 2  0004     A
            01 02058    1C18     A
            01 02058 2  0000     A
     9055   01 02059    000A     A   STC21R   DATA,2   X'000A',X'0004',X'1E18',0
            01 02059 2  0004     A
            01 0205A    1E18     A
            01 0205A 2  0000     A
     9056   01 0205B    0150     A   STD21D   DATA,2   GAPD-ST0,HDWR1-ST0,HDWR2-ST0,0
            01 0205B 2  01F0     A
            01 0205C    0200     A
            01 0205C 2  0000     A
     9057                            *
     9058                            *
     9059   01 0205D    6AF0053D     T21      TEST     TSEQ21A           EXECUTE TEST SEQUENCE
            01 0205E    0000204F
     9060   01 0205F    22F0000A A            LI,15    X'0A'
     9061   01 02060    75F01B71              STB,15   TMODB             TEST MODE SELECTION BUFFER
     9062   01 02061    6AF02EF2              BAL,15   #STPALT           ALTER STEPPING DATA
     9063   01 02062    22F02059              LI,15    STC21R            DISK 33 COUNTS
     9064   01 02063    32401B7B              LW,4     DEVTYPM           GET DEV MODEL
     9065   01 02064    21400007 A            CI,4     7                 IS IT DISK 33
     9066   01 02065    68302067              BE       %+2               YES
     9067   01 02066    22F02057              LI,15    STC21D            DISK COUNTS
     9068   01 02067    35F02054              STW,15   TSEQ21DL          SAVE ADR IN TABLE
     9069   01 02068    6AF0053D              TEST     TSEQ21D           EXECUTE TEST SEQUENCE 21D
            01 02069    00002051
     9070   01 0206A    68001D47              B        TST1R             RETURN TO TST1 CONTROL  PROG.
     9071                            *
1 C00   21:47 JUN 20,'83    TELEFILE ROTATING MEMORY TEST 960-0604-H02                            PAGE   37
A    9073                            *        ***SUBTEST 22***
     9074                            *
     9075   01 0206B    00003E28     MSID22   DATA     MX122             READ TEST
     9076                            *
     9077   01 0206D    0102206B     TSEQ22A  ID       MSID22,1,1
     9078   01 0206D    1102206B              INH      1
     9079                                     TM                         TESTMODE SELECTION
     9080                                     SK                         SEEK
     9081   01 0206C    60000000 A            TEND
     9082                            *
     9083                            *
     9084   01 0206F    0104206B     TSEQ22D  ID       MSID22,1,2        IDENTIFICATION
     9085   01 0206F    1104206B              INH      1
     9086                                     TM                         TEST MODE SELECTION
     9087   01 02070    00000F16              IO       IOCD22            SIO WITH IOCD
     9088   01 02071    00002074     TSEQ22DL ST       STC22D,STD22D,12  STEPPING TEST
            01 02072    00002080
            01 02073    0000000C A
     9089   01 0206E    42400000 A            TEND
     9090                            *
     9091   01 02074    000B     A   STC22D   DATA,2   X'000B',X'0704',X'4811',X'0008'
            01 02074 2  0704     A
            01 02075    4811     A
            01 02075 2  0008     A
     9092   01 02076    0002     A            DATA,2   X'0002',X'0802',X'4902',X'0D02'
            01 02076 2  0802     A
            01 02077    4902     A
            01 02077 2  0D02     A
     9093   01 02078    FE02     A            DATA,2   X'FE02',X'FE02',X'FE02',X'F50A'
            01 02078 2  FE02     A
            01 02079    FE02     A
            01 02079 2  F50A     A
     9094   01 0207A    000B     A   STC22R   DATA,2   X'000B',X'0C04',X'4211',X'0008'
            01 0207A 2  0C04     A
            01 0207B    4211     A
            01 0207B 2  0008     A
     9095   01 0207C    0002     A            DATA,2   X'0002',X'0D02',X'4302',X'0D02'
            01 0207C 2  0D02     A
            01 0207D    4302     A
            01 0207D 2  0D02     A
     9096   01 0207E    FE02     A            DATA,2   X'FE02',X'FE02',X'FE02',X'F50A'
            01 0207E 2  FE02     A
            01 0207F    FE02     A
            01 0207F 2  F50A     A
     9097   01 02080    0150     A   STD22D   DATA,2   GAPD-ST0,HDRD1-ST0,HDRD2-ST0,HDRD4-ST0
            01 02080 2  017C     A
            01 02081    0260     A
            01 02081 2  02A4     A
     9098   01 02082    02C4     A            DATA,2   RDD1-ST0,RDD2-ST0,RDD3-ST0,RDD4-ST0
            01 02082 2  02CC     A
            01 02083    02D4     A
            01 02083 2  02DC     A
     9099   01 02084    02DC     A            DATA,2   RDD5-ST0,RDD6-ST0,RDD7-ST0,RDD8-ST0
            01 02084 2  02DC     A
            01 02085    02DC     A
            01 02085 2  02E4     A
     9100                            *
     9101                            *
     9102   01 02086    6AF0053D     T22      TEST     TSEQ22A           EXECUTE TEST SEQUENCE 22A
            01 02087    0000206C
     9103   01 02088    22F0000A A            LI,15    X'0A'
     9104   01 02089    75F01B71              STB,15   TMODB             TEST MODE SELECTION BUFFER
     9105   01 0208A    6AF02EF2              BAL,15   #STPALT           ALTER STEPPING DATA
     9106   01 0208B    22F0207A              LI,15    STC22R            DISK 33 COUNTS
     9107   01 0208C    32401B7B              LW,4     DEVTYPM           GET DEV MODEL
     9108   01 0208D    21400007 A            CI,4     7                 IS IT DISK 33
     9109   01 0208E    68302090              BE       %+2               YES
     9110   01 0208F    22F02074              LI,15    STC22D            DISK COUNTS
     9111   01 02090    35F02071              STW,15   TSEQ22DL          SAVE ADR IN TABLE
     9112   01 02091    6AF0053D     T22D     TEST     TSEQ22D           EXECUTE TEST SEQUENCE 22D
            01 02092    0000206E
     9113   01 02093    68001D47              B        TST1R             RETURN TO TST1 CONTROL  PROG.
     9114                            *
1 C00   21:47 JUN 20,'83    TELEFILE ROTATING MEMORY TEST 960-0604-H02                            PAGE   38
A    9116                            *        ***SUBTEST 23***
     9117                            *
     9118   01 02094    00003E2B     MSID23   DATA     MX123             WRITE TEST
     9119                            *
     9120                            *
     9121   01 02096    01022094     TSEQ23A  ID       MSID23,1,1
     9122   01 02096    11022094              INH      1
     9123                                     TM                         TESTMODE SELECTION
     9124                                     SK                         SEEK
     9125   01 02095    60000000 A            TEND
     9126                            *
     9127                            *
     9128   01 02098    01042094     TSEQ23D  ID       MSID23,1,2        IDENTIFICATION
     9129   01 02098    11042094              INH      1
     9130                                     PT
     9131                                     TM                         TEST MODE SELECTION
     9132   01 02099    00000EED              IO       IOCD23            SIO WITH IOCD
     9133   01 0209A    0000209D     TSEQ23DL ST       STC23D,STD23D,11  STEPPING TEST
            01 0209B    000020A9
            01 0209C    0000000B A
     9134   01 02097    C2400000 A            TEND
     9135                            *
     9136   01 0209D    000B     A   STC23D   DATA,2   X'000B',X'0704',X'4811',X'0008'
            01 0209D 2  0704     A
            01 0209E    4811     A
            01 0209E 2  0008     A
     9137   01 0209F    0002     A            DATA,2   X'0002',X'1E02',X'0D02',X'FE02'
            01 0209F 2  1E02     A
            01 020A0    0D02     A
            01 020A0 2  FE02     A
     9138   01 020A1    FE02     A            DATA,2   X'FE02',X'FE02',X'F50A',0
            01 020A1 2  FE02     A
            01 020A2    F50A     A
            01 020A2 2  0000     A
     9139   01 020A3    000B     A   STC23R   DATA,2   X'000B',X'0C04',X'4211',X'0008'
            01 020A3 2  0C04     A
            01 020A4    4211     A
            01 020A4 2  0008     A
     9140   01 020A5    0002     A            DATA,2   X'0002',X'2002',X'0D02',X'FE02'
            01 020A5 2  2002     A
            01 020A6    0D02     A
            01 020A6 2  FE02     A
     9141   01 020A7    FE02     A            DATA,2   X'FE02',X'FE02',X'F50A',0
            01 020A7 2  FE02     A
            01 020A8    F50A     A
            01 020A8 2  0000     A
     9142   01 020A9    0150     A   STD23D   DATA,2   GAPD-ST0,HDRD1-ST0,HDRD2-ST0,HDRD4-ST0
            01 020A9 2  017C     A
            01 020AA    0260     A
            01 020AA 2  02A4     A
     9143   01 020AB    0314     A            DATA,2   WRD1-ST0,WRD2-ST0,WRD3-ST0,WRD4-ST0
            01 020AB 2  031C     A
            01 020AC    0324     A
            01 020AC 2  0324     A
     9144   01 020AD    0324     A            DATA,2   WRD5-ST0,WRD6-ST0,WRD7-ST0,0
            01 020AD 2  0324     A
            01 020AE    032C     A
            01 020AE 2  0000     A
     9145                            *
     9146                            *
     9147   01 020AF    6AF0053D     T23      TEST     TSEQ23A
            01 020B0    00002095
     9148   01 020B1    22F0000A A            LI,15    X'0A'
     9149   01 020B2    75F01B71              STB,15   TMODB             TEST MODE SELECTION BUFFER
     9150   01 020B3    6AF02EF2              BAL,15   #STPALT           ALTER STEPPING DATA
     9151   01 020B4    22F020A3              LI,15    STC23R            DISK 33 COUNTS
     9152   01 020B5    32401B7B              LW,4     DEVTYPM           GET DEV MODEL
     9153   01 020B6    21400007 A            CI,4     7                 IS IT DISK 33
     9154   01 020B7    683020B9              BE       %+2               YES
     9155   01 020B8    22F0209D              LI,15    STC23D            DISK COUNTS
     9156   01 020B9    35F0209A              STW,15   TSEQ23DL          SAVE ADR IN TABLE
     9157   01 020BA    6AF0053D     T23D     TEST     TSEQ23D           TEST THE DISK
            01 020BB    00002097
     9158   01 020BC    68001D47              B        TST1R             RETURN TO TST1 CONTROL  PROG.
     9159                            *
1 C00   21:47 JUN 20,'83    TELEFILE ROTATING MEMORY TEST 960-0604-H02                            PAGE   39
A    9161                            *        ***SUBTEST 24***
     9162                            *
     9163   01 020BD    00003E2E     MSID24   DATA     MX124             CHECK-WRITE TEST
     9164                            *
     9165                            *
     9166   01 020BF    010220BD     TSEQ24A  ID       MSID24,1,1
     9167   01 020BF    110220BD              INH      1
     9168                                     TM                         TESTMODE SELECTION
     9169                                     SK                         SEEK
     9170   01 020BE    60000000 A            TEND
     9171                            *
     9172                            *
     9173   01 020C1    010420BD     TSEQ24D  ID       MSID24,1,2        IDENTIFICATION
     9174   01 020C1    110420BD              INH      1
     9175                                     PT
     9176                                     TM                         TEST MODE SELECTION
     9177   01 020C2    00000EF3              IO       IOCD24            SIO WITH IOCD
     9178   01 020C3    000020C6     TSEQ24DL ST       STC24D,STD24D,12  STEPPING TEST
            01 020C4    000020CC
            01 020C5    0000000C A
     9179   01 020C0    C2400000 A            TEND
     9180                            *
     9181   01 020C6    000B     A   STC24D   DATA,2   X'000B',X'0704',X'4811',X'0008'
            01 020C6 2  0704     A
            01 020C7    4811     A
            01 020C7 2  0008     A
     9182   01 020C8    0002     A            DATA,2   X'0002',X'0802',X'4902',X'0D02'
            01 020C8 2  0802     A
            01 020C9    4902     A
            01 020C9 2  0D02     A
     9183   01 020CA    FE02     A            DATA,2   X'FE02',X'FE02',X'FE02',X'F50A'
            01 020CA 2  FE02     A
            01 020CB    FE02     A
            01 020CB 2  F50A     A
     9184   01 020CC    0150     A   STD24D   DATA,2   GAPD-ST0,HDRD1-ST0,HDRD2-ST0,HDRD4-ST0
            01 020CC 2  017C     A
            01 020CD    0260     A
            01 020CD 2  02A4     A
     9185   01 020CE    02C4     A            DATA,2   CWD1-ST0,CWD2-ST0,CWD3-ST0,CWD4-ST0
            01 020CE 2  02CC     A
            01 020CF    02D4     A
            01 020CF 2  030C     A
     9186   01 020D0    030C     A            DATA,2   CWD5-ST0,CWD6-ST0,CWD7-ST0,CWD8-ST0
            01 020D0 2  030C     A
            01 020D1    030C     A
            01 020D1 2  02E4     A
     9187                            *
     9188                            *
     9189   01 020D2    6AF0053D     T24      TEST     TSEQ24A
            01 020D3    000020BE
     9190   01 020D4    22F0000A A            LI,15    X'0A'
     9191   01 020D5    75F01B71              STB,15   TMODB             TEST MODE SELECTION BUFFER
     9192   01 020D6    6AF02EF2              BAL,15   #STPALT           ALTER STEPPING DATA
     9193   01 020D7    22F0207A              LI,15    STC22R            DISK 33 COUNTS
     9194   01 020D8    32401B7B              LW,4     DEVTYPM           GET DEV MODEL
     9195   01 020D9    21400007 A            CI,4     7                 IS IT DISK 33
     9196   01 020DA    683020DC              BE       %+2               YES
     9197   01 020DB    22F020C6              LI,15    STC24D            DISK COUNTS
     9198   01 020DC    35F020C3              STW,15   TSEQ24DL          SAVE ADR IN TABLE
     9199   01 020DD    6AF0053D     T24D     TEST     TSEQ24D           TEST THE DISK
            01 020DE    000020C0
     9200   01 020DF    68001D47              B        TST1R             RETURN TO TST1 CONTROL  PROG.
1 C00   21:47 JUN 20,'83    TELEFILE ROTATING MEMORY TEST 960-0604-H02                            PAGE   40
A    9202                            *        ***SUBTEST 29***
     9203                            *
     9204   01 020E0    00003E32     MSID29   DATA     MX129             CONTROLER  BUSY TEST
     9205                            *
     9206   01 020E2    010020E0     TSEQ29   ID       MSID29,1
     9207                                     TM
     9208                                     SK
     9209   01 020E3    00000EEE              IO       IOCDX02
     9210   01 020E4    0000210D              ES2      T29X1,T29X2
            01 020E5    00002115
     9211   01 020E6    00000001 A            IO1      TIO,X'16004000',X'FFFEC000'
            01 020E7    16004000 A
            01 020E8    FFFEC000 A
     9212   01 020E9    00000004 A            IO2      TDV,X'00004000',X'0000C000'
            01 020EA    00004000 A
            01 020EB    0000C000 A
     9213   01 020EC    00000002 A            IO3      HIO,X'16008000',X'FFFFC000'
            01 020ED    16008000 A
            01 020EE    FFFFC000 A
     9214   01 020EF    0000211C              ES3      T29X3,T29X4
            01 020F0    0000212E
     9215   01 020E1    62B90000 A            TEND
     9216                            *
     9217   01 020F1                 T29ADR   RES      1
     9218   01 020F2                 T29I     RES      1
     9219   01 020F3    00000EEE     T29D1    DATA     IOCDX02,0,X'16004000',X'FFFFC000',0
            01 020F4    00000000 A
            01 020F5    16004000 A
            01 020F6    FFFFC000 A
            01 020F7    00000000 A
     9220   01 020F8    00000000 A   T29D2    DATA     0,4,X'00004000',X'0000C000',0
            01 020F9    00000004 A
            01 020FA    00004000 A
            01 020FB    0000C000 A
            01 020FC    00000000 A
     9221   01 020FD    00000EF2     T29D3    DATA     IOCDX04,0,X'10000000',X'9F00C000',0
            01 020FE    00000000 A
            01 020FF    10000000 A
            01 02100    9F00C000 A
            01 02101    00000000 A
     9222   01 02102    00000000 A   T29F     DATA     0
     9223                            *
     9224         01 02103           T29      EQU      %
     9225   01 02103    350020F2              STW,0    T29I              RESET INDEX
     9226   01 02104    33001B7C              MTW,0    SIOPFLAG
     9227   01 02105    69301D47              BNEZ     TST1R             BYPASS TEST IF SIOP
     9228   01 02106    6AF0053D     T29A     TEST     TSEQ29            TEST SEQUENCE 29
            01 02107    000020E1
     9229   01 02108    331020F2              MTW,1    T29I              INCREMENT INDEX
     9230   01 02109    32F020F2              LW,15    T29I              CHECK INDEX
     9231   01 0210A    31F01BE4              CW,15    K15                IF LESS THAN 15: LOOP
     9232   01 0210B    69102106              BL       T29A                   ELSE: RETURN TO TST1
     9233   01 0210C    68001D47              B        TST1R             RETURN TO TST1 CONTROL  PROG.
     9234                            *
     9235   01 0210D    32F01B61     T29X1    LW,15    DEVADR00          ESCAPE ROUTINE
     9236   01 0210E    30F020F2              AW,15    T29I              MODIFY THE DEVICE ADDRESS
     9237   01 0210F    35F01B60              STW,15   DEVADDR
     9238   01 02110    35F020F1              STW,15   T29ADR
     9239   01 02111    224020F3              LI,4     T29D1
     9240   01 02112    6AF009B1              BAL,15   #IOEX             BRANCH TO IO EXECUTE ROUTINE
     9241   01 02113    E800000A A            B        *10
     9242   01 02114    E802000A A            B        *10,1
     9243                            *
     9244   01 02115    32F020F1     T29X2    MVW      T29ADR,VHEX4A
            01 02116    35F00EE7
     9245   01 02117    6AF00B7B              SEND     MX506
            01 02118    00003FC4
     9246   01 02119    224020F3              LI,4     T29D1
     9247   01 0211A    6AF009DB              BAL,15   #IOCP             EXECUTE IO COMPARE AND PRINT ROUT.
     9248   01 0211B    E800000A A            B        *10
     9249                            *
     9250   01 0211C    32F01B65     T29X3    MVW      DEVADR15,DEVADDR
            01 0211D    35F01B60
     9251   01 0211E    224F8300 A            LI,4     -32000            ISSUE DELAY
     9252   01 0211F    6540211F              BIR,4    %
     9253   01 02120    35002102              STW,0    T29F
     9254   01 02121    224020F8              LI,4     T29D2
     9255   01 02122    6AF009B1              BAL,15   #IOEX             BRANCH TO IO EXECUTE ROUTINE
     9256   01 02123    68002125              B        %+2
     9257   01 02124    33102102              MTW,1    T29F
     9258   01 02125    224020FD              LI,4     T29D3             INCR. ERROR FLAG
     9259   01 02126    6AF009B1              BAL,15   #IOEX             ISSUE SENSE ORDER TO
     9260   01 02127    68002129              B        %+2                   RESET ERRORS IN CONTROLER
     9261   01 02128    33102102              MTW,1    T29F                     SENSE BYTE 8 AND BYTE 9
     9262   01 02129    224F8300 A            LI,4     -32000            DELAY TO WAIT FOR READY
     9263   01 0212A    6540212A              BIR,4    %
     9264   01 0212B    33002102              MTW,0    T29F
     9265   01 0212C    E830000A A            BEZ      *10
     9266   01 0212D    E802000A A            B        *10,1
     9267                            *
     9268   01 0212E    32F01B65     T29X4    MVW      DEVADR15,VHEX4A
            01 0212F    35F00EE7
     9269   01 02130    6AF00B7B              SEND     MX506
            01 02131    00003FC4
     9270   01 02132    224020F8              LI,4     T29D2
     9271   01 02133    6AF009DB              BAL,15   #IOCP             EXECUTE IO COMPARE AND PRINT ROUT.
     9272   01 02134    224020FD              LI,4     T29D3
     9273   01 02135    6AF009DB              BAL,15   #IOCP
     9274   01 02136    E800000A A            B        *10
     9275                            *
     9276                            *
     9277                            *
1 C00   21:47 JUN 20,'83    TELEFILE ROTATING MEMORY TEST 960-0604-H02                            PAGE   41
A    9279                            *        ***SUBTEST 30***
     9280                            *
     9281         01 02006           MSID30   EQU      MSID18            SENSE TEST
     9282                            *
     9283   01 02138    01002006     TSEQ30A  ID       MSID30,1          IDENTIFICATION OF SUBTEST
     9284                                     TM                         TEST MODE SELECTION
     9285   01 02139    00000F17              EX       IOCD30            EXECUTION ROUTINE WITH IOCD
     9286                            *
     9287   01 0213A    00000001 A   TSEQ30A1 IO1      TIO,X'10000000',X'FFFFC000'  TIO TEST
            01 0213B    10000000 A
            01 0213C    FFFFC000 A
     9288   01 0213D    00000004 A   TSEQ30A2 IO2      TDV,X'00004000',X'FFFFC000'  TDV TEST
            01 0213E    00004000 A
            01 0213F    FFFFC000 A
     9289   01 02137    48300000 A            TEND                       END OF TEST SEQUENCE
     9290                            *
     9291   01 02141    01002006     TSEQ30B  ID       MSID30,1
     9292                                     TM
     9293                                     SN
     9294   01 02140    40040000 A            TEND
     9295                            *
     9296                            *
     9297         01 02142           T30      EQU      %
     9298   01 02142    33100006 A            MTW,1    6                 INCR BYTE CNT
     9299   01 02143    55621E2F              STH,6    WA(IOCD30)+1,1    LOAD BYTE COUNT
     9300   01 02144    6AF0053D              TEST     TSEQ30A
            01 02145    00002137
     9301   01 02146    21600010 A            CI,6     16                TEST INDEX
     9302   01 02147    69102142              BL       T30               LOOP
     9303                            *
     9304                            *
     9305   01 02148    6AF0053D              TEST     TSEQ30B
            01 02149    00002140
     9306   01 0214A    68001D47              B        TST1R             RETURN TO TST1 CONTROL  PROG.
     9307                            *
     9308                            *
1 C00   21:47 JUN 20,'83    TELEFILE ROTATING MEMORY TEST 960-0604-H02                            PAGE   42
A    9310                            *        ***SUBTEST 31***
     9311                            *
     9312   01 0214B    00003E36     MSID31   DATA     MX131             CONDITION RELEASE INTERRUPT TEST
     9313                            *
     9314   01 0214D    0100214B     TSEQ31   ID       MSID31,1          IDENTIFICATION OF SUBTEST
     9315                                     TM                         TEST MODE SELECTION
     9316   01 0214E    00000EF7              EX       IOCD31            EXECUTION ROUTINE WITH IOCD
     9317                            *
     9318   01 0214F    80001E90              IO1      *T1TIO1                     TIO TEST
     9319   01 02150    80001EA2              IO2      *T1TDV1                     TDV TEST
     9320                                     SN                         SENSE DATA TEST
     9321   01 0214C    48340000 A            TEND                       END OF TEST SEQUENCE
     9322                            *
     9323                            *
     9324                            *
     9325   01 02151    6AF0053D     T31      TEST     TSEQ31            EXECUTE TEST SEQUENCE
            01 02152    0000214C
     9326   01 02153    68001D47              B        TST1R             RETURN TO TST1 CONTROL  PROG.
     9327                            *
     9328                            *
1 C00   21:47 JUN 20,'83    TELEFILE ROTATING MEMORY TEST 960-0604-H02                            PAGE   43
A    9330                            *        ***SUBTEST 32***
     9331                            *
     9332   01 02154    00003E3B     MSID32   DATA     MX132             RELEASE TEST
     9333                            *
     9334   01 02156    01002154     TSEQ32   ID       MSID32,1          IDENTIFICATION OF SUBTEST
     9335                                     TM                         TEST MODE SELECTION
     9336   01 02157    00000EFA              EX       IOCD32            EXECUTION ROUTINE WITH IOCD
     9337                            *
     9338   01 02158    80001E90              IO1      *T1TIO1                     TIO TEST
     9339   01 02159    80001EA2              IO2      *T1TDV1                     TDV TEST
     9340                                     SN                         SENSE DATA TEST
     9341   01 02155    48340000 A            TEND                       END OF TEST SEQUENCE
     9342                            *
     9343                            *
     9344                            *
     9345   01 0215A    6AF0053D     T32      TEST     TSEQ32            EXECUTE TEST SEQUENCE
            01 0215B    00002155
     9346   01 0215C    68001D47              B        TST1R             RETURN TO TST1 CONTROL  PROG.
     9347                            *
     9348                            *
1 C00   21:47 JUN 20,'83    TELEFILE ROTATING MEMORY TEST 960-0604-H02                            PAGE   44
A    9350                            *        ***SUBTEST 33***
     9351                            *
     9352         01 01FFA           MSID33   EQU      MSID17            RESTORE TEST
     9353                            *
     9354   01 0215E    01001FFA     TSEQ33   ID       MSID33,1          IDENTIFICATION OF SUBTEST
     9355                                     TM                         TEST MODE SELECTION
     9356   01 0215F    00000EFB              EX       IOCD33            EXECUTION ROUTINE WITH IOCD
     9357                            *
     9358   01 02160    80001E90              IO1      *T1TIO1                     TIO TEST
     9359   01 02161    80001EA2              IO2      *T1TDV1                     TDV TEST
     9360                                     SN                         SENSE DATA TEST
     9361   01 0215D    48340000 A            TEND                       END OF TEST SEQUENCE
     9362                            *
     9363                            *
     9364                            *
     9365   01 02162    6AF0053D     T33      TEST     TSEQ33            EXECUTE TEST SEQUENCE
            01 02163    0000215D
     9366   01 02164    68001D47              B        TST1R             RETURN TO TST1 CONTROL  PROG.
     9367                            *
     9368                            *
     9369                            *
1 C00   21:47 JUN 20,'83    TELEFILE ROTATING MEMORY TEST 960-0604-H02                            PAGE   45
A    9371                            *        ***SUBTEST 34***
     9372                            *
     9373         01 02012           MSID34   EQU      MSID19            SEEK TEST
     9374                            *
     9375   01 02166    01002012     TSEQ34   ID       MSID34,1          IDENTIFICATION OF SUBTEST
     9376                                     TM                         TEST MODE SELECTION
     9377   01 02167    00000F18              EX       IOCD34            EXECUTION ROUTINE WITH IOCD
     9378                            *
     9379   01 02168    80001E90              IO1      *T1TIO1                     TIO TEST
     9380   01 02169    80001EA2              IO2      *T1TDV1                     TDV TEST
     9381                                     SN                         SENSE DATA TEST
     9382   01 02165    48340000 A            TEND                       END OF TEST SEQUENCE
     9383                            *
     9384                            *
     9385                            *
     9386         01 0216A           T34      EQU      %
     9387   01 0216A    6AF0053D              TEST     TSEQ34
            01 0216B    00002165
     9388   01 0216C    68001D47              B        TST1R             RETURN TO TST1 CONTROL  PROG.
     9389                            *
     9390                            *
     9391                            *
     9392                            *
1 C00   21:47 JUN 20,'83    TELEFILE ROTATING MEMORY TEST 960-0604-H02                            PAGE   46
A    9394                            *        ***SUBTEST 35***
     9395                            *
     9396         01 02031           MSID35   EQU      MSID20            HEADER READ TEST
     9397                            *
     9398   01 0216E    01002031     TSEQ35   ID       MSID35,1          IDENTIFICATION OF SUBTEST
     9399                                     PT                         CLEAR BUFFER 2
     9400                                     TM                         TEST MODE SELECTION
     9401                                     SK
     9402   01 0216F    00000EF6              EX       IOCD35            EXECUTION ROUTINE WITH IOCD
     9403                            *
     9404   01 02170    80001E90              IO1      *T1TIO1                     TIO TEST
     9405   01 02171    80001EA8              IO2      *T1TDV3
     9406                                     SN                         SENSE DATA TEST
     9407                                     CM                         COMPARE DATA OF BF1 WITH DATA OF BF2
     9408   01 0216D    E8360000 A            TEND                       END OF TEST SEQUENCE
     9409                            *
     9410                            *
     9411                            *
     9412         01 02172           T35      EQU      %
     9413   01 02172    6AF0053D              TEST     TSEQ35
            01 02173    0000216D
     9414   01 02174    68001D47              B        TST1R             RETURN TO TST1 CONTROL  PROG.
     9415                            *
     9416                            *
     9417                            *
1 C00   21:47 JUN 20,'83    TELEFILE ROTATING MEMORY TEST 960-0604-H02                            PAGE   47
A    9419                            *        ***SUBTEST 36***
     9420                            *
     9421         01 0204E           MSID36   EQU      MSID21            HEADER WRITE TEST
     9422                            *
     9423   01 02176    0100204E     TSEQ36   ID       MSID36,1          IDENTIFICATION OF SUBTEST
     9424                                     PT                         CLEAR BUFFER 2
     9425                                     TM                         TEST MODE SELECTION
     9426                                     SK
     9427   01 02177    00000EF5              EX       IOCD36            EXECUTION ROUTINE WITH IOCD
     9428                            *
     9429   01 02178    80001E90              IO1      *T1TIO1                     TIO TEST
     9430   01 02179    80001EA2              IO2      *T1TDV1                     TDV TEST
     9431                                     SN                         SENSE DATA TEST
     9432   01 02175    E8340000 A            TEND                       END OF TEST SEQUENCE
     9433                            *
     9434                            *
     9435                            *
     9436         01 0217A           T36      EQU      %
     9437   01 0217A    6AF0053D              TEST     TSEQ36
            01 0217B    00002175
     9438   01 0217C    68001D47              B        TST1R             RETURN TO TST1 CONTROL  PROG.
     9439                            *
     9440                            *
     9441                            *
1 C00   21:47 JUN 20,'83    TELEFILE ROTATING MEMORY TEST 960-0604-H02                            PAGE   48
A    9443                            *        ***SUBTEST 37***
     9444                            *
     9445         01 0206B           MSID37   EQU      MSID22            READ TEST
     9446                            *
     9447   01 0217E    0100206B     TSEQ37   ID       MSID37,1          IDENTIFICATION OF SUBTEST
     9448                                     PT
     9449                                     TM                         TEST MODE SELECTION
     9450                                     SK
     9451   01 0217F    00000EEE              EX       IOCD37            EXECUTION ROUTINE WITH IOCD
     9452                            *
     9453   01 02180    80001E90              IO1      *T1TIO1                     TIO TEST
     9454   01 02181    80001EA8              IO2      *T1TDV3                     TDV TEST
     9455                                     SN                         SENSE DATA TEST
     9456                                     CM                         COMPARE TEST
     9457   01 0217D    E8360000 A            TEND                       END OF TEST SEQUENCE
     9458                            *
     9459                            *
     9460                            *
     9461         01 02182           T37      EQU      %
     9462   01 02182    6AF0053D              TEST     TSEQ37
            01 02183    0000217D
     9463   01 02184    68001D47              B        TST1R             RETURN TO TST1 CONTROL  PROG.
     9464                            *
     9465                            *
     9466                            *
1 C00   21:47 JUN 20,'83    TELEFILE ROTATING MEMORY TEST 960-0604-H02                            PAGE   49
A    9468                            *        ***SUBTEST 38***
     9469                            *
     9470         01 02094           MSID38   EQU      MSID23            WRITE TEST
     9471                            *
     9472   01 02186    01002094     TSEQ38   ID       MSID38,1          IDENTIFICATION OF SUBTEST
     9473                                     PT                         SPREAD DATA IN BF1
     9474                                     TM                         TEST MODE SELECTION
     9475                                     SK
     9476   01 02187    00000EFD              EX       IOCD38            EXECUTION ROUTINE WITH IOCD
     9477                            *
     9478   01 02188    80001E90              IO1      *T1TIO1                     TIO TEST
     9479   01 02189    00000004 A   T38TDV   IO2      TDV,X'00004000',X'FFFFC000'
            01 0218A    00004000 A
            01 0218B    FFFFC000 A
     9480                                     SN                         SENSE DATA TEST
     9481   01 02185    E8340000 A            TEND                       END OF TEST SEQUENCE
     9482                            *
     9483                            *
     9484                            *
     9485   01 0218C    4300     A   T38T     DATA,2   X'4300',X'0000'
            01 0218C 2  0000     A
     9486   01 0218D    0038     A   T38S     DATA,2   X'0038',X'0000'
            01 0218D 2  0000     A
     9487                            *
     9488         01 0218E           T38      EQU      %
     9489   01 0218E    32401B70              LW,4     DEVTYP            DEVICE TYPE
     9490   01 0218F    52F8218C              LH,15    T38T,4
     9491   01 02190    55F0218A              STH,15   T38TDV+1
     9492   01 02191    52F8218D              LH,15    T38S,4
     9493   01 02192    55F01B58              STH,15   SENEXP+2
     9494   01 02193    6AF0053D              TEST     TSEQ38
            01 02194    00002185
     9495   01 02195    68001D47              B        TST1R             RETURN TO TST1 CONTROL  PROG.
     9496                            *
     9497                            *
     9498                            *
1 C00   21:47 JUN 20,'83    TELEFILE ROTATING MEMORY TEST 960-0604-H02                            PAGE   50
A    9500                            *        ***SUBTEST 39***
     9501                            *
     9502         01 020BD           MSID39   EQU      MSID24            CHECK WRITE TEST
     9503                            *
     9504   01 02197    010020BD     TSEQ39   ID       MSID39,1          IDENTIFICATION OF SUBTEST
     9505                                     PT
     9506                                     TM                         TEST MODE SELECTION
     9507                                     SK
     9508   01 02198    00000EFE              EX       IOCD39            EXECUTION ROUTINE WITH IOCD
     9509                            *
     9510   01 02199    80001E90              IO1      *T1TIO1
     9511   01 0219A    80001EA8              IO2      *T1TDV3                     TDV TEST
     9512                                     SN                         SENSE DATA TEST
     9513   01 02196    E8340000 A            TEND                       END OF TEST SEQUENCE
     9514                            *
     9515                            *
     9516                            *
     9517         01 0219B           T39      EQU      %
     9518   01 0219B    6AF0053D              TEST     TSEQ39
            01 0219C    00002196
     9519   01 0219D    68001D47              B        TST1R             RETURN TO TST1 CONTROL  PROG.
     9520                            *
     9521                            *
     9522                            *
1 C00   21:47 JUN 20,'83    TELEFILE ROTATING MEMORY TEST 960-0604-H02                            PAGE   51
A    9524                            *        ***SUBTEST 40***
     9525                            *
     9526   01 0219E    00003E3E     MSID40   DATA     MX140             SHORT RECORD TEST
     9527                            *
     9528   01 021A0    0100219E     TSEQ40A  ID       MSID40,1          IDENTIFICATION OF SUBTEST
     9529                                     PT
     9530                                     TM                         TEST MODE SELECTION
     9531                                     SK
     9532   01 021A1    00000F19              EX       IOCD40A           EXECUTION ROUTINE WITH IOCD
     9533                            *
     9534   01 021A2    80001E96              IO1      *T1TIO3
     9535   01 021A3    80001EB1              IO2      *T1TDV6                     TDV TEST
     9536                                     SN                         SENSE DATA TEST
     9537   01 0219F    E8340000 A            TEND                       END OF TEST SEQUENCE
     9538                            *
     9539   01 021A5    0100219E     TSEQ40B  ID       MSID40,1          IDENTIFICATION OF SUBTEST
     9540                                     TM                         TEST MODE SELECTION
     9541                                     SK
     9542   01 021A6    00000F1A              EX       IOCD40B           EXECUTION ROUTINE WITH IOCD
     9543                            *
     9544   01 021A7    80001E96              IO1      *T1TIO3
     9545   01 021A8    80001EA8              IO2      *T1TDV3                     TDV TEST
     9546                                     SN                         SENSE DATA TEST
     9547                                     CM                         COMPARE TEST
     9548   01 021A4    68360000 A            TEND                       END OF TEST SEQUENCE
     9549                            *
     9550   01 021A9    0000219F     T40SEQ   DATA     TSEQ40A,TSEQ40A,TSEQ40B
            01 021AA    0000219F
            01 021AB    000021A4
     9551   01 021AC    0000AFBD A   T40CH    DATA     X'AFBD',X'803F',X'803F'
            01 021AD    0000803F A
            01 021AE    0000803F A
     9552                            *
     9553         01 021AF           T40      EQU      %
     9554   01 021AF    32FC1BBA     T40A     LW,15    ORDER,6           LOAD ORDER CODE
     9555   01 021B0    75F01E32              STB,15   IOCD40A             AND STORE IT IN IOCD
     9556   01 021B1    32FC21AC              LW,15    T40CH,6           LOAD CHECK BYTE DATA
     9557   01 021B2    55F01B59              STH,15   SENEXP+3            AND STORE IT IN EXP. SENSE BYTE 12,13
     9558   01 021B3    6AF00AA8              BAL,15   #CLEARA           CLEAR BUFFER A
     9559   01 021B4    52F01B6C              LH,15    PATID+1              AND
     9560   01 021B5    55F03262              STH,15   BF1                    STORE PATTERN WORD IN BUFFER A
     9561   01 021B6    32FC21A9              LW,15    T40SEQ,6          SELECT THE
     9562   01 021B7    35F021B9              STW,15   %+2                   CORRECT TEST SEQUENCE
     9563   01 021B8    6AF0053D              TEST     TSEQ00                   AND EXECUTE IT.
            01 021B9    00001ED3
     9564   01 021BA    20600001 A            LOOP,6   K3,T40A           LOOP THREE TIMES
            01 021BB    31601BDE
            01 021BC    691021AF
     9565   01 021BD    68001D47              B        TST1R             RETURN TO TST1 CONTROL  PROG.
     9566                            *
     9567                            *
     9568                            *
1 C00   21:47 JUN 20,'83    TELEFILE ROTATING MEMORY TEST 960-0604-H02                            PAGE   52
A    9570                            *        ***SUBTEST 41***
     9571                            *
     9572   01 021BE    00003E42     MSID41   DATA     MX141             SEEK: INCORRECT LENGTH TEST
     9573                            *
     9574   01 021C0    010021BE     TSEQ41   ID       MSID41,1          IDENTIFICATION OF SUBTEST
     9575                                     TM                         TEST MODE SELECTION
     9576   01 021C1    00000F1B              EX       IOCD41            EXECUTION ROUTINE WITH IOCD
     9577                            *
     9578   01 021C2    00000001 A            IO1      TIO,X'18800000',X'FFFFC000' TIO TEST
            01 021C3    18800000 A
            01 021C4    FFFFC000 A
     9579   01 021C5    00000004 A            IO2      TDV,X'20804000',X'FFFFC000' TDV TEST
            01 021C6    20804000 A
            01 021C7    FFFFC000 A
     9580                                     SN                         SENSE DATA TEST
     9581   01 021BF    48340000 A            TEND                       END OF TEST SEQUENCE
     9582                            *
     9583   01 021C8    01       A   T41B     DATA,1   1,2,3,5
            01 021C8 1  02       A
            01 021C8 2  03       A
            01 021C8 3  05       A
     9584                            *
     9585   01 021C9    72FC21C8     T41      LB,15    T41B,6
     9586   01 021CA    55F21E37              STH,15   WA(IOCD41)+1,1
     9587   01 021CB    6AF0053D              TEST     TSEQ41
            01 021CC    000021BF
     9588   01 021CD    20600001 A            LOOP,6  K4,T41
            01 021CE    31601BDF
            01 021CF    691021C9
     9589   01 021D0    68001D47              B        TST1R             RETURN TO TST1 CONTROL  PROG.
     9590                            *
     9591                            *
     9592                            *
1 C00   21:47 JUN 20,'83    TELEFILE ROTATING MEMORY TEST 960-0604-H02                            PAGE   53
A    9594                            *        ***SUBTEST 42***
     9595                            *
     9596   01 021D1    00003E48     MSID42   DATA     MX142             SEEK: INCORRECT ADDRESS TEST
     9597                            *
     9598   01 021D3    010021D1     TSEQ42   ID       MSID42,1          IDENTIFICATION OF SUBTEST
     9599                                     TM                         TEST MODE SELECTION
     9600   01 021D4    00000EF0              EX       IOCD42            EXECUTION ROUTINE WITH IOCD
     9601                            *
     9602   01 021D5    80001E93              IO1      *T1TIO2
     9603   01 021D6    80001EB4              IO2      *T1TDV7
     9604                                     SN                         SENSE DATA TEST
     9605   01 021D2    48340000 A            TEND                       END OF TEST SEQUENCE
     9606                            *
     9607                            *
     9608                            *
     9609   01 021D7    32601B75     T42      LW,6     ADR3              LOAD MAXIMAL SECTOR ADDRESS
     9610   01 021D8    3310053C              MTW,1    T1DVCNT           INCREM. TEST VARIATION COUNT
     9611   01 021D9    75661B72     T42A     STB,6    SKADR,3           STORE SECTOR ADDRESS IN SEEK BUFFER
     9612   01 021DA    6AF0053D              TEST     TSEQ42            EXECUTE TEST SEQUENCE
            01 021DB    000021D2
     9613   01 021DC    20600001 A            LOOP,6  K256,T42A          LOOP
            01 021DD    31601BE8
            01 021DE    691021D9
     9614   01 021DF    3310053C              MTW,1    T1DVCNT           INCR. TEST VARIATION COUNT
     9615   01 021E0    75061B72              STB,0    SKADR,3           RESET SECTOR ADDRESS TO ZERO
     9616   01 021E1    32601B74              LW,6     ADR2              LOAD MAX. HEAD/TRACK ADDRESS
     9617   01 021E2    33001B70              MTW,0    DEVTYP            CHECK DEVICE TYPE
     9618   01 021E3    683021E5              BEZ      T42B              DISK
     9619   01 021E4    22600001 A            LI,6     1                 RAD: LOAD ONE
     9620   01 021E5    75641B72     T42B     STB,6    SKADR,2           STORE HEAD ADDRESS IN SEEK BUFFER
     9621   01 021E6    6AF0053D              TEST     TSEQ42            EXECUTE TEST SEQUENCE
            01 021E7    000021D2
     9622   01 021E8    20600001 A            LOOP,6  K256,T42B          LOOP
            01 021E9    31601BE8
            01 021EA    691021E5
     9623   01 021EB    3310053C     T42BA    MTW,1    T1DVCNT           INCR. TEST VARIATION COUNT
     9624   01 021EC    75041B72              STB,0    SKADR,2           RESET HEAD ADDRESS
     9625   01 021ED    32601B73              LW,6     ADR1              LOAD MAXIMAL CYLINDER ADDRESS
     9626   01 021EE    33001B70              MTW,0    DEVTYP            CHECK DEVICE TYPE
     9627   01 021EF    683021F1              BEZ      %+2               DISK
     9628   01 021F0    32601B74              LW,6     ADR2              RAD: LOAD MAX. TRACK ADDRESS
     9629   01 021F1    55601B72     T42C     STH,6    SKADR             STORE CYL/TRACK ADDRESS IN BUFFER
     9630   01 021F2    6AF0053D              TEST     TSEQ42            EXECUTE TEST SEQUENCE
            01 021F3    000021D2
     9631   01 021F4    25600001 A            SLS,6    1                 SHIFT DATA IN REG.6 TO SAVE TIME
     9632   01 021F5    20600001 A            LOOP,6  KXFFFF,T42C        LOOP
            01 021F6    31601BF1
            01 021F7    691021F1
     9633   01 021F8    68001D47              B        TST1R             RETURN TO TST1 CONTROL  PROG.
     9634                            *
     9635                            *
     9636                            *
1 C00   21:47 JUN 20,'83    TELEFILE ROTATING MEMORY TEST 960-0604-H02                            PAGE   54
A    9638                            *        ***SUBTEST 43***
     9639                            *
     9640   01 021F9    00003E4E     MSID43   DATA     MX143             SEEK: DIFFERENCE TEST
     9641                            *
     9642   01 021FB    010021F9     TSEQ43   ID       MSID43,1          IDENTIFICATION OF SUBTEST
     9643                                     TM                         TEST MODE SELECTION
     9644                                     SK
     9645   01 021FC    00000F1C              EX       IOCD43            EXECUTION ROUTINE WITH IOCD
     9646                            *
     9647   01 021FD    80001E90              IO1      *T1TIO1                     TIO TEST
     9648   01 021FE    80001EA2              IO2      *T1TDV1                     TDV TEST
     9649                                     SN                         SENSE DATA TEST
     9650   01 021FA    68340000 A            TEND                       END OF TEST SEQUENCE
     9651                            *
     9652                            *
     9653   01 021FF    00000000 A   T43ADR   DATA     0
     9654                            *
     9655         01 02200           T43      EQU      %
     9656   01 02200    22F0FF7F A            LI,15    X'FF7F'           PREPARE SENSE
     9657   01 02201    55F01B54              STH,15   SENMAS+2                   MASK
     9658   01 02202    55621B59     T43A     STH,6    SENEXP+3,1        STORE EXPECTED DIFFERENCE IN SENSE
     9659   01 02203    55601B56              STH,6    SENEXP              BYTES 14,15 AND BYTES 0,1
     9660   01 02204    556021FF              STH,6    T43ADR
     9661   01 02205    6AF0053D              TEST     TSEQ43            EXECUTE TEST SEQUENCE
            01 02206    000021FA
     9662   01 02207    20600001 A            LOOP,6  ADR1,T43A          LOOP
            01 02208    31601B73
            01 02209    69102202
     9663   01 0220A    68001D47              B        TST1R             RETURN TO TST1 CONTROL  PROG.
     9664                            *
     9665                            *
     9666                            *
1 C00   21:47 JUN 20,'83    TELEFILE ROTATING MEMORY TEST 960-0604-H02                            PAGE   55
A    9668                            *        ***SUBTEST 44***
     9669                            *
     9670   01 0220B    00003E53     MSID44   DATA     MX144       HEADER WRITE,...: INCORRECT LENGTH TEST
     9671                            *
     9672   01 0220D    0100220B     TSEQ44   ID       MSID44,1          IDENTIFICATION OF SUBTEST
     9673                                     TM                         TEST MODE SELECTION
     9674                                     SK
     9675   01 0220E    00000F1D              EX       IOCD44            EXECUTION ROUTINE WITH IOCD
     9676                            *
     9677   01 0220F    00000001 A            IO1      TIO,X'18800000',X'FFFFC000' TIO TEST
            01 02210    18800000 A
            01 02211    FFFFC000 A
     9678   01 02212    00000004 A            IO2      TDV,X'20004000',X'2000C000' TDV TEST
            01 02213    20004000 A
            01 02214    2000C000 A
     9679                                     SN                         SENSE DATA TEST
     9680   01 0220C    68340000 A            TEND                       END OF TEST SEQUENCE
     9681                            *
     9682   01 02215    06       A   T44B     DATA,1   6,7,9,10
            01 02215 1  07       A
            01 02215 2  09       A
            01 02215 3  0A       A
     9683         01 02216           T44      EQU      %
     9684   01 02216    22600000 A            LI,6     0
     9685         01 02217           T44C     EQU      %
     9686                            *                                   LOAD ORDER CODE
     9687   01 02217    32FE1BBD              LW,15    ORDER+3,7          AND STORE IT IN IOCD
     9688   01 02218    75F01E3A              STB,15   IOCD44           RESET REG.6
     9689   01 02219    72FC2215     T44A     LB,15    T44B,6              AND STORE IT IN IOCD
     9690   01 0221A    55F21E3B              STH,15   WA(IOCD44)+1,1    EXECUTE TEST SEQUENCE
     9691   01 0221B    6AF0053D              TEST     TSEQ44            LOOP FOR ALL 4 BYTE COUNT CASES
            01 0221C    0000220C
     9692   01 0221D    20600001 A            LOOP,6  K4,T44A            LOOP FOR ALL ORDERS
            01 0221E    31601BDF
            01 0221F    69102219
     9693   01 02220    32601B7C              LW,6     SIOPFLAG        SET INDEX TO
     9694   01 02221    30601B7C              AW,6     SIOPFLAG        2 IF SIOP
     9695   01 02222    20700001 A            LOOP,7  K2,T44C
            01 02223    31701BDD
            01 02224    69102217
     9696   01 02225    68001D47              B        TST1R             RETURN TO TST1 CONTROL  PROG.
     9697                            *
     9698                            *
     9699                            *
1 C00   21:47 JUN 20,'83    TELEFILE ROTATING MEMORY TEST 960-0604-H02                            PAGE   56
A    9701                            *        ***SUBTEST 45***
     9702                            *
     9703   01 02226    00003E5E     MSID45   DATA     MX145             WRITE,...: INCORRECT LENGTH TEST
     9704                            *
     9705   01 02228    01002226     TSEQ45   ID       MSID45,1          IDENTIFICATION OF SUBTEST
     9706                                     PT
     9707                                     TM                         TEST MODE SELECTION
     9708                                     SK
     9709   01 02229    00000F1E              EX       IOCD45            EXECUTION ROUTINE WITH IOCD
     9710                            *
     9711   01 0222A    80001E96              IO1      *T1TIO3
     9712   01 0222B    80001EB1              IO2      *T1TDV6
     9713                                     SN                         SENSE DATA TEST
     9714   01 02227    E8340000 A            TEND                       END OF TEST SEQUENCE
     9715                            *
     9716   01 0222C    FFFFFFFE A   T45X     DATA     -2,-1,+1,+2
            01 0222D    FFFFFFFF A
            01 0222E    00000001 A
            01 0222F    00000002 A
     9717                            *
     9718   01 02230    33101B6A     T45      MTW,1    WCNT              INCR. WORD COUNT
     9719   01 02231    32FE1BBA     T45A     LW,15    ORDER,7           LOAD ODER CODE
     9720   01 02232    75F01E3C              STB,15   IOCD45              AND STORE IT IN IOCD
     9721   01 02233    22600000 A            LI,6     0                 RESET REG. 6
     9722   01 02234    32FC222C     T45B     LW,15    T45X,6            LOAD INCORRECT LENGTH DIFFER.
     9723   01 02235    30F01B76              AW,15    ADR4                AND ADD BYTE COUNT OF 1 SECTOR
     9724   01 02236    55F21E3D              STH,15   WA(IOCD45)+1,1       AND STORE IT IN IOCD
     9725   01 02237    6AF0053D              TEST     TSEQ45            EXECUTE TEST SEQUENCE
            01 02238    00002227
     9726   01 02239    20600001 A            LOOP,6  K4,T45B            LOOP ON ALL FOUR IL CASES
            01 0223A    31601BDF
            01 0223B    69102234
     9727   01 0223C    20700001 A            LOOP,7  K3,T45A            LOOP ON ORDERS
            01 0223D    31701BDE
            01 0223E    69102231
     9728   01 0223F    68001D47              B        TST1R             RETURN TO TST1 CONTROL  PROG.
     9729                            *
     9730                            *
     9731                            *
1 C00   21:47 JUN 20,'83    TELEFILE ROTATING MEMORY TEST 960-0604-H02                            PAGE   57
A    9733                            *        ***SUBTEST 46***
     9734                            *
     9735   01 02240    00003E6B     MSID46   DATA     MX146             HEADER READ: CHECK BYTE  ERROR TEST
     9736                            *
     9737   01 02242    01002240     TSEQ46A  ID       MSID46,1
     9738                                     SK
     9739   01 02243    00000EF5              IS       IOCDX09           HEADER WRITE
     9740   01 02241    30000000 A            TEND
     9741                            *
     9742   01 02245    01002240     TSEQ46B  ID       MSID46,1          IDENTIFICATION OF SUBTEST
     9743                                     TM                         TEST MODE SELECTION
     9744                                     SK
     9745   01 02246    00000F1F              EX       IOCD46            EXECUTION ROUTINE WITH IOCD
     9746                            *
     9747   01 02247    80001E93              IO1      *T1TIO2                     TIO TEST
     9748   01 02248    00000014 A            IO3      TDV15,X'41004000',X'FFFFC000'
            01 02249    41004000 A
            01 0224A    FFFFC000 A
     9749                                     SN                         SENSE DATA TEST
     9750   01 0224B    0000224D              ES3      T46X1,T46X2
            01 0224C    00002251
     9751   01 02244    682D0000 A            TEND                       END OF TEST SEQUENCE
     9752                            *
     9753                            *
     9754                            *
     9755   01 0224D    22402254     T46X1    LI,4     T46D
     9756   01 0224E    6AF009B1              BAL,15   #IOEX             BRANCH TO IO EXECUTE ROUTINE
     9757   01 0224F    E800000A A            B        *10               * \
     9758   01 02250    E802000A A            B        *10,1
     9759   01 02251    22402254     T46X2    LI,4     T46D
     9760   01 02252    6AF009DB              BAL,15   #IOCP             EXECUTE IO COMPARE AND PRINT ROUT.
     9761   01 02253    E800000A A            B        *10
     9762                            *
     9763   01 02254    00000000 A   T46D     DATA     0,2,0,X'C000',0
            01 02255    00000002 A
            01 02256    00000000 A
            01 02257    0000C000 A
            01 02258    00000000 A
     9764                            *
     9765         01 02259           T46      EQU      %
     9766   01 02259    6AF02DB9              BAL,15   HDRSR             SAVE HEADERS
     9767   01 0225A    73F03262              MTB,-1   BF1               WRITE FLAWMARK
     9768   01 0225B    22F000CA A            LI,15    202                 TO HEADER OF CYL 202
     9769   01 0225C    75F43262              STB,15   BF1,2
     9770   01 0225D    55F01B72              STH,15   SKADR             SEEK ADDRESS BUFFER
     9771   01 0225E    3310053C              MTW,1    T1DVCNT           INCREMENT TEST VARIATION COUNT
     9772   01 0225F    6AF0053D              TEST     TSEQ46A
            01 02260    00002241
     9773   01 02261    22F02400 A            LI,15    X'2400'           SET SPECIAL TEST MODE
     9774   01 02262    55F01B71              STH,15   TMODB               TO FORCE CHECK BYTE ERRORS
     9775   01 02263    3310053C              MTW,1    T1DVCNT           INCREMENT TEST VARIATION COUNT
     9776   01 02264    6AF0053D              TEST     TSEQ46B
            01 02265    00002244
     9777   01 02266    75003262              STB,0    BF1               REWRITE CORRECT HEADER
     9778   01 02267    3310053C              MTW,1    T1DVCNT           INCREMENT TEST VARIATION COUNT
     9779   01 02268    6AF0053D              TEST     TSEQ46A
            01 02269    00002241
     9780   01 0226A    6AF0053D              TEST     TSEQHIO           RESET TEST MODE
            01 0226B    00001D26
     9781   01 0226C    6AF02DC3              BAL,15   HDRSW             RESTORE HEADERS
     9782   01 0226D    68001D47              B        TST1R             RETURN TO TST1 CONTROL  PROG.
     9783                            *
     9784                            *
     9785                            *
1 C00   21:47 JUN 20,'83    TELEFILE ROTATING MEMORY TEST 960-0604-H02                            PAGE   58
A    9787                            *        ***SUBTEST 47***
     9788                            *
     9789   01 0226E    00003E73     MSID47   DATA     MX147             READ: CHECK BYTE  ERROR TEST
     9790                            *
     9791   01 02270    0100226E     TSEQ47A  ID       MSID47,1
     9792                                     PT
     9793                                     SK
     9794   01 02271    00000EED              IS       IOCDX01
     9795   01 0226F    B0000000 A            TEND
     9796                            *
     9797   01 02273    0100226E     TSEQ47B  ID       MSID47,1
     9798                                     TM                         TEST MODE SELECTION
     9799                                     SK
     9800   01 02274    00000F20              IO       IOCD47            SIO WITH IOCD
     9801   01 02275    80002281              WT       *T47W
     9802   01 02276    00000001 A            IO1      TIO,X'10400000',X'FFFFC000'
            01 02277    10400000 A
            01 02278    FFFFC000 A
     9803   01 02279    00000014 A            IO3      TDV15,X'00404000',X'FFFFC000'
            01 0227A    00404000 A
            01 0227B    FFFFC000 A
     9804                                     SN                         SENSE DATA TEST
     9805   01 02272    632C0000 A            TEND                       END OF TEST SEQUENCE
     9806                            *
     9807   01 0227C    02120000 A   T47O     DATA     X'02120000'
     9808   01 0227D    00000000 A   T47BR    DATA     0,1024
            01 0227E    00000400 A
     9809   01 0227F    0000CD90     T47BU    DATA     BA(BF2),BA(BF2)+1
            01 02280    0000CD91
     9810   01 02281    00000000 A   T47W     DATA     0,30,IOCD47,0
            01 02282    0000001E A
            01 02283    00000F20
            01 02284    00000000 A
     9811                            *
     9812         01 02285           T47      EQU      %
     9813   01 02285    22F04000 A            LI,15    X'4000'           SET EXPECTED SENSE BYTE 8 TO:
     9814   01 02286    55F01B58              STH,15   SENEXP+2            CHECK BYTE ERROR
     9815   01 02287    6AF0053D     T47C     TEST     TSEQ47A           WRITE DATA
            01 02288    0000226F
     9816   01 02289    33101B72              MTW,1    SKADR             INCR. SEEK ADDRESS
     9817   01 0228A    31201B72              CW,2     SKADR               AND WRITE A SECOND SECTOR OF DATA
     9818   01 0228B    69302287              BNE      T47C
     9819   01 0228C    35001B72              STW,0    SKADR
     9820   01 0228D    22F02400 A            LI,15    X'2400'           SET SPECIAL TEST MODE
     9821   01 0228E    55F01B71              STH,15   TMODB                  TO FORCE CHECK BYTE ERRORS
     9822   01 0228F    32FE227F     T47A     LW,15    T47BU,7           LOAD BYTE ADDRESS OF BUFFER
     9823   01 02290    35F01E40              STW,15   IOCD47               AND STOR IT IN IOCD
     9824   01 02291    22600000 A            LI,6     0                 RESET REG. 6
     9825   01 02292    72FC227C     T47B     LB,15    T47O,6            LOAD ORDER  (READ1 AND READ2)
     9826   01 02293    75F01E40              STB,15   IOCD47              AND STORE IT IN IOCD
     9827   01 02294    32FC227D              LW,15    T47BR,6           LOAD REMAINING BYTE COUNT
     9828   01 02295    35F02284              STW,15   T47W+3              AND STORE IT IN PARAMETER TABLE
     9829   01 02296    6AF0053D              TEST     TSEQ47B           EXECUTE READ ORDER
            01 02297    00002272
     9830   01 02298    20600001 A            LOOP,6  K2,T47B            LOOP ON TWO ORDERS
            01 02299    31601BDD
            01 0229A    69102292
     9831   01 0229B    20700001 A            LOOP,7  K2,T47A            LOOP ON TWO BUFFER ADDRESSES
            01 0229C    31701BDD
            01 0229D    6910228F
     9832   01 0229E    68001D47              B        TST1R             RETURN TO TST1 CONTROL  PROG.
     9833                            *
     9834                            *
     9835                            *
1 C00   21:47 JUN 20,'83    TELEFILE ROTATING MEMORY TEST 960-0604-H02                            PAGE   59
A    9837                            *        ***SUBTEST 48***
     9838                            *
     9839   01 0229F    00003E7A     MSID48   DATA     MX148             IOP HALT TEST
     9840                            *
     9841   01 022A1    0100229F     TSEQ48   ID       MSID48,1          IDENTIFICATION OF SUBTEST
     9842                                     PT
     9843                                     TM                         TEST MODE SELECTION
     9844                                     SK
     9845   01 022A2    00000F21              IO       IOCD48            SIO WITH IOCD
     9846   01 022A3    00000001 A   T48WT    WT       INT,8,IOCD48+1,0,X'00084000',X'FFFFC000'
            01 022A4    00000008 A
            01 022A5    00000F22
            01 022A6    00000000 A
            01 022A7    00084000 A
            01 022A8    FFFFC000 A
     9847   01 022A9    00000001 A            IO1      TIO,X'18060000',X'FFFFC000' TIO TEST
            01 022AA    18060000 A
            01 022AB    FFFFC000 A
     9848   01 022AC    80001EB1              IO2      *T1TDV6                     TDV TEST
     9849                                     SN                         SENSE DATA TEST
     9850   01 022A0    E3340000 A            TEND                       END OF TEST SEQUENCE
     9851                            *
     9852   01 022AD    0200     A   T48B     DATA,2   512,256,128,64,32,16,8,4
            01 022AD 2  0100     A
            01 022AE    0080     A
            01 022AE 2  0040     A
            01 022AF    0020     A
            01 022AF 2  0010     A
            01 022B0    0008     A
            01 022B0 2  0004     A
     9853                            *
     9854         01 022B1           T48      EQU      %
     9855   01 022B1    32FE1BBA              LW,15    ORDER,7           LOAD ORDER CODE
     9856   01 022B2    75F01E42              STB,15   IOCD48              AND STORE IT IN IOCD.
     9857   01 022B3    22600000 A            LI,6     0                 RESET REG. 6
     9858   01 022B4    52FC22AD     T48A     LH,15    T48B,6            LOAD BYTE COUNT
     9859   01 022B5    55F21E43              STH,15   WA(IOCD48)+1,1       AND STORE ITIN IOCD
     9860   01 022B6    6AF0053D              TEST     TSEQ48            EXECUTE TEST SEQUENCE
            01 022B7    000022A0
     9861   01 022B8    20600001 A            LOOP,6  K8,T48A            BYTE COUNT LOOP
            01 022B9    31601BE1
            01 022BA    691022B4
     9862   01 022BB    20700001 A            LOOP,7   K3,T48            ORDER LOOP
            01 022BC    31701BDE
            01 022BD    691022B1
     9863   01 022BE    68001D47              B        TST1R             RETURN TO TST1 CONTROL  PROG.
     9864                            *
     9865                            *
     9866                            *
1 C00   21:47 JUN 20,'83    TELEFILE ROTATING MEMORY TEST 960-0604-H02                            PAGE   60
A    9868                            *        ***SUBTEST 49***
     9869                            *
     9870   01 022BF    00003E7E     MSID49   DATA     MX149             HIO HALT TEST
     9871                            *
     9872   01 022C1    010022BF     TSEQ49   ID       MSID49,1          IDENTIFICATION OF SUBTEST
     9873                                     TM                         TEST MODE SELECTION
     9874                                     SK
     9875   01 022C2    00000F23              IO       IOCD49            SIO WITH IOCD
     9876   01 022C3    00000002 A            IO1      HIO,X'16004000',X'FF00C000'
            01 022C4    16004000 A
            01 022C5    FF00C000 A
     9877   01 022C6    00000001 A            IO2      TIO,X'10000000',X'FF00C000' TIO TEST
            01 022C7    10000000 A
            01 022C8    FF00C000 A
     9878   01 022C9    00000004 A            IO3      TDV,X'00000000',X'FF00C000' TDV TEST
            01 022CA    00000000 A
            01 022CB    FF00C000 A
     9879   01 022C0    62380000 A            TEND                       END OF TEST SEQUENCE
     9880                            *
     9881                            *
     9882                            *
     9883   01 022CC    32FC1BBA     T49      LW,15    ORDER,6           LOAD ORDER CODE
     9884   01 022CD    75F01E46              STB,15   IOCD49               AND STORE IT IN IOCD
     9885   01 022CE    6AF0053D              TEST     TSEQ49            EXECUTE TEST SEQUENCE
            01 022CF    000022C0
     9886   01 022D0    20600001 A            LOOP,6   K3,T49            LOOP ON ORDERS
            01 022D1    31601BDE
            01 022D2    691022CC
     9887   01 022D3    68001D47              B        TST1R             RETURN TO TST1 CONTROL  PROG.
     9888                            *
     9889                            *
     9890                            *
1 C00   21:47 JUN 20,'83    TELEFILE ROTATING MEMORY TEST 960-0604-H02                            PAGE   61
A    9892                            *        ***SUBTEST 50***
     9893                            *
     9894   01 022D4    00003E82     MSID50   DATA     MX150             IOP OUTPUT PARITY ERROR TEST
     9895                            *
     9896   01 022D6    010022D4     TSEQ50   ID       MSID50,1
     9897                                     PT
     9898                                     TM
     9899   01 022D7    800022E1              IO       *T50IO
     9900   01 022D8    800022DF              WT       *T50WT
     9901   01 022D9    00000001 A   T50TIO   IO1      TIO,X'10000000',X'FF7FC000'
            01 022DA    10000000 A
            01 022DB    FF7FC000 A
     9902   01 022DC    00000004 A   T50TDV   IO2      TDV,X'00004000',X'0800C000'
            01 022DD    00004000 A
            01 022DE    0800C000 A
     9903                                     SN
     9904   01 022D5    C3340000 A            TEND
     9905                            *
     9906   01 022DF    00000000 A   T50WT    DATA     0,60
            01 022E0    0000003C A
     9907   01 022E1    00000000 A   T50IO    DATA     0,0
            01 022E2    00000000 A
     9908                            *
     9909   01 022E3    00000EF0     T50IOCD  DATA     IOCD50A,IOCD50B,IOCD50C,IOCD50D,IOCD50E
            01 022E4    00000F24
            01 022E5    00000F25
            01 022E6    00000F26
            01 022E7    00000F27
     9910   01 022E8    04010004 A   T50RBC   DATA     X'04010004',X'00000000'
            01 022E9    00000000 A
     9911   01 022EA    1800     A   T50T1    DATA,2   X'1800',X'1800',X'10C0',X'10C0',X'1800',0
            01 022EA 2  1800     A
            01 022EB    10C0     A
            01 022EB 2  10C0     A
            01 022EC    1800     A
            01 022EC 2  0000     A
     9912   01 022ED    08       A   T50T2    DATA,1   X'08',X'08',X'00',X'00',X'08',0,0,0
            01 022ED 1  08       A
            01 022ED 2  00       A
            01 022ED 3  00       A
            01 022EE    08       A
            01 022EE 1  00       A
            01 022EE 2  00       A
            01 022EE 3  00       A
     9913   01 022EF    02       A   T50SN    DATA,1   X'02',X'20',X'20',X'20',0,0,0,0
            01 022EF 1  20       A
            01 022EF 2  20       A
            01 022EF 3  20       A
            01 022F0    00       A
            01 022F0 1  00       A
            01 022F0 2  00       A
            01 022F0 3  00       A
     9914   01 022F1    09       A   T50MA    DATA,1   9,0,0,9,9,0,0,0
            01 022F1 1  00       A
            01 022F1 2  00       A
            01 022F1 3  09       A
            01 022F2    09       A
            01 022F2 1  00       A
            01 022F2 2  00       A
            01 022F2 3  00       A
     9915                            *
     9916         01 022F3           T50      EQU      %
     9917   01 022F3    751222E8              STB,1    T50RBC,1
     9918   01 022F4    33001B7C              MTW,0    SIOPFLAG          SIOP?
     9919   01 022F5    683022F7              BEZ      %+2               NO
     9920   01 022F6    756222E8              STB,6    T50RBC,1          CHANGE REMAINING BC
     9921   01 022F7    22600000 A   T50AA    LI,6     0                 RESET REG. 6
     9922   01 022F8    32FE22E3              LW,15    T50IOCD,7         LOAD IOCD ADDRESS
     9923   01 022F9    35F022E1              STW,15   T50IO                  IN PARAMETER TABLE
     9924   01 022FA    72FE22E8              LB,15    T50RBC,7          LOAD  REMAINING BYTECOUNT
     9925   01 022FB    35F022E2              STW,15   T50IO+1                IN PARAMETER TABLE
     9926   01 022FC    52FE22EA              LH,15    T50T1,7           LOAD TIO STATUS
     9927   01 022FD    55F022DA              STH,15   T50TIO+1               IN PARAMETER TABLE
     9928   01 022FE    72FE22ED              LB,15    T50T2,7           LOAD TDV STATUS
     9929   01 022FF    75F022DD              STB,15   T50TDV+1                IN PARAMETER TABLE
     9930   01 02300    72FE22EF              LB,15    T50SN,7           LOAD EXPECTED SENSE
     9931   01 02301    75F01B58              STB,15   SENEXP+2                BYTE 8
     9932   01 02302    72FE22F1              LB,15    T50MA,7           CHECK MACHINE TYPE
     9933   01 02303    68302307              BEZ      T50A              NO SIGMA 9 TEST: EXECUTE
     9934   01 02304    31F00225              CW,15    :MACHINE          SIGMA9 TEST: CHECK MACHINE TYPE
     9935   01 02305    69302318              BNE      T50N              NO SIGMA 9: SKIP TEST
     9936   01 02306    68002314              B        T50B              EXECUTE SIGMA 9 TEST
     9937                            *
     9938   01 02307    32F00006 A   T50A     LW,15    6                 LOAD REG.6
     9939   01 02308    25F00020 A            SLS,15   32                SHIFT TO DETECT
     9940   01 02309    69802310              BCS,8    T50M                 IF EVEN PARITY
     9941   01 0230A    75601B6C              STB,6    PATID+1           OK: STORE BYTE
     9942   01 0230B    75621B6C              STB,6    PATID+1,1                IN EVERY BYTE
     9943   01 0230C    75641B6C              STB,6    PATID+1,2                      OF THE SEED WORD
     9944   01 0230D    75661B6C              STB,6    PATID+1,3
     9945   01 0230E    6AF0053D              TEST     TSEQ50            EXECUTE TEST SEQUENCE
            01 0230F    000022D5
     9946   01 02310    20600001 A   T50M     LOOP,6   KX00FF,T50A       LOOP FOR ALL EVEN PARITIES
            01 02311    31601BF0
            01 02312    69102307
     9947   01 02313    68002318              B        T50N              BRANCH TO NEXT PASS
     9948                            *
     9949   01 02314    32F01C04     T50B     LW,15    KXN12             LOAD SEED
     9950   01 02315    35F01B6C              STW,15   PATID+1             IN PATTERN WORD
     9951   01 02316    6AF0053D              TEST     TSEQ50            EXECUTE TEST SEQUENCE
            01 02317    000022D5
     9952   01 02318    20700001 A   T50N     LOOP,7   K5,T50AA          LOOP
            01 02319    31701BE0
            01 0231A    691022F7
     9953   01 0231B    68001D47              B        TST1R             RETURN TO TST1 CONTROL  PROG.
     9954                            *
     9955                            *
     9956                            *
1 C00   21:47 JUN 20,'83    TELEFILE ROTATING MEMORY TEST 960-0604-H02                            PAGE   62
A    9958                            *        ***SUBTEST 51***
     9959                            *
     9960   01 0231C    00003E88     MSID51   DATA     MX151             IOP INPUT PARITY ERROR TEST
     9961                            *
     9962   01 0231E    0100231C     TSEQ51A  ID       MSID51,1          IDENTIFICATION OF SUBTEST
     9963                                     TM                         TEST MODE SELECTION
     9964                                     SK
     9965   01 0231F    00000F28              EX       IOCD51A           EXECUTION ROUTINE WITH IOCD
     9966                            *
     9967   01 02320    00000001 A            IO1      TIO,X'10400000',X'FFFFC000' TIO TEST
            01 02321    10400000 A
            01 02322    FFFFC000 A
     9968   01 02323    80001EA8              IO2      *T1TDV3                     TDV TEST
     9969   01 02324    00000002 A            IO3      HIO,X'10400000',X'FFFFC000'
            01 02325    10400000 A
            01 02326    FFFFC000 A
     9970   01 0231D    68380000 A            TEND                       END OF TEST SEQUENCE
     9971                            *
     9972   01 02328    0100231C     TSEQ51B  ID       MSID51,1          IDENTIFICATION OF SUBTEST
     9973                                     TM                         TEST MODE SELECTION
     9974                                     SK
     9975   01 02329    00000F29              EX       IOCD51B           EXECUTION ROUTINE WITH IOCD
     9976                            *
     9977   01 0232A    00000001 A            IO1      TIO,X'18020000',X'FFFFC000'
            01 0232B    18020000 A
            01 0232C    FFFFC000 A
     9978   01 0232D    80001EB1              IO2      *T1TDV6                     TDV TEST
     9979   01 0232E    80001EC0              IO3      *T1HIO1
     9980   01 02327    68380000 A            TEND                       END OF TEST SEQUENCE
     9981                            *
     9982                            *
     9983                            *
     9984         01 0232F           T51      EQU      %
     9985   01 0232F    6AF0053D              TEST     TSEQ51A
            01 02330    0000231D
     9986   01 02331    33000225              MTW,0    :MACHINE
     9987   01 02332    68301D47              BEZ      TST1R             RETURN TO TST1 CONTROL  PROG.
     9988   01 02333    6AF0053D              TEST     TSEQ51B
            01 02334    00002327
     9989   01 02335    68001D47              B        TST1R             RETURN TO TST1 CONTROL  PROG.
     9990                            *
     9991                            *
     9992                            *
1 C00   21:47 JUN 20,'83    TELEFILE ROTATING MEMORY TEST 960-0604-H02                            PAGE   63
A    9994                            *        ***SUBTEST 52***
     9995                            *
     9996   01 02336    00003E8E     MSID52   DATA     MX152             RATE ERROR TEST
     9997                            *
     9998   01 02338    01002336     TSEQ52   ID       MSID52,1          IDENTIFICATION OF SUBTEST
     9999                                     TM                         TEST MODE SELECTION
    10000                                     SK
    10001   01 02339    00000F2A              IO       IOCD52            SIO WITH IOCD
    10002   01 0233A    00000001 A            WT       INT,8,IOCD52,1,X'80D04000',X'FF7FC000'             A03
            01 0233B    00000008 A
            01 0233C    00000F2A
            01 0233D    00000001 A
            01 0233E    80D04000 A
            01 0233F    FF7FC000 A
    10003   01 02340    00000001 A            IO1      TIO,X'10400000',X'FF7FC000' TIO TEST
            01 02341    10400000 A
            01 02342    FF7FC000 A
    10004   01 02343    80001EB1              IO2      *T1TDV6                     TDV TEST
    10005                                     SN                         SENSE DATA TEST
    10006   01 02337    63340000 A            TEND                       END OF TEST SEQUENCE
    10007                            *
    10008                            *
    10009   01 02344    22F01000 A   T52      LI,15    X'1000'           SET EXPECTED AND
    10010   01 02345    55F01B54              STH,15   SENMAS+2             MASK OF SENSE BYTE 8
    10011   01 02346    55F01B58              STH,15   SENEXP+2
    10012   01 02347    32FC1BBA     T52A     LW,15    ORDER,6           LOAD ORDER CODE
    10013   01 02348    75F01E54              STB,15   IOCD52               IN IOCD
    10014   01 02349    6AF0053D              TEST     TSEQ52            EXECUTE TEST SEQUENCE
            01 0234A    00002337
    10015   01 0234B    20600001 A            LOOP,6  K3,T52A            LOOP
            01 0234C    31601BDE
            01 0234D    69102347
    10016   01 0234E    68001D47              B        TST1R             RETURN TO TST1 CONTROL  PROG.
    10017                            *
    10018                            *
    10019                            *
1 C00   21:47 JUN 20,'83    TELEFILE ROTATING MEMORY TEST 960-0604-H02                            PAGE   64
A   10021                            *        ***SUBTEST 53***
    10022                            *
    10023   01 0234F    00003E92     MSID53   DATA     MX153             RAD: INVALID ORDER TEST
    10024                            *
    10025   01 02351    0100234F     TSEQ53   ID       MSID53,1          IDENTIFICATION OF SUBTEST
    10026                                     TM                         TEST MODE SELECTION
    10027                                     SK
    10028   01 02352    00000F2C              IO       IOCD53            SIO WITH IOCD
    10029   01 02353    00000000 A            WT       RDY,8,IOCD53,1      WAIT 8 MSEC FOR READY
            01 02354    00000008 A
            01 02355    00000F2C
            01 02356    00000001 A
    10030   01 02357    80001E93              IO1      *T1TIO2
    10031   01 02358    80001EB4              IO2      *T1TDV7
    10032   01 02350    63300000 A            TEND                       END OF TEST SEQUENCE
    10033                            *
    10034   01 02359    33B30A09 A   T53O     DATA     X'33B30A09'
    10035                            *
    10036   01 0235A    72FC2359     T53      LB,15    T53O,6            LOAD ORDER CODE
    10037   01 0235B    75F01E58              STB,15   IOCD53              AND STORE IT IN IOCD
    10038   01 0235C    6AF0053D              TEST     TSEQ53            EXECUTE TEST SEQUENCE
            01 0235D    00002350
    10039   01 0235E    20600001 A            LOOP,6  K4,T53             LOOP
            01 0235F    31601BDF
            01 02360    6910235A
    10040   01 02361    68001D47              B        TST1R             RETURN TO TST1 CONTROL  PROG.
    10041                            *
    10042                            *
    10043                            *
1 C00   21:47 JUN 20,'83    TELEFILE ROTATING MEMORY TEST 960-0604-H02                            PAGE   65
A   10045                            *        ***SUBTEST 54***
    10046                            *
    10047   01 02362    00003E98     MSID54   DATA     MX154             INTERRUPT MODIFIER BIT TEST
    10048                            *
    10049   01 02364    01022362     TSEQ54A  ID       MSID54,1,1
    10050                                     TM
    10051   01 02363    40000000 A            TEND
    10052                            *
    10053   01 02366    01042362     TSEQ54B  ID       MSID54,1,2
    10054   01 02366    81042362              INH      0,TST1E
            01 02367    00001C3C
    10055   01 02368    000023AD              ES1      T54XX,T54XE
            01 02369    000023B5
    10056   01 0236A    80002383              IO       *T54IO            SIO WITH IOCD
    10057   01 0236B    80002381              WT       *T54WT
    10058   01 0236C    00000001 A            IO1      TIO,X'90004000',X'FFFFC000'  TIO TEST
            01 0236D    90004000 A
            01 0236E    FFFFC000 A
    10059   01 0236F    80001EA2              IO2      *T1TDV1                     TDV TEST
    10060   01 02370    00000000 A            IO3      SIO,X'90004000',X'FFFFC000',IOCDX04
            01 02371    90004000 A
            01 02372    FFFFC000 A
            01 02373    00000EF2
    10061   01 02365    07380000 A            TEND                       END OF TEST SEQUENCE
    10062                            *
    10063   01 02375    01062362     TSEQ54C  ID       MSID54,1,3
    10064   01 02375    81062362              INH      0,TST1E
            01 02376    00001C3C
    10065                                     SN
    10066   01 02374    00040000 A            TEND
    10067                            *
    10068   01 02378    010A2362     TSEQ54D  ID       MSID54,1,5
    10069   01 02378    810A2362              INH      0,TST1E
            01 02379    00001C3C
    10070   01 0237A    80001EC0              IO1      *T1HIO1
    10071   01 02377    00200000 A            TEND
    10072                            *
    10073   01 0237C    01082362     TSEQ54E  ID       MSID54,1,4
    10074   01 0237C    81082362              INH      0,TST1E
            01 0237D    00001C3C
    10075   01 0237E    000023BD              ES1      T54EX,T54EE
            01 0237F    000023DF
    10076                                     SN
    10077   01 0237B    04040000 A            TEND
    10078                            *
    10079   01 02380                 T54T     RES      1
    10080                            *
    10081   01 02381    00000000 A   T54WT    DATA     0,30
            01 02382    0000001E A
    10082   01 02383    00000000 A   T54IO    DATA     0,0
            01 02384    00000000 A
    10083                            *
    10084   01 02385    00000F2D     T54O     DATA     IOCD54A,IOCD54B
            01 02386    00000F2E
    10085                            *
    10086   01 02387    32FE2385     T54      LW,15    T54O,7            LOAD IOCD ADDRESS IN
    10087   01 02388    35F02383              STW,15   T54IO                          PARAMETER TABLE
    10088   01 02389    22600000 A            LI,6     0                 RESET REG.6
    10089   01 0238A    32F01B61              LW,15    DEVADR00          LOAD  DEVICE ADDRESS XX0
    10090   01 0238B    35F02380              STW,15   T54T                 AND STORE IT IN ADDRESS LOCATION T
    10091   01 0238C    22EF0000 A            LI,14    X'F0000'          INITIALIZE REG. 14
    10092   01 0238D    6AF0053D              TEST     TSEQ54A           SELECT TEST MODE
            01 0238E    00002363
    10093         01 0238F           T54A     EQU      %                 1. PASS: SET ALL INTERRUPT MODIFIER BITS
    10094   01 0238F    32F02380              MVW      T54T,DEVADDR      STORE DEVICE ADDRESS
            01 02390    35F01B60
    10095   01 02391    6AF0053D              TEST     TSEQ54B           ISSUE TEST SEQUENCE
            01 02392    00002365
    10096   01 02393    32F01B65              MVW      DEVADR15,DEVADDR  STORE CONTROLLER ADDRESS XXF IN ADDR
            01 02394    35F01B60
    10097   01 02395    25E0047F A            SAS,14   -1                PREPARE FOR
    10098   01 02396    55E21B58              STH,14   SENEXP+2,1           SENSE BYTE 10,11 CHECK
    10099   01 02397    6AF0053D              TEST     TSEQ54C           ISSUE SENSE ORDER AND TEST
            01 02398    00002374
    10100   01 02399    33102380              MTW,1    T54T              INCREM. DEVICE ADDRESS
    10101   01 0239A    20600001 A            LOOP,6   K15,T54A          LOOP
            01 0239B    31601BE4
            01 0239C    6910238F
    10102   01 0239D    22600000 A            LI,6     0                 RESET REG.6
    10103   01 0239E    6AF0053D     T54B     TEST     TSEQ54E           2. PASS: RESET ALL INTERRUPT BITS
            01 0239F    0000237B
    10104   01 023A0    20600001 A            LOOP,6   K15,T54B          LOOP
            01 023A1    31601BE4
            01 023A2    6910239E
    10105   01 023A3    32F01B65              MVW      DEVADR15,DEVADDR  CONTROLLER ADDRESS
            01 023A4    35F01B60
    10106   01 023A5    6AF0053D              TEST     TSEQ54D           ISSUE HIO
            01 023A6    00002377
    10107   01 023A7    33001B70              MTW,0    DEVTYP            CHECK DEVICE TYPE
    10108   01 023A8    69301D47              BNEZ     TST1R             RAD: RETURN
    10109   01 023A9    20700001 A            LOOP,7   K2,T54            LOOP
            01 023AA    31701BDD
            01 023AB    69102387
    10110   01 023AC    68001D47              B        TST1R             RETURN TO TST1 CONTROL  PROG.
    10111                            *
    10112                            *
    10113   01 023AD    224023B8     T54XX    LI,4     T54XD
    10114   01 023AE    6AF009B1              BAL,15   #IOEX             BRANCH TO IO EXECUTE ROUTINE
    10115   01 023AF    680023B2              B        %+3               * \
    10116   01 023B0    33100524              MTW,1    T1DEAB
    10117   01 023B1    E802000A A            B        *10,1
    10118   01 023B2    6AF00B6B              BAL,15   #CORD
    10119   01 023B3    E802000A A            B        *10,1
    10120   01 023B4    E800000A A            B        *10
    10121                            *
    10122   01 023B5    224023B8     T54XE    LI,4     T54XD
    10123   01 023B6    6AF009DB              BAL,15   #IOCP             EXECUTE IO COMPARE AND PRINT ROUT.
    10124   01 023B7    E800000A A            B        *10
    10125                            *
    10126   01 023B8    00000EF2     T54XD    DATA     IOCDX04
    10127   01 023B9    00000000 A            DATA     0,X'10000000',X'F700C000',0
            01 023BA    10000000 A
            01 023BB    F700C000 A
            01 023BC    00000000 A
    10128                            *                                   PREPARE
    10129   01 023BD    32F023E7     T54EX    LW,15    T54XP              IO INTERRUPT LOCATION
    10130   01 023BE    35F0005C A            STW,15   X'5C'             RESET ERROR FLAG
    10131   01 023BF    350023DD              STW,0    T54EXF            INITIALIZE DELAY COUNT
    10132   01 023C0    22407530 A            LI,4     30000                 TO MINIMAL DELAY OF 30 MSEC
    10133   01 023C1    22F00020 A            LI,15    X'0020'           ARM AND
    10134   01 023C2    6DF01200 A            WD,15    X'1200'               INABLE INTERRUPT
    10135   01 023C3    644023C3              BDR,4    %                 WAIT
    10136   01 023C4    33100524              MTW,1    T1DEAB            INCREMENT ABORT FLAG
    10137   01 023C5    22F01060 A            LI,15    X'1060'           DISARM AND
    10138   01 023C6    6DF01500 A            WD,15    X'1500'               DISABLE INTERRUPT
    10139   01 023C7    351023DD              STW,1    T54EXF            SET ERROR FLAG
    10140   01 023C8    E802000A A            B        *10,1             ERROR RETURN
    10141                            *
    10142   01 023C9    22F0000F A   T54EX1   LI,15    15                INTERRUPT ROUTINE
    10143   01 023CA    35F023DE              STW,15   T54EXL            SET AIO REPEAT COUNT TO 15
    10144   01 023CB    224023EF     T54EX2   LI,4     T54ED             ISSUE AIO
    10145   01 023CC    6AF009B1              BAL,15   #IOEX               WITH IOEX ROUTINE
    10146   01 023CD    680023D3              B        T54EX3            OK
    10147   01 023CE    33F023DE              MTW,-1   T54EXL            ERROR: DECREMENT COUNT
    10148   01 023CF    E832000A A            BEZ      *10,1             ABORT IF ZERO
    10149   01 023D0    21F08000 A            CI,15    X'8000'           CHECK IF NO INT. RECOGN.
    10150   01 023D1    694023CB              BCS,4    T54EX2            IF YES: REPEAT
    10151   01 023D2    E802000A A            B        *10,1             ELSE: ABORT
    10152   01 023D3    35D01B60     T54EX3   STW,13   DEVADDR           SAVE OBSERVED DEVICE ADDRESS
    10153   01 023D4    4BD01BED              AND,13   KX000F            PREPARE
    10154   01 023D5    3AD0000D A            LCW,13   13                       FOR
    10155   01 023D6    4BD01BF0              AND,13   KX00FF                      RESETTING
    10156   01 023D7    32E01BF4              LW,14    KX8000                  THE CORRECT INTERRUPT
    10157   01 023D8    A5E0000D A            SLS,14   *13                       MODIFIER BIT IN
    10158   01 023D9    32F01B58              LW,15    SENEXP+2                   SENSE BYTE 10,11
    10159   01 023DA    48F0000E A            EOR,15   14
    10160   01 023DB    35F01B58              STW,15   SENEXP+2
    10161   01 023DC    E800000A A            B        *10               RETURN
    10162                            *
    10163   01 023DD                 T54EXF   RES      1                 ERROR FLAG
    10164   01 023DE                 T54EXL   RES      1                 AIO LOOP COUNT
    10165                            *
    10166   01 023DF    330023DD     T54EE    MTW,0    T54EXF            CHECK ERROR FLAG
    10167   01 023E0    683023E4              BEZ      T54EE1            NO ERROR
    10168   01 023E1    6AF00B7B              SEND     MX508             SEND MESSAGE
            01 023E2    00003FC8
    10169   01 023E3    E800000A A            B        *10               RETURN
    10170   01 023E4    224023EF     T54EE1   LI,4     T54ED             PRINT AIO STATUS
    10171   01 023E5    6AF009DB              BAL,15   #IOCP
    10172   01 023E6    E800000A A            B        *10               RETURN
    10173                            *
    10174                            *
    10175   01 023E7    0F0023E8     T54XP    XPSD,0   T54XPN
    10176                                     BOUND    8
    10177   01 023E8    00000000 A   T54XPN   DATA     0,0,T54I,X'07000000'
            01 023E9    00000000 A
            01 023EA    000023EC
            01 023EB    07000000 A
    10178   01 023EC    22F023C9     T54I     LI,15    T54EX1
    10179   01 023ED    35F023E8              STW,15   T54XPN
    10180   01 023EE    0E2023E8              LPSD,2   T54XPN
    10181                            *
    10182   01 023EF    00000000 A   T54ED    DATA     0,3,X'08004000',X'FFFFC000',0
            01 023F0    00000003 A
            01 023F1    08004000 A
            01 023F2    FFFFC000 A
            01 023F3    00000000 A
    10183                            *
1 C00   21:47 JUN 20,'83    TELEFILE ROTATING MEMORY TEST 960-0604-H02                            PAGE   66
A   10185                            *        ***SUBTEST 55***
    10186                            *                                   INITIALIZE INDEX
    10187   01 023F4    224FFFF0 A   T55      LI,4     -16               COMPARE  BYTE WITH ALL
    10188   01 023F5    31681BDB              CW,6     RMCO+16,4           VALID ORDERS, IF EQUAL SKIP
    10189   01 023F6    68302401              BE       T55B              LOOP
    10190   01 023F7    654023F5              BIR,4    %-2               CHECK IF TRANSFER
    10191   01 023F8    32F00006 A            LW,15    6                    IN CHANNEL
    10192   01 023F9    4BF01BED              AND,15   KX000F                 IS EQUAL TO THIS BIT COMPIN.
    10193   01 023FA    21F00008 A            CI,15    8                 YES: SKIP
    10194   01 023FB    68302401              BE       T55B
    10195   01 023FC    75601DFE              STB,6    IOCD02            STORE INVALID ORDER IN IOCD
    10196   01 023FD    6AF0053D              TEST     TSEQ02A           EXECUTE TEST SEQUENCE FOR TIO
            01 023FE    00001EEB
    10197   01 023FF    6AF0053D              TEST     TSEQ02B           EXECUTE TEST SEQUENCE FOR TDV
            01 02400    00001EF5
    10198   01 02401    20600001 A   T55B     LOOP,6   K256,T55          LOOP
            01 02402    31601BE8
            01 02403    691023F4
    10199   01 02404    68001D47              B        TST1R             RETURN TO TST1 CONTROL  PROG.
    10200                            *
1 C00   21:47 JUN 20,'83    TELEFILE ROTATING MEMORY TEST 960-0604-H02                            PAGE   67
A   10202                            *        ***SUBTEST 56***
    10203                            *
    10204   01 02405    00003E9D     MSID56   DATA     MX156       IOP DEVICE ADDRESS PARITY ERROR TEST
    10205                            *
    10206   01 02407    01022405     TSEQ56A  ID       MSID56,1,1
    10207   01 02407    11022405              INH      1
    10208                                     TM
    10209   01 02406    40000000 A            TEND
    10210                            *
    10211   01 02409    01042405     TSEQ56B  ID       MSID56,1,2
    10212   01 02409    11042405              INH      1
    10213   01 0240A    00000F2F              IO       IOCD56
    10214   01 02408    02000000 A            TEND
    10215                            *
    10216   01 0240C    01062405     TSEQ56C  ID       MSID56,1,3
    10217   01 0240C    11062405              INH      1
    10218   01 0240D    00000001 A            WT       INT,8,IOCD56-1,0,X'00008000',X'0000C000'
            01 0240E    00000008 A
            01 0240F    00000F2E
            01 02410    00000000 A
            01 02411    00008000 A
            01 02412    0000C000 A
    10219   01 02413    80001E93              IO1      *T1TIO2
    10220   01 02414    00000004 A            IO2      TDV,X'08004000',X'FF00C000'
            01 02415    08004000 A
            01 02416    FF00C000 A
    10221   01 02417    80001EC3              IO3      *T1HIO2
    10222   01 0240B    01380000 A            TEND
    10223                            *
    10224   01 02419    01062405     TSEQ56D  ID       MSID56,1,3
    10225   01 02419    11062405              INH      1
    10226   01 0241A    00000001 A            IO1      TIO,X'16004000',X'9FFFC000'
            01 0241B    16004000 A
            01 0241C    9FFFC000 A
    10227   01 02418    00200000 A            TEND
    10228                            *
    10229   01 0241E    01082405     TSEQ56E  ID       MSID56,1,4
    10230   01 0241E    11082405              INH      1
    10231   01 0241F    00000001 A            IO1      TIO,X'0000C000',X'9FFFC000'
            01 02420    0000C000 A
            01 02421    9FFFC000 A
    10232   01 0241D    00200000 A            TEND
    10233   01 02423    010A2405     TSEQ56F  ID       MSID56,1,5
    10234   01 02423    110A2405              INH      1
    10235   01 02424    00000002 A            WT       DLY,10
            01 02425    0000000A A
    10236   01 02426    80001EC6              IO1      *T1HIO3
    10237   01 02422    01200000 A            TEND
    10238                            *
    10239   01 02427                 T56ADRE  RES      1
    10240   01 02428                 T56ADRO  RES      1
    10241   01 02429                 T56ADR   RES      1
    10242                            *
    10243   01 0242A    33000225     T56      MTW,0    :MACHINE          CHECK FOR SIGMA 9
    10244   01 0242B    68301D47              BEZ      TST1R             NO: SKIP THIS SUBTEST
    10245   01 0242C    32F01B60              LW,15    DEVADDR           LOAD DEVICE ADDRESS
    10246   01 0242D    35F02429              STW,15   T56ADR             AND SAVE IT
    10247   01 0242E    4BF01BEE              AND,15   KX00F0            PREPARE FOR DEVICE
    10248   01 0242F    25F0007C A            SLS,15   -4                   ADDRESS PARITY TEST
    10249   01 02430    32E01B60              LW,14    DEVADDR           PREPARE A EVEN PARITY
    10250   01 02431    4BE02DD1              AND,14   =X'1FF0'             AND A ODD PARITY ADDRESS
    10251   01 02432    30F0000E A            AW,15    14                AND SAVE THESE
    10252   01 02433    35F02427              STW,15   T56ADRE                IN THESE TWO LOCATIONS.
    10253   01 02434    48F01BE1              EOR,15   K8
    10254   01 02435    35F02428              STW,15   T56ADRO
    10255   01 02436    22F00012 A   T56A     LI,15    X'12'             SET SPECIAL TEST MODE
    10256   01 02437    75F01B71              STB,15   TMODB
    10257   01 02438    6AF0053D              TEST     TSEQ56A           EXECUTE TEST SEQUENCE 56A
            01 02439    00002406
    10258   01 0243A    32F02428              MVW      T56ADRO,DEVADDR   USE ODD PARITY ADDRESS
            01 0243B    35F01B60
    10259   01 0243C    6AF0053D              TEST     TSEQ56B             AND EXECUTE TESTSEQUENCE 56B
            01 0243D    00002408
    10260   01 0243E    32F02429              MVW      T56ADR,DEVADDR    RESTORE CONTROLLER ADDRESS
            01 0243F    35F01B60
    10261   01 02440    6AF0053D              TEST     TSEQ56C           AND EXECUTE TEST SEQUENCE 56C
            01 02441    0000240B
    10262   01 02442    22F00082 A            LI,15    X'82'             SET SPECIAL TEST MODE
    10263   01 02443    75F01B71              STB,15   TMODB
    10264   01 02444    6AF0053D              TEST     TSEQ56A           EXECUTE TEST SEQUENCE 56A
            01 02445    00002406
    10265   01 02446    6AF0053D              TEST     TSEQ56B                                    AND 56B
            01 02447    00002408
    10266   01 02448    32F02428              MVW      T56ADRO,DEVADDR   LOAD ODD PARITY ADDRESS
            01 02449    35F01B60
    10267   01 0244A    6AF0053D              TEST     TSEQ56D            AND EXECUTE TEST SEQUENCE 56D
            01 0244B    00002418
    10268   01 0244C    32F02427              MVW      T56ADRE,DEVADDR   LOAD EVEN PARITY ADDRESS
            01 0244D    35F01B60
    10269   01 0244E    6AF0053D              TEST     TSEQ56E             AND EXECUTE TEST SEQUENCE 56E
            01 0244F    0000241D
    10270   01 02450    32F01B65              MVW      DEVADR15,DEVADDR
            01 02451    35F01B60
    10271   01 02452    6AF0053D              TEST     TSEQ56F                 AND TEST SEQUENCE 56F
            01 02453    00002422
    10272   01 02454    68001D47              B        TST1R             RETURN TO TST1 CONTROL  PROG.
    10273                            *
    10274                            *
1 C00   21:47 JUN 20,'83    TELEFILE ROTATING MEMORY TEST 960-0604-H02                            PAGE   68
A   10276                            *        ***SUBTEST 57***
    10277                            *
    10278   01 02455    00003EA4     MSID57   DATA     MX157             SEEK : ADDRESS BUFFER TEST
    10279                            *
    10280   01 02457    01022455     TSEQ57A  ID       MSID57,1,1
    10281                                     TM
    10282   01 02456    40000000 A            TEND
    10283                            *
    10284   01 02459    01042455     TSEQ57B  ID       MSID57,1,2
    10285   01 02459    81042455              INH      0,TST1E
            01 0245A    00001C3C
    10286                                     SK
    10287                                     SN
    10288   01 02458    20040000 A            TEND
    10289                            *
    10290   01 0245B    00000F07 A   T57D0    DATA     X'00000F07',X'00001008'
            01 0245C    00001008 A
    10291   01 0245D    01FF000B A   T57D1    DATA     X'01FF000B',X'01AA0007'
            01 0245E    01AA0007 A
    10292                            *
    10293         01 0245F           T57      EQU      %
    10294   01 0245F    6AF0053D              TEST     TSEQ57A
            01 02460    00002456
    10295   01 02461    32F01B61              MVW      DEVADR00,DEVADDR
            01 02462    35F01B60
    10296   01 02463    22600000 A   T57B     LI,6     0                 RESET REG.6
    10297   01 02464    33001B70     T57C     MTW,0    DEVTYP            CHECK DEVICE TYPE
    10298   01 02465    68302468              BEZ      %+3               DISK
    10299   01 02466    32FC245D              LW,15    T57D1,6           RAD: LOAD SEEK ADDRESS
    10300   01 02467    68002469              B        %+2
    10301   01 02468    32FC245B              LW,15    T57D0,6           DISK: LOAD SEEK ADDRESS
    10302   01 02469    35F01B72              STW,15   SKADR                      AND STORE IT IN SEEK B.
    10303   01 0246A    35F01B56              STW,15   SENEXP            AND IN SENSE BYTE 0-3
    10304   01 0246B    6AF0053D              TEST     TSEQ57B           EXECUTE TEST SEQUENCE
            01 0246C    00002458
    10305   01 0246D    20600001 A            LOOP,6   K2,T57C           LOOP
            01 0246E    31601BDD
            01 0246F    69102464
    10306   01 02470    33101B60              MTW,1    DEVADDR           INCREMENT DEVICE ADDRESS
    10307   01 02471    20700001 A            LOOP,7   K16,T57B          LOOP ON ALL DEVICE ADDRESSES
            01 02472    31701BE5
            01 02473    69102463
    10308   01 02474    32F01B65              MVW      DEVADR15,DEVADDR  RESTORE CONTROLLER ADDRESS
            01 02475    35F01B60
    10309   01 02476    68001D47              B        TST1R             RETURN TO TST1 CONTROL  PROG.
    10310                            *
1 C00   21:47 JUN 20,'83    TELEFILE ROTATING MEMORY TEST 960-0604-H02                            PAGE   69
A   10312                            *        ***SUBTEST 58***
    10313                            *
    10314   01 02477    00003EAA     MSID58   DATA     MX158             SEEK : DEVICE INTERFACE ERROR TEST
    10315                            *
    10316   01 02479    01002477     TSEQ58   ID       MSID58,1          IDENTIFICATION OF SUBTEST
    10317                                     TM                         TEST MODE SELECTION
    10318   01 0247A    00000EF0              EX       IOCD58            EXECUTION ROUTINE WITH IOCD
    10319                            *
    10320   01 0247B    80001E90              IO1      *T1TIO1                     TIO TEST
    10321   01 0247C    80001EA2              IO2      *T1TDV1                     TDV TEST
    10322                                     SN                         SENSE DATA TEST
    10323   01 02478    48340000 A            TEND                       END OF TEST SEQUENCE
    10324                            *
    10325                            *
    10326                            *
    10327   01 0247D    3310053C     T58      MTW,1    T1DVCNT           INCREMENT TEST VARIATION COUNT
    10328   01 0247E    55101B72              STH,1    SKADR             STORE ADDRESS 1 AS CYLINDER/TRACK
    10329   01 0247F    6AF0053D              TEST     TSEQ58            EXECUTE TEST SEQUENCE
            01 02480    00002478
    10330   01 02481    3310053C              MTW,1    T1DVCNT            INCREMENT TEST VARIATION COUNT
    10331   01 02482    55001B72              STH,0    SKADR             RESET CYLINDER/TRACK ADDRESS
    10332   01 02483    75141B72              STB,1    SKADR,2           STORE A ONE IN HEAD ADDRESS
    10333   01 02484    33001B70              MTW,0    DEVTYP            CHECK DEVICE TYPE
    10334   01 02485    69302488              BNEZ     %+3               SKIP FOR RAD
    10335   01 02486    6AF0053D              TEST     TSEQ58            EXECUTE TEST SEQUENCE
            01 02487    00002478
    10336   01 02488    3310053C              MTW,1    T1DVCNT           INCR. TEST VARIATION COUNT
    10337   01 02489    75161B72              STB,1    SKADR,3           INCREMENT SECTOR ADDRESS
    10338   01 0248A    75041B72              STB,0    SKADR,2           RESET HEAD ADDRESS
    10339   01 0248B    6AF0053D              TEST     TSEQ58            EXECUTE
            01 0248C    00002478
    10340   01 0248D    68001D47              B        TST1R             RETURN TO TST1 CONTROL  PROG.
    10341                            *
    10342                            *
1 C00   21:47 JUN 20,'83    TELEFILE ROTATING MEMORY TEST 960-0604-H02                            PAGE   70
A   10344                            *        ***SUBTEST 59***
    10345                            *
    10346   01 0248E    00003EB1     MSID59   DATA     MX159             CHECK WRITE ERROR TEST
    10347                            *
    10348   01 02490    0100248E     TSEQ59   ID       MSID59,1          IDENTIFICATION OF SUBTEST
    10349                                     PT
    10350                                     TM                         TEST MODE SELECTION
    10351                                     SK
    10352   01 02491    000024A6              ES1      T59X1,T59X2
            01 02492    000024AC
    10353   01 02493    00000EFE              IO       IOCD59            SIO WITH IOCD
    10354   01 02494    00000000 A            WT       RDY,60,IOCD59,0     WAIT 60 MSEC FOR READY
            01 02495    0000003C A
            01 02496    00000EFE
            01 02497    00000000 A
    10355   01 02498    00000001 A            IO1      TIO,X'10400000',X'FFFFC000'
            01 02499    10400000 A
            01 0249A    FFFFC000 A
    10356   01 0249B    80001EA8              IO2      *T1TDV3                     TDV TEST
    10357                                     SN                         SENSE DATA TEST
    10358   01 0248F    E7340000 A            TEND                       END OF TEST SEQUENCE
    10359                            *
    10360                            *
    10361                            *
    10362   01 0249C    22F08000 A   T59      LI,15    X'8000'           CHECK WRITE ERROR EXPECTED
    10363   01 0249D    55F01B54              STH,15   SENMAS+2           IN SENSE BYTE 8
    10364   01 0249E    55F01B58              STH,15   SENEXP+2
    10365   01 0249F    3310053C              MTW,1    T1DVCNT           INCREMENT TEST VARIATION COUNT
    10366   01 024A0    6AF0053D              TEST     TSEQ59
            01 024A1    0000248F
    10367   01 024A2    3310053C              MTW,1    T1DVCNT           INCREMENT TEST VARIATION COUNT
    10368   01 024A3    6AF0053D              TEST     TSEQ59
            01 024A4    0000248F
    10369   01 024A5    68001D47              B        TST1R             RETURN TO TST1 CONTROL  PROG.
    10370                            *
    10371   01 024A6    32F0053C     T59X1    LW,15    T1DVCNT           CHECK TEST VARIATION COUNT
    10372   01 024A7    21F00001 A            CI,15    1                 IF EQUAL 1 THEN:
    10373   01 024A8    693024AB              BNE      %+3               STORE
    10374   01 024A9    75003262              STB,0    BF1                  THE DATA ZERO IN 1.BYTE OF BUFFER
    10375   01 024AA    E800000A A            B        *10
    10376   01 024AB    75063361              STB,0    BF1+255,3         ELSE STORE IT IN LAST BYTE.
    10377   01 024AC    E800000A A   T59X2    B        *10
    10378                            *
1 C00   21:47 JUN 20,'83    TELEFILE ROTATING MEMORY TEST 960-0604-H02                            PAGE   71
A   10380                            *        ***SUBTEST 60***
    10381                            *
    10382   01 024AD    00003EB6     MSID60   DATA     MX160       SENSE ORDER AND ANGULAR POSITION TEST
    10383                            *
    10384   01 024AF    010024AD     TSEQ60   ID       MSID60,1          IDENTIFICATION OF SUBTEST
    10385                                     SN
    10386   01 024AE    00040000 A            TEND                       END OF TEST SEQUENCE
    10387                            *
    10388                            *
    10389   01 024B0    55001B53     T60      STH,0    SENMAS+1          RESET ANGULAR POS. MASK
    10390   01 024B1    3310053C              MTW,1    T1DVCNT           INCREMENT TEST VARIATION COUNT
    10391   01 024B2    6AF0053D              TEST     TSEQRS
            01 024B3    00001D1E
    10392   01 024B4    6AF0053D     T60A     TEST     TSEQ60
            01 024B5    000024AE
    10393   01 024B6    72F01B5B              LB,15    SENOBS+1          TEST ANGUL. POS.
    10394   01 024B7    21F0000F A            CI,15    X'F'              BITS 27 - 31 ONLY
    10395   01 024B8    684024C1              BCR,4    T60B
    10396   01 024B9    20600001 A            LOOP,6   ADR3,T60A
            01 024BA    31601B75
            01 024BB    691024B4
    10397   01 024BC    22F0000F A            LI,15    X'0F'             LOAD MASK                        A01
    10398   01 024BD    75F01B53              STB,15   SENMAS+1            TO CHECK ANGULAR POSITION      A01
    10399   01 024BE    6AF0053D              TEST     TSEQ60
            01 024BF    000024AE
    10400   01 024C0    68001D47              B        TST1R             RETURN TO TST1 CONTROL  PROG.
    10401         01 024C1           T60B     EQU      %                                                  A01
    10402   01 024C1    22F0000F A            LI,15    X'0F'             LOAD MASK                        A01
    10403   01 024C2    75F01B53              STB,15   SENMAS+1            TO CHECK ANGULAR POSITION      A01
    10404   01 024C3    20700001 A            AI,7     1
    10405   01 024C4    3310053C              MTW,1    T1DVCNT           INCREMENT TEST VARIATION COUNT
    10406   01 024C5    75701B57     T60C     STB,7    SENEXP+1          STORE INDEX AS ANGULAR POS.
    10407   01 024C6    6AF0053D              TEST     TSEQ60
            01 024C7    000024AE
    10408   01 024C8    20700001 A            LOOP,7   ADR3,T60C
            01 024C9    31701B75
            01 024CA    691024C5
    10409   01 024CB    68001D47              B        TST1R             RETURN TO TST1 CONTROL  PROG.
    10410                            *
    10411                            *
1 C00   21:47 JUN 20,'83    TELEFILE ROTATING MEMORY TEST 960-0604-H02                            PAGE   72
A   10413                            *        ***SUBTEST 61***
    10414                            *
    10415         01 02012           MSID61   EQU      MSID19            SEEK       TEST
    10416                            *
    10417   01 024CD    01002012     TSEQ61   ID       MSID61,1          IDENTIFICATION OF SUBTEST
    10418   01 024CE    00000EF0              IS       IOCDX03
    10419                                     SN
    10420   01 024CC    10040000 A            TEND                       END OF TEST SEQUENCE
    10421                            *
    10422                            *
    10423         01 024CF           T61      EQU      %
    10424   01 024CF    3310053C              MTW,1    T1DVCNT           INCREMENT TEST VARIATION COUNT
    10425   01 024D0    75661B72     T61A     STB,6    SKADR,3           STOR REG.6 AS SECTOR ADDRESS
    10426   01 024D1    75661B56              STB,6    SENEXP,3
    10427   01 024D2    6AF0053D              TEST     TSEQ61
            01 024D3    000024CC
    10428   01 024D4    20600001 A            LOOP,6   ADR3,T61A
            01 024D5    31601B75
            01 024D6    691024D0
    10429   01 024D7    22600000 A            LI,6     0                 RESET SECTOR ADDRESS
    10430   01 024D8    75661B72              STB,6    SKADR,3
    10431   01 024D9    75661B56              STB,6    SENEXP,3
    10432   01 024DA    3310053C              MTW,1    T1DVCNT           INCREMENT TEST VARIATION COUNT
    10433   01 024DB    33001B70     T61B     MTW,0    DEVTYP            DEVICE TYPE DISK = 0, RAD = 1
    10434   01 024DC    693024E0              BNEZ     %+4
    10435   01 024DD    75641B72              STB,6    SKADR,2           DISK: STORE HEAD ADDRESS
    10436   01 024DE    75641B56              STB,6    SENEXP,2
    10437   01 024DF    680024E2              B        %+3
    10438   01 024E0    55601B72              STH,6    SKADR             SEEK ADDRESS BUFFER
    10439   01 024E1    55601B56              STH,6    SENEXP
    10440   01 024E2    6AF0053D              TEST     TSEQ61
            01 024E3    000024CC
    10441   01 024E4    20600001 A            LOOP,6   ADR2,T61B
            01 024E5    31601B74
            01 024E6    691024DB
    10442   01 024E7    68001D47              B        TST1R             RETURN TO TST1 CONTROL  PROG.
    10443                            *
    10444                            *
1 C00   21:47 JUN 20,'83    TELEFILE ROTATING MEMORY TEST 960-0604-H02                            PAGE   73
A   10446                            *        ***SUBTEST 62***
    10447                            *
    10448         01 02031           MSID62   EQU      MSID20            HEADER READ TEST
    10449                            *
    10450   01 024E9    01002031     TSEQ62   ID       MSID62,1          IDENTIFICATION OF SUBTEST
    10451                                     SK
    10452   01 024EA    00000EF6              IS       IOCD62            INSTRUCTION SEQUENCE
    10453   01 024EB    000026D8              ES2      T70EX5,T70EX2
            01 024EC    000026C1
    10454                            *
    10455                            *
    10456                                     SN
    10457                                     CM
    10458   01 024E8    30860000 A            TEND                       END OF TEST SEQUENCE
    10459                            *
    10460                            *
    10461         01 024ED           T62      EQU      %
    10462   01 024ED    32F02E28              LW,15    =X'00FFFF00'      BYTES 4 - 7 OF
    10463   01 024EE    35F03263              STW,15   BF1+1               EXPECTED HEADER
    10464   01 024EF    22FFFFFF A            LI,15    -1                INITIALIZE BUFFER B
    10465   01 024F0    35F03364              STW,15   BF2
    10466   01 024F1    32F02E29              LW,15    =X'FF0000FF'
    10467   01 024F2    35F03365              STW,15   BF2+1
    10468   01 024F3    6AF0053D              TEST     TSEQ62            EXECUTE TEST SEQUENCE
            01 024F4    000024E8
    10469   01 024F5    68001D47              B        TST1R             RETURN TO TST1 CONTROL  PROG.
    10470                            *
    10471                            *
1 C00   21:47 JUN 20,'83    TELEFILE ROTATING MEMORY TEST 960-0604-H02                            PAGE   74
A   10473                            *        ***SUBTEST 63***
    10474                            *
    10475   01 024F6    00003EBD     MSID63   DATA     MX163             WRITE, CHECK WRITE AND READ TEST
    10476                            *
    10477   01 024F8    010024F6     TSEQ63A  ID       MSID63,1          IDENTIFICATION OF SUBTEST
    10478                                     PT
    10479                                     SK
    10480   01 024F9    00000F30              IS       IOCD63A           INSTRUCTION SEQUENCE
    10481                            *
    10482                            *
    10483                            *
    10484                                     SN
    10485   01 024F7    B0040000 A            TEND                       END OF TEST SEQUENCE
    10486                            *
    10487   01 024FB    010024F6     TSEQ63B  ID       MSID63,1          IDENTIFICATION OF SUBTEST
    10488                                     SK
    10489   01 024FC    00000EEE              IS       IOCD63B           INSTRUCTION SEQUENCE
    10490                            *
    10491                            *
    10492                            *
    10493                                     SN
    10494                                     CM
    10495   01 024FA    30060000 A            TEND                       END OF TEST SEQUENCE
    10496                            *
    10497                            *
    10498         01 024FD           T63      EQU      %
    10499   01 024FD    32FC1BBA     T63A     LW,15    ORDER,6           LOAD ODER CODE
    10500   01 024FE    75F01E60              STB,15   IOCD63A             AND STORE IT IN IOCD
    10501   01 024FF    6AF0053D              TEST     TSEQ63A           EXECUTE TEST SEQUENCE 63A
            01 02500    000024F7
    10502   01 02501    20600001 A            LOOP,6   K2,T63A           LOOP FOR WRITE AND CHECK WRITE
            01 02502    31601BDD
            01 02503    691024FD
    10503   01 02504    6AF0053D              TEST     TSEQ63B           EXECUTE TESTSEQUENCE FOR READ
            01 02505    000024FA
    10504   01 02506    68001D47              B        TST1R             RETURN TO TST1 CONTROL  PROG.
    10505                            *
    10506                            *
1 C00   21:47 JUN 20,'83    TELEFILE ROTATING MEMORY TEST 960-0604-H02                            PAGE   75
A   10508                            *        ***SUBTEST 65***
    10509                            *
    10510   01 02507    00003EC5     MSID65   DATA     MX165             MATRIX TEST
    10511                            *
    10512   01 02509    01002507     TSEQ65A  ID       MSID65,1
    10513                                     PT
    10514                                     SK
    10515   01 0250A    00000EED              IS       IOCD65A           INSTRUCTION SEQUENCE
    10516                            *
    10517                            *
    10518                            *
    10519                                     SN
    10520   01 02508    B0040000 A            TEND                       END OF TEST SEQUENCE
    10521                            *
    10522   01 0250C    01002507     TSEQ65B  ID       MSID65,1          IDENTIFICATION OF SUBTEST
    10523   01 0250C    31002507              INH      3
    10524                                     PT
    10525                                     SK
    10526   01 0250D    00000EEE              IS       IOCDX02
    10527                                     SN
    10528                                     CM
    10529   01 0250B    B0060000 A            TEND                       END OF TEST SEQUENCE
    10530                            *
    10531   01 0250F    01002507     TSEQ65C  ID       MSID65,1
    10532   01 0250F    11002507              INH      1
    10533   01 02510    00002588              ES1      T65X1,T65X2
            01 02511    00002589
    10534   01 0250E    04000000 A            TEND
    10535                            *
    10536                            *
    10537   01 02513    01002507     TSEQ65D  ID       MSID65,1          IDENTIFICATION OF SUBTEST
    10538   01 02513    31002507              INH      3
    10539                                     SK
    10540   01 02514    00000EF6              IS       IOCDX0A
    10541                                     SN
    10542                                     CM
    10543   01 02512    30060000 A            TEND                       END OF TEST SEQUENCE
    10544                            *
    10545                            *
    10546   01 02515                 T65PF    RES      1                 PRINT FLAG
    10547                            *
    10548                            *
    10549   01 02516    02030102 A   T65S     DATA     X'02030102',0,-1
            01 02517    00000000 A
            01 02518    FFFFFFFF A
    10550   01 02519    00000000 A   T65T     DATA     0,-1,0,-1
            01 0251A    FFFFFFFF A
            01 0251B    00000000 A
            01 0251C    FFFFFFFF A
    10551                            *
    10552                            *
    10553   01 0251D    35002515     T65      STW,0    T65PF             RESET 1. LINE FLAG
    10554   01 0251E    33001B70              MTW,0    DEVTYP            CHECK DEVICE TYPE
    10555   01 0251F    68302552              BEZ      T65DA             DISK
    10556                            *
    10557   01 02520    55601B72     T65RA    STH,6    SKADR             STORE REG.6 AS SEEK ADDRESS
    10558   01 02521    55601B6C              STH,6    PATID+1              AND AS PATTERN SEED
    10559   01 02522    6AF0053D              TEST     TSEQ65A           EXECUTE WRITE
            01 02523    00002508
    10560   01 02524    20600001 A            LOOP,6   ADR2,T65RA        LOOP TO WRITE THE WHOLE SURFACE
            01 02525    31601B74
            01 02526    69102520
    10561   01 02527    22600000 A            LI,6     0                 RESET REG.6
    10562   01 02528    55601B72     T65RB    STH,6    SKADR             REPEAT
    10563   01 02529    55601B6C              STH,6    PATID+1             THE SAME
    10564   01 0252A    6AF0053D              TEST     TSEQ65B                  WITH A READ ORDER
            01 0252B    0000250B
    10565   01 0252C    35002517              STW,0    T65S+1            RESET ERROR COUNT
    10566   01 0252D    32F0083D              LW,15    T1DIO1+4          CHECK FOR
    10567   01 0252E    31F01BFA              CW,15    KY0800                UNUSUAL END
    10568   01 0252F    68402531              BCR,4    %+2
    10569   01 02530    33402517              MTW,4    T65S+1            SET BIT IN ERROR COUNT
    10570   01 02531    32F00848              LW,15    T1DIO2+4          CHECK FOR
    10571   01 02532    31F01BFC              CW,15    KY0200                VERIFICATION ERROR
    10572   01 02533    68402535              BCR,4    %+2               OK
    10573   01 02534    33202517              MTW,2    T65S+1
    10574   01 02535    33000AC1              MTW,0    COMPE             CHECK FOR
    10575   01 02536    68302538              BEZ      %+2                   COMPARE ERROR
    10576   01 02537    33102517              MTW,1    T65S+1            SET BIT
    10577   01 02538    33002517              MTW,0    T65S+1            CHECK ERROR COUNT
    10578   01 02539    6830254E              BEZ      T65RD             NO ERROR
    10579   01 0253A    32F01B6C              LW,15    PATID+1           PREPARE FOR
    10580   01 0253B    35F02519              STW,15   T65T                  ERROR REPORTING
    10581   01 0253C    32F03364              LW,15    BF2               EXP. DATA AND
    10582   01 0253D    35F0251B              STW,15   T65T+2                OBS. DATA PRINT OUT
    10583   01 0253E    22F02516              LI,15    T65S              ERROR COUNT PRESENTATION
    10584   01 0253F    35F00EF8              STW,15   VBINFA             INITIALIZE PRINT LOCATIONS
    10585   01 02540    22F02519              LI,15    T65T
    10586   01 02541    35F00EF6              STW,15   VHEXF8A
    10587   01 02542    20F00002 A            AI,15    2
    10588   01 02543    35F00EF7              STW,15   VHEXF8B
    10589   01 02544    33002515              MTW,0    T65PF             1. LINE ?
    10590   01 02545    6930254A              BNEZ     T65RE             NO
    10591   01 02546    6AF0053D              TEST     TSEQ65C           YES: PRINT HEADER
            01 02547    0000250E
    10592   01 02548    6AF00B7B              SEND     MX520
            01 02549    00003FCD
    10593   01 0254A    35600EE4     T65RE    STW,6    VDEC3A            PRINT LINE OF REPORT
    10594   01 0254B    6AF00B7B              SEND     MX521             SET 1. LINE FLAG
            01 0254C    00003FD5
    10595   01 0254D    33102515              MTW,1    T65PF             LOOP TO CHECK THE WHOLE SURFACE
    10596   01 0254E    20600001 A   T65RD    LOOP,6   ADR2,T65RB
            01 0254F    31601B74
            01 02550    69102528
    10597   01 02551    68001D47              B        TST1R             RETURN TO TST1 CONTROL  PROG.
    10598                            *
    10599   01 02552    35201B6A     T65DA    STW,2    WCNT              SET WORD LIMIT FOR COMPARE
    10600   01 02553    32F02E28              LW,15    =X'00FFFF00'      BYTES 4 -7 OF
    10601   01 02554    35F03263              STW,15   BF1+1               EXPECTED HEADER
    10602   01 02555    75641B72     T65DB    STB,6    SKADR,2           STORE REG.6 AS HEAD ADDRESS
    10603   01 02556    75663262              STB,6    BF1,3                 AND AS DATA IN BUFFER 1
    10604   01 02557    6AF0053D     T65DC    TEST     TSEQ65D           EXECUTE HEADER READ
            01 02558    00002512
    10605   01 02559    35002517              STW,0    T65S+1            RESET ERROR COUNT
    10606   01 0255A    32F0083D              LW,15    T1DIO1+4          CHECK FOR UNUSUAL END
    10607   01 0255B    31F01BFA              CW,15    KY0800
    10608   01 0255C    6840255E              BCR,4    %+2               OK
    10609   01 0255D    33402517              MTW,4    T65S+1            SET ERROR BIT
    10610   01 0255E    32F00848              LW,15    T1DIO2+4          CHECK FOR
    10611   01 0255F    31F01BFC              CW,15    KY0200               VERIFICATION ERROR
    10612   01 02560    68402562              BCR,4    %+2                OK
    10613   01 02561    33202517              MTW,2    T65S+1
    10614   01 02562    31F01BF7              CW,15    KY4000            CHECK FOR
    10615   01 02563    68402565              BCR,4    %+2                  FLAW MARK
    10616   01 02564    33102517              MTW,1    T65S+1            OK
    10617   01 02565    33002517              MTW,0    T65S+1            SET ERROR BIT
    10618   01 02566    6930256A              BNEZ     %+4
    10619   01 02567    12E03262              LD,14    BF1               GET OBSERVED HEADER
    10620   01 02568    11E03364              CD,14    BF2               COMP HEADERS
    10621   01 02569    68302580              BE       T65DD             OK
    10622   01 0256A    4BF02E29              AND,15   =X'FF0000FF'      MAKE ALT. ADR = 0000
    10623   01 0256B    11E03364              CD,14    BF2               COMP HEADER AGAIN
    10624   01 0256C    68302580              BE       T65DD             OK
    10625                            *
    10626   01 0256D    35600EE2              STW,6    VDEC2A            NO ERRORS
    10627   01 0256E    12E03364              LD,14    BF2               PREPARE FOR ERROR PRINTOUT
    10628   01 0256F    35E02519              STW,14   T65T              STORE
    10629   01 02570    35F0251B              STW,15   T65T+2              OBSERVED HEADER IN
    10630   01 02571    22F02516              LI,15    T65S                     PRINT LOCATIONS
    10631   01 02572    35F00EF8              STW,15   VBINFA
    10632   01 02573    22F02519              LI,15    T65T
    10633   01 02574    35F00EF6              STW,15   VHEXF8A
    10634   01 02575    20F00002 A            AI,15    2
    10635   01 02576    35F00EF7              STW,15   VHEXF8B
    10636   01 02577    33002515              MTW,0    T65PF             CHECK 1.LINE FLAG
    10637   01 02578    6930257D              BNEZ     T65DE             NO
    10638   01 02579    6AF0053D              TEST     TSEQ65C           PRINT HEADER
            01 0257A    0000250E
    10639   01 0257B    6AF00B7B              SEND     MX522
            01 0257C    00003FDE
    10640   01 0257D    6AF00B7B     T65DE    SEND     MX523             PRINT ERROR LINE
            01 0257E    00003FE4
    10641   01 0257F    33102515              MTW,1    T65PF             SET 1.LINE FLAG
    10642   01 02580    20600001 A   T65DD    LOOP,6   ADR2,T65DB        LOOP FOR WHOLE CYLINDER
            01 02581    31601B74
            01 02582    69102555
    10643   01 02583    33002515              MTW,0    T65PF             CHECK 1ST LINE FLAG
    10644   01 02584    68301D47              BEZ      TST1R             EXIT - NO ERRORS
    10645   01 02585    6AF00B7B              SEND     MX042             PRINT END
            01 02586    00003D14
    10646   01 02587    68001D47              B        TST1R             RETURN TO TST1 CONTROL  PROG.
    10647                            *
    10648   01 02588    E802000A A   T65X1    B        *10,1
    10649   01 02589    E800000A A   T65X2    B        *10
    10650                            *
1 C00   21:47 JUN 20,'83    TELEFILE ROTATING MEMORY TEST 960-0604-H02                            PAGE   76
A   10652                            *        ***SUBTEST 66***
    10653                            *
    10654   01 0258A    00003EC8     MSID66   DATA     MX166             RESTORE AND SEEK TEST
    10655                            *
    10656   01 0258C    0100258A     TSEQ66A  ID       MSID66,1          IDENTIFICATION OF SUBTEST
    10657   01 0258D    00000EFB              IS       IOCD66A           INSTRUCTION SEQUENCE
    10658                            *
    10659                            *
    10660                            *
    10661                                     SN
    10662   01 0258B    10040000 A            TEND                       END OF TEST SEQUENCE
    10663                            *
    10664   01 0258F    0100258A     TSEQ66B  ID       MSID66,1          IDENTIFICATION OF SUBTEST
    10665   01 02590    00000EF0              IS       IOCD66B           INSTRUCTION SEQUENCE
    10666                            *
    10667                            *
    10668                            *
    10669                                     SN
    10670   01 0258E    10040000 A            TEND                       END OF TEST SEQUENCE
    10671                            *
    10672   01 02592    0100258A     TSEQ66C  ID       MSID66,1          IDENTIFICATION OF SUBTEST
    10673   01 02593    00000F31              IO       IOCD66C           SIO WITH IOCD
    10674   01 02594    00000000 A            WT       RDY,2000,IOCD66C+1,0 WAIT  2 SEC  FOR READY
            01 02595    000007D0 A
            01 02596    00000F32
            01 02597    00000000 A
    10675   01 02598    80001E90              IO1      *T1TIO1                     TIO TEST
    10676   01 02599    80001EA5              IO2      *T1TDV2           TDV TEST
    10677                                     SN
    10678   01 02591    03340000 A            TEND                       END OF TEST SEQUENCE
    10679                            *
    10680                            *
    10681         01 0259A           T66      EQU      %
    10682   01 0259A    3310053C              MTW,1    T1DVCNT           INCREMENT TEST VARIATION COUNT
    10683   01 0259B    6AF0053D              TEST     TSEQ66A
            01 0259C    0000258B
    10684   01 0259D    3310053C              MTW,1    T1DVCNT           INCREMENT TEST VARIATION COUNT
    10685   01 0259E    32E01B78              LW,14    ADDR1             LOAD LAST CYLINDER ADDRESS
    10686   01 0259F    55E01B56              STH,14   SENEXP              AND STORE IT IN EXP. SENSE
    10687   01 025A0    55E21B59              STH,14   SENEXP+3,1             BYTES 0-1 AND 14-15.
    10688   01 025A1    55E01B72              STH,14   SKADR                    AND IN SEEK BUFFER
    10689   01 025A2    6AF0053D              TEST     TSEQ66B           EXECUTE TEST SEQUENCE 66B
            01 025A3    0000258E
    10690   01 025A4    3310053C              MTW,1    T1DVCNT            INCREM. TEST VARIATION COUNT
    10691   01 025A5    55001B56              STH,0    SENEXP            RESET CYLINDER ADDRESS
    10692   01 025A6    55021B59              STH,0    SENEXP+3,1
    10693   01 025A7    6AF0053D              TEST     TSEQ66A           EXECUTE TEST SEQUENCE 66A
            01 025A8    0000258B
    10694   01 025A9    3310053C              MTW,1    T1DVCNT           INCREMENT TEST VARIATION COUNT
    10695   01 025AA    6AF0053D              TEST     TSEQ66C
            01 025AB    00002591
    10696   01 025AC    68001D47              B        TST1R             RETURN TO TST1 CONTROL  PROG.
    10697                            *
    10698                            *
1 C00   21:47 JUN 20,'83    TELEFILE ROTATING MEMORY TEST 960-0604-H02                            PAGE   77
A   10700                            *        ***SUBTEST 67***
    10701                            *
    10702   01 025AD    00003ECD     MSID67   DATA     MX167             SEEK ORDER: INTERRUPT TEST
    10703                            *
    10704   01 025AF    010025AD     TSEQ67A  ID       MSID67,1          IDENTIFICATION OF SUBTEST
    10705   01 025B0    00000EF1              IO       IOCD67            SIO WITH IOCD
    10706   01 025B1    00000001 A            WT       INT,30,IOCD67,0,X'08000000',X'FFFFC000'
            01 025B2    0000001E A
            01 025B3    00000EF1
            01 025B4    00000000 A
            01 025B5    08000000 A
            01 025B6    FFFFC000 A
    10707   01 025B7    80001E90              IO1      *T1TIO1                     TIO TEST
    10708   01 025B8    80001EA5              IO2      *T1TDV2           TDV TEST
    10709                                     SN
    10710   01 025AE    03340000 A            TEND                       END OF TEST SEQUENCE
    10711                            *
    10712   01 025BA    010025AD     TSEQ67B  ID       MSID67,1          IDENTIFICATION OF SUBTEST
    10713   01 025BB    00000EF1              IO       IOCD67            SIO WITH IOCD
    10714   01 025BC    000025C9              ES2      T67A,T67B
            01 025BD    000025E1
    10715   01 025B9    02800000 A            TEND                       END OF TEST SEQUENCE
    10716                            *
    10717                            *
    10718   01 025BE    3310053C     T67      MTW,1    T1DVCNT           INCREMENT TEST VARIATION COUNT
    10719   01 025BF    6AF0053D              TEST     TSEQ67A
            01 025C0    000025AE
    10720   01 025C1    3310053C              MTW,1    T1DVCNT           INCREMENT TEST VARIATION COUNT
    10721   01 025C2    6AF0053D              TEST     TSEQ67B
            01 025C3    000025B9
    10722   01 025C4    68001D47              B        TST1R             RETURN TO TST1 CONTROL  PROG.
    10723                            *
    10724   01 025C5    00000000 A   T67D     DATA     0
    10725   01 025C6    0000001E A   T67X     DATA     30,6,30
            01 025C7    00000006 A
            01 025C8    0000001E A
    10726                            *
    10727                            *
    10728   01 025C9    350025C5     T67A     STW,0    T67D              RESET INDEX
    10729   01 025CA    6AF00A65              BAL,15   #SCNT             START COUNTER 4
    10730   01 025CB    000025E0              DATA     T67AE             RETURN ADDRESS IF TIME OUT
    10731   01 025CC    22F0000F A            LI,15    15                LOAD
    10732   01 025CD    35F01B77              STW,15   DELAY               DELAY LOCATION
    10733   01 025CE    670209D5     T67AA    EXU      IOINSTR,1         ISSUE TIO
    10734   01 025CF    31D01BF6              CW,13    KY8000            INTERRUPT PENDING?
    10735   01 025D0    684025CE              BCR,4    T67AA             NO: LOOP
    10736   01 025D1    331025C5              MTW,1    T67D              YES: INCR. INDEX
    10737   01 025D2    22F00003 A            LI,15    3                 LOAD
    10738   01 025D3    35F01B77              STW,15   DELAY                  DELAY LOC.
    10739   01 025D4    670209D5     T67AB    EXU      IOINSTR,1         ISSUE TIO
    10740   01 025D5    31D01BF6              CW,13    KY8000            IS INTERRUPT PENDING RESET
    10741   01 025D6    694025D4              BCS,4    T67AB             NO: LOOP
    10742   01 025D7    331025C5              MTW,1    T67D              INCR. INDEX
    10743   01 025D8    22F0000F A            LI,15    15                LOAD DELAY
    10744   01 025D9    35F01B77              STW,15   DELAY
    10745   01 025DA    670209D5     T67AC    EXU      IOINSTR,1         ISSUE TIO
    10746   01 025DB    31D01BF6              CW,13    KY8000            IS INTERRUPT PENDING SET
    10747   01 025DC    684025DA              BCR,4    T67AC             NO: LOOP
    10748   01 025DD    331025C5              MTW,1    T67D              YES: STOP COUNTER 4
    10749   01 025DE    6AF00A8A              BAL,15   #HCNT             RETURN
    10750   01 025DF    E800000A A            B        *10               ERROR RETURN
    10751   01 025E0    E802000A A   T67AE    B        *10,1
    10752                            *                                    ERROR REPORTING ROUTINE
    10753         01 025E1           T67B     EQU      %                 LOAD INDEX
    10754   01 025E1    324025C5              LW,4     T67D                LOAD CORRECT MESSAGE ADDRESS
    10755   01 025E2    32F825C6              LW,15    T67X,4                 AND CORRECT DELAY VALUE
    10756   01 025E3    35F00EE4              STW,15   VDEC3A                   AND PRINT.
    10757   01 025E4    32F825E9              LW,15    T67BD,4
    10758   01 025E5    35F025E7              STW,15   %+2
    10759   01 025E6    6AF00B7B              SEND     MX525
            01 025E7    00003FED
    10760   01 025E8    E800000A A            B        *10
    10761                            *
    10762   01 025E9    00003FED     T67BD    DATA     MX525,MX526,MX527,MX034
            01 025EA    00003FF5
            01 025EB    00003FFD
            01 025EC    00003CD7
    10763                            *
    10764                            *
1 C00   21:47 JUN 20,'83    TELEFILE ROTATING MEMORY TEST 960-0604-H02                            PAGE   78
A   10766                            *        ***SUBTEST 68***
    10767                            *
    10768   01 025ED    00003ED3     MSID68   DATA     MX168             RESTORE ORDER: INTERRUPT TEST
    10769                            *
    10770   01 025EF    010025ED     TSEQ68A  ID       MSID68,1          IDENTIFICATION OF SUBTEST
    10771   01 025F0    00000EFC              IO       IOCD68            SIO WITH IOCD
    10772   01 025F1    00000001 A            WT       INT,2000,IOCD68,0,X'08000000',X'FFFFC000'
            01 025F2    000007D0 A
            01 025F3    00000EFC
            01 025F4    00000000 A
            01 025F5    08000000 A
            01 025F6    FFFFC000 A
    10773   01 025F7    80001E90              IO1      *T1TIO1                     TIO TEST
    10774   01 025F8    80001EA5              IO2      *T1TDV2           TDV TEST
    10775                                     SN
    10776   01 025EE    03340000 A            TEND                       END OF TEST SEQUENCE
    10777                            *
    10778   01 025FA    010025ED     TSEQ68B  ID       MSID68,1          IDENTIFICATION OF SUBTEST
    10779   01 025FB    00000EFC              IO       IOCD68            SIO WITH IOCD
    10780   01 025FC    00002609              ES2      T68A,T68B
            01 025FD    00002621
    10781   01 025F9    02800000 A            TEND                       END OF TEST SEQUENCE
    10782                            *
    10783                            *
    10784   01 025FE    3310053C     T68      MTW,1    T1DVCNT           INCREMENT TEST VARIATION COUNT
    10785   01 025FF    6AF0053D              TEST     TSEQ68A
            01 02600    000025EE
    10786   01 02601    3310053C              MTW,1    T1DVCNT           INCREMENT TEST VARIATION COUNT
    10787   01 02602    6AF0053D              TEST     TSEQ68B
            01 02603    000025F9
    10788   01 02604    68001D47              B        TST1R             RETURN TO TST1 CONTROL  PROG.
    10789                            *
    10790   01 02605    00000000 A   T68D     DATA     0
    10791   01 02606    000000FA A   T68X     DATA     250,6,30
            01 02607    00000006 A
            01 02608    0000001E A
    10792                            *
    10793                            *
    10794   01 02609    35002605     T68A     STW,0    T68D              RESET INDEX
    10795   01 0260A    6AF00A65              BAL,15   #SCNT             START COUNTER 4
    10796   01 0260B    00002620              DATA     T68AE             RETURN ADDRESS IF TIME OUT
    10797   01 0260C    22F0007D A            LI,15    125               LOAD
    10798   01 0260D    35F01B77              STW,15   DELAY               DELAY LOCATION
    10799   01 0260E    670209D5     T68AA    EXU      IOINSTR,1         ISSUE TIO
    10800   01 0260F    31D01BF6              CW,13    KY8000            INTERRUPT PENDING?
    10801   01 02610    6840260E              BCR,4    T68AA             NO: LOOP
    10802   01 02611    33102605              MTW,1    T68D              YES: INCR. INDEX
    10803   01 02612    22F00003 A            LI,15    3                 LOAD
    10804   01 02613    35F01B77              STW,15   DELAY                  DELAY LOC.
    10805   01 02614    670209D5     T68AB    EXU      IOINSTR,1         ISSUE TIO
    10806   01 02615    31D01BF6              CW,13    KY8000            IS INTERRUPT PENDING SET
    10807   01 02616    69402614              BCS,4    T68AB             NO: LOOP
    10808   01 02617    33102605              MTW,1    T68D              YES: STOP COUNTER 4
    10809   01 02618    22F0000F A            LI,15    15                RETURN
    10810   01 02619    35F01B77              STW,15   DELAY             ERROR RETURN
    10811   01 0261A    670209D5     T68AC    EXU      IOINSTR,1
    10812   01 0261B    31D01BF6              CW,13    KY8000
    10813   01 0261C    6840261A              BCR,4    T68AC
    10814   01 0261D    33102605              MTW,1    T68D
    10815   01 0261E    6AF00A8A              BAL,15   #HCNT
    10816   01 0261F    E800000A A            B        *10
    10817   01 02620    E802000A A   T68AE    B        *10,1
    10818                            *
    10819         01 02621           T68B     EQU      %                 ERROR REPORTING ROUTINE
    10820   01 02621    32402605              LW,4     T68D              LOAD INDEX
    10821   01 02622    32F82606              LW,15    T68X,4              AND STORE CORRECT DELAY
    10822   01 02623    35F00EE4              STW,15   VDEC3A                VALUE IN PRINT LOC.
    10823   01 02624    32F82629              LW,15    T68BD,4             AND GET CORRECT MESSAGE ADDRESS
    10824   01 02625    35F02627              STW,15   %+2                   AND STORE IT IN LOC.
    10825   01 02626    6AF00B7B              SEND     MX525             PRINT MESSAGE
            01 02627    00003FED
    10826   01 02628    E800000A A            B        *10
    10827                            *
    10828   01 02629    00003FED     T68BD    DATA     MX525,MX526,MX527,MX034
            01 0262A    00003FF5
            01 0262B    00003FFD
            01 0262C    00003CD7
1 C00   21:47 JUN 20,'83    TELEFILE ROTATING MEMORY TEST 960-0604-H02                            PAGE   79
A   10830                            *        ***SUBTEST 69***
    10831                            *
    10832   01 0262D    00003ED9     MSID69   DATA     MX169             SEEK ORDER: HEAD MOVING TEST
    10833                            *
    10834   01 0262F    0100262D     TSEQ69   ID       MSID69,1          IDENTIFICATION OF SUBTEST
    10835   01 02630    00000F33              IO       IOCD69            SIO WITH IOCD
    10836   01 02631    00000000 A            WT       RDY,30,IOCD69+1,0   WAIT 30 MSEC FOR READY
            01 02632    0000001E A
            01 02633    00000F34
            01 02634    00000000 A
    10837   01 02635    80001E90              IO1      *T1TIO1                     TIO TEST
    10838   01 02636    80001EA5              IO2      *T1TDV2           TDV TEST
    10839   01 02637    0000264C              ES3      T69EX,T1ESN
            01 02638    0000090E
    10840   01 0262E    03310000 A            TEND                       END OF TEST SEQUENCE
    10841                            *
    10842                            *
    10843   01 02639    22F08000 A   T69      LI,15    X'8000'           HEAD MOVING:
    10844   01 0263A    55F01B57              STH,15   SENEXP+1             SENSE BYTE 4 BIT 0
    10845   01 0263B    55F01B53              STH,15   SENMAS+1                IS EXPECTED TO BE SET
    10846   01 0263C    55121B59              STH,1    SENEXP+3,1        DIFFERENCE OF SEEKS = 1
    10847   01 0263D    20600001 A            AI,6     1                 INITIALIZE REG.6
    10848   01 0263E    55601B72     T69A     STH,6    SKADR             LOAD CYLINDER ADRESS
    10849   01 0263F    55601B56              STH,6    SENEXP               IN SEEK BUFFER AND EXP. SENSE
    10850   01 02640    6AF0053D              TEST     TSEQ69            EXECUTE TEST SEQUENCE
            01 02641    0000262E
    10851   01 02642    21700000 A            CI,7     0                 1.PASS
    10852   01 02643    69302649              BNE      T69B              NO
    10853   01 02644    20600001 A            LOOP,6   ADDR1,T69A        LOOP
            01 02645    31601B78
            01 02646    6910263E
    10854   01 02647    20700001 A            AI,7     1                 THIS IS THE SECOND PASS
    10855   01 02648    206FFFFF A            AI,6     -1                  REG. 6 IS NOW DECREMENTED
    10856   01 02649    206FFFFF A   T69B     AI,6     -1                DECREMENT REG.6
    10857   01 0264A    69101D47              BLZ      TST1R             CHECK IF ZERO OR LESS: THEN RETURN
    10858   01 0264B    6800263E              B        T69A              LOOP
    10859                            *
    10860                            *
    10861   01 0264C    32F01B5B     T69EX    LW,15    SENOBS+1          CHECK IF SENSE BYTE 4 BIT 0
    10862   01 0264D    E910000A A            BLZ      *10                  IS SET: YES
    10863   01 0264E    E802000A A            B        *10,1             NO: ERROR
1 C00   21:47 JUN 20,'83    TELEFILE ROTATING MEMORY TEST 960-0604-H02                            PAGE   80
A   10865                            *        ***SUBTEST 70***
    10866                            *
    10867   01 0264F    00003EE0     MSID70   DATA     MX170             SEEK ORDER: HEAD POSITIONING TEST
    10868                            *
    10869   01 02651    0102264F     TSEQ70A  ID       MSID70,1,1
    10870   01 02651    8102264F              INH      0,TST1E                                            A01
            01 02652    00001C3C
    10871   01 02653    00000EF1              IO       IOCD70A           SIO WITH IOCD
    10872   01 02654    00000001 A            WT       INT,100,IOCD70A,0,X'08000000',X'FFFFC000'
            01 02655    00000064 A
            01 02656    00000EF1
            01 02657    00000000 A
            01 02658    08000000 A
            01 02659    FFFFC000 A
    10873   01 0265A    80001E90              IO1      *T1TIO1                     TIO TEST
    10874   01 0265B    80001EA5              IO2      *T1TDV2           TDV TEST
    10875   01 0265C    000026BC              ES3      T70EX,T70EX2
            01 0265D    000026C1
    10876   01 02650    03310000 A            TEND                       END OF TEST SEQUENCE
    10877                            *
    10878   01 0265F    0104264F     TSEQ70B  ID       MSID70,1,2        IDENTIFICATION OF SUBTEST
    10879   01 0265F    8104264F              INH      0,TST1E                                            A01
            01 02660    00001C3C
    10880   01 02661    00000EF6              IS       IOCD70B           INSTRUCTION SEQUENCE
    10881                            *
    10882   01 02662    000026D8              ES2      T70EX5,T70EX2
            01 02663    000026C1
    10883                            *
    10884                                     SN
    10885                                     CM
    10886   01 0265E    10860000 A            TEND                       END OF TEST SEQUENCE
    10887                            *
    10888   01 02665    0106264F     TSEQ70C  ID       MSID70,1,3
    10889   01 02665    1106264F              INH      1
    10890   01 02666    000026C2              ES2      T70EX3,T70EX4
            01 02667    000026D3
    10891   01 02664    00800000 A            TEND
    10892                            *
    10893                            *
    10894   01 02668                 T70A1    RES      1
    10895   01 02669                 T70A2    RES      1
    10896   01 0266A    00002693     T70BR    DATA     T70C,T70D,T70E,T70F
            01 0266B    0000269C
            01 0266C    000026A1
            01 0266D    000026AA
    10897                            *                                   RESET SEEK ADDRESS FIELD 1
    10898   01 0266E    35002668     T70      STW,0    T70A1                     AND FIELD 2
    10899   01 0266F    35002669              STW,0    T70A2             RESET ERROR FLAG
    10900   01 02670    350026D1              STW,0    T70EX1            INCR. TEST VARIATION COUNT
    10901   01 02671    35101B6A              STW,1    WCNT              COMPARE BYTES 0 THRU
    10902                            *                                     3 OF HEADER ONLY
    10903   01 02672    32F02E28              LW,15    =X'00FFFF00'      BYTES 4 - 7 OF
    10904   01 02673    35F03263              STW,15   BF1+1               EXPECTED HEADER
    10905   01 02674    3310053C              MTW,1    T1DVCNT           LOAD
    10906   01 02675    32F02668     T70B     LW,15    T70A1               SEEK ADDRESS BUFFER
    10907   01 02676    58F01B72              SH,15    SKADR                 AND CALCULATE THE EXP.
    10908   01 02677    68102679              BGEZ     %+2                     DIFFERENCE OF THE SEEK ADR.
    10909   01 02678    3AF0000F A            LCW,15   15
    10910   01 02679    55F21B59              STH,15   SENEXP+3,1
    10911   01 0267A    32F02668              LW,15    T70A1
    10912   01 0267B    55F01B72              STH,15   SKADR              AND LOAD HEADER READ
    10913   01 0267C    75F43262              STB,15   BF1,2                 COMPARE BUFFER
    10914   01 0267D    25F00078 A            SLS,15   -8
    10915   01 0267E    75F23262              STB,15   BF1,1
    10916   01 0267F    6AF0053D              TEST     TSEQ70A           EXECUTE SEEK
            01 02680    00002650
    10917   01 02681    6AF0053D              TEST     TSEQ70B           EXECUTE HEADER READ
            01 02682    0000265E
    10918   01 02683    32F02669              LW,15    T70A2             LOAD
    10919   01 02684    58F01B72              SH,15    SKADR               SEEK ADDRESS BUFFER
    10920   01 02685    68102687              BGEZ     %+2                   AND CALCULATE EXP.
    10921   01 02686    3AF0000F A            LCW,15   15                      DIFFERENCE OF SEEK ADDRESS
    10922   01 02687    55F21B59              STH,15   SENEXP+3,1                 AND LOAD COMPARE BUFFER
    10923   01 02688    32F02669              LW,15    T70A2
    10924   01 02689    55F01B72              STH,15   SKADR
    10925   01 0268A    75F43262              STB,15   BF1,2
    10926   01 0268B    25F00078 A            SLS,15   -8
    10927   01 0268C    75F23262              STB,15   BF1,1
    10928   01 0268D    6AF0053D              TEST     TSEQ70A           EXECUTE 2.SEEK
            01 0268E    00002650
    10929   01 0268F    6AF0053D              TEST     TSEQ70B           EXECUTE 2. HEADER READ
            01 02690    0000265E
    10930   01 02691    32FE266A              LW,15    T70BR,7           GET PASS HANDLER ADDRESS
    10931   01 02692    E800000F A            B        *15               BRANCH TO PASS HANDLER
    10932                            *
    10933   01 02693    33102668     T70C     MTW,1    T70A1             1.PASS
    10934   01 02694    32F02668              LW,15    T70A1             INCREMENT ADDRESS 1 AND
    10935   01 02695    31F01B73              CW,15    ADR1                KEEP ADDRESS 2 CONSTANT = 0.
    10936   01 02696    69102675              BL       T70B              LOOP
    10937   01 02697    32F01B78              LW,15    ADDR1             START OF 2.PASS
    10938   01 02698    35F02668              STW,15   T70A1             LOAD MAX. CYLINDER ADDRESS
    10939   01 02699    35F02669              STW,15   T70A2               IN ADDRESS 1 AND 2
    10940   01 0269A    20700001 A            AI,7     1                 INCREMENT PASS INDEX
    10941   01 0269B    680026B5              B        T70A              GO TO TIME CHECK
    10942   01 0269C    33F02669     T70D     MTW,-1   T70A2             2.PASS
    10943   01 0269D    68102675              BGE      T70B              DECREMENT ADDRESS 2
    10944   01 0269E    35002669              STW,0    T70A2               AND KEEP ADDRESS 1 CONSTANT=202.
    10945   01 0269F    20700001 A            AI,7     1                 START OF 3.PASS
    10946   01 026A0    680026B5              B        T70A              INCREM. PASS INDEX
    10947   01 026A1    33102669     T70E     MTW,+1   T70A2
    10948   01 026A2    33F02668              MTW,-1   T70A1             3.PASS
    10949   01 026A3    68102675              BGE      T70B              INCREMENT ADDRESS 1 AND
    10950   01 026A4    20700001 A            AI,7     1                    DECREMENT ADDRESS 2.
    10951   01 026A5    32601B73              LW,6     ADR1              START OF 4. PASS
    10952   01 026A6    20600001 A            AI,6     1                 LOAD INDEX
    10953   01 026A7    6AF0053D              TEST     TSEQ70C           CHECK TIME
            01 026A8    00002664
    10954   01 026A9    3310053C              MTW,1    T1DVCNT           INCR. TEST VARIATION
    10955   01 026AA    6AF00AB5     T70F     BAL,15   #RAND             GET A RANDOM NUMBER
    10956   01 026AB    32F00AB2              LW,15    SEED                AND CALCULATE A RANDOM
    10957   01 026AC    22E00000 A            LI,14    0                      CYLINDER ADDRESS.
    10958   01 026AD    36E01B73              DW,14    ADR1
    10959   01 026AE    35E02668              STW,14   T70A1             STORE IT IN ADDRESS 1.
    10960   01 026AF    6AF00AB5              BAL,15   #RAND             GET ANOTHER RANDOM NUMBER
    10961   01 026B0    32F00AB2              LW,15    SEED                 AND CALULATE A RANDOM CYLINDER
    10962   01 026B1    22E00000 A            LI,14    0                      ADDRESS FOR ADDRESS 2.
    10963   01 026B2    36E01B73              DW,14    ADR1
    10964   01 026B3    35E02669              STW,14   T70A2
    10965   01 026B4    64602675              BDR,6    T70B              LOOP
    10966   01 026B5    6AF0053D     T70A     TEST     TSEQ70C           EXECUTE TEST SEQUENCE FOR TIME CHECK
            01 026B6    00002664
    10967   01 026B7    3310053C              MTW,1    T1DVCNT           INCREMENT TEST VARIATION COUNT
    10968   01 026B8    32F0053C              LW,15    T1DVCNT
    10969   01 026B9    31F01BDF              CW,15    K4
    10970   01 026BA    69102675              BL       T70B
    10971   01 026BB    68001D47              B        TST1R             RETURN TO TST1 CONTROL  PROG.
    10972                            *
    10973                            *
    10974   01 026BC    22F00033 A   T70EX    LI,15    51                GET INITIAL TIME
    10975   01 026BD    38F00818              SW,15    T1DWTDC             AND GET THE DIFFERENCE
    10976   01 026BE    25F00001 A            SLS,15   1                 MULTIPLY BY TWO
    10977   01 026BF    30F026D1              AW,15    T70EX1
    10978   01 026C0    35F026D1              STW,15   T70EX1            ACCUMULATE DELAY TIMES
    10979   01 026C1    E800000A A   T70EX2   B        *10
    10980                            *
    10981   01 026C2    32F026D1     T70EX3   LW,15    T70EX1
    10982   01 026C3    22E00000 A            LI,14    0
    10983   01 026C4    36E00527              DW,14    T1DLCNT
    10984   01 026C5    350026D1              STW,0    T70EX1
    10985   01 026C6    35000527              STW,0    T1DLCNT
    10986   01 026C7    25F00001 A            SLS,15   1                 MULTIPLY BY 2                    A01
    10987   01 026C8    35F026D2              STW,15   T70EE1            SAVE AVERAGE SEEK TIME
    10988   01 026C9    32E01B7B              LW,14    DEVTYPM           GET DEV TYPE
    10989   01 026CA    21E00007 A            CI,14    7                 IS IT DISK 33
    10990   01 026CB    693026CE              BNE      %+3               NO
    10991   01 026CC    21F00030 A            CI,15    48                IF TIME GREATER 40: ERROR
    10992   01 026CD    680026CF              B        %+2
    10993   01 026CE    21F0003C A            CI,15    60                IF TIME GREATER 60: ERROR
    10994   01 026CF    E812000A A            BGE      *10,1             ERROR
    10995   01 026D0    E800000A A            B        *10
    10996                            *
    10997   01 026D1                 T70EX1   RES      1                 STORAGE FOR DELAY TIME
    10998   01 026D2                 T70EE1   RES      1                 AVERAGE DELAY TIME
    10999                            *
    11000   01 026D3    32F026D2     T70EX4   LW,15    T70EE1
    11001   01 026D4    35F00EE4              STW,15   VDEC3A
    11002   01 026D5    6AF00B7B              SEND     MX530
            01 026D6    00004006
    11003   01 026D7    E800000A A            B        *10
    11004                            *
    11005   01 026D8    32E03263     T70EX5   LW,14    BF1+1             GET 2ND WORD OF HEADER
    11006   01 026D9    31E03365              CW,14    BF2+1             ANY ERRORS
    11007   01 026DA    E830000A A            BE       *10               NO
    11008   01 026DB    4BE02E29              AND,14   =X'FF0000FF'      ALT. ADR = 0000
    11009   01 026DC    31E03365              CW,14    BF2+1             COMPARE AGAIN
    11010   01 026DD    E930000A A            BNE      *10               EXIT - ERRORS
    11011   01 026DE    35E03263              STW,14   BF1+1             SAVE IT
    11012   01 026DF    E800000A A            B        *10               EXIT
    11013                            *
1 C00   21:47 JUN 20,'83    TELEFILE ROTATING MEMORY TEST 960-0604-H02                            PAGE   81
A   11015                            *        ***SUBTEST 71***
    11016                            *
    11017   01 026E0    00003EE9     MSID71   DATA     MX171             HEADER WRITE AND HEADER READ TEST
    11018                            *
    11019   01 026E2    010026E0     TSEQ71A  ID       MSID71,1          IDENTIFICATION OF SUBTEST
    11020                                     SK
    11021   01 026E3    00000EF5              IS       IOCD71A           INSTRUCTION SEQUENCE
    11022                            *
    11023                            *
    11024                            *
    11025                                     SN
    11026   01 026E1    30040000 A            TEND                       END OF TEST SEQUENCE
    11027                            *
    11028   01 026E5    010026E0     TSEQ71B  ID       MSID71,1          IDENTIFICATION OF SUBTEST
    11029                                     SK
    11030   01 026E6    00000EF6              IS       IOCD71B           INSTRUCTION SEQUENCE
    11031                            *
    11032                            *
    11033                            *
    11034                                     CM
    11035                                     SN
    11036   01 026E4    30060000 A            TEND                       END OF TEST SEQUENCE
    11037                            *
    11038                            *
    11039                                     BOUND    8
    11040   01 026E8    00       A   T71D     DATA,1   0,0,202,0,0,X'FF',X'FF',0
            01 026E8 1  00       A
            01 026E8 2  CA       A
            01 026E8 3  00       A
            01 026E9    00       A
            01 026E9 1  FF       A
            01 026E9 2  FF       A
            01 026E9 3  00       A
    11041   01 026EA    00       A            DATA,1   0,0,202,0,0,0,0,0
            01 026EA 1  00       A
            01 026EA 2  CA       A
            01 026EA 3  00       A
            01 026EB    00       A
            01 026EB 1  00       A
            01 026EB 2  00       A
            01 026EB 3  00       A
    11042                            *
    11043   01 026EC    6AF02DB9     T71      BAL,15   HDRSR             SAVE HEADERS
    11044   01 026ED    12EC26E8     T71A     LD,14    T71D,6            GET DATA FOR HEADER WRITE
    11045   01 026EE    15E03262              STD,14   BF1                 AND STORE THEM IN BUFFER 1
    11046   01 026EF    22F000CA A            LI,15    202               STORE SEEK ADDRESS
    11047   01 026F0    55F01B72              STH,15   SKADR               IN SEEK BUFFER
    11048   01 026F1    3310053C              MTW,1    T1DVCNT           INC. TEST V. COUNT
    11049   01 026F2    6AF0053D              TEST     TSEQ71A           EXECUTE HEADER WRITE
            01 026F3    000026E1
    11050   01 026F4    3310053C              MTW,1    T1DVCNT           INCR. TEST V. COUNT
    11051   01 026F5    6AF0053D              TEST     TSEQ71B           EXECUTE HEADER READ
            01 026F6    000026E4
    11052   01 026F7    20600001 A            LOOP,6   K2,T71A           LOOP
            01 026F8    31601BDD
            01 026F9    691026ED
    11053   01 026FA    6AF02DC3              BAL,15   HDRSW             RESTORE HEADERS
    11054   01 026FB    68001D47              B        TST1R             RETURN TO TST1 CONTROL  PROG.
    11055                            *
    11056                            *
1 C00   21:47 JUN 20,'83    TELEFILE ROTATING MEMORY TEST 960-0604-H02                            PAGE   82
A   11058                            *        ***SUBTEST 72***
    11059                            *
    11060   01 026FC    00003EF0     MSID72   DATA     MX172       WRITE,...: ADDRESS INCREMENTING TEST
    11061                            *
    11062   01 026FE    010026FC     TSEQ72   ID       MSID72,1
    11063                                     PT
    11064                                     TM
    11065                                     SK
    11066   01 026FF    00000F35              EX       IOCD72            EXECUTION ROUTINE WITH IOCD
    11067   01 02700    80001E90              IO1      *T1TIO1
    11068   01 02701    80001EB1              IO2      *T1TDV6           TDV TEST
    11069                                     SN
    11070   01 026FD    E8340000 A            TEND                       END OF TEST SEQUENCE
    11071                            *
    11072                            *
    11073         01 02702           T72      EQU      %
    11074   01 02702    75161B56              STB,1    SENEXP,3          STORE 1 IN SECTOR ADDRESS
    11075   01 02703    32FC1BBA     T72A     LW,15    ORDER,6           LOAD ORDER CODE
    11076   01 02704    75F01E6A              STB,15   IOCD72              AND STORE IT IN IOCD
    11077   01 02705    32FC1BBF              LW,15    BYTCNT,6          LOAD BYTE COUNT
    11078   01 02706    55F21E6B              STH,15   WA(IOCD72)+1,1      ANND STORE IT IN IOCD
    11079   01 02707    6AF0053D              TEST     TSEQ72            INCR. REG.6
            01 02708    000026FD
    11080   01 02709    33100006 A            MTW,1    6                 CHECK FOR DEVICE TYPE
    11081   01 0270A    33001B70              MTW,0    DEVTYP            DISK
    11082   01 0270B    6830270E              BEZ      %+3               RAD: COMPARE INDEX WITH 3
    11083   01 0270C    31601BDE              CW,6     K3
    11084   01 0270D    6800270F              B        %+2               DISK:COMPARE INDEX WITH 5
    11085   01 0270E    31601BE0              CW,6     K5
    11086   01 0270F    69102703              BL       T72A              IF LESS: LOOP
    11087   01 02710    22600000 A            LI,6     0                 ELSE: RESET REG. 6
    11088   01 02711    75061B56              STB,0    SENEXP,3          RESET SECTOR ADDRESS
    11089   01 02712    32F01B7A              LW,15    ADDR3             LOAD MAX. SECTOR ADDRESS
    11090   01 02713    75F61B72              STB,15   SKADR,3            AND STORE IT IN SEEK BUFFER
    11091   01 02714    33001B70              MTW,0    DEVTYP            CHECK DEVICE TYPE
    11092   01 02715    68302718              BEZ      %+3               DISK
    11093   01 02716    55101B56              STH,1    SENEXP            RAD: STORE IT IN DIFFERENT WAY
    11094   01 02717    68002719              B        %+2
    11095   01 02718    75141B56              STB,1    SENEXP,2          DISK:
    11096   01 02719    20700001 A            LOOP,7   K2,T72A           LOOP
            01 0271A    31701BDD
            01 0271B    69102703
    11097   01 0271C    68001D47              B        TST1R             RETURN TO TST1 CONTROL  PROG.
    11098                            *
    11099                            *
1 C00   21:47 JUN 20,'83    TELEFILE ROTATING MEMORY TEST 960-0604-H02                            PAGE   83
A   11101                            *        ***SUBTEST 74***
    11102                            *
    11103   01 0271D    00003EF8     MSID74   DATA     MX174             WRITE,...: ADDRESS BOUNDARY TEST
    11104                            *
    11105   01 0271F    0100271D     TSEQ74A  ID       MSID74,1
    11106                                     PT
    11107                                     TM
    11108                                     SK
    11109   01 02720    00000F36              EX       IOCD74            EXECUTION ROUTINE WITH IOCD
    11110                            *
    11111   01 02721    80001E90              IO1      *T1TIO1                     TIO TEST
    11112   01 02722    80001EB1              IO2      *T1TDV6           TDV TEST
    11113                                     SN
    11114   01 0271E    E8340000 A            TEND                       END OF TEST SEQUENCE
    11115                            *
    11116   01 02724    0100271D     TSEQ74B  ID       MSID74,1          IDENTIFICATION OF SUBTEST
    11117                                     TM
    11118   01 02725    00000F36              IO       IOCD74            SIO WITH IOCD
    11119   01 02726    00000000 A   T74WT    WT       RDY,30,IOCD74,0     WAIT 30 MSEC FOR READY
            01 02727    0000001E A
            01 02728    00000F36
            01 02729    00000000 A
    11120   01 0272A    80001E93              IO1      *T1TIO2           TIO TEST
    11121   01 0272B    80001EB4              IO2      *T1TDV7
    11122                                     SN
    11123   01 02723    43340000 A            TEND                       END OF TEST SEQUENCE
    11124                            *
    11125                            *
    11126         01 0272C           T74      EQU      %                 CYLINDER END ERROR EXPECTED
    11127   01 0272C    22C00800 A            LI,12    X'0800'             IN SENSE BYTE 8 BIT 4
    11128   01 0272D    55C01B54              STH,12   SENMAS+2
    11129   01 0272E    32F01B7A              LW,15    ADDR3             LOAD MAX. SECTOR ADDRESS
    11130   01 0272F    75F61B72              STB,15   SKADR,3             AND STORE IT IN SEEK BUFFER
    11131   01 02730    32E01B79              LW,14    ADDR2             LOAD MAX. CYL./TRACK ADDRESS
    11132   01 02731    32D01B74              LW,13    ADR2               AND STORE IT IN SEEK BUFFER
    11133   01 02732    33001B70              MTW,0    DEVTYP            CHECK DEVICE TYPE
    11134   01 02733    68302737              BEZ      %+4                AND STORE ACCORDINGLY
    11135   01 02734    55E01B72              STH,14   SKADR
    11136   01 02735    55001B56              STH,0    SENEXP
    11137   01 02736    68002739              B        %+3
    11138   01 02737    75E41B72              STB,14   SKADR,2
    11139   01 02738    75D41B56              STB,13   SENEXP,2
    11140   01 02739    32FC1BBA     T74A     LW,15    ORDER,6           LOAD ORDER CODE
    11141   01 0273A    75F01E6C              STB,15   IOCD74              AND STORE IT IN IOCD
    11142   01 0273B    32FC1BBF              LW,15    BYTCNT,6          LOAD BYTE COUNT
    11143   01 0273C    55F21E6D              STH,15   WA(IOCD74)+1,1      AND STORE IT IN IOCD
    11144   01 0273D    32FC1BC4              LW,15    REMBC,6           LOAD REMAINING BYTE COUNT
    11145   01 0273E    35F02729              STW,15   T74WT+3            AND STORE IT IN PARAMETER TABLE
    11146   01 0273F    3510053C              STW,1    T1DVCNT           STORE 1 IN TEST V. COUNT
    11147   01 02740    55001B58              STH,0    SENEXP+2          NO CYL. END ERROR EXPECTED NOW
    11148   01 02741    6AF0053D              TEST     TSEQ74A           EXECUTE TEST SEQUENCE
            01 02742    0000271E
    11149   01 02743    3310053C              MTW,1    T1DVCNT           INCR. TEST V. COUNT
    11150   01 02744    55C01B58              STH,12   SENEXP+2          CYL. END ERROR EXPECTED
    11151   01 02745    6AF0053D              TEST     TSEQ74B           EXECUE TEST SEQUENCE
            01 02746    00002723
    11152   01 02747    33100006 A            MTW,1    6                 INCREM. REG6
    11153   01 02748    33001B70              MTW,0    DEVTYP            CHECK DEVICE TYPE
    11154   01 02749    6830274C              BEZ      %+3                 AND TERMINATE ACCORDINGLY
    11155   01 0274A    31601BDE              CW,6     K3                   WITH COUNT=3 FOR RAD
    11156   01 0274B    68301D47              BE       TST1R                  OR COUNT=5 FOR DISK.
    11157   01 0274C    31601BE0              CW,6     K5
    11158   01 0274D    69102739              BL       T74A
    11159   01 0274E    68001D47              B        TST1R             RETURN TO TST1 CONTROL  PROG.
    11160                            *
    11161                            *
1 C00   21:47 JUN 20,'83    TELEFILE ROTATING MEMORY TEST 960-0604-H02                            PAGE   84
A   11163                            *        ***SUBTEST 76***
    11164                            *
    11165   01 0274F    00003F01     MSID76   DATA     MX176       WRITE ORDER: MULTIPLE SECTOR WRITE TEST
    11166                            *
    11167   01 02751    0100274F     TSEQ76   ID       MSID76,1          IDENTIFICATION OF SUBTEST
    11168                                     SK
    11169   01 02752    00000F37              IO       IOCD76            SIO WITH IOCD
    11170   01 02753    00000001 A   T76WT    WT       INT,0,IOCD76,X'3E0',X'84000',X'FF7FC000'
            01 02754    00000000 A
            01 02755    00000F37
            01 02756    000003E0 A
            01 02757    00084000 A
            01 02758    FF7FC000 A
    11171   01 02759    80001E9F              IO1      *T1TIO6           USE NEW TIO STATUS MASKS
    11172   01 0275A    80001EB7              IO2      *T1TDV8
    11173                                     SN
    11174   01 02750    23340000 A            TEND                       END OF TEST SEQUENCE
    11175                            *
    11176   01 0275B    00000258 A   T76T     DATA     600,9000
            01 0275C    00002328 A
    11177                            *
    11178         01 0275D           T76      EQU      %
    11179   01 0275D    32401B70              LW,4     DEVTYP            DEVICE TYPE
    11180   01 0275E    32F8275B              LW,15    T76T,4
    11181   01 0275F    35F02754              STW,15   T76WT+1
    11182   01 02760    6AF0053D              TEST     TSEQ76
            01 02761    00002750
    11183   01 02762    68001D47              B        TST1R             RETURN TO TST1 CONTROL  PROG.
    11184                            *
    11185                            *
    11186                            *
1 C00   21:47 JUN 20,'83    TELEFILE ROTATING MEMORY TEST 960-0604-H02                            PAGE   85
A   11188                            *        ***SUBTEST 77***
    11189                            *
    11190   01 02763    00003F09     MSID77   DATA     MX177       HEADER READ ORDER: MULTIPLE SECTOR READ TEST
    11191                            *
    11192   01 02765    01002763     TSEQ77   ID       MSID77,1          IDENTIFICATION OF SUBTEST
    11193                                     SK
    11194   01 02766    00000F39              IO       IOCD77            SIO WITH IOCD
    11195   01 02767    00000001 A            WT       INT,600,IOCD77,8,X'84000',X'FFFFC000'
            01 02768    00000258 A
            01 02769    00000F39
            01 0276A    00000008 A
            01 0276B    00084000 A
            01 0276C    FFFFC000 A
    11196   01 0276D    80001E93              IO1      *T1TIO2           TIO TEST
    11197   01 0276E    80001EB7              IO2      *T1TDV8
    11198                                     SN
    11199   01 02764    23340000 A            TEND                       END OF TEST SEQUENCE
    11200                            *
    11201                            *
    11202         01 0276F           T77      EQU      %
    11203   01 0276F    6AF0053D              TEST     TSEQ77
            01 02770    00002764
    11204   01 02771    68001D47              B        TST1R             RETURN TO TST1 CONTROL  PROG.
    11205                            *
    11206                            *
1 C00   21:47 JUN 20,'83    TELEFILE ROTATING MEMORY TEST 960-0604-H02                            PAGE   86
A   11208                            *        ***SUBTEST 78***
    11209                            *
    11210         01 0219E           MSID78   EQU      MSID40            SHORT RECORD TEST
    11211                            *
    11212   01 02773    0100219E     TSEQ78A  ID       MSID78,1          IDENTIFICATION OF SUBTEST
    11213                                     SK
    11214   01 02774    00000F3B              EX       IOCD78A           SIO WITH IOCD
    11215                            *
    11216   01 02775    80001E96              IO1      *T1TIO3                     TIO TEST
    11217   01 02776    80001EAE              IO2      *T1TDV5           TDV TEST
    11218                                     SN
    11219   01 02772    28340000 A            TEND                       END OF TEST SEQUENCE
    11220                            *
    11221   01 02778    0100219E     TSEQ78B  ID       MSID78,1          IDENTIFICATION OF SUBTEST
    11222                                     SK
    11223   01 02779    00000F3C              EX       IOCD78B           SIO WITH IOCD
    11224                            *
    11225   01 0277A    80001E96              IO1      *T1TIO3                     TIO TEST
    11226   01 0277B    80001EAE              IO2      *T1TDV5           TDV TEST
    11227                                     SN
    11228                                     CM
    11229   01 02777    28360000 A            TEND                       END OF TEST SEQUENCE
    11230                            *
    11231   01 0277D    0100219E     TSEQ78C  ID       MSID78,1          IDENTIFICATION OF SUBTEST
    11232                                     SK
    11233   01 0277E    00000EF3              EX       IOCD78C           SIO WITH IOCD
    11234                            *
    11235   01 0277F    80001E90              IO1      *T1TIO1                     TIO TEST
    11236   01 02780    80001EA5              IO2      *T1TDV2           TDV TEST
    11237                                     SN
    11238   01 0277C    28340000 A            TEND                       END OF TEST SEQUENCE
    11239                            *
    11240   01 02782    0100219E     TSEQ78D  ID       MSID78,1          IDENTIFICATION OF SUBTEST
    11241                                     SK
    11242   01 02783    00000EEE              IS       IOCD78D           INSTRUCTION SEQUENCE
    11243                            *
    11244                            *
    11245                            *
    11246                                     SN
    11247                                     CM
    11248   01 02781    30060000 A            TEND                       END OF TEST SEQUENCE
    11249                            *
    11250                            *
    11251                            *
    11252                            *
    11253   01 02784    32F01C03     T78      LW,15    KXN11             LOAD DATA PATTERN
    11254   01 02785    35F03262              STW,15   BF1                AND STORE IT IN BUFFER 1
    11255   01 02786    32FC1BBA     T78A     LW,15    ORDER,6           LOAD ORDER CODE
    11256   01 02787    75F01E76              STB,15   IOCD78A              AND STORE IT IN IOCD
    11257   01 02788    6AF0053D              TEST     TSEQ78A           EXECUTE TEST SEQUENCE
            01 02789    00002772
    11258   01 0278A    20600001 A            LOOP,6   K2,T78A           LOOP ON WRITE AND CHECK WRITE
            01 0278B    31601BDD
            01 0278C    69102786
    11259   01 0278D    35101B6A              STW,1    WCNT              SET COMPARE WORD COUNT
    11260   01 0278E    6AF0053D              TEST     TSEQ78B           EXECUTE READ
            01 0278F    00002777
    11261   01 02790    225FFF00 A            LI,5     -256              RESET THE BUFFER 1
    11262   01 02791    350A3362              STW,0    BF1+256,5           WITH ZEROS
    11263   01 02792    65502791              BIR,5    %-1
    11264   01 02793    32F01C03              LW,15    KXN11             STORE DATA PATTERN
    11265   01 02794    35F03262              STW,15   BF1                IN FIRST 4 BYTES OF BUFFER
    11266   01 02795    22F00100 A            LI,15    256               RESTORE COMPARE WORD COUNT TO 256
    11267   01 02796    35F01B6A              STW,15   WCNT
    11268   01 02797    6AF0053D              TEST     TSEQ78C           EXECUTE WRITE/CHECK WRITE
            01 02798    0000277C
    11269   01 02799    6AF0053D              TEST     TSEQ78D           EXECUTE READ
            01 0279A    00002781
    11270   01 0279B    68001D47              B        TST1R             RETURN TO TST1 CONTROL  PROG.
    11271                            *
    11272                            *
    11273   01 0279C    68001D47     T79      B        TST1R             RETURN TO TST1 CONTROL  PROG.
1 C00   21:47 JUN 20,'83    TELEFILE ROTATING MEMORY TEST 960-0604-H02                            PAGE   87
A   11275                            *        ***SUBTEST 80***
    11276                            *
    11277   01 0279D    00003F12     MSID80   DATA     MX180             SURFACE TEST
    11278                            *
    11279   01 0279F    0100279D     TSEQ80A  ID       MSID80,1          IDENTIFICATION OF SUBTEST
    11280                                     PT
    11281                                     SK
    11282   01 027A0    00000EED              IS       IOCD80A           INSTRUCTION SEQUENCE
    11283                            *
    11284                            *
    11285                            *
    11286                                     SN
    11287   01 0279E    B0040000 A            TEND                       END OF TEST SEQUENCE
    11288                            *
    11289   01 027A2    0100279D     TSEQ80B  ID       MSID80,1          IDENTIFICATION OF SUBTEST
    11290                                     PT
    11291                                     SK
    11292   01 027A3    00000EEE              IS       IOCD80B           INSTRUCTION SEQUENCE
    11293                            *
    11294                            *
    11295                            *
    11296                                     SN
    11297                                     CM
    11298   01 027A4    000027EC              ES3      T80I,T80K
            01 027A5    000027ED
    11299   01 027A1    B0070000 A            TEND                       END OF TEST SEQUENCE
    11300                            *
    11301                            *
    11302   01 027A6    0000279E     T80S     DATA     TSEQ80A,TSEQ80B
            01 027A7    000027A1
    11303   01 027A8    0001     A   T80X     DATA,2   1,78,201,0,2,77,79,200,202
            01 027A8 2  004E     A
            01 027A9    00C9     A
            01 027A9 2  0000     A
            01 027AA    0002     A
            01 027AA 2  004D     A
            01 027AB    004F     A
            01 027AB 2  00C8     A
            01 027AC    00CA     A
    11304                            *                                   GET RANDOM DATA
    11305   01 027AD    6AF00AB5     T80      BAL,15   #RAND             SET PATTERN TYPE TO RANDOM
    11306   01 027AE    35201B6B              STW,2    PATID             INCR. TEST V. COUNT
    11307   01 027AF    3310053C              MTW,1    T1DVCNT           CHECK DEVICE TYPE
    11308   01 027B0    33001B70     T80A     MTW,0    DEVTYP            RAD
    11309   01 027B1    693027B7              BNEZ     T80B              LOAD SEEK BUFFER
    11310   01 027B2    75A61B72              STB,10   SKADR,3
    11311   01 027B3    75B41B72              STB,11   SKADR,2
    11312   01 027B4    52FC27A8              LH,15    T80X,6            LOAD CYLINDER ADDRESS
    11313   01 027B5    55F01B72              STH,15   SKADR               AND STORE IT IN SEEK BUFFER
    11314   01 027B6    680027B9              B        T80C
    11315   01 027B7    75A61B72     T80B     STB,10   SKADR,3           PREPARE SEEK
    11316   01 027B8    55B01B72              STH,11   SKADR                BUFFER FOR RAD
    11317   01 027B9    32E00AB2     T80C     LW,14    SEED              LOAD SEED
    11318   01 027BA    48E01B72              EOR,14   SKADR               AND MERGE IT WITH SEEK ADDRESS
    11319   01 027BB    35E01B6C              STW,14   PATID+1                AND STORE IT AS DATA SEED
    11320   01 027BC    32FE27A6              LW,15    T80S,7            LOAD TEST SEQUENCE ADDRESS
    11321   01 027BD    35F027BF              STW,15   %+2                 AND STORE IT IN .LOC.
    11322   01 027BE    6AF0053D              TEST     TSEQ00            EXECUTE SEQUENCE
            01 027BF    00001ED3
    11323   01 027C0    20A00001 A            LOOP,10  ADR3,T80A         LOOP ON SECTOR
            01 027C1    31A01B75
            01 027C2    691027B0
    11324   01 027C3    22A00000 A            LI,10    0                 LOOP ON HEAD/TRACK
    11325   01 027C4    20B00001 A            LOOP,11  ADR2,T80A
            01 027C5    31B01B74
            01 027C6    691027B0
    11326   01 027C7    22B00000 A            LI,11    0
    11327   01 027C8    33001B70              MTW,0    DEVTYP            CHECK DEVICE TYPE
    11328   01 027C9    693027CD              BNEZ     T80D              RAD: TRY NEXT PASS
    11329   01 027CA    20600001 A            LOOP,6   K9,T80A           LOOP ON NEXT CYLINDERS
            01 027CB    31601BE2
            01 027CC    691027B0
    11330   01 027CD    3310053C     T80D     MTW,1    T1DVCNT           INCR, TEST V. COUNT
    11331   01 027CE    22600000 A            LI,6     0
    11332   01 027CF    20700001 A            LOOP,7   K2,T80A           LOOP ON TEST SEQUENCE TYPE
            01 027D0    31701BDD
            01 027D1    691027B0
    11333   01 027D2    33001B70              MTW,0    DEVTYP            DISK: RETURN
    11334   01 027D3    68301D47              BEZ      TST1R
    11335   01 027D4    22700000 A            LI,7     0
    11336   01 027D5    6AF00AB5              BAL,15   #RAND             GET A NEW RANDOM DATA
    11337   01 027D6    32A01B7A     T80E     LW,10    ADDR3               AND REPEAT THE SAME IN THE
    11338   01 027D7    32B01B79              LW,11    ADDR2                OPPOSITE DIRECTION.
    11339   01 027D8    75A61B72     T80F     STB,10   SKADR,3
    11340   01 027D9    55B01B72              STH,11   SKADR             SEEK ADDRESS BUFFER
    11341   01 027DA    32E00AB2              LW,14    SEED
    11342   01 027DB    48E01B72              EOR,14   SKADR             SEEK ADDRESS BUFFER
    11343   01 027DC    35E01B6C              STW,14   PATID+1
    11344   01 027DD    32FE27A6              LW,15    T80S,7
    11345   01 027DE    35F027E0              STW,15   %+2
    11346   01 027DF    6AF0053D              TEST     TSEQ00
            01 027E0    00001ED3
    11347   01 027E1    20AFFFFF A            AI,10    -1
    11348   01 027E2    691027D8              BL       T80F
    11349   01 027E3    32A01B7A              LW,10    ADDR3
    11350   01 027E4    20BFFFFF A            AI,11    -1
    11351   01 027E5    691027D8              BL       T80F
    11352   01 027E6    3310053C              MTW,1    T1DVCNT           INCREMENT TEST VARIATION COUNT
    11353   01 027E7    32B01B79              LW,11    ADDR2
    11354   01 027E8    20700001 A            LOOP,7   K2,T80F
            01 027E9    31701BDD
            01 027EA    691027D8
    11355   01 027EB    68001D47              B        TST1R             RETURN TO TST1 CONTROL  PROG.
    11356                            *
    11357                            *
    11358   01 027EC    E800000A A   T80I     B        *10
    11359   01 027ED    32F01B72     T80K     LW,15    SKADR             PREPARE PRINT OF
    11360   01 027EE    35F00EE9              STW,15   VHEX8A              SEEK ADDRESS WRITTEN WITH
    11361   01 027EF    32F03364              LW,15    BF2                   THE DATA ON THE SURFACE.
    11362   01 027F0    48F00AB2              EOR,15   SEED
    11363   01 027F1    35F00EF0              STW,15   VHEX8B
    11364   01 027F2    6AF00B7B              SEND     MX532
            01 027F3    00004014
    11365   01 027F4    E800000A A            B        *10
    11366                            *
    11367                            *
1 C00   21:47 JUN 20,'83    TELEFILE ROTATING MEMORY TEST 960-0604-H02                            PAGE   88
A   11369                            *        ***SUBTEST 81***
    11370                            *
    11371   01 027F5    00003F15     MSID81   DATA     MX181             FLAW MARK TEST
    11372                            *
    11373   01 027F7    010027F5     TSEQ81A  ID       MSID81,1          IDENTIFICATION OF SUBTEST
    11374                                     SK
    11375   01 027F8    00000EF5              IS       IOCD81A           INSTRUCTION SEQUENCE
    11376                            *
    11377                            *
    11378                            *
    11379                                     SN
    11380   01 027F6    30040000 A            TEND                       END OF TEST SEQUENCE
    11381                            *
    11382   01 027FA    010027F5     TSEQ81B  ID       MSID81,1          IDENTIFICATION OF SUBTEST
    11383                                     SK
    11384   01 027FB    00000EF6              EX       IOCD81B           SIO WITH IOCD
    11385                            *
    11386   01 027FC    80001E90              IO1      *T1TIO1                     TIO TEST
    11387   01 027FD    00000004 A            IO2      TDV,X'40000000',X'FFFFC000'
            01 027FE    40000000 A
            01 027FF    FFFFC000 A
    11388                                     SN
    11389   01 027F9    28340000 A            TEND                       END OF TEST SEQUENCE
    11390                            *
    11391   01 02801    010027F5     TSEQ81C  ID       MSID81,1          IDENTIFICATION OF SUBTEST
    11392                                     SK
    11393   01 02802    00000F3D              IO       IOCD81C           SIO WITH IOCD
    11394   01 02803    00000000 A   T81WT    WT       RDY,30,IOCD81C,0     WAIT 30 MSEC FOR READY
            01 02804    0000001E A
            01 02805    00000F3D
            01 02806    00000000 A
    11395   01 02807    80001E93              IO1      *T1TIO2           TIO TEST
    11396   01 02808    00000004 A            IO2      TDV,X'40000000',X'FFFFC000'
            01 02809    40000000 A
            01 0280A    FFFFC000 A
    11397                                     SN
    11398   01 02800    23340000 A            TEND                       END OF TEST SEQUENCE
    11399                            *
    11400                            *
    11401         01 0280B           T81      EQU      %                 WRITE HEADER WITH
    11402   01 0280B    6AF02DB9              BAL,15   HDRSR             SAVE HEADERS
    11403   01 0280C    73F03262              MTB,-1   BF1                  FLAW MARK TO CYL. 202
    11404   01 0280D    75161B56              STB,1    SENEXP,3
    11405   01 0280E    22A000CA A            LI,10    202
    11406   01 0280F    75A43262              STB,10   BF1,2
    11407   01 02810    55A01B72              STH,10   SKADR             SEEK ADDRESS BUFFER
    11408   01 02811    55A01B56              STH,10   SENEXP
    11409   01 02812    3310053C              MTW,1    T1DVCNT           INCREMENT TEST VARIATION COUNT
    11410   01 02813    6AF0053D              TEST     TSEQ81A
            01 02814    000027F6
    11411   01 02815    3310053C              MTW,1    T1DVCNT           INCREMENT TEST VARIATION COUNT
    11412   01 02816    6AF0053D              TEST     TSEQ81B
            01 02817    000027F9
    11413   01 02818    3310053C              MTW,1    T1DVCNT           INCREMENT TEST VARIATION COUNT
    11414   01 02819    75061B56              STB,0    SENEXP,3
    11415   01 0281A    32FC1BBA     T81A     LW,15    ORDER,6           LOAD ORDER CODE
    11416   01 0281B    75F01E7A              STB,15   IOCD81C             AND STORE IT IN IOCD
    11417   01 0281C    32FC1BC4              LW,15    REMBC,6           LOAD REMAINING BYTE COUNT
    11418   01 0281D    35F02806              STW,15   T81WT+3           *  AND STORE IT IN PARAMETER TABLE
    11419   01 0281E    6AF0053D              TEST     TSEQ81C           EXCUTE TEST SEQUENCE
            01 0281F    00002800
    11420   01 02820    20600001 A            LOOP,6   K3,T81A           LOOP
            01 02821    31601BDE
            01 02822    6910281A
    11421   01 02823    3310053C              MTW,1    T1DVCNT           INCREMENT TEST VARIATION COUNT
    11422   01 02824    35003262              STW,0    BF1               REWRITE CORRECT
    11423   01 02825    75161B56              STB,1    SENEXP,3            HEADER TO CYLINDER 202
    11424   01 02826    6AF0053D              TEST     TSEQ81A
            01 02827    000027F6
    11425   01 02828    6AF02DC3              BAL,15   HDRSW             RESTORE HEADERS
    11426   01 02829    68001D47              B        TST1R             RETURN TO TST1 CONTROL  PROG.
    11427                            *
    11428                            *
1 C00   21:47 JUN 20,'83    TELEFILE ROTATING MEMORY TEST 960-0604-H02                            PAGE   89
A   11430                            *        ***SUBTEST 82***
    11431                            *
    11432   01 0282A    00003F19     MSID82   DATA     MX182             WRONG ADDRESS SIMULATION TEST
    11433                            *
    11434   01 0282C    0100282A     TSEQ82A  ID       MSID82,1          IDENTIFICATION OF SUBTEST
    11435                                     SK
    11436   01 0282D    00000EF5              IS       IOCD82A           INSTRUCTION SEQUENCE
    11437                            *
    11438                            *
    11439                            *
    11440   01 0282B    30000000 A            TEND                       END OF TEST SEQUENCE
    11441                            *
    11442   01 0282F    0100282A     TSEQ82B  ID       MSID82,1          IDENTIFICATION OF SUBTEST
    11443                                     SK
    11444   01 02830    80002859              IO       *T82IO
    11445   01 02831    80002857              WT       *T82WT
    11446   01 02832    80001E93              IO1      *T1TIO2           TIO TEST
    11447   01 02833    00000004 A            IO2      TDV,X'02000000',X'FFFFC000'
            01 02834    02000000 A
            01 02835    FFFFC000 A
    11448                                     SN
    11449   01 0282E    23340000 A            TEND                       END OF TEST SEQUENCE
    11450                            *
    11451                            *
    11452                            *
    11453                            *
    11454   01 02836    6AF02DB9     T82      BAL,15   HDRSR             SAVE HEADERS
    11455   01 02837    3310053C     T82A     MTW,1    T1DVCNT           INCREMENT TEST VARIATION COUNT
    11456   01 02838    22A000CA A            LI,10    202
    11457   01 02839    55A01B72              STH,10   SKADR             SEEK ADDRESS BUFFER
    11458   01 0283A    55A01B56              STH,10   SENEXP
    11459   01 0283B    35001B58              STW,0    SENEXP+2
    11460   01 0283C    35003262              STW,0    BF1               PREPARE FOR
    11461   01 0283D    35003263              STW,0    BF1+1               WRITING HEADER
    11462   01 0283E    75A43262              STB,10   BF1,2                 WITH WRONG ADDRESSES
    11463   01 0283F    22600000 A            LI,6     0                 RESET REG.6
    11464   01 02840    72FE2855              LB,15    T82F,7            SET EXPECTED
    11465   01 02841    75F21B58              STB,15   SENEXP+2,1           SENSE BYTE 9
    11466   01 02842    72FE2856              LB,15    T82G,7            PREPARE HEADER WRITE
    11467   01 02843    670E285B              EXU      T82EX,7              BUFFER WITH WRONG ADDRESS
    11468   01 02844    6AF0053D              TEST     TSEQ82A           EXECUTE HEADER WRITE
            01 02845    0000282B
    11469   01 02846    21700003 A            CI,7     3                 CHECK IF DONE
    11470   01 02847    68102853              BGE      T82C              YES: RESTORE HEADER
    11471   01 02848    32FC285F     T82B     LW,15    T82I,6            LOAD IOCD ADDRESS
    11472   01 02849    35F02859              STW,15   T82IO               AND STORE IT IN PARAMETER TABLE
    11473   01 0284A    32FC1BC4              LW,15    REMBC,6           LOAD REMAINING BYTE COUNT
    11474   01 0284B    35F0285A              STW,15   T82WT+3             AND STORE IT IN PARAM. T.
    11475   01 0284C    6AF0053D              TEST     TSEQ82B           EXECUTE TEST SEQUENCE
            01 0284D    0000282E
    11476   01 0284E    20600001 A            LOOP,6   K4,T82B           LOOP
            01 0284F    31601BDF
            01 02850    69102848
    11477   01 02851    20700001 A            AI,7     1                 INCR. REG.7
    11478   01 02852    68002837              B        T82A              TRY AGAIN WITH DIFFERENT HEADER
    11479   01 02853    6AF02DC3     T82C     BAL,15   HDRSW             RESTORE HEADERS
    11480   01 02854    68001D47              B        TST1R             RETURN TO TST1
    11481                            *
    11482   01 02855    08201000 A   T82F     DATA     X'08201000'
    11483   01 02856    00       A   T82G     DATA,1   0,1,1,0
            01 02856 1  01       A
            01 02856 2  01       A
            01 02856 3  00       A
    11484   01 02857    00000000 A   T82WT    DATA     0,40              LONGER DELAY FOR T3281
            01 02858    00000028 A
    11485   01 02859    00000000 A   T82IO    DATA     0,0
            01 0285A    00000000 A
    11486   01 0285B    75F43262     T82EX    STB,15   BF1,2
    11487   01 0285C    75F63262              STB,15   BF1,3
    11488   01 0285D    75F03263              STB,15   BF1+1
    11489   01 0285E    22F00000 A            LI,15    0                 NOP
    11490   01 0285F    00000EED     T82I     DATA     IOCD82B,IOCD82D,IOCD82C,IOCD82E
            01 02860    00000EF3
            01 02861    00000EEE
            01 02862    00000EF6
    11491                            *
    11492                            *
    11493                            *
    11494                            *
1 C00   21:47 JUN 20,'83    TELEFILE ROTATING MEMORY TEST 960-0604-H02                            PAGE   90
A   11496                            *        ***SUBTEST 85***
    11497                            *
    11498   01 02863    00003F22     MSID85   DATA     MX185             LATENCY TEST
    11499                            *
    11500   01 02865    01002863     TSEQ85   ID       MSID85,1          IDENTIFICATION OF SUBTEST
    11501   01 02866    00002871              ES2      T85B,T85C
            01 02867    00002897
    11502   01 02864    00800000 A            TEND                       END OF TEST SEQUENCE
    11503                            *
    11504                            *
    11505   01 02868    22F00001 A   T85      LI,15    1                 WRITE AND READ
    11506   01 02869    30F00006 A            AW,15    6                  IN TWO PASSES
    11507   01 0286A    75F01E7C              STB,15   IOCD85            STORE ORDER IN IOCD
    11508   01 0286B    6AF0053D              TEST     TSEQ85
            01 0286C    00002864
    11509   01 0286D    20600001 A            LOOP,6   K2,T85
            01 0286E    31601BDD
            01 0286F    69102868
    11510   01 02870    68001D47              B        TST1R             RETURN TO TST1 CONTROL  PROG.
    11511                            *
    11512                            *
    11513   01 02871    32F02886     T85B     LW,15    T85XP             PREPARE IO INTERRUPT
    11514   01 02872    35F0005C A            STW,15   X'5C'
    11515   01 02873    22F00020 A            LI,15    X'0020'           ARM AND
    11516   01 02874    6DF01200 A            WD,15    X'1200'             ENABLE INTERRUPTS
    11517   01 02875    350028B1              STW,0    T85FL             RESET FLAGS
    11518   01 02876    350028B2              STW,0    T85FT
    11519   01 02877    350028B3              STW,0    T85FI
    11520   01 02878    6AF00A65              BAL,15   #SCNT             START COUNTER 4
    11521   01 02879    00002892              DATA     T85EX1            TIME OUT ADDRESS
    11522   01 0287A    22E0000F A            LI,14    15                INITIALIZE
    11523   01 0287B    35E01B77              STW,14   DELAY               TIME OUT DELAY
    11524   01 0287C    22000F3E              LI,0     IOCD85            START
    11525   01 0287D    CC001B60              SIO,0    *DEVADDR            SIO OPERATION
    11526   01 0287E    69402894              BCS,4    T85EX2            ERROR
    11527   01 0287F    6800287F              B        %                 WAIT ON INTERRUPT
    11528   01 02880    22000F3E              LI,0     IOCD85
    11529   01 02881    CC001B60              SIO,0    *DEVADDR
    11530   01 02882    69402894              BCS,4    T85EX2
    11531   01 02883    68002883              B        %                 WAIT ON INTERRUPT
    11532   01 02884    6AF00A8A              BAL,15   #HCNT             STOP COUNTER 4 AND DISARM INTERRUPTS
    11533   01 02885    E800000A A            B        *10               RETURN
    11534                            *
    11535   01 02886    0F002888     T85XP    XPSD,0   T85XPN            INTERRUPT LOCATION
    11536                                     BOUND    8
    11537   01 02888    00000000 A   T85XPN   DATA     0,0
            01 02889    00000000 A
    11538   01 0288A    0000288C              DATA     T85I,X'07000000'
            01 0288B    07000000 A
    11539                            *
    11540   01 0288C    6E000000 A   T85I     AIO,0    0                 ISSUE AIO
    11541   01 0288D    331028B3              MTW,1    T85FI             INCREMENT INTERRUPT FLAG
    11542   01 0288E    33102888              MTW,1    T85XPN            INCR. RETURN ADDRESS
    11543   01 0288F    22F00001 A            LI,15    1                 DELAY
    11544   01 02890    64F02890              BDR,15   %                   FOR TESTING
    11545   01 02891    0E302888              LPSD,3   T85XPN            RETURN
    11546                            *
    11547   01 02892    331028B2     T85EX1   MTW,1    T85FT             TIME OUT ROUTINE
    11548   01 02893    E802000A A            B        *10,1             ERROR RETURN
    11549                            *
    11550   01 02894    331028B1     T85EX2   MTW,1    T85FL             IO ERROR ROUTINE
    11551   01 02895    6AF00A8A              BAL,15   #HCNT             STOP COUNTER 4 AND DISARM INT.
    11552   01 02896    E802000A A            B        *10,1             ERROR RETURN
    11553                            *
    11554   01 02897    6AF00B7B     T85C     SEND     MX540             REPORTING ROUTINE
            01 02898    0000401E
    11555   01 02899    22C00F3E              LI,12    IOCD85            PRINT
    11556   01 0289A    6AF00A29              BAL,15   #IOCDP               IOCD
    11557   01 0289B    330028B3              MTW,0    T85FI             CHECK INTERRUPT FLAG
    11558   01 0289C    683028A1              BEZ      T85C1             ERROR
    11559   01 0289D    6AF00B7B              SEND     MX540             PRINT
            01 0289E    0000401E
    11560   01 0289F    22C00F3E              LI,12    IOCD85              2. IOCD
    11561   01 028A0    6AF00A29              BAL,15   #IOCDP
    11562   01 028A1    32401B70     T85C1    LW,4     DEVTYP            CHECK DEVICE TYPE
    11563   01 028A2    32F828AF              LW,15    T85D,4             AND GET DELAY VALUES
    11564   01 028A3    30F828AF              AW,15    T85D,4              AND PREPARE FOR
    11565   01 028A4    35F00EE3              STW,15   VDEC4A                   REPORTING
    11566   01 028A5    330028B1              MTW,0    T85FL             CHECK IO ERROR FLAG
    11567   01 028A6    683028AA              BEZ      T85C2             NO ERROR
    11568   01 028A7    6AF00B7B              SEND     MX001             IO ERROR
            01 028A8    00003C21
    11569   01 028A9    E800000A A            B        *10
    11570   01 028AA    330028B2     T85C2    MTW,0    T85FT
    11571   01 028AB    E830000A A            BEZ      *10
    11572   01 028AC    6AF00B7B              SEND     MX018             TIME OUT
            01 028AD    00003C71
    11573   01 028AE    E800000A A            B        *10
    11574                            *
    11575   01 028AF    0000000F A   T85D     DATA     15,10             30 MSEC, 20 MSEC
            01 028B0    0000000A A
    11576                            *
    11577                            *
    11578   01 028B1                 T85FL    RES      1
    11579   01 028B2                 T85FT    RES      1
    11580   01 028B3                 T85FI    RES      1
1 C00   21:47 JUN 20,'83    TELEFILE ROTATING MEMORY TEST 960-0604-H02                            PAGE   91
A   11582                            *        ***SUBTEST 86***
    11583                            *
    11584   01 028B4    00003F25     MSID86   DATA     MX186             DOUBLE SEEK TEST
    11585                            *
    11586   01 028B6    010028B4     TSEQ86   ID       MSID86,1          IDENTIFICATION OF SUBTEST
    11587   01 028B7    00000F3F              IO       IOCD86            SIO WITH IOCD
    11588   01 028B8    00000000 A            WT       RDY,100,IOCD86+1,0  WAIT 100 MSEC FOR READY
            01 028B9    00000064 A
            01 028BA    00000F40
            01 028BB    00000000 A
    11589   01 028BC    80001E93              IO1      *T1TIO2           TIO TEST
    11590   01 028BD    80001EB7              IO2      *T1TDV8
    11591                                     SN
    11592   01 028B5    03340000 A            TEND                       END OF TEST SEQUENCE
    11593                            *
    11594   01 028BE    00000003 A   T86O     DATA     3,X'83'
            01 028BF    00000083 A
    11595                            *
    11596   01 028C0    22F000CA A   T86      LI,15    202
    11597   01 028C1    55F01B72              STH,15   SKADR             SEEK ADDRESS BUFFER
    11598   01 028C2    22F00004 A            LI,15    4                 PREPARE
    11599   01 028C3    75F01B58              STB,15   SENEXP+2            EXPECTED SENSE BYTE 8
    11600   01 028C4    55021B54              STH,0    SENMAS+2,1           AND SENSE MASK
    11601   01 028C5    32FC28BE     T86A     LW,15    T86O,6            LOAD ORDER CODE
    11602   01 028C6    75F01E7E              STB,15   IOCD86              AND STOR IT IN IOCD
    11603   01 028C7    75F01E80              STB,15   IOCD86+1            AND IN 2. IOCD ( COM. CHAIN.)
    11604   01 028C8    6AF0053D              TEST     TSEQ86            EXECUTE TEST SEQUENCE
            01 028C9    000028B5
    11605   01 028CA    68001D47              B        TST1R             RETURN TO TST1 CONTROL  PROG.
    11606                            *
    11607                            *
1 C00   21:47 JUN 20,'83    TELEFILE ROTATING MEMORY TEST 960-0604-H02                            PAGE   92
A   11609                            *        ***SUBTEST 87***
    11610                            *
    11611   01 028CB    00003F29     MSID87   DATA     MX187             WRITE : HIO AND DEVICE RESET
    11612                            *
    11613   01 028CD    010028CB     TSEQ87A  ID       MSID87,1          IDENTIFICATION OF SUBTEST
    11614                                     PT
    11615                                     SK
    11616   01 028CE    00000EED              IS       IOCD87A           INSTRUCTION SEQUENCE
    11617                            *
    11618                            *
    11619                            *
    11620                                     SN
    11621   01 028CC    B0040000 A            TEND                       END OF TEST SEQUENCE
    11622                            *
    11623   01 028D0    010028CB     TSEQ87B  ID       MSID87,1          IDENTIFICATION OF SUBTEST
    11624                                     PT
    11625                                     SK
    11626   01 028D1    00000EEE              IS       IOCD87B           INSTRUCTION SEQUENCE
    11627                            *
    11628                            *
    11629                            *
    11630                                     SN
    11631                                     CM
    11632   01 028CF    B0060000 A            TEND                       END OF TEST SEQUENCE
    11633                            *
    11634   01 028D3    010028CB     TSEQ87C  ID       MSID87,1
    11635                                     TM
    11636                                     SK
    11637   01 028D4    00000EED              IO       IOCDX01
    11638   01 028D5    00002916              ES2      T87X1,T87X2
            01 028D6    0000291E
    11639   01 028D7    00000002 A   T87HT    IO1      HIO,0,0
            01 028D8    00000000 A
            01 028D9    00000000 A
    11640   01 028DA    00000002 A            IO2      HIO,0,0
            01 028DB    00000000 A
            01 028DC    00000000 A
    11641   01 028D2    62B00000 A            TEND
    11642                            *
    11643                            *
    11644   01 028DD    000028CC     T87S     DATA     TSEQ87A,TSEQ87B
            01 028DE    000028CF
    11645   01 028DF    0000     A   T87X     DATA,2   0,1,2,3
            01 028DF 2  0001     A
            01 028E0    0002     A
            01 028E0 2  0003     A
    11646   01 028E1    00000002 A   T87W     DATA     2,15
            01 028E2    0000000F A
    11647                            *
    11648   01 028E3    6AF00AB5     T87      BAL,15   #RAND             GET RANDOM DATA
    11649   01 028E4    35201B6B              STW,2    PATID             SELECT RANDOM DATA PATTERN
    11650   01 028E5    3310053C              MTW,1    T1DVCNT           INCR. TEST V. COUNT
    11651   01 028E6    22700000 A            LI,7     0                 RESET REG.7
    11652   01 028E7    32FA28E1              LW,15    T87W,5            LOAD IO TYPE NUMBER
    11653   01 028E8    35F028D7              STW,15   T87HT               AND STORE IT IN PARAMETER TABLE
    11654         01 028E9           T87A     EQU      %                 START WRITING 4 CYLINDERS
    11655   01 028E9    75A61B72              STB,10   SKADR,3           SECTOR ADDRESS
    11656   01 028EA    75B41B72              STB,11   SKADR,2           HEAD ADDRESS
    11657   01 028EB    52FC28DF              LH,15    T87X,6            LOAD CYLINDER ADDRESS
    11658   01 028EC    55F01B72              STH,15   SKADR               AND STORE ALL IN SEEK ADR. BUFFER
    11659   01 028ED    32E00AB2     T87C     LW,14    SEED              GET RANDOM SEED
    11660   01 028EE    48E01B72              EOR,14   SKADR               AND MERGE IT WITH SEEK ADDRESS
    11661   01 028EF    35E01B6C              STW,14   PATID+1               AND STORE IT AS PATTERN SEED
    11662   01 028F0    32F01B72              LW,15    SKADR             SKIP SECTOR
    11663   01 028F1    21F20000 A            CI,15    X'20000'             WITH ADDRESS X'20000'
    11664   01 028F2    683028F7              BE       T87C1             OK: SKIP
    11665   01 028F3    32FE28DD              LW,15    T87S,7            ELSE LOAD TEST SEQUENCE ADDRESS
    11666   01 028F4    35F028F6              STW,15   %+2                AND STORE IT IN LOC.
    11667   01 028F5    6AF0053D              TEST     TSEQ00            EXECUTE TEST SEQUNCE
            01 028F6    00001ED3
    11668   01 028F7    20A00001 A   T87C1    LOOP,10  ADR3,T87A         LOOP FOR SECTORS
            01 028F8    31A01B75
            01 028F9    691028E9
    11669   01 028FA    22A00000 A            LI,10    0                 RESET INDEX
    11670   01 028FB    20B00001 A            LOOP,11  ADR2,T87A         LOOP FOR HEADS
            01 028FC    31B01B74
            01 028FD    691028E9
    11671   01 028FE    22B00000 A            LI,11    0                 RESET INDEX
    11672   01 028FF    20600001 A            LOOP,6   K4,T87A           LOOP FOR CYLINDERS
            01 02900    31601BDF
            01 02901    691028E9
    11673   01 02902    22600000 A            LI,6     0                 RESET INDEX
    11674   01 02903    33000007 A   T87D     MTW,0    7                 CHECK LOOP COUNT REG.7
    11675   01 02904    69302912              BNEZ     T87E              N0: READ PHASE
    11676   01 02905    22F20000 A            LI,15    X'20000'          ISSUE HIO/ DEVICE RESET DURING
    11677   01 02906    35F01B72              STW,15   SKADR               WRITE OPERATION TO SECTOR
    11678   01 02907    22F00004 A            LI,15    4                     WITH ADDRESS X'20000'.
    11679   01 02908    75F01B71              STB,15   TMODB             TEST MODE SELECTION BUFFER
    11680   01 02909    3310053C              MTW,1    T1DVCNT           INCREMENT TEST VARIATION COUNT
    11681   01 0290A    6AF0053D              TEST     TSEQ87C
            01 0290B    000028D2
    11682   01 0290C    3310053C              MTW,1    T1DVCNT           INCREMENT TEST VARIATION COUNT
    11683   01 0290D    33100007 A            MTW,1    7
    11684   01 0290E    2247FFFF A            LI,4     X'7FFFF'          DELAY FOR RESTORE ACTION
    11685   01 0290F    6440290F              BDR,4    %
    11686   01 02910    75001B71              STB,0    TMODB             TEST MODE SELECTION BUFFER
    11687   01 02911    680028E9              B        T87A
    11688                            *
    11689   01 02912    20500001 A   T87E     LOOP,5   K2,T87
            01 02913    31501BDD
            01 02914    691028E3
    11690   01 02915    68001D47              B        TST1R             RETURN TO TST1 CONTROL  PROG.
    11691                            *
    11692                            *
    11693                            *
    11694                            *
    11695   01 02916    22507D00 A   T87X1    LI,5     32000             ISSUE DELAY
    11696   01 02917    6450291A              BDR,5    %+3
    11697   01 02918    33100524              MTW,1    T1DEAB            IF TIME OUT: ABORT
    11698   01 02919    E802000A A            B        *10,1             ERROR RETURN
    11699   01 0291A    6AF0291F              BAL,15   TDVA12            ISSUE SPECIAL TDV
    11700   01 0291B    72D0000D A            LB,13    13                  TO DETECT PHASE 'WRITE DATA'
    11701   01 0291C    21D00028 A            CI,13    X'28'
    11702   01 0291D    69302917              BNE      T87X1+1           LOOP
    11703   01 0291E    E800000A A   T87X2    B        *10               OK: CONTINUE
    11704                            *
    11705   01 0291F    35F02925     TDVA12   STW,15   TDVS                                               A02
    11706   01 02920    32F01B60              LW,15    DEVADDR                                            A02
    11707   01 02921    4BF01C02              AND,15   KXN10                                              A02
    11708   01 02922    20F0000C A            AI,15    12                                                 A02
    11709   01 02923    CEC0000F A            TDV,12   *15                                                A02
    11710   01 02924    E8002925              B        *TDVS                                              A02
    11711                            *                                                                    A02
    11712   01 02925                 TDVS     RES      1                                                  A02
    11713                            *                                                                    A02
    11714                            *
1 C00   21:47 JUN 20,'83    TELEFILE ROTATING MEMORY TEST 960-0604-H02                            PAGE   93
A   11716                            *        ***SUBTEST 88***
    11717                            *
    11718   01 02926    00003F31     MSID88   DATA     MX188             DEVICE ADDRESS PARITY TEST
    11719                            *
    11720   01 02928    01002926     TSEQ88   ID       MSID88,1          IDENTIFICATION OF SUBTEST
    11721   01 02929    0000294A              ES1      T88X1,T88E1
            01 0292A    00002950
    11722   01 0292B    00002955              ES2      T88X2,T88E2
            01 0292C    0000295B
    11723                            *
    11724   01 0292D    00000001 A            IO1      TIO,X'30000000',X'FFFFC000'
            01 0292E    30000000 A
            01 0292F    FFFFC000 A
    11725   01 02930    0000000D A            IO2      TDV8,X'04004000',X'0400C000' READ FAULT
            01 02931    04004000 A
            01 02932    0400C000 A
    11726   01 02933    0000000F A            IO3      TDV10,0,0
            01 02934    00000000 A
            01 02935    00000000 A
    11727                                     SN
    11728   01 02936    00002AB3              ES3      TDV9X,TDV9E
            01 02937    00002ABA
    11729   01 02927    04BD0000 A            TEND                       END OF TEST SEQUENCE
    11730                            *
    11731                            *
    11732         01 02938           T88      EQU      %
    11733   01 02938    32F01B7B              LW,15    DEVTYPM           GET DEV MODELNO.
    11734   01 02939    21F00007 A            CI,15    7                 DISK 33
    11735   01 0293A    6830293D              BE       %+3               YES
    11736   01 0293B    32F02E2A              LW,15    =X'0400'
    11737   01 0293C    55F21B57              STH,15   SENEXP+1,1
    11738   01 0293D    6AF0053D              TEST     TSEQ88
            01 0293E    00002927
    11739   01 0293F    68001D47              B        TST1R             RETURN TO TST1 CONTROL  PROG.
    11740                            *
    11741   01 02940    00000EF9     T88XD1   DATA     IOCDX13,0,X'10000000',X'FFFFC000',0
            01 02941    00000000 A
            01 02942    10000000 A
            01 02943    FFFFC000 A
            01 02944    00000000 A
    11742   01 02945    00000EF9     T88XD2   DATA     IOCDX13,0,X'30000000',X'FFFFC000',0
            01 02946    00000000 A
            01 02947    30000000 A
            01 02948    FFFFC000 A
            01 02949    00000000 A
    11743                            *
    11744   01 0294A    22F01400 A   T88X1    LI,15    X'1400'
    11745   01 0294B    55F01B71              STH,15   TMODB             TEST MODE SELECTION BUFFER
    11746   01 0294C    22402940              LI,4     T88XD1
    11747   01 0294D    6AF009B1              BAL,15   #IOEX             BRANCH TO IO EXECUTE ROUTINE
    11748   01 0294E    E800000A A            B        *10
    11749   01 0294F    E802000A A            B        *10,1
    11750                            *
    11751   01 02950    22F01400 A   T88E1    LI,15    X'1400'
    11752   01 02951    55F01B71              STH,15   TMODB             TEST MODE SELECTION BUFFER
    11753   01 02952    22402940              LI,4     T88XD1
    11754   01 02953    6AF009DB              BAL,15   #IOCP             EXECUTE IO COMPARE AND PRINT ROUT.
    11755   01 02954    E800000A A            B        *10
    11756                            *
    11757   01 02955    22F00400 A   T88X2    LI,15    X'0400'
    11758   01 02956    55F01B71              STH,15   TMODB             TEST MODE SELECTION BUFFER
    11759   01 02957    22402945              LI,4     T88XD2
    11760   01 02958    6AF009B1              BAL,15   #IOEX             BRANCH TO IO EXECUTE ROUTINE
    11761   01 02959    E800000A A            B        *10
    11762   01 0295A    E802000A A            B        *10,1
    11763                            *
    11764   01 0295B    22F00400 A   T88E2    LI,15    X'0400'
    11765   01 0295C    55F01B71              STH,15   TMODB             TEST MODE SELECTION BUFFER
    11766   01 0295D    22402945              LI,4     T88XD2
    11767   01 0295E    6AF009DB              BAL,15   #IOCP
    11768   01 0295F    E800000A A            B        *10
    11769                            *
1 C00   21:47 JUN 20,'83    TELEFILE ROTATING MEMORY TEST 960-0604-H02                            PAGE   94
A   11771                            *        ***SUBTEST 89***
    11772                            *
    11773   01 02960    00003F36     MSID89   DATA     MX189             SEEK ORDER: TIME OUT TEST
    11774                            *
    11775   01 02962    01022960     TSEQ89A  ID       MSID89,1,1        IDENTIFICATION OF SUBTEST
    11776                                     SK
    11777   01 02961    20000000 A            TEND                       END OF TEST SEQUENCE
    11778                            *
    11779   01 02964    01042960     TSEQ89B  ID       MSID89,1,2        IDENTIFICATION OF SUBTEST
    11780                                     TM
    11781   01 02965    00000EF0              IO       IOCD89            SIO WITH IOCD
    11782   01 02966    0000297C              ST       STC89,STD89,1
            01 02967    0000297D
            01 02968    00000001 A
    11783   01 02969    00000002 A            IO1      HIO,0,0
            01 0296A    00000000 A
            01 0296B    00000000 A
    11784   01 02963    42600000 A            TEND                       END OF TEST SEQUENCE
    11785                            *
    11786   01 0296D    01062960     TSEQ89D  ID       MSID89,1,3        IDENTIFICATION OF SUBTEST
    11787   01 0296E    00000EF1              IO       IOCDX83           SIO WITH IOCD
    11788   01 0296F    0000299C              ES2      T89EX,T89EE
            01 02970    000029B6
    11789   01 02971    00000001 A            IO1      TIO,X'70000000',X'FFFFC000'
            01 02972    70000000 A
            01 02973    FFFFC000 A
    11790   01 0296C    02A00000 A            TEND                       END OF TEST SEQUENCE
    11791                            *
    11792   01 02975    01082960     TSEQ89C  ID       MSID89,1,4
    11793   01 02976    00000EFB              IS       IOCDX33
    11794                                     SN                                                          A01
    11795   01 02974    10040000 A            TEND
    11796                            *
    11797   01 02977    00000000 A   T89W     DATA     0,202,0
            01 02978    000000CA A
            01 02979    00000000 A
    11798   01 0297A    0000000C A   T89CYL   DATA     12,190
            01 0297B    000000BE A
    11799   01 0297C    0B000000 A   STC89    DATA     X'0B000000'
    11800   01 0297D    00000000 A   STD89    DATA     0
    11801                            *
    11802                            *
    11803   01 0297E    22F000CA A   T89      LI,15    202               MIOP CYL ADR
    11804   01 0297F    33001B7C              MTW,0    SIOPFLAG          TEST SIOP FLAG
    11805   01 02980    68302982              BEZ      %+2               MIOP
    11806   01 02981    22F0019A A            LI,15    410               SIOP CYL ADR
    11807   01 02982    35F02978              STW,15   T89W+1            SAVE ADR
    11808   01 02983    20FFFFF4 A            AI,15    -12
    11809   01 02984    35F0297B              STW,15   T89CYL+1          SAVE ADR
    11810   01 02985    32FC297A              LW,15    T89CYL,6          LOAD CYLINDER ADDRESS
    11811   01 02986    55F01B72              STH,15   SKADR              AND STORE IT SEEK BUFFER
    11812   01 02987    6AF0053D              TEST     TSEQ89A           EXECUTE SEEK ORDER
            01 02988    00002961
    11813   01 02989    32FC2977     T89A     LW,15    T89W,6            LOAD NEW CYLINDER ADDRESS
    11814   01 0298A    55F01B72              STH,15   SKADR               AND STORE IT IN SEEK BUFFER
    11815   01 0298B    22F00C00 A            LI,15    X'0C00'           SET CONTROLLER IN INCREMENTAL
    11816   01 0298C    55F01B71              STH,15   TMODB               DEVICE TESTMODE
    11817   01 0298D    6AF0053D              TEST     TSEQ89B               AND STORE CYLINDER ADDRESS
            01 0298E    00002963
    11818   01 0298F    22F00400 A            LI,15    X'0400'           IN DEVICE.
    11819   01 02990    55F01B71              STH,15   TMODB             RESET IN DEVICE TEST MODE
    11820   01 02991    32FC2978              LW,15    T89W+1,6          GET NEW SEEK ADDRESS
    11821   01 02992    55F01B72              STH,15   SKADR               AND STORE IT SEEK BUFFER
    11822   01 02993    6AF0053D              TEST     TSEQ89D           EXECUTE SEEK
            01 02994    0000296C
    11823   01 02995    55001B54              STH,0    SENMAS+2                                           A02
    11824   01 02996    6AF0053D              TEST     TSEQ89C           EXECUTE RESTORE
            01 02997    00002974
    11825   01 02998    20600001 A            LOOP,6   K2,T89            LOOP
            01 02999    31601BDD
            01 0299A    6910297E
    11826   01 0299B    68001D47              B        TST1R             RETURN TO TST1 CONTROL  PROG.
    11827                            *
    11828   01 0299C    32F029BE     T89EX    LW,15    T89XP             INITIALIZE INTERRUPT
    11829   01 0299D    35F0005C A            STW,15   X'5C'                HANDLING  FOR THIS ROUTINE
    11830   01 0299E    350029B4              STW,0    T89EXF            RESET FLAG
    11831   01 0299F    22430D40 A            LI,4     200000            SET DELAY
    11832   01 029A0    22F00020 A            LI,15    X'0020'           ARM AND INABLE FOR
    11833   01 029A1    6DF01200 A            WD,15    X'1200'             SEEK TIME OUT INT.
    11834   01 029A2    644029A2              BDR,4    %                 WAIT FOR INTERRUPT
    11835   01 029A3    33100524              MTW,1    T1DEAB            NO INTERRUPT: SET ABORT FLAG
    11836   01 029A4    22F01060 A            LI,15    X'1060'           DISARM INT.
    11837   01 029A5    6DF01500 A            WD,15    X'1500'
    11838   01 029A6    351029B4              STW,1    T89EXF            SET ERROR FLAG
    11839   01 029A7    E802000A A            B        *10,1             ERROR RETURN
    11840                            *
    11841   01 029A8    22F0000F A   T89EX1   LI,15    15                LOAD AIO COUNT
    11842   01 029A9    35F029B5              STW,15   T89EXL
    11843   01 029AA    224029C7     T89EX2   LI,4     T89ED             LOAD DATA BASE
    11844   01 029AB    6AF009B1              BAL,15   #IOEX               AND EXECUTE AIO
    11845   01 029AC    680029B2              B        T89EX3            OK
    11846   01 029AD    33F029B5              MTW,-1   T89EXL            ERROR: DECR. AIO COUNT
    11847   01 029AE    E832000A A            BEZ      *10,1             ERROR RETURN
    11848   01 029AF    21F08000 A            CI,15    X'8000'           NO INT. RECOGNITION
    11849   01 029B0    694029AA              BCS,4    T89EX2            YES: REPEAT AIO
    11850   01 029B1    E802000A A            B        *10,1             ERROR RETURN
    11851   01 029B2    35D01B60     T89EX3   STW,13   DEVADDR           SAVE DEVICE ADDRESS
    11852   01 029B3    E800000A A            B        *10               RETURN
    11853                            *
    11854   01 029B4                 T89EXF   RES      1
    11855   01 029B5                 T89EXL   RES      1
    11856                            *
    11857   01 029B6    330029B4     T89EE    MTW,0    T89EXF            CHECK ERROR FLAG
    11858   01 029B7    683029BB              BEZ      T89EE1            OK: REPORT AIO STATUS
    11859   01 029B8    6AF00B7B              SEND     MX508             NO INTERRUPT RECEIVED
            01 029B9    00003FC8
    11860   01 029BA    E800000A A            B        *10               RETURN
    11861   01 029BB    224029C7     T89EE1   LI,4     T89ED             REPORT AIO
    11862   01 029BC    6AF009DB              BAL,15   #IOCP                      STATUS
    11863   01 029BD    E800000A A            B        *10               RETURN
    11864                            *
    11865                            *
    11866   01 029BE    0F0029C0     T89XP    XPSD,0   T89XPN
    11867                                     BOUND    8
    11868   01 029C0    00000000 A   T89XPN   DATA     0,0,T89I,X'07000000'
            01 029C1    00000000 A
            01 029C2    000029C4
            01 029C3    07000000 A
    11869   01 029C4    22F029A8     T89I     LI,15    T89EX1
    11870   01 029C5    35F029C0              STW,15   T89XPN
    11871   01 029C6    0E2029C0              LPSD,2   T89XPN
    11872                            *
    11873   01 029C7    00000000 A   T89ED    DATA     0,3,X'02004000',X'FFFFC000',0
            01 029C8    00000003 A
            01 029C9    02004000 A
            01 029CA    FFFFC000 A
            01 029CB    00000000 A
    11874                            *
1 C00   21:47 JUN 20,'83    TELEFILE ROTATING MEMORY TEST 960-0604-H02                            PAGE   95
A   11876                            *        ***SUBTEST 90***
    11877                            *
    11878   01 029CC    00003F3D     MSID90   DATA     MX190             RESERVE AND RELEASE TEST
    11879                            *
    11880   01 029CE    010229CC     TSEQ90A  ID       MSID90,1,1        IDENTIFICATION OF SUBTEST
    11881                                     TM
    11882   01 029CF    00000EF4              EX       IOCDX07           SIO WITH IOCD                    A01
    11883                            *
    11884   01 029D0    80001E90              IO1      *T1TIO1                     TIO TEST
    11885   01 029D1    80001EA5              IO2      *T1TDV2           TDV TEST
    11886                                     SN
    11887   01 029CD    48340000 A            TEND                       END OF TEST SEQUENCE
    11888                            *
    11889   01 029D3    010429CC     TSEQ90B  ID       MSID90,1,2        IDENTIFICATION OF SUBTEST
    11890   01 029D4    00000001 A            IO1      TIO,X'50004000',X'FFFFC000'
            01 029D5    50004000 A
            01 029D6    FFFFC000 A
    11891   01 029D2    00200000 A            TEND                       END OF TEST SEQUENCE
    11892                            *
    11893   01 029D8    010629CC     TSEQ90C  ID       MSID90,1,3        IDENTIFICATION OF SUBTEST
    11894   01 029D9    00000EFA              EX       IOCDX17           SIO WITH IOCD                    A01
    11895                            *
    11896   01 029DA    80001E90              IO1      *T1TIO1                     TIO TEST
    11897   01 029DB    80001EA5              IO2      *T1TDV2           TDV TEST
    11898   01 029D7    08300000 A            TEND                       END OF TEST SEQUENCE
    11899                            *
    11900   01 029DD    010829CC     TSEQ90D  ID       MSID90,1,4        IDENTIFICATION OF SUBTEST
    11901   01 029DE    80001E90              IO1      *T1TIO1                     TIO TEST
    11902   01 029DC    00200000 A            TEND                       END OF TEST SEQUENCE
    11903                            *
    11904                            *
    11905   01 029DF    32E01B5F     T90      LW,14    DEVADRB           CHECK IF DUAL ACCESS
    11906   01 029E0    68301D47              BEZ      TST1R              CONFIGURATION SPECIFIED.
    11907   01 029E1    22F04080 A            LI,15    X'4080'           CHECK FOR DUAL ACCESS FLAG       A01
    11908   01 029E2    55F01B53              STH,15   SENMAS+1            AND EXPLICIT RELEASE FLAG      A01
    11909   01 029E3    55F01B57              STH,15   SENEXP+1              IN SENSE DATA                A01
    11910   01 029E4    6AF0053D              TEST     TSEQ90A           EXECUTE SEEK TO RESERVE DEVICE A
            01 029E5    000029CD
    11911   01 029E6    35E01B60              STW,14   DEVADDR           LOAD DEVADDR WITH ADR. B
    11912   01 029E7    6AF0053D              TEST     TSEQ90B           CHECK IF DEVICE CONTR. UNAVAILABLE
            01 029E8    000029D2
    11913   01 029E9    32D01B5E              LW,13    DEVADRA           RESTORE ADDRESS A
    11914   01 029EA    35D01B60              STW,13   DEVADDR             IN DEVADDR
    11915   01 029EB    6AF0053D              TEST     TSEQ90C           EXECUTE RELEASE ORDER
            01 029EC    000029D7
    11916   01 029ED    35E01B60              STW,14   DEVADDR           * CHECK FROM DEVICE CONTROLLER B
    11917   01 029EE    6AF0053D              TEST     TSEQ90D             IF DEVICE AVAILABLE
            01 029EF    000029DC
    11918   01 029F0    32F01B5E              MVW      DEVADRA,DEVADDR   RESTORE ADDRESS
            01 029F1    35F01B60
    11919   01 029F2    68001D47              B        TST1R             RETURN TO TST1 CONTROL  PROG.
    11920                            *
    11921                            *
1 C00   21:47 JUN 20,'83    TELEFILE ROTATING MEMORY TEST 960-0604-H02                            PAGE   96
A   11923                            *        ***SUBTEST 91***
    11924                            *
    11925   01 029F3    00003F42     MSID91   DATA     MX191             RESERVE AND RELEASE: INTERRUPT TEST
    11926                            *
    11927   01 029F5    010229F3     TSEQ91A  ID       MSID91,1,1        IDENTIFICATION OF SUBTEST
    11928                                     TM
    11929   01 029F6    00000EF0              EX       IOCD91A           SIO WITH IOCD
    11930                            *
    11931   01 029F7    80001E90              IO1      *T1TIO1                     TIO TEST
    11932   01 029F8    80001EA5              IO2      *T1TDV2           TDV TEST
    11933                                     SN
    11934   01 029F4    48340000 A            TEND                       END OF TEST SEQUENCE
    11935                            *
    11936   01 029FA    010429F3     TSEQ91B  ID       MSID91,1,2        IDENTIFICATION OF SUBTEST
    11937   01 029FB    80002A0A              IO       *T91IO
    11938   01 029FC    80002A08              WT       *T91WT
    11939   01 029FD    00000001 A            IO1      TIO,X'10000000',X'FFFFC000'
            01 029FE    10000000 A
            01 029FF    FFFFC000 A
    11940   01 02A00    80001EA5              IO2      *T1TDV2
    11941   01 029F9    03300000 A            TEND                       END OF TEST SEQUENCE
    11942                            *
    11943   01 02A02    010629F3     TSEQ91C  ID       MSID91,1,3        IDENTIFICATION OF SUBTEST
    11944   01 02A03    00000EFA              EX       IOCDX17           SIO WITH IOCD                    A01
    11945                            *
    11946   01 02A01    08000000 A            TEND                       END OF TEST SEQUENCE
    11947                            *
    11948   01 02A05    010829F3     TSEQ91D  ID       MSID91,1,4        IDENTIFICATION OF SUBTEST
    11949   01 02A06    80002A08              WT       *T91WT
    11950   01 02A07    80001E90              IO1      *T1TIO1
    11951   01 02A04    01200000 A            TEND                       END OF TEST SEQUENCE
    11952                            *
    11953   01 02A08    00000000 A   T91WT    DATA     0,60
            01 02A09    0000003C A
    11954   01 02A0A    00000000 A   T91IO    DATA     0,0,X'20000000',X'FFFFC000'
            01 02A0B    00000000 A
            01 02A0C    20000000 A
            01 02A0D    FFFFC000 A
    11955                            *                                   CHECK IF DUAL ACCESS CONFIGURATION
    11956   01 02A0E    32E01B5F     T91      LW,14    DEVADRB           NO: RETURN
    11957   01 02A0F    68301D47              BEZ      TST1R             SET SENSE UP TO
    11958   01 02A10    22F04080 A            LI,15    X'4080'           CHECK FOR DUAL ACCESS FLAG       A01
    11959   01 02A11    55F01B53              STH,15   SENMAS+1            AND EXPLICIT RELEASE FLAG      A01
    11960   01 02A12    55F01B57              STH,15   SENEXP+1              IN SENSE DATA                A01
    11961   01 02A13    6AF0053D     T91A     TEST     TSEQ91A           LOAD IOCD ADDRESS
            01 02A14    000029F4
    11962   01 02A15    32FC2A2F              LW,15    T91S,6              AND STORE IT IN PARAMETER T.
    11963   01 02A16    35F02A0A              STW,15   T91IO             ISSUE A CONDITION RELEASE
    11964   01 02A17    32F01B5F              LW,15    DEVADRB              ORDER TO CONTROLLER B  WITH
    11965   01 02A18    49F01BED              OR,15    KX000F                  AND THEN WITHOUT INT. FLAG
    11966   01 02A19    35F01B60              STW,15   DEVADDR
    11967   01 02A1A    35002A08              STW,0    T91WT
    11968   01 02A1B    6AF0053D              TEST     TSEQ91B           EXECUTE COND. RELEASE
            01 02A1C    000029F9
    11969   01 02A1D    32F01B5E              MVW      DEVADRA,DEVADDR   RESTORE DEV. ADR
            01 02A1E    35F01B60
    11970   01 02A1F    6AF0053D              TEST     TSEQ91C           EXECUTE RELEASE ORDER TO A
            01 02A20    00002A01
    11971   01 02A21    35E01B60              STW,14   DEVADDR           EXCHANGE ADDRESS
    11972   01 02A22    32FC2A31              LW,15    T91I,6            SET PARAMETER FOR READY/INT
    11973   01 02A23    35F02A08              STW,15   T91WT               IN PARAMETER TABLE
    11974   01 02A24    6AF0053D              TEST     TSEQ91D           EXECUTE TEST SEQUENCE
            01 02A25    00002A04
    11975   01 02A26    32F01B5E              MVW      DEVADRA,DEVADDR   RESTORE DEVICE ADDRESS
            01 02A27    35F01B60
    11976   01 02A28    20600001 A            LOOP,6   K2,T91A
            01 02A29    31601BDD
            01 02A2A    69102A13
    11977   01 02A2B    68001D47              B        TST1R             RETURN TO TST1 CONTROL  PROG.
    11978                            *
    11979   01 02A2C    00000000 A   T91TH    DATA     0,X'10000000',X'FFFFC000'
            01 02A2D    10000000 A
            01 02A2E    FFFFC000 A
    11980                            *
    11981   01 02A2F    00000EF8     T91S     DATA     IOCDX1F,IOCDX0F
            01 02A30    00000EF7
    11982                            *
    11983   01 02A31    00000001 A   T91I     DATA     1,0
            01 02A32    00000000 A
1 C00   21:47 JUN 20,'83    TELEFILE ROTATING MEMORY TEST 960-0604-H02                            PAGE   97
A   11985                            *
    11986                            *        ***SUBTEST 92***
    11987                            *
    11988   01 02A33    6800200F     T92      B        T18
    11989                            *
1 C00   21:47 JUN 20,'83    TELEFILE ROTATING MEMORY TEST 960-0604-H02                            PAGE   98
A   11991                            *        ***SUBTEST 93***
    11992                            *
    11993   01 02A34    00003E1D     MSID93   DATA     MX119             SEEK TEST
    11994                            *
    11995   01 02A36    01002A34     TSEQ93   ID       MSID93,1          IDENTIFICATION
    11996   01 02A36    11002A34              INH      1
    11997                                     TM                         TEST MODE SELECTION
    11998   01 02A37    00000EF0              IO       IOCD19            SIO WITH IOCD
    11999   01 02A38    00002A3B              ST       STC93,STD93,2     STEPPING TEST
            01 02A39    00002A3C
            01 02A3A    00000002 A
    12000   01 02A35    42400000 A            TEND
    12001                            *
    12002   01 02A3B    001C     A   STC93    DATA,2   X'001C',X'0100'   CONTROL DATA FOR DISK TEST
            01 02A3B 2  0100     A
    12003   01 02A3C    00DC     A   STD93    DATA,2   ST19D-ST0,0       TEST DATA FOR DISK TEST
            01 02A3C 2  0000     A
    12004                            *
    12005                            *
    12006                            *
    12007                            *
    12008                            *
    12009         01 02A3D           T93      EQU      %
    12010   01 02A3D    32401B7B              LW,4     DEVTYPM
    12011   01 02A3E    21400005 A            CI,4     5
    12012   01 02A3F    69202A43              BG       %+4
    12013   01 02A40    32402E25              LW,4     =X'0019809A'
    12014   01 02A41    32F02E2B              LW,15    =X'00CA1309'      DISK A
    12015   01 02A42    68002A45              B        %+3
    12016   01 02A43    32402E24              LW,4     =X'001900CA'
    12017   01 02A44    32F02E2C              LW,15    =X'00CA1209'      DISK 33
    12018   01 02A45    35402FF5              STW,4    ST19MOD1
    12019   01 02A46    35402FF6              STW,4    ST19MOD2
    12020   01 02A47    35F01B72              STW,15   SKADR             SAVE SEEK ADR
    12021   01 02A48    6AF0053D              TEST     TSEQ93
            01 02A49    00002A35
    12022   01 02A4A    32402E2D              LW,4     =600000
    12023   01 02A4B    64402A4B              BDR,4    %                 DELAY 60 MSEC
    12024   01 02A4C    68001D47              B        TST1R             RETURN TO TST1 CONTROL  PROG.
    12025                            *
1 C00   21:47 JUN 20,'83    TELEFILE ROTATING MEMORY TEST 960-0604-H02                            PAGE   99
A   12027                            *        ***SUBTEST 94***                                            A01
    12028                            *                                                                    A01
    12029   01 02A4D    00003F3D     MSID94   DATA     MX190             RESERVE AND RELEASE TEST         A01
    12030                            *                                                                    A01
    12031   01 02A4F    01002A4D     TSEQ94A  ID       MSID94,1          IDENTIFICATION OF SUBTEST        A01
    12032   01 02A50    00000EF4              EX       IOCDX07           SIO WITH IOCD                    A01
    12033   01 02A51    80001E90              IO1      *T1TIO1                     TIO TEST               A01
    12034   01 02A52    80001EA5              IO2      *T1TDV2           TDV TEST                         A01
    12035   01 02A4E    08300000 A            TEND                       END OF TEST SEQUENCE             A01
    12036                            *                                                                    A01
    12037   01 02A54    01002A4D     TSEQ94C  ID       MSID94,1          IDENTIFICATION OF SUBTEST        A01
    12038   01 02A55    00000EFA              EX       IOCDX17           SIO WITH IOCD                    A01
    12039   01 02A56    80001E90              IO1      *T1TIO1                     TIO TEST               A01
    12040   01 02A57    80001EA5              IO2      *T1TDV2           TDV TEST                         A01
    12041   01 02A53    08300000 A            TEND                       END OF TEST SEQUENCE             A01
    12042                            *                                                                    A01
    12043                            *                                                                    A01
    12044         01 02A58           T94      EQU      %                                                  A01
    12045   01 02A58    6AF0053D              TEST     TSEQ94A           EXECUTE RESERVE ORDER            A01
            01 02A59    00002A4E
    12046   01 02A5A    6AF0053D              TEST     TSEQ94C           EXECUTE RELEASE ORDER            A01
            01 02A5B    00002A53
    12047   01 02A5C    68001D47              B        TST1R             RETURN TO TST1 CONTROL  PROG.    A01
    12048                            *                                                                    A01
    12049                            *                                                                    A01
1 C00   21:47 JUN 20,'83    TELEFILE ROTATING MEMORY TEST 960-0604-H02                            PAGE  100
A   12051                            *        ***SUBTEST 99***
    12052                            *
    12053   01 02A5D    00003F49     MSID99   DATA     MX199             DEVICE POWER DOWN TEST
    12054                            *
    12055   01 02A5F    01002A5D     TSEQ99A  ID       MSID99,1          IDENTIFICATION OF SUBTEST
    12056                                     PT
    12057                                     SK
    12058   01 02A60    00000EED              EX       IOCD99A           SIO WITH IOCD
    12059                            *
    12060   01 02A61    80001E90              IO1      *T1TIO1                     TIO TEST
    12061   01 02A62    80001EA5              IO2      *T1TDV2           TDV TEST
    12062                                     SN
    12063   01 02A5E    A8340000 A            TEND                       END OF TEST SEQUENCE
    12064                            *
    12065   01 02A64    01002A5D     TSEQ99B  ID       MSID99,1          IDENTIFICATION OF SUBTEST
    12066                                     PT
    12067                                     SK
    12068   01 02A65    00000EEE              EX       IOCD99B           SIO WITH IOCD
    12069                            *
    12070   01 02A66    80001E90              IO1      *T1TIO1                     TIO TEST
    12071   01 02A67    80001EA5              IO2      *T1TDV2           TDV TEST
    12072                                     SN
    12073                                     CM
    12074   01 02A63    A8360000 A            TEND                       END OF TEST SEQUENCE
    12075                            *
    12076   01 02A69    01002A5D     TSEQ99C  ID       MSID99,1
    12077                                     TM
    12078                                     SK
    12079   01 02A6A    00000EED              IO       IOCDX01
    12080   01 02A6B    00002AAA              ES2      T99X1,T99X2
            01 02A6C    00002AB2
    12081   01 02A6D    00000010 A            IO1      16,0,0
            01 02A6E    00000000 A
            01 02A6F    00000000 A
    12082   01 02A70    0000000F A            IO2      15,0,0
            01 02A71    00000000 A
            01 02A72    00000000 A
    12083                                     SN
    12084   01 02A73    00002AB3              ES3      TDV9X,TDV9E
            01 02A74    00002ABA
    12085   01 02A68    62B50000 A            TEND
    12086                            *
    12087                            *
    12088   01 02A75    00002A5E     T99S     DATA     TSEQ99A,TSEQ99B
            01 02A76    00002A63
    12089   01 02A77    0000     A   T99X     DATA,2   0,1,2,3
            01 02A77 2  0001     A
            01 02A78    0002     A
            01 02A78 2  0003     A
    12090                            *                                   GET RANDOM DATA
    12091   01 02A79    6AF00AB5     T99      BAL,15   #RAND             SELECT RANDOM DATA PATTERN
    12092   01 02A7A    35201B6B              STW,2    PATID             INCR. TEST V. COUNT
    12093   01 02A7B    22F000BF A            LI,15    X'BF'
    12094   01 02A7C    75F41B53              STB,15   SENMAS+1,2
    12095   01 02A7D    3310053C              MTW,1    T1DVCNT           INCREMENT TEST VARIATION COUNT
    12096   01 02A7E    75A61B72     T99A     STB,10   SKADR,3           SECTOR ADDRESS
    12097   01 02A7F    75B41B72              STB,11   SKADR,2           HEAD ADDRESS
    12098   01 02A80    52FC2A77              LH,15    T99X,6            LOAD CYLINDER ADDRESS
    12099   01 02A81    55F01B72              STH,15   SKADR               AND STORE ALL IN SEEK ADR. BUFFER
    12100   01 02A82    32E00AB2     T99C     LW,14    SEED              GET RANDOM SEED
    12101   01 02A83    48E01B72              EOR,14   SKADR               AND MERGE IT WITH SEEK ADDRESS
    12102   01 02A84    35E01B6C              STW,14   PATID+1               AND STORE IT AS PATTERN SEED
    12103   01 02A85    32F01B72              LW,15    SKADR             SKIP SECTOR
    12104   01 02A86    21F20000 A            CI,15    X'20000'             WITH ADDRESS X'20000'
    12105   01 02A87    68302A8C              BE       T99C1             OK: SKIP
    12106   01 02A88    32FE2A75              LW,15    T99S,7            ELSE LOAD TEST SEQUENCE ADDRESS
    12107   01 02A89    35F02A8B              STW,15   %+2                AND STORE IT IN LOC.
    12108   01 02A8A    6AF0053D              TEST     TSEQ00            EXECUTE TEST SEQUNCE
            01 02A8B    00001ED3
    12109   01 02A8C    20A00001 A   T99C1    LOOP,10  ADR3,T99A         LOOP FOR SECTORS
            01 02A8D    31A01B75
            01 02A8E    69102A7E
    12110   01 02A8F    22A00000 A            LI,10    0                 RESET INDEX
    12111   01 02A90    20B00001 A            LOOP,11  ADR2,T99A         LOOP FOR HEADS
            01 02A91    31B01B74
            01 02A92    69102A7E
    12112   01 02A93    22B00000 A            LI,11    0                 RESET INDEX
    12113   01 02A94    20600001 A            LOOP,6   K4,T99A           LOOP FOR CYLINDERS
            01 02A95    31601BDF
            01 02A96    69102A7E
    12114   01 02A97    33000007 A            MTW,0    7                 RESET INDEX
    12115   01 02A98    69301D47              BNEZ     TST1R             CHECK LOOP COUNT REG.7
    12116   01 02A99    3310053C              MTW,1    T1DVCNT           N0: READ PHASE
    12117   01 02A9A    22600000 A            LI,6     0                 ISSUE DEVICE POWER DOWN DURING
    12118   01 02A9B    22F20000 A            LI,15    X'20000'            WRITE OPERATION TO SECTOR
    12119   01 02A9C    35F01B72              STW,15   SKADR                 WITH ADDRESS X'20000'.
    12120   01 02A9D    22F00480 A            LI,15    X'0480'           TEST MODE SELECTION BUFFER
    12121   01 02A9E    55F01B71              STH,15   TMODB             SPECIAL DEVICE TEST MODE
    12122   01 02A9F    22F00200 A            LI,15    X'0200'
    12123   01 02AA0    55F21B57              STH,15   SENEXP+1,1
    12124   01 02AA1    22F00040 A            LI,15    X'0040'
    12125   01 02AA2    55F01B58              STH,15   SENEXP+2
    12126   01 02AA3    6AF0053D              TEST     TSEQ99C
            01 02AA4    00002A68
    12127   01 02AA5    55021B57              STH,0    SENEXP+1,1
    12128   01 02AA6    55001B58              STH,0    SENEXP+2
    12129   01 02AA7    75001B71              STB,0    TMODB             TEST MODE SELECTION BUFFER
    12130   01 02AA8    33100007 A            MTW,1    7
    12131   01 02AA9    68002A7E              B        T99A
    12132                            *
    12133                            *                                   SET DELAY TIMER
    12134   01 02AAA    22507D00 A   T99X1    LI,5     32000             LOOP
    12135   01 02AAB    64502AAE              BDR,5    %+3               TIME 0UT: ABORT
    12136   01 02AAC    33100524              MTW,1    T1DEAB            ERROR RETURN
    12137   01 02AAD    E802000A A            B        *10,1             ISSUE SPECIAL TDV
    12138   01 02AAE    6AF0291F              BAL,15   TDVA12              TO CHECK FOR WRITE DATA PHASE
    12139   01 02AAF    72D0000D A            LB,13    13
    12140   01 02AB0    21D00028 A            CI,13    X'28'
    12141   01 02AB1    69302AAB              BNE      T99X1+1
    12142   01 02AB2    E800000A A   T99X2    B        *10
    12143                            *
    12144   01 02AB3    22402ABF     TDV9X    LI,4     TDV9D
    12145   01 02AB4    6AF009B1              BAL,15   #IOEX             BRANCH TO IO EXECUTE ROUTINE
    12146   01 02AB5    68002AB6              B        %+1
    12147   01 02AB6    22402AC4              LI,4     TDV9F
    12148   01 02AB7    6AF009B1              BAL,15   #IOEX             BRANCH TO IO EXECUTE ROUTINE
    12149   01 02AB8    E800000A A            B        *10
    12150   01 02AB9    E802000A A            B        *10,1
    12151   01 02ABA    22402ABF     TDV9E    LI,4     TDV9D
    12152   01 02ABB    6AF009DB              BAL,15   #IOCP             EXECUTE IO COMPARE AND PRINT ROUT.
    12153   01 02ABC    22402AC4              LI,4     TDV9F
    12154   01 02ABD    6AF009DB              BAL,15   #IOCP             EXECUTE IO COMPARE AND PRINT ROUT.
    12155   01 02ABE    E800000A A            B        *10
    12156                            *
    12157   01 02ABF    00000000 A   TDV9D    DATA     0,14,0,0,0
            01 02AC0    0000000E A
            01 02AC1    00000000 A
            01 02AC2    00000000 A
            01 02AC3    00000000 A
    12158   01 02AC4    00000000 A   TDV9F    DATA     0,2,0,X'C000',0
            01 02AC5    00000002 A
            01 02AC6    00000000 A
            01 02AC7    0000C000 A
            01 02AC8    00000000 A
    12159                            *
    12160                            *
1 C00   21:47 JUN 20,'83    TELEFILE ROTATING MEMORY TEST 960-0604-H02                            PAGE  101
A   12162                            *        ***SUBTEST 100***
    12163                            *
    12164   01 02AC9    00003F4E     MSID100  DATA     MX1100            WRITE PROTECT TEST
    12165                            *
    12166   01 02ACB    01002AC9     TSEQ100A ID       MSID100,1         IDENTIFICATION OF SUBTEST
    12167                                     SK
    12168   01 02ACC    00002AF8              ES1      T100X1,T100X2
            01 02ACD    00002AFE
    12169   01 02ACE    00000EED              IO       IOCD100           SIO WITH IOCD
    12170   01 02ACF    00000002 A            WT       DLY,30
            01 02AD0    0000001E A
    12171   01 02AD1    80001E93              IO1      *T1TIO2           TIO TEST
    12172   01 02AD2    00000004 A            IO2      TDV,X'10000000',X'FFFFC000'
            01 02AD3    10000000 A
            01 02AD4    FFFFC000 A
    12173                                     SN
    12174   01 02ACA    27340000 A            TEND                       END OF TEST SEQUENCE
    12175                            *
    12176                            *
    12177   01 02AD6    01002AC9     TSEQ100B ID       MSID100,1         IDENTIFICATION OF SUBTEST
    12178                                     TM
    12179   01 02AD7    00000EED              IO       IOCD100           SIO WITH IOCD
    12180   01 02AD8    00000000 A   TSEQ100Z WT       RDY,30,IOCD100,X'3E0' WAIT 30 MSEC FOR READY
            01 02AD9    0000001E A
            01 02ADA    00000EED
            01 02ADB    000003E0 A
    12181   01 02ADC    80001E93              IO1      *T1TIO2           TIO TEST
    12182   01 02ADD    00000014 A            IO2      TDV15,X'04004000',X'FFFFC000'
            01 02ADE    04004000 A
            01 02ADF    FFFFC000 A
    12183   01 02AE0    0000000F A            IO3      TDV10,0,0
            01 02AE1    00000000 A
            01 02AE2    00000000 A
    12184                                     SN
    12185   01 02AE3    00002AB3              ES3      TDV9X,TDV9E
            01 02AE4    00002ABA
    12186   01 02AD5    433D0000 A            TEND                       END OF TEST SEQUENCE
    12187                            *
    12188   01 02AE5    3510053C     T100     STW,1    T1DVCNT
    12189   01 02AE6    55001B58              STH,0    SENEXP+2
    12190   01 02AE7    55601B72              STH,6    SKADR             SEEK ADDRESS BUFFER
    12191   01 02AE8    22F08000 A            LI,15    X'8000'
    12192   01 02AE9    30F00006 A            AW,15    6
    12193   01 02AEA    55F01B56              STH,15   SENEXP
    12194   01 02AEB    6AF0053D              TEST     TSEQ100A          EXECUTE WRITE TO CHECK CONTROLLER
            01 02AEC    00002ACA
    12195   01 02AED    22F00040 A            LI,15    X'0040'            WRITE PROTECT LOGIC.
    12196   01 02AEE    55F01B58              STH,15   SENEXP+2
    12197   01 02AEF    3520053C              STW,2    T1DVCNT           EXECUTE WRITE TO CHECK DEVICE
    12198   01 02AF0    6AF0053D              TEST     TSEQ100B            WRITE PROTECT LOGIC.
            01 02AF1    00002AD5
    12199   01 02AF2    33001B70              MTW,0    DEVTYP            DEVICE TYPE
    12200   01 02AF3    68301D47              BEZ      TST1R             RETURN TO TST1 CONTROL  PROG.
    12201   01 02AF4    20600001 A            LOOP,6   ADR2,T100
            01 02AF5    31601B74
            01 02AF6    69102AE5
    12202   01 02AF7    68001D47              B        TST1R             RETURN TO TST1 CONTROL  PROG.
    12203                            *
    12204   01 02AF8    31300527     T100X1   CW,3     T1DLCNT
    12205   01 02AF9    E910000A A            BL       *10
    12206   01 02AFA    EAF00223              BAL,15   *:TYPE
    12207   01 02AFB    00002AFF              DATA     T100M
    12208   01 02AFC    EAF00219              BAL,15   *:1BYTEIN
    12209   01 02AFD    00000000 A            DATA     0
    12210   01 02AFE    E800000A A   T100X2   B        *10
    12211                            *
    12212         01 02AFF           T100M    TEXTCS   'SET ALL WRITE PROTECT SWITCHES FOR THIS TEST'
    12213                            *
1 C00   21:47 JUN 20,'83    TELEFILE ROTATING MEMORY TEST 960-0604-H02                            PAGE  102
A   12215                            *        ***SUBTEST 101***
    12216                            *
    12217   01 02B0B    00003F52     MSID101  DATA     MX1101            ATTENTION INTERRUPT TEST
    12218                            *
    12219   01 02B0D    01002B0B     TSEQ101  ID       MSID101,1         IDENTIFICATION OF SUBTEST
    12220   01 02B0E    00002B1B              ES1      T101X1,T101X2
            01 02B0F    00002B24
    12221   01 02B10    00000001 A            WT       INT,12000,IOCDX33,0,X'40000000',X'FFFFC000'
            01 02B11    00002EE0 A
            01 02B12    00000EFB
            01 02B13    00000000 A
            01 02B14    40000000 A
            01 02B15    FFFFC000 A
    12222   01 02B16    80001E90              IO1      *T1TIO1                     TIO TEST
    12223   01 02B17    80001EA5              IO2      *T1TDV2           TDV TEST
    12224                                     SN
    12225   01 02B0C    05340000 A            TEND                       END OF TEST SEQUENCE
    12226                            *
    12227                            *
    12228   01 02B18    6AF0053D     T101     TEST     TSEQ101
            01 02B19    00002B0C
    12229   01 02B1A    68001D47              B        TST1R             RETURN TO TST1 CONTROL  PROG.
    12230                            *
    12231         01 02B1B           T101X1   EQU      %
    12232   01 02B1B    EAF00223              BAL,15   *:TYPE
    12233   01 02B1C    00002B25              DATA     T101M
    12234   01 02B1D    32F01B7B              LW,15    DEVTYPM           IS IT DISK 33
    12235   01 02B1E    21F00007 A            CI,15    7
    12236   01 02B1F    69302B22              BNE      %+3               NO - BYPASS MESSAGE
    12237   01 02B20    EAF00223              BAL,15   *:TYPE            PRINT MESSAGE
    12238   01 02B21    00002B2B              DATA     T101N             POWER OFF/ON
    12239   01 02B22    EAF00219              BAL,15   *:1BYTEIN
    12240   01 02B23    00000000 A            DATA     0
    12241   01 02B24    E800000A A   T101X2   B        *10
    12242                            *
    12243         01 02B25           T101M    TEXTCS   'SET ATTENTION INTERRUPT'
    12244         01 02B2B           T101N    TEXTCS   'START OFF/ON - WAIT FOR READY'
    12245                            *
1 C00   21:47 JUN 20,'83    TELEFILE ROTATING MEMORY TEST 960-0604-H02                            PAGE  103
A   12247                            *        ***SUBTEST 102***
    12248                            *
    12249   01 02B33    00003F56     MSID102  DATA     MX1102            NOT OPERATIONAL TEST
    12250                            *
    12251   01 02B35    01002B33     TSEQ102  ID       MSID102,1         IDENTIFICATION OF SUBTEST
    12252                                     TM
    12253   01 02B36    00002B4A              ES1      T102X1,T102X2
            01 02B37    00002B4E
    12254   01 02B38    00000001 A            IO1      TIO,0,0
            01 02B39    00000000 A
            01 02B3A    00000000 A
    12255   01 02B3B    0000000D A            IO2      TDV8,X'4000',X'C000'     READ FAULT STATUS
            01 02B3C    00004000 A
            01 02B3D    0000C000 A
    12256   01 02B3E    0000000F A            IO3      TDV10,0,0
            01 02B3F    00000000 A
            01 02B40    00000000 A
    12257                                     SN
    12258   01 02B41    00002AB3              ES3      TDV9X,TDV9E
            01 02B42    00002ABA
    12259   01 02B34    443D0000 A            TEND                       END OF TEST SEQUENCE
    12260                            *
    12261                            *
    12262   01 02B43    35101B7D     T102     STW,1    DISPLAY
    12263   01 02B44    35001B53              STW,0    SENMAS+1
    12264   01 02B45    35001B54              STW,0    SENMAS+2
    12265   01 02B46    6AF0053D              TEST     TSEQ102
            01 02B47    00002B34
    12266   01 02B48    35001B7D              STW,0    DISPLAY
    12267   01 02B49    68001D47              B        TST1R             RETURN TO TST1 CONTROL  PROG.
    12268                            *
    12269         01 02B4A           T102X1   EQU      %
    12270   01 02B4A    EAF00223              BAL,15   *:TYPE
    12271   01 02B4B    00002B4F              DATA     T102M
    12272   01 02B4C    EAF00219              BAL,15   *:1BYTEIN
    12273   01 02B4D    00000000 A            DATA     0
    12274   01 02B4E    E800000A A   T102X2   B        *10
    12275                            *
    12276         01 02B4F           T102M    TEXTCS   'SET ANY DEVICE ERROR: INTERLOCK ERROR,ENVIR. ERROR'
1 C00   21:47 JUN 20,'83    TELEFILE ROTATING MEMORY TEST 960-0604-H02                            PAGE  104
A   12278                            *        ***SUBTEST 104***
    12279                            *
    12280   01 02B5C    00003F5C     MSID104  DATA     MX1104      WRITE ORDER: MULTIPLE SECTOR WRITE TEST
    12281                            *
    12282   01 02B5E    01002B5C     TSEQ104A ID       MSID104,1         IDENTIFICATION OF SUBTEST
    12283   01 02B5E    31002B5C              INH      3                 PRINT AND LOOP
    12284                                     SK
    12285   01 02B5F    00000F41              IO       IOCD104A          SIO WITH IOCD
    12286   01 02B60    00000001 A   TSEQ104Y WT       INT,600,IOCD104A,X'3E0',X'84000',X'FFFFC000'
            01 02B61    00000258 A
            01 02B62    00000F41
            01 02B63    000003E0 A
            01 02B64    00084000 A
            01 02B65    FFFFC000 A
    12287   01 02B66    80001E93              IO1      *T1TIO2           TIO TEST
    12288   01 02B67    80001EB7              IO2      *T1TDV8
    12289                                     SN
    12290   01 02B5D    23340000 A            TEND                       END OF TEST SEQUENCE
    12291                            *
    12292   01 02B69    01002B5C     TSEQ104C ID       MSID104,1         IDENTIFICATION OF SUBTEST
    12293   01 02B69    31002B5C              INH      3                 PRINT AND LOOP
    12294                                     SK
    12295   01 02B6A    00000F45              IO       IOCD104C          SIO WITH IOCD
    12296   01 02B6B    00000001 A   TSEQ104Z WT       INT,600,IOCD104C,X'3E0',X'84000',X'FFFFC000'
            01 02B6C    00000258 A
            01 02B6D    00000F45
            01 02B6E    000003E0 A
            01 02B6F    00084000 A
            01 02B70    FFFFC000 A
    12297   01 02B71    80001E93              IO1      *T1TIO2           TIO TEST
    12298   01 02B72    80001EB7              IO2      *T1TDV8
    12299                                     SN
    12300   01 02B68    23340000 A            TEND                       END OF TEST SEQUENCE
    12301                            *
    12302   01 02B74    01002B5C     TSEQ104B ID       MSID104,1         IDENTIFICATION OF SUBTEST
    12303   01 02B74    31002B5C              INH      3
    12304                                     SK
    12305   01 02B75    00000F43              IO       IOCD104B          SIO WITH IOCD
    12306   01 02B76    00000001 A            WT       INT,600,IOCD104B,X'400',X'84000',X'FFFFC000'
            01 02B77    00000258 A
            01 02B78    00000F43
            01 02B79    00000400 A
            01 02B7A    00084000 A
            01 02B7B    FFFFC000 A
    12307   01 02B7C    80001E93              IO1      *T1TIO2           TIO TEST
    12308   01 02B7D    80001EB7              IO2      *T1TDV8
    12309                                     CM
    12310                                     SN
    12311   01 02B73    23360000 A            TEND                       END OF TEST SEQUENCE
    12312                            *
    12313                            *
    12314   01 02B7F    01002B5C     TSEQ104D ID       MSID104,1         IDENTIFICATION OF SUBTEST
    12315   01 02B7F    11002B5C              INH      1
    12316   01 02B80    00002B82              ES3      T104X,T104E
            01 02B81    00002B85
    12317   01 02B7E    00010000 A            TEND
    12318                            *
    12319   01 02B82    33002B8A     T104X    MTW,0    T104EF
    12320   01 02B83    E830000A A            BEZ      *10
    12321   01 02B84    E802000A A            B        *10,1
    12322   01 02B85    32F02B8A     T104E    MVW      T104EF,VDEC4A
            01 02B86    35F00EE3
    12323   01 02B87    6AF00B7B              SEND     MX550
            01 02B88    00004039
    12324   01 02B89    E800000A A            B        *10
    12325                            *
    12326   01 02B8A    00000000 A   T104EF   DATA     0
    12327   01 02B8B    00002B5D     T104SEQ  DATA     TSEQ104A,TSEQ104B,TSEQ104C,TSEQ104B,TSEQ104B       A02
            01 02B8C    00002B73
            01 02B8D    00002B68
            01 02B8E    00002B73
            01 02B8F    00002B73
    12328   01 02B90    00002B73              DATA     TSEQ104B,TSEQ104B,TSEQ104B,TSEQ104B,TSEQ104B
            01 02B91    00002B73
            01 02B92    00002B73
            01 02B93    00002B73
            01 02B94    00002B73
    12329   01 02B95    00002B73              DATA     TSEQ104B                                           A02
    12330                            *
    12331         01 02B96           T104ORG  EQU      %                                                  A02
    12332   01 00241                          ORG      X'241'                                             A02
            01 00241
    12333   01 00241    00000002 A   T104L    DATA     2                                                  A02
    12334   01 02B96                          ORG      T104ORG                                            A02
            01 02B96
    12335                            *
    12336         01 02B96           T104     EQU      %
    12337   01 02B96    35002B8A              STW,0    T104EF
    12338   01 02B97    224FFFFD A            LI,4     -3
    12339   01 02B98    32F8045D              LW,15    :DATAP1+3,4
    12340   01 02B99    35F81B6E              STW,15   PATID+3,4
    12341   01 02B9A    65402B98              BIR,4    %-2
    12342   01 02B9B    22F0F7FF A            LI,15    X'F7FF'
    12343   01 02B9C    55F01B54              STH,15   SENMAS+2
    12344   01 02B9D    6AF00B44              BAL,15   #PATT
    12345   01 02B9E    68002BA7              B        T104A
    12346   01 02B9F                          RES      8
    12347         01 02BA7           T104A    EQU      %
    12348   01 02BA7    32FE2B8B              LW,15    T104SEQ,7
    12349   01 02BA8    35F02BAD              STW,15   T104B+1
    12350   01 02BA9    35000006 A            STW,0    6
    12351         01 02BAA           T104A2   EQU      %
    12352   01 02BAA    35001B72              STW,0    SKADR
    12353   01 02BAB    55601B72              STH,6    SKADR
    12354   01 02BAC    6AF0053D     T104B    TEST     TSEQ00
            01 02BAD    00001ED3
    12355   01 02BAE    3300052A              MTW,0    T1DCE
    12356   01 02BAF    68302BC6              BEZ      T104C
    12357   01 02BB0    32F00848              LW,15    T1DIO2+4
    12358   01 02BB1    4BF02DE7              AND,15   =X'FF000000'                                       A02
    12359   01 02BB2    31F01BF7              CW,15    KY4000            FLAWMARK ?
    12360   01 02BB3    68302BBD              BE       T104B1                                             A01
    12361   01 02BB4    22F02BB6              LI,15    %+2
    12362   01 02BB5    35F00537              STW,15   T1DS+11
    12363   01 02BB6    68000585              B        T1DE2
    12364   01 02BB7    33102B8A              MTW,1    T104EF
    12365   01 02BB8    32F01B5A              MVW      SENOBS,SKADR
            01 02BB9    35F01B72
    12366   01 02BBA    6AF0053D              TEST     TSEQRS            ISSUE RESTORE                    A02
            01 02BBB    00001D1E
    12367   01 02BBC    68002BC2              B        T104B2
    12368                            *
    12369   01 02BBD    32F01B5A     T104B1   LW,15    SENOBS
    12370   01 02BBE    4BF02DE6              AND,15   =X'FFFFFF00'
    12371   01 02BBF    20F00100 A            AI,15    X'100'
    12372   01 02BC0    35F01B72              STW,15   SKADR
    12373   01 02BC1    68002BC2              B        T104B2
    12374                            *
    12375   01 02BC2    72F41B72     T104B2   LB,15    SKADR,2
    12376   01 02BC3    31F01B74              CW,15    ADR2              MAX. HEAD ADDRESS
    12377   01 02BC4    69102BAC              BL       T104B
    12378   01 02BC5    68002BC6              B        T104C
    12379                            *
    12380         01 02BC6           T104C    EQU      %
    12381   01 02BC6    20600001 A            LOOP,6   ADR1,T104A2
            01 02BC7    31601B73
            01 02BC8    69102BAA
    12382   01 02BC9    20700001 A            LOOP,7   T104L,T104A
            01 02BCA    31700241
            01 02BCB    69102BA7
    12383   01 02BCC    6AF0053D              TEST     TSEQ104D
            01 02BCD    00002B7E
    12384   01 02BCE    68001D47              B        TST1R             RETURN TO TST1 CONTROL  PROG.
    12385                            *
    12386                            *
1 C00   21:47 JUN 20,'83    TELEFILE ROTATING MEMORY TEST 960-0604-H02                            PAGE  105
A   12388                            *        ***SUBTEST 105***
    12389                            *
    12390   01 02BCF    00003F69     MSID105  DATA     MX1105            READ STROBE TEST
    12391                            *
    12392   01 02BD1    01002BCF     TSEQ105A ID       MSID105,1         IDENTIFICATION OF SUBTEST
    12393   01 02BD1    31002BCF              INH      3                 PRINT AND LOOP
    12394                                     SK
    12395   01 02BD2    00000F41              IO       IOCD104A          SIO WITH IOCD
    12396   01 02BD3    00000001 A            WT       INT,600,IOCD104A,X'3E0',X'84000',X'FFFFC000'
            01 02BD4    00000258 A
            01 02BD5    00000F41
            01 02BD6    000003E0 A
            01 02BD7    00084000 A
            01 02BD8    FFFFC000 A
    12397   01 02BD9    80001E93              IO1      *T1TIO2           TIO TEST
    12398   01 02BDA    80001EB7              IO2      *T1TDV8
    12399                                     SN
    12400   01 02BD0    23340000 A            TEND                       END OF TEST SEQUENCE
    12401                            *
    12402   01 02BDC    01002BCF     TSEQ105C ID       MSID105,1         IDENTIFICATION OF SUBTEST
    12403   01 02BDC    31002BCF              INH      3                 PRINT AND LOOP
    12404                                     SK
    12405   01 02BDD    00000F45              IO       IOCD104C          SIO WITH IOCD
    12406   01 02BDE    00000001 A            WT       INT,600,IOCD104C,X'3E0',X'84000',X'FFFFC000'
            01 02BDF    00000258 A
            01 02BE0    00000F45
            01 02BE1    000003E0 A
            01 02BE2    00084000 A
            01 02BE3    FFFFC000 A
    12407   01 02BE4    80001E93              IO1      *T1TIO2           TIO TEST                        *A3
    12408   01 02BE5    80001EB7              IO2      *T1TDV8
    12409                                     SN
    12410   01 02BDB    23340000 A            TEND                       END OF TEST SEQUENCE
    12411                            *
    12412   01 02BE7    01002BCF     TSEQ105B ID       MSID105,1         IDENTIFICATION OF SUBTEST
    12413   01 02BE7    31002BCF              INH      3
    12414                                     SK
    12415   01 02BE8    00000F43              IO       IOCD104B          SIO WITH IOCD
    12416   01 02BE9    00000001 A            WT       INT,600,IOCD104B,X'400',X'84000',X'FFFFC000'
            01 02BEA    00000258 A
            01 02BEB    00000F43
            01 02BEC    00000400 A
            01 02BED    00084000 A
            01 02BEE    FFFFC000 A
    12417   01 02BEF    80001E93              IO1      *T1TIO2           TIO TEST
    12418   01 02BF0    80001EB7              IO2      *T1TDV8
    12419                                     CM
    12420                                     SN
    12421   01 02BE6    23360000 A            TEND                       END OF TEST SEQUENCE
    12422                            *
    12423                            *
    12424   01 02BF2    01002BCF     TSEQ105D ID       MSID105,1         IDENTIFICATION OF SUBTEST
    12425   01 02BF2    11002BCF              INH      1
    12426   01 02BF3    00002BFB              ES3      T105X,T105E
            01 02BF4    00002BFE
    12427   01 02BF1    00010000 A            TEND                                                       A03
    12428   01 02BF6    01002BCF     TSEQ105E ID       MSID105,1
    12429   01 02BF6    11002BCF              INH      1
    12430                                     TM
    12431   01 02BF7    00000010 A            IO1      16,0,0
            01 02BF8    00000000 A
            01 02BF9    00000000 A
    12432   01 02BFA    80001EC0              IO2      *T1HIO1
    12433   01 02BF5    40300000 A            TEND
    12434                            *
    12435   01 02BFB    33002C03     T105X    MTW,0    T105EF
    12436   01 02BFC    E830000A A            BEZ      *10
    12437   01 02BFD    E802000A A            B        *10,1
    12438   01 02BFE    32F02C03     T105E    MVW      T105EF,VDEC4A
            01 02BFF    35F00EE3
    12439   01 02C00    6AF00B7B              SEND     MX550
            01 02C01    00004039
    12440   01 02C02    E800000A A            B        *10
    12441                            *
    12442   01 02C03    00000000 A   T105EF   DATA     0
    12443   01 02C04    00002BD0     T105SEQ  DATA     TSEQ105A,TSEQ105B,TSEQ105C,TSEQ105B,TSEQ105B
            01 02C05    00002BE6
            01 02C06    00002BDB
            01 02C07    00002BE6
            01 02C08    00002BE6
    12444   01 02C09    00002BE6              DATA     TSEQ105B,TSEQ105B,TSEQ105B,TSEQ105B,TSEQ105B
            01 02C0A    00002BE6
            01 02C0B    00002BE6
            01 02C0C    00002BE6
            01 02C0D    00002BE6
    12445   01 02C0E    00002BE6              DATA     TSEQ105B
    12446   01 02C0F    04400420 A   T105TM   DATA     X'04400420'
    12447                            *
    12448         01 02C10           T105ORG  EQU      %
    12449   01 00242                          ORG      X'242'
            01 00242
    12450   01 00242    00000002 A   T105L    DATA     2
    12451   01 02C10                          ORG      T105ORG
            01 02C10
    12452                            *
    12453         01 02C10           T105     EQU      %
    12454   01 02C10    35002C03              STW,0    T105EF
    12455   01 02C11    224FFFFD A            LI,4     -3
    12456   01 02C12    32F8045D              LW,15    :DATAP1+3,4
    12457   01 02C13    35F81B6E              STW,15   PATID+3,4
    12458   01 02C14    65402C12              BIR,4    %-2
    12459   01 02C15    22F0F7FF A            LI,15    X'F7FF'
    12460   01 02C16    55F01B54              STH,15   SENMAS+2
    12461   01 02C17    6AF00B44              BAL,15   #PATT
    12462   01 02C18    22500000 A            LI,5     0
    12463         01 02C19           T105A1   EQU      %
    12464   01 02C19    52FA2C0F              LH,15    T105TM,5
    12465   01 02C1A    55F01B71              STH,15   TMODB
    12466   01 02C1B    22700000 A            LI,7     0
    12467         01 02C1C           T105A    EQU      %
    12468   01 02C1C    32FE2C04              LW,15    T105SEQ,7
    12469   01 02C1D    35F02C24              STW,15   T105B+1
    12470   01 02C1E    35000006 A            STW,0    6
    12471         01 02C1F           T105A2   EQU      %
    12472   01 02C1F    35001B72              STW,0    SKADR
    12473   01 02C20    55601B72              STH,6    SKADR
    12474         01 02C21           T105A3   EQU      %
    12475   01 02C21    6AF0053D              TEST     TSEQ105E
            01 02C22    00002BF5
    12476   01 02C23    6AF0053D     T105B    TEST     TSEQ00
            01 02C24    00001ED3
    12477   01 02C25    3300052A              MTW,0    T1DCE
    12478   01 02C26    68302C3D              BEZ      T105C
    12479   01 02C27    32F00848              LW,15    T1DIO2+4
    12480   01 02C28    4BF02DE7              AND,15   =X'FF000000'
    12481   01 02C29    31F01BF7              CW,15    KY4000            FLAWMARK ?
    12482   01 02C2A    68302C34              BE       T105B1
    12483   01 02C2B    22F02C2D              LI,15    %+2
    12484   01 02C2C    35F00537              STW,15   T1DS+11
    12485   01 02C2D    68000585              B        T1DE2
    12486   01 02C2E    33102C03              MTW,1    T105EF
    12487   01 02C2F    32F01B5A              MVW      SENOBS,SKADR
            01 02C30    35F01B72
    12488   01 02C31    6AF0053D              TEST     TSEQRS            ISSUE RESTORE
            01 02C32    00001D1E
    12489   01 02C33    68002C39              B        T105B2
    12490                            *
    12491   01 02C34    32F01B5A     T105B1   LW,15    SENOBS
    12492   01 02C35    4BF02DE6              AND,15   =X'FFFFFF00'
    12493   01 02C36    20F00100 A            AI,15    X'100'
    12494   01 02C37    35F01B72              STW,15   SKADR
    12495   01 02C38    68002C39              B        T105B2
    12496                            *
    12497   01 02C39    72F41B72     T105B2   LB,15    SKADR,2
    12498   01 02C3A    31F01B74              CW,15    ADR2              MAX. HEAD ADDRESS
    12499   01 02C3B    69102C21              BL       T105A3
    12500   01 02C3C    68002C3D              B        T105C
    12501                            *
    12502         01 02C3D           T105C    EQU      %
    12503   01 02C3D    20600001 A            LOOP,6   ADR1,T105A2
            01 02C3E    31601B73
            01 02C3F    69102C1F
    12504   01 02C40    20700001 A            LOOP,7   T105L,T105A
            01 02C41    31700242
            01 02C42    69102C1C
    12505   01 02C43    6AF0053D              TEST     TSEQ105D
            01 02C44    00002BF1
    12506   01 02C45    20500001 A            LOOP,5   2,T105A1
            01 02C46    31500002 A
            01 02C47    69102C19
    12507   01 02C48    68001D47              B        TST1R             RETURN TO TST1 CONTROL PROG.
    12508                            *
1 C00   21:47 JUN 20,'83    TELEFILE ROTATING MEMORY TEST 960-0604-H02                            PAGE  106
A   12510                            *        *** SUBTEST 106 ***
    12511                            *
    12512   01 02C49    00003F6D     MSID106  DATA     MX1106            HEAD ALIGNMENT TEST
    12513                            *
    12514   01 02C4B    01002C49     TSEQ106A ID       MSID106,1         IDENTIFICATION OF SUBTEST
    12515                                     SK                         POSITION TO TEST CYL. 245
    12516   01 02C4A    20000000 A            TEND                       END OF TEST SEQUENCE
    12517                            *
    12518   01 02C4D    01002C49     TSEQ106B ID       MSID106,1         IDENTIFICATION OF SUBTEST
    12519   01 02C4D    11002C49              INH      1                 NO LOOPING ALLOWED
    12520                                     TM                         INCREMENTAL DEV. TEST MODE
    12521   01 02C4E    00000EF0              IO       IOCDX03           SELECT HEAD
    12522   01 02C4F    00002C7B              ES2      T106X1,T106X2     STEP SEEK ORDER
            01 02C50    00002C7D
    12523   01 02C51    00000002 A            IO1      HIO,0,0           RESET CONTROLLER BUSY
            01 02C52    00000000 A
            01 02C53    00000000 A
    12524   01 02C4C    42A00000 A            TEND                       END OF TEST SEQUENCE
    12525                            *
    12526   01 02C55    01002C49     TSEQ106C ID       MSID106,1         IDENTIFICATION OF SUBTEST
    12527   01 02C55    11002C49              INH      1                 NO LOOPING ALLOWED
    12528                                     TM                         INCREMENTAL DEV TEST MODE
    12529                            *                                   (SET DIAGNOSTIC MODE)
    12530   01 02C56    00000EF0              IO       IOCDX03           TRANSFER OFFSET VALUE
    12531   01 02C57    00002C7E              ES2      T106X3,T106X4     SET DEVICE INTO DIAG.MODE
            01 02C58    00002C83
    12532                            *                                   READ SIGN FROM DEVICE
    12533                            *                                   STEP SEEK ORDER
    12534   01 02C59    00000002 A            IO1      HIO,0,0           RESET CONTROLLER BUSY
            01 02C5A    00000000 A
            01 02C5B    00000000 A
    12535   01 02C54    42A00000 A            TEND                       END OF TEST SEQUENCE
    12536                            *
    12537   01 02C5D    01002C49     TSEQ106D ID       MSID106,1         IDENTIFICATION OF SUBTEST
    12538   01 02C5D    11002C49              INH      1                 NO LOOPING ALLOWED
    12539                                     TM                         INCREMENTAL DEV TEST MODE
    12540                            *                                   (OFFSET THE HEADS)
    12541   01 02C5E    00000EF0              IO       IOCDX03
    12542   01 02C5F    00002C84              ES2      T106X5,T106X6     OFFSET THE HEADS
            01 02C60    00002C8B
    12543                            *                                   WAIT UNTIL ON CYLINDER
    12544                            *                                   READ SIGN FROM DEVICE
    12545   01 02C61    00000002 A            IO1      HIO,0,0           RESET CONTROLLER BUSY
            01 02C62    00000000 A
            01 02C63    00000000 A
    12546   01 02C5C    42A00000 A            TEND                       END OF TEST SEQUENCE
    12547                            *
    12548   01 02C65    01002C49     TSEQ106E ID       MSID106,1         IDENTIFICATION OF SUBTEST
    12549   01 02C65    11002C49              INH      1                 NO LOOPING ALLOWED
    12550                                     TM                         INCREMENTAL DEV TEST MODE
    12551                            *                                   (RESET HEAD OFFSET)
    12552   01 02C66    00000EF0              IO       IOCDX03
    12553   01 02C67    00002C8C              ES2      T106X7,T106X8     RESET HEAD OFFSET
            01 02C68    00002C8E
    12554                            *                                   WAIT UNTIL ON CYLINDER
    12555   01 02C69    00000002 A            IO1      HIO,0,0           RESET CONTROLLER BUSY
            01 02C6A    00000000 A
            01 02C6B    00000000 A
    12556   01 02C64    42A00000 A            TEND
    12557                            *
    12558                            *
    12559   01 02C6C    00F50000 A   T106SAI  GEN,16,16  245,0           TEST CYLINCER
    12560   01 02C6D    00F00000 A   T106SAJ  GEN,16,16  240,0
    12561   01 02C6E    00000000 A   T106SAO  DATA     0                 OFFSET ADDR
    12562   01 02C6F    00000000 A   T106SAH  DATA     0                 OFFSET HEAD
    12563   01 02C70    00000000 A   T106TEMP DATA     0,0,0,0           TEMPORARY STORAGE
            01 02C71    00000000 A
            01 02C72    00000000 A
            01 02C73    00000000 A
    12564                            *
    12565   01 02C74    00000000 A   T106SADP DATA     0                 DIRECTION AND POLARITY
    12566   01 02C75    00000000 A   T106SAOI DATA     0                 INITIAL OFFSET VALUE
    12567   01 02C76    00000000 A   T106SIN1 DATA     0                 INITIAL SIGN (FROM ZERO OFFSET)
    12568   01 02C77    00000000 A   T106SIN2 DATA     0                 FINAL SIGN
    12569   01 02C78    00000000 A   T106SIN3 DATA     0                 CURRENT INITIAL SIGN
    12570   01 02C79    00000000 A   T106BUF1 DATA     0                 CURRENT BUF1 ADR
    12571   01 02C7A    00000000 A   T106OFFS DATA     0                 CURRENT SIGN
    12572   01 02C7B    22500054 A   T106X1   LI,5     84                INDEX
    12573   01 02C7C    6AF02CA9              BAL,15   T106TDVF          TDV DEV ADR F
    12574   01 02C7D    E800000A A   T106X2   B        *10               EXIT
    12575                            *
    12576   01 02C7E    6AF02CA4     T106X3   BAL,15   T106TDVB          TDV DEV ADR B
    12577   01 02C7F    6AF02C9D              BAL,15   T106TDV8          TDV DEV ADR 8
    12578   01 02C80    75D02C70              STB,13   T106TEMP          SAVE INITIAL SIGN
    12579   01 02C81    2250004C A            LI,5     76                INDEX (G.O.12-13.73)
    12580   01 02C82    6AF02CA9              BAL,15   T106TDVF          TDV DEV ADR F
    12581   01 02C83    E800000A A   T106X4   B        *10               EXIT
    12582                            *
    12583   01 02C84    6AF02CA4     T106X5   BAL,15   T106TDVB          TDV DEV ADRB
    12584   01 02C85    6AF02C90              BAL,15   T106TDV6          TDV DEV ADR 6
    12585   01 02C86    22F0FFFF A            LI,15    X'FFFF'
    12586   01 02C87    64F02C87              BDR,15   %                 100 MSEC DELAY
    12587   01 02C88    6AF02C9D              BAL,15   T106TDV8          TDV DEV ADR 8
    12588   01 02C89    75D22C70              STB,13   T106TEMP,1        SAVE FINAL SIGN
    12589   01 02C8A    35D02C7A              STW,13   T106OFFS          SAVE SIGN
    12590   01 02C8B    E800000A A   T106X6   B        *10               EXIT
    12591                            *
    12592   01 02C8C    6AF02CA4     T106X7   BAL,15   T106TDVB          TDV DEV ADR B
    12593   01 02C8D    6AF02C90              BAL,15   T106TDV6          TDV DEV ADR 6
    12594   01 02C8E    E800000A A   T106X8   B        *10               EXIT
    12595                            *
    12596   01 02C8F    00000000 A            DATA     0
    12597   01 02C90    32E01B60     T106TDV6 LW,14    DEVADDR
    12598   01 02C91    4BE01BEB              AND,14   KM16
    12599   01 02C92    20E00006 A            AI,14    6                 DEV ADR 6
    12600   01 02C93    35F02C8F              STW,15   T106TDV6-1        SAVE EXIT ADDR
    12601   01 02C94    22F001F4 A            LI,15    500               DELAY
    12602   01 02C95    CED0000E A            TDV,13   *14               TDV
    12603   01 02C96    3300000D A            MTW,0    13                TEST BIT 0 - ON CYLINCER
    12604   01 02C97    69102C99              BLZ      %+2               B: HEAD IN MOTION
    12605   01 02C98    64F02C95              BDR,15   %-3               B: LOOP UNTIL HEAD IN MOTION
    12606                            *                                     OR END OF DELAY
    12607   01 02C99    CED0000E A            TDV,13   *14               TDV
    12608   01 02C9A    3300000D A            MTW,0    13                TEST BIT 0 - ON CYLINDER
    12609   01 02C9B    69102C99              BLZ      %-2               LOOP UNTIL ON CYLINDER
    12610   01 02C9C    E8002C8F              B        *T106TDV6-1       EXIT
    12611                            *
    12612   01 02C9D    32E01B60     T106TDV8 LW,14    DEVADDR
    12613   01 02C9E    4BE01BEB              AND,14   KM16
    12614   01 02C9F    20E00008 A            AI,14    8                 DEV ADR 8
    12615   01 02CA0    CED0000E A            TDV,13   *14               TDV
    12616   01 02CA1    72D0000D A            LB,13    13                GET STATUS
    12617   01 02CA2    4BD02E2E              AND,13   =X'10'            BIT 3 ONLY
    12618   01 02CA3    E800000F A            B        *15               EXIT
    12619                            *
    12620   01 02CA4    32E01B60     T106TDVB LW,14    DEVADDR
    12621   01 02CA5    4BE01BEB              AND,14   KM16
    12622   01 02CA6    20E0000B A            AI,14    X'B'
    12623   01 02CA7    CED0000E A            TDV,13   *14               TDV
    12624   01 02CA8    E800000F A            B        *15
    12625                            *
    12626   01 02CA9    32E01B60     T106TDVF LW,14    DEVADDR
    12627   01 02CAA    49E01BED              OR,14    KX000F            DEV ADR F
    12628   01 02CAB    CED0000E A            TDV,13   *14               TDV
    12629   01 02CAC    64502CAB              BDR,5    %-1               LOOP UNTIL INDEX = 0
    12630   01 02CAD    E800000F A            B        *15               EXIT
    12631                            *
    12632                            * FIND OFFSET VALUE
    12633   01 02CAE    35F02D01     T106Z2   STW,15   T106ZX            SAVE EXIT
    12634   01 02CAF    68002CB6              B        T106Z0
    12635   01 02CB0    35F02D01     T106Z    STW,15   T106ZX            SAVE EXIT
    12636   01 02CB1    35002C6E              STW,0    T106SAO           ZERO OFFSET
    12637   01 02CB2    35302C78              STW,3    T106SIN3          DUMMY SIGN
    12638   01 02CB3    6AF02CE7              BAL,15   T106OFF           MOVE TO OFFSET
    12639   01 02CB4    32F02C7A              LW,15    T106OFFS          GET SIGN
    12640   01 02CB5    35F02C76              STW,15   T106SIN1          SAVE INITIAL SIGN
    12641                            *
    12642   01 02CB6    22F00010 A   T106Z0   LI,15    X'10'             OFFSET VALUE
    12643   01 02CB7    35F02C6E              STW,15   T106SAO             = 400
    12644   01 02CB8    22700000 A            LI,7     0                 INDEX
    12645   01 02CB9    6AF02CE7     T106ZA   BAL,15   T106OFF           MOVE TO OFFSET
    12646   01 02CBA    32F02C7A              LW,15    T106OFFS          GET SIGN
    12647   01 02CBB    35F02C77              STW,15   T106SIN2          SAVE FINAL SIGN
    12648   01 02CBC    31F02C76              CW,15    T106SIN1          DID SIGN CHANGE
    12649   01 02CBD    69302CCD              BNE      T106ZD            YES
    12650   01 02CBE    22F00010 A            LI,15    X'10'             INCR OFFSET
    12651   01 02CBF    66F02C6E              AWM,15   T106SAO             BY 400
    12652   01 02CC0    20700001 A            LOOP,7   K4,T106ZA         TRY 800,1200,0
            01 02CC1    31701BDF
            01 02CC2    69102CB9
    12653   01 02CC3    32F01B72     T106ZB   LW,15    SKADR
    12654   01 02CC4    25F00078 A            SLS,15   -8                OFFSET AND HEAD ONLY
    12655   01 02CC5    4BF02DD9              AND,15   =X'FFFF'
    12656   01 02CC6    32E02C77              LW,14    T106SIN2
    12657   01 02CC7    75E2000F A            STB,14   15,1              FINAL SIGN
    12658   01 02CC8    32E02C76              LW,14    T106SIN1
    12659   01 02CC9    75E0000F A            STB,14   15                INITIAL SIGN
    12660   01 02CCA    B5F02C79              STW,15   *T106BUF1         SAVE RESULTS
    12661   01 02CCB    33102C79              MTW,1    T106BUF1          INCR BUFFER ADR
    12662   01 02CCC    E8002D01              B        *T106ZX           EXIT
    12663                            *
    12664   01 02CCD    32E02C6E     T106ZD   LW,14    T106SAO           GET CURRENT OFFSET VALUE
    12665   01 02CCE    4BE02E2F              AND,14   =X'3F'            REMOVE EXTRA BITS
    12666   01 02CCF    68302CC3              BEZ      T106ZB            B: SIGN CHANGE FROM
    12667                            *                                       1200 TO 0 (ZERO OFFSET)
    12668   01 02CD0    22700000 A            LI,7     0                 INDEX
    12669   01 02CD1    68002CDD              B        T106ZI            FIND OFFSET
    12670   01 02CD2    32E02C6E     T106ZF   LW,14    T106SAO           GET CURRENT OFFSET VALUE
    12671   01 02CD3    32F02C7A              LW,15    T106OFFS          GET CURRENT SIGN
    12672   01 02CD4    31E02C75              CW,14    T106SAOI          FIND DIRECTION OF LAST MOVE
    12673   01 02CD5    69202CD9              BG       T106ZG            MOVE: HIGH TO LOW
    12674   01 02CD6    31F02C78              CW,15    T106SIN3          DID SIGN CHANGE
    12675   01 02CD7    68302CDD              BE       T106ZI            NO
    12676   01 02CD8    68002CDB              B        T106ZH            YES
    12677   01 02CD9    31F02C78     T106ZG   CW,15    T106SIN3          DID SIGN CHANGE
    12678   01 02CDA    69302CDD              BNE      T106ZI            YES
    12679   01 02CDB    32DE2CF7     T106ZH   LW,13    T106TABP,7        USE POSITIVE INCR
    12680   01 02CDC    68002CDE              B        %+2
    12681   01 02CDD    32DE2CFC     T106ZI   LW,13    T106TABN,7        USE NEGATIVE INCR
    12682   01 02CDE    35E02C75              STW,14   T106SAOI          SAVE INITIAL ADR
    12683   01 02CDF    35F02C78              STW,15   T106SIN3          SAVE INITIAL SIGN
    12684   01 02CE0    30D0000E A            AW,13    14                COMPUTE NEW OFFSET
    12685   01 02CE1    35D02C6E              STW,13   T106SAO
    12686   01 02CE2    6AF02CE7              BAL,15   T106OFF           MOVE TO OFFSET
    12687   01 02CE3    20700001 A            LOOP,7   K5,T106ZF         BINARY SEARCH NOT DONE
            01 02CE4    31701BE0
            01 02CE5    69102CD2
    12688   01 02CE6    68002CC3              B        T106ZB            RETURN
    12689                            *
    12690                            * MOVE TO CURRENT OFFSET
    12691                            *
    12692   01 02CE7    35F02D02     T106OFF  STW,15   T106OFFX          SAVE RETURN
    12693   01 02CE8    32F02C6F              LW,15    T106SAH           GET HEAD ADR
    12694   01 02CE9    75F41B72              STB,15   SKADR,2
    12695   01 02CEA    32F02C6E              LW,15    T106SAO
    12696   01 02CEB    4BF02E2F              AND,15   =X'3F'            REMOVE EXTRA BITS
    12697   01 02CEC    49F02C74              OR,15    T106SADP          OFFSET AND DIRECTION/POLARITY
    12698   01 02CED    75F21B72              STB,15   SKADR,1
    12699   01 02CEE    22F00C27 A            LI,15    X'C27'            INCR DEV TEST
    12700   01 02CEF    55F01B71              STH,15   TMODB               MODE - DIAG MODE
    12701   01 02CF0    6AF0053D              TEST     TSEQ106C          TRANSFER OFFSET VALUE
            01 02CF1    00002C54
    12702   01 02CF2    22F00C67 A            LI,15    X'C67'            INCR DEV TEST
    12703   01 02CF3    55F01B71              STH,15   TMODB               MODE - OFFSET
    12704   01 02CF4    6AF0053D              TEST     TSEQ106D          OFFSET,WAIT FOR ON CYL, AND
            01 02CF5    00002C5C
    12705                            *                                     READ SIGN
    12706   01 02CF6    E8002D02              B        *T106OFFX         EXIT
    12707                            *
    12708   01 02CF7    00000008 A   T106TABP DATA     8,4,2,1,1         POSITIVE INCREMENTS
            01 02CF8    00000004 A
            01 02CF9    00000002 A
            01 02CFA    00000001 A
            01 02CFB    00000001 A
    12709   01 02CFC    FFFFFFF8 A   T106TABN DATA     -8,-4,-2,-1,0     NEGATIVE INCREMENTS
            01 02CFD    FFFFFFFC A
            01 02CFE    FFFFFFFE A
            01 02CFF    FFFFFFFF A
            01 02D00    00000000 A
    12710   01 02D01    00000000 A   T106ZX   DATA     0                 RETURN ADR
    12711   01 02D02    00000000 A   T106OFFX DATA     0                 RETURN ADR
    12712                            *
    12713                            *
    12714         01 02D03           T106     EQU      %
    12715   01 02D03    EAF00223              BAL,15   *:TYPE
    12716   01 02D04    00002D7C              DATA     T106M1            MOUNT CE PACK
    12717   01 02D05    EAF00219              BAL,15   *:1BYTEIN
    12718   01 02D06    00000000 A            DATA     0                 WAIT FOR USER RESPONSE
    12719   01 02D07    32F02C6D     T106A    LW,15    T106SAJ
    12720   01 02D08    35F01B72              STW,15   SKADR             SEEK ADR = CYL 240
    12721   01 02D09    6AF0053D              TEST     TSEQ106A          MOVE HEADS
            01 02D0A    00002C4A
    12722   01 02D0B    32F02C6C              LW,15    T106SAI
    12723   01 02D0C    35F01B72              STW,15   SKADR             SEEK ADR = CYL 245
    12724   01 02D0D    6AF0053D              TEST     TSEQ106A          MOVE HEADS
            01 02D0E    00002C4A
    12725   01 02D0F    20700001 A            LOOP,7   =1500,T106A       MOVE HEADS
            01 02D10    31702E30
            01 02D11    69102D07
    12726   01 02D12    22700000 A            LI,7     0
    12727   01 02D13    35002C6F              STW,0    T106SAH           RESET HEAD ADR
    12728   01 02D14    22F03262              LI,15    BF1
    12729   01 02D15    35F02C79              STW,15   T106BUF1          SET UP
    12730                            *
    12731   01 02D16    35002C74     T106B    STW,0    T106SADP          SET CONTROL TO REV/POS
    12732   01 02D17    22F00C00 A            LI,15    X'0C00'           INCR DEV
    12733   01 02D18    55F01B71              STH,15   TMODB               TEST MODE
    12734   01 02D19    35001B72              STW,0    SKADR             CLEAR SEEK ADR
    12735   01 02D1A    32F02C6F              LW,15    T106SAH           MERGE
    12736   01 02D1B    75F41B72              STB,15   SKADR,2             HEAD ADR
    12737   01 02D1C    6AF0053D              TEST     TSEQ106B          SELECT CURRENT HEAD ON CYL.245
            01 02D1D    00002C4C
    12738   01 02D1E    6AF02CB0              BAL,15   T106Z             FIND REV/FWD OFFSET VALUE
    12739   01 02D1F    22F00080 A            LI,15    X'80'
    12740   01 02D20    35F02C74              STW,15   T106SADP          SET CONTROL TO FWD/POS
    12741   01 02D21    6AF02CAE              BAL,15   T106Z2            FIND FWD/POS OFFSET VALUE
    12742   01 02D22    22F00040 A            LI,15    X'40'             SET CONTROL TO REV/NEG
    12743   01 02D23    35F02C74              STW,15   T106SADP
    12744   01 02D24    6AF02CB0              BAL,15   T106Z             FIND REV/NEG OFFSET VALUE
    12745   01 02D25    22F000C0 A            LI,15    X'C0'
    12746   01 02D26    35F02C74              STW,15   T106SADP          SET CONTROL TO FWD/NEG
    12747   01 02D27    6AF02CAE              BAL,15   T106Z2            FIND FWD/NEG OFFSET VALUE
    12748   01 02D28    33102C6F              MTW,1    T106SAH           INCR HEAD ADR
    12749   01 02D29    22F00C07 A            LI,15    X'C07'            INCR DEV TEST
    12750   01 02D2A    55F01B71              STH,15   TMODB               MODE - RESET OFFSET
    12751   01 02D2B    6AF0053D              TEST     TSEQ106E          RESET HEAD OFFSET
            01 02D2C    00002C64
    12752   01 02D2D    20600001 A            LOOP,6   =19,T106B         LOOP ON ALL HEADS
            01 02D2E    31602E31
            01 02D2F    69102D16
    12753   01 02D30    6AF0053D              TEST     TSEQRS            ISSUE RESTORE ORDER
            01 02D31    00001D1E
    12754                            *
    12755                            * DISPLAY RESULTS
    12756   01 02D32    22F03262     T106J    LI,15    BF1
    12757   01 02D33    35F02C79              STW,15   T106BUF1          SET UP BUFFER ADR
    12758   01 02D34    22700000 A            LI,7     0                 INDEX
    12759   01 02D35    02200040 A   T106K    LCI      4
    12760   01 02D36    AAC02C79              LM,12    *T106BUF1         GET OBSERVED VALUES
    12761   01 02D37    33402C79              MTW,4    T106BUF1          INCR BUFFER ADR
    12762   01 02D38    72A0000C A            LB,10    12                GET INIT SIGN - REV/POS
    12763   01 02D39    72B4000C A            LB,11    12,2              GET OFFSET VALUE
    12764   01 02D3A    71A2000C A            CB,10    12,1              COMPARE SIGN TO FINAL VALUE
    12765   01 02D3B    69302D40              BNE      T106L             B: SIGN CHANGE
    12766   01 02D3C    72A0000D A            LB,10    13                GET INIT SIGN - FWD/POS
    12767   01 02D3D    72B4000D A            LB,11    13,2              GET OFFSET VALUE
    12768   01 02D3E    71A2000D A            CB,10    13,1              COMPARE SIGN TO FINAL VALUE
    12769   01 02D3F    68302D61              BE       T106N             B: OUT OF RANGE
    12770   01 02D40    4BB02E2F     T106L    AND,11   =X'3F'            REMOVE DIRECTION AND POLARITY
    12771   01 02D41    23B00019 A            MI,11    25                CHANGE OFFSET TO MICRO IN.
    12772   01 02D42    68302D44              BEZ      %+2
    12773   01 02D43    20BFFFF4 A            AI,11    -12               AVERAGE LAST INCREMENT
    12774   01 02D44    3300000A A            MTW,0    10                DETERMINE POLARITY OF INIT.SIGN
    12775   01 02D45    69302D47              BNEZ     %+2               B: POSITIVE
    12776   01 02D46    3AB0000B A            LCW,11   11                MAKE IT A NEGATIVE OFFSET
    12777   01 02D47    7280000E A            LB,8     14                GET INIT SIGN - REV/NEG
    12778   01 02D48    7294000E A            LB,9     14,2              GET OFFSET VALUE
    12779   01 02D49    7182000E A            CB,8     14,1              COMPARE SIGN TO FINAL VALUE
    12780   01 02D4A    69302D4F              BNE      T106M             B: SIGN CHANGE
    12781   01 02D4B    7280000F A            LB,8     15                GET INIT SIGN - FWD/NEG
    12782   01 02D4C    7294000F A            LB,9     15,2              GET OFFSET VALUE
    12783   01 02D4D    7182000F A            CB,8     15,1              COMPARE SIGN TO FINAL VALUE
    12784   01 02D4E    68302D61              BE       T106N             B: OUT OF RANGE
    12785   01 02D4F    4B902E2F     T106M    AND,9    =X'3F'            REMOVE DIRECTION AND POLARITY
    12786   01 02D50    23900019 A            MI,9     25                CHANGE OFFSET TO MICRO IN.
    12787   01 02D51    68302D53              BEZ      %+2
    12788   01 02D52    209FFFF4 A            AI,9     -12               AVERAGE LAST INCREMENT
    12789   01 02D53    33000008 A            MTW,0    8                 DETERMINE POLARITY OF INIT.SIGN
    12790   01 02D54    69302D56              BNEZ     %+2               B. POSITIVE
    12791   01 02D55    3A900009 A            LCW,9    9                 MAKE IT A NEGATIVE OFFSET
    12792   01 02D56    38B00009 A            SW,11    9                 POSITIVE - NEGATIVE OFFSET
    12793   01 02D57    25B0047F A            SAS,11   -1                  AND DIVIDE BY 2
    12794   01 02D58    22600000 A            LI,6     0                 MSG INDEX
    12795   01 02D59    3300000B A            MTW,0    11                DETERMINE POLARITY OF OFFSET
    12796   01 02D5A    68102D5D              BGEZ     %+3               B: POSITIVE
    12797   01 02D5B    20600001 A            AI,6     1                 CHANGE MSG INDEX
    12798   01 02D5C    3AB0000B A            LCW,11   11                MAKE VALUE POSITIVE
    12799   01 02D5D    21B00096 A            CI,11    150               IS OFFSET WITHIN LIMITS
    12800   01 02D5E    68202D60              BLE      %+2               YES
    12801   01 02D5F    20600002 A            AI,6     2                 CHANGE MSG INDEX
    12802   01 02D60    68002D62              B        %+2
    12803   01 02D61    22600004 A   T106N    LI,6     4                 MSG INDEX
    12804   01 02D62    35B00EE3              STW,11   VDEC4A            INSERT OFFSET INTO MSG
    12805   01 02D63    35700EE2              STW,7    VDEC2A            INSERT HEAD INTO MSG
    12806   01 02D64    32FC2DA9              LW,15    T106MSGL,6        GET MSG ADR
    12807   01 02D65    35F02D73              STW,15   T106P
    12808   01 02D66    33000007 A            MTW,0    7                 BYPASS HEADINGS IF
    12809   01 02D67    69302D72              BNEZ     T106P-1             NOT THE FIRST TIME
    12810   01 02D68    32A01B68              LW,10    SUBTNR            FETCH SUBTEST NO
    12811   01 02D69    35A00EE4              STW,10   VDEC3A            SAVE SUBTEST NO
    12812   01 02D6A    32A01B60              LW,10    DEVADDR           LOAD DEVICE ADDRESS
    12813   01 02D6B    35A00EE7              STW,10   VHEX4A                IN PRINT MESSAGE
    12814   01 02D6C    6AF00B7B              BAL,15   #MSGP
    12815   01 02D6D    00003CDA              DATA     MX035             PRINT MSG 35 - HEADING
    12816   01 02D6E    EAF0021C              BAL,15   *:PRINT           OUTPUT TITLE LINE 1
    12817   01 02D6F    00002D94              DATA     T106T1
    12818   01 02D70    EAF0021C              BAL,15   *:PRINT           OUTPUT TITLE LINE 2
    12819   01 02D71    00002D9C              DATA     T106T2
    12820   01 02D72    6AF00B7B              BAL,15   #MSGP             PRINT 1 HEAD
    12821   01 02D73    00000000 A   T106P    DATA     0
    12822   01 02D74    20700001 A            LOOP,7   =19,T106K         LOOP ON ALL HEADS
            01 02D75    31702E31
            01 02D76    69102D35
    12823   01 02D77    EAF00223              BAL,15   *:TYPE
    12824   01 02D78    00002D89              DATA     T106M2            IO RESET
    12825   01 02D79    EAF00219              BAL,15   *:1BYTEIN
    12826   01 02D7A    00000000 A            DATA     0                 WAIT FOR USER RESPONSE
    12827   01 02D7B    68001D47              B        TST1R             EXIT
    12828                            *
    12829         01 02D7C           T106M1   TEXTCS   'CE PACK AND TESTER REQUIRED - WHEN READY ENTER N/L'
    12830         01 02D89           T106M2   TEXTCS   'IO RESET REQUIRED - WHEN READY ENTER N/L'
    12831                            *
    12832         01 02D94           T106T1   TEXTCS   'HEAD ALIGNMENT SUMMARY (T106)'
    12833         01 02D9C           T106T2   TEXTCS   '*** = ADJUSTMENT NOT WITHIN + OR - 150 MICRO IN.'
    12834                            *
    12835   01 02DA9    000041E8     T106MSGL DATA     MX2000,MX2001,MX2002,MX2003,MX2004
            01 02DAA    000041EE
            01 02DAB    000041F4
            01 02DAC    000041FB
            01 02DAD    00004202
1 C00   21:47 JUN 20,'83    TELEFILE ROTATING MEMORY TEST 960-0604-H02                            PAGE  107
A   12837                            *
    12838                            * HEADER SAVE AND HEADER RESTORE ROUTINE
    12839                            *
    12840                            * CALLING SEQUENCE:   BAL,15    HDRSR     HEADER SAVE
    12841                            *                     BAL,15    HDRSW     HEADER RESTORE
    12842                            *
    12843                            * REGISTERS USED:     R14 AND R15
    12844                            *
    12845                            * SEEK ADDRESS:       CYL.202,HD.0,SECT.0
    12846                            *
    12847                            *
    12848   01 02DAE    00003F63     MSIDHDRR DATA     MX1200
    12849                            *
    12850   01 02DAF    00003F66     MSIDHDRW DATA     MX1201
    12851                            *
    12852   01 02DB1    00002DAE     TSEQHDRR ID       MSIDHDRR
    12853                                     SK
    12854   01 02DB2    00000EF6              IS       IOCDX0A
    12855   01 02DB0    30000000 A            TEND
    12856                            *
    12857   01 02DB4    00002DAF     TSEQHDRW ID       MSIDHDRW
    12858                                     SK
    12859   01 02DB5    00000EF5              IS       IOCDX09
    12860   01 02DB3    30000000 A            TEND
    12861                            *
    12862                                     BOUND    8
    12863   01 02DB6    00000000 A   HDRS     DATA     0,0,0
            01 02DB7    00000000 A
            01 02DB8    00000000 A
    12864                            *
    12865   01 02DB9    35F02DB8     HDRSR    STW,15   HDRS+2            SAVE RETURN
    12866   01 02DBA    22F000CA A            LI,15    202               SEEK
    12867   01 02DBB    55F01B72              STH,15   SKADR               ADR
    12868   01 02DBC    6AF0053D              TEST     TSEQHDRR
            01 02DBD    00002DB0
    12869   01 02DBE    12E03364              LD,14    BF2               SAVE HEADER
    12870   01 02DBF    15E02DB6              STD,14   HDRS                DATA
    12871   01 02DC0    22F00010 A            LI,15    X'0010'           CONTROL PANEL INT.
    12872   01 02DC1    6DF01500 A            WD,15    X'1500'           DISABLE
    12873   01 02DC2    E8002DB8              B        *HDRS+2           EXIT
    12874                            *
    12875   01 02DC3    35F02DB8     HDRSW    STW,15   HDRS+2            SAVE RETURN
    12876   01 02DC4    12E02DB6              LD,14    HDRS              MOVE HEADER DATA
    12877   01 02DC5    15E03262              STD,14   BF1                 TO OUTPUT BUFFER
    12878   01 02DC6    22F000CA A            LI,15    202               SEEK
    12879   01 02DC7    55F01B72              STH,15   SKADR               ADR
    12880   01 02DC8    6AF0053D              TEST     TSEQHDRW          RESTORE HEADER
            01 02DC9    00002DB3
    12881   01 02DCA    22F00010 A            LI,15    X'0010'           CONTROL PANEL INT.
    12882   01 02DCB    6DF01400 A            WD,15    X'1400'           ENABLE
    12883   01 02DCC    E8002DB8              B        *HDRS+2           EXIT
    12884                            *
1 C00   21:47 JUN 20,'83    TELEFILE ROTATING MEMORY TEST 960-0604-H02                            PAGE  108
A   12886         01 02DCD           PROGEND  SET      %
    12887   01 02ECD                          ORG      %+256
            01 02ECD
    12888                            *
    12889                            *
    12890                            *        *** ALTER STEPPING DATA ROUTINE ****
    12891                            *
    12892                            * CALLTING SEQUENCE:
    12893                            *        BAL,15   #STPALT
    12894                            *
    12895                            * REGISTERS USED: ALL REGISTERS ARE SAVED
    12896                            *
    12897                            *
    12898         01 02ECD           #STPALTD EQU      %                 DISK DATA (NOT DISK 33)
    12899   01 02ECD    80070213 A            DATA     X'80070213',X'440A0000',X'424A0000'
            01 02ECE    440A0000 A
            01 02ECF    424A0000 A
    12900   01 02ED0    50200000 A            DATA     X'50200000',X'501F1600',X'501E1600'
            01 02ED1    501F1600 A
            01 02ED2    501E1600 A
    12901   01 02ED3    501D0000 A            DATA     X'501D0000',X'240A0000',X'24090000'
            01 02ED4    240A0000 A
            01 02ED5    24090000 A
    12902   01 02ED6    224A0000 A            DATA     X'224A0000',X'30200000',X'301F1600'
            01 02ED7    30200000 A
            01 02ED8    301F1600 A
    12903                            *
    12904         01 02ED9           #STPALTR EQU      %                 DISK 33 DATA
    12905   01 02ED9    80070212 A            DATA     X'80070212',X'440F0000',X'42440000'
            01 02EDA    440F0000 A
            01 02EDB    42440000 A
    12906   01 02EDC    50220000 A            DATA     X'50220000',X'50211600',X'50201600'
            01 02EDD    50211600 A
            01 02EDE    50201600 A
    12907   01 02EDF    501F0000 A            DATA     X'501F0000',X'240F0000',X'240E0000'
            01 02EE0    240F0000 A
            01 02EE1    240E0000 A
    12908   01 02EE2    22440000 A            DATA     X'22440000',X'30220000',X'30211600'
            01 02EE3    30220000 A
            01 02EE4    30211600 A
    12909   01 02EE5                 #STPALTS RES      13                REGISTER SAVE LOC
    12910                            *
    12911   01 02EF2    022000D0 A   #STPALT  LCI      13
    12912   01 02EF3    2B302EE5              STM,3    #STPALTS          SAVE R3 - R15
    12913   01 02EF4    32301B7B              LW,3     DEVTYPM           GET DEV MODEL
    12914   01 02EF5    21300007 A            CI,3     7                 IS IT DISK 33
    12915   01 02EF6    68302EFA              BE       %+4               YES
    12916   01 02EF7    022000C0 A            LCI      12
    12917   01 02EF8    2A402ECD              LM,4     #STPALTD          GET STEPPING DATA
    12918   01 02EF9    68002EFC              B        %+3
    12919   01 02EFA    022000C0 A            LCI      12
    12920   01 02EFB    2A402ED9              LM,4     #STPALTR          GET DISK 33 STEPPING DATA
    12921   01 02EFC    223FFFFC A            LI,3     -4                INDEX
    12922   01 02EFD    35463069     #STPALT1 STW,4    GAPDMOD1+4,3
    12923   01 02EFE    35563089              STW,5    GAPDMOD2+4,3
    12924   01 02EFF    35663099              STW,6    HDRD1MOD+4,3
    12925   01 02F00    35763101              STW,7    HDWR1MD1+4,3
    12926   01 02F01    35863105              STW,8    HDWR1MD2+4,3
    12927   01 02F02    35963109              STW,9    HDWR1MD3+4,3
    12928   01 02F03    35A6310D              STW,10   HDWR1MD4+4,3
    12929   01 02F04    35B631D5              STW,11   RDD1MOD1+4,3
    12930   01 02F05    35C631D9              STW,12   RDD1MOD2+4,3
    12931   01 02F06    35D631E1              STW,13   RDD2MOD+4,3
    12932   01 02F07    35E63225              STW,14   WRD1MOD1+4,3
    12933   01 02F08    35F63229              STW,15   WRD1MOD2+4,3
    12934   01 02F09    65302EFD              BIR,3    #STPALT1          STORE EACH WORD 4 TIMES
    12935   01 02F0A    022000D0 A            LCI      13
    12936   01 02F0B    2A302EE5              LM,3     #STPALTS          RESTORE R3 - R15
    12937   01 02F0C    E800000F A            B        *15               EXIT
    12938                            *
1 C00   21:47 JUN 20,'83    TELEFILE ROTATING MEMORY TEST 960-0604-H02                            PAGE  109
A   12940         01 02F0D           STEPDATA EQU      %
    12941         01 02F0D           ST0      EQU      %
    12942         01 02F0D           ST17     EQU      %                 RESTORE
    12943   01 02F0D    001C0000 A    DATA X'001C0000'       0000  0
    12944   01 02F0E    001C0000 A    DATA X'001C0000'       0000  1
    12945   01 02F0F    001C0000 A    DATA X'001C0000'       0000  2
    12946   01 02F10    001C0000 A    DATA X'001C0000'       0000  3
    12947   01 02F11    001B0000 A    DATA X'001B0000'       0001  0
    12948   01 02F12    001B0000 A    DATA X'001B0000'       0001  1
    12949   01 02F13    001B0000 A    DATA X'001B0000'       0001  2
    12950   01 02F14    001B0000 A    DATA X'001B0000'       0001  3
    12951   01 02F15    001A0000 A    DATA X'001A0000'       0002  0
    12952   01 02F16    001A0000 A    DATA X'001A0000'       0002  1
    12953   01 02F17    001A0000 A    DATA X'001A0000'       0002  2
    12954   01 02F18    001A0000 A    DATA X'001A0000'       0002  3
    12955   01 02F19    00190000 A    DATA X'00190000'       0003  0
    12956   01 02F1A    00190000 A    DATA X'00190000'       0003  1
    12957   01 02F1B    00190000 A    DATA X'00190000'       0003  2
    12958   01 02F1C    00190000 A    DATA X'00190000'       0003  3
    12959   01 02F1D    00180000 A    DATA X'00180000'       0004  0
    12960   01 02F1E    00180000 A    DATA X'00180000'       0004  1
    12961   01 02F1F    00180000 A    DATA X'00180000'       0004  2
    12962   01 02F20    00180000 A    DATA X'00180000'       0004  3
    12963   01 02F21    00170000 A    DATA X'00170000'       0005  0
    12964   01 02F22    00170000 A    DATA X'00170000'       0005  1
    12965   01 02F23    00170000 A    DATA X'00170000'       0005  2
    12966   01 02F24    00170000 A    DATA X'00170000'       0005  3
    12967   01 02F25    00160001 A    DATA X'00160001'       0006  0
    12968   01 02F26    00160001 A    DATA X'00160001'       0006  1
    12969   01 02F27    00160000 A    DATA X'00160000'       0006  2
    12970   01 02F28    00160000 A    DATA X'00160000'       0006  3
    12971   01 02F29    00150000 A    DATA X'00150000'       0007  0
    12972   01 02F2A    00150000 A    DATA X'00150000'       0007  1
    12973   01 02F2B    00150000 A    DATA X'00150000'       0007  2
    12974   01 02F2C    00150000 A    DATA X'00150000'       0007  3
    12975   01 02F2D    00140000 A    DATA X'00140000'       0008  0
    12976   01 02F2E    00140000 A    DATA X'00140000'       0008  1
    12977   01 02F2F    00140000 A    DATA X'00140000'       0008  2
    12978   01 02F30    00140000 A    DATA X'00140000'       0008  3
    12979   01 02F31    00130000 A    DATA X'00130000'       0009  0
    12980   01 02F32    00130000 A    DATA X'00130000'       0009  1
    12981   01 02F33    00130000 A    DATA X'00130000'       0009  2
    12982   01 02F34    00130000 A    DATA X'00130000'       0009  3
    12983   01 02F35    00120000 A    DATA X'00120000'       000A  0
    12984   01 02F36    00120000 A    DATA X'00120000'       000A  1
    12985   01 02F37    00120000 A    DATA X'00120000'       000A  2
    12986   01 02F38    00120000 A    DATA X'00120000'       000A  3
    12987   01 02F39    00110000 A    DATA X'00110000'       000B  0
    12988   01 02F3A    00110000 A    DATA X'00110000'       000B  1
    12989   01 02F3B    00110000 A    DATA X'00110000'       000B  2
    12990   01 02F3C    00110000 A    DATA X'00110000'       000B  3
    12991   01 02F3D    00100000 A    DATA X'00100000'       000C  0
    12992   01 02F3E    00100000 A    DATA X'00100000'       000C  1
    12993   01 02F3F    00100000 A    DATA X'00100000'       000C  2
    12994   01 02F40    00100000 A    DATA X'00100000'       000C  3
    12995   01 02F41    000F0000 A    DATA X'000F0000'       000D  0
    12996   01 02F42    000F0000 A    DATA X'000F0000'       000D  1
    12997   01 02F43    000F0000 A    DATA X'000F0000'       000D  2
    12998   01 02F44    000F0000 A    DATA X'000F0000'       000D  3
    12999   01 02F45    000E0000 A    DATA X'000E0000'       000E  0
    13000   01 02F46    000E0000 A    DATA X'000E0000'       000E  1
    13001   01 02F47    000E0000 A    DATA X'000E0000'       000E  2
    13002   01 02F48    000E0000 A    DATA X'000E0000'       000E  3
    13003   01 02F49    000D0800 A    DATA X'000D0800'       000F  0
    13004   01 02F4A    000D0800 A    DATA X'000D0800'       000F  1
    13005   01 02F4B    000D0800 A    DATA X'000D0800'       000F  2
    13006   01 02F4C    000D0800 A    DATA X'000D0800'       000F  3
    13007   01 02F4D    000C0800 A    DATA X'000C0800'       0010  0
    13008   01 02F4E    000C0800 A    DATA X'000C0800'       0010  1
    13009   01 02F4F    000C0800 A    DATA X'000C0800'       0010  2
    13010   01 02F50    000C0800 A    DATA X'000C0800'       0010  3
    13011   01 02F51    000B0000 A    DATA X'000B0000'       0011  0
    13012   01 02F52    000B0000 A    DATA X'000B0000'       0011  1
    13013   01 02F53    000B0000 A    DATA X'000B0000'       0011  2
    13014   01 02F54    000B0000 A    DATA X'000B0000'       0011  3
    13015   01 02F55    000A0000 A    DATA X'000A0000'       0012  0
    13016   01 02F56    000A0000 A    DATA X'000A0000'       0012  1
    13017   01 02F57    000A0000 A    DATA X'000A0000'       0012  2
    13018   01 02F58    000A0000 A    DATA X'000A0000'       0012  3
    13019   01 02F59    00090000 A    DATA X'00090000'       0013  0
    13020   01 02F5A    00090000 A    DATA X'00090000'       0013  1
    13021   01 02F5B    00090000 A    DATA X'00090000'       0013  2
    13022   01 02F5C    00090000 A    DATA X'00090000'       0013  3
    13023   01 02F5D    00080000 A    DATA X'00080000'       0014  0
    13024   01 02F5E    00080000 A    DATA X'00080000'       0014  1
    13025   01 02F5F    00080000 A    DATA X'00080000'       0014  2
    13026   01 02F60    00080000 A    DATA X'00080000'       0014  3
    13027   01 02F61    00070000 A    DATA X'00070000'       0015  0
    13028   01 02F62    00070000 A    DATA X'00070000'       0015  1
    13029   01 02F63    00070000 A    DATA X'00070000'       0015  2
    13030   01 02F64    00070000 A    DATA X'00070000'       0015  3
    13031   01 02F65    00060000 A    DATA X'00060000'       0016  0
    13032   01 02F66    00060000 A    DATA X'00060000'       0016  1
    13033   01 02F67    00060000 A    DATA X'00060000'       0016  2
    13034   01 02F68    00060000 A    DATA X'00060000'       0016  3
    13035   01 02F69    00050000 A    DATA X'00050000'       0017  0
    13036   01 02F6A    00050000 A    DATA X'00050000'       0017  1
    13037   01 02F6B    00050000 A    DATA X'00050000'       0017  2
    13038   01 02F6C    00050000 A    DATA X'00050000'       0017  3
    13039   01 02F6D    00040000 A    DATA X'00040000'       0018  0
    13040   01 02F6E    00040000 A    DATA X'00040000'       0018  1
    13041   01 02F6F    00040000 A    DATA X'00040000'       0018  2
    13042   01 02F70    00040000 A    DATA X'00040000'       0018  3
    13043   01 02F71    00030000 A    DATA X'00030000'       0019  0
    13044   01 02F72    00030000 A    DATA X'00030000'       0019  1
    13045   01 02F73    00030000 A    DATA X'00030000'       0019  2
    13046   01 02F74    00030000 A    DATA X'00030000'       0019  3
    13047   01 02F75    00020000 A    DATA X'00020000'       001A  0
    13048   01 02F76    00020000 A    DATA X'00020000'       001A  1
    13049   01 02F77    00020000 A    DATA X'00020000'       001A  2
    13050   01 02F78    00020000 A    DATA X'00020000'       001A  3
    13051   01 02F79    00011B00 A    DATA X'00011B00'       001B  0
    13052   01 02F7A    00011B00 A    DATA X'00011B00'       001B  1
    13053   01 02F7B    00011B00 A    DATA X'00011B00'       001B  2
    13054   01 02F7C    00011B00 A    DATA X'00011B00'       001B  3
    13055   01 02F7D    00001B00 A    DATA X'00001B00'       001C  0
    13056   01 02F7E    00001B00 A    DATA X'00001B00'       001C  1
    13057   01 02F7F    00000000 A    DATA X'00000000'       001C  2
    13058   01 02F80    00000000 A    DATA X'00000000'       001C  3
    13059         01 02F81           ST18D    EQU      %                 SENSE FOR DISK
    13060   01 02F81    00190000 A    DATA X'00190000'       0000  0
    13061   01 02F82    00190000 A    DATA X'00190000'       0000  1
    13062   01 02F83    00190000 A    DATA X'00190000'       0000  2
    13063   01 02F84    00190000 A    DATA X'00190000'       0000  3
    13064   01 02F85    00180000 A    DATA X'00180000'       0001  0
    13065   01 02F86    00180000 A    DATA X'00180000'       0001  1
    13066   01 02F87    00180000 A    DATA X'00180000'       0001  2
    13067   01 02F88    00180000 A    DATA X'00180000'       0001  3
    13068   01 02F89    00170600 A    DATA X'00170600'       0002  0
    13069   01 02F8A    00170600 A    DATA X'00170600'       0002  1
    13070   01 02F8B    00170600 A    DATA X'00170600'       0002  2
    13071   01 02F8C    00170600 A    DATA X'00170600'       0002  3
    13072   01 02F8D    00160600 A    DATA X'00160600'       0003  0
    13073   01 02F8E    00160600 A    DATA X'00160600'       0003  1
    13074   01 02F8F    00160600 A    DATA X'00160600'       0003  2
    13075   01 02F90    00160600 A    DATA X'00160600'       0003  3
    13076   01 02F91    00150200 A    DATA X'00150200'       0004  0
    13077   01 02F92    00150200 A    DATA X'00150200'       0004  1
    13078   01 02F93    00150200 A    DATA X'00150200'       0004  2
    13079   01 02F94    00150200 A    DATA X'00150200'       0004  3
    13080   01 02F95    00140200 A    DATA X'00140200'       0005  0
    13081   01 02F96    00140200 A    DATA X'00140200'       0005  1
    13082   01 02F97    00140200 A    DATA X'00140200'       0005  2
    13083   01 02F98    00140200 A    DATA X'00140200'       0005  3
    13084   01 02F99    00130000 A    DATA X'00130000'       0006  0
    13085   01 02F9A    00130000 A    DATA X'00130000'       0006  1
    13086   01 02F9B    00130000 A    DATA X'00130000'       0006  2
    13087   01 02F9C    00130000 A    DATA X'00130000'       0006  3
    13088   01 02F9D    00120000 A    DATA X'00120000'       0007  0
    13089   01 02F9E    00120000 A    DATA X'00120000'       0007  1
    13090   01 02F9F    00120000 A    DATA X'00120000'       0007  2
    13091   01 02FA0    00120000 A    DATA X'00120000'       0007  3
    13092   01 02FA1    00110300 A    DATA X'00110300'       0008  0
    13093   01 02FA2    00110300 A    DATA X'00110300'       0008  1
    13094   01 02FA3    00110300 A    DATA X'00110300'       0008  2
    13095   01 02FA4    00110300 A    DATA X'00110300'       0008  3
    13096   01 02FA5    00100300 A    DATA X'00100300'       0009  0
    13097   01 02FA6    00100300 A    DATA X'00100300'       0009  1
    13098   01 02FA7    00100300 A    DATA X'00100300'       0009  2
    13099   01 02FA8    00100300 A    DATA X'00100300'       0009  3
    13100   01 02FA9    000F0400 A    DATA X'000F0400'       000A  0
    13101   01 02FAA    000F0400 A    DATA X'000F0400'       000A  1
    13102   01 02FAB    000F0400 A    DATA X'000F0400'       000A  2
    13103   01 02FAC    000F0400 A    DATA X'000F0400'       000A  3
    13104   01 02FAD    000E0400 A    DATA X'000E0400'       000B  0
    13105   01 02FAE    000E0400 A    DATA X'000E0400'       000B  1
    13106   01 02FAF    000E0400 A    DATA X'000E0400'       000B  2
    13107   01 02FB0    000E0400 A    DATA X'000E0400'       000B  3
    13108   01 02FB1    000D0100 A    DATA X'000D0100'       000C  0
    13109   01 02FB2    000D0100 A    DATA X'000D0100'       000C  1
    13110   01 02FB3    000D0100 A    DATA X'000D0100'       000C  2
    13111   01 02FB4    000D0100 A    DATA X'000D0100'       000C  3
    13112   01 02FB5    000C0100 A    DATA X'000C0100'       000D  0
    13113   01 02FB6    000C0100 A    DATA X'000C0100'       000D  1
    13114   01 02FB7    000C0100 A    DATA X'000C0100'       000D  2
    13115   01 02FB8    000C0100 A    DATA X'000C0100'       000D  3
    13116   01 02FB9    000B0800 A    DATA X'000B0800'       000E  0
    13117   01 02FBA    000B0800 A    DATA X'000B0800'       000E  1
    13118   01 02FBB    000B0800 A    DATA X'000B0800'       000E  2
    13119   01 02FBC    000B0800 A    DATA X'000B0800'       000E  3
    13120   01 02FBD    000A0800 A    DATA X'000A0800'       000F  0
    13121   01 02FBE    000A0800 A    DATA X'000A0800'       000F  1
    13122   01 02FBF    000A0800 A    DATA X'000A0800'       000F  2
    13123   01 02FC0    000A0800 A    DATA X'000A0800'       000F  3
    13124   01 02FC1    00090000 A    DATA X'00090000'       0010  0
    13125   01 02FC2    00090000 A    DATA X'00090000'       0010  1
    13126   01 02FC3    00090000 A    DATA X'00090000'       0010  2
    13127   01 02FC4    00090000 A    DATA X'00090000'       0010  3
    13128   01 02FC5    00080000 A    DATA X'00080000'       0011  0
    13129   01 02FC6    00080000 A    DATA X'00080000'       0011  1
    13130   01 02FC7    00080000 A    DATA X'00080000'       0011  2
    13131   01 02FC8    00080000 A    DATA X'00080000'       0011  3
    13132   01 02FC9    00070000 A    DATA X'00070000'       0012  0
    13133   01 02FCA    00070000 A    DATA X'00070000'       0012  1
    13134   01 02FCB    00070000 A    DATA X'00070000'       0012  2
    13135   01 02FCC    00070000 A    DATA X'00070000'       0012  3
    13136   01 02FCD    00060000 A    DATA X'00060000'       0013  0
    13137   01 02FCE    00060000 A    DATA X'00060000'       0013  1
    13138   01 02FCF    00060000 A    DATA X'00060000'       0013  2
    13139   01 02FD0    00060000 A    DATA X'00060000'       0013  3
    13140   01 02FD1    00050000 A    DATA X'00050000'       0014  0
    13141   01 02FD2    00050000 A    DATA X'00050000'       0014  1
    13142   01 02FD3    00050000 A    DATA X'00050000'       0014  2
    13143   01 02FD4    00050000 A    DATA X'00050000'       0014  3
    13144   01 02FD5    00040000 A    DATA X'00040000'       0015  0
    13145   01 02FD6    00040000 A    DATA X'00040000'       0015  1
    13146   01 02FD7    00040000 A    DATA X'00040000'       0015  2
    13147   01 02FD8    00040000 A    DATA X'00040000'       0015  3
    13148   01 02FD9    00030000 A    DATA X'00030000'       0016  0
    13149   01 02FDA    00030000 A    DATA X'00030000'       0016  1
    13150   01 02FDB    00030000 A    DATA X'00030000'       0016  2
    13151   01 02FDC    00030000 A    DATA X'00030000'       0016  3
    13152   01 02FDD    00020000 A    DATA X'00020000'       0017  0
    13153   01 02FDE    00020000 A    DATA X'00020000'       0017  1
    13154   01 02FDF    00020000 A    DATA X'00020000'       0017  2
    13155   01 02FE0    00020000 A    DATA X'00020000'       0017  3
    13156   01 02FE1    00010000 A    DATA X'00010000'       0018  0
    13157   01 02FE2    00010000 A    DATA X'00010000'       0018  1
    13158   01 02FE3    00010000 A    DATA X'00010000'       0018  2
    13159   01 02FE4    00010000 A    DATA X'00010000'       0018  3
    13160   01 02FE5    00000000 A    DATA X'00000000'       0019  0
    13161   01 02FE6    00000000 A    DATA X'00000000'       0019  1
    13162   01 02FE7    00000000 A    DATA X'00000000'       0019  2
    13163   01 02FE8    00000000 A    DATA X'00000000'       0019  3
    13164         01 02FE9           ST18R    EQU      %                 SENSE FOR RAD
    13165         01 02FE9           ST19R    EQU      %                 SEEK FOR RAD
    13166         01 02FE9           ST19D    EQU      %                 SEEK FOR DISK
    13167   01 02FE9    001C0000 A    DATA X'001C0000'       0000  0
    13168   01 02FEA    001C0000 A    DATA X'001C0000'       0000  1
    13169   01 02FEB    001C0000 A    DATA X'001C0000'       0000  2
    13170   01 02FEC    001C0000 A    DATA X'001C0000'       0000  3
    13171   01 02FED    001B8000 A    DATA X'001B8000'       0001  0
    13172   01 02FEE    001B0000 A    DATA X'001B0000'       0001  1
    13173   01 02FEF    001B0000 A    DATA X'001B0000'       0001  2
    13174   01 02FF0    001B0000 A    DATA X'001B0000'       0001  3
    13175   01 02FF1    001A00FF A    DATA X'001A00FF'       0002  0
    13176   01 02FF2    001A0000 A    DATA X'001A0000'       0002  1
    13177   01 02FF3    001A80FF A    DATA X'001A80FF'       0002  2
    13178   01 02FF4    001A80FF A    DATA X'001A80FF'       0002  3
    13179   01 02FF5    00000000 A   ST19MOD1  DATA    0     0003 0
    13180   01 02FF6    00000000 A   ST19MOD2  DATA    0     0003 1
    13181   01 02FF7    001980FF A    DATA X'001980FF'       0003  2
    13182   01 02FF8    001980FF A    DATA X'001980FF'       0003  3
    13183   01 02FF9    001800AA A    DATA X'001800AA'       0004  0
    13184   01 02FFA    001800AA A    DATA X'001800AA'       0004  1
    13185   01 02FFB    00000000 A   ST19MOD3  DATA    0     0004  2
    13186   01 02FFC    00000000 A   ST19MOD4  DATA    0     0004  3
    13187   01 02FFD    00170000 A    DATA X'00170000'       0005  0
    13188   01 02FFE    00170000 A    DATA X'00170000'       0005  1
    13189   01 02FFF    0017000A A    DATA X'0017000A'       0005  2
    13190   01 03000    0017000A A    DATA X'0017000A'       0005  3
    13191   01 03001    00160001 A    DATA X'00160001'       0006  0
    13192   01 03002    00160001 A    DATA X'00160001'       0006  1
    13193   01 03003    00160000 A    DATA X'00160000'       0006  2
    13194   01 03004    00160000 A    DATA X'00160000'       0006  3
    13195   01 03005    00150200 A    DATA X'00150200'       0007  0
    13196   01 03006    00150200 A    DATA X'00150200'       0007  1
    13197   01 03007    00150200 A    DATA X'00150200'       0007  2
    13198   01 03008    00150200 A    DATA X'00150200'       0007  3
    13199   01 03009    00140200 A    DATA X'00140200'       0008  0
    13200   01 0300A    00140200 A    DATA X'00140200'       0008  1
    13201   01 0300B    00140200 A    DATA X'00140200'       0008  2
    13202   01 0300C    00140200 A    DATA X'00140200'       0008  3
    13203   01 0300D    001392FF A    DATA X'001392FF'       0009  0
    13204   01 0300E    001392FF A    DATA X'001392FF'       0009  1
    13205   01 0300F    001392FF A    DATA X'001392FF'       0009  2
    13206   01 03010    001392FF A    DATA X'001392FF'       0009  3
    13207   01 03011    001292FF A    DATA X'001292FF'       000A  0
    13208   01 03012    001292FF A    DATA X'001292FF'       000A  1
    13209   01 03013    001292FF A    DATA X'001292FF'       000A  2
    13210   01 03014    001292FF A    DATA X'001292FF'       000A  3
    13211   01 03015    00110000 A    DATA X'00110000'       000B  0
    13212   01 03016    00110000 A    DATA X'00110000'       000B  1
    13213   01 03017    00110000 A    DATA X'00110000'       000B  2
    13214   01 03018    00110000 A    DATA X'00110000'       000B  3
    13215   01 03019    00100000 A    DATA X'00100000'       000C  0
    13216   01 0301A    00100000 A    DATA X'00100000'       000C  1
    13217   01 0301B    00100000 A    DATA X'00100000'       000C  2
    13218   01 0301C    00100000 A    DATA X'00100000'       000C  3
    13219   01 0301D    000F0200 A    DATA X'000F0200'       000D  0
    13220   01 0301E    000F0200 A    DATA X'000F0200'       000D  1
    13221   01 0301F    000F0200 A    DATA X'000F0200'       000D  2
    13222   01 03020    000F0200 A    DATA X'000F0200'       000D  3
    13223   01 03021    000E0200 A    DATA X'000E0200'       000E  0
    13224   01 03022    000E0200 A    DATA X'000E0200'       000E  1
    13225   01 03023    000E0200 A    DATA X'000E0200'       000E  2
    13226   01 03024    000E0200 A    DATA X'000E0200'       000E  3
    13227   01 03025    000D9AFF A    DATA X'000D9AFF'       000F  0
    13228   01 03026    000D9AFF A    DATA X'000D9AFF'       000F  1
    13229   01 03027    000D9AFF A    DATA X'000D9AFF'       000F  2
    13230   01 03028    000D9AFF A    DATA X'000D9AFF'       000F  3
    13231   01 03029    000C9AFF A    DATA X'000C9AFF'       0010  0
    13232   01 0302A    000C9AFF A    DATA X'000C9AFF'       0010  1
    13233   01 0302B    000C9AFF A    DATA X'000C9AFF'       0010  2
    13234   01 0302C    000C9AFF A    DATA X'000C9AFF'       0010  3
    13235   01 0302D    000B0500 A    DATA X'000B0500'       0011  0
    13236   01 0302E    000B0500 A    DATA X'000B0500'       0011  1
    13237   01 0302F    000B0500 A    DATA X'000B0500'       0011  2
    13238   01 03030    000B0500 A    DATA X'000B0500'       0011  3
    13239   01 03031    000A0500 A    DATA X'000A0500'       0012  0
    13240   01 03032    000A0500 A    DATA X'000A0500'       0012  1
    13241   01 03033    000A0500 A    DATA X'000A0500'       0012  2
    13242   01 03034    000A0500 A    DATA X'000A0500'       0012  3
    13243   01 03035    000913AA A    DATA X'000913AA'       0013  0
    13244   01 03036    000913AA A    DATA X'000913AA'       0013  1
    13245   01 03037    000913AA A    DATA X'000913AA'       0013  2
    13246   01 03038    000913AA A    DATA X'000913AA'       0013  3
    13247   01 03039    000813AA A    DATA X'000813AA'       0014  0
    13248   01 0303A    000813AA A    DATA X'000813AA'       0014  1
    13249   01 0303B    000813AA A    DATA X'000813AA'       0014  2
    13250   01 0303C    000813AA A    DATA X'000813AA'       0014  3
    13251   01 0303D    00070300 A    DATA X'00070300'       0015  0
    13252   01 0303E    00070300 A    DATA X'00070300'       0015  1
    13253   01 0303F    00070300 A    DATA X'00070300'       0015  2
    13254   01 03040    00070300 A    DATA X'00070300'       0015  3
    13255   01 03041    00060300 A    DATA X'00060300'       0016  0
    13256   01 03042    00060300 A    DATA X'00060300'       0016  1
    13257   01 03043    00060300 A    DATA X'00060300'       0016  2
    13258   01 03044    00060300 A    DATA X'00060300'       0016  3
    13259   01 03045    00051400 A    DATA X'00051400'       0017  0
    13260   01 03046    00051400 A    DATA X'00051400'       0017  1
    13261   01 03047    00051400 A    DATA X'00051400'       0017  2
    13262   01 03048    00051400 A    DATA X'00051400'       0017  3
    13263   01 03049    00041400 A    DATA X'00041400'       0018  0
    13264   01 0304A    00041400 A    DATA X'00041400'       0018  1
    13265   01 0304B    00041400 A    DATA X'00041400'       0018  2
    13266   01 0304C    00041400 A    DATA X'00041400'       0018  3
    13267   01 0304D    00030400 A    DATA X'00030400'       0019  0
    13268   01 0304E    00030400 A    DATA X'00030400'       0019  1
    13269   01 0304F    00030400 A    DATA X'00030400'       0019  2
    13270   01 03050    00030400 A    DATA X'00030400'       0019  3
    13271   01 03051    00020400 A    DATA X'00020400'       001A  0
    13272   01 03052    00020400 A    DATA X'00020400'       001A  1
    13273   01 03053    00020400 A    DATA X'00020400'       001A  2
    13274   01 03054    00020400 A    DATA X'00020400'       001A  3
    13275   01 03055    00011800 A    DATA X'00011800'       001B  0
    13276   01 03056    00011800 A    DATA X'00011800'       001B  1
    13277   01 03057    00011800 A    DATA X'00011800'       001B  2
    13278   01 03058    00011800 A    DATA X'00011800'       001B  3
    13279   01 03059    00001800 A    DATA X'00001800'       001C  0
    13280   01 0305A    00001800 A    DATA X'00001800'       001C  1
    13281   01 0305B    00001800 A    DATA X'00001800'       001C  2
    13282   01 0305C    20202020 A    DATA X'20202020'       001C  3
    13283         01 0305D           GAPD     EQU      %
    13284   01 0305D    80090000 A    DATA X'80090000'       0000  0
    13285   01 0305E    80090000 A    DATA X'80090000'       0000  1
    13286   01 0305F    80090000 A    DATA X'80090000'       0000  2
    13287   01 03060    80090000 A    DATA X'80090000'       0000  3
    13288   01 03061    80080001 A    DATA X'80080001'       0001  0
    13289   01 03062    80080001 A    DATA X'80080001'       0001  1
    13290   01 03063    80080000 A    DATA X'80080000'       0001  2
    13291   01 03064    80080000 A    DATA X'80080000'       0001  3
    13292   01 03065    00000000 A   GAPDMOD1 DATA 0,0,0,0   0002  0 - 3
            01 03066    00000000 A
            01 03067    00000000 A
            01 03068    00000000 A
    13293   01 03069    80060200 A    DATA X'80060200'       0003  0
    13294   01 0306A    80060200 A    DATA X'80060200'       0003  1
    13295   01 0306B    80060200 A    DATA X'80060200'       0003  2
    13296   01 0306C    80060200 A    DATA X'80060200'       0003  3
    13297   01 0306D    80050300 A    DATA X'80050300'       0004  0
    13298   01 0306E    80050300 A    DATA X'80050300'       0004  1
    13299   01 0306F    80050300 A    DATA X'80050300'       0004  2
    13300   01 03070    80050300 A    DATA X'80050300'       0004  3
    13301   01 03071    80040300 A    DATA X'80040300'       0005  0
    13302   01 03072    80040300 A    DATA X'80040300'       0005  1
    13303   01 03073    80040300 A    DATA X'80040300'       0005  2
    13304   01 03074    80040300 A    DATA X'80040300'       0005  3
    13305   01 03075    80030400 A    DATA X'80030400'       0006  0
    13306   01 03076    80030400 A    DATA X'80030400'       0006  1
    13307   01 03077    80030400 A    DATA X'80030400'       0006  2
    13308   01 03078    80030400 A    DATA X'80030400'       0006  3
    13309   01 03079    80020400 A    DATA X'80020400'       0007  0
    13310   01 0307A    80020400 A    DATA X'80020400'       0007  1
    13311   01 0307B    80020400 A    DATA X'80020400'       0007  2
    13312   01 0307C    80020400 A    DATA X'80020400'       0007  3
    13313   01 0307D    80010000 A    DATA X'80010000'       0008  0
    13314   01 0307E    80010000 A    DATA X'80010000'       0008  1
    13315   01 0307F    80010000 A    DATA X'80010000'       0008  2
    13316   01 03080    80010000 A    DATA X'80010000'       0008  3
    13317   01 03081    80000000 A    DATA X'80000000'       0009  0
    13318   01 03082    80000000 A    DATA X'80000000'       0009  1
    13319   01 03083    80000000 A    DATA X'80000000'       0009  2
    13320   01 03084    40000000 A    DATA X'40000000'       0009  3
    13321   01 03085    00000000 A   GAPDMOD2 DATA 0,0,0,0   000A  0 - 3
            01 03086    00000000 A
            01 03087    00000000 A
            01 03088    00000000 A
    13322         01 03089           HDRD1    EQU      %
    13323                            * NOTE: COUNTS 0012 THRU 0015 ARE CHANGED TO
    13324                            *              0017 THRU 001A FOR DISK 33
    13325   01 03089    44020000 A    DATA X'44020000'       0012  0
    13326   01 0308A    44020000 A    DATA X'44020000'       0012  1
    13327   01 0308B    44020000 A    DATA X'44020000'       0012  2
    13328   01 0308C    44020000 A    DATA X'44020000'       0012  3
    13329   01 0308D    44011100 A    DATA X'44011100'       0013  0
    13330   01 0308E    44011100 A    DATA X'44011100'       0013  1
    13331   01 0308F    44011100 A    DATA X'44011100'       0013  2
    13332   01 03090    44011100 A    DATA X'44011100'       0013  3
    13333   01 03091    44001100 A    DATA X'44001100'       0014  0
    13334   01 03092    44001100 A    DATA X'44001100'       0014  1
    13335   01 03093    44001100 A    DATA X'44001100'       0014  2
    13336   01 03094    44001100 A    DATA X'44001100'       0014  3
    13337   01 03095    00000000 A   HDRD1MOD DATA 0,0,0,0   0015  0 - 3
            01 03096    00000000 A
            01 03097    00000000 A
            01 03098    00000000 A
    13338         01 03099           HDRD2X   EQU      %
    13339                            * NOTE: COUNTS 005E THRU 006E ARE CHANGED TO
    13340                            *              005D THRU 006D FOR DISK 33
    13341   01 03099    42010000 A    DATA X'42010000'       005E  0
    13342   01 0309A    42010000 A    DATA X'42010000'       005E  1
    13343   01 0309B    42010000 A    DATA X'42010000'       005E  2
    13344   01 0309C    42010000 A    DATA X'42010000'       005E  3
    13345   01 0309D    42000000 A    DATA X'42000000'       005F  0
    13346   01 0309E    42000000 A    DATA X'42000000'       005F  1
    13347   01 0309F    42000000 A    DATA X'42000000'       005F  2
    13348   01 030A0    42000000 A    DATA X'42000000'       005F  3
    13349   01 030A1    41160000 A    DATA X'41160000'       0060  0
    13350   01 030A2    41160000 A    DATA X'41160000'       0060  1
    13351   01 030A3    41160000 A    DATA X'41160000'       0060  2
    13352   01 030A4    41160000 A    DATA X'41160000'       0060  3
    13353   01 030A5    41158015 A    DATA X'41158015'       0061  0
    13354   01 030A6    41150000 A    DATA X'41150000'       0061  1
    13355   01 030A7    41150000 A    DATA X'41150000'       0061  2
    13356   01 030A8    41150000 A    DATA X'41150000'       0061  3
    13357   01 030A9    4114006A A    DATA X'4114006A'       0062  0
    13358   01 030AA    41140000 A    DATA X'41140000'       0062  1
    13359   01 030AB    41140000 A    DATA X'41140000'       0062  2
    13360   01 030AC    41140000 A    DATA X'41140000'       0062  3
    13361   01 030AD    41130080 A    DATA X'41130080'       0063  0
    13362   01 030AE    41130000 A    DATA X'41130000'       0063  1
    13363   01 030AF    41130080 A    DATA X'41130080'       0063  2
    13364   01 030B0    41130080 A    DATA X'41130080'       0063  3
    13365   01 030B1    4112003F A    DATA X'4112003F'       0064  0
    13366   01 030B2    41120000 A    DATA X'41120000'       0064  1
    13367   01 030B3    4112003F A    DATA X'4112003F'       0064  2
    13368   01 030B4    4112003F A    DATA X'4112003F'       0064  3
    13369   01 030B5    411180D5 A    DATA X'411180D5'       0065  0
    13370   01 030B6    41110000 A    DATA X'41110000'       0065  1
    13371   01 030B7    411180D5 A    DATA X'411180D5'       0065  2
    13372   01 030B8    411180D5 A    DATA X'411180D5'       0065  3
    13373   01 030B9    4110006A A    DATA X'4110006A'       0066  0
    13374   01 030BA    41100000 A    DATA X'41100000'       0066  1
    13375   01 030BB    4110006A A    DATA X'4110006A'       0066  2
    13376   01 030BC    4110006A A    DATA X'4110006A'       0066  3
    13377   01 030BD    410F0080 A    DATA X'410F0080'       0067  0
    13378   01 030BE    410F0000 A    DATA X'410F0000'       0067  1
    13379   01 030BF    410F0080 A    DATA X'410F0080'       0067  2
    13380   01 030C0    410F0080 A    DATA X'410F0080'       0067  3
    13381   01 030C1    410E003F A    DATA X'410E003F'       0068  0
    13382   01 030C2    410E0000 A    DATA X'410E0000'       0068  1
    13383   01 030C3    410E003F A    DATA X'410E003F'       0068  2
    13384   01 030C4    410E003F A    DATA X'410E003F'       0068  3
    13385   01 030C5    410D00D5 A    DATA X'410D00D5'       0069  0
    13386   01 030C6    410D0000 A    DATA X'410D0000'       0069  1
    13387   01 030C7    410D00D5 A    DATA X'410D00D5'       0069  2
    13388   01 030C8    410D00D5 A    DATA X'410D00D5'       0069  3
    13389   01 030C9    410C006A A    DATA X'410C006A'       006A  0
    13390   01 030CA    410C0000 A    DATA X'410C0000'       006A  1
    13391   01 030CB    410C006A A    DATA X'410C006A'       006A  2
    13392   01 030CC    410C006A A    DATA X'410C006A'       006A  3
    13393   01 030CD    410B0080 A    DATA X'410B0080'       006B  0
    13394   01 030CE    410B0000 A    DATA X'410B0000'       006B  1
    13395   01 030CF    410B0080 A    DATA X'410B0080'       006B  2
    13396   01 030D0    410B0080 A    DATA X'410B0080'       006B  3
    13397   01 030D1    410A003F A    DATA X'410A003F'       006C  0
    13398   01 030D2    410A0000 A    DATA X'410A0000'       006C  1
    13399   01 030D3    410A003F A    DATA X'410A003F'       006C  2
    13400   01 030D4    410A003F A    DATA X'410A003F'       006C  3
    13401   01 030D5    41091700 A    DATA X'41091700'       006D  0
    13402   01 030D6    41091700 A    DATA X'41091700'       006D  1
    13403   01 030D7    41091700 A    DATA X'41091700'       006D  2
    13404   01 030D8    41091700 A    DATA X'41091700'       006D  3
    13405   01 030D9    41081700 A    DATA X'41081700'       006E  0
    13406   01 030DA    41081700 A    DATA X'41081700'       006E  1
    13407   01 030DB    41081700 A    DATA X'41081700'       006E  2
    13408   01 030DC    41081700 A    DATA X'41081700'       006E  3
    13409         01 030DD           HDRD3    EQU      %
    13410                            * NOTE: COUNTS 006F THRU 0076 ARE CHANGED TO
    13411                            *              006E THRU 0075 FOR DISK 33
    13412   01 030DD    41070000 A    DATA X'41070000'       006F  0
    13413   01 030DE    41070000 A    DATA X'41070000'       006F  1
    13414   01 030DF    41070000 A    DATA X'41070000'       006F  2
    13415   01 030E0    41070000 A    DATA X'41070000'       006F  3
    13416   01 030E1    41060000 A    DATA X'41060000'       0070  0
    13417   01 030E2    41060000 A    DATA X'41060000'       0070  1
    13418   01 030E3    41060000 A    DATA X'41060000'       0070  2
    13419   01 030E4    41060001 A    DATA X'41060001'       0070  3
    13420   01 030E5    4105000A A    DATA X'4105000A'       0071  0
    13421   01 030E6    4105000A A    DATA X'4105000A'       0071  1
    13422   01 030E7    4105000A A    DATA X'4105000A'       0071  2
    13423   01 030E8    4105000A A    DATA X'4105000A'       0071  3
    13424   01 030E9    41040000 A    DATA X'41040000'       0072  0
    13425   01 030EA    41040000 A    DATA X'41040000'       0072  1
    13426   01 030EB    41040000 A    DATA X'41040000'       0072  2
    13427   01 030EC    41040000 A    DATA X'41040000'       0072  3
    13428   01 030ED    41031401 A    DATA X'41031401'       0073  0
    13429   01 030EE    41031401 A    DATA X'41031401'       0073  1
    13430   01 030EF    41031401 A    DATA X'41031401'       0073  2
    13431   01 030F0    41031401 A    DATA X'41031401'       0073  3
    13432   01 030F1    41021401 A    DATA X'41021401'       0074  0
    13433   01 030F2    41021401 A    DATA X'41021401'       0074  1
    13434   01 030F3    41021401 A    DATA X'41021401'       0074  2
    13435   01 030F4    41021401 A    DATA X'41021401'       0074  3
    13436   01 030F5    41011300 A    DATA X'41011300'       0075  0
    13437   01 030F6    41011300 A    DATA X'41011300'       0075  1
    13438   01 030F7    41011300 A    DATA X'41011300'       0075  2
    13439   01 030F8    41011300 A    DATA X'41011300'       0075  3
    13440   01 030F9    41001300 A    DATA X'41001300'       0076  0
    13441   01 030FA    41001300 A    DATA X'41001300'       0076  1
    13442   01 030FB    41001300 A    DATA X'41001300'       0076  2
    13443   01 030FC    43434343 A    DATA X'43434343'       0076  3
    13444         01 030FD           HDWR1    EQU      %
    13445   01 030FD    00000000 A   HDWR1MD1 DATA 0,0,0,0   000A  0 - 3
            01 030FE    00000000 A
            01 030FF    00000000 A
            01 03100    00000000 A
    13446   01 03101    00000000 A   HDWR1MD2 DATA 0,0,0,0   000B  0 - 3
            01 03102    00000000 A
            01 03103    00000000 A
            01 03104    00000000 A
    13447   01 03105    00000000 A   HDWR1MD3 DATA 0,0,0,0   000C  0 - 3
            01 03106    00000000 A
            01 03107    00000000 A
            01 03108    00000000 A
    13448   01 03109    00000000 A   HDWR1MD4 DATA 0,0,0,0   000D  0 - 3
            01 0310A    00000000 A
            01 0310B    00000000 A
            01 0310C    00000000 A
    13449         01 0310D           HDWR2    EQU      %
    13450                            * NOTE: COUNTS 002A THRU 0041 ARE CHANGED TO
    13451                            *              002C THRU 0043 FOR DISK 33
    13452   01 0310D    50000000 A    DATA X'50000000'       002A  0
    13453   01 0310E    50000000 A    DATA X'50000000'       002A  1
    13454   01 0310F    50000000 A    DATA X'50000000'       002A  2
    13455   01 03110    50000000 A    DATA X'50000000'       002A  3
    13456   01 03111    48160000 A    DATA X'48160000'       002B  0
    13457   01 03112    48160000 A    DATA X'48160000'       002B  1
    13458   01 03113    48160000 A    DATA X'48160000'       002B  2
    13459   01 03114    48160000 A    DATA X'48160000'       002B  3
    13460   01 03115    48150000 A    DATA X'48150000'       002C  0
    13461   01 03116    48150000 A    DATA X'48150000'       002C  1
    13462   01 03117    48150000 A    DATA X'48150000'       002C  2
    13463   01 03118    48150000 A    DATA X'48150000'       002C  3
    13464   01 03119    48140000 A    DATA X'48140000'       002D  0
    13465   01 0311A    48140000 A    DATA X'48140000'       002D  1
    13466   01 0311B    48140000 A    DATA X'48140000'       002D  2
    13467   01 0311C    48140000 A    DATA X'48140000'       002D  3
    13468   01 0311D    48130000 A    DATA X'48130000'       002E  0
    13469   01 0311E    48130080 A    DATA X'48130080'       002E  1
    13470   01 0311F    48130000 A    DATA X'48130000'       002E  2
    13471   01 03120    48130000 A    DATA X'48130000'       002E  3
    13472   01 03121    48120000 A    DATA X'48120000'       002F  0
    13473   01 03122    4812003F A    DATA X'4812003F'       002F  1
    13474   01 03123    48120000 A    DATA X'48120000'       002F  2
    13475   01 03124    48120000 A    DATA X'48120000'       002F  3
    13476   01 03125    48110000 A    DATA X'48110000'       0030  0
    13477   01 03126    481100D5 A    DATA X'481100D5'       0030  1
    13478   01 03127    48110000 A    DATA X'48110000'       0030  2
    13479   01 03128    48110000 A    DATA X'48110000'       0030  3
    13480   01 03129    48100000 A    DATA X'48100000'       0031  0
    13481   01 0312A    4810006A A    DATA X'4810006A'       0031  1
    13482   01 0312B    48100000 A    DATA X'48100000'       0031  2
    13483   01 0312C    48100000 A    DATA X'48100000'       0031  3
    13484   01 0312D    480F0000 A    DATA X'480F0000'       0032  0
    13485   01 0312E    480F0080 A    DATA X'480F0080'       0032  1
    13486   01 0312F    480F0000 A    DATA X'480F0000'       0032  2
    13487   01 03130    480F0000 A    DATA X'480F0000'       0032  3
    13488   01 03131    480E0000 A    DATA X'480E0000'       0033  0
    13489   01 03132    480E003F A    DATA X'480E003F'       0033  1
    13490   01 03133    480E0000 A    DATA X'480E0000'       0033  2
    13491   01 03134    480E0000 A    DATA X'480E0000'       0033  3
    13492   01 03135    480D0000 A    DATA X'480D0000'       0034  0
    13493   01 03136    480D00D5 A    DATA X'480D00D5'       0034  1
    13494   01 03137    480D0000 A    DATA X'480D0000'       0034  2
    13495   01 03138    480D0000 A    DATA X'480D0000'       0034  3
    13496   01 03139    480C0000 A    DATA X'480C0000'       0035  0
    13497   01 0313A    480C006A A    DATA X'480C006A'       0035  1
    13498   01 0313B    480C0000 A    DATA X'480C0000'       0035  2
    13499   01 0313C    480C0000 A    DATA X'480C0000'       0035  3
    13500   01 0313D    480B0000 A    DATA X'480B0000'       0036  0
    13501   01 0313E    480B0000 A    DATA X'480B0000'       0036  1
    13502   01 0313F    480B0000 A    DATA X'480B0000'       0036  2
    13503   01 03140    480B0000 A    DATA X'480B0000'       0036  3
    13504   01 03141    480A0000 A    DATA X'480A0000'       0037  0
    13505   01 03142    480A0000 A    DATA X'480A0000'       0037  1
    13506   01 03143    480A0051 A    DATA X'480A0051'       0037  2
    13507   01 03144    480A0000 A    DATA X'480A0000'       0037  3
    13508   01 03145    48090051 A    DATA X'48090051'       0038  0
    13509   01 03146    48090051 A    DATA X'48090051'       0038  1
    13510   01 03147    4809000C A    DATA X'4809000C'       0038  2
    13511   01 03148    48090000 A    DATA X'48090000'       0038  3
    13512   01 03149    4808000C A    DATA X'4808000C'       0039  0
    13513   01 0314A    4808000C A    DATA X'4808000C'       0039  1
    13514   01 0314B    48080000 A    DATA X'48080000'       0039  2
    13515   01 0314C    48080000 A    DATA X'48080000'       0039  3
    13516   01 0314D    48070000 A    DATA X'48070000'       003A  0
    13517   01 0314E    48070000 A    DATA X'48070000'       003A  1
    13518   01 0314F    48070000 A    DATA X'48070000'       003A  2
    13519   01 03150    48070000 A    DATA X'48070000'       003A  3
    13520   01 03151    48060000 A    DATA X'48060000'       003B  0
    13521   01 03152    48060000 A    DATA X'48060000'       003B  1
    13522   01 03153    48060000 A    DATA X'48060000'       003B  2
    13523   01 03154    48060001 A    DATA X'48060001'       003B  3
    13524   01 03155    4805170A A    DATA X'4805170A'       003C  0
    13525   01 03156    4805170A A    DATA X'4805170A'       003C  1
    13526   01 03157    4805170A A    DATA X'4805170A'       003C  2
    13527   01 03158    4805170A A    DATA X'4805170A'       003C  3
    13528   01 03159    48041700 A    DATA X'48041700'       003D  0
    13529   01 0315A    48041700 A    DATA X'48041700'       003D  1
    13530   01 0315B    48041700 A    DATA X'48041700'       003D  2
    13531   01 0315C    48041700 A    DATA X'48041700'       003D  3
    13532   01 0315D    48031401 A    DATA X'48031401'       003E  0
    13533   01 0315E    48031401 A    DATA X'48031401'       003E  1
    13534   01 0315F    48031401 A    DATA X'48031401'       003E  2
    13535   01 03160    48031401 A    DATA X'48031401'       003E  3
    13536   01 03161    48021401 A    DATA X'48021401'       003F  0
    13537   01 03162    48021401 A    DATA X'48021401'       003F  1
    13538   01 03163    48021401 A    DATA X'48021401'       003F  2
    13539   01 03164    48021401 A    DATA X'48021401'       003F  3
    13540   01 03165    48011300 A    DATA X'48011300'       0040  0
    13541   01 03166    48011300 A    DATA X'48011300'       0040  1
    13542   01 03167    48011300 A    DATA X'48011300'       0040  2
    13543   01 03168    48011300 A    DATA X'48011300'       0040  3
    13544   01 03169    48001300 A    DATA X'48001300'       0041  0
    13545   01 0316A    48001300 A    DATA X'48001300'       0041  1
    13546   01 0316B    48001300 A    DATA X'48001300'       0041  2
    13547   01 0316C    00000000 A    DATA X'00000000'       0041  3
    13548         01 0316D           HDRD2    EQU      %
    13549                            * NOTE: COUNTS 005E THRU 006E ARE CHANGED TO
    13550                            *              005D THRU 006D FOR DISK 33
    13551   01 0316D    42010000 A    DATA X'42010000'       005E  0
    13552   01 0316E    42010000 A    DATA X'42010000'       005E  1
    13553   01 0316F    42010000 A    DATA X'42010000'       005E  2
    13554   01 03170    42010000 A    DATA X'42010000'       005E  3
    13555   01 03171    42000000 A    DATA X'42000000'       005F  0
    13556   01 03172    42000000 A    DATA X'42000000'       005F  1
    13557   01 03173    42000000 A    DATA X'42000000'       005F  2
    13558   01 03174    42000000 A    DATA X'42000000'       005F  3
    13559   01 03175    41160000 A    DATA X'41160000'       0060  0
    13560   01 03176    41160000 A    DATA X'41160000'       0060  1
    13561   01 03177    41160000 A    DATA X'41160000'       0060  2
    13562   01 03178    41160000 A    DATA X'41160000'       0060  3
    13563   01 03179    41158015 A    DATA X'41158015'       0061  0
    13564   01 0317A    41150000 A    DATA X'41150000'       0061  1
    13565   01 0317B    41150000 A    DATA X'41150000'       0061  2
    13566   01 0317C    41150000 A    DATA X'41150000'       0061  3
    13567   01 0317D    4114006A A    DATA X'4114006A'       0062  0
    13568   01 0317E    41140000 A    DATA X'41140000'       0062  1
    13569   01 0317F    41140000 A    DATA X'41140000'       0062  2
    13570   01 03180    41140000 A    DATA X'41140000'       0062  3
    13571   01 03181    41130080 A    DATA X'41130080'       0063  0
    13572   01 03182    41130000 A    DATA X'41130000'       0063  1
    13573   01 03183    41130000 A    DATA X'41130000'       0063  2
    13574   01 03184    41130000 A    DATA X'41130000'       0063  3
    13575   01 03185    4112003F A    DATA X'4112003F'       0064  0
    13576   01 03186    41120000 A    DATA X'41120000'       0064  1
    13577   01 03187    41120000 A    DATA X'41120000'       0064  2
    13578   01 03188    41120000 A    DATA X'41120000'       0064  3
    13579   01 03189    411180D5 A    DATA X'411180D5'       0065  0
    13580   01 0318A    41110000 A    DATA X'41110000'       0065  1
    13581   01 0318B    41110000 A    DATA X'41110000'       0065  2
    13582   01 0318C    41110000 A    DATA X'41110000'       0065  3
    13583   01 0318D    4110006A A    DATA X'4110006A'       0066  0
    13584   01 0318E    41100000 A    DATA X'41100000'       0066  1
    13585   01 0318F    41100000 A    DATA X'41100000'       0066  2
    13586   01 03190    41100000 A    DATA X'41100000'       0066  3
    13587   01 03191    410F0080 A    DATA X'410F0080'       0067  0
    13588   01 03192    410F0000 A    DATA X'410F0000'       0067  1
    13589   01 03193    410F0000 A    DATA X'410F0000'       0067  2
    13590   01 03194    410F0000 A    DATA X'410F0000'       0067  3
    13591   01 03195    410E003F A    DATA X'410E003F'       0068  0
    13592   01 03196    410E0000 A    DATA X'410E0000'       0068  1
    13593   01 03197    410E0000 A    DATA X'410E0000'       0068  2
    13594   01 03198    410E0000 A    DATA X'410E0000'       0068  3
    13595   01 03199    410D00D5 A    DATA X'410D00D5'       0069  0
    13596   01 0319A    410D0000 A    DATA X'410D0000'       0069  1
    13597   01 0319B    410D0000 A    DATA X'410D0000'       0069  2
    13598   01 0319C    410D0000 A    DATA X'410D0000'       0069  3
    13599   01 0319D    410C006A A    DATA X'410C006A'       006A  0
    13600   01 0319E    410C0000 A    DATA X'410C0000'       006A  1
    13601   01 0319F    410C0000 A    DATA X'410C0000'       006A  2
    13602   01 031A0    410C0000 A    DATA X'410C0000'       006A  3
    13603   01 031A1    410B0080 A    DATA X'410B0080'       006B  0
    13604   01 031A2    410B0000 A    DATA X'410B0000'       006B  1
    13605   01 031A3    410B0080 A    DATA X'410B0080'       006B  2
    13606   01 031A4    410B0080 A    DATA X'410B0080'       006B  3
    13607   01 031A5    410A003F A    DATA X'410A003F'       006C  0
    13608   01 031A6    410A0000 A    DATA X'410A0000'       006C  1
    13609   01 031A7    410A003F A    DATA X'410A003F'       006C  2
    13610   01 031A8    410A003F A    DATA X'410A003F'       006C  3
    13611   01 031A9    41091700 A    DATA X'41091700'       006D  0
    13612   01 031AA    41091700 A    DATA X'41091700'       006D  1
    13613   01 031AB    41091700 A    DATA X'41091700'       006D  2
    13614   01 031AC    41091700 A    DATA X'41091700'       006D  3
    13615   01 031AD    41081700 A    DATA X'41081700'       006E  0
    13616   01 031AE    41081700 A    DATA X'41081700'       006E  1
    13617   01 031AF    41081700 A    DATA X'41081700'       006E  2
    13618   01 031B0    41081700 A    DATA X'41081700'       006E  3
    13619         01 031B1           HDRD4    EQU      %
    13620                            * NOTE: COUNTS 006F THRU 0076 ARE CHANGED TO
    13621                            *              006E THRU 0075 FOR DISK 33
    13622   01 031B1    41070000 A    DATA X'41070000'       006F  0
    13623   01 031B2    41070000 A    DATA X'41070000'       006F  1
    13624   01 031B3    41070000 A    DATA X'41070000'       006F  2
    13625   01 031B4    41070000 A    DATA X'41070000'       006F  3
    13626   01 031B5    41060000 A    DATA X'41060000'       0070  0
    13627   01 031B6    41060000 A    DATA X'41060000'       0070  1
    13628   01 031B7    41060000 A    DATA X'41060000'       0070  2
    13629   01 031B8    41060000 A    DATA X'41060000'       0070  3
    13630   01 031B9    41050000 A    DATA X'41050000'       0071  0
    13631   01 031BA    41050000 A    DATA X'41050000'       0071  1
    13632   01 031BB    41050000 A    DATA X'41050000'       0071  2
    13633   01 031BC    41050000 A    DATA X'41050000'       0071  3
    13634   01 031BD    41040000 A    DATA X'41040000'       0072  0
    13635   01 031BE    41040000 A    DATA X'41040000'       0072  1
    13636   01 031BF    41040000 A    DATA X'41040000'       0072  2
    13637   01 031C0    41040000 A    DATA X'41040000'       0072  3
    13638   01 031C1    41030000 A    DATA X'41030000'       0073  0
    13639   01 031C2    41030000 A    DATA X'41030000'       0073  1
    13640   01 031C3    41030000 A    DATA X'41030000'       0073  2
    13641   01 031C4    41030000 A    DATA X'41030000'       0073  3
    13642   01 031C5    41020000 A    DATA X'41020000'       0074  0
    13643   01 031C6    41020000 A    DATA X'41020000'       0074  1
    13644   01 031C7    41020000 A    DATA X'41020000'       0074  2
    13645   01 031C8    41020000 A    DATA X'41020000'       0074  3
    13646   01 031C9    41010000 A    DATA X'41010000'       0075  0
    13647   01 031CA    41010000 A    DATA X'41010000'       0075  1
    13648   01 031CB    41010000 A    DATA X'41010000'       0075  2
    13649   01 031CC    41010000 A    DATA X'41010000'       0075  3
    13650   01 031CD    41000000 A    DATA X'41000000'       0076  0
    13651   01 031CE    41000000 A    DATA X'41000000'       0076  1
    13652   01 031CF    41000000 A    DATA X'41000000'       0076  2
    13653   01 031D0    21000000 A    DATA X'21000000'       0076  3
    13654         01 031D1           RDD1     EQU      %
    13655         01 031D1           CWD1     EQU      %
    13656                            * NOTE: COUNTS 0077 THRU 0078 ARE CHANGED TO
    13657                            *              0076 THRU 0077 FOR DISK 33
    13658   01 031D1    00000000 A   RDD1MOD1 DATA 0,0,0,0   0077  0 - 3
            01 031D2    00000000 A
            01 031D3    00000000 A
            01 031D4    00000000 A
    13659   01 031D5    00000000 A   RDD1MOD2 DATA 0,0,0,0   0078  0 - 3
            01 031D6    00000000 A
            01 031D7    00000000 A
            01 031D8    00000000 A
    13660         01 031D9           CWD2     EQU      %
    13661         01 031D9           RDD2     EQU      %
    13662                            * NOTE: COUNTS 0081 THRU 0082 ARE CHANGED TO
    13663                            *              0085 THRU 0086 FOR DISK 33
    13664   01 031D9    24001100 A    DATA X'24001100'       0081  0
    13665   01 031DA    24001100 A    DATA X'24001100'       0081  1
    13666   01 031DB    24001100 A    DATA X'24001100'       0081  2
    13667   01 031DC    24001100 A    DATA X'24001100'       0081  3
    13668   01 031DD    00000000 A   RDD2MOD  DATA 0,0,0,0   0082  0 - 3
            01 031DE    00000000 A
            01 031DF    00000000 A
            01 031E0    00000000 A
    13669         01 031E1           RDD3     EQU      %
    13670         01 031E1           CWD3     EQU      %
    13671                            * NOTE: COUNTS 00CC THRU 00CD ARE CHANGED TO
    13672                            *              00CA THRU 00CB FOR DISK 33
    13673   01 031E1    22000000 A    DATA X'22000000'       00CC  0
    13674   01 031E2    22000000 A    DATA X'22000000'       00CC  1
    13675   01 031E3    22000000 A    DATA X'22000000'       00CC  2
    13676   01 031E4    22000000 A    DATA X'22000000'       00CC  3
    13677   01 031E5    210E0000 A    DATA X'210E0000'       00CD  0
    13678   01 031E6    210E0000 A    DATA X'210E0000'       00CD  1
    13679   01 031E7    210E0000 A    DATA X'210E0000'       00CD  2
    13680   01 031E8    210E0000 A    DATA X'210E0000'       00CD  3
    13681         01 031E9           RDD4     EQU      %
    13682         01 031E9           RDD5     EQU      %
    13683         01 031E9           RDD6     EQU      %
    13684         01 031E9           RDD7     EQU      %
    13685                            * NOTE: COUNTS 03DB THRU 03DC ARE CHANGED TO
    13686                            *              03D9 THRU 03DA FOR DISK 33
    13687   01 031E9    2100006A A    DATA X'2100006A'       03DB  0
    13688   01 031EA    21000000 A    DATA X'21000000'       03DB  1
    13689   01 031EB    21000000 A    DATA X'21000000'       03DB  2
    13690   01 031EC    21000000 A    DATA X'21000000'       03DB  3
    13691   01 031ED    21FF0080 A    DATA X'21FF0080'       03DC  0
    13692   01 031EE    21FF0000 A    DATA X'21FF0000'       03DC  1
    13693   01 031EF    21FF0000 A    DATA X'21FF0000'       03DC  2
    13694   01 031F0    21FF0000 A    DATA X'21FF0000'       03DC  3
    13695         01 031F1           RDD8     EQU      %
    13696         01 031F1           CWD8     EQU      %
    13697                            * NOTE: COUNTS 04D2 THRU 04DB ARE CHANGED TO
    13698                            *              04D0 THRU 04D9 FOR DISK 33
    13699   01 031F1    21091700 A    DATA X'21091700'       04D2  0
    13700   01 031F2    21091700 A    DATA X'21091700'       04D2  1
    13701   01 031F3    21091700 A    DATA X'21091700'       04D2  2
    13702   01 031F4    21091700 A    DATA X'21091700'       04D2  3
    13703   01 031F5    21081700 A    DATA X'21081700'       04D3  0
    13704   01 031F6    21081700 A    DATA X'21081700'       04D3  1
    13705   01 031F7    21081700 A    DATA X'21081700'       04D3  2
    13706   01 031F8    21081700 A    DATA X'21081700'       04D3  3
    13707   01 031F9    21070000 A    DATA X'21070000'       04D4  0
    13708   01 031FA    21070000 A    DATA X'21070000'       04D4  1
    13709   01 031FB    21070000 A    DATA X'21070000'       04D4  2
    13710   01 031FC    21070000 A    DATA X'21070000'       04D4  3
    13711   01 031FD    21060000 A    DATA X'21060000'       04D5  0
    13712   01 031FE    21060000 A    DATA X'21060000'       04D5  1
    13713   01 031FF    21060000 A    DATA X'21060000'       04D5  2
    13714   01 03200    21060001 A    DATA X'21060001'       04D5  3
    13715   01 03201    2105000A A    DATA X'2105000A'       04D6  0
    13716   01 03202    2105000A A    DATA X'2105000A'       04D6  1
    13717   01 03203    2105000A A    DATA X'2105000A'       04D6  2
    13718   01 03204    2105000A A    DATA X'2105000A'       04D6  3
    13719   01 03205    21040000 A    DATA X'21040000'       04D7  0
    13720   01 03206    21040000 A    DATA X'21040000'       04D7  1
    13721   01 03207    21040000 A    DATA X'21040000'       04D7  2
    13722   01 03208    21040000 A    DATA X'21040000'       04D7  3
    13723   01 03209    21031401 A    DATA X'21031401'       04D8  0
    13724   01 0320A    21031401 A    DATA X'21031401'       04D8  1
    13725   01 0320B    21031401 A    DATA X'21031401'       04D8  2
    13726   01 0320C    21031401 A    DATA X'21031401'       04D8  3
    13727   01 0320D    21021401 A    DATA X'21021401'       04D9  0
    13728   01 0320E    21021401 A    DATA X'21021401'       04D9  1
    13729   01 0320F    21021401 A    DATA X'21021401'       04D9  2
    13730   01 03210    21021401 A    DATA X'21021401'       04D9  3
    13731   01 03211    21011300 A    DATA X'21011300'       04DA  0
    13732   01 03212    21011300 A    DATA X'21011300'       04DA  1
    13733   01 03213    21011300 A    DATA X'21011300'       04DA  2
    13734   01 03214    21011300 A    DATA X'21011300'       04DA  3
    13735   01 03215    21001300 A    DATA X'21001300'       04DB  0
    13736   01 03216    21001300 A    DATA X'21001300'       04DB  1
    13737   01 03217    21001300 A    DATA X'21001300'       04DB  2
    13738   01 03218    43434343 A    DATA X'43434343'       04DB  3
    13739         01 03219           CWD4     EQU      %
    13740         01 03219           CWD5     EQU      %
    13741         01 03219           CWD6     EQU      %
    13742         01 03219           CWD7     EQU      %
    13743                            * NOTE: COUNTS 03DB THRU 03DC ARE CHANGED TO
    13744                            *              03D9 THRU 03DA FOR DISK 33
    13745   01 03219    2100006A A    DATA X'2100006A'       03DB  0
    13746   01 0321A    21000095 A    DATA X'21000095'       03DB  1
    13747   01 0321B    21000000 A    DATA X'21000000'       03DB  2
    13748   01 0321C    21000000 A    DATA X'21000000'       03DB  3
    13749   01 0321D    21FF0080 A    DATA X'21FF0080'       03DC  0
    13750   01 0321E    21FF007F A    DATA X'21FF007F'       03DC  1
    13751   01 0321F    21FF0000 A    DATA X'21FF0000'       03DC  2
    13752   01 03220    21FF0000 A    DATA X'21FF0000'       03DC  3
    13753         01 03221           WRD1     EQU      %
    13754                            * NOTE: COUNTS 0077 THRU 0078 ARE CHANGED TO
    13755                            *              0076 THRU 0077 FOR DISK 33
    13756   01 03221    00000000 A   WRD1MOD1 DATA 0,0,0,0   0077  0 - 3
            01 03222    00000000 A
            01 03223    00000000 A
            01 03224    00000000 A
    13757   01 03225    00000000 A   WRD1MOD2 DATA 0,0,0,0   0078  0 - 3
            01 03226    00000000 A
            01 03227    00000000 A
            01 03228    00000000 A
    13758         01 03229           WRD2     EQU      %
    13759                            * NOTE: COUNTS 0097 THRU 0098 ARE CHANGED TO
    13760                            *              0098 THRU 0099 FOR DISK 33
    13761   01 03229    30000000 A    DATA X'30000000'       0097  0
    13762   01 0322A    30000000 A    DATA X'30000000'       0097  1
    13763   01 0322B    30000000 A    DATA X'30000000'       0097  2
    13764   01 0322C    30000000 A    DATA X'30000000'       0097  3
    13765   01 0322D    280E0000 A    DATA X'280E0000'       0098  0
    13766   01 0322E    280E0000 A    DATA X'280E0000'       0098  1
    13767   01 0322F    280E0000 A    DATA X'280E0000'       0098  2
    13768   01 03230    280E0000 A    DATA X'280E0000'       0098  3
    13769         01 03231           WRD3     EQU      %
    13770         01 03231           WRD4     EQU      %
    13771         01 03231           WRD5     EQU      %
    13772         01 03231           WRD6     EQU      %
    13773                            * NOTE: COUNTS 03A6 THRU 03A7 ARE CHANGED TO
    13774                            *              03A7 THRU 03A8 FOR DISK 33
    13775   01 03231    28000000 A    DATA X'28000000'       03A6  0
    13776   01 03232    2800006A A    DATA X'2800006A'       03A6  1
    13777   01 03233    28000000 A    DATA X'28000000'       03A6  2
    13778   01 03234    28000000 A    DATA X'28000000'       03A6  3
    13779   01 03235    28FF0000 A    DATA X'28FF0000'       03A7  0
    13780   01 03236    28FF0080 A    DATA X'28FF0080'       03A7  1
    13781   01 03237    28FF0000 A    DATA X'28FF0000'       03A7  2
    13782   01 03238    28FF0000 A    DATA X'28FF0000'       03A7  3
    13783         01 03239           WRD7     EQU      %
    13784                            * NOTE: COUNTS 049D THRU 04A6 ARE CHANGED TO
    13785                            *              049E THRU 04A7 FOR DISK 33
    13786   01 03239    280900C4 A    DATA X'280900C4'       049D  0
    13787   01 0323A    280900C4 A    DATA X'280900C4'       049D  1
    13788   01 0323B    2809008A A    DATA X'2809008A'       049D  2
    13789   01 0323C    28090000 A    DATA X'28090000'       049D  3
    13790   01 0323D    2808008A A    DATA X'2808008A'       049E  0
    13791   01 0323E    2808008A A    DATA X'2808008A'       049E  1
    13792   01 0323F    28080000 A    DATA X'28080000'       049E  2
    13793   01 03240    28080000 A    DATA X'28080000'       049E  3
    13794   01 03241    28070000 A    DATA X'28070000'       049F  0
    13795   01 03242    28070000 A    DATA X'28070000'       049F  1
    13796   01 03243    28070000 A    DATA X'28070000'       049F  2
    13797   01 03244    28070000 A    DATA X'28070000'       049F  3
    13798   01 03245    28060000 A    DATA X'28060000'       04A0  0
    13799   01 03246    28060000 A    DATA X'28060000'       04A0  1
    13800   01 03247    28060000 A    DATA X'28060000'       04A0  2
    13801   01 03248    28060001 A    DATA X'28060001'       04A0  3
    13802   01 03249    2805170A A    DATA X'2805170A'       04A1  0
    13803   01 0324A    2805170A A    DATA X'2805170A'       04A1  1
    13804   01 0324B    2805170A A    DATA X'2805170A'       04A1  2
    13805   01 0324C    2805170A A    DATA X'2805170A'       04A1  3
    13806   01 0324D    28041700 A    DATA X'28041700'       04A2  0
    13807   01 0324E    28041700 A    DATA X'28041700'       04A2  1
    13808   01 0324F    28041700 A    DATA X'28041700'       04A2  2
    13809   01 03250    28041700 A    DATA X'28041700'       04A2  3
    13810   01 03251    28031401 A    DATA X'28031401'       04A3  0
    13811   01 03252    28031401 A    DATA X'28031401'       04A3  1
    13812   01 03253    28031401 A    DATA X'28031401'       04A3  2
    13813   01 03254    28031401 A    DATA X'28031401'       04A3  3
    13814   01 03255    28021401 A    DATA X'28021401'       04A4  0
    13815   01 03256    28021401 A    DATA X'28021401'       04A4  1
    13816   01 03257    28021401 A    DATA X'28021401'       04A4  2
    13817   01 03258    28021401 A    DATA X'28021401'       04A4  3
    13818   01 03259    28011300 A    DATA X'28011300'       04A5  0
    13819   01 0325A    28011300 A    DATA X'28011300'       04A5  1
    13820   01 0325B    28011300 A    DATA X'28011300'       04A5  2
    13821   01 0325C    28011300 A    DATA X'28011300'       04A5  3
    13822   01 0325D    28001300 A    DATA X'28001300'       04A6  0
    13823   01 0325E    28001300 A    DATA X'28001300'       04A6  1
    13824   01 0325F    28001300 A    DATA X'28001300'       04A6  2
    13825   01 03260    43434343 A    DATA X'43434343'       04A6  3
    13826         01 03261           GAPR     EQU      %
    13827         01 03261           RDR1     EQU      %
    13828         01 03261           RDR2     EQU      %
    13829         01 03261           RDR3     EQU      %
    13830         01 03261           RDR4     EQU      %
    13831         01 03261           RDR5     EQU      %
    13832         01 03261           RDR6     EQU      %
    13833         01 03261           RDR7     EQU      %
    13834         01 03261           CWR1     EQU      %
    13835         01 03261           CWR2     EQU      %
    13836         01 03261           CWR3     EQU      %
    13837         01 03261           CWR4     EQU      %
    13838         01 03261           CWR5     EQU      %
    13839         01 03261           CWR6     EQU      %
    13840         01 03261           CWR7     EQU      %
    13841         01 03261           WRR1     EQU      %
    13842         01 03261           WRR2     EQU      %
    13843         01 03261           WRR3     EQU      %
    13844         01 03261           WRR4     EQU      %
    13845         01 03261           WRR5     EQU      %
    13846         01 03261           WRR6     EQU      %
    13847         01 03261           WRR7     EQU      %
    13848                                     BOUND    8
    13849   01 03262                 BF1      RES      258
    13850         01 03262           TEMP1    EQU      BF1
    13851         01 032C6           TEMP2    EQU      BF1+100
    13852         01 0332A           TEMP3    EQU      BF1+200
    13853   01 03364                 BF2      RES      512
    13854   01 02DCD                          ORG      PROGEND
            01 02DCD
    13855                            USERPROG END
            01 02DCD    00003501
            01 02DCE    60006000 A
            01 02DCF    00800000 A
            01 02DD0    00001F00 A
            01 02DD1    00001FF0 A
            01 02DD2    FFFFFFFE A
            01 02DD3    00001FFF A
            01 02DD4    80000000 A
            01 02DD5    FFFF0000 A
            01 02DD6    40000000 A
            01 02DD7    66000000 A
            01 02DD8    00FFFFFF A
            01 02DD9    0000FFFF A
            01 02DDA    00600000 A
            01 02DDB    0000C000 A
            01 02DDC    000FFFFF A
            01 02DDD    FFFFFFFF A
            01 02DDE    0000000F A
            01 02DDF    0000001F A
            01 02DE0    0000000A A
            01 02DE1    2C000000 A
            01 02DE2    20000000 A
            01 02DE3    1C000000 A
            01 02DE4    10000000 A
            01 02DE5    0C000000 A
            01 02DE6    FFFFFF00 A
            01 02DE7    FF000000 A
            01 02DE8    F47A0011 A
            01 02DE9    A0000000 A
            01 02DEA    00050900 A
            01 02DEB    F266F791 A
            01 02DEC    000A0B00 A
            01 02DED    FFFFFE7F A
            01 02DEE    000A0B03 A
            01 02DEF    F166EE11 A
            01 02DF0    C0800000 A
            01 02DF1    20200000 A
            01 02DF2    00007700 A
            01 02DF3    00001000 A
            01 02DF4    FF3FC000 A
            01 02DF5    08000000 A
            01 02DF6    FFBFFFFF A
            01 02DF7    C0000000 A
            01 02DF8    00000600 A
            01 02DF9    00006000 A
            01 02DFA    00070902 A
            01 02DFB    F166EF91 A
            01 02DFC    003C0000 A
            01 02DFD    04000000 A
            01 02DFE    01000000 A
            01 02DFF    02000000 A
            01 02E00    00400000 A
            01 02E01    00000800 A
            01 02E02    00000183 A
            01 02E03    FFFFC000 A
            01 02E04    00100000 A
            01 02E05    00060804 A
            01 02E06    F166EF90 A
            01 02E07    FFEFC000 A
            01 02E08    00084000 A
            01 02E09    FFFF7FFF A
            01 02E0A    40001800 A
            01 02E0B    00050902 A
            01 02E0C    00000080 A
            01 02E0D    00180E00 A
            01 02E0E    4C000000 A
            01 02E0F    30000000 A
            01 02E10    90000000 A
            01 02E11    7FFFFFFF A
            01 02E12    F0E6EF8F A
            01 02E13    00C00000 A
            01 02E14    FFFFFFF3 A
            01 02E15    27FFFFE8 A
            01 02E16    8FFFFFFC A
            01 02E17    70000000 A
            01 02E18    47FFFFCC A
            01 02E19    F7FFFFCC A
            01 02E1A    07FFFFCC A
            01 02E1B    4FFFFFFF A
            01 02E1C    B0000033 A
            01 02E1D    0000E000 A
            01 02E1E    C0000001 A
            01 02E1F    9FFFFFFF A
            01 02E20    80000010 A
            01 02E21    00000007 A
            01 02E22    00000020 A
            01 02E23    FFFFAA00 A
            01 02E24    001900CA A
            01 02E25    0019809A A
            01 02E26    00180012 A
            01 02E27    00180013 A
            01 02E28    00FFFF00 A
            01 02E29    FF0000FF A
            01 02E2A    00000400 A
            01 02E2B    00CA1309 A
            01 02E2C    00CA1209 A
            01 02E2D    000927C0 A
            01 02E2E    00000010 A
            01 02E2F    0000003F A
            01 02E30    000005DC A
            01 02E31    00000013 A

  CONTROL SECTION SUMMARY: 01 035AA   PT 0
  * NO UNDEFINED SYMBOLS
  *    ERROR SEVERITY LEVEL: 0
  * NO ERROR LINES
1 C00   21:47 JUN 20,'83    TELEFILE ROTATING MEMORY TEST 960-0604-H02                            PAGE  110
A  A               3836-DATA    4217/MSGX
   ACCEPTED        3837-DATA  4388.2/MSGX
   ADDRESS         3838-DATA    4171/MSGX    4172/MSGX    4173/MSGX    4175/MSGX    4184/MSGX    4190/MSGX
      4193/MSGX    4206/MSGX    4212/MSGX    4223/MSGX    4226/MSGX    4244/MSGX    4270/MSGX    4285/MSGX
      4286/MSGX    4298/MSGX    4299/MSGX    4304/MSGX    4309/MSGX    4344/MSGX    4355/MSGX    4355/MSGX
      4367/MSGX    4368/MSGX    4381/MSGX    4395/MSGX    4400/MSGX    4419/MSGX
   ADDR1           7829-RES     7982/STW    10685/LW     10853/LOOP   10937/LW
   ADDR2           7830-RES     7986/STW    11131/LW     11338/LW     11353/LW
   ADDR3           7831-RES     7990/STW    11089/LW     11129/LW     11337/LW     11349/LW
   ADR1            7823-RES     7980/STW     9625/LW      9662/LOOP   10935/CW     10951/LW     10958/DW
     10963/DW     12381/LOOP   12503/LOOP
   ADR2            7824-RES     7984/STW     9616/LW      9628/LW     10441/LOOP   10560/LOOP   10596/LOOP
     10642/LOOP   11132/LW     11325/LOOP   11670/LOOP   12111/LOOP   12201/LOOP   12376/CW     12498/CW
   ADR3            7825-RES     7988/STW     9609/LW     10396/LOOP   10408/LOOP   10428/LOOP   11323/LOOP
     11668/LOOP   12109/LOOP
   ADR4            7826-RES     7992/STW     9723/AW
   AFTER           3839-DATA    4188/MSGX    4189/MSGX    4227/MSGX    4234/MSGX    4357/MSGX
   AGAIN           3840-DATA    4352/MSGX
   AIO              159-SET      176-SET      194-SET
   AL              3841-DATA    4194/MSGX    4197/MSGX    4316/MSGX
   ALIGNMENT       3842-DATA    4255/MSGX    4321/MSGX
   ALTERNATE       4103-DATA    4403/MSGX
   AND             3848-DATA    4289/MSGX    4290/MSGX    4292/MSGX    4297/MSGX    4308/MSGX    4311/MSGX
      4312/MSGX    4338/MSGX    4359/MSGX    4365/MSGX
   ANGULAR         3843-DATA    4289/MSGX
   ARE             4108-DATA    4375/MSGX
   AT              3846-DATA    4187/MSGX    4200/MSGX    4201/MSGX    4204/MSGX    4334/MSGX    4412/MSGX
      4419/MSGX
   ATTENTION       3847-DATA    4315/MSGX
   AVAILABLE       3849-DATA    4195/MSGX    4198/MSGX    4364/MSGX    4375/MSGX    4397/MSGX
   AVERAGE         3844-DATA    4353/MSGX
   B               3850-DATA    4215/MSGX    4217/MSGX
   BASEED          4477/STW     4749-DATA    4839/STW     5586/LW      5912/LW      5932/LW      5946/LW
      5960/EOR
   BCOPM           2819-DATA    2841/MVW     2845/MVW
   BCOPO           2820-DATA    2827/CW
   BCOPS           2818-RES     2822/STW     2830/B*      2847/B*
   BCOP1           2827-CW      2829/BIR
   BCOP2           2828/BE      2831-LH
   BCOP3           2842-MVW     2846/BIR
   BCOP4           2841/MVW     2843-SEND    2845/MVW
   BE              3852-DATA    4212/MSGX    4375/MSGX
   BF              4043-SET     4074/GENV    4075/GENV
   BFRA            1439/LW      1446/LW      1452/LW      2524/LW      2995/LW      3082/LW      3244/LW
      4848/STW     5590/STW     5889/STW     5924/STW     7818-RES     8012/STW     8876/STW
   BFRB            1448/LW      1454/MVW     2528/LW      2534/LW      2997/LW      3079/LW      3123/LW*
      3247/LW      4854/STW     5594/STW     5890/STW     5918/LW*     7819-RES     8014/STW
   BF1             8011/LI      8021/STW     8022/STW     8435/IOCD    8441/IOCD    8443/IOCD    8451/IOCD
      8452/IOCD    8455/IOCD    8460/IOCD    8461/IOCD    8462/IOCD    8465/IOCD    8466/IOCD    8468/IOCD
      8471/IOCD    8475/IOCD    8481/IOCD    8483/IOCD    8486/IOCD    8496/IOCD    8502/IOCD    8505/IOCD
      8507/IOCD    8509/IOCD    8510/IOCD    8511/IOCD    8514/IOCD    8525/IOCD    8542/IOCD    8543/IOCD
      8544/IOCD    8548/IOCD    8575/IOCD    8579/IOCD    9560/STH     9767/MTB     9769/STB     9777/STB
     10374/STB    10376/STB    10463/STW    10601/STW    10603/STB    10619/LD     10904/STW    10913/STB
     10915/STB    10925/STB    10927/STB    11005/LW     11011/STW    11045/STD    11254/STW    11262/STW
     11265/STW    11403/MTB    11406/STB    11422/STW    11460/STW    11461/STW    11462/STB    11486/STB
     11487/STB    11488/STB    12728/LI     12756/LI     12877/STD    13849-RES    13850/EQU    13851/EQU
     13852/EQU
   BF2             2227/LI      2289/LI      2544/LW      8013/LI      8436/IOCD    8437/IOCD    8444/IOCD
      8463/IOCD    8464/IOCD    8467/IOCD    8469/IOCD    8470/IOCD    8472/IOCD    8476/IOCD    8497/IOCD
      8501/IOCD    8503/IOCD    8512/IOCD    8513/IOCD    8515/IOCD    8517/IOCD    8520/IOCD    8546/IOCD
      8549/IOCD    8556/IOCD    8562/IOCD    8577/IOCD    8869/LI      8878/STW     8879/STW     9809/DATA
      9809/DATA   10465/STW    10467/STW    10581/LW     10620/CD     10623/CD     10627/LD     11006/CW
     11009/CW     11361/LW     12869/LD     13853-RES
   BIG             3851-DATA    4327/MSGX
   BINFA           4074-GENV    4181/MSGX    4232/MSGX    4233/MSGX    4235/MSGX    4236/MSGX    4238/MSGX
      4243/MSGX    4331/MSGX    4332/MSGX    4347/MSGX    4349/MSGX
   BINFB           4075-GENV    4181/MSGX    4232/MSGX    4233/MSGX    4235/MSGX    4236/MSGX    4238/MSGX
      4239/MSGX
   BIN16A          4072-GENV    4182/MSGX
   BIN2A           4069-GENV
   BIN32A          4073-GENV
   BIN4A           4070-GENV    4182/MSGX    4423/MSGX    4425/MSGX    4427/MSGX
   BIN8A           4071-GENV    4423/MSGX    4425/MSGX    4427/MSGX
   BIN8B           4079-GENV    4423/MSGX    4425/MSGX    4427/MSGX
   BIT             3853-DATA    4284/MSGX
   BITS            3854-DATA    4235/MSGX
   BOUNDARY        3855-DATA    4299/MSGX
   BS              3828-DATA    4194/MSGX    4197/MSGX    4206/MSGX    4206/MSGX    4212/MSGX    4232/MSGX
      4233/MSGX    4239/MSGX    4243/MSGX    4272/MSGX    4274/MSGX    4274/MSGX    4296/MSGX    4298/MSGX
      4299/MSGX    4316/MSGX    4324/MSGX    4325/MSGX    4355/MSGX    4364/MSGX    4367/MSGX    4368/MSGX
      4368/MSGX    4368/MSGX    4368/MSGX    4368/MSGX    4368/MSGX    4368/MSGX    4368/MSGX    4368/MSGX
      4368/MSGX    4368/MSGX    4368/MSGX    4375/MSGX    4375/MSGX  4388.3/MSGX    4400/MSGX    4406/MSGX
      4406/MSGX    4407/MSGX    4409/MSGX    4409/MSGX    4409/MSGX    4411/MSGX    4419/MSGX    4419/MSGX
      4423/MSGX    4425/MSGX    4429/MSGX
   BUFADDR         7520/STW     7563/AW      7571/SW      7587-RES
   BUFFER          3856-DATA    4215/MSGX    4217/MSGX    4217/MSGX    4218/MSGX    4286/MSGX    4334/MSGX
   BUFINIT          578/BAL     7487-EQU
   BUFLMT          1010/STW     1011/STW     7491/STD     7504/AWM     7517/LW      7525/CLM     7568/CLM
      7591-DATA
   BUFMAP          7513/STW     7528/STS     7541/AW      7554/CW      7560/CW      7564/STS     7580/AND
      7581/STW     7586-RES
   BUFMAPI         1012/STW     4844/STW     7498/STW     7509/CW      7533/STW     7588-DATA    7769/STW
   BUFMAPX         7508/STW     7548/B*      7565/B*      7595-DATA
   BUFNR            581/LW      4466/CW      4792/CW      7516/STW     7527/MTW     7594-DATA
   BUFRAND          579/BAL     1013/BAL     4580/BAL     4637/BAL     4648/BAL     4664/BAL     4698/BAL
      4852/BAL     5131/BAL     5134/BAL     5137/BAL     5151/BAL     5163/BAL     5202/BAL     7507-EQU
   BUFREL          6935/BAL     6945/BAL     7567-EQU
   BUFRR           7535/LD      7537/STD     7593-DATA
   BUFR01          7511-LI
   BUFR02          7518-LI      7532/BLE
   BUFR03          7521-AW      7529/BDR
   BUFR10          7510/BE      7534-LI
   BUFR11          7540-LI      7547/BDR
   BUFR12          7542/BNEZ    7549-LW
   BUFR15          7555/BCR     7562-MW
   BUFSEQ           636/BAL      670/BAL      678/BAL      701/BAL     7501-EQU
   BUFSIZE         7488/STW     7521/AW      7562/MW      7573/DW      7589-DATA
   BUFSTART         962/LW       983/CW      7492/STW     7502/LW      7503/AWM     7585-DATA
   BUS             3857-DATA    4237/MSGX
   BUSY            3858-DATA    4196/MSGX    4199/MSGX    4265/MSGX    4425/MSGX
   BYTCNT          7853-DATA   11077/LW     11142/LW
   BYTE            3859-DATA    4192/MSGX    4237/MSGX    4253/MSGX    4255/MSGX    4276/MSGX    4277/MSGX
      4396/MSGX
   BYTES           3860-DATA    4221/MSGX    4225/MSGX    4236/MSGX
   BYTE10          4021-DATA    4235/MSGX
   BYTE12          4022-DATA    4236/MSGX
   BYTE6           4019-DATA    4232/MSGX
   BYTE8           4020-DATA    4233/MSGX
   BYTNR           4667/LW      5166/LW      5936/LW      7846-DATA    7991/LW
   B16             4041-SET     4072/GENV
   B2              4038-SET     4069/GENV
   B32             4042-SET     4073/GENV
   B4              4039-SET     4070/GENV
   B8              4040-SET     4071/GENV    4079/GENV
   CATALOG            2-EQU        4/EQU
   CC14            4090-DATA    4419/MSGX
   CC3              574/STW      765-DATA    2640/CW      2712/MTW
   CHAINING        3876-DATA    4252/MSGX
   CHANNEL         3861-DATA
   CHECK           3877-DATA    4236/MSGX    4264/MSGX    4274/MSGX    4276/MSGX    4277/MSGX    4288/MSGX
      4290/MSGX    4413/MSGX    4414/MSGX
   CIT1             671/STW      690/STW*     694/STW*    4606/LW*     6741-DATA    7081/LW*     7104/LW*
      7237/LW*     7787/LW*
   CIT2            4604/LW*     5283/LW*     5299/LW*     6742-DATA    6883/LW*     6885/STW*    6925/CW*
      6927/STW*    7088/LW*     7225/LW*     7417/LW*     7690/LW*     7776/STW*
   CIT3            6743-DATA    6886/LW*     6891/STW*    6928/CW*     6930/STW*    7777/STW*
   CIT4             724/STW*     728/STW*    6744-DATA    7017/STS*    7086/MTW*    7153/STS*    7195/STS*
      7359/LW*     7361/STW*    7778/LW*     7780/STW*
   CIT5            6745-DATA    6872/LW*     6894/MTW*    6931/MTW*    7781/STW*
   CIT6             684/STW*    6746-DATA    6873/CW*     6876/LW*     7782/LW*
   CIT7             685/STW*    6747-DATA    6875/LW*     7775/LW*
   CKDATA          5862-EQU     6311/BAL
   CKDATAI         5304/BAL     5865-EQU     6573/BAL     6582/BAL
   CKDATE          5876/STW     5952/STW     5984/STW     6007/CW      6013-DATA
   CKDATHDR        5921/STW     5922/STW     5923/LI      6015-DATA
   CKDATM          5878/STW     5987/STW     6006/LW      6012-DATA
   CKDATPS         5873/STM     5875/STM     6002/LM      6004/LM      6016-RES
   CKDATX          5868/STW     5870/BCR*    6008/BE*     6009/B*      6011-DATA
   CKDAT1          5882-LW      6000/BLE
   CKDAT10         5902/BNE     5983/B       5989/BNEZ    5992-LW
   CKDAT11         5900/BE      5917-LW
   CKDAT12         6006-LW
   CKDAT13         5996/BCR     6001-LCI
   CKDAT2          5894/BE      5896/BE      5927-CW
   CKDAT21         5932-LW
   CKDAT22         5926/B       5939-MTW
   CKDAT3          5940/BNEZ    5945/BNE     5950-BAL
   CKDAT5          5898/BE      5965-STW
   CKDAT6          5974-LW      5981/BGEZ
   CKDAT9          5892/BE      5904/BNEZ    5911/BNE     5916/B       5951/B       5955/BGEZ    5957/BNEZ
      5964/B       5991-BAL
   CKERR           5709/BCS     5712/BCS     5717/BNE     5720/BCR     5726/BCS     5729/BCS     5732/BCS
      5735/BCS     5738/BCS     5741/BCS     5748/BCS     5750/BCS     5753/BCS     5755/BCS     5757/BCR
      5763/BNE     5765/BNEZ    5768/BNE     5779/BCR     5794-LW
   CKERR0          5666/BCR     5787/BNE     5790/BNE     5792/BCS     5800-LW
   CKERR1          5669/B       5678/BCS     5683/BCS     5685/BCS     5689/BNE     5692/BNE     5814-LI
      5828/B
   CKERR2          5809/BNE     5820-CB
   CKERR20         5699/BCS     5701/BCS     5706/BCS     5743/BCS     5826-LW
   CKERR21         5811/BCS     5821/BCS     5829-LI
   CKERR3          5642/B       5807/BE      5813/BCS     5817/BE      5819/B       5823/BCS     5825/B
      5830-STW
   CKIOCD          5881/STW     5882/LW      5992/LW      5997/AWM     5998/LW      6014-DATA
   CKRTYP          5658/STW     5670/STW     5696/STW     5723/STW     5727/STW     5730/STW     5733/STW
      5736/STW     5739/STW     5744/STW     5751/STW     5758/STW     5806/CW      5808/CW      5834-DATA
   CKSAV           5631/STW   5694.3/B*    5768.3/B*    5792.3/B*    5830.3/B*      5833-DATA
   CKSTATCW        5657/STW     5766/LW      5835-DATA    6253/LW
   CKSTATUS        5630-EQU     6568/BAL
   CKSTAT0         5634/BCR     5643-LW
   CKSTAT01        5645-LW      5656/B
   CKSTAT02        5651/BCR     5655-AI
   CKSTAT03        5648/BCR     5657-STW
   CKSTAT1         5660/BCR     5670-STW
   CKSTAT2         5672/BCR     5696-STW
   CKSTAT3         5714/BCR     5721-LW
   CKSTAT4         5747-CW      5775/BE
   CKSTAT6         5766-LW
   CKSTAT8         5746/BCS     5771-LW
   CKWRITE         4095-DATA    4368/MSGX    4368/MSGX    4381/MSGX    4381/MSGX
   CLEANUP         7063/BAL     7132-EQU
   CLEANUPR        7202-RES
   CLEANUPX        7133/STW     7144/BEZ*    7154/B*      7175/MTW     7198/B*      7200-DATA
   CLEAN1          7149-LW      7161/B       7176/B
   CLEAN10         7188/B       7192-LW
   CLEAN2          7152-LW      7170/B
   CLEAN3          7146/BNE     7155-CI
   CLEAN4          7156/BNE     7162-CI
   CLEAN5          7163/BNE     7171-LW
   CLEAN6          7141/B       7177-LI
   CLEAN9          7179/BE      7181/BGEZ    7189-LW
   CLEAR           3866-DATA    4215/MSGX    4403/MSGX
   CM               228-CNAME
   CODE             351-CNAME   3862-DATA
   COLON           3864-DATA    4212/MSGX    4212/MSGX    4215/MSGX    4217/MSGX    4217/MSGX    4218/MSGX
      4218/MSGX    4240/MSGX    4240/MSGX    4242/MSGX    4244/MSGX    4245/MSGX    4269/MSGX    4270/MSGX
      4271/MSGX    4272/MSGX    4274/MSGX    4276/MSGX    4277/MSGX    4283/MSGX    4286/MSGX    4287/MSGX
      4293/MSGX    4294/MSGX    4295/MSGX    4296/MSGX    4298/MSGX    4299/MSGX    4300/MSGX    4301/MSGX
      4308/MSGX    4310/MSGX    4312/MSGX    4317/MSGX    4333/MSGX    4334/MSGX    4338/MSGX    4357/MSGX
      4358/MSGX    4359/MSGX    4360/MSGX    4364/MSGX    4400/MSGX    4403/MSGX    4403/MSGX    4407/MSGX
   COMMA           3865-DATA    4206/MSGX    4221/MSGX    4223/MSGX    4225/MSGX    4226/MSGX    4248/MSGX
      4248/MSGX    4272/MSGX    4274/MSGX    4274/MSGX    4290/MSGX    4298/MSGX    4299/MSGX    4317/MSGX
   COMMAND         3863-DATA    4184/MSGX    4190/MSGX    4252/MSGX
   COMPA           3066-RES     3086/STW     3159/LW*
   COMPARE         3867-DATA    4220/MSGX    4330/MSGX
   COMPB           3067-RES     3081/STW     3099/CW*     3107/CW*     3120/AW*     3134/CW*     3160/CW*
      3187/LW*
   COMPBIN         3185/STW     3188/STW     3206-DATA    3209/DATA
   COMPE           2537/MTW     3064-RES     3073/STW     3126/MTW     3173/MTW     3177/LW      3190/MTW
      3193/MTW     3198/LW      5908/STW     5942/STW     5954/MTW    10574/MTW
   COMPF           2515/MTW     2520/STW     3063-DATA    3171/MTW     3196/MTW     5867/STW     5903/MTW
      5939/MTW     5956/MTW     5988/MTW     6080/MTW
   COMPL            901/STW     2833/CW      2835/LW      3062-DATA    3178/CW      3199/CW
   COMPLETED       3868-DATA    4210/MSGX    4406/MSGX    4409/MSGX
   COMPN           3068-RES     3118/STW     3132/CW      3137/CW      3145/CW
   COMPS           3065-RES     3074/STW     3127/B*      3194/BEZ*    3195/MTW     3197/BNEZ*   3200/BLE*
      3203/B*
   COMP0           3092/DATA    3099-CW      3102/BIR
   COMP1           3093/DATA    3107-CW      3111/BIR
   COMP2           3094/DATA    3116-LCW
   COMP2C          3122/BNEZ    3129-LCW
   COMP2D          3132-CW      3148/BIR     3154/B
   COMP2E          3133/BE      3150-LW
   COMP5           3095/DATA    3159-LW      3163/BIR
   COMP6           3101/BAL     3109/BAL     3136/BAL     3162/BAL     3170-STW
   COMP6A          3174/BNEZ    3177-LW
   COMP6C          3172/BNEZ    3179/BGE     3190-MTW
   COMP6S          3168-RES     3170/STW     3191/B*
   COMP9           3103/B       3112/B       3125/BE      3149/B       3164/B       3193-MTW
   CONDITION       3869-DATA    4266/MSGX
   CONTROLLER      3870-DATA    4194/MSGX    4195/MSGX    4196/MSGX    4233/MSGX    4265/MSGX    4338/MSGX
      4358/MSGX    4359/MSGX
   COUNT           3871-DATA    4192/MSGX    4204/MSGX    4237/MSGX    4253/MSGX    4333/MSGX    4360/MSGX
      4368/MSGX    4368/MSGX    4381/MSGX    4396/MSGX
   CPU             3872-DATA    4170/MSGX
   CTR4INT         7218-EQU     7266/GEN
   CTR4INTX        7219/STM     7243/LM      7272-RES
   CTR4MTW         7268-MTW     7760/LD
   CTR4PSD         7244/LPSD    7265-DATA    7269/XPSD
   CTR4TB          7220/LW      7232/LCW     7239/LW      7274-DATA    7766/STW
   CTR4TIME        7241/STW     7268/MTW     7270-DATA    7768/STW
   CTR4XPSD        7269-XPSD
   CTR41           7225-LW      7238/BNEZ
   CTR42           7227-LW      7236/BGZ
   CTR43           7228/BGEZ    7231/BCR     7235-LW
   CTR44           7226/BEZ     7237-LW
   CTR45           7223/BNE     7239-LW      7262/B
   CTR46           7234/BLZ     7245-WD
   CURRENT         3875-DATA    4190/MSGX
   CURTIME         4464/STW     4789/STW     6184/LW      7011/LW      7221/AWM     7273-DATA    7332/LW
   CWD1            9185/DATA   13655-EQU
   CWD2            9185/DATA   13660-EQU
   CWD3            9185/DATA   13670-EQU
   CWD4            9185/DATA   13739-EQU
   CWD5            9186/DATA   13740-EQU
   CWD6            9186/DATA   13741-EQU
   CWD7            9186/DATA   13742-EQU
   CWD8            9186/DATA   13696-EQU
   CWR1           13834-EQU
   CWR2           13835-EQU
   CWR3           13836-EQU
   CWR4           13837-EQU
   CWR5           13838-EQU
   CWR6           13839-EQU
   CWR7           13840-EQU
   CYLINDER        3873-DATA    4227/MSGX    4403/MSGX    4403/MSGX    4408/MSGX
   CYLNR            730/LW      1032/LW      1051/LW    7844.1-DATA    7979/LW
   DASH            4098-EQU     4423/MSGX    4423/MSGX    4423/MSGX    4427/MSGX    4427/MSGX    4427/MSGX
   DASHES          4105-DATA    4411/MSGX    4411/MSGX
   DAT              287/DO       288/GEN     3409/LW      3824-EQU
   DATA            3878-DATA    4200/MSGX    4201/MSGX    4203/MSGX    4219/MSGX    4220/MSGX    4229/MSGX
    4241.2/MSGX    4256/MSGX    4343/MSGX    4346/MSGX    4346/MSGX    4348/MSGX  4388.5/MSGX    4397/MSGX
      4412/MSGX    4413/MSGX
   DATEXT          3391/LW      3825-EQU
   DATLAST         4114-EQU
   DCTNUM           632/STW      639/LW       737/CW      1030/LW      4492/CW      4600/CW      4616/CW
      4910/CW      5492/CW      6700-DATA    7403/LW      7615/LW      7636/CW      7642/LW      7771/LW
      8300/CW
   DCT1             637/STW      715/STW*     720/STS*    4591/LW*     4904/LW*     4928/LW*     5483/LW*
      5505/LW*     6701-DATA    6814/INT*    7404/INT*    7408/INT*    7617/INT*    7625/LW*     7645/LW*
      7651/INT*    7994/LW*
   DCT10           5675/LW*     5707/LW*     5759/LW*     5782/LW*     6180/LW*     6201/LW*     6710-DATA
      7426/STW*
   DCT11           5686/LW*     5710/LW*     5724/LW*     5783/LW*     6203/LW*     6711-DATA    7028/STW*
      7256/STW*    7436/STW*
   DCT12           5676/LW*     5697/LW*     5784/LW*     6196/LW*     6712-DATA    7029/STW*    7257/STW*
      7437/STW*
   DCT13           6199/LW*     6713-DATA    7025/STW*    7345/STW*
   DCT14           5830/STW*    6470/LW*     6597/STW*    6624/STW*    6627/LW*     6640/STW*    6714-DATA
   DCT15            734/STW*    1059/STW*    4504/SW*     4509/AW*     4937/LW*     4959/LW*     5073/LW*
      6715-DATA
   DCT16            735/STW*    1062/STW*    4503/LW*     4678/CW*     5074/LW*     6716-DATA
   DCT17           5064/STW*    5506/LW*     6068/AWM*    6126/AWM*    6717-DATA
   DCT18           5065/STW*    5507/LW*     6069/AWM*    6127/AWM*    6718-DATA
   DCT19           5066/STW*    5508/LW*     6128/AWM*    6719-DATA
   DCT2             711/STW*    5500/LW*     6702-DATA    6837/LW*     7406/CW*     7619/LW*     7647/LW*
      7669/CW*     7996/LW*
   DCT20           5067/STW*    5501/LW*     6071/AWM*    6130/AWM*    6720-DATA
   DCT21           5068/STW*    5502/LW*     6072/AWM*    6131/AWM*    6721-DATA
   DCT22           5069/STW*    5503/LW*     6132/AWM*    6722-DATA
   DCT3             716/STW*    5113/LW*     6703-DATA    6816/LW*     6868/LW*     7414/LW*     7671/LW*
   DCT4             712/STW*    5116/LW*     6704-DATA    6839/LW*     6871/LW*     7416/LW*     7678/LW*
   DCT5             706/STW*    1031/LW*     1050/LW*     4631/LW*     4666/LW*     4961/LW*     4984/LW*
      5165/LW*     5243/CW*     5339/LW*     5382/LW*     5415/LW*     5815/LW*     5935/LW*     5966/LW*
      6292/LW*     6591/LW*     6705-DATA    7975/LW*
   DCT6            6440/LW*     6462/STS*    6498/LW*     6500/STW*    6525/STW*    6659/LW*     6661/STW*
      6706-DATA    7003/LW*     7005/STW*    7022/STS*    7031/STS*    7093/INT*    7150/STS*    7165/STS*
      7187/STS*    7197/STS*    7230/INT*    7351/STS*    7362/LW*     7364/STW*    7672/INT*    7675/CW*
      7679/INT*    7682/CW*     7772/STW*
   DCT7            5079/STW*    6707-DATA    6826/LW*     6979/LW*
   DCT8            5080/STW*    6708-DATA    7136/LW*     7139/LW*
   DCT9            5639/STW*    5652/CW*     5662/STW*    5694/STW*    5767/CW*     5771/LW*     5800/LW*
      5999/CW*     6046/CW*     6063/CW*     6194/LW*     6709-DATA    7255/STW*    7435/STW*
   DEC1A           4051-GENV    4212/MSGX    4218/MSGX    4238/MSGX    4239/MSGX    4243/MSGX    4326/MSGX
      4327/MSGX    4366/MSGX    4367/MSGX    4375/MSGX
   DEC2A           4052-GENV    4349/MSGX    4431/MSGX    4432/MSGX    4433/MSGX    4434/MSGX    4435/MSGX
   DEC2B           4060-GENV
   DEC3A           4053-GENV    4206/MSGX    4242/MSGX    4245/MSGX    4347/MSGX    4350/MSGX    4351/MSGX
      4352/MSGX    4353/MSGX
   DEC4A           4054-GENV    4188/MSGX    4189/MSGX    4227/MSGX    4234/MSGX    4333/MSGX    4357/MSGX
      4360/MSGX    4375/MSGX    4431/MSGX    4432/MSGX    4433/MSGX    4434/MSGX
   DEC4B           4061-GENV    4386/MSGX
   DEC4C           4080-GENV    4396/MSGX
   DEC8A           4055-GENV    4354/MSGX    4368/MSGX    4381/MSGX    4388/MSGX    4425/MSGX
   DEC8B           4062-GENV    4374/MSGX    4386/MSGX    4394/MSGX
   DEC8C           4081-GENV    4374/MSGX    4386/MSGX
   DEC8D           4082-GENV    4386/MSGX
   DEC8E           4083-GENV    4374/MSGX    4386/MSGX
   DEC8F           4084-GENV    4374/MSGX    4386/MSGX
   DEC8G           4085-GENV    4386/MSGX
   DELAY           2881/STW     2888/MTW     2894/MTW     7827-RES    10732/STW    10738/STW    10744/STW
     10798/STW    10804/STW    10810/STW    11523/STW
   DEVADDR          812/LW      1222/HIO*    1243/LW      1945/CW      1995/LW      2228/LW      2618/LW
      2655/SIO*    2656/TIO*    2657/HIO*    2659/TDV*    3307/TIO*    7008/STW     7247/STW     7427/STW
      7806-RES     8000/STW     8212/MVW     9237/STW     9250/MVW    10094/MVW    10096/MVW    10105/MVW
     10152/STW    10245/LW     10249/LW     10258/MVW    10260/MVW    10266/MVW    10268/MVW    10270/MVW
     10295/MVW    10306/MTW    10308/MVW    11525/SIO*   11529/SIO*   11706/LW     11851/STW    11911/STW
     11914/STW    11916/STW    11918/MVW    11966/STW    11969/MVW    11971/STW    11975/MVW    12597/LW
     12612/LW     12620/LW     12626/LW     12812/LW
   DEVADRA         7804-RES     7999/STW    11913/LW     11918/MVW    11969/MVW    11975/MVW
   DEVADRB         7805-RES     7997/STW    11905/LW     11956/LW     11964/LW
   DEVADR00        7807-RES     8002/STW     9235/LW     10089/LW     10295/MVW
   DEVADR12        7808-RES     8004/STW
   DEVADR13        7809-RES     8006/STW
   DEVADR14        7810-RES     8008/STW
   DEVADR15        7811-RES     8010/STW     8212/MVW     9250/MVW     9268/MVW    10096/MVW    10105/MVW
     10270/MVW    10308/MVW
   DEVCMD          3879-DATA    4237/MSGX
   DEVICE          3881-DATA    4197/MSGX    4198/MSGX    4199/MSGX    4227/MSGX    4232/MSGX    4285/MSGX
      4287/MSGX    4305/MSGX    4308/MSGX    4309/MSGX    4313/MSGX
   DEVMASK         7842-DATA    8253/LB
   DEVNR           4632/CW      5346/CW      5421/CW      5816/CW      6592/CW      7847-DATA    7977/LW
   DEVPT           7812-RES     7962/STW     7974/LW      8298/MTW     8299/LW
   DEVTYP          7820-RES     7978/STW     8038/MTW     8185/MTW     8225/MTW  8259.12/LW      8282/MTW
      8989/LW      9489/LW      9617/MTW     9626/MTW    10107/MTW    10297/MTW    10333/MTW    10433/MTW
     10554/MTW    11081/MTW    11091/MTW    11133/MTW    11153/MTW    11179/LW     11308/MTW    11327/MTW
     11333/MTW    11562/LW     12199/MTW
   DEVTYPE          621/LW       754-EQU
   DEVTYPEND        761-EQU
   DEVTYPM         7832-RES     7976/STW     8035/LW      8156/LW      8975/LW      9025/LW      9064/LW
      9107/LW      9152/LW      9194/LW     10988/LW     11733/LW     12010/LW     12234/LW     12913/LW
   DIFFERENCE      3882-DATA    4271/MSGX
   DIOSIF          5108/BAL     7755-EQU
   DIOSIN          4495/BAL     7751-EQU
   DIOS1           7772-STW
   DIOS2           7775-LW      7788/BNEZ
   DISK            4101-DATA    4402/MSGX
   DISPLAY          920/STW     1232/MTW     7837-DATA   12262/STW    12266/STW
   DLY              118-SET    10235/WT     12170/WT
   DONE            3884-DATA    4204/MSGX
   DOUBLE          3885-DATA    4190/MSGX    4307/MSGX
   DOWN            3886-DATA    4313/MSGX
   DT              3588-LOC
   D1              4028-SET     4051/GENV
   D2              4029-SET     4052/GENV    4060/GENV
   D3              4030-SET     4053/GENV
   D4              4031-SET     4054/GENV    4061/GENV    4080/GENV
   D8              4032-SET     4055/GENV    4062/GENV    4081/GENV    4082/GENV    4083/GENV    4084/GENV
      4085/GENV
   END             3887-DATA    4187/MSGX    4200/MSGX    4216/MSGX    4340/MSGX    4342/MSGX    4412/MSGX
   ENOUGH          3888-DATA    4324/MSGX
   ENVIRONMENT     3889-DATA
   EQUAL           3890-DATA    4354/MSGX
   ERROR           3891-DATA    4170/MSGX    4208/MSGX  4241.2/MSGX    4276/MSGX    4277/MSGX    4280/MSGX
      4281/MSGX    4282/MSGX    4285/MSGX    4287/MSGX    4288/MSGX    4305/MSGX    4330/MSGX    4333/MSGX
      4360/MSGX    4368/MSGX    4381/MSGX    4381/MSGX  4388.4/MSGX  4388.5/MSGX    4406/MSGX    4419/MSGX
   ES1               93-CNAME
   ES2              129-CNAME
   ES3              235-CNAME
   EX                83-CNAME
   EXECUTED        3894-DATA    4210/MSGX    4221/MSGX    4222/MSGX    4223/MSGX    4224/MSGX    4375/MSGX
   EXERCISER       3893-DATA    4341/MSGX    4342/MSGX
   EXERCISING      4106-DATA    4379/MSGX
   EXP             3892-DATA    4181/MSGX    4190/MSGX    4192/MSGX    4193/MSGX    4230/MSGX    4232/MSGX
      4233/MSGX    4235/MSGX    4236/MSGX    4238/MSGX    4240/MSGX    4331/MSGX    4346/MSGX    4400/MSGX
      4419/MSGX
   EXPECTED        4099-DATA  4388.1/MSGX
   FAILURE         3896-DATA    4200/MSGX    4201/MSGX    4203/MSGX    4204/MSGX
   FAM             3895-DATA    4253/MSGX    4254/MSGX    4255/MSGX    4256/MSGX
   FASTADR         7007/STW     7311/LW      7320/SIO*    7354/LW      7375-DATA
   FASTCC          7293/STCF    7298/LCF     7307/LCF     7376-DATA
   FASTCNT         4456/STW     4790/STW     5178/LW      5182/STW     5186/CW      7302/MTW     7371-DATA
   FASTIOCD        5179/MTW     5245/LW      5247/CW      7076/STW     7135/STW     7300/LW      7339/STW
      7374-DATA    7770/STW
   FASTIOQ         6984/STW     7305/LW      7334/STW     7350/STW     7356/LW      7365/LW      7373-DATA
   FASTMODE        6580/CW      6594/CW      6646/CW      6824/CW      7068/CW      7372-DATA    7752/STW
      7756/STW
   FAULT           3897-DATA    4212/MSGX    4232/MSGX    4233/MSGX
   FLAW            3898-DATA    4303/MSGX    4407/MSGX    4409/MSGX
   FUNCTIONAL      3899-DATA    4339/MSGX    4340/MSGX
   GAPD            9017/DATA    9056/DATA    9097/DATA    9142/DATA    9184/DATA   13283-EQU
   GAPDMOD1       12922/STW    13292-DATA
   GAPDMOD2       12923/STW    13321-DATA
   GAPR           13826-EQU
   GENERATION      3901-DATA    4251/MSGX
   GENV             310-CNAME
   GETQ            4711/BAL     6783/BAL     6865-EQU
   GETQ1           6878/BLZ     6883-LW
   GETQ3           6874/BGE     6896-LI
   GROUP           3900-DATA    4183/MSGX
   HALT            3902-DATA    4202/MSGX    4278/MSGX    4279/MSGX
   HDRD1           9017/DATA    9097/DATA    9142/DATA    9184/DATA   13322-EQU
   HDRD1MOD       12924/STW    13337-DATA
   HDRD2           9097/DATA    9142/DATA    9184/DATA   13548-EQU
   HDRD2X          9017/DATA   13338-EQU
   HDRD3           9017/DATA   13409-EQU
   HDRD4           9097/DATA    9142/DATA    9184/DATA   13619-EQU
   HDRS           12863-DATA   12865/STW    12870/STD    12873/B*     12875/STW    12876/LD     12883/B*
   HDRSR           9766/BAL    11043/BAL    11402/BAL    11454/BAL    12865-STW
   HDRSW           9781/BAL    11053/BAL    11425/BAL    11479/BAL    12875-STW
   HDWR1           9056/DATA   13444-EQU
   HDWR1MD1       12925/STW    13445-DATA
   HDWR1MD2       12926/STW    13446-DATA
   HDWR1MD3       12927/STW    13447-DATA
   HDWR1MD4       12928/STW    13448-DATA
   HDWR2           9056/DATA   13449-EQU
   HEAD            3903-DATA    4295/MSGX    4296/MSGX    4321/MSGX    4349/MSGX    4403/MSGX    4403/MSGX
      4408/MSGX    4431/MSGX    4432/MSGX    4433/MSGX    4434/MSGX    4435/MSGX
   HEADER          3906-DATA    4260/MSGX    4261/MSGX    4272/MSGX    4272/MSGX    4276/MSGX    4297/MSGX
      4297/MSGX    4301/MSGX    4318/MSGX    4319/MSGX    4348/MSGX    4406/MSGX    4417/MSGX    4418/MSGX
   HEADNR           731/MW      1033/LW      1052/MW      5427/CW      7844-DATA    7983/LW
   HEAD1           3904-DATA    4346/MSGX
   HEAD2           3905-DATA    4348/MSGX
   HEXF8A          4067-GENV    4230/MSGX    4231/MSGX    4347/MSGX    4349/MSGX
   HEXF8B          4068-GENV    4230/MSGX    4231/MSGX    4347/MSGX    4349/MSGX
   HEX2A           4056-GENV    4183/MSGX    4223/MSGX    4226/MSGX    4403/MSGX    4408/MSGX
   HEX2B           4063-GENV    4223/MSGX    4226/MSGX    4403/MSGX
   HEX4A           4057-GENV    4192/MSGX    4193/MSGX    4206/MSGX    4212/MSGX    4221/MSGX    4223/MSGX
      4225/MSGX    4226/MSGX    4238/MSGX    4239/MSGX    4243/MSGX    4331/MSGX    4344/MSGX    4367/MSGX
      4374/MSGX    4386/MSGX    4403/MSGX    4408/MSGX    4423/MSGX    4425/MSGX    4427/MSGX
   HEX4B           4064-GENV    4192/MSGX    4193/MSGX    4403/MSGX
   HEX6A           4058-GENV    4184/MSGX    4190/MSGX    4215/MSGX    4217/MSGX    4244/MSGX    4334/MSGX
   HEX6B           4065-GENV    4190/MSGX    4217/MSGX    4218/MSGX
   HEX8A           4059-GENV    4185/MSGX    4240/MSGX    4243/MSGX    4334/MSGX    4335/MSGX    4355/MSGX
      4364/MSGX    4365/MSGX    4399/MSGX    4400/MSGX    4425/MSGX    4429/MSGX
   HEX8B           4066-GENV    4185/MSGX    4240/MSGX    4355/MSGX    4364/MSGX    4365/MSGX    4400/MSGX
      4425/MSGX    4429/MSGX
   HEX8C           4086-GENV    4395/MSGX
   HF8             4037-SET     4067/GENV    4068/GENV
   HIO              158-SET      175-SET      193-SET     9213/IO3     9876/IO1     9969/IO3    11639/IO1
     11640/IO2    11783/IO1    12523/IO1    12534/IO1    12545/IO1    12555/IO1
   H2              4033-SET     4056/GENV    4063/GENV
   H4              4034-SET     4057/GENV    4064/GENV
   H6              4035-SET     4058/GENV    4065/GENV
   H8              4036-SET     4059/GENV    4066/GENV    4086/GENV
   I                 98-DO        99/DATA     122-DO       123/DATA     134-DO       135/DATA     146-DO
       147/DATA     164-DO       165/DATA     182-DO       183/DATA     215-DO       216/DATA     240-DO
       241/DATA     286-DO       287/DO       288/GEN      302-SET      303/GEN      304/GEN
   ID                12-CNAME
   IN              3915-DATA    4200/MSGX    4203/MSGX    4366/MSGX
   INCORRECT       3909-DATA    4269/MSGX    4270/MSGX    4272/MSGX    4274/MSGX
   INCREMENTING    3910-DATA    4298/MSGX
   ING             3908-DATA    4296/MSGX
   INH               34-CNAME
   INITIAL         4100-DATA    4378/MSGX    4402/MSGX
   INPUT           3911-DATA    4281/MSGX
   INT              117-SET     9846/WT     10002/WT     10218/WT     10706/WT     10772/WT     10872/WT
     11170/WT     11195/WT     12221/WT     12286/WT     12296/WT     12306/WT     12396/WT     12406/WT
     12416/WT
   INTERFACE       3912-DATA    4254/MSGX    4287/MSGX
   INTERLOCK       3914-DATA
   INTERRUPT       3913-DATA    4174/MSGX    4188/MSGX    4193/MSGX    4205/MSGX    4212/MSGX    4235/MSGX
      4251/MSGX    4266/MSGX    4284/MSGX    4293/MSGX    4294/MSGX    4312/MSGX    4315/MSGX    4345/MSGX
      4350/MSGX    4351/MSGX    4352/MSGX  4388.1/MSGX
   INVALID         3916-DATA    4249/MSGX    4283/MSGX
   IO               105-CNAME
   IOBIN1          2709/STW     2717/STW     2718/LI      2749-DATA
   IOBIN2          2707/STW     2715/STW     2720/LI      2750-DATA
   IOCD             274-CNAME   3919-DATA    4185/MSGX    4419/MSGX
   IOCDPS          2774/STW     2789/BCR*    2793/B*      2795-DATA
   IOCDPX          2776/STW     2791/MTW     2796-DATA
   IOCDP0          2781-LW      2792/BLZ
   IOCDP1          2791-MTW
   IOCDXB3         8450-IOCD    8535/EQU
   IOCDX0A         8444-IOCD    8491/EQU     8524/EQU     8528/EQU     8539/EQU     8541/EQU     8555/EQU
      8561/EQU    10540/IS     12854/IS
   IOCDX0F         8445-IOCD    8487/EQU     8571/EQU    11981/DATA
   IOCDX00         8434-IOCD
   IOCDX01         8435-IOCD    8484/EQU     8527/EQU     8552/EQU     8558/EQU     8565/EQU     8572/EQU
      8574/EQU     9794/IS     11637/IO     12079/IO
   IOCDX01A        8451-IOCD    8494/EQU
   IOCDX02         8436-IOCD    8493/EQU     8526/EQU     8529/EQU     8551/EQU     8553/EQU     8559/EQU
      8566/EQU     8573/EQU     9209/IO      9219/DATA   10526/IS
   IOCDX03         1605/DATA    8438-IOCD    8480/EQU     8499/EQU     8508/EQU     8521/EQU     8523/EQU
      8531/EQU     8567/EQU     8568/EQU     8569/EQU    10418/IS     12521/IO     12530/IO     12541/IO
     12552/IO
   IOCDX04         2474/DATA    8440-IOCD    8479/EQU     9221/DATA   10060/IO3    10126/DATA
   IOCDX05         8441-IOCD    8485/EQU     8550/EQU     8560/EQU
   IOCDX05A        8452-IOCD    8495/EQU     8522/EQU
   IOCDX07         8442-IOCD   11882/EX     12032/EX
   IOCDX09         8443-IOCD    8482/EQU     8492/EQU     8540/EQU     8554/EQU     8557/EQU     9739/IS
     12859/IS
   IOCDX1F         8446-IOCD    8570/EQU    11981/DATA
   IOCDX12         8437-IOCD
   IOCDX13         1519/DATA    8447-IOCD   11741/DATA   11742/DATA
   IOCDX17         8242/IS      8448-IOCD    8488/EQU    11894/EX     11944/EX     12038/EX
   IOCDX33         8236/IS      8449-IOCD    8478/EQU     8489/EQU     8530/EQU    11793/IS     12221/WT
   IOCDX83         8439-IOCD    8534/EQU     8538/EQU    11787/IO
   IOCD02          8455-IOCD    8661/IO      8662/WT      8669/IO      8670/WT      8679/STB    10195/STB
   IOCD03          8456-IOCD    8692/EX
   IOCD04          8457-IOCD    8714/IO      8720/DATA    8748/STB
   IOCD05          8458-IOCD    8764/IO      8778/LI
   IOCD06          8460-IOCD    8794/EX      8802/STB     8805/STB
   IOCD07A         8461-IOCD    8829/DATA
   IOCD07B         8465-IOCD    8829/DATA
   IOCD07C         8468-IOCD    8829/DATA
   IOCD07D         8471-IOCD    8829/DATA
   IOCD08          8473-IOCD    8856/IO      8857/WT      8870/STW     8872/STW     8873/LW      8880/STB
      8881/STB     8884/AWM     8885/MTW
   IOCD09          8475-IOCD    8898/IO      8899/WT
   IOCD100         8574-EQU    12169/IO     12179/IO     12180/WT
   IOCD104A        8575-IOCD   12285/IO     12286/WT     12395/IO     12396/WT
   IOCD104B        8577-IOCD   12305/IO     12306/WT     12415/IO     12416/WT
   IOCD104C        8579-IOCD   12295/IO     12296/WT     12405/IO     12406/WT
   IOCD17          8478-EQU     8922/IO
   IOCD18          8479-EQU     8941/IO
   IOCD19          8480-EQU     8962/IO     11998/IO
   IOCD20          8481-IOCD    9011/IO
   IOCD21          8482-EQU     9050/IO
   IOCD22          8483-IOCD    9087/IO
   IOCD23          8484-EQU     9132/IO
   IOCD24          8485-EQU     9177/IO
   IOCD30          8486-IOCD    9285/EX      9299/STH
   IOCD31          8487-EQU     9316/EX
   IOCD32          8488-EQU     9336/EX
   IOCD33          8489-EQU     9356/EX
   IOCD34          8490-IOCD    9377/EX
   IOCD35          8491-EQU     9402/EX
   IOCD36          8492-EQU     9427/EX
   IOCD37          8493-EQU     9451/EX
   IOCD38          8494-EQU     9476/EX
   IOCD39          8495-EQU     9508/EX
   IOCD40A         8496-IOCD    9532/EX      9555/STB
   IOCD40B         8497-IOCD    9542/EX
   IOCD41          8498-IOCD    9576/EX      9586/STH
   IOCD42          8499-EQU     9600/EX
   IOCD43          8500-IOCD    9645/EX
   IOCD44          8501-IOCD    9675/EX      9688/STB     9690/STH
   IOCD45          8502-IOCD    9709/EX      9720/STB     9724/STH
   IOCD46          8503-IOCD    9745/EX
   IOCD47          8504-IOCD    9800/IO      9810/DATA    9823/STW     9826/STB
   IOCD48          8505-IOCD    9845/IO      9846/WT      9856/STB     9859/STH
   IOCD49          8507-IOCD    9875/IO      9884/STB
   IOCD50A         8508-EQU     9909/DATA
   IOCD50B         8509-IOCD    9909/DATA
   IOCD50C         8510-IOCD    9909/DATA
   IOCD50D         8511-IOCD    9909/DATA
   IOCD50E         8512-IOCD    9909/DATA
   IOCD51A         8513-IOCD    9965/EX
   IOCD51B         8514-IOCD    9975/EX
   IOCD52          8515-IOCD   10001/IO     10002/WT     10013/STB
   IOCD53          8517-IOCD   10028/IO     10029/WT     10037/STB
   IOCD54A         8518-IOCD   10084/DATA
   IOCD54B         8519-IOCD   10084/DATA
   IOCD56          8520-IOCD   10213/IO     10218/WT
   IOCD58          8521-EQU    10318/EX
   IOCD59          8522-EQU    10353/IO     10354/WT
   IOCD61          8523-EQU
   IOCD62          8524-EQU    10452/IS
   IOCD63A         8525-IOCD   10480/IS     10500/STB
   IOCD63B         8526-EQU    10489/IS
   IOCD65A         8527-EQU    10515/IS
   IOCD65B         8528-EQU
   IOCD65C         8529-EQU
   IOCD66A         8530-EQU    10657/IS
   IOCD66B         8531-EQU    10665/IS
   IOCD66C         8532-IOCD   10673/IO     10674/WT
   IOCD67          8534-EQU    10705/IO     10706/WT     10713/IO
   IOCD68          8535-EQU    10771/IO     10772/WT     10779/IO
   IOCD69          8536-IOCD   10835/IO     10836/WT
   IOCD70A         8538-EQU    10871/IO     10872/WT
   IOCD70B         8539-EQU    10880/IS
   IOCD71A         8540-EQU    11021/IS
   IOCD71B         8541-EQU    11030/IS
   IOCD72          8542-IOCD   11066/EX     11076/STB    11078/STH
   IOCD74          8543-IOCD   11109/EX     11118/IO     11119/WT     11141/STB    11143/STH
   IOCD76          8544-IOCD   11169/IO     11170/WT
   IOCD77          8546-IOCD   11194/IO     11195/WT
   IOCD78A         8548-IOCD   11214/EX     11256/STB
   IOCD78B         8549-IOCD   11223/EX
   IOCD78C         8550-EQU    11233/EX
   IOCD78D         8551-EQU    11242/IS
   IOCD80A         8552-EQU    11282/IS
   IOCD80B         8553-EQU    11292/IS
   IOCD81A         8554-EQU    11375/IS
   IOCD81B         8555-EQU    11384/EX
   IOCD81C         8556-IOCD   11393/IO     11394/WT     11416/STB
   IOCD82A         8557-EQU    11436/IS
   IOCD82B         8558-EQU    11490/DATA
   IOCD82C         8559-EQU    11490/DATA
   IOCD82D         8560-EQU    11490/DATA
   IOCD82E         8561-EQU    11490/DATA
   IOCD85          8562-IOCD   11507/STB    11524/LI     11528/LI     11555/LI     11560/LI
   IOCD86          8563-IOCD   11587/IO     11588/WT     11602/STB    11603/STB
   IOCD87A         8565-EQU    11616/IS
   IOCD87B         8566-EQU    11626/IS
   IOCD88          8567-EQU
   IOCD89          8568-EQU    11781/IO
   IOCD91A         8569-EQU    11929/EX
   IOCD91B         8570-EQU
   IOCD91D         8571-EQU
   IOCD99A         8572-EQU    12058/EX
   IOCD99B         8573-EQU    12068/EX
   IOCPL           2694/LW      2747-DATA
   IOCPS           2685/STW     2699/B*      2737/B*      2739/BL*     2744/B*      2745-DATA
   IOCPT           2700/LW      2748-DATA
   IOCP1           2693/BNE     2700-LW
   IOCP2           2732/BNEZ    2738-CI
   IOEXS           2613/STW     2641/BCS*    2646/BE*     2647/B*      2649-RES
   IOEX1           2617/BL      2623-LW
   IOEX2           2632/BE      2637/BNE     2640-CW
   IOINSTR         1874/EXU     2624/EXU     2655-SIO     3331/EXU    10733/EXU    10739/EXU    10745/EXU
     10799/EXU    10805/EXU    10811/EXU
   IOINT           7392-EQU     7753/LI
   IOINTERR        7299/B       7396-STCF
   IOINTEX         7439-LCI
   IOINTF          7291-EQU     7757/LI
   IOINTF1         7295/BCR     7300-LW
   IOINTF2         7301/BNEZ    7317-EQU
   IOINTF3         7316/B       7340-LCI
   IOINTF4         7324/B       7344-STCF
   IOINTF5         7314/BAL     7348/BAL     7356-LW
   IOINTF6         7328/BAL     7365-LW
   IOINTPSD        7343/LPSD    7442/LPSD    7449-DATA    7452/XPSD    7759/STW
   IOINTUNK        6174/LW      6558/LW      7443/STW     7453-DATA
   IOINTX          7297/STM     7304/STM     7318/STW     7323/LW      7325/LW      7327/STM     7341/LM
      7347/STM     7393/STM     7440/LM      7455-RES
   IOINT1          7404-INT     7412/BDR
   IOINT10         7355/B       7427-STW
   IOINT2          7410/BE      7414-LW
   IOINT3          7407/BE      7416-LW
   IOINT4          7418/BEZ     7425-LI
   IOINT5          7313/BCS     7422/BE      7426-STW
   IOINT6          7438-BAL     7446/B
   IOINT7          7399/BCS     7413/B       7443-STW
   IOINT8          7420/BGEZ    7423-LW
   IOINT9          7419-LW      7424/BGZ
   IOP             3918-DATA    4278/MSGX    4280/MSGX    4281/MSGX    4285/MSGX
   IOQ1             679/STW     6724-DATA    6877/LW*     6887/STW*    6919/LW*     6922/STW*    6933/STW*
      7784/STW*
   IOQ10           6446/LW*     6481/LW*     6520/STW*    6733-DATA    6795/STW*
   IOQ11           6119/MTW*    6467/LW*     6518/STW*    6578/STW*    6625/MTW*    6734-DATA    6798/STW*
      6987/STW*    7180/MTW*
   IOQ12           5638/LW*     5643/LW*     5661/LW*     5693/LW*     5880/LW*     6044/LW*     6102/LW*
      6186/LW*     6248/LW*     6278/LW*     6630/LW*     6735-DATA    6830/STW*    6939/LW*     6985/STW*
      7075/LW*     7338/LW*     7702/LW*
   IOQ13           6736-DATA    6801/STW*    6990/STW*    7233/AWM*
   IOQ14           6188/LW*     6737-DATA    7012/STW*    7333/STW*    7709/LW*
   IOQ15           5879/LW*     6190/LW*     6277/LW*     6491/LW      6503/LW*     6514/STW*    6673/LW*
      6738-DATA    6796/STW*
   IOQ16           6739-DATA
   IOQ2            5290/LW*     6725-DATA    6888/STW*    6890/STW*    6920/LW*     6921/STW*    7073/LW*
      7101/LW*     7235/LW*     7329/LW*     7336/LW*     7349/LW*     7423/LW*     7697/LW*
   IOQ3            5285/LW*     5633/CW*     5659/CW*     5665/INT*    5671/INT*    6066/CW*     6124/CW*
      6435/LW*     6456/LW*     6473/LW*     6607/INT*    6617/INT*    6726-DATA    6803/STW*    6807/AWM*
      6811/AWM*    6822/AWM*    6893/STW*    6936/LW*     6993/LW*     7002/STW*    7014/STS*    7030/STS*
      7071/INT*    7090/INT*    7098/EOR*    7157/LW*     7160/STW*    7166/LW*     7169/STW*    7171/LW*
      7174/STW*    7182/LW*     7185/STW*    7191/STS*    7227/LW*     7259/STS*    7312/INT*    7331/STS*
      7353/STS*    7368/STS*    7419/LW*     7695/LW*
   IOQ4            6727-DATA    6817/STW*    6840/STW*    6924/LW*     7015/LW*     7080/LW*     7151/LW*
      7192/LW*     7358/LW*
   IOQ5            6444/LW*     6471/CW*     6516/STW*    6615/CW*     6620/LW*     6639/LW*     6644/CW*
      6728-DATA    6792/STW*    6996/STW*
   IOQ6            5637/LW*     5718/LW*     5796/LW*     6274/LW*     6501/CW*     6604/LW*     6628/CW*
      6648/CW*     6656/LW*     6667/LW*     6729-DATA    6793/STW*    6992/STW*
   IOQ7            6730-DATA    6790/STW*    7092/LW*     7229/LW*     7306/LW*     7357/LW*
   IOQ8            5640/LW*     6177/LW*     6260/LW*     6731-DATA    6815/STW*    6838/STW*    7006/LW*
      7246/LW*     7421/CW*     7693/CW*
   IOQ9            6442/LW*     6483/LW*     6732-DATA    6794/STW*    6934/LW*
   IOXPSD          7452-XPSD    7763/LW
   IO1              154-CNAME
   IO2              171-CNAME
   IO3              189-CNAME
   IS                73-CNAME
   ITHDLR           799-STW     4459/LI      4786/LI      7965/LI
   ITHRST           815/LW       818-DATA    4462/STW     4785/STW     7964/STW
   ITHSAVE          799/STW      816/B*       819-DATA
   ITHTEST         4458/STW     4752-DATA    4783/STW     7836/EQU
   KM1             7879-DATA    8032/LW      8062/CW      8149/LW      8174/LW      8178/LW
   KM16            2619/AND     7880-DATA   12598/AND    12613/AND    12621/AND
   KPI             3070-DATA    3130/LW      3151/LW      3274/LW
   KXFFFC          7888-DATA
   KXFFFF          7887-DATA    7998/AND     8068/AND     9632/LOOP
   KXFFF0          7889-DATA    8001/AND
   KXN02           1319/AND     7903-DATA    8874/AND
   KXN05           7904-DATA
   KXN06           3332/CW      7905-DATA
   KXN10           7906-DATA   11707/AND
   KXN11           7907-DATA    8026/LW     11253/LW     11264/LW
   KXN12           7908-DATA    9949/LW
   KXN13           7909-DATA    8209/MVW
   KX00FF          7886-DATA    9946/LOOP   10155/AND
   KX00F0          7884-DATA   10247/AND
   KX000F          1171/AND     1174/AND     2229/OR      7883-DATA   10153/AND    10192/AND    11965/OR
     12627/OR
   KX0004          2310/DW      7882-DATA
   KX01F0          7885-DATA
   KX4000          7891-DATA    8195/AW
   KX8000          7890-DATA   10156/LW
   KY0020          7901-DATA
   KY0100          7900-DATA
   KY0200          7899-DATA   10571/CW     10611/CW
   KY0400          1575/AND   2374.3/AND     7898-DATA
   KY0800          7897-DATA   10567/CW     10607/CW
   KY1000          7896-DATA
   KY2000          7895-DATA
   KY4000          7894-DATA   10614/CW     12359/CW     12481/CW
   KY8000          7893-DATA   10734/CW     10740/CW     10746/CW     10800/CW     10806/CW     10812/CW
   K0              7863-DATA    8060/LW
   K1               919/AND      923/AND      927/AND     7864-DATA
   K10             7871-DATA    8682/LOOP
   K100            7875-DATA    8910/LOOP
   K15             7872-DATA    9231/CW     10101/LOOP   10104/LOOP
   K16             7873-DATA   10307/LOOP
   K2              2714/OR      7865-DATA    8783/LOOP    8807/LOOP    9695/LOOP    9830/LOOP    9831/LOOP
     10109/LOOP   10305/LOOP   10502/LOOP   11052/LOOP   11096/LOOP   11258/LOOP   11332/LOOP   11354/LOOP
     11509/LOOP   11689/LOOP   11825/LOOP   11976/LOOP
   K256            7876-DATA    9613/LOOP    9622/LOOP   10198/LOOP
   K3              7866-DATA    8705/LOOP    8753/LOOP    8754/LOOP    9564/LOOP    9727/LOOP    9862/LOOP
      9886/LOOP   10015/LOOP   11083/CW     11155/CW     11420/LOOP
   K33             7874-DATA    8808/LOOP
   K4              7867-DATA    8844/LOOP    8845/LOOP    8886/LOOP    9588/LOOP    9692/LOOP    9726/LOOP
     10039/LOOP   10969/CW     11476/LOOP   11672/LOOP   12113/LOOP   12652/LOOP
   K5              7868-DATA    9952/LOOP   11085/CW     11157/CW     12687/LOOP
   K512            7877-DATA
   K8              7869-DATA    9861/LOOP   10253/EOR
   K9              7870-DATA   11329/LOOP
   LATENCY         3920-DATA    4306/MSGX    4357/MSGX
   LCNT            7815-RES     7970/MVW     8292/MTW
   LENGTH          3922-DATA    4269/MSGX    4272/MSGX    4274/MSGX
   LIMIT           3921-DATA    4333/MSGX
   LIMT23M          933/STW      947-DATA    6212/AND
   LOGDER          5953/BAL     5985/BAL     6079-EQU
   LOGERF          6039/STW     6061/CW      6097/STW     6137-DATA
   LOGER0          6105-LI
   LOGER1          6111/B       6115/B       6119-MTW
   LOGER2          6125/BCS     6130-AWM
   LOGER3          6094/B       6123-LI
   LOGEX           6047/BG      6117/BCS     6129/B       6133-LCI
   LOGOP           6038-EQU     6576/BAL     6589/BAL     6611/BAL     6614/BAL     6619/BAL
   LOGOPS          6043/STM     6083/STM     6101/STM     6134/LM      6138-RES
   LOGOP0          6045-LW      6077/B
   LOGOP00         6042-LCI     6099/BE
   LOGOP1          6058-SLS
   LOGOP2          6054/BCS     6059-LI
   LOGOP3          6057/BCS     6073-LW
   LOGSER          6096-EQU     6602/BAL
   LOOP             261-CNAME
   MANY            3923-DATA    4325/MSGX    4409/MSGX
   MARK            3924-DATA    4303/MSGX
   MATRIX          3925-DATA    4291/MSGX
   MEMORY          3926-DATA    4364/MSGX    4375/MSGX
   MINUS           3927-DATA    4432/MSGX    4434/MSGX
   MODE            3928-DATA    4183/MSGX    4221/MSGX    4225/MSGX    4250/MSGX
   MODEL            600/LI       601/CW       626/LI       628/CW       744-EQU
   MODELEND         600/LI       626/LI       751-EQU
   MODIFIER        3929-DATA    4284/MSGX
   MONITOR         4093-DATA    4366/MSGX
   MONLMT           989/CLM     1000/CLM     7497/STD     7523/CLM     7592-DATA
   MOVING          3930-DATA    4295/MSGX
   MSEC            3932-DATA    4188/MSGX    4189/MSGX    4227/MSGX    4234/MSGX    4350/MSGX    4351/MSGX
      4352/MSGX    4353/MSGX    4354/MSGX    4357/MSGX
   MSGBUF          3374/LI      3435/STB     3437/DATA    3556-RES
   MSGPSP           924/STW     3366-DATA    3411/MTW     3431/MTW
   MSGPVF          3373/STW     3433/MTW     3443/MTW     3559-DATA
   MSGPX           3370/LW*     3428/B*      3558-DATA
   MSGP0           3372-LI      3396/BDR
   MSGP0A          3376-BAL     3424/BDR
   MSGP1           3375/B       3377-MTW     3401/BDR     3405/BDR
   MSGP1ADR        3381/LW      3384-DATA
   MSGP1A0         3384/DATA    3389-MTW
   MSGP1A1         3385/DATA    3394-BAL
   MSGP1A2         3386/DATA    3399-AI
   MSGP1A3         3387/DATA    3404-BAL
   MSGP1C          3380/BG      3392/B       3409-LW
   MSGP10          3507/B       3513/BEZ     3516-LB
   MSGP11          3528-LB      3539/BDR     3546/B
   MSGP15          3376/BAL     3394/BAL     3404/BAL     3514/BAL     3544/BAL     3548-LI
   MSGP2           3415-AW      3420/BDR     3497/B
   MSGP2A          3412/BNEZ    3421-CI      3484/B       3541/B
   MSGP2B          3402/B       3406/B       3425-BAL
   MSGP2C          3397/B       3426-LCI
   MSGP4           3410/BLZ     3442-LB
   MSGP4P          3395/BAL     3425/BAL     3431-MTW
   MSGP5           3447/BCR     3456-CI
   MSGP6           3454/B       3467/BCR     3494-LI
   MSGP6A          3479-LB      3486/BCS     3493/B
   MSGP7           3457/BCR     3499-AND
   MSGP9           3449/BCS     3509-LW
   MSGSAVE         3369/STM     3427/LM      3557-RES
   MSGTS            513/GEN     3569-LI
   MSGTS1          3572-STW     3582/BNEZ
   MSGX             281-CNAME
   MSIDHDRR       12848-DATA   12852/ID
   MSIDHDRW       12850-DATA   12857/ID
   MSIDRL          8232-DATA    8240/ID
   MSIDRS          8230-DATA    8234/ID
   MSIDSN          8231-DATA    8246/ID
   MSID00          8623-DATA    8625/ID
   MSID01          8634-DATA    8636/ID      8640/ID      8644/ID
   MSID02          8658-DATA    8660/ID      8668/ID
   MSID03          8689-DATA    8691/ID
   MSID04          8711-DATA    8713/ID
   MSID05          8761-DATA    8763/ID
   MSID06          8790-DATA    8792/ID
   MSID07          8815-DATA    8817/ID
   MSID08          8852-DATA    8854/ID
   MSID09          8893-DATA    8895/ID
   MSID100        12164-DATA   12166/ID     12177/ID
   MSID101        12217-DATA   12219/ID
   MSID102        12249-DATA   12251/ID
   MSID104        12280-DATA   12282/ID     12292/ID     12302/ID     12314/ID
   MSID105        12390-DATA   12392/ID     12402/ID     12412/ID     12424/ID     12428/ID
   MSID106        12512-DATA   12514/ID     12518/ID     12526/ID     12537/ID     12548/ID
   MSID17          8917-DATA    8919/ID      9352/EQU
   MSID18          8936-DATA    8938/ID      9281/EQU
   MSID19          8957-DATA    8959/ID      9373/EQU    10415/EQU
   MSID20          8998-DATA    9001/ID      9008/ID      9396/EQU    10448/EQU
   MSID21          9036-DATA    9039/ID      9046/ID      9421/EQU
   MSID22          9075-DATA    9077/ID      9084/ID      9445/EQU
   MSID23          9118-DATA    9121/ID      9128/ID      9470/EQU
   MSID24          9163-DATA    9166/ID      9173/ID      9502/EQU
   MSID29          9204-DATA    9206/ID
   MSID30          9281-EQU     9283/ID      9291/ID
   MSID31          9312-DATA    9314/ID
   MSID32          9332-DATA    9334/ID
   MSID33          9352-EQU     9354/ID
   MSID34          9373-EQU     9375/ID
   MSID35          9396-EQU     9398/ID
   MSID36          9421-EQU     9423/ID
   MSID37          9445-EQU     9447/ID
   MSID38          9470-EQU     9472/ID
   MSID39          9502-EQU     9504/ID
   MSID40          9526-DATA    9528/ID      9539/ID     11210/EQU
   MSID41          9572-DATA    9574/ID
   MSID42          9596-DATA    9598/ID
   MSID43          9640-DATA    9642/ID
   MSID44          9670-DATA    9672/ID
   MSID45          9703-DATA    9705/ID
   MSID46          9735-DATA    9737/ID      9742/ID
   MSID47          9789-DATA    9791/ID      9797/ID
   MSID48          9839-DATA    9841/ID
   MSID49          9870-DATA    9872/ID
   MSID50          9894-DATA    9896/ID
   MSID51          9960-DATA    9962/ID      9972/ID
   MSID52          9996-DATA    9998/ID
   MSID53         10023-DATA   10025/ID
   MSID54         10047-DATA   10049/ID     10053/ID     10063/ID     10068/ID     10073/ID
   MSID56         10204-DATA   10206/ID     10211/ID     10216/ID     10224/ID     10229/ID     10233/ID
   MSID57         10278-DATA   10280/ID     10284/ID
   MSID58         10314-DATA   10316/ID
   MSID59         10346-DATA   10348/ID
   MSID60         10382-DATA   10384/ID
   MSID61         10415-EQU    10417/ID
   MSID62         10448-EQU    10450/ID
   MSID63         10475-DATA   10477/ID     10487/ID
   MSID65         10510-DATA   10512/ID     10522/ID     10531/ID     10537/ID
   MSID66         10654-DATA   10656/ID     10664/ID     10672/ID
   MSID67         10702-DATA   10704/ID     10712/ID
   MSID68         10768-DATA   10770/ID     10778/ID
   MSID69         10832-DATA   10834/ID
   MSID70         10867-DATA   10869/ID     10878/ID     10888/ID
   MSID71         11017-DATA   11019/ID     11028/ID
   MSID72         11060-DATA   11062/ID
   MSID74         11103-DATA   11105/ID     11116/ID
   MSID76         11165-DATA   11167/ID
   MSID77         11190-DATA   11192/ID
   MSID78         11210-EQU    11212/ID     11221/ID     11231/ID     11240/ID
   MSID80         11277-DATA   11279/ID     11289/ID
   MSID81         11371-DATA   11373/ID     11382/ID     11391/ID
   MSID82         11432-DATA   11434/ID     11442/ID
   MSID85         11498-DATA   11500/ID
   MSID86         11584-DATA   11586/ID
   MSID87         11611-DATA   11613/ID     11623/ID     11634/ID
   MSID88         11718-DATA   11720/ID
   MSID89         11773-DATA   11775/ID     11779/ID     11786/ID     11792/ID
   MSID90         11878-DATA   11880/ID     11889/ID     11893/ID     11900/ID
   MSID91         11925-DATA   11927/ID     11936/ID     11943/ID     11948/ID
   MSID93         11993-DATA   11995/ID
   MSID94         12029-DATA   12031/ID     12037/ID
   MSID99         12053-DATA   12055/ID     12065/ID     12076/ID
   MULTIPLE        3931-DATA    4245/MSGX    4300/MSGX    4301/MSGX
   MVW              255-CNAME
   MXEND           3569/LI      4439-LOC
   MXSTART         3570/LI      4169-LOC
   MX000            786/SEND    2843/SEND    4170-MSGX    8623/DATA
   MX001           2747/DATA    4171-MSGX   11568/SEND
   MX002           2747/DATA    4172-MSGX
   MX003           2747/DATA    4173-MSGX
   MX004           2747/DATA    4174-MSGX
   MX005           2747/DATA    4175-MSGX
   MX006           2748/DATA    4176-MSGX
   MX007           2748/DATA    4177-MSGX
   MX008           2748/DATA    4178-MSGX
   MX009           2748/DATA    4179-MSGX
   MX010           2748/DATA    4180-MSGX
   MX011           2723/DATA    4181-MSGX
   MX012           2730/DATA    4182-MSGX
   MX013           2743/DATA    4183-MSGX
   MX014           2780/DATA    4184-MSGX    6385/DATA
   MX015           2786/DATA    4185-MSGX
   MX016           1790/DATA  4185.1-MSGX    6380/DATA
   MX017           1981/DATA    4187-MSGX    6388/DATA
   MX018           2106/DATA    4188-MSGX    6389/DATA   11572/SEND
   MX019           1515/SEND    2107/DATA    2408/SEND    4189-MSGX
   MX020           2008/DATA    4190-MSGX    6393/DATA
   MX021           2014/DATA    4192-MSGX
   MX022           1998/DATA    4193-MSGX
   MX023           2108/DATA    4194-MSGX
   MX024           2108/DATA    4195-MSGX
   MX025           2108/DATA    4196-MSGX
   MX026           2108/DATA    4197-MSGX
   MX027           2108/DATA    4198-MSGX
   MX028           2108/DATA    4199-MSGX
   MX029           2110/DATA    4200-MSGX
   MX030           2110/DATA    4201-MSGX
   MX031           2110/DATA    4202-MSGX
   MX032           2110/DATA    4203-MSGX
   MX033           2110/DATA    4204-MSGX
   MX034           2110/DATA    4205-MSGX   10762/DATA   10828/DATA
   MX035           1248/DATA    4206-MSGX   12815/DATA
   MX036           1249/LI      1287/SEND    4208-MSGX
   MX037           1085/SEND    1092/SEND    1094/SEND    1264/SEND    1283/SEND    4209-MSGX    6387/DATA
   MX038           1297/DATA    4210-MSGX
   MX039            814/SEND    4212-MSGX
   MX040           1252/LI      4214-MSGX
   MX041           1455/SEND    4215-MSGX
   MX042           1299/DATA    4216-MSGX    6317/DATA   10645/SEND
   MX043           2530/SEND    4217-MSGX
   MX044           1451/SEND    2536/SEND    4218-MSGX
   MX045           1450/SEND    4219-MSGX
   MX046           2523/SEND    4220-MSGX
   MX053           1506/SEND    4221-MSGX
   MX054           1682/SEND    4222-MSGX
   MX055           1592/SEND    4223-MSGX
   MX056           4224-MSGX
   MX057           1509/SEND    4225-MSGX
   MX059           1595/SEND    4226-MSGX
   MX060           1601/SEND    4227-MSGX
   MX061           2402/SEND    4228-MSGX
   MX062           2412/SEND    4229-MSGX
   MX063           2429/SEND    4230-MSGX
   MX064           2438/SEND    4231-MSGX
   MX065           2448/SEND    4232-MSGX
   MX066           2458/SEND    4233-MSGX
   MX067           1978/SEND    4234-MSGX
   MX068           2465/SEND    4235-MSGX
   MX069           2472/SEND    4236-MSGX
   MX071           2285/SEND    4237-MSGX
   MX072           2322/SEND    4238-MSGX
   MX073           2325/SEND    4239-MSGX
   MX074           2547/SEND    4240-MSGX
   MX075         4241.1-MSGX  6397.1/DATA
   MX076         4241.2-MSGX  6378.1/DATA
   MX080           1268/SEND    4242-MSGX
   MX082           4243-MSGX
   MX083            787/SEND    4244-MSGX
   MX085           1272/SEND    4245-MSGX
   MX101           4248-MSGX    8634/DATA
   MX102           4249-MSGX    8658/DATA
   MX103           4250-MSGX    8689/DATA
   MX104           4251-MSGX    8711/DATA
   MX105           4252-MSGX    8761/DATA
   MX106           4253-MSGX    8790/DATA
   MX107           4254-MSGX    8815/DATA
   MX108           4255-MSGX    8852/DATA
   MX109           4256-MSGX    8893/DATA
   MX1100          4314-MSGX   12164/DATA
   MX1101          4315-MSGX   12217/DATA
   MX1102          4316-MSGX   12249/DATA
   MX1104          4317-MSGX   12280/DATA
   MX1105          4320-MSGX   12390/DATA
   MX1106          4321-MSGX   12512/DATA
   MX117           4257-MSGX    8917/DATA
   MX118           4258-MSGX    8936/DATA
   MX119           4259-MSGX    8957/DATA   11993/DATA
   MX120           4260-MSGX    8998/DATA
   MX1200          4318-MSGX   12848/DATA
   MX1201          4319-MSGX   12850/DATA
   MX121           4261-MSGX    9036/DATA
   MX122           4262-MSGX    9075/DATA
   MX123           4263-MSGX    9118/DATA
   MX124           4264-MSGX    9163/DATA
   MX129           4265-MSGX    9204/DATA
   MX131           4266-MSGX    9312/DATA
   MX132           4267-MSGX    9332/DATA
   MX140           4268-MSGX    9526/DATA
   MX141           4269-MSGX    9572/DATA
   MX142           4270-MSGX    9596/DATA
   MX143           4271-MSGX    9640/DATA
   MX144           4272-MSGX    9670/DATA
   MX145           4274-MSGX    9703/DATA
   MX146           4276-MSGX    9735/DATA
   MX147           4277-MSGX    9789/DATA
   MX148           4278-MSGX    9839/DATA
   MX149           4279-MSGX    9870/DATA
   MX150           4280-MSGX    9894/DATA
   MX151           4281-MSGX    9960/DATA
   MX152           4282-MSGX    9996/DATA
   MX153           4283-MSGX   10023/DATA
   MX154           4284-MSGX   10047/DATA
   MX156           4285-MSGX   10204/DATA
   MX157           4286-MSGX   10278/DATA
   MX158           4287-MSGX   10314/DATA
   MX159           4288-MSGX   10346/DATA
   MX160           4289-MSGX   10382/DATA
   MX163           4290-MSGX   10475/DATA
   MX165           4291-MSGX   10510/DATA
   MX166           4292-MSGX   10654/DATA
   MX167           4293-MSGX   10702/DATA
   MX168           4294-MSGX   10768/DATA
   MX169           4295-MSGX   10832/DATA
   MX170           4296-MSGX   10867/DATA
   MX171           4297-MSGX   11017/DATA
   MX172           4298-MSGX   11060/DATA
   MX174           4299-MSGX   11103/DATA
   MX176           4300-MSGX   11165/DATA
   MX177           4301-MSGX   11190/DATA
   MX180           4302-MSGX   11277/DATA
   MX181           4303-MSGX   11371/DATA
   MX182           4304-MSGX   11432/DATA
   MX183           4305-MSGX
   MX185           4306-MSGX   11498/DATA
   MX186           4307-MSGX   11584/DATA
   MX187           4308-MSGX   11611/DATA
   MX188           4309-MSGX   11718/DATA
   MX189           4310-MSGX   11773/DATA
   MX190           4311-MSGX   11878/DATA   12029/DATA
   MX191           4312-MSGX   11925/DATA
   MX199           4313-MSGX   12053/DATA
   MX200           4368-MSGX    5526/DATA
   MX2000          4431-MSGX   12835/DATA
   MX2001          4432-MSGX   12835/DATA
   MX2002          4433-MSGX   12835/DATA
   MX2003          4434-MSGX   12835/DATA
   MX2004          4435-MSGX   12835/DATA
   MX201           4374-MSGX    5527/DATA
   MX202           4375-MSGX    4472/DATA    4798/DATA
   MX203           4378-MSGX    6331/DATA
   MX204           4379-MSGX    6331/DATA
   MX205           4380-MSGX    6331/DATA
   MX300           4381-MSGX    5526/DATA
   MX301           4386-MSGX    5527/DATA
   MX302           4388-MSGX    6372/DATA
   MX303         4388.1-MSGX    6374/DATA
   MX304         4388.2-MSGX    6375/DATA
   MX305         4388.3-MSGX    6376/DATA
   MX306         4388.4-MSGX    6377/DATA
   MX307         4388.5-MSGX    6378/DATA
   MX308           4394-MSGX    6383/DATA
   MX309           4395-MSGX    6384/DATA
   MX311           4396-MSGX    6394/DATA
   MX312           4397-MSGX    6269/DATA
   MX313           4398-MSGX    6395/DATA
   MX314           4399-MSGX    5915/DATA    5949/DATA
   MX315           4400-MSGX    5963/DATA
   MX316           4402-MSGX    4927/DATA
   MX317           4403-MSGX    4949/DATA
   MX318           4406-MSGX    6671/DATA
   MX319           4407-MSGX    4996/DATA
   MX320           4408-MSGX    5004/DATA
   MX321           4409-MSGX    6687/DATA
   MX322           4411-MSGX    6371/DATA
   MX323           4412-MSGX    6399/DATA
   MX324           4413-MSGX    5906/DATA
   MX325           4414-MSGX    6332/DATA
   MX326           4415-MSGX    6332/DATA
   MX327           4416-MSGX    6332/DATA
   MX328           4417-MSGX    6332/DATA
   MX329           4418-MSGX    6332/DATA
   MX400            980/DATA    2970/SEND    4324-MSGX
   MX401           2972/SEND    4325-MSGX
   MX402            987/DATA    2976/SEND    4326-MSGX
   MX403           1008/DATA    2978/SEND    4327-MSGX    8311/SEND
   MX404            967/DATA    4364-MSGX
   MX405            975/DATA    4365-MSGX
   MX406            993/DATA    4366-MSGX
   MX407           4367-MSGX    6370/DATA
   MX411           2546/SEND    3175/SEND    4330-MSGX
   MX413           3186/SEND    4331-MSGX
   MX414           3189/SEND    4332-MSGX
   MX417           3202/SEND    4333-MSGX
   MX420           2819/DATA    4334-MSGX
   MX421           2819/DATA    4335-MSGX
   MX500           4338-MSGX    8230/DATA
   MX501           1084/SEND    4339-MSGX
   MX502           1091/SEND    4340-MSGX
   MX503           1093/SEND    4341-MSGX
   MX504           1101/SEND    4342-MSGX
   MX505           4343-MSGX
   MX506           4344-MSGX    4931/DATA    9245/SEND    9269/SEND
   MX508           4345-MSGX   10168/SEND   11859/SEND
   MX520           4346-MSGX   10592/SEND
   MX521           4347-MSGX   10594/SEND
   MX522           4348-MSGX   10639/SEND
   MX523           4349-MSGX   10640/SEND
   MX525           4350-MSGX   10759/SEND   10762/DATA   10825/SEND   10828/DATA
   MX526           4351-MSGX   10762/DATA   10828/DATA
   MX527           4352-MSGX   10762/DATA   10828/DATA
   MX530           4353-MSGX   11002/SEND
   MX531           4354-MSGX
   MX532           4355-MSGX   11364/SEND
   MX540           4356-MSGX   11554/SEND   11559/SEND
   MX541           4357-MSGX
   MX542           4358-MSGX    8231/DATA
   MX543           4359-MSGX    8232/DATA
   MX550           4360-MSGX   12323/SEND   12439/SEND
   MX601           2704/SEND    4361-MSGX
   MX603           3176/SEND    4362-MSGX
   MX990           4419-MSGX    7641/DATA
   MX991           4423-MSGX    7685/DATA
   MX992           4425-MSGX    7700/LI
   MX993           4427-MSGX    7688/DATA
   MX994           4429-MSGX    7717/LI
   MX995           4430-MSGX    7657/DATA
   NEWQ            5156/BAL     5189/BAL     5206/BAL     6780-EQU
   NEWQSAV         6823/STD     6832/LD      6846-RES
   NEWQX           6781/STW     6787/STW     6833/MTW     6836/B*      6844-DATA
   NEWQ1           4539/BAL     4546/BAL     4552/BAL     4561/BAL     4569/BAL     4576/BAL     4585/BAL
      6786-EQU
   NEWQ2           6784/B       6834-WD
   NEWQ3           6813/BLZ     6837-LW
   NEWQ4           6825/BNE     6831-BAL
   NEWQ5           6818-LI      6842/B
   NL              3827-DATA  4185.1/MSGX    4206/MSGX    4206/MSGX    4206/MSGX    4210/MSGX    4212/MSGX
      4212/MSGX    4212/MSGX    4217/MSGX    4218/MSGX    4229/MSGX    4232/MSGX    4232/MSGX    4233/MSGX
      4233/MSGX    4235/MSGX    4235/MSGX    4236/MSGX    4236/MSGX    4238/MSGX    4240/MSGX  4241.1/MSGX
    4241.2/MSGX    4343/MSGX    4343/MSGX    4355/MSGX    4367/MSGX    4367/MSGX    4368/MSGX    4368/MSGX
      4368/MSGX    4375/MSGX    4378/MSGX    4379/MSGX    4380/MSGX    4381/MSGX    4381/MSGX    4381/MSGX
    4388.1/MSGX  4388.2/MSGX  4388.3/MSGX  4388.4/MSGX  4388.5/MSGX    4403/MSGX    4403/MSGX    4414/MSGX
      4415/MSGX    4416/MSGX    4417/MSGX    4418/MSGX    4419/MSGX    4419/MSGX    4419/MSGX
   NO              3933-DATA    4171/MSGX    4172/MSGX    4173/MSGX    4174/MSGX    4175/MSGX
   NONREC          4096-DATA    4381/MSGX
   NOT             3934-DATA    4188/MSGX    4189/MSGX    4194/MSGX    4195/MSGX    4197/MSGX    4198/MSGX
      4210/MSGX    4227/MSGX    4316/MSGX    4324/MSGX    4345/MSGX    4350/MSGX    4351/MSGX    4352/MSGX
      4375/MSGX    4375/MSGX  4388.1/MSGX  4388.2/MSGX    4397/MSGX    4406/MSGX    4409/MSGX
   OBS             3935-DATA    4182/MSGX    4190/MSGX    4192/MSGX    4193/MSGX    4231/MSGX    4232/MSGX
      4233/MSGX    4235/MSGX    4236/MSGX    4238/MSGX    4240/MSGX    4332/MSGX    4346/MSGX    4355/MSGX
      4400/MSGX
   OF              3936-DATA  4185.1/MSGX    4187/MSGX    4193/MSGX    4200/MSGX    4201/MSGX    4220/MSGX
      4340/MSGX    4342/MSGX    4354/MSGX    4356/MSGX    4357/MSGX    4375/MSGX    4412/MSGX    4413/MSGX
      4435/MSGX
   OK              3937-DATA    4398/MSGX
   ON              3939-DATA    4227/MSGX
   OPERATION       3938-DATA  4185.1/MSGX    4187/MSGX    4194/MSGX    4197/MSGX    4316/MSGX    4354/MSGX
      4368/MSGX    4412/MSGX
   OR              3940-DATA    4170/MSGX    4200/MSGX    4201/MSGX    4212/MSGX
   ORDER           7852-DATA    9554/LW      9687/LW      9719/LW      9855/LW      9883/LW     10012/LW
     10499/LW     11075/LW     11140/LW     11255/LW     11415/LW
   OUT             3942-DATA    4201/MSGX    4310/MSGX    4343/MSGX    4357/MSGX  4388.3/MSGX    4435/MSGX
   OUTPUT          3943-DATA    4280/MSGX
   PACK            4102-DATA    4402/MSGX
   PACKERR         4935/STW     4970/LW      4993/CW      4997/LW      6675/LW      6680/MTW     6681/LW
      6693-DATA
   PARAMETER       3944-DATA    4324/MSGX    4325/MSGX    4326/MSGX    4327/MSGX    4366/MSGX
   PARITY          3946-DATA    4280/MSGX    4281/MSGX    4285/MSGX    4309/MSGX
   PASS            3947-DATA    4368/MSGX    4381/MSGX
   PATAVAIL        4800/STW     4810/STW     4842/CW      5123/CW      5563/CW      5599-DATA
   PATID           1444/LW      2532/LW      2542/LW      3075/LW      3088/LW      3110/AW      3124/CW
      3150/LW      3250/LW      3251/LW      3266/AW      4475/STW     4832/STM     4836/STW     4849/CW
      4851/STW     5583/STW     5584/CW      5588/STW     5910/CW      5929/STW     5930/CW      5934/STW
      5944/CW      7817-RES     8025/STW     8027/STW     8837/STW     8904/STW     8908/STW     9559/LH
      9941/STB     9942/STB     9943/STB     9944/STB     9950/STW    10558/STH    10563/STH    10579/LW
     11306/STW    11319/STW    11343/STW    11649/STW    11661/STW    12092/STW    12102/STW    12340/STW
     12457/STW
   PATTB           3238-RES     3249/STW     3261/STW*    3265/STW*    3270/LW      3278/STW*    3280/SW*
   PATTERN         4670/BAL     4702/BAL     5177/BAL     5559-EQU
   PATTH           3239-RES     3273/STW     3276/STW*
   PATTM           3131/STW     3143/XW      3144/AW      3152/STW     3240-RES     3275/STW     3281/XW
      3282/AW
   PATTS           3237-RES     3242/STW     3263/B*      3268/B*      3284/B*
   PATT0           3257/DATA    3261-STW     3262/BIR
   PATT1           3258/DATA    3265-STW     3267/BIR
   PATT2           3259/DATA    3270-LW
   PATT2A          3276-STW     3283/BIR
   PATX            5560/STW     5580/B*      5596/B*      5598-DATA
   PAT1            5566/BCR     5581-CW
   PAT2            5562/BE      5586-LW
   PAT3            5585/BNE     5589-LI
   PENDING         3948-DATA    4205/MSGX    4350/MSGX    4351/MSGX    4352/MSGX
   PHASE           3949-DATA    4200/MSGX    4201/MSGX    4203/MSGX    4237/MSGX
   PICTDVA         7630/STW     7653/LW      7726-EQU
   PICTDVB         7624/STW     7649/LW      7730-EQU
   PICTIOA         7628/STW     7652/LW      7724-EQU
   PICTIOB         7622/STW     7648/LW      7728-EQU
   PICTIOCD        7704/STW     7705/LW*     7706/LW*     7713/LW*     7716/AWM     7723-EQU
   PICTUREC        6171/BAL     7614-EQU
   PICTURED        6315/BAL     7634-EQU
   PICTUREX        7635/STW     7639/BE*     7658/B*      7721-DATA
   PICT1           7616-LI      7631/BDR
   PICT11          7643-CW      7655/BDR
   PICT12          7646/BGEZ    7651-INT
   PICT13          7644/BE      7655-BDR
   PICT2           7618/BCR     7625-LW
   PICT99          7650/BAL     7654/BAL     7660-EQU
   PICT99X         7661/STW     7686/B*      7689/B*      7715/BCR*    7722-DATA
   PICT990         7670/BE      7678-LW
   PICT991         7677/B       7684-BAL     7691/BEZ     7698/BEZ
   PICT992         7676/BCS     7683/BCS     7687-BAL
   PICT993         7673/BCS     7680/BCS     7690-LW
   PICT994         7692-LW      7699/B
   PICT995         7694/BNE     7697-LW
   PICT9951        7696/BLZ     7700-LI
   PICT996         7705-LW      7719/B
   PICT997         7701/STW     7712-DATA    7718/STW
   PLUS            3950-DATA    4431/MSGX    4433/MSGX
   POSITION        3952-DATA    4289/MSGX    4296/MSGX
   POSSIBLE        3951-DATA
   POSTHDLR        5078/LI      6553-EQU
   POSTX           6554/STW     6561/BE*     6565/B*      6613/B*      6642/B*      6647/BNE*    6649/BNE*
      6651/B*      6653/B*      6654/MTW     6658/BNE*    6662/B*      6692-DATA
   POST0           6562-LI      6567/BEZ
   POST1           6556/BGZ     6566-LW
   POST10          6629/BE      6636/BCR     6643-LI
   POST11          6654-MTW     6664/BNE     6666/BNE     6678/BE      6685/B
   POST12          6616/BE      6618/BCR     6655-LI
   POST16          6579/B       6626/BLEZ    6663-CW
   POST17          6645/BNE     6652-LI
   POST2           6569/B       6580-CW
   POST20          6667-LW
   POST201         6575/B       6584-LW
   POST21          6672/B       6688-LI
   POST4           6570/B       6599-STW
   POST6           6581/BE      6583/B       6604-LW
   POST7           6606/BCR     6608/BCS     6610/BCS     6614-BAL
   POST71          6598/B       6603/B       6625-MTW
   POST8           6633-CB      6638/B
   POST9           6634/BE      6639-LW
   POWER           3953-DATA    4313/MSGX
   PREBFR          6512/LI      6530-DATA
   PREHDLR         5077/LI      6430-EQU
   PREX            6431/STW     6469/B*      6497/BNE*    6507/BG*     6511/BCR*    6523/BCS*    6528-DATA
   PRE0            6442-LW      6502/BE      6521/B       6526/B
   PRE1            6456-LW      6486/B       6495/B
   PRE2            6437/BCS     6470-LW
   PRE4            6472/BNE     6487-LW
   PRE5            6439/BCS     6496-CW
   PRE6            6498-LW
   PRE7            6441/BLZ     6522-CI
   PRINT           3956-DATA    4333/MSGX    4343/MSGX
   PROBPH1         4522/CLM     4733-DATA
   PROBPH2         4555/CLM     4734-DATA
   PROGEND        12886-SET    13854/ORG
   PROGERR          783-B       1352/DATA
   PROGRAM         3954-DATA    4170/MSGX    4375/MSGX
   PROTECT         3955-DATA    4314/MSGX
   PT                50-CNAME
   QSCAN           6170/STW     6320/STW     6789/STW     6835/STW     7222/CW      7271-DATA    7294/STW
      7342/STW     7394/STW     7441/STW
   RAD             3957-DATA    4283/MSGX
   RANDK           3022-DATA    3032/AW
   RANDM           3024-DATA    3027/MTW     3033/EOR
   RANDN           3025-DATA    3029/MTW     3034/EOR
   RANDOM          3958-DATA    4256/MSGX    4341/MSGX    4342/MSGX    4368/MSGX    4379/MSGX    4399/MSGX
      4400/MSGX
   RANGE           3959-DATA    4435/MSGX
   RATE            3960-DATA    4282/MSGX
   RDD1            9098/DATA   13654-EQU
   RDD1MOD1       12929/STW    13658-DATA
   RDD1MOD2       12930/STW    13659-DATA
   RDD2            9098/DATA   13661-EQU
   RDD2MOD        12931/STW    13668-DATA
   RDD3            9098/DATA   13669-EQU
   RDD4            9098/DATA   13681-EQU
   RDD5            9099/DATA   13682-EQU
   RDD6            9099/DATA   13683-EQU
   RDD7            9099/DATA   13684-EQU
   RDD8            9099/DATA   13695-EQU
   RDR1           13827-EQU
   RDR2           13828-EQU
   RDR3           13829-EQU
   RDR4           13830-EQU
   RDR5           13831-EQU
   RDR6           13832-EQU
   RDR7           13833-EQU
   RDY              116-SET     8662/WT      8670/WT      8857/WT      8899/WT     10029/WT     10354/WT
     10674/WT     10836/WT     11119/WT     11394/WT     11588/WT     12180/WT
   READ            3961-DATA    4260/MSGX    4262/MSGX    4272/MSGX    4274/MSGX    4276/MSGX    4277/MSGX
      4290/MSGX    4297/MSGX    4301/MSGX    4301/MSGX    4318/MSGX    4320/MSGX    4368/MSGX    4368/MSGX
      4381/MSGX    4381/MSGX    4415/MSGX    4417/MSGX
   READY           3962-DATA    4189/MSGX    4423/MSGX
   RECEIVED        3963-DATA    4188/MSGX    4345/MSGX
   RECOGNITION     3964-DATA    4171/MSGX    4172/MSGX    4173/MSGX    4174/MSGX    4175/MSGX    4248/MSGX
   RECORD          3965-DATA    4268/MSGX
   RELEASE         3966-DATA    4266/MSGX    4267/MSGX    4311/MSGX    4312/MSGX    4359/MSGX
   RELQ            5308/BAL     6829/BAL     6914-EQU     6982/BAL     7147/BAL
   RELQX           6917/STD     6918/STD     6923/STW     6949/LD      6950/LD      6951/LW      6957-RES
   RELQ1           6941-AI      6948/BCS
   RELQ2           6938/BCR     6949-LD
   REMAINING       3967-DATA    4192/MSGX    4396/MSGX
   REMBC           7854-DATA    8046/STW     8047/STW    11144/LW     11417/LW     11473/LW
   REMBCX          7855-DATA    8045/LW
   REPEATED        3968-DATA    4212/MSGX
   REPHDR2         6225/LW      6331-DATA
   REPHDR3         6228/LW      6332-DATA
   REPMAP          6214/STW     6220/CW      6309/CW      6313/CW      6326-DATA
   REPMASK         6241/LD      6335-EQU
   REPMSG          6233/LW      6302/LW      6370-DATA
   REPORT          5306/BAL     6166-EQU     6563/BAL     6587/BAL     6600/BAL
   REPOTBL         6183/STW     6200/STW     6202/STW     6209/STW     6210/STW     6237/LW      6328-RES
   REPSAVR         6169/STM     6211/LW*     6239/LW      6319/LM      6324-EQU
   REPTB           6218/STW     6232/LW      6301/LW      6307/MTW     6367-DATA
   REPTBL          6187/STW     6235/STW     6238/STW     6242/STD     6243/LI      6366-RES
   REPT1           6220-CW      6308/BNEZ
   REPT101         6223/BCR     6230-CW
   REPT2           6231/BCR     6246-CI
   REPT21          6262/BCS     6268-BAL     6272/BNE
   REPT22          6265/BCR     6271-CW
   REPT23          6299-BAL
   REPT24          6280-LW      6290/B
   REPT25          6276/BE      6291-STW
   REPT3           6256/BCR     6301-LW
   REPT31          6229/B       6303-STW
   REPT32          6221/BCR     6245/B       6250/B       6258/BCR     6270/B       6300/B       6306-SLS
   REPT4           6310/BCR     6313-CW
   REPT41          6213/BEZ     6318-LCI
   RESERVE         3970-DATA    4311/MSGX    4312/MSGX
   RESET           3969-DATA    4308/MSGX    4338/MSGX    4351/MSGX    4358/MSGX    4359/MSGX
   RESTORE         3971-DATA    4257/MSGX    4292/MSGX    4294/MSGX    4338/MSGX
   RETRY           4097-DATA    4381/MSGX
   REV              334-CNAME
   REVBRNCH         364/STW      365/B        776-EQU
   REVCOUNT         331-SET      336/DO       340-SET      340/SET      345/GEN
   REVEND           341/DO       390-REV
   REVISION         353/LW       354/LW       369-REV
   REVPRINT         353-LW       362/BDR      777/BAL
   REVSTART         332-SET      337-SET      344/ORG
   RMCO            7857-DATA   10188/CW
   S               3972-DATA    4232/MSGX    4233/MSGX    4324/MSGX    4325/MSGX    4375/MSGX    4407/MSGX
      4409/MSGX
   S:NUMC           302/SET
   S:PT               4/EQU
   SCNTB           2902/DATA    2905-STW
   SCNTBS          2903-RES     2905/STW     2912/LW
   SCNTF           2880/STW     2899-RES     2911/STW
   SCNTI           2884/LW      2895-XPSD
   SCNTIR          2878/STW     2898-RES     2906/LW
   SCNTIW          2895/XPSD    2901-DATA    2908/STW     2913/LPSD
   SCNTM           2882/LW      2894-MTW
   SCNTS           2876/STW     2892/B*      2897-RES
   SECTNR           732/MW      1034/LW      1053/MW      4962/LW      4985/AW      5416/LW      7843-DATA
      7987/LW
   SECTOR          3974-DATA    4300/MSGX    4301/MSGX
   SEED            3023-DATA    3030/LW      3035/STW    10956/LW     10961/LW     11317/LW     11341/LW
     11362/EOR    11659/LW     12100/LW
   SEEK            3976-DATA    4223/MSGX    4226/MSGX    4259/MSGX    4269/MSGX    4270/MSGX    4271/MSGX
      4286/MSGX    4287/MSGX    4292/MSGX    4293/MSGX    4295/MSGX    4296/MSGX    4307/MSGX    4310/MSGX
      4353/MSGX    4355/MSGX    4368/MSGX    4368/MSGX    4395/MSGX    4400/MSGX
   SEEKABS         1048/BAL     4677/BAL     4982/BAL     5381-EQU     6504/BAL
   SEEKINC         4675/BAL     4706/BAL     5413-EQU     5991/BAL     6285/BAL
   SEEKREQ         4511/BAL     4680/BAL     4938/BAL     5142/BAL     5145/BAL     5196/BAL     5337-EQU
      6508/BAL
   SEEKX           5359-DATA
   SELECTION       3979-DATA    4221/MSGX    4225/MSGX    4250/MSGX    4403/MSGX    4403/MSGX
   SEND             317-CNAME
   SENEXP          2389/LW      2421/LD      2427/LW      2444/LH      2454/LH      2461/LH      2468/LH
      5977/STW     7802-RES     8029/STW     8037/STB     8188/STH     8194/LH      8198/STH     9493/STH
      9557/STH     9658/STH     9659/STH     9814/STH     9931/STB    10011/STH    10098/STH    10158/LW
     10160/STW    10303/STW    10364/STH    10406/STB    10426/STB    10431/STB    10436/STB    10439/STH
     10686/STH    10687/STH    10691/STH    10692/STH    10844/STH    10846/STH    10849/STH    10910/STH
     10922/STH    11074/STB    11088/STB    11093/STH    11095/STB    11136/STH    11139/STB    11147/STH
     11150/STH    11404/STB    11408/STH    11414/STB    11423/STB    11458/STH    11459/STW    11465/STB
     11599/STB    11737/STH    11909/STH    11960/STH    12123/STH    12125/STH    12127/STH    12128/STH
     12189/STH    12193/STH    12196/STH
   SENMAS          2391/AND     2392/AND     2416/LD      2419/LW      2442/LH      2452/LH      2459/LH
      2466/LH      5979/STW     6297/STW     7801-RES     8030/STW     8034/STW     8150/STW     8154/STH
      8167/STH     8171/STH     8175/STH     8179/STH     9657/STH    10010/STH    10363/STH    10389/STH
     10398/STB    10403/STB    10845/STH    11128/STH    11600/STH    11823/STH    11908/STH    11959/STH
     12094/STB    12263/STW    12264/STW    12343/STH    12460/STH
   SENOBS          2366/STD     2367/STD     2390/LW      2423/LW      2433/LD      2436/LW      2446/LH
      2456/LH      2463/LH      2470/LH      5975/STW     6329/GEN     7803-RES     8440/IOCD    8537/IOCD
     10393/LB     10861/LW     12365/MVW    12369/LW     12487/MVW    12491/LW
   SENSE           3977-DATA    4224/MSGX    4228/MSGX    4229/MSGX  4241.2/MSGX    4258/MSGX    4289/MSGX
      4368/MSGX    4368/MSGX    4397/MSGX
   SENSEM          5978/LW      6296/LW      6360-DATA
   SENSES          2579-RES     2581/STW     2583/B*
   SENSEXP         5965/STW     5972/STB     5976/LW      6291/STW     6294/STB     6364-DATA
   SEQUENCE        3978-DATA    4210/MSGX    4245/MSGX
   SERVCIT         7084/STW     7108/CW      7113-DATA
   SERVCITC        7085/STW     7103/LW      7107/STW     7114-DATA
   SERVICEI        7061-EQU     7260/BAL     7438/BAL
   SERVICEQ        6831/BAL     7058-EQU     7315/BAL
   SERVICEX        7059/STW     7062/STW     7077/B*      7079/BEZ*    7110/B*      7112-DATA
   SERV1           7063-BAL     7066/B
   SERV2           7065-BAL     7096/BCR     7100/BCR
   SERV21          7072/BCS     7074/BEZ     7076-STW
   SERV3           7060/B       7064/B       7067/B       7069/BNE     7078-LW
   SERV31          7080-LW
   SERV32          7083-LI
   SERV4           7086-MTW     7109/BNE
   SERV5           7088-LW
   SERV6           7091/BCS     7094/BCS     7101-LW
   SERV7           7090-INT     7102/BNEZ
   SERV8           7087/BLZ     7089/BEZ     7103-LW
   SET             3980-DATA    4350/MSGX    4352/MSGX
   SHORT           3981-DATA    4268/MSGX
   SIMULATION      3983-DATA    4304/MSGX
   SIO              156-SET      173-SET      191-SET    10060/IO3
   SIOPFLAG         570/STW      729/STW     7833-RES     8044/LW      9226/MTW     9693/LW      9694/AW
      9918/MTW    11804/MTW
   SK                66-CNAME
   SKADR           1583/LW      7822-RES     8018/STW     8438/IOCD    8439/IOCD    8490/IOCD    8498/IOCD
      8518/IOCD    8532/IOCD    8536/IOCD    8563/IOCD    8564/IOCD    8974/STW     9611/STB     9615/STB
      9620/STB     9624/STB     9629/STH     9770/STH     9816/MTW     9817/CW      9819/STW    10302/STW
     10328/STH    10331/STH    10332/STB    10337/STB    10338/STB    10425/STB    10430/STB    10435/STB
     10438/STH    10557/STH    10562/STH    10602/STB    10688/STH    10848/STH    10907/SH     10912/STH
     10919/SH     10924/STH    11047/STH    11090/STB    11130/STB    11135/STH    11138/STB    11310/STB
     11311/STB    11313/STH    11315/STB    11316/STH    11318/EOR    11339/STB    11340/STH    11342/EOR
     11359/LW     11407/STH    11457/STH    11597/STH    11655/STB    11656/STB    11658/STH    11660/EOR
     11662/LW     11677/STW    11811/STH    11814/STH    11821/STH    12020/STW    12096/STB    12097/STB
     12099/STH    12101/EOR    12103/LW     12119/STW    12190/STH    12352/STW    12353/STH    12365/MVW
     12372/STW    12375/LB     12472/STW    12473/STH    12487/MVW    12494/STW    12497/LB     12653/LW
     12694/STB    12698/STB    12720/STW    12723/STW    12734/STW    12736/STB    12867/STH    12879/STH
   SLASH           4094-DATA    4368/MSGX    4368/MSGX    4368/MSGX    4368/MSGX    4368/MSGX    4368/MSGX
      4406/MSGX    4409/MSGX
   SMALL           4000-DATA    4326/MSGX
   SN               221-CNAME
   SNSIOCD         6259/LI      6329-GEN
   SPHNR           5345/DW      5387/MW      7850-DATA
   SPREAD          3984-DATA    4219/MSGX
   SPTNR           5341/DW      5384/MW      7849-DATA
   ST               141-CNAME
   START           3985-DATA  4185.1/MSGX    4201/MSGX    4356/MSGX    4357/MSGX    4394/MSGX    4403/MSGX
      4419/MSGX
   STARTED         3999-DATA    4339/MSGX    4341/MSGX
   STARTIO         6977-EQU     7065/BAL
   STARTIOX        6978/STW     6983/B*      7023/B*      7032/B*      7034-DATA
   STARTIO1        7010/BCS     7024-STCF
   STARTIO2        6981/B       6984-STW
   STATE           4091-DATA    4419/MSGX
   STATUS          3986-DATA    4176/MSGX    4177/MSGX    4178/MSGX    4179/MSGX    4180/MSGX    4187/MSGX
    4388.4/MSGX    4398/MSGX
   STC17           8923/ST      8926-DATA
   STC18           8942/ST      8945-DATA
   STC19           8963/ST      8966-DATA
   STC20D          9012/ST      9015-DATA    9028/LI
   STC20R          9016-DATA    9024/LI
   STC21D          9051/ST      9054-DATA    9067/LI
   STC21R          9055-DATA    9063/LI
   STC22D          9088/ST      9091-DATA    9110/LI
   STC22R          9094-DATA    9106/LI      9193/LI
   STC23D          9133/ST      9136-DATA    9155/LI
   STC23R          9139-DATA    9151/LI
   STC24D          9178/ST      9181-DATA    9197/LI
   STC89          11782/ST     11799-DATA
   STC93          11999/ST     12002-DATA
   STD17           8923/ST      8927-DATA
   STD18           8942/ST      8946-DATA
   STD19           8963/ST      8967-DATA    8991/STH
   STD20D          9012/ST      9017-DATA
   STD21D          9051/ST      9056-DATA
   STD22D          9088/ST      9097-DATA
   STD23D          9133/ST      9142-DATA
   STD24D          9178/ST      9184-DATA
   STD89          11782/ST     11800-DATA
   STD93          11999/ST     12003-DATA
   STEP            3987-DATA    4237/MSGX
   STEPDATA        2239/AI      2295/AI     12940-EQU
   STEPSP           928/STW     7838-DATA    7929/MTW
   STFIRST         7917-RES     7960/STW     7967/LW
   STLAST          7918-RES     7961/STW     8296/CW
   STMASK          2270/AND     2272/AND     2315/AND     2318/AND     2321/MVW     7813-RES     8033/STW
      8209/MVW
   STROBE          3988-DATA    4320/MSGX
   ST0             8927/DATA    8946/DATA    8969/DATA    8969/DATA    9017/DATA    9017/DATA    9017/DATA
      9017/DATA    9056/DATA    9056/DATA    9056/DATA    9097/DATA    9097/DATA    9097/DATA    9097/DATA
      9098/DATA    9098/DATA    9098/DATA    9098/DATA    9099/DATA    9099/DATA    9099/DATA    9099/DATA
      9142/DATA    9142/DATA    9142/DATA    9142/DATA    9143/DATA    9143/DATA    9143/DATA    9143/DATA
      9144/DATA    9144/DATA    9144/DATA    9184/DATA    9184/DATA    9184/DATA    9184/DATA    9185/DATA
      9185/DATA    9185/DATA    9185/DATA    9186/DATA    9186/DATA    9186/DATA    9186/DATA   12003/DATA
     12941-EQU
   ST17            8927/DATA   12942-EQU
   ST18D           8946/DATA   13059-EQU
   ST18R          13164-EQU
   ST19D           8969/DATA   12003/DATA   13166-EQU
   ST19MOD1        8980/STW    12018/STW    13179-DATA
   ST19MOD2        8981/STW    12019/STW    13180-DATA
   ST19MOD3        8986/STW    13185-DATA
   ST19MOD4        8987/STW    13186-DATA
   ST19R           8969/DATA   13165-EQU
   SUBTEST         3989-DATA
   SUBTNR          1241/LW      1894/LW      1913/LW      2630/LW      7814-RES     7968/STW     8059/LW
      8284/LW      8288/LW      8294/MTW     8295/LW     12810/LW
   SUMCNT           910/STW     5496/CW      5529-DATA
   SUMCURC         4474/STW     4829/STW     4840/CW      4865/CW      5466/LW      5476/LW      5494/MTW
      5495/LW      5530-DATA
   SUMINH           908/STW     5463/MTW     5467/DW      5528-DATA
   SUMMARY         4618/BAL     4912/BAL     5461-EQU
   SUMMARYX        5462/STW     5497/BG*     5498/B*      5525-DATA
   SUMSGH          5471/LW      5473/LW      5526-DATA
   SUM1            5472/STW     5481-DATA
   SUM11           5483-LW      5493/BLE
   SUM2            5474/STW     5487-DATA
   SUM3            5484/BGEZ    5488-BAL
   SUM4            5475/STW     5490-DATA
   SUM5            5464/BEZ     5469/BNEZ    5494-MTW
   SUM991          5485/BAL     5500-LW
   SUM992          5488/BAL     5505-LW
   SUM993          5504/B       5509-STW
   SURFACE         3991-DATA    4302/MSGX    4317/MSGX    4378/MSGX    4380/MSGX    4381/MSGX    4403/MSGX
      4407/MSGX    4414/MSGX    4415/MSGX    4416/MSGX
   SYSTEM          4089-DATA    4419/MSGX
   T                298-CNAME
   TDV              160-SET      177-SET      195-SET     8645/IO1     9212/IO2     9288/IO2     9479/IO2
      9579/IO2     9678/IO2     9878/IO3     9902/IO2    10220/IO2    11387/IO2    11396/IO2    11447/IO2
     12172/IO2
   TDVA12         11699/BAL    11705-STW    12138/BAL
   TDVS           11705/STW    11710/B*     11712-RES
   TDV0             196-SET
   TDV1             197-SET
   TDV10            206-SET    11726/IO3    12183/IO3    12256/IO3
   TDV11            207-SET
   TDV12            208-SET
   TDV13            209-SET
   TDV14            210-SET
   TDV15            178-SET      211-SET     9748/IO3     9803/IO3    12182/IO2
   TDV2             198-SET
   TDV3             199-SET
   TDV4             200-SET
   TDV5             201-SET
   TDV6             202-SET
   TDV7             203-SET
   TDV8             204-SET    11725/IO2    12255/IO2
   TDV9             205-SET
   TDV9D          12144/LI     12151/LI     12157-DATA
   TDV9E          11728/ES3    12084/ES3    12151-LI     12185/ES3    12258/ES3
   TDV9F          12147/LI     12153/LI     12158-DATA
   TDV9X          11728/ES3    12084/ES3    12144-LI     12185/ES3    12258/ES3
   TEMP1            619/STW      644/LH       651/LH       708/LW     13850-EQU
   TEMP2            622/STW      705/LW     13851-EQU
   TEMP3            620/STW      649/LH       658/STH      707/INT    13852-EQU
   TEND             247-CNAME
   TEST             268-CNAME   3993-DATA    4183/MSGX    4210/MSGX    4212/MSGX    4221/MSGX    4225/MSGX
      4242/MSGX    4245/MSGX    4248/MSGX    4249/MSGX    4250/MSGX    4250/MSGX    4251/MSGX    4252/MSGX
      4253/MSGX    4254/MSGX    4255/MSGX    4256/MSGX    4257/MSGX    4258/MSGX    4259/MSGX    4260/MSGX
      4261/MSGX    4262/MSGX    4263/MSGX    4264/MSGX    4265/MSGX    4266/MSGX    4267/MSGX    4268/MSGX
      4269/MSGX    4270/MSGX    4271/MSGX    4272/MSGX    4274/MSGX    4276/MSGX    4277/MSGX    4278/MSGX
      4279/MSGX    4280/MSGX    4281/MSGX    4282/MSGX    4283/MSGX    4284/MSGX    4285/MSGX    4286/MSGX
      4287/MSGX    4288/MSGX    4289/MSGX    4290/MSGX    4291/MSGX    4292/MSGX    4293/MSGX    4294/MSGX
      4295/MSGX    4296/MSGX    4297/MSGX    4299/MSGX    4300/MSGX    4301/MSGX    4302/MSGX    4303/MSGX
      4304/MSGX    4305/MSGX    4306/MSGX    4307/MSGX    4308/MSGX    4309/MSGX    4310/MSGX    4311/MSGX
      4312/MSGX    4313/MSGX    4314/MSGX    4315/MSGX    4316/MSGX    4317/MSGX    4320/MSGX    4321/MSGX
      4339/MSGX    4340/MSGX    4357/MSGX
   TESTNR           805/CW       810/LW      5125/CW      7836-EQU     7931/LW      7945/STW
   TEXTCS           323-CNAME
   TIME            3994-DATA    4310/MSGX    4353/MSGX    4354/MSGX    4357/MSGX    4388/MSGX  4388.3/MSGX
      4394/MSGX    4419/MSGX
   TIO              157-SET      174-SET      192-SET     8641/IO1     8718/IO3     9211/IO1     9287/IO1
      9578/IO1     9677/IO1     9802/IO1     9847/IO1     9877/IO2     9901/IO1     9967/IO1     9977/IO1
     10003/IO1    10058/IO1    10226/IO1    10231/IO1    10355/IO1    11724/IO1    11789/IO1    11890/IO1
     11939/IO1    12254/IO1
   TITLE              4-EQU      330/TITLE    558/TEXTCS
   TM                58-CNAME
   TMODB           1501/LH      1574/LW    2374.2/LW      7821-RES     8020/STW     8131/STB     8134/STB
      8447/IOCD    8456/IOCD    8457/IOCD    8458/IOCD    8459/IOCD    8702/STB     8775/STB     9022/STB
      9061/STB     9104/STB     9149/STB     9191/STB     9774/STH     9821/STH    10256/STB    10263/STB
     11679/STB    11686/STB    11745/STH    11752/STH    11758/STH    11765/STH    11816/STH    11819/STH
     12121/STH    12129/STB    12465/STH    12700/STH    12703/STH    12733/STH    12750/STH
   TO              3996-DATA    4364/MSGX    4365/MSGX    4375/MSGX    4403/MSGX
   TOO             3997-DATA    4325/MSGX    4326/MSGX    4327/MSGX    4409/MSGX
   TOTAL           4109-DATA    4368/MSGX
   TPM1            2960-CW      2967/B
   TPM2            2958/BCS     2969-BCS
   TPM3            2966/BCS     2975-BCS
   TRACK           3998-DATA    4347/MSGX
   TRAP            4001-DATA    4212/MSGX
   TSEQHDRR       12852-ID     12868/TEST
   TSEQHDRW       12857-ID     12880/TEST
   TSEQHIO         8222/TEST    8246-ID      8281/TEST    9780/TEST
   TSEQRL          8240-ID      8291/TEST
   TSEQRS          1100/TEST    8227/TEST    8234-ID      8287/TEST   10391/TEST   12366/TEST   12488/TEST
     12753/TEST
   TSEQ00          8625-ID      9563/TEST   11322/TEST   11346/TEST   11667/TEST   12108/TEST   12354/TEST
     12476/TEST
   TSEQ01A         8636-ID      8649/TEST
   TSEQ01B         8640-ID      8650/TEST
   TSEQ01C         8644-ID      8651/TEST
   TSEQ02A         8660-ID      8680/TEST   10196/TEST
   TSEQ02B         8668-ID      8681/TEST   10197/TEST
   TSEQ03          8691-ID      8704/TEST
   TSEQ04          8713-ID      8752/TEST
   TSEQ05          8763-ID      8782/TEST
   TSEQ06          8792-ID      8806/TEST
   TSEQ07          8817-ID      8843/TEST
   TSEQ08          8854-ID      8882/TEST
   TSEQ09          8895-ID      8909/TEST
   TSEQ100A       12166-ID     12194/TEST
   TSEQ100B       12177-ID     12198/TEST
   TSEQ100Z        8051/STW    12180-WT
   TSEQ101        12219-ID     12228/TEST
   TSEQ102        12251-ID     12265/TEST
   TSEQ104A       12282-ID     12327/DATA
   TSEQ104B       12302-ID     12327/DATA   12327/DATA   12327/DATA   12328/DATA   12328/DATA   12328/DATA
     12328/DATA   12328/DATA   12329/DATA
   TSEQ104C       12292-ID     12327/DATA
   TSEQ104D       12314-ID     12383/TEST
   TSEQ104Y        8049/STW    12286-WT
   TSEQ104Z        8050/STW    12296-WT
   TSEQ105A       12392-ID     12443/DATA
   TSEQ105B       12412-ID     12443/DATA   12443/DATA   12443/DATA   12444/DATA   12444/DATA   12444/DATA
     12444/DATA   12444/DATA   12445/DATA
   TSEQ105C       12402-ID     12443/DATA
   TSEQ105D       12424-ID     12505/TEST
   TSEQ105E       12428-ID     12475/TEST
   TSEQ106A       12514-ID     12721/TEST   12724/TEST
   TSEQ106B       12518-ID     12737/TEST
   TSEQ106C       12526-ID     12701/TEST
   TSEQ106D       12537-ID     12704/TEST
   TSEQ106E       12548-ID     12751/TEST
   TSEQ17          8919-ID      8930/TEST
   TSEQ18          8938-ID      8951/TEST
   TSEQ19          8959-ID      8992/TEST
   TSEQ20A         9001-ID      9020/TEST
   TSEQ20D         9008-ID      9030/TEST
   TSEQ20DL        9012-ST      9029/STW
   TSEQ21A         9039-ID      9059/TEST
   TSEQ21D         9046-ID      9069/TEST
   TSEQ21DL        9051-ST      9068/STW
   TSEQ22A         9077-ID      9102/TEST
   TSEQ22D         9084-ID      9112/TEST
   TSEQ22DL        9088-ST      9111/STW
   TSEQ23A         9121-ID      9147/TEST
   TSEQ23D         9128-ID      9157/TEST
   TSEQ23DL        9133-ST      9156/STW
   TSEQ24A         9166-ID      9189/TEST
   TSEQ24D         9173-ID      9199/TEST
   TSEQ24DL        9178-ST      9198/STW
   TSEQ29          9206-ID      9228/TEST
   TSEQ30A         9283-ID      9300/TEST
   TSEQ30A1        9287-IO1
   TSEQ30A2        9288-IO2
   TSEQ30B         9291-ID      9305/TEST
   TSEQ31          9314-ID      9325/TEST
   TSEQ32          9334-ID      9345/TEST
   TSEQ33          9354-ID      9365/TEST
   TSEQ34          9375-ID      9387/TEST
   TSEQ35          9398-ID      9413/TEST
   TSEQ36          9423-ID      9437/TEST
   TSEQ37          9447-ID      9462/TEST
   TSEQ38          9472-ID      9494/TEST
   TSEQ39          9504-ID      9518/TEST
   TSEQ40A         9528-ID      9550/DATA    9550/DATA
   TSEQ40B         9539-ID      9550/DATA
   TSEQ41          9574-ID      9587/TEST
   TSEQ42          9598-ID      9612/TEST    9621/TEST    9630/TEST
   TSEQ43          9642-ID      9661/TEST
   TSEQ44          9672-ID      9691/TEST
   TSEQ45          9705-ID      9725/TEST
   TSEQ46A         9737-ID      9772/TEST    9779/TEST
   TSEQ46B         9742-ID      9776/TEST
   TSEQ47A         9791-ID      9815/TEST
   TSEQ47B         9797-ID      9829/TEST
   TSEQ48          9841-ID      9860/TEST
   TSEQ49          9872-ID      9885/TEST
   TSEQ50          9896-ID      9945/TEST    9951/TEST
   TSEQ51A         9962-ID      9985/TEST
   TSEQ51B         9972-ID      9988/TEST
   TSEQ52          9998-ID     10014/TEST
   TSEQ53         10025-ID     10038/TEST
   TSEQ54A        10049-ID     10092/TEST
   TSEQ54B        10053-ID     10095/TEST
   TSEQ54C        10063-ID     10099/TEST
   TSEQ54D        10068-ID     10106/TEST
   TSEQ54E        10073-ID     10103/TEST
   TSEQ56A        10206-ID     10257/TEST   10264/TEST
   TSEQ56B        10211-ID     10259/TEST   10265/TEST
   TSEQ56C        10216-ID     10261/TEST
   TSEQ56D        10224-ID     10267/TEST
   TSEQ56E        10229-ID     10269/TEST
   TSEQ56F        10233-ID     10271/TEST
   TSEQ57A        10280-ID     10294/TEST
   TSEQ57B        10284-ID     10304/TEST
   TSEQ58         10316-ID     10329/TEST   10335/TEST   10339/TEST
   TSEQ59         10348-ID     10366/TEST   10368/TEST
   TSEQ60         10384-ID     10392/TEST   10399/TEST   10407/TEST
   TSEQ61         10417-ID     10427/TEST   10440/TEST
   TSEQ62         10450-ID     10468/TEST
   TSEQ63A        10477-ID     10501/TEST
   TSEQ63B        10487-ID     10503/TEST
   TSEQ65A        10512-ID     10559/TEST
   TSEQ65B        10522-ID     10564/TEST
   TSEQ65C        10531-ID     10591/TEST   10638/TEST
   TSEQ65D        10537-ID     10604/TEST
   TSEQ66A        10656-ID     10683/TEST   10693/TEST
   TSEQ66B        10664-ID     10689/TEST
   TSEQ66C        10672-ID     10695/TEST
   TSEQ67A        10704-ID     10719/TEST
   TSEQ67B        10712-ID     10721/TEST
   TSEQ68A        10770-ID     10785/TEST
   TSEQ68B        10778-ID     10787/TEST
   TSEQ69         10834-ID     10850/TEST
   TSEQ70A        10869-ID     10916/TEST   10928/TEST
   TSEQ70B        10878-ID     10917/TEST   10929/TEST
   TSEQ70C        10888-ID     10953/TEST   10966/TEST
   TSEQ71A        11019-ID     11049/TEST
   TSEQ71B        11028-ID     11051/TEST
   TSEQ72         11062-ID     11079/TEST
   TSEQ74A        11105-ID     11148/TEST
   TSEQ74B        11116-ID     11151/TEST
   TSEQ76         11167-ID     11182/TEST
   TSEQ77         11192-ID     11203/TEST
   TSEQ78A        11212-ID     11257/TEST
   TSEQ78B        11221-ID     11260/TEST
   TSEQ78C        11231-ID     11268/TEST
   TSEQ78D        11240-ID     11269/TEST
   TSEQ80A        11279-ID     11302/DATA
   TSEQ80B        11289-ID     11302/DATA
   TSEQ81A        11373-ID     11410/TEST   11424/TEST
   TSEQ81B        11382-ID     11412/TEST
   TSEQ81C        11391-ID     11419/TEST
   TSEQ82A        11434-ID     11468/TEST
   TSEQ82B        11442-ID     11475/TEST
   TSEQ85         11500-ID     11508/TEST
   TSEQ86         11586-ID     11604/TEST
   TSEQ87A        11613-ID     11644/DATA
   TSEQ87B        11623-ID     11644/DATA
   TSEQ87C        11634-ID     11681/TEST
   TSEQ88         11720-ID     11738/TEST
   TSEQ89A        11775-ID     11812/TEST
   TSEQ89B        11779-ID     11817/TEST
   TSEQ89C        11792-ID     11824/TEST
   TSEQ89D        11786-ID     11822/TEST
   TSEQ90A        11880-ID     11910/TEST
   TSEQ90B        11889-ID     11912/TEST
   TSEQ90C        11893-ID     11915/TEST
   TSEQ90D        11900-ID     11917/TEST
   TSEQ91A        11927-ID     11961/TEST
   TSEQ91B        11936-ID     11968/TEST
   TSEQ91C        11943-ID     11970/TEST
   TSEQ91D        11948-ID     11974/TEST
   TSEQ93         11995-ID     12021/TEST
   TSEQ94A        12031-ID     12045/TEST
   TSEQ94C        12037-ID     12046/TEST
   TSEQ99A        12055-ID     12088/DATA
   TSEQ99B        12065-ID     12088/DATA
   TSEQ99C        12076-ID     12126/TEST
   TST             4002-DATA    4212/MSGX    4367/MSGX    4375/MSGX
   TSTMSG        8259.4/STB   8259.6/STH   8259.9/DATA  8278.2-TEXTC
   TST0             505/GEN     1081-STW
   TST0A           1084-SEND    1104/B
   TST0B           1091-SEND    8304/BNEZ
   TST0C           1101-SEND    4623/BNEZ
   TST0P           1078-DATA    1083/DATA
   TST1             506/GEN     7927-LI
   TST1A           1090/B       7929-MTW     8307/B
   TST1A1          7933/BLE     7945-STW
   TST1B           7950/BNEZ    7958-CW
   TST1C           7955/B       7957/B       7960-STW
   TST1D           7967-LW      8301/BLE
   TST1E           7963/LI      7969-LI      8297/BLE    10054/INH    10064/INH    10069/INH    10074/INH
     10285/INH    10870/INH    10879/INH
   TST1E1          7974-LW      8293/BGZ
   TST1F           8059-LW
   TST1FX          7959/BG      8310-STW
   TST1F1          8061-LW      8071/B
   TST1G           8065/BL      8067/BG      8070-MTW     8132/B       8151/B       8168/B       8172/B
      8176/B       8180/B       8189/B       8199/B       8208/B       8210/B       8213/B       8214/B
   TST1H           8063/BE      8220-CI
   TST1H1          8223-CI
   TST1H2          8221/BE      8224/BL      8226/BNEZ    8228/B       8251-LW
   TST1P           7921-DATA    7947/DATA
   TST1R           8258/BEZ     8280-STW     8314/GEN     8652/B       8683/B       8706/B       8755/B
      8784/B       8809/B       8846/B       8887/B       8911/B       8931/B       8952/B       8993/B
      9031/B       9070/B       9113/B       9158/B       9200/B       9227/BNEZ    9233/B       9306/B
      9326/B       9346/B       9366/B       9388/B       9414/B       9438/B       9463/B       9495/B
      9519/B       9565/B       9589/B       9633/B       9663/B       9696/B       9728/B       9782/B
      9832/B       9863/B       9887/B       9953/B       9987/BEZ     9989/B      10016/B      10040/B
     10108/BNEZ   10110/B      10199/B      10244/BEZ    10272/B      10309/B      10340/B      10369/B
     10400/B      10409/B      10442/B      10469/B      10504/B      10597/B      10644/BEZ    10646/B
     10696/B      10722/B      10788/B      10857/BLZ    10971/B      11054/B      11097/B      11156/BE
     11159/B      11183/B      11204/B      11270/B      11273/B      11334/BEZ    11355/B      11426/B
     11480/B      11510/B      11605/B      11690/B      11739/B      11826/B      11906/BEZ    11919/B
     11957/BEZ    11977/B      12024/B      12047/B      12115/BNEZ   12200/BEZ    12202/B      12229/B
     12267/B      12384/B      12507/B      12827/B
   TST1R0          8283/BNEZ    8288-LW
   TST1R1          8286/BL      8290/BL      8292-MTW     8423/B
   TST1T           7935/STW     7936/STW     7937/STW     7938/STW     7939/STW     7940/STW     7941/STW
      7942/STW     7943/STW     7944/STW     8251/LW   8259.11/LW      8314-GEN
   TST1TAB         8061/LW      8074-EQU
   TST1X           8303-MTW
   TST2             507/GEN     4452-EQU
   TST2A           1099/B       4458-STW     4461/LI
   TST2B           4465-STW     4626/B
   TST2SEEK        4525/BAL     4543/BAL     4558/BAL     4629-STW
   TST2SEQ1        4524-EQU
   TST2SEQ2        4557-EQU
   TST2SEQ3        4523/BCS     4542-EQU     4556/BCS
   TST2SNS         4533/BAL     4548/BAL     4571/BAL     4644-STW
   TST2SURF        4563/BAL     4653-STW
   TST2SUR1        4529/BAL     4657-STW
   TST20           4476-BAL     4619/B
   TST21           4488-BAL     4493/BLE
   TST210          4541/B       4554/B       4578-LI
   TST211          4589-LW
   TST212          4590/BLZ     4592/BGEZ    4596-LI
   TST213          4588/BLZ     4603-LI
   TST214          4609-EQU     4617/BLE
   TST215          4473/B       4622-MTW
   TST22           4498-STW     4602/B
   TST23           4502-LW      4595/B       4601/BLE
   TST24           4503-LW
   TST28           4521/BG      4555-CLM
   TST3             508/GEN     4782-EQU     4784/LI
   TST3B           4791-STW     4918/B
   TST31           4805-LI      4811/B       4813/B
   TST310          4802/BNE     4814-CW
   TST311          4815/BNE     4823-LI
   TST312          4807/B       4820/B       4825-STW
   TST3121         4829-STW
   TST313          4838-BAL     4921/BCS
   TST3130         4849-CW      4857/B
   TST3131         4841/BNE     4843/BNE     4853/B       4858-LI      4922/B
   TST314          4859-CW      4911/BLE
   TST3141         4861-LI      4936/B
   TST315          4863-LW
   TST316          4869-LW      4908/B
   TST317          4883-LW      4897/B
   TST318          4891-BAL     4901/BGEZ
   TST319          4885/BCR     4892-MTW
   TST320          4893/BLEZ    4898-CW
   TST321          4902-LW
   TST322          4903/BLZ     4905/BGEZ    4909-AI      4971/BEZ     5006/B
   TST323          4914-LI      4969/B
   TST324          4799/B       4916-BAL
   TST325          4913/B       4920-CW
   TST330          4860/BE      4924-EQU
   TST331          4899/BE      4970-LW
   TST333          4972-STW
   TST334          4980-LW      4994/BLE
   TST335          4998-LW      5005/BDR
   TX01            4008-DATA    4361/MSGX
   TX02            4009-DATA    4206/MSGX
   TX03            4010-DATA    4362/MSGX
   TX04            4011-DATA    4229/MSGX
   TYPE            4007-DATA    4218/MSGX
   T0FLG           1079-RES     1081/STW     4457/STW     4622/MTW     7928/STW     8255/MTW     8303/MTW
   T00             7934/LI      8324/DATA    8325/DATA    8326/DATA    8327/DATA    8336/DATA    8337/DATA
      8344/DATA    8345/DATA    8358/DATA    8369/DATA    8372/DATA    8373/DATA    8374/DATA    8375/DATA
      8376/DATA    8377/DATA    8378/DATA    8394/DATA    8395/DATA    8405/DATA    8406/DATA    8421/DATA
      8423-B
   T01             8315/GEN     8649-TEST
   T02             8316/GEN     8678-LB      8682/LOOP
   T02O            8676-DATA    8678/LB
   T03             8317/GEN     8701-LB      8705/LOOP
   T03X            8699-DATA    8701/LB
   T04             8318/GEN     8733-LB      8754/LOOP
   T04A            8747-LB      8753/LOOP
   T04AI           8725-DATA    8749/LB
   T04FL           8724-DATA    8747/LB
   T04HA           8717/IO2*    8723-DATA    8736/STW     8738/STW     8740/STB     8750/STB
   T04HC           8728-DATA    8739/LB
   T04T            8716/IO1*    8722-DATA    8742/STB     8744/STB
   T04TC           8726-DATA    8741/LB
   T04TO           8727-DATA    8743/LB
   T04W            8715/WT*     8720-DATA    8734/STW     8751/STB
   T04X            8729-DATA    8733/LB
   T04Y            8730-DATA    8735/LB
   T04Z            8731-DATA    8737/LW
   T05           8318.1/GEN     8774-LB      8783/LOOP
   T05T            8766/IO1*    8771-DATA    8777/STB
   T05TX           8772-DATA    8776/LB
   T05WT           8765/WT*     8769-DATA    8780/STW
   T05X            8770-DATA    8774/LB
   T06             8320/GEN     8801-STW
   T06A            8802-STB     8808/LOOP
   T06B            8804-LB      8807/LOOP
   T06O            8799-DATA    8804/LB
   T07             8321/GEN     8834-LI
   T07A            8836-LW      8845/LOOP
   T07B            8839-LW      8844/LOOP
   T07I            8829-DATA    8839/LW
   T07P            8830-DATA    8841/AH
   T07S            8820/IO*     8826-DATA    8840/STW
   T07W            8821/WT*     8827-DATA    8842/STW
   T07X            8832-DATA    8836/LW
   T08             8322/GEN     8867-LI
   T08A            8873-LW      8886/LOOP
   T08P            8862-DATA    8871/LI
   T09             8323/GEN     8904-STW
   T09A            8907-BAL     8910/LOOP
   T1ACP           1350/DATA    2509-DATA
   T1AES1          1341/DATA    1395-DATA
   T1AES2          1344/DATA    1405-DATA
   T1AES3          1351/DATA    1415-DATA
   T1AEX           1340/DATA    1725-DATA
   T1AIO1          1346/DATA    2127-DATA
   T1AIO2          1347/DATA    2144-DATA
   T1AIO3          1348/DATA    2161-DATA
   T1AIS           1339/DATA    1647-DATA
   T1APT           1336/DATA    1433-DATA
   T1ASIO          1342/DATA    1778-DATA
   T1ASK           1338/DATA    1553-DATA
   T1ASN           1349/DATA    2356-DATA
   T1AST           1345/DATA    2213-DATA
   T1ATM           1337/DATA    1471-DATA
   T1AWT           1343/DATA    1822-DATA
   T1BEX           1729-LW
   T1BIOC          2131/B       2148/B       2165/B       2188-LCI
   T1BIOC1         2193/BE      2197-AI
   T1BIO1          1668/BAL     2130-LI
   T1BIO2          1671/BAL     2147-LI
   T1BIO3          2164-LI
   T1BIS           1651-LW
   T1BSIO          1659/BAL     1737/BAL     1781-LW
   T1BST           2217-LCI
   T1BWT           1664/BAL     1742/BAL     1826-LW
   T1BWTD          1828/LW      1831-DATA
   T1BWTS          1830/B       1835-LCI
   T1D              270/BAL     1161-LCI
   T1DB0           1166-LW
   T1DCE            804/MTW     1149-DATA    1196/STW     1217/AWM     1234/MTW     1250/MTW     1284/LW
      1302/MTW     1310/MTW     1503/LH      1589/LH      1679/LH     12355/MTW    12477/MTW
   T1DCI           1147-DATA    1204/STW     1209/STW     1224/MTW     1226/LW
   T1DCM           1150-DATA
   T1DCP           1148-DATA    1195/STW     1219/AWM     1276/LW
   T1DE            1278/BEZ     1282/BNEZ    1291-BIR     1687/B       1691/BEZ     1695/B       1752/BEZ
      1754/B
   T1DEAB          1143-DATA    1194/STW     1220/MTW     1294/MTW     1498/MTW     1580/MTW     1787/MTW
      1925/MTW     2279/MTW     2397/MTW    10116/MTW    10136/MTW    11697/MTW    11835/MTW    12136/MTW
   T1DES1          1396/B*      1399/STM     1401/B*      1403-DATA
   T1DES2          1406/B*      1409/STM     1411/B*      1413-DATA
   T1DES3          1416/B*      1419/STM     1421/B*      1423-DATA
   T1DEX           1730/STW     1731/STW     1736/LI      1760-DATA
   T1DEXF          1733/STW     1739/MTW     1744/MTW     1746/MTW     1757-RES
   T1DEXI          1732/STW     1741/MTW     1751/MTW     1758-RES
   T1DEXIT         1303/BEZ     1307/B       1309/BEZ     1314/BL      1317/BCS     1326-LCI
   T1DEXS          1735/STW     1745/LW      1756-RES
   T1DE0           1223/B       1232-MTW
   T1DE1           1236-LB
   T1DE2            809/B       1233/BNEZ    1239-BAL    12363/B      12485/B
   T1DE2A          1246/BNEZ    1270/BEZ     1273-LI
   T1DE20          1259-LW      1263/BIR
   T1DE3           1275-SCS     1291/BIR
   T1DE4           1286/BEZ     1288-LI
   T1DE4B          1295/BEZ     1298-BAL
   T1DE5           1235/BEZ     1238/BCS     1240/BCS     1293/BNEZ    1300-BAL
   T1DE6           1301/BCS     1308-MTW
   T1DE8           1306/B       1311/BNEZ    1315-LB
   T1DID           1153-DATA    1172/STD     1256/LD
   T1DINHP          803/STB     1144-DATA    1189/STW     1236/LB      1315/LB      1318/LW
   T1DIO1          2130/LI      2132/LI      2135-DATA   10566/LW     10606/LW
   T1DIO2          2147/LI      2149/LI      2152-DATA   10570/LW     10610/LW     12357/LW     12479/LW
   T1DIO3          2164/LI      2166/LI      2169-DATA
   T1DIS           1652/STW     1653/STW     1658/LI      1683/LW      1685/LW      1702-DATA
   T1DISF          1655/STW     1661/MTW     1666/MTW     1670/MTW     1673/MTW     1675/MTW     1699-RES
   T1DISI          1654/STW     1663/MTW     1667/MTW     1690/MTW     1700-RES
   T1DISS          1657/STW     1674/LW      1698-RES
   T1DL            1164-LW      1322/B
   T1DLCNT         1146-DATA    1163/MTW     8019/STW    10983/DW     10985/STW    12204/CW
   T1DMSEQ         1154-DATA    1214/CW      1216/STW     1313/CW      8016/STW
   T1DMSEQC        1155-DATA    1176/STW     1213/LW      1269/LW      1312/LW
   T1DPEF          1145-DATA    1218/AWM     1308/MTW     8015/STW
   T1DS             808/STW     1151-RES     1162/STM     1321/LW      1324/LM      1327/LM     12362/STW
     12484/STW
   T1DSEQA         1180/STW     1202/LW*     1289/LW*     1333-DATA
   T1DSEQT         1179/LW      1334-DATA
   T1DSEQ0         1334/DATA    1335-EQU
   T1DSEQ1         1352-DATA
   T1DSIO          1782/STW     1784/LI      1791/LI      1795-DATA
   T1DSK           1562/LI      1605-DATA    1621/DATA
   T1DSK1          1561/STW     1568/STW     1569/LI      1610-DATA    1621/DATA
   T1DSK2          1577/LI      1615-DATA    1621/DATA
   T1DSK5          1596/LW      1621-DATA
   T1DSK6          1560/STW     1566/MTW     1573/MTW     1594/LW      1622-DATA
   T1DSN           2368/LI      2474-DATA  2490.2/DATA
   T1DSNA          2450/LI      2457/STW     2464/STW     2471/STW     2497-DATA
   T1DSN1          2364/STW     2374/STW  2374.13/LI      2479-DATA  2490.2/DATA
   T1DSN2        2374.6/LI      2484-DATA  2490.2/DATA
   T1DSN3          2413/LI      2417/STW     2422/STW     2431/STW     2434/STW     2489-DATA
   T1DSN4          2414/LI      2418/STW     2420/STH     2426/STW     2428/STH     2432/STW     2435/STW
      2437/STH     2490-DATA
   T1DSN5          2403/LW    2490.2-DATA
   T1DSN6          2363/STW     2372/MTW  2374.11/MTW  2374.18/MTW     2399/LW      2493-DATA
   T1DSN7          2439/LI      2443/STW     2445/STW     2494-DATA
   T1DSN8          2440/LI      2447/STW     2495-DATA
   T1DSN9          2449/LI      2453/STW     2455/STW     2460/STW     2462/STW     2467/STW     2469/STW
      2496-DATA
   T1DST1          2220/STM     2240/LH*     2296/LH*     2334-RES
   T1DST1A         2243/STW     2255/CW      2299/STW     2304/CW      2337-RES
   T1DST2          2238/LH*     2294/LH*     2335-RES
   T1DST3          2232/CW      2291/CW      2336-RES
   T1DST3A         2225/STW     2231/LW      2257/MTW     2288/STW     2290/LW      2306/MTW     2338-RES
   T1DST4          2230/STW     2248/TDV*    2261/TDV*    2339-RES
   T1DST5          2224/STW     2234/MTW     2275/MTW     2340-RES
   T1DST6          2226/STW     2247/AWM     2259/MTW     2286/LW      2287/STW     2302/AWM     2309/LW
      2328/MTW     2329/CW      2341-RES
   T1DST7          2282/LI      2314/STW     2321/MVW     2342-DATA
   T1DST8          2283/LI      2317/STW     2343-DATA
   T1DTM           1480/LI      1519-DATA    1535/DATA
   T1DTM1          1479/STW     1486/STW     1487/LI      1524-DATA    1535/DATA
   T1DTM2          1492/LI      1529-DATA    1535/DATA
   T1DTM5          1510/LW      1535-DATA
   T1DTM6          1478/STW     1484/MTW     1491/MTW     1508/LW      1536-DATA
   T1DTM7          1537-RES
   T1DVCNT         1156-DATA    1265/LW      8017/STW     8280/STW     8703/MTW     8746/MTW     8781/MTW
      9610/MTW     9614/MTW     9623/MTW     9771/MTW     9775/MTW     9778/MTW    10327/MTW    10330/MTW
     10336/MTW    10365/MTW    10367/MTW    10371/LW     10390/MTW    10405/MTW    10424/MTW    10432/MTW
     10682/MTW    10684/MTW    10690/MTW    10694/MTW    10718/MTW    10720/MTW    10784/MTW    10786/MTW
     10905/MTW    10954/MTW    10967/MTW    10968/LW     11048/MTW    11050/MTW    11146/STW    11149/MTW
     11307/MTW    11330/MTW    11352/MTW    11409/MTW    11411/MTW    11413/MTW    11421/MTW    11455/MTW
     11650/MTW    11680/MTW    11682/MTW    12095/MTW    12116/MTW    12188/STW    12197/STW
   T1DWT           1837/STM     1860/MTW     1862/CW      1954/CW      1958/CW      1974/CW      2065-DATA
   T1DWTAA         1940/STW     1944/LH      1993/LW      2073-DATA
   T1DWTABT        1848/STW     1918/STW     1920/MTW     1965/STW     2059/MTW     2103-DATA
   T1DWTAO         1842/STW     1843/STW     1846/STW     1933/LI      1941/STW     1962/LW      1988/MTW
      1990/LW      1999/LI      2074-DATA
   T1DWTCA         1885/STD     1886/LW      1887/LH      2004/LW      2010/LW      2019/LD      2091-DATA
   T1DWTCCA        1916/CW      2003/LW      2069-DATA
   T1DWTCH         1954-CW      2100/DATA
   T1DWTCH1        1957/B       1967-STW
   T1DWTCIW        1967/STW     1971/LPSD    2096/XPSD    2099-DATA
   T1DWTCXP        1856/LW      2096-XPSD
   T1DWTDC         1853/STW     2094-DATA    2095/MTW    10975/SW
   T1DWTDI         1849/LW      1976/LW      1984/LW      2068-DATA
   T1DWTIH         1933-LI      2102/DATA
   T1DWTIOW      1933.7/LPSD    1949/STW     1950/LPSD    2097/XPSD    2101-DATA
   T1DWTIXP        1864/LW      2097-XPSD
   T1DWTMSG        1845/STW     1964/STW     1982/MTW     1987-DATA
   T1DWTMS0        1963/LW      2106-DATA
   T1DWTMS1        1960/LW      2107-DATA
   T1DWTMS2        2032/LW      2108-DATA
   T1DWTMS3        2055/LW      2110-DATA
   T1DWTMTW        1854/LW      2095-MTW
   T1DWTRBC        1888/CH      2009/LW      2036/CW      2070-DATA
   T1DWTTDV        1922/LI      2061/LI      2084-DATA
   T1DWTTIO        1847/STW     1881/LI      1884/STW     1910/STW     1927/MTW   1933.9/STW     1947/STW
      2001/LI      2015/LW      2079-DATA
   T1DX            1194-STW
   T1DXE           1213-LW      1677/B       1748/B
   T1DXN           1212-B       1676/BEZ     1747/BEZ
   T1DX1           1199-SCS     1228/BIR
   T1DX2           1206/BEZ     1208/BGEZ    1211-BAL
   T1DX3           1212/B       1219-AWM
   T1DX5           1221/BEZ     1224-MTW
   T1DX6           1201/BCR     1228-BIR
   T1ECP           2510/B       2523-SEND    5943/BAL
   T1ECP1          2526/BL      2532-LW      5909/BAL
   T1ECP1A         2531/B       2537-MTW
   T1ECP2          2538/BL      2542-LW
   T1ECP4          2539/BG      2550-BAL
   T1EEX           1726/B       1750-BAL
   T1EIOC          2133/B       2150/B       2167/B       2204-BAL
   T1EIO1          1693/BAL     2128/B       2132-LI
   T1EIO2          1694/BAL     2145/B       2149-LI
   T1EIO3          2162/B       2166-LI
   T1EIS           1648/B       1679-LH
   T1EIS1          1681/BCS     1689-BAL
   T1EPT           1434/B       1444-LW
   T1ESIO          1689/BAL     1750/BAL     1779/B       1789-BAL
   T1ESK           1554/B       1583-LW
   T1ESK1          1591/BCS     1594-LW
   T1ESK3          1598/BNE     1602-BAL
   T1ESN           2357/B       2399-LW     10839/ES3
   T1ESN3          2405/BNE     2409-BAL
   T1ESN4          2401/BE      2412-SEND    5990/BAL     6299/BAL
   T1EST           2214/B       2282-LI
   T1EST1          2290-LW      2307/B
   T1EST1A         2294-LH
   T1EST1B         2303-LI      2331/B
   T1EST2          2320/BE      2325-SEND
   T1EST3          2323/B       2326-AI
   T1ETM           1472/B       1501-LH
   T1ETM1          1505/BCS     1508-LW
   T1ETM3          1512/BNE     1516-BAL
   T1EWT           1692/BAL     1753/BAL     1823/B       1974-CW
   T1EWT0          1975/BNE     1980-BAL
   T1EWT1          1992/BCS     1999-LI
   T1EWT2          1989/BEZ     2001-LI
   T1EWT4          2026/B       2032-LW
   T1EWT5          2028/BCR     2039/B       2043/B       2047/B       2051/B       2053/B       2055-LW
   T1HIO1          8237/IO1*    8243/IO1*    8248/IO1*    8611-DATA    8637/IO1*    9979/IO3*   10070/IO1*
     12432/IO2*
   T1HIO2          8612-DATA    8664/IO2*    8672/IO2*   10221/IO3*
   T1HIO3          8613-DATA    8695/IO2*   10236/IO1*
   T1HIO4          8614-DATA
   T1IO            8617-DATA
   T1TDV1          8599-DATA    8694/IO1*    9319/IO2*    9339/IO2*    9359/IO2*    9380/IO2*    9430/IO2*
      9648/IO2*   10059/IO2*   10321/IO2*
   T1TDV10         8608-DATA
   T1TDV2          8600-DATA    8673/IO3*    8696/IO3*   10676/IO2*   10708/IO2*   10774/IO2*   10838/IO2*
     10874/IO2*   11236/IO2*   11885/IO2*   11897/IO2*   11932/IO2*   11940/IO2*   12034/IO2*   12040/IO2*
     12061/IO2*   12071/IO2*   12223/IO2*
   T1TDV3          8043/STB     8601-DATA    9405/IO2*    9454/IO2*    9511/IO2*    9545/IO2*    9968/IO2*
     10356/IO2*
   T1TDV4          8602-DATA
   T1TDV5          8603-DATA   11217/IO2*   11226/IO2*
   T1TDV6          8604-DATA    9535/IO2*    9712/IO2*    9848/IO2*    9978/IO2*   10004/IO2*   11068/IO2*
     11112/IO2*
   T1TDV7          8605-DATA    9603/IO2*   10031/IO2*   11121/IO2*
   T1TDV8          8606-DATA    8671/IO1*   11172/IO2*   11197/IO2*   11590/IO2*   12288/IO2*   12298/IO2*
     12308/IO2*   12398/IO2*   12408/IO2*   12418/IO2*
   T1TDV9          8607-DATA
   T1TIO1          8591-DATA    8665/IO3*    8900/IO1*    9318/IO1*    9338/IO1*    9358/IO1*    9379/IO1*
      9404/IO1*    9429/IO1*    9453/IO1*    9478/IO1*    9510/IO1*    9647/IO1*   10320/IO1*   10675/IO1*
     10707/IO1*   10773/IO1*   10837/IO1*   10873/IO1*   11067/IO1*   11111/IO1*   11235/IO1*   11386/IO1*
     11884/IO1*   11896/IO1*   11901/IO1*   11931/IO1*   11950/IO1*   12033/IO1*   12039/IO1*   12060/IO1*
     12070/IO1*   12222/IO1*
   T1TIO2          8592-DATA    8663/IO1*    9602/IO1*    9747/IO1*   10030/IO1*   10219/IO1*   11120/IO1*
     11196/IO1*   11395/IO1*   11446/IO1*   11589/IO1*   12171/IO1*   12181/IO1*   12287/IO1*   12297/IO1*
     12307/IO1*   12397/IO1*   12407/IO1*   12417/IO1*
   T1TIO3          8593-DATA    9534/IO1*    9544/IO1*    9711/IO1*   11216/IO1*   11225/IO1*
   T1TIO4          8594-DATA    8795/IO1*    8822/IO1*    8858/IO1*
   T1TIO5          8595-DATA
   T1TIO6          8596-DATA   11171/IO1*
   T1V01           8077/GEN     8130-LI
   T1V011          8131-STB     8135/B       8139/B       8141/B
   T1V02           8078/GEN     8133-LI
   T1V021          8134-STB     8137/B       8143/B       8145/B
   T1V03           8079/GEN     8080/GEN     8081/GEN     8136-LI
   T1V04           8082/GEN     8083/GEN     8138-LI
   T1V05           8084/GEN     8085/GEN     8086/GEN     8087/GEN     8140-LI
   T1V06           8088/GEN     8142-LI
   T1V07           8089/GEN     8144-LI
   T1V10           8091/GEN     8092/GEN     8093/GEN     8094/GEN     8095/GEN     8096/GEN     8097/GEN
      8098/GEN     8099/GEN     8100/GEN     8149-LW
   T1V11           8101/GEN   8152.1-LI
   T1V11X          8158/BE      8161/BGE     8166-LI
   T1V12           8102/GEN     8170-LI
   T1V13           8103/GEN     8174-LW
   T1V14           8104/GEN     8105/GEN     8178-LW
   T1V30           8107/GEN     8184-LI
   T1V301          8188-STH     8191/B       8193/B       8196/B
   T1V31           8108/GEN     8190-LI
   T1V32           8109/GEN     8192-LI
   T1V33           8110/GEN     8111/GEN     8194-LH
   T1V35           8112/GEN     8197-LI
   T1V351          8198-STH     8201/B       8203/B
   T1V36           8113/GEN     8200-LI
   T1V37           8114/GEN     8202-LI
   T1V40           8118/GEN     8119/GEN     8120/GEN     8207-STW
   T1V41           8121/GEN     8122/GEN     8209-MVW
   T1V42           8123/GEN     8212-MVW
   T1V99           8115/GEN     8116/GEN     8214-B
   T1WT            8616-DATA
   T1XCP           2515-MTW
   T1XEX2          1740/B       1745-LW
   T1XIOC          2200-BAL
   T1XIS2          1662/B       1672/B       1674-LW
   T1XPT           1438-BAL
   T1XSIO          1784-LI
   T1XSK           1559-LI
   T1XSK9          1565/B       1572/B       1580-MTW
   T1XSN           2362-LI
   T1XSN1          2388-LI      5982/BAL
   T1XSN9          2371/B     2374.9/B    2374.16/B       2397-MTW
   T1XST           2224-STW
   T1XST1          2231-LW      2258/B
   T1XST1A         2233/BL      2238-LH
   T1XST1AA        2248-TDV     2251/BCS     2253/BDR
   T1XST1B         2246/BEZ     2254-LI      2278/B
   T1XST1BB        2261-TDV     2264/BCS     2268/BLE
   T1XST9          2252/B       2265/B       2279-MTW
   T1XTM           1477-LI
   T1XTM9          1483/B       1490/B       1495/B       1498-MTW
   T1XWT           1839/BNE     1844-LI
   T1XWT0          1863/BE      1869-B       1956/LI
   T1XWT1          1861/BEZ     1872-LI      1875/BCS     1877/BCS
   T1XWT2          1881-LI      1948/LI      1966/LI
   T1XWT2A         1915/BE      1920-MTW
   T1XWT2AA        1889/BE      1896/BE      1898/BE      1900/BE      1902/BE      1909/BE      1912-AND
   T1XWT3          1921/BEZ     1927-MTW
   T100            8415/GEN    12188-STW    12201/LOOP
   T100M          12207/DATA   12212-TEXTCS
   T100X1         12168/ES1    12204-CW
   T100X2         12168/ES1    12210-B
   T101            8416/GEN    12228-TEST
   T101M          12233/DATA   12243-TEXTCS
   T101N          12238/DATA   12244-TEXTCS
   T101X1         12220/ES1    12231-EQU
   T101X2         12220/ES1    12241-B
   T102            8417/GEN    12262-STW
   T102M          12271/DATA   12276-TEXTCS
   T102X1         12253/ES1    12269-EQU
   T102X2         12253/ES1    12274-B
   T104            8418/GEN    12336-EQU
   T104A          12345/B      12347-EQU    12382/LOOP
   T104A2         12351-EQU    12381/LOOP
   T104B          12349/STW    12354-TEST   12377/BL
   T104B1         12360/BE     12369-LW
   T104B2         12367/B      12373/B      12375-LB
   T104C          12356/BEZ    12378/B      12380-EQU
   T104E          12316/ES3    12322-MVW
   T104EF         12319/MTW    12322/MVW    12326-DATA   12337/STW    12364/MTW
   T104L          12333-DATA   12382/LOOP
   T104ORG        12331-EQU    12334/ORG
   T104SEQ        12327-DATA   12348/LW
   T104X          12316/ES3    12319-MTW
   T105            8419/GEN    12453-EQU
   T105A          12467-EQU    12504/LOOP
   T105A1         12463-EQU    12506/LOOP
   T105A2         12471-EQU    12503/LOOP
   T105A3         12474-EQU    12499/BL
   T105B          12469/STW    12476-TEST
   T105B1         12482/BE     12491-LW
   T105B2         12489/B      12495/B      12497-LB
   T105C          12478/BEZ    12500/B      12502-EQU
   T105E          12426/ES3    12438-MVW
   T105EF         12435/MTW    12438/MVW    12442-DATA   12454/STW    12486/MTW
   T105L          12450-DATA   12504/LOOP
   T105ORG        12448-EQU    12451/ORG
   T105SEQ        12443-DATA   12468/LW
   T105TM         12446-DATA   12464/LH
   T105X          12426/ES3    12435-MTW
   T106            8420/GEN    12714-EQU
   T106A          12719-LW     12725/LOOP
   T106B          12731-STW    12752/LOOP
   T106BUF1       12570-DATA   12660/STW*   12661/MTW    12729/STW    12757/STW    12760/LM*    12761/MTW
   T106J          12756-LI
   T106K          12759-LCI    12822/LOOP
   T106L          12765/BNE    12770-AND
   T106M          12780/BNE    12785-AND
   T106MSGL       12806/LW     12835-DATA
   T106M1         12716/DATA   12829-TEXTCS
   T106M2         12824/DATA   12830-TEXTCS
   T106N          12769/BE     12784/BE     12803-LI
   T106OFF        12638/BAL    12645/BAL    12686/BAL    12692-STW
   T106OFFS       12571-DATA   12589/STW    12639/LW     12646/LW     12671/LW
   T106OFFX       12692/STW    12706/B*     12711-DATA
   T106P          12807/STW    12809/BNEZ   12821-DATA
   T106SADP       12565-DATA   12697/OR     12731/STW    12740/STW    12743/STW    12746/STW
   T106SAH        12562-DATA   12693/LW     12727/STW    12735/LW     12748/MTW
   T106SAI        12559-GEN    12722/LW
   T106SAJ        12560-GEN    12719/LW
   T106SAO        12561-DATA   12636/STW    12643/STW    12651/AWM    12664/LW     12670/LW     12685/STW
     12695/LW
   T106SAOI       12566-DATA   12672/CW     12682/STW
   T106SIN1       12567-DATA   12640/STW    12648/CW     12658/LW
   T106SIN2       12568-DATA   12647/STW    12656/LW
   T106SIN3       12569-DATA   12637/STW    12674/CW     12677/CW     12683/STW
   T106TABN       12681/LW     12709-DATA
   T106TABP       12679/LW     12708-DATA
   T106TDVB       12576/BAL    12583/BAL    12592/BAL    12620-LW
   T106TDVF       12573/BAL    12580/BAL    12626-LW
   T106TDV6       12584/BAL    12593/BAL    12597-LW     12600/STW    12610/B*
   T106TDV8       12577/BAL    12587/BAL    12612-LW
   T106TEMP       12563-DATA   12578/STB    12588/STB
   T106T1         12817/DATA   12832-TEXTCS
   T106T2         12819/DATA   12833-TEXTCS
   T106X1         12522/ES2    12572-LI
   T106X2         12522/ES2    12574-B
   T106X3         12531/ES2    12576-BAL
   T106X4         12531/ES2    12581-B
   T106X5         12542/ES2    12583-BAL
   T106X6         12542/ES2    12590-B
   T106X7         12553/ES2    12592-BAL
   T106X8         12553/ES2    12594-B
   T106Z          12635-STW    12738/BAL    12744/BAL
   T106ZA         12645-BAL    12652/LOOP
   T106ZB         12653-LW     12666/BEZ    12688/B
   T106ZD         12649/BNE    12664-LW
   T106ZF         12670-LW     12687/LOOP
   T106ZG         12673/BG     12677-CW
   T106ZH         12676/B      12679-LW
   T106ZI         12669/B      12675/BE     12678/BNE    12681-LW
   T106ZX         12633/STW    12635/STW    12662/B*     12710-DATA
   T106Z0         12634/B      12642-LI
   T106Z2         12633-STW    12741/BAL    12747/BAL
   T17             8332/GEN     8930-TEST
   T18             8328/GEN     8950-EQU    11988/B
   T19             8334/GEN     8973-LW
   T19STD          8969-DATA    8990/LH
   T2:3            4465/STW     4742-DATA    4791/STW     5470/LW      5561/CW      6040/CW      6091/CW
      6098/CW      6172/LW      6226/CW      6663/CW
   T2:3IOCD         703/STW     4715/AW      4750-DATA    6434/AW
   T2BUILD         4527/BAL     4545/BAL     4550/BAL     4560/BAL     4573/BAL     4584/BAL     4654/BAL
      4710-STW
   T2BUILD1        4535/BAL     4672/BAL     4704/BAL     4718-STW
   T2CURS          4743-DATA    5034/EQU
   T2DAF           4484/STW     4501/STW     4579/OR      4589/LW      4594/STW     4597/STW     4636/OR
      4646/OR      4663/OR      4745-DATA    5033/EQU
   T2DCT           4498/STW     4502/LW      4598/MTW     4599/LW      4739-DATA
   T2FC            4489/STW     4612/STW     4746-DATA    5032/EQU
   T2IOCD          4528/AWM     4531/STS*    4532/AWM     4565/STS*    4693/STS*    4696/AWM     4716/STW
      4722/STW*    4725/STW*    4740-DATA
   T2IOCDB         4496/STW     4751-DATA    5110/STW     6452/CW      6496/CW
   T2OPER          4479/STW     4520/CW      4587/MTW     4642/MTW     4650/MTW     4658/MTW     4705/MTW
      4738-DATA
   T2ORD           4662/LB      4688/LB      4741-DATA
   T2PHASE         4485/STW     4499/STW     4613/STW     4747-DATA    5035/EQU
   T2RT            4481/STB     4513/LW      4744-DATA    6466/LW
   T2SAVP          4536/LD      4537/LD      4566/LD      4567/LD      4574/LW      4640/STD     4641/STD
      4673/STD     4674/STD     4676/STW     4695/STS     4707/STW     4735-RES
   T2SAVX1         4710/STW     4718/STW     4726/B*      4736-DATA
   T2SAVX2         4629/STW     4643/B*      4644/STW     4651/B*      4653/STW     4657/STW     4679/BG*
      4682/B*      4708/B*      4737-DATA
   T2TBL           4454/DATA    4730-DATA
   T20             8348/GEN     9020-TEST
   T21             8346/GEN     9059-TEST
   T22             8350/GEN     9102-TEST
   T22D            9112-TEST
   T23             8352/GEN     9147-TEST
   T23D            9157-TEST
   T24             8354/GEN     9189-TEST
   T24D            9199-TEST
   T29             8371/GEN     9224-EQU
   T29A            9228-TEST    9232/BL
   T29ADR          9217-RES     9238/STW     9244/MVW
   T29D1           9219-DATA    9239/LI      9246/LI
   T29D2           9220-DATA    9254/LI      9270/LI
   T29D3           9221-DATA    9258/LI      9272/LI
   T29F            9222-DATA    9253/STW     9257/MTW     9261/MTW     9264/MTW
   T29I            9218-RES     9225/STW     9229/MTW     9230/LW      9236/AW
   T29X1           9210/ES2     9235-LW
   T29X2           9210/ES2     9244-MVW
   T29X3           9214/ES3     9250-MVW
   T29X4           9214/ES3     9268-MVW
   T3ALT           4954/STW     5029-DATA    5071/STW     5571/MTW
   T3CHK           5152/BAL     5164/BAL     5203/BAL     5207/BAL     5209/BAL     5242/BAL     5278-EQU
   T3CHKCIT        5117/STW     5282/LW      5298/LW      5313-DATA
   T3CHKS          5281/STM     5296/LM      5312-RES
   T3CHKX          5279/STW     5294/MTW     5297/B*      5311-DATA
   T3CHK0          5282-LW      5289/B
   T3CHK1          5285-LW      5291/BGZ
   T3CHK2          5290-LW      5309/B
   T3CHK3          5284/BEZ     5286/BLZ     5292-CW
   T3CHK4          5294-MTW     5300/BNEZ
   T3CHK41         5295-LCI     5301/B
   T3CHK5          5293/BE      5298-LW
   T3CHK6          5288/BCS     5302-CW
   T3CHK8          5303/BCR     5305/B       5308-BAL
   T3CURS          5034-EQU     5112/STW     5141/LW      5191/AWM     5192/LW
   T3DAF           4862/STW     4902/LW      4907/STW     5033-EQU     5114/MTW     5147/LW      5158/LW
      5198/LW
   T3ERTBL         4980/LW      4998/LW      5040-RES     6677/CW      6684/STW
   T3EXU           4490/BAL     4614/BAL     4891/BAL     4968/BAL     4990/BAL     5105-EQU
   T3EXUFI         5118/STW     5140/STW     5172/CW      5176/STW     5216-DATA
   T3EXURB         5122/STW     5139/STW     5200/LW      5215-DATA
   T3EXUSB         5120/STW     5133/STW     5149/LW      5213-DATA
   T3EXUWB         5121/STW     5136/STW     5161/LW      5214-DATA
   T3EXUX          5106/STW     5210/B*      5212-DATA
   T3EXU0          5124/BE      5126/BE      5128/BLE     5130/BNE     5141-LW
   T3EXU1          5145-BAL     5194/BLE
   T3EXU2          5144/B       5147-LW
   T3EXU3          5146/B       5158-LW
   T3EXU3A         5183/B       5185/BL      5188-LW
   T3FC            4888/STW     4920/CW      4956/STW     4976/STW     5032-EQU     5129/CW      5159/OR
      5170/CW
   T3FINI          5037-DATA    5109/STW     5208/STW     5292/CW
   T3FLAW          4953/STW     4972/STW     5028-DATA    5072/STW     5576/MTW
   T3FRSTS         4960/STW     4983/STW     5026-DATA    5075/STW     5111/LW
   T3LASTS         4965/STW     4987/STW     5027-DATA    5076/STW     5193/CW      5195/LW      6506/CW
   T3MAP           4486/STW     4497/STW     4878/STW     4884/CW      5023-DATA    5302/CW      5869/CW
   T3MAPB          4880/STW     4883/LW      4894/LW      4896/STW     5024-DATA
   T3MAPC          4882/STW     4886/LW      4892/MTW     5025-DATA
   T3MAPI          4877/LB      5016-DATA
   T3MAPO          4887/LB      5020-EQU
   T3PHASE         4890/STW     4967/STW     4989/STW     5035-EQU     6224/LW
   T3PREP          4488/BAL     4867/BAL     4952/BAL     5062-EQU
   T3PREP1         4611/BAL     4868/BAL     5070-LI
   T3QTEST         5157/BAL     5190/BAL     5237-EQU
   T3QTESTX        5239/STW     5244/BE*     5246/BEZ*    5249/B*      5251-DATA
   T3RAW           4870/STW     4900/MTW     5030-DATA
   T3RT            4482/STB     4864/STB     4958/STB     4974/STB     5031-DATA    5155/LW      5188/LW
      5205/LW      5478/LB      6192/LH      6517/LB
   T3TBL           4825/STW     4826/STW     4828/DATA    5009-DATA
   T3TMP           4978/STW     4979/LW      4991/MTW     4992/LW      5038-DATA
   T3WAITM         4951/DATA    5039-TEXTCS  6882/DATA
   T30             8329/GEN     9297-EQU     9302/BL
   T31             8330/GEN     9325-TEST
   T32             8331/GEN     9345-TEST
   T33             8333/GEN     9365-TEST
   T34             8335/GEN     9386-EQU
   T35             8349/GEN     9412-EQU
   T36             8347/GEN     9436-EQU
   T37             8351/GEN     9461-EQU
   T38             8353/GEN     9488-EQU
   T38S            9486-DATA    9492/LH
   T38T            9485-DATA    9490/LH
   T38TDV          9479-IO2     9491/STH
   T39             8355/GEN     9517-EQU
   T40             8356/GEN     9553-EQU
   T40A            9554-LW      9564/LOOP
   T40CH           9551-DATA    9556/LW
   T40SEQ          9550-DATA    9561/LW
   T41             8338/GEN     9585-LB      9588/LOOP
   T41B            9583-DATA    9585/LB
   T42             8339/GEN     9609-LW
   T42A            9611-STB     9613/LOOP
   T42B            9618/BEZ     9620-STB     9622/LOOP
   T42BA           9623-MTW
   T42C            9629-STH     9632/LOOP
   T43             8340/GEN     9655-EQU
   T43A            9658-STH     9662/LOOP
   T43ADR          8500/IOCD    9653-DATA    9660/STH
   T44             8359/GEN     9683-EQU
   T44A            9689-LB      9692/LOOP
   T44B            9682-DATA    9689/LB
   T44C            9685-EQU     9695/LOOP
   T45             8360/GEN     9718-MTW
   T45A            9719-LW      9727/LOOP
   T45B            9722-LW      9726/LOOP
   T45X            9716-DATA    9722/LW
   T46             8401/GEN     9765-EQU
   T46D            9755/LI      9759/LI      9763-DATA
   T46X1           9750/ES3     9755-LI
   T46X2           9750/ES3     9759-LI
   T47             8402/GEN     9812-EQU
   T47A            9822-LW      9831/LOOP
   T47B            9825-LB      9830/LOOP
   T47BR           9808-DATA    9827/LW
   T47BU           9809-DATA    9822/LW
   T47C            9815-TEST    9818/BNE
   T47O            9807-DATA    9825/LB
   T47W            9801/WT*     9810-DATA    9828/STW
   T48             8361/GEN     9854-EQU     9862/LOOP
   T48A            9858-LH      9861/LOOP
   T48B            9852-DATA    9858/LH
   T48WT           9846-WT
   T49             8362/GEN     9883-LW      9886/LOOP
   T50             8363/GEN     9916-EQU
   T50A            9933/BEZ     9938-LW      9946/LOOP
   T50AA           9921-LI      9952/LOOP
   T50B            9936/B       9949-LW
   T50IO           9899/IO*     9907-DATA    9923/STW     9925/STW
   T50IOCD         9909-DATA    9922/LW
   T50M            9940/BCS     9946-LOOP
   T50MA           9914-DATA    9932/LB
   T50N            9935/BNE     9947/B       9952-LOOP
   T50RBC          9910-DATA    9917/STB     9920/STB     9924/LB
   T50SN           9913-DATA    9930/LB
   T50TDV          9902-IO2     9929/STB
   T50TIO          9901-IO1     9927/STH
   T50T1           9911-DATA    9926/LH
   T50T2           9912-DATA    9928/LB
   T50WT           9900/WT*     9906-DATA
   T51             8364/GEN     9984-EQU
   T52             8365/GEN    10009-LI
   T52A           10012-LW     10015/LOOP
   T53             8366/GEN    10036-LB     10039/LOOP
   T53O           10034-DATA   10036/LB
   T54             8367/GEN    10086-LW     10109/LOOP
   T54A           10093-EQU    10101/LOOP
   T54B           10103-TEST   10104/LOOP
   T54ED          10144/LI     10170/LI     10182-DATA
   T54EE          10075/ES1    10166-MTW
   T54EE1         10167/BEZ    10170-LI
   T54EX          10075/ES1    10129-LW
   T54EXF         10131/STW    10139/STW    10163-RES    10166/MTW
   T54EXL         10143/STW    10147/MTW    10164-RES
   T54EX1         10142-LI     10178/LI
   T54EX2         10144-LI     10150/BCS
   T54EX3         10146/B      10152-STW
   T54I           10177/DATA   10178-LI
   T54IO          10056/IO*    10082-DATA   10087/STW
   T54O           10084-DATA   10086/LW
   T54T           10079-RES    10090/STW    10094/MVW    10100/MTW
   T54WT          10057/WT*    10081-DATA
   T54XD          10113/LI     10122/LI     10126-DATA
   T54XE          10055/ES1    10122-LI
   T54XP          10129/LW     10175-XPSD
   T54XPN         10175/XPSD   10177-DATA   10179/STW    10180/LPSD
   T54XX          10055/ES1    10113-LI
   T55             8379/GEN    10187-LI     10198/LOOP
   T55B           10189/BE     10194/BE     10198-LOOP
   T56             8343/GEN    10243-MTW
   T56A           10255-LI
   T56ADR         10241-RES    10246/STW    10260/MVW
   T56ADRE        10239-RES    10252/STW    10268/MVW
   T56ADRO        10240-RES    10254/STW    10258/MVW    10266/MVW
   T57             8342/GEN    10293-EQU
   T57B           10296-LI     10307/LOOP
   T57C           10297-MTW    10305/LOOP
   T57D0          10290-DATA   10301/LW
   T57D1          10291-DATA   10299/LW
   T58             8341/GEN    10327-MTW
   T59             8357/GEN    10362-LI
   T59X1          10352/ES1    10371-LW
   T59X2          10352/ES1    10377-B
   T60             8381/GEN    10389-STH
   T60A           10392-TEST   10396/LOOP
   T60B           10395/BCR    10401-EQU
   T60C           10406-STB    10408/LOOP
   T61             8383/GEN    10423-EQU
   T61A           10425-STB    10428/LOOP
   T61B           10433-MTW    10441/LOOP
   T62             8384/GEN    10461-EQU
   T63             8385/GEN    10498-EQU
   T63A           10499-LW     10502/LOOP
   T65             8387/GEN    10553-STW
   T65DA          10555/BEZ    10599-STW
   T65DB          10602-STB    10642/LOOP
   T65DC          10604-TEST
   T65DD          10621/BE     10624/BE     10642-LOOP
   T65DE          10637/BNEZ   10640-SEND
   T65PF          10546-RES    10553/STW    10589/MTW    10595/MTW    10636/MTW    10641/MTW    10643/MTW
   T65RA          10557-STH    10560/LOOP
   T65RB          10562-STH    10596/LOOP
   T65RD          10578/BEZ    10596-LOOP
   T65RE          10590/BNEZ   10593-STW
   T65S           10549-DATA   10565/STW    10569/MTW    10573/MTW    10576/MTW    10577/MTW    10583/LI
     10605/STW    10609/MTW    10613/MTW    10616/MTW    10617/MTW    10630/LI
   T65T           10550-DATA   10580/STW    10582/STW    10585/LI     10628/STW    10629/STW    10632/LI
   T65X1          10533/ES1    10648-B
   T65X2          10533/ES1    10649-B
   T66             8388/GEN    10681-EQU
   T67             8389/GEN    10718-MTW
   T67A           10714/ES2    10728-STW
   T67AA          10733-EXU    10735/BCR
   T67AB          10739-EXU    10741/BCS
   T67AC          10745-EXU    10747/BCR
   T67AE          10730/DATA   10751-B
   T67B           10714/ES2    10753-EQU
   T67BD          10757/LW     10762-DATA
   T67D           10724-DATA   10728/STW    10736/MTW    10742/MTW    10748/MTW    10754/LW
   T67X           10725-DATA   10755/LW
   T68             8390/GEN    10784-MTW
   T68A           10780/ES2    10794-STW
   T68AA          10799-EXU    10801/BCR
   T68AB          10805-EXU    10807/BCS
   T68AC          10811-EXU    10813/BCR
   T68AE          10796/DATA   10817-B
   T68B           10780/ES2    10819-EQU
   T68BD          10823/LW     10828-DATA
   T68D           10790-DATA   10794/STW    10802/MTW    10808/MTW    10814/MTW    10820/LW
   T68X           10791-DATA   10821/LW
   T69             8391/GEN    10843-LI
   T69A           10848-STH    10853/LOOP   10858/B
   T69B           10852/BNE    10856-AI
   T69EX          10839/ES3    10861-LW
   T70             8392/GEN    10898-STW
   T70A           10941/B      10946/B      10966-TEST
   T70A1          10894-RES    10898/STW    10906/LW     10911/LW     10933/MTW    10934/LW     10938/STW
     10948/MTW    10959/STW
   T70A2          10895-RES    10899/STW    10918/LW     10923/LW     10939/STW    10942/MTW    10944/STW
     10947/MTW    10964/STW
   T70B           10906-LW     10936/BL     10943/BGE    10949/BGE    10965/BDR    10970/BL
   T70BR          10896-DATA   10930/LW
   T70C           10896/DATA   10933-MTW
   T70D           10896/DATA   10942-MTW
   T70E           10896/DATA   10947-MTW
   T70EE1         10987/STW    10998-RES    11000/LW
   T70EX          10875/ES3    10974-LI
   T70EX1         10900/STW    10977/AW     10978/STW    10981/LW     10984/STW    10997-RES
   T70EX2         10453/ES2    10875/ES3    10882/ES2    10979-B
   T70EX3         10890/ES2    10981-LW
   T70EX4         10890/ES2    11000-LW
   T70EX5         10453/ES2    10882/ES2    11005-LW
   T70F           10896/DATA   10955-BAL
   T71             8393/GEN    11043-BAL
   T71A           11044-LD     11052/LOOP
   T71D           11040-DATA   11044/LD
   T72             8368/GEN    11073-EQU
   T72A           11075-LW     11086/BL     11096/LOOP
   T74             8370/GEN    11126-EQU
   T74A           11140-LW     11158/BL
   T74WT          11119-WT     11145/STW
   T76             8396/GEN    11178-EQU
   T76T           11176-DATA   11180/LW
   T76WT           8048/STW    11170-WT     11181/STW
   T77             8397/GEN    11202-EQU
   T78             8398/GEN    11253-LW
   T78A           11255-LW     11258/LOOP
   T79             8399/GEN    11273-B
   T80             8400/GEN    11305-BAL
   T80A           11308-MTW    11323/LOOP   11325/LOOP   11329/LOOP   11332/LOOP
   T80B           11309/BNEZ   11315-STB
   T80C           11314/B      11317-LW
   T80D           11328/BNEZ   11330-MTW
   T80E           11337-LW
   T80F           11339-STB    11348/BL     11351/BL     11354/LOOP
   T80I           11298/ES3    11358-B
   T80K           11298/ES3    11359-LW
   T80S           11302-DATA   11320/LW     11344/LW
   T80X           11303-DATA   11312/LH
   T81             8403/GEN    11401-EQU
   T81A           11415-LW     11420/LOOP
   T81WT          11394-WT     11418/STW
   T82             8404/GEN    11454-BAL
   T82A           11455-MTW    11478/B
   T82B           11471-LW     11476/LOOP
   T82C           11470/BGE    11479-BAL
   T82EX          11467/EXU    11486-STB
   T82F           11464/LB     11482-DATA
   T82G           11466/LB     11483-DATA
   T82I           11471/LW     11490-DATA
   T82IO          11444/IO*    11472/STW    11485-DATA
   T82WT          11445/WT*    11474/STW    11484-DATA
   T85             8407/GEN    11505-LI     11509/LOOP
   T85B           11501/ES2    11513-LW
   T85C           11501/ES2    11554-SEND
   T85C1          11558/BEZ    11562-LW
   T85C2          11567/BEZ    11570-MTW
   T85D           11563/LW     11564/AW     11575-DATA
   T85EX1         11521/DATA   11547-MTW
   T85EX2         11526/BCS    11530/BCS    11550-MTW
   T85FI          11519/STW    11541/MTW    11557/MTW    11580-RES
   T85FL          11517/STW    11550/MTW    11566/MTW    11578-RES
   T85FT          11518/STW    11547/MTW    11570/MTW    11579-RES
   T85I           11538/DATA   11540-AIO
   T85XP          11513/LW     11535-XPSD
   T85XPN         11535/XPSD   11537-DATA   11542/MTW    11545/LPSD
   T86             8408/GEN    11596-LI
   T86A           11601-LW
   T86O           11594-DATA   11601/LW
   T87             8409/GEN    11648-BAL    11689/LOOP
   T87A           11654-EQU    11668/LOOP   11670/LOOP   11672/LOOP   11687/B
   T87C           11659-LW
   T87C1          11664/BE     11668-LOOP
   T87D           11674-MTW
   T87E           11675/BNEZ   11689-LOOP
   T87HT          11639-IO1    11653/STW
   T87S           11644-DATA   11665/LW
   T87W           11646-DATA   11652/LW
   T87X           11645-DATA   11657/LH
   T87X1          11638/ES2    11695-LI     11702/BNE
   T87X2          11638/ES2    11703-B
   T88             8410/GEN    11732-EQU
   T88E1          11721/ES1    11751-LI
   T88E2          11722/ES2    11764-LI
   T88XD1         11741-DATA   11746/LI     11753/LI
   T88XD2         11742-DATA   11759/LI     11766/LI
   T88X1          11721/ES1    11744-LI
   T88X2          11722/ES2    11757-LI
   T89             8411/GEN    11803-LI     11825/LOOP
   T89A           11813-LW
   T89CYL         11798-DATA   11809/STW    11810/LW
   T89ED          11843/LI     11861/LI     11873-DATA
   T89EE          11788/ES2    11857-MTW
   T89EE1         11858/BEZ    11861-LI
   T89EX          11788/ES2    11828-LW
   T89EXF         11830/STW    11838/STW    11854-RES    11857/MTW
   T89EXL         11842/STW    11846/MTW    11855-RES
   T89EX1         11841-LI     11869/LI
   T89EX2         11843-LI     11849/BCS
   T89EX3         11845/B      11851-STW
   T89I           11868/DATA   11869-LI
   T89W           11797-DATA   11807/STW    11813/LW     11820/LW
   T89XP          11828/LW     11866-XPSD
   T89XPN         11866/XPSD   11868-DATA   11870/STW    11871/LPSD
   T90             8412/GEN    11905-LW
   T91             8413/GEN    11956-LW
   T91A           11961-TEST   11976/LOOP
   T91I           11972/LW     11983-DATA
   T91IO          11937/IO*    11954-DATA   11963/STW
   T91S           11962/LW     11981-DATA
   T91TH          11979-DATA
   T91WT          11938/WT*    11949/WT*    11953-DATA   11967/STW    11973/STW
   T92             8380/GEN    11988-B
   T93             8382/GEN    12009-EQU
   T94             8386/GEN    12044-EQU
   T99             8414/GEN    12091-BAL
   T99A           12096-STB    12109/LOOP   12111/LOOP   12113/LOOP   12131/B
   T99C           12100-LW
   T99C1          12105/BE     12109-LOOP
   T99S           12088-DATA   12106/LW
   T99X           12089-DATA   12098/LH
   T99X1          12080/ES2    12134-LI     12141/BNE
   T99X2          12080/ES2    12142-B
   UNAVAIL         4092-DATA    4427/MSGX
   USERPROG         476/DATA    7489/LI     13855-END
   VARIATION       4012-DATA    4242/MSGX
   VBINFA          2284/STD     2441/STD     2451/STD     2719/STW     3181/STW     4074/GENV    4143-DATA
     10584/STW    10631/STW
   VBINFB          2721/STW     4075/GENV    4144-DATA
   VBINTEST        4143/DATA    4144/DATA    4157-DATA
   VBIN16A         2728/STW     4072/GENV    4138-DATA
   VBIN2A          4069/GENV    4135-DATA
   VBIN32A         4073/GENV    4139-DATA
   VBIN4A          2726/STW     4070/GENV    4136-DATA    7665/STB
   VBIN8A          4071/GENV    4137-DATA    7667/STW
   VBIN8B          4079/GENV    4153-DATA    7668/STW
   VDEC1A           811/STW      985/STW      991/STW      997/STW     1002/STW     1006/STW     1445/STW
      2311/STW     2533/STW     2964/STW     4051/GENV    4119-DATA    4470/STW     4796/STW     6173/STW
      8310/STW
   VDEC2A          4052/GENV    4120-DATA   10626/STW    12805/STW
   VDEC2B          4060/GENV    4128-DATA
   VDEC3A          1242/STW     1267/STW     1271/STW     4053/GENV    4122-DATA   10593/STW    10756/STW
     10822/STW    11001/STW    12811/STW
   VDEC4A          1514/STW     1600/STW     1977/STW     1985/STW     2407/STW     3201/STW     4054/GENV
      4121-DATA    4469/STW     4795/STW     6193/STW    11565/STW    12322/MVW    12438/MVW    12804/STW
   VDEC4B          4061/GENV    4129-DATA    5479/STW
   VDEC4C          4080/GENV    4146-DATA    6198/STW
   VDEC8A          4055/GENV    4123-DATA    5477/STW     6185/STW     7710/STW
   VDEC8B          4062/GENV    4130-DATA    5514/STW     6189/STW
   VDEC8C          4081/GENV    4147-DATA    5518/STW
   VDEC8D          4082/GENV    4148-DATA    5522/STW
   VDEC8E          4083/GENV    4149-DATA    5511/STH     5512/STH
   VDEC8F          4084/GENV    4150-DATA    5515/STH     5516/STH
   VDEC8G          4085/GENV    4151-DATA    5519/STH     5520/STH
   VERIF           4107-DATA    4380/MSGX
   VERSION          2.1-EQU        4/EQU
   VHEXF8A         2415/STD     4067/GENV    4141-DATA   10586/STW    10633/STW
   VHEXF8B         4068/GENV    4142-DATA   10588/STW    10635/STW
   VHEXTEST        4141/DATA    4142/DATA    4156-DATA
   VHEX2A          1586/STW     2741/STW     4056/GENV    4124-DATA    4943/STW     5000/STW
   VHEX2B          1584/STW     4063/GENV    4131-DATA    4947/STW
   VHEX4A           813/STW     1244/STW     1502/STW     1588/STW     1996/STW     2011/STW     2312/STW
      3184/STW     4057/GENV    4125-DATA    4929/STW     4941/STW     5002/STW     5509/STW     6182/STW
      7662/STW     7692/LW      9244/MVW     9268/MVW    12813/STW
   VHEX4B          1994/STW     2012/STW     4064/GENV    4132-DATA    4945/STW
   VHEX6A           785/STW     1454/MVW     2005/STW     2527/STW     2778/STW     2781/LW      2790/MTW
      2840/STW     4058/GENV    4126-DATA    6254/STW
   VHEX6B          1449/STW     2006/STW     2529/STW     2535/STW     4065/GENV    4133-DATA    6195/STW
   VHEX8A           963/STW      971/STW     2543/STW     2783/STW     2842/MVW     4059/GENV    4127-DATA
      5913/STW     5947/STW     5958/STW     7707/STW    11360/STW
   VHEX8B           965/STW      973/STW     2545/STW     2784/STW     2787/LB      4066/GENV    4134-DATA
      5961/STW     7708/STW    11363/STW
   VHEX8C          4086/GENV    4152-DATA    6191/STW
   WAIT            4104-DATA    4403/MSGX
   WCNT            2998/AW      2999/LCW     3078/LCW     3080/AW      3085/AW      3116/LCW     3129/LCW
      3182/LW      3243/LCW     3248/AW      4846/STW     5593/STW     5872/LM      5874/LM      5925/STW
      5938/STW     6003/STM     6005/STM     7816-RES     8024/STW     8207/STW     8835/STW     8868/STW
      8906/STW     9718/MTW    10599/STW    10901/STW    11259/STW    11267/STW
   WILL            4013-DATA    4212/MSGX    4375/MSGX
   WITHIN          4014-DATA    4350/MSGX    4351/MSGX    4352/MSGX
   WORD            4015-DATA    4184/MSGX    4190/MSGX    4375/MSGX
   WRD1            9143/DATA   13753-EQU
   WRD1MOD1       12932/STW    13756-DATA
   WRD1MOD2       12933/STW    13757-DATA
   WRD2            9143/DATA   13758-EQU
   WRD3            9143/DATA   13769-EQU
   WRD4            9143/DATA   13770-EQU
   WRD5            9144/DATA   13771-EQU
   WRD6            9144/DATA   13772-EQU
   WRD7            9144/DATA   13783-EQU
   WRITE           4016-DATA    4261/MSGX    4263/MSGX    4264/MSGX    4272/MSGX    4274/MSGX    4274/MSGX
      4288/MSGX    4290/MSGX    4290/MSGX    4297/MSGX    4298/MSGX    4299/MSGX    4300/MSGX    4300/MSGX
      4308/MSGX    4314/MSGX    4317/MSGX    4319/MSGX    4368/MSGX    4368/MSGX    4381/MSGX    4381/MSGX
      4413/MSGX    4414/MSGX    4416/MSGX    4418/MSGX
   WRONG           4017-DATA    4304/MSGX
   WRR1           13841-EQU
   WRR2           13842-EQU
   WRR3           13843-EQU
   WRR4           13844-EQU
   WRR5           13845-EQU
   WRR6           13846-EQU
   WRR7           13847-EQU
   WT               114-CNAME
   W001            3589-T       3836/DATA
   W002            3590-T
   W003            3591-T       3837/DATA
   W004            3592-T       3838/DATA
   W005            3593-T       3839/DATA
   W006            3594-T       3842/DATA
   W007            3595-T       3845/DATA
   W009            3596-T       3846/DATA
   W010            3597-T       3848/DATA
   W011            3598-T       3849/DATA
   W012            3599-T       3850/DATA
   W013            3600-T       3851/DATA
   W014            3601-T       3852/DATA
   W015            3602-T       3853/DATA
   W016            3603-T       3830/DATA
   W017            3604-T       3831/DATA
   W018            3605-T       3832/DATA
   W019            3606-T       3834/DATA
   W020            3607-T       3856/DATA
   W021            3608-T       3858/DATA
   W022            3609-T       3859/DATA
   W023            3610-T       3860/DATA
   W024            3611-T       3862/DATA
   W025            3612-T       3863/DATA
   W026            3613-T       3864/DATA
   W027            3614-T       3865/DATA
   W028            3615-T       3866/DATA
   W029            3616-T       3867/DATA
   W030            3617-T       3868/DATA
   W031            3618-T       3870/DATA
   W033            3619-T       3871/DATA
   W034            3620-T       3873/DATA
   W035            3621-T       3874/DATA
   W036            3622-T       3875/DATA
   W037            3623-T       3876/DATA
   W038            3624-T       3878/DATA
   W039            3625-T       3880/DATA
   W040            3626-T       3881/DATA
   W041            3627-T       3884/DATA
   W043            3628-T       3887/DATA
   W044            3629-T       3888/DATA
   W045            3630-T       3890/DATA
   W046            3631-T       3891/DATA
   W047            3632-T       3892/DATA
   W048            3633-T       3893/DATA
   W049            3634-T       3894/DATA
   W050            3635-T       3895/DATA
   W051            3636-T       3896/DATA
   W052            3637-T       3897/DATA
   W054            3638-T       3899/DATA
   W055            3639-T       3900/DATA
   W056            3640-T       3901/DATA
   W057            3641-T       3902/DATA
   W058            3642-T       3907/DATA
   W059            3643-T       3909/DATA
   W061            3644-T       3913/DATA
   W062            3645-T       3915/DATA
   W063            3646-T       3916/DATA
   W064            3647-T       3917/DATA
   W065            3648-T       3919/DATA
   W067            3649-T       3921/DATA
   W068            3650-T       3922/DATA
   W071            3651-T       3923/DATA
   W074            3652-T       3926/DATA
   W075            3653-T       3928/DATA
   W076            3654-T       3932/DATA
   W079            3655-T       3933/DATA
   W080            3656-T       3934/DATA
   W081            3657-T       3935/DATA
   W082            3658-T       3936/DATA
   W083            3659-T       3937/DATA
   W084            3660-T       3938/DATA
   W086            3661-T       3939/DATA
   W087            3662-T       3940/DATA
   W088            3663-T       3941/DATA
   W089            3664-T       3942/DATA
   W090            3665-T       3944/DATA
   W091            3666-T       3945/DATA
   W092            3667-T       3948/DATA
   W093            3668-T       3949/DATA
   W094            3669-T       3951/DATA
   W095            3670-T       3956/DATA
   W096            3671-T       3958/DATA
   W097            3672-T       3961/DATA
   W098            3673-T       3962/DATA
   W099            3674-T       3963/DATA
   W100            3675-T       3964/DATA
   W101            3676-T       3965/DATA
   W102            3677-T       3967/DATA
   W103            3678-T       3968/DATA
   W104            3679-T       3969/DATA
   W106            3680-T       3971/DATA
   W107            3681-T       3976/DATA
   W108            3682-T       3977/DATA
   W109            3683-T       3978/DATA
   W110            3684-T       3979/DATA
   W112            3685-T       3982/DATA
   W114            3686-T       3984/DATA
   W115            3687-T       3985/DATA
   W116            3688-T       3986/DATA
   W117            3689-T       3990/DATA
   W118            3690-T       3992/DATA
   W119            3691-T       3993/DATA
   W121            3692-T       3994/DATA
   W122            3693-T       3995/DATA
   W123            3694-T       3996/DATA
   W124            3695-T       3997/DATA
   W125            3696-T       3999/DATA
   W126            3697-T       4000/DATA
   W128            3698-T       4003/DATA
   W129            3699-T       4004/DATA
   W130            3700-T       4005/DATA
   W131            3701-T       4006/DATA
   W132            3702-T       4007/DATA
   W133            3703-T       4013/DATA
   W134            3704-T       4015/DATA
   W135            3705-T       4016/DATA
   W136            3706-T       4018/DATA
   W137            3707-T       3885/DATA
   W138            3708-T
   W139            3709-T       3883/DATA
   W140            3710-T       3854/DATA
   W141            3711-T       3835/DATA
   W142            3712-T       3869/DATA
   W143            3713-T       3877/DATA
   W144            3714-T       3882/DATA
   W145            3715-T       3906/DATA
   W147            3716-T       3911/DATA
   W148            3717-T       3918/DATA
   W149            3718-T       3929/DATA
   W150            3719-T       3943/DATA
   W151            3720-T       3946/DATA
   W152            3721-T       3957/DATA
   W153            3722-T       3960/DATA
   W154            3723-T       3966/DATA
   W155            3724-T       3981/DATA
   W156            3725-T       3972/DATA
   W157            3726-T       3833/DATA
   W158            3727-T       3857/DATA
   W159            3728-T       3879/DATA
   W160            3729-T       3973/DATA
   W161            3730-T       3987/DATA
   W162            3731-T       3843/DATA
   W163            3732-T       3847/DATA
   W164            3733-T       3855/DATA
   W165            3734-T       3872/DATA
   W166            3735-T       3886/DATA
   W167            3736-T       3889/DATA
   W168            3737-T       3898/DATA
   W169            3738-T       3903/DATA
   W170            3739-T       3904/DATA
   W171            3740-T       3905/DATA
   W172            3741-T       3910/DATA
   W173            3742-T       3914/DATA
   W174            3743-T       3920/DATA
   W175            3744-T       3924/DATA
   W176            3745-T       3925/DATA
   W177            3746-T       3930/DATA
   W178            3747-T       3931/DATA
   W180            3748-T       3953/DATA
   W181            3749-T       3954/DATA
   W182            3750-T       3955/DATA
   W184            3751-T       3970/DATA
   W185            3752-T       3974/DATA
   W186            3753-T       3983/DATA
   W187            3754-T       3991/DATA
   W188            3755-T       3998/DATA
   W189            3756-T       4017/DATA
   W190            3757-T       4019/DATA
   W191            3758-T       4020/DATA
   W192            3759-T       4021/DATA
   W193            3760-T       4022/DATA
   W194            3761-T       3975/DATA
   W195            3762-T       3980/DATA
   W196            3763-T       4014/DATA
   W197            3764-T       3840/DATA
   W198            3765-T       3844/DATA
   W199            3766-T       3952/DATA
   W200            3767-T       3947/DATA
   W201            3768-T       3989/DATA
   W202            3769-T       4001/DATA
   W203            3770-T       4002/DATA
   W204            3771-T       3861/DATA
   W205            3772-T       3841/DATA
   W206            3773-T       3908/DATA
   W207            3774-T       3912/DATA
   W208            3775-T       4012/DATA
   W209            3776-T       4023/DATA
   W210            3777-T       3988/DATA
   W601            3781-TEXTCS  4008/DATA
   W602            3782-TEXTCS  4009/DATA
   W603            3783-TEXTCS  4010/DATA
   W604            3785-TEXTCS  4011/DATA
   W902            3788-T       4089/DATA
   W905            3789-T       4090/DATA
   W906            3790-T       4091/DATA
   W913            3791-T       4092/DATA
   W914            3792-T       4093/DATA
   W915            3793-T
   W916            3794-T       4094/DATA
   W917            3795-T       4095/DATA
   W919            3796-T       4096/DATA
   W920            3797-T       4097/DATA
   W921            3798-T       4099/DATA
   W923            3799-T       4100/DATA
   W924            3800-T       4101/DATA
   W925            3801-T       4102/DATA
   W927            3802-T       4103/DATA
   W928            3803-T       4104/DATA
   W930            3804-T
   W931            3805-T       4105/DATA
   W932            3806-T       4106/DATA
   W933            3807-T       4107/DATA
   W934            3808-T       4108/DATA
   W935            3809-T       4109/DATA
   W990            3810-T       3950/DATA
   W991            3811-T       3927/DATA
   W992            3812-T       3959/DATA
   1B              3829-DATA    4347/MSGX    4347/MSGX    4349/MSGX    4374/MSGX    4374/MSGX    4374/MSGX
      4381/MSGX    4381/MSGX    4381/MSGX    4381/MSGX    4381/MSGX    4381/MSGX    4423/MSGX    4427/MSGX
      4427/MSGX
   17B             3835-DATA    4335/MSGX    4346/MSGX    4348/MSGX    4429/MSGX    4429/MSGX
   2B              3830-DATA    4230/MSGX    4231/MSGX    4237/MSGX    4335/MSGX    4348/MSGX    4355/MSGX
      4368/MSGX    4368/MSGX    4381/MSGX    4403/MSGX    4419/MSGX    4419/MSGX    4419/MSGX    4419/MSGX
      4419/MSGX    4419/MSGX    4423/MSGX    4423/MSGX    4423/MSGX    4423/MSGX    4423/MSGX    4425/MSGX
      4425/MSGX    4427/MSGX    4427/MSGX    4427/MSGX    4431/MSGX    4432/MSGX    4433/MSGX    4434/MSGX
   3AST            4018-DATA    4098/EQU   4185.1/MSGX  4185.1/MSGX    4187/MSGX    4187/MSGX    4208/MSGX
      4208/MSGX    4209/MSGX    4214/MSGX    4214/MSGX    4216/MSGX    4216/MSGX  4241.1/MSGX    4378/MSGX
      4379/MSGX    4380/MSGX    4412/MSGX    4412/MSGX    4414/MSGX    4415/MSGX    4416/MSGX    4417/MSGX
      4418/MSGX    4419/MSGX    4430/MSGX    4433/MSGX    4434/MSGX
   3B              3831-DATA    4206/MSGX    4230/MSGX    4231/MSGX    4237/MSGX    4243/MSGX    4331/MSGX
      4349/MSGX    4374/MSGX    4374/MSGX    4381/MSGX    4381/MSGX    4381/MSGX    4386/MSGX    4386/MSGX
      4419/MSGX    4419/MSGX    4425/MSGX    4425/MSGX    4429/MSGX
   3POINTS         4023-DATA    4298/MSGX    4299/MSGX    4317/MSGX
   5B              3832-DATA    4237/MSGX    4239/MSGX    4243/MSGX    4347/MSGX    4365/MSGX    4381/MSGX
      4381/MSGX    4419/MSGX    4423/MSGX    4423/MSGX    4427/MSGX    4427/MSGX    4429/MSGX
   7B              3833-DATA    4237/MSGX    4238/MSGX    4346/MSGX    4349/MSGX    4374/MSGX
   9B              3834-DATA    4365/MSGX    4368/MSGX    4374/MSGX    4381/MSGX    4419/MSGX
   :BCDC            407-EQU
   :BINC            410-EQU
   :CATALOG         449/DATA     554-EQU
   :CDB             531/GEN      531/GEN      545-EQU      575/LH       586/LH       593/LW       599/LW
       607/CH       609/LW       624/CH       627/LW
   :CDBEND          531/GEN      553-EQU
   :CDBM            531/GEN      540-EQU
   :CDBMEND         531/GEN      543-EQU
   :CDT             454/DATA     455/DATA     530-EQU
   :CDTEND          455/DATA     532-EQU
   :CURBCNT         414-EQU
   :DATA            509/GEN      842-EQU
   :DATAP1          864/STM      871-DATA    4831/LM      4833/CW      5127/CW      5581/CW      5927/CW
     12339/LW     12456/LW
   :DATATBL         855/STW      856/STW      860/DATA     869-DATA
   :DATAX           844/BL       859-BAL
   :DATA1           847-LI       853/BNE
   :DATA2           848/B        851/B        855-STW
   :DATA3           858/BE       862-LCI
   :DECC            411-EQU     3450/BAL*    3452/BAL*  8259.2/BAL*
   :DIC             451/DATA     452/DATA     504-EQU
   :DICEND          452/DATA     514-EQU      530/EQU
   :DICILEN         433-EQU
   :DICINDX         432-EQU
   :DTLFLAG         428-EQU
   :DUMP            405-EQU
   :ERROR           415-EQU
   :HEXC            412-EQU     3462/BAL*    3464/BAL*
   :INITIAL         457/DATA     566-STW
   :INITR           566/STW      592/B*       741/B*       742-DATA
   :INITX           576/BEZ      590-STW      596/B        604/B        608/BG       611/BCS      613/BCR
       617/BCR
   :INIT1           588/BGE      593-LW
   :INIT12          684-STW      693/B
   :INIT13          689/BG       694-STW
   :INIT14          705-LW       738/BLE
   :INIT15          719/BCR      722/BCR      725-CI
   :INIT2           600-LI
   :INIT3           602/BE       606-AI       629/BE
   :INIT4           610-CW       631/B
   :INIT5           625/BG       632-STW
   :INIT6           643-LW       665/BL
   :INIT7           651-LH       661/BL
   :INIT8           652/BEZ      659-AI
   :INIT9           645/BEZ      650/BNEZ     662-AI
   :KSRADR          424-EQU
   :LGFLAG          409-EQU
   :LIMT            510/GEN      894-EQU
   :LIMTBL1         899/DATA     937-DATA
   :LIMTBL2         906/DATA     940-DATA
   :LIMTBL3         916/DATA     944-DATA
   :LIMT1           897/BNE      903-CI       931/BNE
   :LIMT2           904/BNE      913-CI
   :LIMT3           914/BNE      930-CI
   :LIST             18-SET       21-SET       21/SET       24-SET       24/SET       27-SET       27/SET
        29/GEN       37-SET       37/SET       39-SET       39/SET       41/GEN
   :LISTA            19-SET       29/GEN       41/GEN
   :LOADIN          422-EQU
   :MACHINE         425-EQU    570.2/MTW     5680/CW      5703/CW      9934/CW      9986/MTW    10243/MTW
   :MEM             511/GEN      959-EQU
   :MEMLAST         435-EQU      964/LW      7493/LW      7495/LW
   :MEMSIZE         434-EQU      969/CW       972/LW      1004/CW      7490/LW
   :MEM1            961/BGZ      977-CI
   :MEM2            978/BE       982-LW
   :MEM3            986-BAL      998/B
   :MEM4            984/BGE      989-CLM
   :MEM5            992-BAL     1003/B
   :MEM6            990/BCS      995-CW
   :MEM7            996/BL       999-LW
   :MEM8           1001/BCS     1004-CW
   :MEM9           1005/BLE     1010-STW
   :MLT             400-EQU      401/EQU      402/EQU      403/EQU      404/EQU      405/EQU      406/EQU
       407/EQU      408/EQU      409/EQU      410/EQU      411/EQU      412/EQU      413/EQU      414/EQU
       415/EQU      416/EQU      417/EQU      418/EQU      419/EQU      420/EQU      421/EQU      422/EQU
       423/EQU      424/EQU      425/EQU      426/EQU      427/EQU      428/EQU      429/EQU      430/EQU
       431/EQU      432/EQU      433/EQU      434/EQU      435/EQU      436/EQU      437/EQU      438/EQU
       439/EQU
   :MLTEND          439-EQU
   :MONIOBF         436-EQU
   :MONITOR         408-EQU      788/B*       861/B*       865/B*       902/B*       911/B*       929/B*
       934/B*       970/BGE*     976/B*       981/B*       988/B*       994/B*      1009/B*      1015/B*
      1064/B*      1105/B*      2971/B*      2973/B*      2977/B*      2979/B*      3583/B*      4627/B*
      4919/B*      6690/B*      8308/B*      8312/B*
   :MONPBF          437-EQU
   :MONWAIT         418-EQU
   :MRECOVR         419-EQU
   :MSGIN           421-EQU
   :MSGOUT          420-EQU
   :PIT             448-EQU
   :PIT0            449-DATA
   :PIT1            450-DATA
   :PIT10           459-DATA     590/STW
   :PIT11           460-DATA
   :PIT12           461-DATA     591/STW      740/STW
   :PIT13           462-DATA
   :PIT14           463-DATA
   :PIT15           464-DATA    4460/STW     4787/STW     7966/STW
   :PIT16           465-DATA
   :PIT17           466-DATA
   :PIT18           467-DATA
   :PIT19           468-DATA
   :PIT2            451-DATA
   :PIT20           469-DATA
   :PIT21           470-DATA
   :PIT22           471-DATA
   :PIT23           472-DATA
   :PIT24           473-DATA
   :PIT25           474-DATA
   :PIT26           475-DATA
   :PIT27           476-DATA
   :PIT3            452-DATA
   :PIT4            453-DATA
   :PIT5            454-DATA
   :PIT6            455-DATA
   :PIT7            456-DATA
   :PIT8            457-DATA
   :PIT9            458-DATA
   :PNTR             17-SET       52-SET       52/SET       60-SET       60/SET       68-SET       68/SET
        75-SET       75/SET       85-SET       85/SET       95-SET       95/SET      107-SET      107/SET
       119-SET      119/SET      131-SET      131/SET      143-SET      143/SET      161-SET      161/SET
       179-SET      179/SET      212-SET      212/SET      223-SET      223/SET      230-SET      230/SET
       237-SET      237/SET      251/DATA
   :PNTRLOC          15-SET      250/ORG
   :PREPORT         429-EQU
   :PRINT           356/BAL*     416-EQU     3436/BAL*  8259.8/BAL*   12816/BAL*   12818/BAL*
   :PROGID          450/DATA     557-EQU
   :PSW             406-EQU      857/CB       960/LB      1089/STB     1098/STB     2955/LB
   :P1              401-EQU      843/CW       845/CW       852/CW       863/LM       895/LW       982/LW
      1044/LM      1087/STW     1096/STW     2962/LW      4478/LW      4518/LW      4801/CW      4814/CW
      4859/CW      4871/LW      4874/CW      4898/CW      6665/CW      7948/LW      7951/LW
   :P2              402-EQU      900/LW       907/LW       918/LW       921/LW       925/LW       995/CW
       999/LW      1088/STW     1097/STW     4480/LW      4803/LW      4816/CW      4876/AW      4932/MTW
      4944/LB      4946/LB      5574/OR      7949/LW
   :P3              403-EQU      909/LW      4863/LW      4957/LW      7970/MVW
   :P4              404-EQU      932/LW      1060/AW      1245/LW      1279/LW      1292/LW      4869/LW
   :RECOVER         453/DATA     568/BAL      770-LI
   :RECOVS          774/STW      778/B*       779-RES
   :RELBIAS         426-EQU
   :REMOTE          438-EQU      567/BAL
   :RLOADER         427-EQU
   :SEEK            512/GEN     1029-EQU
   :SEEKTBL        1040/STW     1041/STW     1042/STW     1055/STW     1057/DATA    1067-DATA
   :SEEKTEMP       1049/STW     1058/LW      1072-DATA
   :SEEK1          1031-LW      1063/BDR
   :SENSE           417-EQU     1102/BAL*    1304/BAL*    4624/BAL*    4916/BAL*    8305/BAL*
   :SENSE2          430-EQU     2582/BAL*
   :TPTLAST         249-SET      252/ORG
   :TYPE            423-EQU    12206/BAL*   12232/BAL*   12237/BAL*   12270/BAL*   12715/BAL*   12823/BAL*
   :WAIT            431-EQU     4950/BAL*    6881/BAL*
   :1BYTEIN         413-EQU    12208/BAL*   12239/BAL*   12272/BAL*   12717/BAL*   12825/BAL*
   #BCOP           1686/BAL     2736/BAL     2822-STW
   #CLEARA         2995-LW      9558/BAL
   #CLEARB         1441/BAL     2997-LW
   #COMP           2516/BAL     2550/BAL     3072-LI      5950/BAL
   #COMPBIN        3180/LW      3209-DATA
   #CORD           1485/BAL     2373/BAL     3304-LI      3309/BIR    10118/BAL
   #DERD           1567/BAL     3328-LI      3334/BIR
   #HCNT           2924-LI     10749/BAL    10815/BAL    11532/BAL    11551/BAL
   #IOCDP          1684/BAL     2734/BAL     2774-STW     6249/BAL    11556/BAL    11561/BAL
   #IOCP           1516/BAL     1602/BAL     1792/BAL     2000/BAL     2002/BAL     2062/BAL     2204/BAL
      2409/BAL     2685-STW     6244/BAL     9247/BAL     9271/BAL     9273/BAL     9760/BAL    10123/BAL
     10171/BAL    11754/BAL    11767/BAL    11862/BAL    12152/BAL    12154/BAL
   #IOEX           1481/BAL     1488/BAL     1493/BAL     1563/BAL     1570/BAL     1578/BAL     1785/BAL
      1882/BAL     1923/BAL   1933.1/BAL     2200/BAL     2369/BAL   2374.7/BAL  2374.14/BAL     2613-STW
      9240/BAL     9255/BAL     9259/BAL     9756/BAL    10114/BAL    10145/BAL    11747/BAL    11760/BAL
     11844/BAL    12145/BAL    12148/BAL
   #MSGP            319/BAL      966/BAL      974/BAL      979/BAL      986/BAL      992/BAL     1007/BAL
      1247/BAL     1254/BAL     1261/BAL     1296/BAL     1298/BAL     1789/BAL     1980/BAL     1986/BAL
      1997/BAL     2007/BAL     2013/BAL     2034/BAL     2057/BAL     2696/BAL     2702/BAL     2722/BAL
      2729/BAL     2742/BAL     2779/BAL     2785/BAL     3368-LCI     3573/BAL     4471/BAL     4797/BAL
      4926/BAL     4930/BAL     4948/BAL     4995/BAL     5003/BAL     5480/BAL     5486/BAL     5489/BAL
      5905/BAL     5914/BAL     5948/BAL     5962/BAL     6268/BAL     6304/BAL     6316/BAL     6670/BAL
      6686/BAL     7640/BAL     7656/BAL     7684/BAL     7687/BAL     7711/BAL    12814/BAL    12820/BAL
   #PATT           1438/BAL     3242-STW     4855/BAL     5595/BAL    12344/BAL    12461/BAL
   #QS              585/STW      673/LW       682/LW       692/AW       695/LW       764-DATA
   #RAND           3027-MTW     4476/BAL     4505/BAL     4514/BAL     4659/BAL     4683/BAL     4838/BAL
      8907/BAL    10955/BAL    10960/BAL    11305/BAL    11336/BAL    11648/BAL    12091/BAL
   #SCNT           2876-STW    10729/BAL    10795/BAL    11520/BAL
   #SENSE          1239/BAL     1300/BAL     2581-STW
   #STPALT         9023/BAL     9062/BAL     9105/BAL     9150/BAL     9192/BAL    12911-LCI
   #STPALTD       12898-EQU    12917/LM
   #STPALTR       12904-EQU    12920/LM
   #STPALTS       12909-RES    12912/STM    12936/LM
   #STPALT1       12922-STW    12934/BIR
   #TPM             859/BAL      898/BAL      905/BAL      915/BAL     1056/BAL     1082/BAL     2955-LB
      4453/BAL     4827/BAL     7946/BAL
