1 C00   21:22 JUN 20,'83                                                                          PAGE    1
A   .SS BA,HA,WA,DA,LF,CF,AF,AFA,NAME,NUM,ABSVAL
    .SS R0,R1,R2,R3,R4,R5,R6,R7,R8,R9,R10,R11,R12,R13,R14,R15
    .SS X1,X2,X3,X4,X5,X6,X7,SCOR,TCOR,%,%%
    .END
1 C00   21:22 JUN 20,'83    SIGMA 5-9 COMPREHENSIVE RAD TEST 705730-11/51C02 06/25/73             PAGE    2
A       1         03 01EEE           #DDTSAVE EQU      S:UFV(#MSG00)
        2         03 02418           BUF1LO   EQU      S:UFV(WA(DA(BUFFEND+1)+0))
1 C00   21:22 JUN 20,'83    SIGMA 5-9 COMPREHENSIVE RAD TEST 705730-11/51C02 06/25/73             PAGE    3
A       3                             TITLE  'SIGMA 5-9 COMPREHENSIVE RAD TEST 705730-11/51C02 06/25/73' *C02
        4                            *
        5                            *
        6                                     SYSTEM   SIG7FDP
        7   01 00300                          ORG      X'300'
            01 00300
        8                            *
        9                            * CATALOG NO. 705730   MANUAL NO. 901678
       10                            *
       11                            *
       12                            * PROGRAM OBJECTIVE
       13                            * ----------------- THE PROGRAM PROVIDES A COMPREHENSIVE SET OF TESTS
       14                            * DESIGNED TO DETECT SOLID LOGIC FAILURES AND TO ISOLATE FAILURES
       15                            * TO A SPECIFIC FUNCTION. THE PROGRAM ALSO EXERCISES THE CONTROLLER
       16                            * AND STORAGE UNITS UNDER CONDITIONS SIMILAR TO ACTUAL OPERATION
       17                            * UNDER STANDARD SOFTWARE.  A UTILITY TEST PROVIDES ADDITIONAL      *A01
       18                            * CAPABILITY FOR TESTING THE SURFACE OF STORAGE UNITS.              *A01
       19                            *
       20                            *
       21                            *  PROGRAM MODIFICATIONS
       22                            * ---------------------                                             *A01
       23                            * REVISION C02 (06/25/73) THE PROGRAM WAS CHANGED AS FOLLOWS:       *C02
       24                            *    1. ALL COUNTER INTERRUPTS ARE DISABLED DURING SIO,TIO          *C02
       25                            *       OF TST1,16 (TAR 10862).                                     *C02
       26                            *    2. DELAYED TDV AFTER SIO IN TST1,29.                           *C02
       27                            *    3. INCREASED IO TIMEOUT DELAY (TAR30815).                      *C02
       28                            *    4. ADDED MODEL NO. 725X TO SYST DIRECTIVE.                     *C02
       29                            * REVISION C01 (11/27/71) THE PROGRAM WAS CHANGED AS FOLLOWS:       *C01
       30                            *    1. TO USE REMOTE DIAGNOSTIC PROGRAM MONITOR.                   *C01
       31                            *    2. CHANGED 'SYST' DIRECTIVE TO CORRECT PROGRAM ERROR. PROGRAM  *C01
       32                            *       DIDN'T CALCULATE SURFACE LIMITS CORRECTLY FOR A HIGH SPEED  *C01
       33                            *       RAD, IF THE SOFTWARE WRITE PROTECT PARAMETERS WERE USED.    *C01
       34                            *                                                                   *C01
       35                            *    3. CHANGED 'SYST' DIRECTIVE PARAMETER 2 TO INCORPORATE A       *C01
       36                            *       PARAMETER TO INDICATE IF A MEDIUM OR E.P. RAD IS CONNECTED  *C01
       37                            *       TO A SIOP.                                                  *C01
       38                            *                                                                   *C01
       39                            *    4. CHANGED 'MEM' DEFAULT VALUE TO ALLOW ALL OF MEMORY TO BE    *C01
       40                            *       ALLOCATED INITIALLY FOR SURFACE TESTING.                    *C01
       41                            *                                                                   *C01
       42                            *    5. CHANGED TST1,12 SO THAT IT WILL NOT BE RUN, IF A MEDIUM     *C01
       43                            *       OR E.P. RAD IS CONNECTED TO A SIOP. (SEE P2 SYST)           *C01
       44                            *                                                                   *C01
       45                            *   6. ASSURES THAT I/O BUFFERS ARE BUILT ON DOUBLEWORD BOUNDARIES. *C01
       46                            *                                                                   *C01
       47                            *    7. CHANGED TST1,41 SO THAT A PATTERN OF ALL ZEROES IS WRITTEN  *C01
       48                            *       AND CHECKED, BEFORE A RANDOM PATTERN IS WRITTEN AND         *C01
       49                            *       CHECKED.                                                    *C01
       50                            *                                                                   *C01
       51                            *    8. CHANGED TST1,48 SO THAT DATA OVERRUNS WILL OCCUR EVEN IF AN *C01
       52                            *       MEDIUM OR E.P. RAD IS RUNNING ON A 4-BYTE INTERFACE.        *C01
       53                            *       (TAR #12094)                                                *C01
       54                            *    9. CHANGED TST1,21 TO CORRECT ERROR LOOPING                    *C01
       55                            *                                                                   *C01
       56                            * REVISION C00 (07/30/71) CHANGES INDICATED IN COLUMNS 69 - 72 BY---*C00
       57                            *    1. DOCUMENTATION REFORMAT ONLY.                                *C00
       58                            *
       59                            *
       60                            * REVISION B03 (05/10/71) THE PROGRAM WAS CHANGED AS FOLLOWS:       *B03
       61                            *      1.PREVENTED SEEK DIRECTIVE FROM LIMITING THE SURFACE TESTED  *B03
       62                            *        BY THE SECTOR INCREMENTING TEST.                           *B03
       63                            *      2.CORRECTED AN ERROR IN THE INTERRUPT/TRAP HANDLER.          *B03
       64                            *      3.ADDED A READ PASS AFTER THE RANDOM EXERCISER COMPLETES     *B03
       65                            *        TESTING.                                                   *B03
       66                            *      4.MODIFIED PASS COUNT ROUTINE FOR MORE EFFICIENT EXECUTION.  *B03
       67                            *      5.CLEANED UP MONITOR LINK TABLE AND PROGRAM INTERFACE TABLE. *B03
       68                            *
       69                            *
       70                            * REVISION B02 (12/17/70) ADD FUNCTIONAL TEST 50. TESTS CHECKWRITE  *B02
       71                            * FUNCTION FOR BYTE COUNTS NOT EQUAL TO SECTOR SIZE. TEST 50        *B02
       72                            * VERIFIES FMK 7231-02/01.                                          *B02
       73                            *  REVISION B01 (11/13/70) ADDED PASS COUNT MESSAGE. PRINT-OUT OF   *B01
       74                            *  MESSAGE IS CONTROLLED BY THE 'LIMT' DIRECTIVE.                   *B01
       75                            *  CORRECTED INCREMENTING PATTERN. ADDED TIME OUT FEATURE FOR NO    *B01
       76                            *  SECTOR PULSE TO TEST 19.                                         *B01
       77                            *
       78                            *  REVISION B00 (07/12/70) FUNCTIONAL TEST 17 TO 21 ARE NOW TESTS   *B00
       79                            *  19 TO 23. FUNCTIONAL TESTS 17,18, AND 24 TO 30 HAVE BEEN ADDED   *BOO
       80                            *  FOR MODEL 7201-3 AND 7231-3 RAD CONTROLLERS.                     *BOO
       81                            *  RSET DIRECTIVE HAS BEEN DELETED.                                 *BOO
       82                            *
       83                            *  REVISION A01 (4/16/70) REVISIONS INDICATED IN COLUMS 69-72 BY -- *A01
       84                            *  ADDED PARAMETER D4 TO SELECT UTILITY DIRECTIVE (TST3) TO ALLOW   *A01
       85                            *  OPERATOR CONTROL OF THE NUMBER OF READ OPERATIONS FOLLOWING A    *A01
       86                            *  WRITE OPERATION (WHEN D2=0 ONLY).                                *A01
       87                            *  ADDED NEW DIRECTIVE, DEFINE MEMORY AREA (MEM) TO ALLOW OPERATOR  *A01
       88                            *  TO DEFINE I/O BUFFER AREA.                                       *A01
       89                            *  ADDED NEW DIRECTIVE, LIMIT PROGRAM PRINTOUTS (LIMT) TO ALLOW     *A01
       90                            *  OPERATOR TO LIMIT THE NUMBER OF ERROR PRINTOUTS/SECTOR.          *A01
       91                            *  DATA GENERATION AND COMPARE ROUTINES REWRITTEN TO INCREASE       *A01
       92                            *  RUNNING SPEED.                                                   *A01
       93                            *
       94                            *  OPERATING REQUIREMENTS AND SPECIFICATIONS
       95                            *  ------------------------------------------
       96                            *
       97                            *  REQUIRED EQUIPMENT
       98                            *                    SIGMA 5/7 WITH 12K MINIMUM MEMORY.
       99                            *                    CARD-READER, PAPER-TAPE READER, OR MAGNETIC TAPE
      100                            *                    UNIT FOR PROGRAM INPUT.
      101                            *                    A KEYBOARD PRINTER OR LINE PRINTER FOR MESSAGE
      102                            *                    OUTPUT.
      103                            *
      104                            *  OPTIONAL EQUIPMENT
      105                            *  ----------------- NONE
      106                            *
      107                            *  PROGRAM PREREQUISITES
      108                            *  ----------------- NONE
      109                            *
      110                            *
      111                            *
      112                            *  RUN TIME
      113                            *                 FUNCTIONAL TESTS: 4.0 -5.0 MINUTES FOR ONE SUCCESSFUL
      114                            *                                   PASS ON ONE DEVICE.
      115                            *
      116                            *                 RANDOM EXERCISER: RUN TIME IS A FUNCTION OF THE
      117                            *                                   NUMBER OF DEVICES, SURFACE AREA
      118                            *                                   BEING TESTED,MEMORY SIZE, NUMBER OF
      119                            *                                   I/O CYCLE REQUIRED AND WHEITHER THE
      120                            *                                   COMPUTER IS A SIGMA 5 OR 7.
      121                            *                 UTILITY TEST:     0.2 - 0.6 MINUTES PER WRITE OR READ
      122                            *                                   PASS PER STORAGE UNIT. DEPENDING
      123                            *                                   ON MODEL NO., MEMORY SIZE,
      124                            *                                   SURFACE AREA BEING TESTED, AND
      125                            *                                   WHEITHER THE COMPUTER IS A
      126                            *                                   SIGMA 5 OR 7.
      127                            *
      128                            *  PROGRAM MEDIA
      129                            *                   80-COLUMN CARDS, 8 LEVEL PAPER TAPE OR MAGNETIC
      130                            *                   TAPE.
      131                            *
      132                            *  SOURCE LANGUAGE
      133                            *
      134                            *                   SIGMA 5/7 METASYMBOL
      135                            *
      136                            *  LOADING PROCEDURES
      137                            *  -------------------
      138                            *                    LOADING PROCEDURES IS DEFINED IN DIAGNOSTIC
      139                            *                    PROGRAM MONITOR MANUAL NO. 901649.
      140                            *                    A SUCCESSFUL LOAD OPERATION IS INDICATED BY:
      141                            *                    (1).  PRINTOUT ON OPTIONAL MESSAGE OUTPUT DEVICE
      142                            *                         SIGMA 5/7  COMPREHENSIVE
      143                            *                          RAPID ACCESS (RAD) FILE TEST
      144                            *                         PROGRAM 705730
      145                            *
      146                            *  OPERATING PROCEDURES
      147                            *  --------------------
      148                            *
      149                            *  CONTROL OPTIONS
      150                            *                    PROGRAM CONTROL OPTIONS ARE SELECTED WITH THE
      151                            *                    PROCESSOR CONTROL PANEL SENSE SWITCHES 1,3,4
      152                            *                    (SENSE SWITCH 2 IS UNUSED)
      153                            *
      154                            *     SSW1     SSW3
      155                            *   POSITION POSITION                OPTION
      156                            *
      157                            *    0 OR 1     0    THE PROGRAM COMES TO A WAIT AFTER FUNCTIONAL ERROR
      158                            *                    PRINTOUT(S) AND AFTER COMPLETION OF THE SELECTED
      159                            *                    TEST. CLEARING THE WAIT CAUSES PROGRAM LOOPING ON
      160                            *                    THE ERROR OR THE SELECTED TEST.
      161                            *                    INCREMENTING THE PROGRAM ADDRESS (PCP INSTRUCTION
      162                            *                    ADDRESS INCREMENT) BEFORE CLEARING THE WAIT CAUSES
      163                            *                    THE PROGRAM TO CONTINUE WITHOUT LOOPING.
      164                            *
      165                            *    0          1    THE PROGRAM CONTINUES WITHOUT WAIT AND WITHOUT
      166                            *                    FUNCTIONAL ERROR/TEST LOOPING.
      167                            *
      168                            *    1          1    THE PROGRAM PRINTS THE ERROR MESSAGE(S) AND LOOPS
      169                            *                    (WITHOUT WAITING) ON THE FUNCTIONAL ERROR-PRODUCING
      170                            *                    INSTRUCTION SEQUENCE. THE PROGRAM ALSO LOOPS
      171                            *                    (WITHOUT WAIT) ON SELECTED TESTS.
      172                            *
      173                            *     SSW4
      174                            *   POSITION
      175                            *      0             THE PROGRAM PRINTS ALL MESSAGES
      176                            *
      177                            *      1             THE PROGRAM INHIBITS ALL MESSAGE PRINTOUTS.
      178                            *                    DPM MESSAGES CANNOT BE SUPPRESSED.
      179                            *
      180                            *  TABLE OF DIRECTIVES
      181                            *
      182                            * THE DATA STATEMENT ASSOCIATED WITH EACH DIRECTIVE NAME PRODUCES A
      183                            * MEMORY ADDRESS IN THE MEMORY-CONTENTS-COLUMN WHICH CAN BE USED TO
      184                            * LOCATE THE PROGRAM CODING FOR THE DIRECTIVE. THE CODING FOR EACH
      185                            * DIRECTIVE IS PRECEDED BY A DESCRIPTION OF THE DIRECTIVES AND ITS
      186                            * PARAMETERS.
      187                            *
      188                            *
      189                            *    MNEMONIC            DESCRIPTION                 PARAMETER
      190                            *                                                               FORMAT
      191                            *
      192                            *     SYST  THE DIRECTIVE DESCRIBES SYSTEM ENVIRONMENT.       SYST,D1,
      193                            *                                                             H2,H3,H4,
      194                            *                 D1 XDS MODEL NUMBER FOR THE CONTROLLER      D5,----H27
      195                            *                   (D1 = 7201,7211,7231 OR 7250)                   *C02
      196                            *                 H2 IOP TYPE AND REVISION                          *C01
      197                            *                    (H2 =000000XX  MIOP)                           *C01
      198                            *                    (H2 =000001XX  SIOP)                           *C01
      199                            *                    (H2 =0000XX00  NOT A RAD CONTROLLER 7201/31-3) *C01
      200                            *                    (H2 =0000XX03  A RAD CONTROLLER 7201/31-3      *C01
      201                            *                H3 VALID IOP AND CONTROLLER ADDRESS, INVALID STORAGE
      202                            *                   UNIT ADDRESS. IF NOT SPECIFIED OR ENTERED AS ZERO
      203                            *                   OR IF 8 STORAGE UNITS ARE SPECIFIED FUNCTIONAL
      204                            *                   TST1,2 WILL BE SKIPPED.
      205                            *                   (80<=H3<=7FF)
      206                            *                H4 DEVICE ADDRESS OF FIRST RAD.
      207                            *                   (80<=H4<=1FFF)                                  *BOO
      208                            *                H5 MODEL NUMBER OF FIRST STORAGE UNIT.             *C02
      209                            *                   (H5 = 7202,7203,7204,7212,7232,7251 OR 7252)    *C02
      210                            *                H6 WRITE PROTECT SWITCH SETTINGS OF FIRST STORAGE UNIT.
      211                            *                   FOR 725X CARTRIDGE DISKS, THIS PARAMETER        *C02
      212                            *                   MUST BE SET TO ZERO.                            *C02
      213                            *                   (H6 =  00D1D200D3D4  SEE FIG 1)
      214                            *                         D1D2  IF NOT = 0, DENOTES ALL TRACKS LESS
      215                            *                         THAN OR EQUAL TO THE TRACKS PROTECTED BY THE
      216                            *                         WRITE PROTECT SWITCHES ARE PROGRAM PROTECTED.
      217                            *                         D3D4  IF NOT = 0, DENOTES ALL TRACKS EQUAL
      218                            *                               TO OR GREATER THAN THE TRACKS
      219                            *                               PROTECTED BY THE WRITE PROTECT SWITCH
      220                            *                               ARE PROGRAM PROTECTED.
      221                            *                        EXAMPLES OF WRITE PROTECTION
      222                            *                        -----------------------------
      223                            *                        (1). H4 = 0F0       DEV ADDR OF RAD
      224                            *                             D5 = 7204      MODEL NO.OF RAD STORAGE UNT
      225                            *                             H6 = 00030012  THIS INDICATES THAT TRACKS
      226                            *                                            0 THRU 95 AND TRACKS 352
      227                            *                                            THRU 511 WILL NOT BE TESTED
      228                            *                                            BECAUSE TO THE PROGRAM
      229                            *                                            THIS AREA IS ASSUMED TO BE
      230                            *                                            WRITE PROTECTED.
      231                            *
      232                            *                        (2). H7 = 0F4       DEV ADDR OF RAD
      233                            *                             D8 = 7202      MODEL NO.OF RAD STORAGE UNT
      234                            *                             H9 = 00040000  THIS INDICATES THAT
      235                            *                                            ALL TRACKS ARE
      236                            *                                            PROTECTED. SINCE A MODEL
      237                            *                                            7202 HAS ONLY 128, NO
      238                            *                                            TESTING COULD TAKE PLACE,
      239                            *                                            THEREFORE D9 IS AN INVALID
      240                            *                                            PARAMETER, AND IT WILL BE
      241                            *                                            REPORTED AS SUCH.
      242                            *
      243                            *                H7 DEVICE ADDRESS OF SECOND RAD
      244                            *
      245                            *                *
      246                            *                *
      247                            *                *
      248                            *
      249                            *                H27 WRITE PROTECT SWITCH SETTINGS OF 8 TH STORAGE UNIT
      250                            *
      251                            *
      252                            *
      253                            *                NO ATTEMPT WILL BE MADE TO READ/WRITE INTO WRITE
      254                            *                PROTECTED AREA OF THE RAD'S , WHENEVER THE PROTECTED
      255                            *                TRACKS ARE SPECIFIED BY H6, H9....H27.
      256                            *
      257                            *                THE TEST VARIATION DIRECTIVE (SEEK) CAN ONLY FURTHER
      258                            *                LIMIT THE AREA OF THE RAD STORAGE UNIT WHICH IS
      259                            *                NOT WRITE PROTECTED.
      260                            *
      261                            *
      262   01 00300    00000439 03  TST0ADDR DATA     TST0
      263                            *         THE DIRECTIVE SELECTS THE COMPREHENSIVE TEST
      264                            *         CONSISTING OF THE FUNCTIONAL TEST (TESTS 0 - 49)
      265                            *         AND THE RANDOM EXERCISER.
      266                            *
      267                            *                 D1 = NUMBER OF ORDER SEQUENCES TO BE EXECUTED
      268                            *                      BY THE RANDOM EXERCISER. (IF D1 = 0, 5000
      269                            *                      ORDER SEQUENCES WILL BE ISSUED).
      270                            *
      271                            *                 D2 = RETRY COUNT FOR RANDOM EXERCISER.
      272                            *
      273                            *                 EXAMPLE: TST0,20000,2
      274                            *                 --------
      275                            *
      276                            *                          (1) THE FUNCTIONAL TEST WILL RUN
      277                            *                              ON ALL DEVICES IN SEQUENCES
      278                            *                              AS DESCRIBED BY 'SYST' DIRECTIVE.
      279                            *
      280                            *                          (2) THE RANDOM EXERCISER WILL DRIVE
      281                            *                              ALL DEVICES CONCURRENTLY UNTIL
      282                            *                              20000 ORDER SEQUENCES HAVE BEEN ISSUED,
      283                            *                              ANY FAILURE WILL BE RETRIED TWICE,
      284                            *
      285                            *
      286   01 00301    00000450 03  TST1ADDR DATA     TST1
      287                            *         THE DIRECTIVE SELECTS THE FUNCTIONAL TEST            TST1,D1,
      288                            *                                                              D2
      289                            *                 D1 = 0  ALL FUNCTIONAL SUB-TESTS ARE EXECUTED
      290                            *                 D1 > 0  THE NO. OF THE FIRST SUBTEST TO BE
      291                            *                         EXECUTED.
      292                            *
      293                            *                 D2 > 0  THE NO. OF THE LAST SUBTEST TO BE
      294                            *                         EXECUTED.
      295                            *
      296                            *                 EXAMPLES: TST1
      297                            *                 ---------
      298                            *                           RUN ALL FUNCTIONAL SUBTESTS ON ALL DEVICES
      299                            *                           DESCRIBED BY THE 'SYST' DIRECTIVE.
      300                            *
      301                            *                           TST1,40,45
      302                            *
      303                            *                           RUN FUNCTIONAL SUBTESTS 40 THRU 45 ON
      304                            *                           ALL DEVICES DESCRIBED BY THE 'SYST'
      305                            *                           DIRECTIVE.
      306                            *
      307   01 00302    00001872 03  TST2ADDR DATA     TST2
      308                            *           THE DIRECTIVE SELECTS THE RANDOM EXERCISER TEST    TST2,D1,
      309                            *                                                              D2
      310                            *                 D1 = NUMBER OF CYCLES TO BE PERFORMED
      311                            *                 D2 = NUMBER OF RETRIES ON AN ERROR, BEFORE
      312                            *                      GOING ON TO NEXT CYCLE.
      313                            *
      314                            *                 EXAMPLE: TST2,500,2
      315                            *                 --------
      316                            *                          THE RANDOM EXERCISER WILL DO CONCURRENTLY
      317                            *                          500 I/O OPERATIONS RANDOM TO THE DEVICES
      318                            *                          DESCRIBED BY THE 'SYST' DIRECTIVE.
      319                            *                          IF ANY I/O OPERATION FAILS IT WILL BE
      320                            *                          RETRIED UP TO THREE TIMES.
      321                            *
      322   01 00303    000019B6 03  TST3ADDR DATA     TST3
      323                            *           THE DIRECTIVE SELECTS ONE UTILITY PROGRAM          TST3,D1,
      324                            *           D1 = 1  SURFACE TEST                         D2,D3,D4   *BOO
      325                            *
      326                            *                 D2 = 0  WRITE AND READ (VERIFY DATA)
      327                            *                 D2 = 1  WRITE ONLY
      328                            *                 D2 = 2  READ ONLY (VERIFY DATA)
      329                            *                 D2 = 3  READ ONLY (NO DATA VERIFICATION)
      330                            *                 D2 = 4  CHECKWRITE
      331                            *
      332                            *                 D3 = NUMBER OF RETRIES ON AN ERROR
      333                            *                                                                   *A01
      334                            *                 D4 = NO. OF READS AFTER WRITE (D2=0 ONLY)         *A01
      335                            *
      336                            *                EXAMPLE: TST3,1,3,0
      337                            *                --------
      338                            *                          READ ALL THE SURFACE OF ALL UNITS DESCRIBED
      339                            *                          BY THE 'SYST' DIRECTIVE, NO RETRY ON ERROR.
      340                            *                          THIS TEST IS VERY USEFUL IN CHECKING FOR
      341                            *                          TRANSMISSION ERRORS FROM A RAD THAT HAS
      342                            *                          CRASHED. BEFORE THE DATA STORED THERE
      343                            *                          IS DESTROYED BY THE RUNNING OF OTHER
      344                            *                          DIRECTIVES IN THIS PROGRAM.
      345                            *
      346                            *
      347                            *                 EXAMPLE: TST3,1,0,3
      348                            *                 --------
      349                            *                          TEST THE SURFACE OF ALL UNITS DESCRIBED
      350                            *                          BY THE 'SYST' DIRECTIVE, BY FIRST
      351                            *                          WRITING AND THEN READING A PATTERN FOR
      352                            *                          THE UNITS.  RETRY WRITE OR READ
      353                            *                          OPERATION OR ERROR UP TO THREE TIMES.
      354                            *
      355                            *                 EXAMPLE: TST3,1,0,0,4                             *A01
      356                            *                 -------                                           *A01
      357                            *                 WRITE ALL SURFACES DESCRIBED BY THE 'SYST'        *A01
      358                            *                 DIRECTIVE. READ EACH SURFACE FOUR TIMES.          *A01
      359                            *                 NO RETRIES ON ERROR.                              *A01
      360                            *                                                                   *A01
      361   01 00304    00001762 03  DATAADDR DATA     :DATA  (DATA)
      362                            *           THE DIRECTIVE SELECTS THE PATTERN TYPE USED BY     DATA,D1,
      363                            *           THE RAD UTILITY PROGRAM.                           H2,H3*BOO
      364                            *
      365                            *                 D1 = 0  FIXED PATTERN
      366                            *                 D1 = 1  INCREMENTAL PATTERN
      367                            *                 D1 = 2  RANDOM PATTERN
      368                            *                 D1 = 3  CURRENT SEEK ADDRESS
      369                            *                 H2 =    PATTERN SEED (D1 =0,1,2)
      370                            *                 H3 =    INCREMENTING CONSTANT (D1 = 1 ONLY)
      371                            *
      372                            *                 EXAMPLES: DATA,2,31415926                         *B00
      373                            *                 ---------
      374                            *                          GENERATE RANDOM PATTERN
      375                            *
      376                            *                           DATA,1,00010203,04040404
      377                            *
      378                            *                           GENERATE INCREMENTAL PATTERN
      379                            *                           OF '000102030405060708....FCFDFEFF...'
      380                            *
      381                            *
      382   01 00305    00001775 03  SEEKADD  DATA     SEEK
      383                            *           THIS DIRECTIVE DEFINES THE STARTING TRACK (BAND) SEEK,D1*BOO
      384                            *           AND SECTOR ADDRESS, THE ENDING TRACK (BAND) AND  D2,D3, *BOO
      385                            *           SECTOR ADDRESS.                                  D4     *BOO
      386                            *
      387                            *                 D1 =     THE STARTING TRACK (BAND) ADDRESS        *BOO
      388                            *                 D2 =    THE STARTING SECTOR ADDRESS
      389                            *                 D3 =     THE ENDING TRACK (BAND) ADDRESS          *BOO
      390                            *                 D4 =    THE ENDING SECTOR ADDRESS
      391                            *
      392                            *                 EXAMPLE: SEEK,1,4,7,5
      393                            *
      394                            *                          LIMIT THE USABLE SURFACE AREA, TO
      395                            *                          BEGAN AT TRACK (BAND) 1 SECTOR 4 AND
      396                            *                          END INCLUDING TRACK (BAND)7 SECTOR 5.
      397                            *
      398   01 00306    000017AE 03  MEMADDR  DATA     :MEM (MEM)                                        *A01
      399                            *           THIS DIRECTIVE WILL ENABLE THE USER TO DEFINE A         *A01
      400                            *           MEMORY AREA THAT WILL BE USED BY THE 'TST2' AND 'TST3'  *A01
      401                            *           DIRECTIVES AS AN I/O BUFFER AREA.                       *A01
      402                            *                                                                   *A01
      403                            *                 H1 - FIRST LOCATION OF I/O BUFFER AREA            *A01
      404                            *                 H2 - LAST LOCATION OF I/O BUFFER AREA             *A01
      405                            *                                                                   *A01
      406                            *                 EXAMPLE: MEM                                      *A01
      407                            *                 --------                                          *A01
      408                            *                        THE DIRECTIVE WILL REPORT 'SPECIFIED I/O   *A01
      409                            *                        AREA NOT AVAILABLE', AND THEN REPORT THE   *A01
      410                            *                        AREAS THAT ARE AVAILABLE.  THE MEMORY AREA *A01
      411                            *                        BETWEEN THE DIAGNOSTIC AND THE DPM WILL BE *A01
      412                            *                        ASSIGNED BY DEFAULT.                       *A01
      413                            *                                                                   *A01
      414                            *                 EXAMPLE: MEN,5000,C000                            *A01
      415                            *                 --------                                          *A01
      416                            *                 MEMORY AREA FROM 5000 TO C000 WILL BE ASSIGNED    *A01
      417                            *                 AS AN I/O BUFFER AREA.                            *A01
      418                            *                                                                   *A01
      419   01 00307    00001815 03  LM1TADDR DATA     LIMT                                              *A01
      420                            *           THIS DIRECITVE ALLOWS THE USER TO LIMIT PROGRAM         *A01
      421                            *           PRINTOUTS.                                              *A01
      422                            *                                                                   *A01
      423                            *                 D1=1 LIMIT COMPARE ERROR PRINTOUTS/SECTOR TO      *A01
      424                            *                       THE VALVE EXPRESSED BY D2.                  *A01
      425                            *                   D2=0  PRINT OUT WILL NOT BE LIMITED.            *A01
      426                            *                   D2>0  VALUE THE PRINTOUT WILL BE LIMITED TO.    *A01
      427                            *
      428                            *                 D1=2  PASS COUNT.                                 *B01
      429                            *                   D2 = 0 INHIBIT PRINT-OUT OF PASS COUNTER.       *B01
      430                            *                   D2 > 0 NUMBER OF PASSES AFTER WHICH ACCUMULATED *B01
      431                            *                          PASS COUNT WILL PRINT OUT.               *B01
      432                            *                   D3 = N TOTAL NUMBER OF PASSES TO BE COMPLETED.  *B01
      433                            *                                                                   *A01
      434                            *                 EXAMPLE: LIMT,1                                   *A01
      435                            *                 --------                                          *A01
      436                            *                 NO LIMIT PLACED ON COMPARE ERROR PRINTOUTS.       *A01
      437                            *                                                                   *A01
      438                            *                 EXAMPLE: LIMT,1,3                                 *A01
      439                            *                 -------                                           *A01
      440                            *                 COMPARE ERROR PRINTOUTS ARE LIMITED TO 3 PER      *A01
      441                            *                 SECTOR.                                           *A01
      442                            *                                                                   *B01
      443                            *                 EXAMPLE: LIMT,2,20,500                            *B01
      444                            *                 --------                                          *B01
      445                            *                 PASS COUNT MESSAGE WILL PRINT OUT EVERY 20 PASSES *B01
      446                            *                 UNTIL A TOTAL OF 500 PASSES HAVE BEEN COMPLETED.  *B01
      447                            *                                                                   *A01
      448                            *
      449                            *                 FIGURE 1
      450                            *
      451                            *                        WRITE PROTECTION
      452                            *                 MODELS 7202,7203,7204 AND 7232 ONLY
      453                            *                 PARAMETER FOR SYST DIRECTIVE
      454                            *                 (H6,H9,H12,H15,H18,H21,H24,H27 = 00D1D200D3D4)
      455                            *--------------------------------------------------------------------
      456                            *           D 1 D 2           *         *           D 3 D 4           *
      457                            *--------------*--------------*---------*--------------*--------------*
      458                            *LOW LIMIT     * THE FOLLOWING*  TRACK  *UPPER LIMIT   *THE FOLLOWING *
      459                            *WRITE PROTECT * LOW LIMIT    *AVAILABLE*WRITE PROTECT *UPPER LIMIT   *
      460                            *SWITCH SPEC   * TRACKS ARE   * (MODEL) *SWITCH SPEC   *TRACKS ARE    *
      461                            *              * PROTECTED    *         *              *PROTECTED     *
      462                            *--------------*--------------*---------*--------------*--------------*
      463                            *     0        *  NONE        * 7 7 7 7 *      0       *  NONE        *
      464                            *     1        *  0-31        * 2 2 2 2 *      1       *  ALL         *
      465                            *     2        *  0-63        * 0 0 0 3 *      2       *  32-511      *
      466                            *     3        *  0-95        * 2 3 4 2 *      3       *  64-511      *
      467                            *     4        *  0-127       * - - - - *      4       *  96-511      *
      468                            *     5        *  0-159       *   - - - *      5       * 128-511      *
      469                            *     6        *  0-191       *   - - - *      6       * 160-511      *
      470                            *     7        *  0-223       *   - - - *      7       * 192-511      *
      471                            *     8        *  0-255       *   - - - *      8       * 224-511      *
      472                            *     9        *  0-287       *     - - *      9       * 256-511      *
      473                            *    10        *  0-319       *     - - *     10       * 288-511      *
      474                            *    11        *  0-351       *     - - *     11       * 320-511      *
      475                            *    12         * 0-383       *     - - *     12       * 352-511      *
      476                            *    13         * 0-415       *     - - *     13       * 384-511      *
      477                            *    14         * 0-447       *     - - *     14       * 416-511      *
      478                            *    15         * 0-479       *     - - *     15       * 448-511      *
      479                            *    16         * 0-511       *     - - *     16       * 480-511      *
      480                            *----------------------------------------------------------------------
      481                            *                 FIGURE 2
      482                            *                        WRITE PROTECTION
      483                            *                        MODEL 7212 ONLY
      484                            *                 PARAMETER FOR SYST DIRECTIVE
      485                            *                 (H6,H9,H12,H15,H18,H21,H24,H27 = 00D1D200D3D4)
      486                            *           D 1 D 2           *         *           D 3 D 4           *
      487                            *--------------*--------------*---------*--------------*--------------*
      488                            *LOW LIMIT     * THE FOLLOWING*  BAND   *UPPER LIMIT   *THE FOLLOWING *
      489                            *WRITE PROTECT * LOW LIMIT    *AVAILABLE*WRITE PROTECT *UPPER LIMIT   *
      490                            *SWITCH SPEC   * BANDS ARE    * (MODEL) *SWITCH SPEC   *BANDS ARE     *
      491                            *              * PROTECTED    *         *              *PROTECTED     *
      492                            *--------------*--------------*---------*--------------*--------------*
      493                            *     0        *  NONE        *       7 *      0       *  NONE        *
      494                            *     1        *  0-3         *       2 *      1       *  ALL         *
      495                            *     2        *  0-7         *       1 *      2       *   4-63       *
      496                            *     3        *  0-11        *       2 *      3       *   8-63       *
      497                            *     4        *  0-15        *       - *      4       *  12-63       *
      498                            *     5        *  0-19        *       - *      5       *  16-63       *
      499                            *     6        *  0-23        *       - *      6       *  20-63       *
      500                            *     7        *  0-27        *       - *      7       *  24-63       *
      501                            *     8        *  0-31        *       - *      8       *  28-63       *
      502                            *     9        *  0-35        *       - *      9       *  32-63       *
      503                            *    10        *  0-39        *       - *     10       *  36-63       *
      504                            *    11        *  0-43        *       - *     11       *  40-63       *
      505                            *    12        *  0-47        *       - *     12       *  44-63       *
      506                            *    13        *  0-51        *       - *     13       *  48-63       *
      507                            *    14        *  0-55        *       - *     14       *  52-63       *
      508                            *    15        *  0-59        *       - *     15       *  56-63       *
      509                            *    16        *  0-63        *       - *     16       *  60-63       *
      510                            *----------------------------------------------------------------------
      511                            *
      512                            * OPERATION MODE
      513                            *---------------
      514                            *
      515                            *            PROGRAM-OPERATOR COMMUNICATION IS ACCOMPLISHED BY
      516                            *            USING THE INPUT/OUTPUT DEVICE SPECIFIED BY
      517                            *            THE OPERATOR.
      518                            *
      519                            *            DIRECTIVES ARE ENTERED AND TEST INITIATED
      520                            *            THRU THE MESSAGE INPUT DEVICE (MID).
      521                            *
      522                            *            THE PROGRAM OUTPUTS MESSAGES THRU THE MESSAGE
      523                            *            OUTPUT DEVICE (MOD).
      524                            *
      525                            *            (REFER TO DIAGNOSTIC PROGRAM MONITOR  MANUAL 901649
      526                            *             FOR DESCRIPTION OF DIRECTIVES 'MID' AND 'MOD').
      527                            *
      528                            *
      529                            *
      530                            * START-RESTART PROCEDURE
      531                            *
      532                            * START     AFTER A SUCCESS LOAD, THE PROGRAM TITLE WILL BE
      533                            *           DISPLAY ON THE MESSAGE OUTPUT DEVICE AND THEN
      534                            *           CONTROL WILL BE RETURNED TO THE DPM.  DIRECTIVES
      535                            *            MAY BE INITIATED BY ENTERING THEM VIA THE MESSAGE INPUT*BOO
      536                            *           DEVICE (REFER TO DPM MANUAL FOR INITIATING PROCEDURE).
      537                            *            IF THE SYSTEM IS ANY OTHER CONFIGURATION THAN          *BOO
      538                            *           A MODEL 7201 CONTROLLER WITH A 7202 STORAGE UNIT
      539                            *           AND AT DEVICE ADDRESS X'0F0' THE 'SYST'  DIRECTIVE
      540                            *           MUST BE ENTERED INITIALLY,TO DESCRIBE THE
      541                            *           HARDWARE CONFIGUATION TO BE TESTED.
      542                            *           ONCE ENTERED, THE 'SYST'DIRECTIVE NEED NOT BE REENTERED.
      543                            *           UNTIL THE SYSTEM CONFIGUATION TO BE TESTED IS ALTERED.
      544                            *
      545                            *
      546                            *
      547                            * RESTART
      548                            *
      549                            * RESTART OR RECOVERY MAY BE ACCOMPLISHED BY THE FOLLOWING PROCEDURE*BOO
      550                            *
      551                            *            1.  PRESSING THE CONTOL PANEL INTERRUPT SWITCH.
      552                            *                (EXCEPT IN THE CASE OF A WATCH DOG TIMER TRAP)
      553                            *
      554                            *            2.  A. PLACING THE COMPUTE SWITCH ON THE PCP TO 'IDLE'
      555                            *                B. PRESS THE 'SYST RESET' SWITCH ON THE PCP
      556                            *                C. PLACING THE COMPUTE SWITCH ON  THE PCP TO 'RUN'
      557                            *
      558                            *  TERMINATION INDICATION
      559                            *
      560                            *            THE TERMINATION OF A DIRECTIVE IS INDICATED WHEN
      561                            *            CONTROL IS RETURNED TO THE MESSAGE INPUT DEVICE.
      562                            *
      563                            *
      564                            *
      565                            * SUCCESS-FAILURE INDICATIONS
      566                            * ---------------------------
      567                            *
      568                            * WAITS     THE PROGRAM COMES TO A WAIT CONDITION:
      569                            *
      570                            *                 1. AFTER ERROR MESSAGE PRINTOUT DURING THE
      571                            *                    EXECUTION OF FUNCTIONAL TESTS (SSW3 = 0).
      572                            *
      573                            *                 2. AFTER THE COMPLETION OF A DIRECTIVE (SSW3 = 0).
      574                            *
      575                            *                 3. AFTER WATCHDOG TIMER TRAPS, IF THE I/O RESET
      576                            *                    DIRECTIVE WAS NOT EXECUTED OR THE I/O RESET
      577                            *                    JUMPER WAS NOT INSTALLED.
      578                            *
      579                            *
      580                            * LOOPS           THE PROGRAM LOOPS ON AN INSTRUCTION SEQUENCE
      581                            *                 PRODUCED BY AN ERROR DURING FUNCTIONAL TEST
      582                            *                 EXECUTION (SSW1=1,SSW3=1) OR AT THE COMPLETION
      583                            *                 OF A DIRECTIVE (SSW1=1,SSW3=1).
      584                            *
      585                            *
      586                            *
      587                            *
      588                            * MESSAGE PRINTOUTS
      589                            *
      590                            *
      591                            *             1.  FUNCTIONAL TEST
      592                            *
      593                            *                 THE STANDARD ERROR MESSAGES
      594                            *
      595                            *                    ERR NO. DDDD LOC XXXX
      596                            *
      597                            *                 ARE DEFINED IN THE FAULT INDEX (DDDD = INDEX).
      598                            *
      599                            *                 ALL OTHER MESSAGES PRECEDING OR FOLLOWING  THE
      600                            *                 STANDARD ERROR MESSAGE ARE SELF EXPLANETORY.
      601                            *
      602                            *             2.  RANDOM EXERCISOR AND UTILITY TESTS.
      603                            *
      604                            *                    ALL MESSAGES ARE SELF EXPLANETORY.
      605                            *
      606                            *             3.  DPM ERROR MESSAGES ARE DEFINED IN THE             *BOO
      607                            *                 DPM MANUAL.
      608                            *
      609                            *
      610                            * PROGRAM TEST DESCRIPTION
      611                            *-------------------------
      612                            *           THE FOLLOWING IS A DESCRIPTION OF THE TESTS CONTAINED
      613                            *           IN THE RAD TEST PROGRAM.  OPERATOR INTERVENTION
      614                            *           (WHERE REQUIRED) IS ALSO DESCRIBED.
      615                            *
      616                            * COMPREHENSIVE TEST (TST0)
      617                            *
      618                            *            THE COMPREHENSIVE TEST CONSISTS OF THE FUNCTIONAL
      619                            *            TEST AND THE RANDOM EXERCISER TEST.
      620                            *
      621                            * FUNCTIONAL TEST (TST1)
      622                            *
      623                            *            THE FUNCTIONAL TEST PERFORMS A SYSTEMATIC TEST OF
      624                            *            ALL LOGIC FUNCTIONS OF CONTROLLER AND ALL
      625                            *            STORAGE UNITS SPECIFIED BY THE 'SYST' DIRECTIVE.
      626                            *            THE FUNCTIONAL TEST CONSISTS OF A NUMBER OF
      627                            *            SUBTESTS WHICH MAY BE SELECTED INDIVIDUALLY OR
      628                            *            IN GROUPS.
      629                            *
      630                            *            WHEN A FAULT HAS BEEN DETECTED. AUTOMATIC ERROR
      631                            *            LOOPING THRU SENSE SWITCH CONTROL IS IMPLEMENTED
      632                            *            WHEN EVER POSSIBLE. ERROR LOOPING WILL NOT BE
      633                            *            PREFORMED IF THE CAUSE OF THE FAULT IS A FLAW IN
      634                            *            THE RECORDING MEDIA.
      635                            *
      636                            *            FOR A DESCRIPTION OF THE INDIVIDUAL SUBTESTS REFER
      637                            *            TO THE FUNCTIONAL TEST SECTION IN THE PROGRAM
      638                            *            LISTING. EACH SUBTEST IS PRECEDED BY A TEST
      639                            *            DESCRIPTION.
      640                            *
      641                            * RANDOM EXERCISER (TST2)                                           *BOO
      642                            *
      643                            *           THIS DIRECTIVE PROVIDES A MEANS OF OPERATING A RAD
      644                            *           STORAGE SYSTEM WITH PSEUDO RANDOM, STORAGE UNIT
      645                            *           SELECTION, ORDER SEQUENCE, DATA PATTERN, AND I/O AREAS,
      646                            *           FOR THE PURPOSE OF DETECTING INTERMITTENT FAILURES.
      647                            *           THE RECORDING MEDIA IS INITIALIZED WITH A PSEUDO
      648                            *           RANDOM PATTERN BEFORE THE EXERCISER PORTION OF THE TEST
      649                            *           IS CALLED. ONCE STARTED, THE EXERCISER WILL EXECUTE FOR A
      650                            *           SPECIFIED NUMBER OF PASSES OR UNTIL TERMINATED BY
      651                            *           OPERATOR INTERVENTION.  THE RANDOM EXERCISER PROVIDES FOR
      652                            *           A RETRY ON ERROR,BUT NO CONTINUOUS LOOPING ON ERROR WILL
      653                            *           BE DONE.  THIS DIRECTIVE WILL EXERCISE ALL DEVICES      *BOO
      654                            *           DESCRIBED BY THE 'SYST' DIRECTIVE.
      655                            *
      656                            *
      657                            *
      658                            * UTILITY TEST (TST3)                                               *BOO
      659                            *
      660                            *           THIS DIRECTIVE PROVIDES THE USER A MEANS OF TESTING
      661                            *           A DEVICE(S) SURFACE AREA WITH A WRITE/READ, A WRITE,
      662                            *           A READ WITH DATA VERIFICATION, A READ WITHOUT DATA
      663                            *           VERIFICATION AND A CHECKWRITE OPERATION.
      664                            *
      665                            *
      666                            *
      667                            *                 ***************
      668                            *                 *             *
      669                            *                 * FAULT INDEX *
      670                            *                 *             *
      671                            *                 ***************
      672                            *
      673                            *
      674                            * FAULT INDEX DESCRIPTION - FUNCTIONAL SUBTESTS
      675                            * ---------------------------------------------
      676                            * THE FAULT INDEX CONTAINS A LIST OF ERROR NUMBERS AND A BRIEF
      677                            * DESCRIPTION OF EACH ERROR.  THE NUMBERS ARE ARRANGED IN AN ASCENDING
      678                            * SEQUENCE. ALL NUMBERS LESS THAN 4900 REFER TO ERRORS IN FUNCTIONAL
      679                            * SUBTESTS.  THE FIRST TWO DIGITS ARE USED TO IDENTIFY THE SUBTEST.  THE
      680                            * LAST TWO DIGITS REFER TO INDIVIDUAL ERRORS WITHIN A SUBTEST.  ALL
      681                            * OTHER ERROR NUMBERS (N =>4900) REFER TO ERRORS IN SUBROUTINES USED BY
      682                            * THE FUNCTIONAL TESTS.  THESE ERROR NUMBERS DO NOT IDENTIFY A FUNC-
      683                            * TIONAL SUBTEST.
      684                            *
      685                            * FUNCTIONAL SUBTEST DESCRIPTION
      686                            * ------------------------------
      687                            * EACH ERROR MESSAGE CONSISTS OF TWO PARTS.  THE ERROR NUMBER REFERS TO
      688                            * AN ENTRY IN THE FAULT INDEX, THE LOCATION NUMBER REFERS TO THE MEMORY
      689                            * LOCATION IN THE LISTING (ONLY IF PROGRAM IS NOT RELOCATED) WHERE THE
      690                            * ERROR OCCURRED.  THE LOCATION NUMBER IS INTENDED TO BE USED TO LOCATE
      691                            * A FUNCTIONAL SUBTEST IN THE LISTING.  PRECEDING EACH FUNCTIONAL SUB-
      692                            * TEST IS A BRIEF  DESCRIPTION OF THE TEST.  THE DESCRIPTION OF THE
      693                            * ERROR NUMBER AND THE DESCRIPTION OF SUBTEST SHOULD BE SUFFICINT TO
      694                            * DEFINE THE CURRENT OPERATION AND NATURE OF THE FAILURE.  ADDITIONAL
      695                            * INFORMATION ABOUT THE CURRENT TEST CAN BE FOUND IN THE COMMENT FIELD
      696                            * OF THE LISTING.
      697                            *
      698                            * DESCRIPTIVE ERROR MESSAGES
      699                            * --------------------------
      700                            * ERROR NUMBERS CAN BE SUCCEEDED BY DESCRIPTIVE MESSAGES WHICH WILL AID
      701                            * IN THE ISOLATION OF FAILURES.
      702                            *
      703                            * XX00   WATCH DOG TIMER TRAP (XX INDICATED THE TEST THE TRAP OCCUR
      704                            *        IN ).
      705                            *
      706                            * XX90   THE 1ST TWO DIGITS 'XX' OF ERROR NO. REFER TO THE TEST     *BOO
      707                            *        BEING PERFORMED, WHEN A CONTROL FAULT WAS DETECTED         *BOO
      708                            *        BY THE TEST MODE RESET SUBROUTINE.                         *BOO
      709                            *                                                                   *BOO
      710                            * XX91   THE 1ST TWO DIGITS 'XX' OF ERROR NO. REFER TO THE TEST     *BOO
      711                            *        BEING PERFORMED, WHEN A CONTROL FAULT WAS DETECTED         *BOO
      712                            *        BY THE SET TEST MODE 1 SUBROUTINE.                         *BOO
      713                            *                                                                   *BOO
      714                            * XX92   THE 1ST TWO DIGITS 'XX' OF ERROR NO. REFER TO THE TEST     *BOO
      715                            *        BEING PERFORMED,WHEN A CONTROL FAULT WAS DETECTED          *BOO
      716                            *        BY THE SET TEST MODE 2 SUBROUTINE.                         *BOO
      717                            *                                                                   *BOO
      718                            * XX95   THE 1ST TWO DIGITS 'XX' OF ERROR NO. REFER TO THE TEST     *BOO
      719                            *        BEING PERFORMED, WHEN A CONTROL FAULT WAS DETECTED DURING  *BOO
      720                            *        THE EXECUTION OF THE 'SEEK' SUBROUTINE.                    *BOO
      721                            *                                                                   *BOO
      722                            * XX96   THE 1ST TWO DIGITS 'XX' OF ERROR NO. REFER TO THE TEST     *BOO
      723                            *        BEING PERFORMED, WHEN A CONTROL FAULT WAS DETECTED DURING  *BOO
      724                            *        THE EXECTION OF THE 'WRITE' SUBROUTINE.                    *BOO
      725                            *                                                                   *BOO
      726                            * XX97   THE 1ST TWO DIGITS 'XX' OF ERROR NO. REFER TO THE TEST     *BOO
      727                            *        BEING PERFORMED, WHEN A CONTROL FAULT WAS DETECTED DURING  *BOO
      728                            *        THE EXECTION OF THE 'SENSE' SUBROUTINE.                    *BOO
      729                            *
      730                            * 0115   HIO DID NOT RESET IP. NO RESET GENERATED.
      731                            *
      732                            * 0210   HIO, CC1 WAS '0' S/B '1':
      733                            *        A. CONDITION CODE ERROR.
      734                            *        B. DEVICE ADDRESS RECOGNITION WHERE ONE SHOULD NOT EXIST.
      735                            *
      736                            * 0211   HIO, CC2 WAS A '1'.
      737                            *        A. CONDITION CODE ERROR.
      738                            *        B. CONTROLLER SHOULD INDICATE CONTROLLER ADDRESS RECOGNITION,
      739                            *           BUT NOT DEVICE ADDRESS RECOGNITION.
      740                            *
      741                            * 0310   HIO, CC1 WAS A '1'.
      742                            *        A. CONDITION CODE ERROR.
      743                            *        B. I/O ADDRESS NOT RECOGNIZED.
      744                            *
      745                            * 0311   HIO, CC2 WAS A '1'.
      746                            *        A. CONDITION CODE ERROR.
      747                            *        B. I/O NOT RECOGNIZED.
      748                            *        C. I/O ADDRESS RECOGNIZED AND THE RAD WAS 'BUSY' WHEN THE
      749                            *           HALT OCCURED.
      750                            *
      751                            * 0312   DEVICE STATUS BYTE ERROR DURING EXECUTION OF HIO INSTRUCTION,
      752                            *        ONLY 'DEVICE AUTOMATIC' BIT SHOULD BE SET.
      753                            *
      754                            * 0410   TIO, CC1 WAS A '1'.
      755                            *        A. CONDITION CODE ERROR.
      756                            *        B. I/O ADDRESS NOT RECOGNIZED.
      757                            *
      758                            *
      759                            * 0411   TIO, CC2 WAS A '1'.
      760                            *        A. CONDITION CODE ERROR.
      761                            *        B. I/O ADDRESS RECOGNIZED BUT SIO CAN NOT CURRENTLY BE ACCEPTED
      762                            *        C. I/O ADDRESS NOT RECOGNIZED.
      763                            *
      764                            *
      765                            *
      766                            * 0412   DEVICE STATUS BYTE ERROR DURING EXECUTION OF SIO INSTRUCTION;
      767                            *        ONLY 'DEVICE AUTOMATIC' BIT SHOULD BE SET.
      768                            *
      769                            *
      770                            * 0510   TDV, CC1 WAS A '1'.
      771                            *        A. CONDITION CODE ERROR.
      772                            *        B. I/O ADDRESS NOT RECOGNIZED.
      773                            *
      774                            * 0511   TDV, CC2 WAS A '1'.
      775                            *        A. CONDITION CODE ERROR.
      776                            *        B. I/O ADDRESS RECOGNIZED BUT PREVIOUS OPERATION WAS TERMI-
      777                            *           NATED BECAUSE OF A FAULT CONDITION.
      778                            *        C. I/O ADDRESS NOT RECOGNIZED.
      779                            *
      780                            * 0512   TDV STATUS BITS WERE NOT RETURNED AS ALL ZEROS.
      781                            *
      782                            * 0610   SIO, CC1 WAS A '1'.
      783                            *        A. CONDITION CODE ERROR.
      784                            *        B. I/O ADDRESS NOT RECOGNIZED.
      785                            *
      786                            * 0611   SIO, CC2 WAS A '1'.
      787                            *        A. CONDITION CODE ERROR.
      788                            *        B. I/O ADDRESS RECOGNIZED BUT SIO NOT ACCEPTED (I.E., RAD
      789                            *           WAS ALREADY "BUSY" OR A DEVICE INTERRUPT IS PENDING).
      790                            *        C. I/O ADDRESS NOT RECOGNIZED.
      791                            *
      792                            * 0612   DEVICE STATUS BYTE ERROR DURING EXECUTION OF SIO INSTRUCTION;
      793                            *        ONLY 'DEVICE AUTOMATIC' BIT SHOULD BE SET.
      794                            *
      795                            * 0613   BYTE COUNT WAS REDUCED DURING EXECUTION OF 'STOP' ORDER.
      796                            *
      797                            * 0615   STATUS BYTES OF TDV WERE NOT RETURNED AS ALL ZEROS AFTER
      798                            *        THE EXECUTION OF THE SIO.
      799                            *
      800                            * 0616   RAD WAS IN 'BUSY' STATE WHEN IT WAS HALTED.
      801                            *
      802                            * 0617   DEVICE STATUS BYTE ERROR DURING EXECUTION OF HIO INSTRUCTION.
      803                            *        ONLY 'UNUSUAL END', AND 'DEVICE AUTOMATIC' BITS SHOULD BE SET.
      804                            *
      805                            * 0619   'UNUSUAL END' BIT WAS NOT RESET BY THE EXECUTION OF HIO
      806                            *        INSTRUCTION.
      807                            *
      808                            * 0710   SIO, CC2 WAS A '1'.
      809                            *        A. CONDITION CODE ERROR.
      810                            *        B. I/O ADDRESS NOT RECOGNIZED.
      811                            *
      812                            * 0711   BYTE COUNT WAS REDUCED DURING EXECUTION OF BACK TO BACK
      813                            *        SIO INSTRUCTIONS.
      814                            *
      815                            * 0712   DEVICE STATUS BYTE ERROR DURING EXECUTION OF SIO INSTRUCTION;
      816                            *        ONLY 'DEVICE AUTOMATIC' AND 'UNUSUAL END' BITS SHOULD BE SET.
      817                            *
      818                            * 0810   DEVICE STATUS BYTE ERROR DURING EXECUTION OF TIO INSTRUCTION;
      819                            *        ONLY 'DEVICE AUTOMATIC' AND 'UNUSUAL END' BITS SHOULD BE SET.
      820                            *
      821                            * 0811   TIO STATUS BYTE, INTERRUPT PENDING WAS NOT REPORTED.
      822                            *
      823                            * 0812   TIO, CC2 WAS A '0'.
      824                            *        A. CODITION CODE ERROR.
      825                            *        B. I/O ADDRESS RECOGNIZED AND SIO CAN CURRENTLY BE ACCEPTED
      826                            *           (I.E., RAD IS IN THE 'READY' CONDITION WITH NO DEVICE
      827                            *           INTERRUPT PENDING).
      828                            *        C. I/O ADDRESS NOT RECOGNIZED.
      829                            *
      830                            * 0813   OPERATIONAL STATUS BYTE ERROR DURING EXECUTION OF TIO INSTRUC-
      831                            *        TION; NO BITS SHOULD BE SET.
      832                            *
      833                            * 0814   NO INTERRUPT OCCURRED ALTHOUGH ONE WAS INDICATED PENDING.
      834                            *
      835                            * 0815   TDV, CC2 WAS A '1'
      836                            *        A. CONDITION CODE ERROR.
      837                            *        B. I/O ADDRESS RECOGNIZED OPERATION WAS TERMINATED BECAUSE OF
      838                            *           A FAULT CONDITION.
      839                            *
      840                            * 0816   TDV STATUS BITS WERE NOT RETURNED AS ALL ZEROS.
      841                            *
      842                            * 0817   'INTERRUPT PENDING' BIT IN THE TIO STATUS WAS NOT RESET BY A
      843                            *        HIO INSTRUCTION.
      844                            *
      845                            * 0818   INTERRUPT WAS PENDING AFTER IT SHOULD HAVE BEEN CLEAR BY AN HIO
      846                            *        INSTRUCTION. (ERROR MAY BE CAUSED BY NOT HAVING HIO RESET MOD
      847                            *        IN IOP).
      848                            *
      849                            * 0910   DEVICE STATUS BYTE ERROR DURING EXECUTION TIO INSTRUCTION;
      850                            *        ONLY 'DEVICE AUTOMATIC','INTERRUPT PENDING' AND 'UNUSUAL
      851                            *        END' BITS SHOULD BE SET.
      852                            *
      853                            * 0911   INTERRUPT PENDING BIT WAS NOT SET DURING EXECUTION OF TIO
      854                            *        INSTRUCTION.
      855                            *
      856                            * 0912   TIO, CC2 WAS A '0'.
      857                            *        A. CONDITION CODE ERROR.
      858                            *        B. I/O ADDRESS RECOGNIZED AND SIO CAN CURRENTLY BE ACCEPTED
      859                            *           (I.E., RAD IS IN THE 'READY' CONDITION WITH NO DEVICE
      860                            *           INTERRUPT PENDING).
      861                            *
      862                            * 0913   NO INTERRUPT OCCURRED ALTHOUGH ONE WAS INDICATED AS PENDING.
      863                            *
      864                            * 0914   THE AIO INSTRUCTION DID NOT CLEAR THE PENDING INTERRUPT.
      865                            *
      866                            * 0915   AIO, CC1 WAS A '1' S/B '0'.
      867                            *        A. CONDITION CODE ERROR.
      868                            *        B. NO INTERRUPT RECOGNITION.
      869                            *        INSTRUCTION.
      870                            *
      871                            * 0916   DEVICE ADDRESS RETURNED BY THE AIO INSTRUCTION DOES NOT
      872                            *        COMPARE WITH EXPECTED DEVICE ADDRESS.
      873                            *
      874                            * 0917   AIO, CC1 WAS A '0' S/B '1'.
      875                            *        A. CONDITION CODE ERROR.
      876                            *        B. ABNORMAL INTERRUPT NOT DETECTED.
      877                            *
      878                            * 0918   AIO STATUS BYTE ERROR DURING EXECUTION OF AIO INSTRUCTION;
      879                            *        'UNUSUAL END' INTERRUPT BIT SHOULD BE SET.
      880                            *
      881                            * 0919   'INTERRUPT PENDING' BIT OF TIO WAS NOT RESET BY AN AIO.
      882                            *
      883                            * 1010   SEEK ORDER, FLAG HTE, BYTE COUNT EQUALS 2.
      884                            *        CHECK ERROR MESSAGE FOR TYPE OF FAILURES.
      885                            *
      886                            * 1015   THE DATA WAS ALTERED IN THE OUTPUT BUFFER BY THE SEEK OPERATION
      887                            *
      888                            * 1020   SEEK ORDER, FLAG IUE, BYTE COUNT EQUALS 2.
      889                            *        CHECK ERROR MESSAGE FOR TYPE OF FAILURES.
      890                            *
      891                            * 1030   SEEK ORDER, FLAG IZC, BYTE COUNT EQUALS 2.
      892                            *        CHECK ERROR MESSAGE FOR TYPE OF FAILURES.
      893                            *
      894                            * 1040   SEEK ORDER, FLAG ICE, BYTE COUNT EQUALS 2.
      895                            *        CHECK ERROR MESSAGE FOR TYPE OF FAILURES.
      896                            *
      897                            *
      898                            *        *** ERRORS 1110 -1130 DO NOT APPLY TO HIGH SPEED RADS ***
      899                            *
      900                            * 1110   SEEK ORDER, FLAG IUE, BYTE COUNT EQUALS 1.
      901                            *        CHECK ERROR MESSAGE FOR TYPE OF FAILURES.
      902                            *
      903                            * 1115   THE DATA WAS ALTERED IN THE OUTPUT BUFFER BY THE SEEK OPERATION
      904                            *
      905                            * 1120   SEEK ORDER, FLAG HTE, BYTE COUNT EQUALS 1.
      906                            *        CHECK ERROR MESSAGE FOR TYPE OF FAILURES.
      907                            *
      908                            * 1130   SEEK ORDER, FLAG ICE, BYTE COUNT EQUALS 1.
      909                            *        CHECK ERROR MESSAGE FOR TYPE OF FAILURES.
      910                            *
      911                            *
      912                            *        *** ERROR 1210 -1240 DO NOT APPLY TO THE HIGH SPEED RADS ***
      913                            *
      914                            *        *** ERRORS 1210 - 1240 WILL BE REPORTED IF A EXTENDED       ***
      915                            *        *** PERFORMANCE OR MEDIUM SPEED RAD IS CONNECTED TO A SIOP  ***
      916                            *
      917                            * 1210   SEEK ORDER, FLAG ICE, BYTE COUNT EQUALS 3.
      918                            *        CHECK ERROR MESSAGE FOR TYPE OF FAILURES.
      919                            *
      920                            * 1215   DATA WAS ALTERED IN THE OUTPUT BUFFER BY THE SEEK OPERATION.
      921                            *
      922                            * 1220   SEEK ORDER, FLAG HTE, BYTE COUNT EQUALS 3.
      923                            *        CHECK ERROR MESSAGE FOR TYPE OF FAILURES.
      924                            *
      925                            * 1230   SEEK ORDER, FLAG IUE, BYTE COUNT EQUALS 3.
      926                            *        CHECK ERROR MESSAGE FOR TYPE OF FAILURES.
      927                            *
      928                            * 1240   SEEK ORDER, FLAG IZC, BYTE COUNT EQUALS 3.
      929                            *        CHECK ERROR MESSAGE FOR TYPE OF FAILURES.
      930                            *
      931                            * 1310   SENSE TEST, FLAG UE, BYTE COUNT = 3 (MODEL 7201,7231),
      932                            *        =4 (MODEL 7211).
      933                            *        CHECK ERROR MESSAGE FOR TYPE OF FAILURES.
      934                            *
      935                            * 1315   DATA WAS NOT ALTERED IN THE INPUT BUFFER BY THE SENSE      *BOO
      936                            *        OPERATION.                                                 *BOO
      937                            *
      938                            * 1316   MORE DATA WAS ALTERED IN INPUT BUFFER THAN WAS EXPECTED    *B01
      939                            *        BY THE SENSE OPERATION.                                    *B01
      940                            *
      941                            * 1320   SENSE TEST, FLAG HTE, BYTE COUNT = 3 OR 4 DEPENDS ON THE MODEL.
      942                            *        CHECK ERROR MESSAGE FOR TYPE OF FAILURES.
      943                            *
      944                            * 1330   SENSE TEST, FLAG IZC, BYTE COUNT = 3 OR 4 DEPENDS ON THE MODEL.
      945                            *        CHECK ERROR MESSAGE FOR TYPE OF FAILURES.
      946                            *
      947                            * 1340   SENSE TEST, FLAG ICE, BYTE COUNT = 3 OR 4 DEPENDS ON THE MODEL.
      948                            *        CHECK ERROR MESSAGE FOR TYPE OF FAILURES.
      949                            *
      950                            *
      951                            *        *** ERRORS 1410 -1430 DO NOT APPLY TO HIGH SPEED RADS ***
      952                            *
      953                            * 1410   SENSE TEST, FLAG IUE, BYTE COUNT =2.
      954                            *        CHECK ERROR MESSAGE FOR TYPE OF FAILURES.
      955                            *
      956                            * 1415   DATA WAS NOT ALTERED IN THE INPUT BUFFER BY THE SENSE      *BOO
      957                            *        OPERATION.                                                 *BOO
      958                            *
      959                            * 1416   MORE DATA WAS ALTERED IN INPUT BUFFER THAN WAS EXPECTED    *B01
      960                            *        BY THE SENSE OPERATION.                                    *B01
      961                            *
      962                            * 1420   SENSE TEST, FLAG HTE, BYTE COUNT =2.
      963                            *        CHECK ERROR MESSAGE FOR TYPE OF FAILURES.
      964                            *
      965                            * 1430   SENSE TEST, FLAG ICE, BYTE COUNT =2.
      966                            *        CHECK ERROR MESSAGE FOR TYPE OF FAILURES.
      967                            *
      968                            * 1510   SENSE TEST, FLAG ICE, BYTE COUNT = 4 OR 5 DEPENDS ON THE MODEL.
      969                            *        CHECK ERROR MESSAGE FOR TYPE OF FAILURES.
      970                            *
      971                            * 1515   DATA WAS NOT ALTERED IN THE INPUT BUFFER BY THE SENSE      *BOO
      972                            *        OPERATION.                                                 *BOO
      973                            *
      974                            * 1516   MORE DATA WAS ALTERED IN INPUT BUFFER THAN WAS EXPECTED    *B01
      975                            *        BY THE SENSE OPERATION.                                    *B01
      976                            *
      977                            * 1520   SENSE TEST, FLAG HTE, BYTE COUNT = 4 OR 5 DEPENDS ON THE MODEL.
      978                            *        CHECK ERROR MESSAGE FOR TYPE OF FAILURES.
      979                            *
      980                            * 1530   SENSE TEST, FLAG IUE, BYTE COUNT = 4 OR 5 DEPENDS ON THE MODEL.
      981                            *        CHECK ERROR MESSAGE FOR TYPE OF FAILURES.
      982                            *
      983                            * 1540   SENSE TEST, FLAG IZC, BYTE COUNT = 4 OR 5 DEPENDS ON THE MODEL.
      984                            *        CHECK ERROR MESSAGE FOR TYPE OF FAILURES.
      985                            *
      986                            * 1610   TIO, CC2=0  DEVICE WAS READY; SHOULD BE NOT READY.
      987                            *
      988                            * 1620   THE RAD STORAGE UNIT AND THE RAD CONTROLLER WERE NOT 'BUSY'
      989                            *        AT THE TIME OF TIO INSTRUCTION.
      990                            *
      991                            * 1630   TIO, CC2=1 DEVICE NOT READY; SHOULD BE READY AFTER SEEK
      992                            *        IS ACCEPTED.
      993                            *
      994                            * 1640   THE RAD STORAGE UNIT OR THE CONTROLLER REMAINED 'BUSY'
      995                            *        AFTER THE SEEK WAS ACCEPTED.
      996                            *                                                                   *BOO
      997                            * 1710   RESET TEST MODE TEST; FLAGS HTE,IUE AND ICE.               *BOO
      998                            *        BYTE COUNT = 1; MBA = TMB.    THIS TEST CHECKS THAT        *BOO
      999                            *        THE CONTROLLER CAN ACCEPT AND DECODE A TEST MODE RESET     *BOO
     1000                            *        ORDER. THIS ERROR INDICATES THAT A CONTROL FAULT OCCURRED  *BOO
     1001                            *        DURING THE EXECUTION OF THE TEST MODE RESET OPERATION.     *BOO
     1002                            *                                                                   *BOO
     1003                            * 1715   RESET TEST MODE TEST;  TDV CC2=1. THIS ERROR INDICATES     *BOO
     1004                            *        THAT THE CONTROLLER HAS FALSELY ENTERED A TEST MODE STATE. *BOO
     1005                            *        (NOTE: TO CLEAR TEST MODE: PRESS RESET ON THE PCP).        *BOO
     1006                            *                                                                   *BOO
     1007                            *                                                                   *BOO
     1008                            *                                                                   *BOO
     1009                            * 1720-1727 SET TEST MODE ORDER TEST. FLAGS: HTE, IUE AND ICE.      *BOO
     1010                            *        BYTE COUNT = 1, MBA = TMB. THIS TEST CHECKS THAT THE       *BOO
     1011                            *        CONTROLLER CAN ACCEPT A TEST MODE ORDER AND ENTER THE TEST *BOO
     1012                            *        MODE STATE. THE LEAST SIGNIFICANT DIGIT OF THE FAULT INDEX *BOO
     1013                            *        IDENTIFIES THE ONE-BIT IN THE TEST MODE DATA BYTE.         *BOO
     1014                            *        THIS ERROR INDICATES THAT A CONTROL FAULT HAS OCCURRED     *BOO
     1015                            *        DURING ORDER EXECUTION.                                    *BOO
     1016                            *                                                                   *BOO
     1017                            * 1730-1737 SET TEST MODE ORDER TEST. TDV CC2 = 0. THE ERROR        *BOO
     1018                            *        INDICATES THAT THE CONTROLLER HAS NOT ENTERED A TEST MODE. *BOO
     1019                            *        THE LEAST SIGNIFICANT DIGIT OF THE FAULT INDEX IDENTIFIES  *BOO
     1020                            *        THE ONE-BIT IN THE TEST MODE DATA BYTE                     *BOO
     1021                            *                                                                   *BOO
     1022                            * 1740-1747 RESET TEST MODE ORDER TEST. FLAGS: HTE, IUE AND ICE.    *BOO
     1023                            *        BYTE CNT = 1, MBA = TMB. THE LEAST SIGNIFICANT DIGIT OF    *BOO
     1024                            *        THE FAULT INDEX IDENTIFIES THE ONE-BIT OF THE TEST MODE    *BOO
     1025                            *        DATA BYTE WHICH WAS USED TO SET THE CONTROLLER INTO TEST   *BOO
     1026                            *        MODE. RESET TEST MODE DATA BYTE = 00. THIS ERROR INDICATES *BOO
     1027                            *        THAT A CONTROL FAULT HAS OCCURRED DURING ORDER EXECUTION.  *BOO
     1028                            *                                                                   *BOO
     1029                            * 1750-1757 RESET TEST MODE ORDER TEST. TDV CC2 2 1. THE ERROR      *BOO
     1030                            *        INDICATES THAT THE CONTROLLER REMAINS IN TEST MODE         *BOO
     1031                            *        AFTER A TEST MODE RESET. THE LEAST SIGNIFICANT DIGIT OF    *BOO
     1032                            *        THE FAULT INDEX INDICATES THE ONE-BIT OF THE TEST MODE     *BOO
     1033                            *        DATA BYTE WHICH WAS USED TO SET THE CONTROLLER INTO TEST   *BOO
     1034                            *        MODE.                                                      *BOO
     1035                            *                                                                   *BOO
     1036                            * 1760   SET TEST MODE ORDER TEST. THE TDV STATUS WHICH WAS SELECTED*BOO
     1037                            *        WITH TEST MODE DATA BYTE = X'40' INDICATES IN BIT 1 THAT   *BOO
     1038                            *        THE 4-BYTE INTERFACE IS ACTIVE. ONCE THE 1-BYTE INTERFACE  *BOO
     1039                            *        SHOULD BE ACTIVE DURING TEST MODE SELECTION.               *BOO
     1040                            *                                                                   *BOO
     1041                            * 1825   DATA OR TRANSFER FAULT IN DATA PATH FOR BYTE 'A'.          *BOO
     1042                            *        THE SEQUENCE OF INPUT DATA FLOW IS AS FOLLOWS:             *BOO
     1043                            *        IOP TO  'CA' REGISTER, 'CA' REGISTER TO 'J' REGISTER,      *BOO
     1044                            *        'J' REGISTER TO TRACK AND SECTOR REGISTER.                 *BOO
     1045                            *        WHEN THE DATA IS RETRIEVED VIA THE TDV TEST MODE PATH,     *BOO
     1046                            *        DATA FLOW IS FROM THE TRACK AND SECTOR REGISTERS TO        *BOO
     1047                            *        THE FUNCTION RESPONSE LINES OF THE IO BUS.                 *BOO
     1048                            *        WHEN THE DATA IS RETRIEVED VIA THE SENSE OPERATION, THE    *BOO
     1049                            *        OUTPUT DATA FLOW IS AS FOLLOWS: TRACK AND SECTOR REGISTERS *BOO
     1050                            *        TO THE 'K' REGISTER, THE 'K' REGISTER TO THE 'DA' REGISTER *BOO
     1051                            *        AND 'DA' REGISTER TO THE IOP.                              *BOO
     1052                            *                                                                   *BOO
     1053                            *        THE FOLLOWING ASSUMPTIONS CAN BE MADE ABOUT A SINGLE FAULT,*BOO
     1054                            *        AS A LIKLY CAUSE OF THE  FAULT.                            *BOO
     1055                            *                                                                   *BOO
     1056                            *       *   TDV   *  SENSE  *                                       *BOO
     1057                            *       *    *    *    *    *                                       *BOO
     1058                            *       *BYTE*BYTE*BYTE*BYTE*        CONCLUSION                     *BOO
     1059                            *       * 1  * 2  * 1  * 2  *                                       *BOO
     1060                            *       *    *    *    *    *                                       *BOO
     1061                            *        GOOD GOOD GOOD GOOD  TEST PASSED                           *BOO
     1062                            *                                                                   *BOO
     1063                            *         BAD  BAD GOOD GOOD  IF SINGLE BIT FAULT, CHECK CORRE-     *BOO
     1064                            *                               SPONDING FUNCTION RESPONSE LINE     *BOO
     1065                            *                             IF MULTIPLE BIT FAULT, CHECK TRANSFER *BOO
     1066                            *                               TERM TO FUNCTION RESPONSE LINES.    *BOO
     1067                            *                                                                   *BOO
     1068                            *         BAD GOOD GOOD GOOD  CHECK TRANSFER LOGIC FROM TRACK       *BOO
     1069                            *                               REGISTER TO FUNCTION RESPONSE LINES.*BOO
     1070                            *                                                                   *BOO
     1071                            *        GOOD  BAD GOOD GOOD  CHECK TRANSFER LOGIC FROM TRACK/SECTOR*BOO
     1072                            *                               REGISTER TO FUNCTION RESPONSE LINES.*BOO
     1073                            *                                                                   *BOO
     1074                            *        GOOD GOOD  BAD  BAD  IF SINGLE BIT FAULT, CHECK CORRE-     *BOO
     1075                            *                               SPONDING BIT IN 'K' REGISTER,'DA'   *BOO
     1076                            *                               REGISTER, DATA LINE DRIVER.         *BOO
     1077                            *                             IF MULTIPLE BIT FAULT, CHECK TRANSFER *BOO
     1078                            *                               LOGIC FOR 'K' TO 'DA' REGISTER AND  *BOO
     1079                            *                               'DA' TO DATA LINE DRIVERS.          *BOO
     1080                            *                                                                   *BOO
     1081                            *        GOOD GOOD  BAD GOOD  CHECK TRANSFER LOGIC FROM TRACK       *BOO
     1082                            *                               REGISTER TO 'K' REGISTER.           *BOO
     1083                            *                                                                   *BOO
     1084                            *        GOOD GOOD GOOD  BAD  CHECK TRANSFER LOGIC FROM TRACK/SECTOR*BOO
     1085                            *                               REGISTER TO 'K' REGISTER.           *BOO
     1086                            *                                                                   *BOO
     1087                            *         BAD  BAD  BAD  BAD  IF SINGLE BIT FAULT, CHECK CORRE-     *BOO
     1088                            *                               SPONDING BIT OF DATA LINE RECEIVER, *BOO
     1089                            *                               'CA' REGISTER AND 'J' REGISTER.     *BOO
     1090                            *                             IF MULTIPLE BIT FAULT, CHECK TRANSFER *BOO
     1091                            *                               LOGIC FROM DATA LINE RECEIVERS TO   *BOO
     1092                            *                               'CA' REGISTER AND 'CA' REGISTER TO  *BOO
     1093                            *                               'J' REGISTER.                       *BOO
     1094                            *                                                                   *BOO
     1095                            *         BAD GOOD  BAD GOOD  IF SINGLE BIT FAULT, CHECK CORRE-     *BOO
     1096                            *                               SPONDING TRACK REGISTER FF.         *BOO
     1097                            *                             IF MULTIPLE BIT FAULT, CHECK TRANSFER *BOO
     1098                            *                               LOGIC FROM 'J' REGISTER TO TRACK REG*BOO
     1099                            *                                                                   *BOO
     1100                            *        GOOD  BAD GOOD  BAD  IF SINGLE BIT FAULT, CHECK CORRE      *BOO
     1101                            *                               SPONDING TRACK/SECTOR REGISTER FF.  *BOO
     1102                            *                             IF MULTIPLE BIT FAULT, CHECK TRANSFER *BOO
     1103                            *                               LOGIC FROM 'J' REGISTER TO TRACK/   *BOO
     1104                            *                               SECTOR REGISTER.                    *BOO
     1105                            *                                                                   *BOO
     1106                            * 1910   ALL SECTORS OF THE RAD COULD NOT BE SENSED OR EXTRA SECTORS*B00
     1107                            *        WERE SENSED.                                               *B00
     1108                            *        (A TABLE WOULD BE OUTPUT SHOWING THE NO. OF TIMES EACH CUR.*B00
     1109                            *        SECTOR WAS OBSERVED.  EACH SECTOR SHOULD HAVE OBSERVED ONLY*B00
     1110                            *        ONCE.)                                                     *B00
     1111                            *                                                                   *B01
     1112                            * 1920   EXPECTED SECTOR PULSE DID NOT OCCUR.                       *B01
     1113                            *                                                                   *B00
     1114                            * 2010   A SECTOR WAS FOUND OR WAS FOUND MORE THAN ONCE PER TRACK OR*B00
     1115                            *        BAND (A TABLE WOULD BE OUTPUT SHOWING THE NO. OF TIMES EACH*B00
     1116                            *        SECTOR WAS SENSED) DURING THE EXECUTION OF SEEK AND SENSE  *B00
     1117                            *        OPERATIONS.                                                *B00
     1118                            *                                                                   *B00
     1119                            * 2020   A TRACK (BAND) WAS NOT FOUND OR FOUND MORE THAN ONCE ( A   *B00
     1120                            *        TABLE WOULD BE OUTPUT SHOWING THE NO. OF TIMES EACH TRACK  *B00
     1121                            *        (BAND) WAS SENSED ) DURING THE EXECUTION OF SEEK AND SENSE *B00
     1122                            *        OPERATIONS.                                                *B00
     1123                            *                                                                   *B00
     1124                            *                                                                   *B00
     1125                            * 2110   TRACK (BAND) WAS NOT AVAILABLE.                            *B00
     1126                            *        SEE PRINTOUT TO DETERMINE UNAVAILABLE TRACKS (BAND).       *B00
     1127                            *                                                                   *B00
     1128                            * 2120   THE TRACK (BAND) WAS REPORTED WRITE PROTECTED IN THE TEST  *B00
     1129                            *        DEVICE STATUS (TDV).                                       *B00
     1130                            *        SEE PRINTOUT TO DETERMINE WRITE PROTECTED TRACKS (BAND).   *B00
     1131                            *                                                                   *B00
     1132                            * 2130   THE TRACK (BAND) WAS REPORTED WRITE PROTECTED IN THE RE-   *B00
     1133                            *        TURNED SENSE WORD.                                         *B00
     1134                            *        SEE PRINTOUT TO DETERMINE WRITE PROTECTED TRACKS (BAND).   *B00
     1135                            *                                                                   *B00
     1136                            *                                                                   *B00
     1137                            *        *** ERRORS 2210 DOES APPLY TO MEDIUM SPEED RADS ***        *B00
     1138                            *                                                                   *B00
     1139                            * 2210   THIS TEST SEEKS UNAVAILABLE SECTOR.                        *B00
     1140                            *        CHECK ERROR MESSAGE FOR TYPE OF FAILURES.                  *B00
     1141                            *                                                                   *B00
     1142                            * 2220   THIS TEST SEEKS UNAVAILABLE SECTOR.                        *B00
     1143                            *        CHECK ERROR MESSAGE FOR TYPE OF FAILURES.                  *B00
     1144                            *                                                                   *B00
     1145                            * 2310   COMMAND CHAINING DID NOT OCCUR PROPERLY.                   *B00
     1146                            *                                                                   *B00
     1147                            * 2311   COMMAND CHAINING DID NOT TAKE PLACE AFTER EXECUTION OF HIO *B00
     1148                            *        INSTRUCTION.                                               *B00
     1149                            *                                                                   *B00
     1150                            * 2312   DEVICE DID NOT STOP ON STOP ORDER.                         *B00
     1151                            *                                                                   *B00
     1152                            * 2320   COMMAND CHAINING OCCURRED ON A STOP ORDER.                 *B00
     1153                            *        CHECK ERROR MESSAGE FOR TYPE OF FAILURES.                  *B00
     1154                            *                                                                   *B00
     1155                            * 2321   COMMAND CHAINING TOOK PLACE ON A STOP ORDER.               *B00
     1156                            *
     1157                            * 2421-2436 WRITE BYTE TRANSFER TEST (TEST MODE 1): FLAGS IUE,ICE.  *BOO
     1158                            *        BYTE COUNT 1  TO 16, MBA = BUF1LO. ERROR NUMBERS 2421 TO   *BOO
     1159                            *        2436 DEFINE THE CORRESPONDING BYTE COUNT OF 1 TO 16 WHICH  *BOO
     1160                            *        WAS USED FOR THE WRITE OPERATION DURING WHICH A CONTROL    *BOO
     1161                            *        FAULT OCCURRED.                                            *BOO
     1162                            * 2441-2456 READ BYTE TRANSFER TEST (TEST MODE 1): FLAGS IUE, ICE,  *BOO
     1163                            *        BYTE COUNT 1 TO 16, MBA = BUF1LO. ERROR NUMBERS 2441 TO    *BOO
     1164                            *        2456 DEFINE THE CORRESPONDIND BYTE COUNT OF 1 TO 16 WHICH  *BOO
     1165                            *        WAS USED FOR THE READ OPERATION DURING WHICH A CONTROL     *BOO
     1166                            *        FAULT OCCURRED.                                            *BOO
     1167                            *                                                                   *BOO
     1168                            * 2510   WRITE TEST; FLAGS      IUE, ICE AND DC; BYTE COUNT =1. THIS*BOO
     1169                            *        TEST CHECKS THAT 16 IOCD'S CAN BE EXECUTED TO FILL         *BOO
     1170                            *        THE FAM OVER THE BYTE 'A' DATA PATH WITHOUT CONTROL FAULTS.*BOO
     1171                            *                                                                   *BOO
     1172                            * 2511   WRITE TEST; FLAGS    IUE AND ICE; BYTE COUNT =16.          *BOO
     1173                            *        THIS TEST CHECKS THAT 16 BYTES CAN BE TRANSFERED TO FILL   *BOO
     1174                            *        THE FAM  OVER THE 4 BYTE INTERFACE (IF IT IS INSTALLED)    *BOO
     1175                            *        WITHOUT CONTROL ERRORS.                                    *BOO
     1176                            *                                                                   *BOO
     1177                            * 2512   WRITE TEST; FLAGS      IUE, ICE AND DC; BYTE COUNT =1.     *BOO
     1178                            *        THIS TEST CHECKS THAT 16 IOCD'S CAN BE EXECUTED TO FILL    *BOO
     1179                            *        THE FAM OVER THE BYTE 'A' DATA PATH WITHOUT CONTROL FAULTS.*BOO
     1180                            *                                                                   *BOO
     1181                            * 2520   READ TEST; FLAGS      IUE, ICE AND DC; BYTE COUNT =1.      *BOO
     1182                            *        THIS TEST CHECKS THAT 16 IOCD'S CAN BE EXECUTED TO READ    *BOO
     1183                            *        THE FAM VIA THE BYTE 'A' DATA PATH WITHOUT CONTROL FAULTS. *BOO
     1184                            *                                                                   *BOO
     1185                            * 2521   READ TEST; FLAGS      IUE, ICE AND DC; BYTE COUNT =1.      *BOO
     1186                            *        THIS TEST CHECKS THAT 16 IOCD'S CAN BE EXECUTED TO READ    *BOO
     1187                            *        THE FAM VIA THE BYTE 'A' DATA PATH WITHOUT CONTROL FAULTS. *BOO
     1188                            *                                                                   *BOO
     1189                            * 2522   READ TEST; FLAGS HTE, IUE AND ICE; BYTE COUNT = 16.        *BOO
     1190                            *        THIS TEST CHECKS THAT DATA CAN BE TRANSFERRED FROM THE     *BOO
     1191                            *        FAM VIA THE 4 BYTE INTERFACE (IF IT IS INSTALLED)          *BOO
     1192                            *        WITHOUT CONTROL FAULTS.                                    *BOO
     1193                            *                                                                   *BOO
     1194                            * 2530   DATA OR TRANSFER FAILURE IN DATA PATH 'A'.  THE FAILURE    *BOO
     1195                            *        IS MOST LIKLY IN  THE OUTPUT OF THE J REGISTER, THE FAM,   *BOO
     1196                            *        THE INPUT TO THE K REGISTER OR IN THE ASSOCIATED           *BOO
     1197                            *        CONTROL LOGIC.                                             *BOO
     1198                            *                                                                   *BOO
     1199                            * 2531   DATA OR TRANSFER FAILURE IN DATA PATH 'B,C,D'. THE FAILURE *BOO
     1200                            *        IS MOST LIKLY IN  THE INPUT PATH FROM THE DATA LINES TO    *BOO
     1201                            *        THE 'CB' 'CC' 'CD' REGISTERS OR IN THE TRANSFER LOGIC      *BOO
     1202                            *        TO THE J REGISTER.                                         *BOO
     1203                            *                                                                   *BOO
     1204                            * 2532   DATA OR TRANSFER FAILURE IN DATA PATH 'B,C,D'. THE FAILURE *BOO
     1205                            *        IS MOST LIKLY IN  THE OUTPUT PATH TO THE IOP, THE          *BOO
     1206                            *        'CB', 'CC','CD' REGISTERS , THE 'DB''DC','DD' REGISTERS    *BOO
     1207                            *        OR ASSOCIATED CONTROL LOGIC.                               *BOO
     1208                            *                                                                   *BOO
     1209                            * 2620   WRITE ALIGNMENT TEST; FLAGS      IUE AND ICE;              *BOO
     1210                            *        BYTE COUNT = 16; MBA = BUF1LO+1. THIS TEST CHECKS          *BOO
     1211                            *        THAT A WRITE OPERATION STARTING AT BYTE 1 CAN BE           *BOO
     1212                            *        EXECUTED WITHOUT CONTROL FAULTS.                           *BOO
     1213                            *                                                                   *BOO
     1214                            * 2621   WRITE ALIGNMENT TEST; FLAGS      IUE AND ICE;              *BOO
     1215                            *        BYTE COUNT = 16; MBA = BUF1LO+3. THIS TEST CHECKS          *BOO
     1216                            *        THAT A WRITE OPERATION STARTING AT BYTE 2 CAN BE           *BOO
     1217                            *        EXECUTED WITHOUT CONTROL FAULTS.                           *BOO
     1218                            *                                                                   *BOO
     1219                            * 2622   WRITE ALIGNMENT TEST; FLAGS      IUE AND ICE;              *BOO
     1220                            *        BYTE COUNT = 16; MBA = BUF1LO+3. THIS TEST CHECKS          *BOO
     1221                            *        THAT A WRITE OPERATION STARTING AT BYTE 3 CAN BE           *BOO
     1222                            *        EXECUTED WITHOUT CONTROL FAULTS.                           *BOO
     1223                            *                                                                   *BOO
     1224                            * 2623-2625 WRITE ALIGNMENT TEST; FLAGS      IUE AND ICE;           *BOO
     1225                            *        BYTE COUNT = 16 MBA = BUF1LO. THESE TESTS FILL THE         *BOO
     1226                            *        FAM FOR THE READ ALIGNMENT TEST. ERROR INDICATES, A        *BOO
     1227                            *        CONTROL FAULT DURING THE EXECUTION OF A WRITE.             *BOO
     1228                            *                                                                   *BOO
     1229                            *                                                                   *BOO
     1230                            * 2630-2632 READ ALIGNMENT TEST; FLAGS IUE, ICE;                    *BOO
     1231                            *        BYTE COUNT =16; MBA = BUF1LO. THESE TESTS EMPTY THE        *BOO
     1232                            *        FAM FOR THIS WRITE ALIGNMENT TEST. ERROR INDICATES, A      *BOO
     1233                            *        CONTROL FAULT DURING THE EXECUTION OF A READ.              *BOO
     1234                            *                                                                   *BOO
     1235                            * 2633   READ ALIGNMENT TEST; FLAGS IUE, ICE;                       *BOO
     1236                            *        BYTE COUNT =15; MBA = BUF1LO+1. THIS TEST CHECKS           *BOO
     1237                            *        THAT A READ OPERATION STARTING AT BYTE 1 CAN BE            *BOO
     1238                            *        EXECUTED WITHOUT CONTROL FAULTS.                           *BOO
     1239                            *                                                                   *BOO
     1240                            * 2634   READ ALIGNMENT TEST; FLAGS     IUE AND ICE;                *BOO
     1241                            *        BYTE COUNT = 14; MBA = BUF1LO+2. THIS TEST CHECKS          *BOO
     1242                            *        THAT A READ OPERATION STARTING AT BYTE 2 CAN BE            *BOO
     1243                            *        EXECUTED WITHOUT CONTROL FAULTS.                           *BOO
     1244                            *                                                                   *BOO
     1245                            * 2635   READ ALIGNMENT TEST; FLAGS HTE,IUE AND ICE;                *BOO
     1246                            *        BYTE COUNT = 13; MBA = BUF1LO+3. THIS TEST CHECKS          *BOO
     1247                            *        THAT A READ OPERATION STARTING AT BYTE 3 CAN BE            *BOO
     1248                            *        EXECUTED WITHOUT CONTROL FAULTS.                           *BOO
     1249                            *                                                                   *BOO
     1250                            *                                                                   *BOO
     1251                            * 2640   COMPARE ALIGNMENT DATA FAILURE; WRITE STARTS WITH BYTE 1   *BOO
     1252                            *        AND CONSISTS OF 16 BYTES, READ STARTS ON WORD BOUNDRY      *BOO
     1253                            *        AND CONSISTS OF 16 BYTES. SEE COMPARE PRINTOUT FOR         *BOO
     1254                            *        FAILING BYTES.                                             *BOO
     1255                            *                                                                   *BOO
     1256                            * 2641   COMPARE ALIGNMENT DATA FAILURE; WRITE STARTS WITH BYTE 2   *BOO
     1257                            *        AND CONSISTS OF 16 BYTES, READ STARTS ON WORD BOUNDRY      *BOO
     1258                            *        AND CONSISTS OF 16 BYTES. SEE COMPARE PRINTOUT FOR         *BOO
     1259                            *        FAILING BYTES.                                             *BOO
     1260                            *                                                                   *BOO
     1261                            * 2642   COMPARE ALIGNMENT DATA FAILURE; WRITE STARTS WITH BYTE 3   *BOO
     1262                            *        AND CONSISTS OF 16 BYTES, READ STARTS ON WORD BOUNDRY      *BOO
     1263                            *        AND CONSISTS OF 16 BYTES. SEE COMPARE PRINTOUT FOR         *BOO
     1264                            *        FAILING BYTES.                                             *BOO
     1265                            *                                                                   *BOO
     1266                            * 2643   COMPARE ALIGNMENT DATA FAILURE;WRITE STARTS ON WORD BOUNDRY*BOO
     1267                            *        AND CONSISTS OF 16 BYTES, READ STARTS WITH BYTE 1          *BOO
     1268                            *        AND CONSISTS OF 15 BYTES. SEE COMPARE PRINTOUT FOR         *BOO
     1269                            *        FAILING BYTES.                                             *BOO
     1270                            *                                                                   *BOO
     1271                            * 2644   COMPARE ALIGNMENT DATA FAILURE;WRITE STARTS ON WORD BOUNDRY*BOO
     1272                            *        AND CONSISTS OF 16 BYTES, READ STARTS WITH BYTE 2          *BOO
     1273                            *        AND CONSISTS OF 14 BYTES. SEE COMPARE PRINTOUT FOR         *BOO
     1274                            *        FAILING BYTES.                                             *BOO
     1275                            *                                                                   *BOO
     1276                            * 2645   COMPARE ALIGNMENT DATA FAILURE;WRITE STARTS ON WORD BOUNDRY*BOO
     1277                            *        AND CONSISTS OF 16 BYTES, READ STARTS WITH BYTE 2          *BOO
     1278                            *        AND CONSISTS OF 13 BYTES. SEE COMPARE PRINTOUT FOR         *BOO
     1279                            *        FAILING BYTES.                                             *BOO
     1280                            *                                                                   *BOO
     1281                            * 2710   READ BYTE COUNTER TEST; FLAGS  HTE, IUE AND ICE;           *BOO
     1282                            *        BYTE COUNT 1<=BC<=(BYTCURR); MBA= BUF1LO. THIS TEST        *BOO
     1283                            *        CHECKS THAT ALL BYTES COUNTS FROM 1 TO (BYTCURR)           *BOO
     1284                            *        CAN BE PERFORMED.  ERROR INDICATES THAT A CONTROL FAULT    *BOO
     1285                            *        OCCURRED DURING THE EXECUTION OF A READ.                   *BOO
     1286                            *                                                                   *BOO
     1287                            * 2720   READ BYTE COUNTER TEST; FLAGS HTE, IUE AND ICE;            *BOO
     1288                            *        BYTE COUNT = (BYTCURR); MBA = BUF1LO.  THIS TEST           *BOO
     1289                            *        CHECKS THAT DATA FOR 1 SECTOR CAN BE READ.                 *BOO
     1290                            *        ERROR INDICATES THAT A CONTROL FAULT OCCURRED DURING       *BOO
     1291                            *        THE EXECUTION OF A READ.                                   *BOO
     1292                            *                                                                   *BOO
     1293                            * 2725   DATA COMPARE ERROR AFTER READING 1 SECTOR IN TEST MODE 2.  *BOO
     1294                            *        THE READ DATA IS GENERATED BY THE BYTE COUNTER. THE DATA   *BOO
     1295                            *        FLOW IS FROM THE BYTE COUNTER TO THE PARITY REGISTER,      *BOO
     1296                            *        DATA REGISTER, AND J REGISTER AND FINALLY INTO THE FAM.    *BOO
     1297                            *        SEE COMPARE PRINTOUT FOR EXPECTED AND OBSERVED DATA.       *BOO
     1298                            *                                                                   *BOO
     1299                            * 2810   PARITY ERROR TEST; ORDER = X'02';FLAGS HTE, IUE AND ICE;   *BOO
     1300                            *        BYTE COUNT = 1 SECTOR; MBA = BUF1LO.  THIS TEST CHECKS THAT*BOO
     1301                            *        THE MODIFIER BIT WAS SET AND DETECTED BY CONTROLLER, AND   *BOO
     1302                            *        THAT THE CONTROLLER CAN DETECT   AND RESPOND CORRECTLY     *BOO
     1303                            *        TO A PARITY ERROR. ERROR INDICATES, A CONTROL OR           *BOO
     1304                            *        DETECTION FAULT OCCURRED DURING THE EXECUTION OF THE READ. *BOO
     1305                            *                                                                   *BOO
     1306                            *                                                                   *BOO
     1307                            *  2820  PARITY ERROR TEST; ORDER = X'02'; FLAGS HTE, IUE AND ICE;  *BOO
     1308                            *        BYTE COUNT = 2 SECTORS; MBA = BUF1LO. THIS TEST            *BOO
     1309                            *        CHECKS THAT THE CONTROLLER CAN DETECT AND RESPOND          *BOO
     1310                            *        CORRECTLY TO PARITY ERRORS IN MULTI LENGTH SECTORS.        *BOO
     1311                            *                                                                   *BOO
     1312                            * 2830   PARITY ERROR TEST; ORDER =X'12', FLAGS HTE, IUE,ICE;       *BOO
     1313                            *        BYTE COUNT = 1 SECTOR; MBA = BUF1LO. THIS TEST             *BOO
     1314                            *        CHECKS THAT THE CONTROLLER CAN DETECT AND RESPOND          *BOO
     1315                            *        CORRECTLY TO PARITY ERRORS IN A SINGLE SECTOR.             *BOO
     1316                            *                                                                   *BOO
     1317                            * 2840   PARITY ERROR TEST; ORDER = X'12'; FLAGS HTE,IUE,ICE;       *BOO
     1318                            *        BYTE COUNT = 1 SECTOR+3; MBA = BUF1LO. THIS TEST           *BOO
     1319                            *        CHECKS THAT THE CONTROLLER CAN DETECT AND RESPOND          *BOO
     1320                            *        CORRECTLY TO PARITY ERRORS IN MULTI LENGTH SECTORS.        *BOO
     1321                            *                                                                   *BOO
     1322                            *                                                                   *BOO
     1323                            * 2910   WRITE PARITY GENERATE TEST; FLAGS HTE, IUE AND ICE;        *BOO
     1324                            *        BYTE COUNT = 1 SECTOR; MBA = BUF1LO. THIS TEST CHECKS      *BOO
     1325                            *        THAT A WRITE OPERATION CAN BE PERFORMED WITHOUT CONTROL    *BOO
     1326                            *        FAULTS. NO DATA WILL BE WRITTEN ON THE RAD.                *BOO
     1327                            *                                                                   *BOO
     1328                            *                                                                   *BOO
     1329                            * 2915   PARITY GENERATION OR DATA TRANSFER FAULT; THE SEQUENCE     *BOO
     1330                            *        OF EVENTS TESTED BY THIS TEST IS AS FOLLOWS:               *BOO
     1331                            *        THE 'K' REGISTER IS TRANSFERRED TO THE DATA REGISTER,      *BOO
     1332                            *        THE DATA REGISTER IS SHIFTED ONE BYTE AT A TIME TO         *BOO
     1333                            *        THE PARITY GENERATOR LOGIC, THE PARITY                     *BOO
     1334                            *        REGISTER IS SHIFTED TO STORE NEW GENERATED PARITY BIT.     *BOO
     1335                            *        THE ERROR COMPARISON PRINTOUT DISPLAYS 4 DIFFERENTLY       *BOO
     1336                            *        GENERATED PARITY BYTES COMPARED TO 4 EXPECTED PARITY       *BOO
     1337                            *        BYTES. IF AN ERROR EXISTS IN THE SAME 1 BIT POSITION       *BOO
     1338                            *        FOR EACH PARITY BYTE THE FAULT IS MOST LIKLY IN THE        *BOO
     1339                            *        'K' REGISTER, OTHERWISE THE FAULT CAN BE EITHER IN         *BOO
     1340                            *        THE SHIFTING OF THE DATA REGISTER OR PARITY REGISTER       *BOO
     1341                            *        OR IN THE PARITY GENERAING LOGIC.                          *BOO
     1342                            *                                                                   *BOO
     1343                            * 2935   WRITE ENABLE TEST; TDV STATUS INDICATES THAT WRITE ENABLE  *BOO
     1344                            *        IS TRUE WHILE THE CONTROLLER IS IN A READY STATE.          *BOO
     1345                            *                                                                   *BOO
     1346                            * 2940   WRITE ENABLE TEST; ERROR INDICATES, BYTE COUNT WAS NEVER   *BOO
     1347                            *        DECREMENTED FOR WRITE OPERATION.                           *BOO
     1348                            *                                                                   *BOO
     1349                            * 2945   WRITE ENABLE TEST; TDV STATUS INDICATES THAT WRITE ENABLE  *BOO
     1350                            *        IS FALSE WHILE THE CONTROLLER IS WRITING.                  *BOO
     1351                            *                                                                   *BOO
     1352                            * 3010   CHECKWRITE ERROR TEST; FLAGS NTE, IUE AND ICE;             *BOO
     1353                            *        BYTE COUNT = 1 SECTOR; MBA = BUF1LO. THIS TEST CHECK       *BOO
     1354                            *        THE ABILITY OF THE CONTROLLER TO GENERATE AND REPORT THE   *BOO
     1355                            *        DETECTION OF A DATA ERROR WHEN A BIT FROM THE IOP = 1      *BOO
     1356                            *        AND THE BIT FROM THE BYTE COUNT REGISTER =0.               *BOO
     1357                            *                                                                   *BOO
     1358                            * 3020   CHECKWRITE ERROR TEST; FLAGS HTE, IUE AND ICE;             *BOO
     1359                            *        BYTE COUNT = 1 SECTOR, MBA = BUF1LO. THIS TEST CHECK       *BOO
     1360                            *        THE ABILITY OF THE CONTROLLER TO GENERATE AND REPORT THE   *BOO
     1361                            *        DETECTION OF A DATA  ERROR WHEN A BIT FROM THE IOP= 0      *BOO
     1362                            *        AND THE BIT FROM THE BYTE COUNT REGISTER= 1                *BOO
     1363                            *                                                                   *BOO
     1364                            * 3030   CHECKWRITE TEST; FLAGS HTE, IUE AND ICE;                   *BOO
     1365                            *        BYTE COUNT = 1 SECTOR, MBA = BUF1LO. THIS TEST CHECK       *BOO
     1366                            *        THE ABILITY OF THE CONTROLLER TO COMPARE THE PATTERN       *BOO
     1367                            *        GENERATED BY THE BYTE COUNTER WITH AN IDENTIAL PATTERN     *BOO
     1368                            *        SENT FROM THE IOP. ERROR INDICATES A DATA ERROR.           *BOO
     1369                            *                                                                   *BOO
     1370                            * 3110   WRITE TEST, FLAGS HTE AND IVE, BYTE COUNT =(1 SECTOR OF DATA).
     1371                            *        CHECK ERROR MESSAGE FOR TYPE OF FAILURES.
     1372                            *
     1373                            * 3115   DATA WAS ALTERED IN THE OUTPUT BUFFER BY THE WRITE OPERATION.
     1374                            *
     1375                            * 3120   WRITE TEST, FLAG IZC, BYTE COUNT = (1 SECTOR OF DATA).
     1376                            *        CHECK ERROR MESSAGE FOR TYPE OF FAILURES.
     1377                            *
     1378                            * 3130   WRITE TEST, FLAGS HTE AND IVE, BYTE COUNT =(2 SECTORS OF DATA).
     1379                            *        CHECK ERROR MESSAGE FOR TYPE OF FAILURES.
     1380                            *
     1381                            * 3140   WRITE TEST, FLAGS IZC, BYTE COUNT = (1 SECTOR OF DATA).
     1382                            *        CHECK ERROR MESSAGE FOR TYPE OF FAILURES.
     1383                            *
     1384                            * 3210   WRITE TEST, FLAGS HTE, IVE AND ICE, BYTE COUNT = (LESS THAN 1
     1385                            *        SECTOR OF DATA).
     1386                            *        CHECK ERROR MESSAGE FOR TYPE OF FAILURES.
     1387                            *
     1388                            * 3215   DATA WAS ALTERED IN THE OUTPUT BUFFER BY THE WRITE OPERATION.
     1389                            *
     1390                            * 3310   WRITE TEST, FLAGS HTE, IVE AND ICE, BYTE COUNT = (GREATER
     1391                            *        THAN 1 SECTOR OF DATA).
     1392                            *        CHECK ERROR MESSAGE FOR TYPE OF FAILURES.
     1393                            *
     1394                            * 3315   DATA WAS ALTERED IN THE OUTPUT BUFFER BY THE WRITE OPERATION.
     1395                            *
     1396                            *
     1397                            * 3410   A SECTOR WAS NOT FOUND OR WAS FOUND MORE THAN ONCE PER TRACK
     1398                            *        (BAND) (A TABLE WILL BE OUTPUT DISPLAYING THE NO. OF TIMES EACH
     1399                            *        SECTOR WAS SENSED) DURING THE EXECUTION OF WRITING A SECTOR AND
     1400                            *        SENSING ALL SECTORS.
     1401                            *
     1402                            * 3420   A TRACK (BAND) WAS NOT FOUND OR WAS FOUND MORE THAN ONCE (A
     1403                            *        TABLE WOULD BE THE OUTPUT SHOWING THE NO. OF TIMES EACH TRACK
     1404                            *        (BAND) WAS SENSED) DURING THE EXECUTION OF WRITING A SECTOR,
     1405                            *        SENSING ALL TRACKS (BANDS).
     1406                            * 3430   THE RAD DID NOT REPORT SECTOR UNAVAILABLE BY INCREMENTING
     1407                            *        PAST THE END OF THE LOGICAL SURFACE.
     1408                            *
     1409                            * 3510   NO TRACK (BAND) ANYWHERE ON THE RAD COULD PRODUCE A
     1410                            *        SYNC PATTERN AFTER BEING WRITTEN.
     1411                            *
     1412                            * 3516   A GOOD TRACK COULD NOT BE LOCATED BY THIS TEST.
     1413                            *        CHECK ERROR MESSAGE FOR TYPE OF FAILURES.
     1414                            *
     1415                            * 3520   READ (X'02') TEST, FLAG IZC, BYTE COUNT = ( 1 SECTOR OF DATA).
     1416                            *        CHECK ERROR MESSAGE FOR TYPE OF FAILURES.
     1417                            *
     1418                            * 3610   THE RAD COULD NOT FIND A GOOD TRACK
     1419                            *
     1420                            * 3616   A GOOD TRACK COULD NOT BE LOCATED BY THE OPERATION.
     1421                            *        CHECK ERROR MESSAGE FOR TYPE OF FAILURES.
     1422                            *
     1423                            * 3620   READ (X'02') TEST, FLAG IZC, BYTE COUNT = (LESS THAN 1 SECTOR
     1424                            *        OF DATA).
     1425                            *        CHECK ERROR MESSAGE FOR TYPE OF FAILURES.
     1426                            *
     1427                            * 3710   THE RAD COULD NOT FIND A GOOD TRACK.
     1428                            *
     1429                            * 3716   A GOOD TRACK COULD NOT BE LOCATED BY THE OPERATION.
     1430                            *        CHECK ERROR MESSAGE FOR TYPE OF FAILURES.
     1431                            *
     1432                            * 3720   READ (X'02') TEST, FLAG IZC, BYTE COUNT = (GREATER THAN 1
     1433                            *        SECTOR OF DATA).
     1434                            *        CHECK ERROR MESSAGE FOR TYPE OF FAILURES.
     1435                            *
     1436                            * 3810   THE RAD COULD NOT FIND A GOOD TRACK.
     1437                            *
     1438                            * 3816   A GOOD TRACK COULD NOT BE LOCATED BY THE OPERATION.
     1439                            *        CHECK ERROR MESSAGE FOR TYPE OF FAILURES.
     1440                            *
     1441                            * 3820   THE BYTE COUNT WAS NOT REDUCED TO ZERO BY THE OPERATION.
     1442                            *
     1443                            * 3825   READ (X'02') TEST, FLAG IZC, BYTE COUNT = (1 SECTOR OF DATA).
     1444                            *        DATA RECEIVED FROM ALL TEN TESTED TRACKS (BANDS) PROVED
     1445                            *        TO BE IN ERROR.
     1446                            *        CHECK ERROR MESSAGE FOR TYPE OF FAILURES.
     1447                            *
     1448                            * 3910   THE RAD COULD NOT FIND A GOOD TRACK.
     1449                            *
     1450                            * 3916   A GOOD TRACK COULD NOT BE LOCATED BY THE OPERATION.
     1451                            *        CHECK ERROR MESSAGE FOR TYPE OF FAILURES.
     1452                            *
     1453                            * 3920   PARITY TEST; READ (X'02') FLAG ICE, BYTE COUNT = (1 SECTOR OF
     1454                            *        DATA), DATA PATTERN X'55AA55AA',X'AA55AA55',X'55AA55AA', ETC.
     1455                            *        CHECK ERROR MESSAGE FOR TYPE OF FAILURES.
     1456                            *
     1457                            * 3930   PARITY TEST; READ (X'02') FLAG ICE, BYTE COUNT = (1 SECTOR OF
     1458                            *        DATA), DATA PATTERN X'AA55AAAA',X'AA55AA55',X'55AA55AA', ETC.
     1459                            *        CHECK ERROR MESSAGE FOR TYPE OF FAILURES.
     1460                            *
     1461                            * 3940   PARITY TEST; READ (X'02') FLAG ICE, BYTE COUNT = (1 SECTOR OF
     1462                            *        DATA), DATA PATTERN X'55AA5555',X'AA55AA55',X'55AA55AA', ETC.
     1463                            *        CHECK ERROR MESSAGE FOR TYPE OF FAILURES.
     1464                            *
     1465                            * 3950   PARITY TEST; READ (X'02') FLAG ICE, BYTE COUNT = (1 SECTOR OF
     1466                            *        DATA), DATA PATTERN X'00000000',X'00000000',X'00000000', ETC.
     1467                            *        CHECK ERROR MESSAGE FOR TYPE OF FAILURES.
     1468                            *
     1469                            * 3960   PARITY TEST; READ (X'02') FLAG ICE, BYTE COUNT = (1 SECTOR OF
     1470                            *        DATA), DATA PATTERN X'FFFFFFFF',X'FFFFFFFF',X'FFFFFFFF', ETC.
     1471                            *        CHECK ERROR MESSAGE FOR TYPE OF FAILURES.
     1472                            *
     1473                            * 4010   THE RAD COULD NOT FIND A GOOD TRACK.
     1474                            *
     1475                            * 4016   A GOOD TRACK COULD NOT BE LOCATED BY THE OPERATION.
     1476                            *        CHECK ERROR MESSAGE FOR TYPE OF FAILURES.
     1477                            *
     1478                            * 4020   WRITE/READ (X'02')TEST, FLAG ICE, BYTE COUNT =(1 SECTOR OF DATA
     1479                            *        CHECK ERROR MESSAGE FOR TYPE OF FAILURES.
     1480                            *
     1481                            * 4025   THE DATA WRITTEN AS THE SHORTEN SECTOR PATTERN WAS NOT CORRECT.
     1482                            *        CHECK ERROR MESSAGE FOR TYPE OF FAILURES.
     1483                            *
     1484                            * 4035   THE ZEROS WERE NOT WRITTEN IN THE REMAINING SECTOR AREA.
     1485                            *
     1486                            * 4040   PARITY ERROR WAS REPORTED DUE TO THIS OPERATION.
     1487                            *
     1488                            * 4107   ERROR APPEARED DURING THE EXECUTION OF WRITTING AN ALL     *C01
     1489                            *        ZERO PATTERN ON THE RAD STARTING AT THE LOWEST AVAILABLE   *C01
     1490                            *        TRACK (BAND). CHECK ERROR MESSAGE FOR TYPE AND LOCATION    *C01
     1491                            *        OF FAILURE.                                                *C01
     1492                            *                                                                   *C01
     1493                            * 4108   ERROR APPEARED DURING THE EXECUTION OF READING AN ALL      *C01
     1494                            *        ZERO PATTERN FROM THE RAD STARTING AT THE LOWEST AVAILABLE *C01
     1495                            *        TRACK (BAND). CHECK ERROR MESSAGE FOR TYPE AND LOCATION    *C01
     1496                            *        OF FAILURE.                                                *C01
     1497                            *                                                                   *C01
     1498                            * 4109   SURFACE OR ADDRESSING ERROR, DETECTED DURING THE TESTING   *C01
     1499                            *        OF THE ZERO PATTERN READ FROM THE DISC SURFACE. SEE TABLE  *C01
     1500                            *        PRINTOUTS TO DETERMINE TYPES AND LOCATIONS OF FAILURES.    *C01
     1501                            *                                                                   *C01
     1502                            * 4110   ERROR APPEARED DURING THE EXECUTION OF WRITING A RANDOM PATTERN
     1503                            *        ON THE RAD STARTING AT LOWEST AVAILABLE TRACK (BAND).
     1504                            *        CHECK ERROR MESSAGE FOR TYPE AND LOCATION OF FAILURE.
     1505                            *
     1506                            * 4111   ERROR APPEARED DURING THE EXECUTION OF READING A RANDOM PATTERN
     1507                            *        FROM THE RAD STARTING AT THE LOWEST AVAILABLE TRACK (BAND).
     1508                            *        CHECK ERROR MESSAGE FOR TYPE AND LOCATION OF FAILURE.
     1509                            *
     1510                            * 4112   SURFACE OR ADDRESSING ERROR, DETECTED DURING THE TESTING OF THE
     1511                            *        DISC SURFACE. SEE TABLE PRINTOUTS TO DETERMINE TYPES AND
     1512                            *        LOCATIONS OF FAILURES.
     1513                            *
     1514                            * 4210   ERROR APPEARED DURING THE EXECUTION OF WRITING A RANDOM PATTERN
     1515                            *        STARTING AT THE HIGHEST AVAILABLE TRACK (BAND) TO THE LOWEST
     1516                            *        AVAILABLE TRACK (BAND).
     1517                            *        CHECK ERROR MESSAGE FOR TYPE AND LOCATION OF FAILURE.
     1518                            *
     1519                            * 4211   ERROR APPEARED DURING THE EXECUTION OF READING A RANDOM PATTERN
     1520                            *        FROM THE RAD STARTING AT THE LOWEST AVAILABLE TRACK (BAND) TO
     1521                            *        THE HIGHEST AVAILABLE TRACK (BAND).
     1522                            *        CHECK ERROR MESSAGE FOR TYPE AND LOCATION OF FAILURE.
     1523                            *
     1524                            * 4212   SURFACE OR ADDRESSING ERROR, DETECTED DURING THE TESTING OF THE
     1525                            *        DISC SURFACE. SEE TABLE PRINTOUTS TO DETERMINE TYPES AND
     1526                            *        LOCATIONS OF FAILURES.
     1527                            *
     1528                            * 4310   THE RAD DID NOT RESPOND AND RECEIVE CORRECTLY TO READ (X'12')
     1529                            *        OF A SECTOR.
     1530                            *
     1531                            * 4320   READ (X'12') TEST, FLAG IZC, BYTE COUNT (GREATER THAN 1
     1532                            *        SECTOR OF DATA).
     1533                            *        CHECK ERROR MESSAGE FOR TYPE OF FAILURES.
     1534                            *
     1535                            * 4410   THE RAD COULD NOT FIND A GOOD TRACK.
     1536                            *
     1537                            * 4416   A GOOD TRACK COULD NOT BE LOCATED BY THE OPERATION.
     1538                            *        CHECK ERROR MESSAGE FOR TYPE OF FAILURES.
     1539                            *
     1540                            * 4420   ERRORS WERE DETECTED WHEN A PATTERN OF ALL ZEROS COMPARED
     1541                            *        TO AN IDENTICAL PATTERN BY MEANS OF A CHECK-WRITE.
     1542                            *        *** ERRORS 4430 - 4437 APPLY ONLY TO THE HIGH SPEED RADS ***
     1543                            *
     1544                            * 4430   CHECKWRITE TEST, BIT 0 OF SENSE BYTE 4 (FAILING TRACK) WAS
     1545                            *        A '1' SHOULD HAVE BEEN A '0'.
     1546                            *
     1547                            * 4431   CHECKWRITE TEST, BIT 1 OF SENSE BYTE 4 (FAILING TRACK) WAS
     1548                            *        A '1' SHOULD HAVE BEEN A '0'.
     1549                            *
     1550                            * 4432   CHECKWRITE TEST, BIT 2 OF SENSE BYTE 4 (FAILING TRACK) WAS
     1551                            *        A '1' SHOULD HAVE BEEN A '0'.
     1552                            *
     1553                            * 4433   CHECKWRITE TEST, BIT 3 OF SENSE BYTE 4 (FAILING TRACK) WAS
     1554                            *        A '1' SHOULD HAVE BEEN A '0'.
     1555                            *
     1556                            * 4434   CHECKWRITE TEST, BIT 4 OF SENSE BYTE 4 (FAILING TRACK) WAS
     1557                            *        A '1' SHOULD HAVE BEEN A '0'.
     1558                            *
     1559                            * 4435   CHECKWRITE TEST, BIT 5 OF SENSE BYTE 4 (FAILING TRACK) WAS
     1560                            *        A '1' SHOULD HAVE BEEN A '0'.
     1561                            *
     1562                            * 4436   CHECKWRITE TEST, BIT 6 OF SENSE BYTE 4 (FAILING TRACK) WAS
     1563                            *        A '1' SHOULD HAVE BEEN A '0'.
     1564                            *
     1565                            * 4437   CHECKWRITE TEST, BIT 7 OF SENSE BYTE 4 (FAILING TRACK) WAS
     1566                            *        A '1' SHOULD HAVE BEEN A '0'.
     1567                            *
     1568                            * 4440   ERRORS WERE DETECTED WHEN A PATTERN OF ALL '1'S DID NOT COMPARE
     1569                            *        WITH AN IDENTICAL PATTERN BY MEANS OF A CHECKWRITE.
     1570                            *        CHECK ERROR MESSAGE FOR TYPE OF FAILURES.
     1571                            *
     1572                            *
     1573                            *        *** ERROR 4450 - 4457 APPLY ONLY TO THE HIGH SPEED RADS ***
     1574                            *
     1575                            * 4450   CHECKWRITE TEST, BIT 0 OF SENSE BYTE 4 (FAILING TRACK) WAS
     1576                            *        A '1' SHOULD HAVE BEEN A '0'.
     1577                            *
     1578                            * 4451   CHECKWRITE TEST, BIT 1 OF SENSE BYTE 4 (FAILING TRACK) WAS
     1579                            *        A '1' SHOULD HAVE BEEN A '0'.
     1580                            *
     1581                            * 4452   CHECKWRITE TEST, BIT 2 OF SENSE BYTE 4 (FAILING TRACK) WAS
     1582                            *        A '1' SHOULD HAVE BEEN A '0'.
     1583                            *
     1584                            * 4453   CHECKWRITE TEST, BIT 3 OF SENSE BYTE 4 (FAILING TRACK) WAS
     1585                            *        A '1' SHOULD HAVE BEEN A '0'.
     1586                            *
     1587                            * 4454   CHECKWRITE TEST, BIT 4 OF SENSE BYTE 4 (FAILING TRACK) WAS
     1588                            *        A '1' SHOULD HAVE BEEN A '0'.
     1589                            *
     1590                            * 4455   CHECKWRITE TEST, BIT 5 OF SENSE BYTE 4 (FAILING TRACK) WAS
     1591                            *        A '1' SHOULD HAVE BEEN A '0'.
     1592                            *
     1593                            * 4456   CHECKWRITE TEST, BIT 6 OF SENSE BYTE 4 (FAILING TRACK) WAS
     1594                            *        A '1' SHOULD HAVE BEEN A '0'.
     1595                            *
     1596                            * 4457   CHECKWRITE TEST, BIT 7 OF SENSE BYTE 4 (FAILING TRACK) WAS
     1597                            *        A '1' SHOULD HAVE BEEN A '0'.
     1598                            *
     1599                            * 4510   THE RAD COULD NOT FIND A GOOD TRACK.
     1600                            *
     1601                            * 4516   A GOOD TRACK COULD NOT BE LOCATED BY THE OPERATION.
     1602                            *        CHECK ERROR MESSAGE FOR TYPE OF FAILURES.
     1603                            *
     1604                            * 4520   CHECKWRITE TEST, BIT 0 FROM THE IOP WAS A '1', BIT 0 FROM THE
     1605                            *        RAD WAS A '0', BUT NO TRANSMISSION ERROR WAS DETECTED.
     1606                            *
     1607                            * 4521   CHECKWRITE TEST, BIT 1 FROM THE IOP WAS A '1', BIT 1 FROM THE
     1608                            *        RAD WAS A '0', BUT NO TRANSMISSION ERROR WAS DETECTED.
     1609                            *
     1610                            * 4522   CHECKWRITE TEST, BIT 2 FROM THE IOP WAS A '1', BIT 2 FROM THE
     1611                            *        RAD WAS A '0', BUT NO TRANSMISSION ERROR WAS DETECTED.
     1612                            *
     1613                            * 4523   CHECKWRITE TEST, BIT 3 FROM THE IOP WAS A '1', BIT 3 FROM THE
     1614                            *        RAD WAS A '0', BUT NO TRANSMISSION ERROR WAS DETECTED.
     1615                            *
     1616                            * 4524   CHECKWRITE TEST, BIT 4 FROM THE IOP WAS A '1', BIT 4 FROM THE
     1617                            *        RAD WAS A '0', BUT NO TRANSMISSION ERROR WAS DETECTED.
     1618                            *
     1619                            * 4525   CHECKWRITE TEST, BIT 5 FROM THE IOP WAS A '1', BIT 5 FROM THE
     1620                            *        RAD WAS A '0', BUT NO TRANSMISSION ERROR WAS DETECTED.
     1621                            *
     1622                            * 4526   CHECKWRITE TEST, BIT 6 FROM THE IOP WAS A '1', BIT 6 FROM THE
     1623                            *        RAD WAS A '0', BUT NO TRANSMISSION ERROR WAS DETECTED.
     1624                            *
     1625                            * 4527   CHECKWRITE TEST, BIT 7 FROM THE IOP WAS A '1', BIT 7 FROM THE
     1626                            *        RAD WAS A '0', BUT NO TRANSMISSION ERROR WAS DETECTED.
     1627                            *
     1628                            *        *** ERRORS 4530 -4537 APPLY ONLY TO THE HIGH SPEED RADS ***
     1629                            *
     1630                            * 4530   CHECKWRITE TEST, BIT 0 OF SENSE BYTE 4 (FAILING TRACK) WAS
     1631                            *        A '0' SHOULD HAVE BEEN A '1'.
     1632                            *
     1633                            * 4531   CHECKWRITE TEST, BIT 1 OF SENSE BYTE 4 (FAILING TRACK) WAS
     1634                            *        A '0' SHOULD HAVE BEEN A '1'.
     1635                            *
     1636                            * 4532   CHECKWRITE TEST, BIT 2 OF SENSE BYTE 4 (FAILING TRACK) WAS
     1637                            *        A '0' SHOULD HAVE BEEN A '1'.
     1638                            *
     1639                            * 4533   CHECKWRITE TEST, BIT 3 OF SENSE BYTE 4 (FAILING TRACK) WAS
     1640                            *        A '0' SHOULD HAVE BEEN A '1'.
     1641                            *
     1642                            * 4534   CHECKWRITE TEST, BIT 4 OF SENSE BYTE 4 (FAILING TRACK) WAS
     1643                            *        A '0' SHOULD HAVE BEEN A '1'.
     1644                            *
     1645                            * 4535   CHECKWRITE TEST, BIT 5 OF SENSE BYTE 4 (FAILING TRACK) WAS
     1646                            *        A '0' SHOULD HAVE BEEN A '1'.
     1647                            *
     1648                            * 4536   CHECKWRITE TEST, BIT 6 OF SENSE BYTE 4 (FAILING TRACK) WAS
     1649                            *        A '0' SHOULD HAVE BEEN A '1'.
     1650                            *
     1651                            * 4537   CHECKWRITE TEST, BIT 7 OF SENSE BYTE 4 (FAILING TRACK) WAS
     1652                            *        A '0' SHOULD HAVE BEEN A '1'.
     1653                            *
     1654                            * 4540   CHECKWRITE TEST, BIT 0 FROM THE IOP WAS A '0', BIT 0 FROM THE
     1655                            *        RAD WAS A '1', BUT NO TRANSMISSION ERROR WAS DETECTED.
     1656                            *
     1657                            * 4541   CHECKWRITE TEST, BIT 1 FROM THE IOP WAS A '0', BIT 1 FROM THE
     1658                            *        RAD WAS A '1', BUT NO TRANSMISSION ERROR WAS DETECTED.
     1659                            *
     1660                            * 4542   CHECKWRITE TEST, BIT 2 FROM THE IOP WAS A '0', BIT 2 FROM THE
     1661                            *        RAD WAS A '1', BUT NO TRANSMISSION ERROR WAS DETECTED.
     1662                            *
     1663                            * 4543   CHECKWRITE TEST, BIT 3 FROM THE IOP WAS A '0', BIT 3 FROM THE
     1664                            *        RAD WAS A '1', BUT NO TRANSMISSION ERROR WAS DETECTED.
     1665                            *
     1666                            * 4544   CHECKWRITE TEST, BIT 4 FROM THE IOP WAS A '0', BIT 4 FROM THE
     1667                            *        RAD WAS A  '1', BUT NO TRANSMISSION ERROR WAS DETECTED.
     1668                            *
     1669                            * 4545   CHECKWRITE TEST, BIT 5 FROM THE IOP WAS A '0', BIT 5 FROM THE
     1670                            *        RAD WAS A '1', BUT NO TRANSMISSION ERROR WAS DETECTED.
     1671                            *
     1672                            * 4546   CHECKWRITE TEST, BIT 6 FROM THE IOP WAS A '0', BIT 6 FROM THE
     1673                            *        RAD WAS A '1', BUT NO TRANSMISSION ERROR WAS DETECTED.
     1674                            *
     1675                            * 4547   CHECKWRITE TEST, BIT 7 FROM THE IOP WAS A '0', BIT 7 FROM THE
     1676                            *        RAD WAS A '1', BUT NO TRANSMISSION ERROR WAS DETECTED.
     1677                            *
     1678                            *        *** ERRORS 4550 -4557 APPLY ONLY TO THE HIGH SPEED RADS ***
     1679                            *
     1680                            * 4550   CHECKWRITE TEST, BIT 0 OF SENSE BYTE 4 (FAILING TRACK) WAS
     1681                            *        A '0' SHOULD HAVE BEEN A '1'.
     1682                            *
     1683                            * 4551   CHECKWRITE TEST, BIT 1 OF SENSE BYTE 4 (FAILING TRACK) WAS
     1684                            *        A '0' SHOULD HAVE BEEN A '1'.
     1685                            *
     1686                            * 4552   CHECKWRITE TEST, BIT 2 OF SENSE BYTE 4 (FAILING TRACK) WAS
     1687                            *        A '0' SHOULD HAVE BEEN A '1'.
     1688                            *
     1689                            * 4553   CHECKWRITE TEST, BIT 3 OF SENSE BYTE 4 (FAILING TRACK) WAS
     1690                            *        A '0' SHOULD HAVE BEEN A '1'.
     1691                            *
     1692                            * 4554   CHECKWRITE TEST, BIT 4 OF SENSE BYTE 4 (FAILING TRACK) WAS
     1693                            *        A '0' SHOULD HAVE BEEN A '1'.
     1694                            *
     1695                            * 4555   CHECKWRITE TEST, BIT 5 OF SENSE BYTE 4 (FAILING TRACK) WAS
     1696                            *        A '0' SHOULD HAVE BEEN A '1'.
     1697                            *
     1698                            * 4556   CHECKWRITE TEST, BIT 6 OF SENSE BYTE 4 (FAILING TRACK) WAS
     1699                            *        A '0' SHOULD HAVE BEEN A '1'.
     1700                            *
     1701                            * 4557   CHECKWRITE TEST, BIT 7 OF SENSE BYTE 4 (FAILING TRACK) WAS
     1702                            *        A '0' SHOULD HAVE BEEN A '1'.
     1703                            *
     1704                            *
     1705                            * 4610   HIO, CC2 = 0.
     1706                            *        A. CONDITION CODE ERROR.
     1707                            *        B. I/O ADDRESS RECOGNIZED AND THE RAD WAS NOT 'BUSY' WHEN THE
     1708                            *           HALT OCCURRED, IT SHOULD HAVE BEEN 'BUSY'.
     1709                            *
     1710                            * 4620   INCORRECT STATUS RETURNED FROM THE HALT OPERATION.
     1711                            *        CHECK ERROR MESSAGE FOR TYPE OF FAILURE.
     1712                            *
     1713                            * 4710   HIO, CC2 = 0.
     1714                            *        A. CONDITION CODE ERROR.
     1715                            *        B. I/O ADDRESS RECOGNIZED AND THE RAD WAS NOT 'BUSY' WHEN THE
     1716                            *           HALT OCCURRED, IT SHOULD HAVE BEEN 'BUSY'.
     1717                            *
     1718                            * 4720   INCORRECT STATUS RETURNED FROM THE HALT OPERATION.
     1719                            *        CHECK ERROR MESSAGE FOR TYPE OF FAILURE.
     1720                            *
     1721                            *        *** ERROR 4810 - 4820 MAYBE REPORTED IF A EXTENDED          ***
     1722                            *        *** PERFORMANCE RAD WITH THE FOUR BYTE OPTION IS            ***
     1723                            *        *** CONNECTED TO A SIOP.                                    ***
     1724                            *
     1725                            * 4810   DATA OVERRUN DID NOT OCCUR FOR A SERIES OF WRITE SHORT
     1726                            *        DATA CHAINED IOCD'S.
     1727                            *
     1728                            * 4820   DATA OVERRUN DID NOT OCCUR FOR A SERIES OF READ SHORT
     1729                            *        DATA CHAINED IOCD'S.
     1730                            *
     1731                            * 4910   WRITE PROTECTION WAS DETECTED AS PART OF THE STATUS RETURNED
     1732                            *        AFTER A WRITE OPERATION. THIS IS NOT AN ERROR IF THE
     1733                            *        WRITE PROTECT SWITCHES WERE SET INTENTIONALLY TO CHECK OUT
     1734                            *        WRITE PROTECTION AS SPECIFIED BY THE WRITE PROTECT SWITCHES.
     1735                            *
     1736                            * 4920   WRITE PROTECTION WAS DETECTED AS PART OF THE SENSE WORD
     1737                            *        RETURNED FROM A SENSE OF A DEVICE.
     1738                            *        THIS IS NOT AN ERROR IF THE WRITE PROTECT SWITCHES WERE
     1739                            *        SET INTENTIONALLY TO CHECK OUT WRITE PROTECTION AS SPECIFIED
     1740                            *        BY THE WRITE PROTECT SWITCHES.
     1741                            * 5010   THE RAD COULD NOT FIND A GOOD TRACK                        *B02
     1742                            *                                                                   *B02
     1743                            * 5016   A GOOD TRACK COULD NOT BE LOCATED BY THE OPERATION.        *B02
     1744                            *        CHECK ERROR MESSAGE FOR TYPE OF FAILURE.                   *B02
     1745                            *                                                                   *B02
     1746                            * 5020   CHECKWRITE ERROR FOR THE CHECKING OF BYTE COUNTS NOT EQUAL TO B2
     1747                            *        A SECTOR. CHECKWRITE EXPECTS  THE LAST PART OF A SECTOR TO *B02
     1748                            *        CONTAIN  ZEROS. IF TRANSMISSION ERROR IS REPORTED THIS WAS *B02
     1749                            *        NOT THE CASE .                                             *B02
     1750                            *
     1751                            *
     1752                            *
     1753                            *
     1754                            *
     1755                            *
     1756                            *
     1757                            *
     1758                            *
     1759                            *
     1760                            *
     1761                            *
     1762                            *
     1763                            *
     1764                            *
     1765                            *                 FIGURE 3
     1766                            *
     1767                            *                 TABLE OF ERROR MESSAGE ABBREVIATIONS
     1768                            *
     1769                            *--------------------------------------------------------------------*
     1770                            *  ABBREVIATION        *            DESCRIPTION OF THE ABBREVIATION *
     1771                            *----------------------*---------------------------------------------*
     1772                            *                      *                                             *
     1773                            *  A                   *  TRACK (BAND) ADDRESSING ERROR              *
     1774                            *                      *                                             *
     1775                            *  ADDR                *  ADDRESS                                    *
     1776                            *                      *                                             *
     1777                            * AR                   *  ADDRESS RECOGNIZITION                      *
     1778                            *                      *                                             *
     1779                            *                      *                                             *
     1780                            *  B                   *  BAND ADDRESS                               *
     1781                            *                      *                                             *
     1782                            *  BC                  *  BYTE COUNT                                 *
     1783                            *                      *                                             *
     1784                            *  BFR                 *  BUFFER                                     *
     1785                            *                      *                                             *
     1786                            *  BYT CNT             *  BYTE COUNT                                 *
     1787                            *                      *                                             *
     1788                            *                      *                                             *
     1789                            *  CC                  *  CONDITION CODES                            *
     1790                            *                      *                                             *
     1791                            * CE INT               *  CHANNEL END INTERRUPT                      *
     1792                            *                      *                                             *
     1793                            * CHECKWRT             *  CHECK-WRITE                                *
     1794                            *                      *                                             *
     1795                            *  CNT                 *  COUNT                                      *
     1796                            *                      *                                             *
     1797                            * COM ADR              *  COMMAND ADDRESS                            *
     1798                            *                      *                                             *
     1799                            *                      *                                             *
     1800                            *  D                   *  DATA COMPARISON ERROR                      *
     1801                            *                      *                                             *
     1802                            *  DEC                 *  DECIMAL                                    *
     1803                            *                      *                                             *
     1804                            *  DEV                 *  DEVICE                                     *
     1805                            *                      *                                             *
     1806                            *  DEV-BUSY            *  THE DEVICE BEING TESTED IS BUSY            *
     1807                            *                      *                                             *
     1808                            *                      *                                             *
     1809                            *  E                   *  UNUSUAL END INTERRUPT                      *
     1810                            *                      *                                             *
     1811                            *  ERR                 *  ERROR                                      *
     1812                            *                      *                                             *
     1813                            *  EXP                 *  EXPECTED                                   *
     1814                            *                      *                                             *
     1815                            *  EXP INTR DID NOT    *  EXPECTED INTERRUPT DID NOT OCCUR           *
     1816                            *  OCCUR               *                                             *
     1817                            *                      *                                             *
     1818                            *                      *                                             *
     1819                            *  FLG                 *  FLAG                                       *
     1820                            *                      *                                             *
     1821                            *                      *                                             *
     1822                            *  HEX                 *  HEXADECIMAL                                *
     1823                            *                      *                                             *
     1824                            *                      *                                             *
     1825                            *  INC LEN             *  INCORRECT LENGTH                           *
     1826                            *                      *                                             *
     1827                            *  INT PEND            *  INTERRUPT PENDING                          *
     1828                            *                      *                                             *
     1829                            * INTR                 * INTERRUPT                                   *
     1830                            *                      *                                             *
     1831                            *  IOCD                *  I/O CHANNEL DOUBLEWORD                     *
     1832                            *                      *                                             *
     1833                            *  IOP CONT            *  IOP CONTROL ERROR                          *
     1834                            *                      *                                             *
     1835                            *  IOP MEM             *  IOP MEMORY ERROR                           *
     1836                            *                      *                                             *
     1837                            *  ISB                 *  INTERRUPT STATUS BYTE                      *
     1838                            *                      *                                             *
     1839                            *                      *                                             *
     1840                            *  LOC                 *  LOCATION (MEMORY)                          *
     1841                            *                      *                                             *
     1842                            *                      *                                             *
     1843                            *  MEM ADR             *  MEMORY ADDRESS ERROR                       *
     1844                            *                      *                                             *
     1845                            *  MWA                 *  MEMORY WORD ADDRESS                        *
     1846                            *                      *                                             *
     1847                            *                      *                                             *
     1848                            * NEG                  *  NEGATIVE                                   *
     1849                            *                      *                                             *
     1850                            *  NO.                 *  NUMBER                                     *
     1851                            *                      *                                             *
     1852                            *  NOT OP              *  NOT OPERATIONAL                            *
     1853                            *                      *                                             *
     1854                            *                      *                                             *
     1855                            *  O                   *  DATA OVERRUN ERROR                         *
     1856                            *                      *                                             *
     1857                            *  OBS                 *  OBSERVED                                   *
     1858                            *                      *                                             *
     1859                            *  OSB                 *  OPERATIONAL STATUS BYTE                    *
     1860                            *                      *                                             *
     1861                            *                      *                                             *
     1862                            *  P                   *  SYNC PATTERN MISSED ERROR                  *
     1863                            *                      *                                             *
     1864                            *                      *                                             *
     1865                            *  RECOG               *  RECOGNIZED                                 *
     1866                            *                      *                                             *
     1867                            *  REDDCRED            *  ORDER SEQUENCE - (READ 12 ORDER DATA       *
     1868                            *                      *  CHAINED TO A READ 12 ORDER)                *
     1869                            *                      *                                             *
     1870                            * RST                  *  RESET                                      *
     1871                            *                                                                    *
     1872                            *                      *                                             *
     1873                            *  S                   *  SECTOR ADDRESS                             *
     1874                            *                      *                                             *
     1875                            *  SEC UNVL            *  SECTOR UNAVAILABLE                         *
     1876                            *                      *                                             *
     1877                            *  SKCCRD12            *  ORDER SEQUENCE - (SEEK ORDER COMMAND       *
     1878                            *                      *  CHAINED TO A READ 12 ORDER)                *
     1879                            *                      *                                             *
     1880                            *  SKCCWRT             *  ORDER SEQUENCE - (SEEK ORDER COMMAND       *
     1881                            *                      *  CHAINED TO A WRITE ORDER)                  *
     1882                            *                      *                                             *
     1883                            *  SYNC MSD            *  SYNC PATTERN MISSED ERROR                  *
     1884                            *                      *                                             *
     1885                            *                      *                                             *
     1886                            *  T                   *  TRACK ADDRESS                              *
     1887                            *                      *                                             *
     1888                            *  T                   *  TRANSMISSION DATA ERROR                    *
     1889                            *                      *                                             *
     1890                            *  TRANSM              *  TRANSMISSION DATA ERROR                    *
     1891                            *                      *                                             *
     1892                            *  TRANSMEM            *  TRANSMISSION MEMORY ERROR                  *
     1893                            *                      *                                             *
     1894                            *                      *                                             *
     1895                            *  U                   *  SECTOR UNAVAILABLE                         *
     1896                            *                      *                                             *
     1897                            *  UE                  *  UNUSUAL END                                *
     1898                            *                      *                                             *
     1899                            *  UE INT              *  UNUSUAL END INTERRUPT                      *
     1900                            *                      *                                             *
     1901                            *  UNAVAIL             *  UNAVAILABLE                                *
     1902                            *                      *                                             *
     1903                            *  UNEXP INTR OCCURRED *  AN UNEXPECTED INTERRUPT HAS OCCURRED       *
     1904                            *                      *                                             *
     1905                            *                      *                                             *
     1906                            *  WD                  *  WORD                                       *
     1907                            *                      *                                             *
     1908                            *  WRT                 *  WRITE                                      *
     1909                            *                      *                                             *
     1910                            *  WRT PV              *  WRITE PROTECT VIOLATION                    *
     1911                            *                      *                                             *
     1912                            *  WRTDCWRT            *  ORDER SEQUENCE - (WRITE ORDER DATA CHAINED *
     1913                            *                      *  TO A WRITE ORDER)                          *
     1914                            *                      *                                             *
     1915                            *                      *                                             *
     1916                            * X                    *  VALUE IS IN HEXADECIMAL                    *
     1917                            *                      *                                             *
     1918                            *                      *                                             *
     1919                            * ZBC INT              *  ZERO BYTE COUNT INTERRUPT                  *
     1920                            *                      *                                             *
     1921         00000000           R0       EQU      0
     1922         00000001           R1       EQU      1
     1923         00000002           R2       EQU      2
     1924         00000003           R3       EQU      3
     1925         00000004           R4       EQU      4
     1926         00000005           R5       EQU      5
     1927         00000006           R6       EQU      6
     1928         00000007           R7       EQU      7
     1929         00000008           R8       EQU      8
     1930         00000009           R9       EQU      9
     1931         0000000A           R10      EQU      X'A'
     1932         0000000B           R11      EQU      X'B'
     1933         0000000C           R12      EQU      X'C'
     1934         0000000D           R13      EQU      X'D'
     1935         0000000E           R14      EQU      X'E'
     1936         0000000F           R15      EQU      X'F'
     1937   01 00200                          ORG      X'200'
            01 00200
     1938                            *
     1939                            *
     1940                                     OPEN     PAGE              THIS INHIBITS
     1941         00000000           PAGE     CNAME                       PAGE
     1942                                     PROC                         DIRECTIVE
     1943                                     PEND                          TO PERMIT MAX.LINAG/PAGE
     1944                            *
     1945                            *
     1946                                     PAGE
     1947         00000000           WAITPROC CNAME                                                      *C01
     1948                                     PROC                                                       *C01
     1949                                     GOTO,DPM OLD,NEW                                           *C01
     1950                            OLD      SET X                                                      *C01
     1951                            LF       WAIT     %                 OLD VERSION                     *C01
     1952                                     B        %+1                                               *C01
     1953                                     GOTO     WAITPRO1                                          *C01
     1954                            NEW      SET 1                                                      *C01
     1955                            LF       BAL,15   *:MLT+43          NEW VERSION                     *C01
     1956                                     DATA     AF(1)                                             *C01
     1957                            WAITPRO1 PEND                                                       *C01
     1958                            *
     1959                            * PROCEDURE
     1960                            *
     1961         00000000           :TSEQ    CNAME
     1962                                     PROC
     1963                            LF       EQU      %
     1964                            I        SET 1
     1965                                     DO       NUM(AF)/4+1
     1966                                     GEN,8,8,8,8  AF(I),AF(I+1),AF(I+2),AF(I+3)
     1967                            I        SET      I+4
     1968                                     FIN
     1969                                     PEND
     1970                            *
     1971                            *
     1972                            *        PROCEDURE
     1973                            *
     1974         00000000           :TSEQEQU CNAME
     1975                                     PROC
     1976                            LF(1)    EQU      AF(1)
     1977                            LF(2)    EQU      AF(1)+1
     1978                            LF(3)    EQU      AF(1)+2
     1979                            LF(4)    EQU      AF(1)+3
     1980                            LF(5)    EQU      AF(1)+4
     1981                            LF(6)    EQU      AF(1)+5
     1982                            LF(7)    EQU      AF(1)+6
     1983                            LF(8)    EQU      AF(1)+7
     1984                                     PEND
     1985                            *
     1986                            *  PROCEDURES
     1987                            *  ----------
     1988                            *
     1989                            *  PROCEDURE  FOR GENERATING DICTONARY DOUBLE WORDS
     1990                            *
     1991         00000000           :PROCDIC CNAME
     1992                                     PROC
     1993                            LF       GEN,32,3,3,3,3,4,16  AF(1),ABSVAL(AF(2)),ABSVAL(AF(3)),;
     1994                                                          ABSVAL(AF(4)),ABSVAL(AF(5)),;
     1995                                                          ABSVAL(AF(6)),ABSVAL(AF(7))
     1996                                     PEND
     1997                            *
     1998                            *
     1999                            ** ***************************************************************
     2000                            ** ***************************************************************
     2001                            ** *     TO FACILITATE THE TYPING OUT OF CHANGES MADE TO
     2002                            ** *     THIS PROGRAM A PROCEDURE CALLED BY 'REV' IS USED.
     2003                            ** *
     2004                            ** *
     2005                            ** *     METHOD:
     2006                            ** *              1. USE 'REV' AS A COMMAND, IT OPERATES
     2007                            ** *               SIMILAR TO A TEXTC DIRECTIVE.
     2008                            ** *              2. A LABEL OF '' REVISION'' MUST BE USED
     2009                            ** *               WITH THE FIRST CALL OF '' REV''.
     2010                            ** *              3. A LABEL OF ''REVEND'' MUST BE USED WITH
     2011                            ** *               THE LAST CALL OF ''REV''.
     2012                            ** *
     2013                            ** *
     2014                            ** *
     2015                            ** *
     2016                            ** *     WHEN USED CORRECTLY '' REV'' WILL GENERATE ALL OF THE
     2017                            ** *     NECCESSARY CODE TO TYPE THE REVISIONS MADE.
     2018                            ** AN EXAMPLE OF USE WOULD BE:
     2019                            **          CSECT
     2020                            **          ORG    X'(A LOCATION PAST THE LAST LITERAL)'
     2021                            ** REVISION REV   'REVISION XXX'
     2022                            ** REVEND   REV   'NO CHANGES TO THE OPERATING PROCEDURES'
     2023                            ** *        USECT     (PREVIOUSLY DEFINED LABEL)
     2024                            ** NOTE!!! THIS PROCEDURE GENERATES 2 MORE LITERALS.
     2025                            ** **************************************************************
     2026                            ** **************************************************************
     2027         00000000           REVCOUNT SET      0
     2028         00000000           REVSTART SET      0
     2029                            *
     2030         00000000           REV      CNAME
     2031                                     PROC
     2032                                     DO       REVCOUNT=0
     2033                            REVSTART SET      %
     2034                            LF       RES      1
     2035                                     FIN
     2036                            REVCOUNT SET      REVCOUNT+1
     2037                                     DO       SCOR(LF,REVEND)
     2038                                     TEXTC    AF
     2039                                     CODE
     2040                                     ORG      REVSTART
     2041                                     GEN,32   REVCOUNT
     2042                                     ELSE
     2043                                     TEXTC    AF
     2044                                     FIN
     2045                                     PEND
     2046                            *
     2047         00000000           CODE     CNAME
     2048                                     PROC
     2049                            REVPRINT LW,3     REVISON
     2050                                     LW,4     =REVISON+1
     2051                                     STW,4    TEXTADR
     2052                            PRINT    BAL,15   *:PRINT
     2053                            TEXTADR  DATA     0
     2054                                     LB,5     *4
     2055                                     AI,5     4
     2056                                     SLS,5    -2
     2057                                     AW,4     5
     2058                                     BDR,3    PRINT-1
     2059                                     LW,4     NOP
     2060                                     STW,4    REVBRNCH
     2061                                     B        *%-1
     2062                            NOP      NOP
     2063                                     PEND
     2064                            *
     2065                            *
     2066                            *************************************************************
     2067                            *************************************************************
     2068                            ************   REVISIONS GO HERE*****************************
     2069                            *************************************************************
     2070                            *
     2071   02 00000                          CSECT
     2072   02 02500                          ORG      X'2500'
            02 02500
     2073   02 02501    2DE3D640 A   REVISON  REV      'TO INHIBIT PRINT-OUT OF THIS MESSAGE, SET SS4'
            02 02502    C9D5C8C9 A
            02 02503    C2C9E340 A
            02 02504    D7D9C9D5 A
            02 02505    E360D6E4 A
            02 02506    E340D6C6 A
            02 02507    40E3C8C9 A
            02 02508    E240D4C5 A
            02 02509    E2E2C1C7 A
            02 0250A    C56B40E2 A
            02 0250B    C5E340E2 A
            02 0250C    E2F44040 A
     2074   02 0250D    34E3C5E2 A            REV      'TEST ENVIRONMENT DEFINITION WITH THE SYST DIRECTIVE:'
            02 0250E    E340C5D5 A
            02 0250F    E5C9D9D6 A
            02 02510    D5D4C5D5 A
            02 02511    E340C4C5 A
            02 02512    C6C9D5C9 A
            02 02513    E3C9D6D5 A
            02 02514    40E6C9E3 A
            02 02515    C840E3C8 A
            02 02516    C540E2E8 A
            02 02517    E2E340C4 A
            02 02518    C9D9C5C3 A
            02 02519    E3C9E5C5 A
            02 0251A    7A404040 A
     2075   02 0251B    2D4040E2 A            REV      '  SYST,C,R,I,A1,M1,L1,A2,M2,L2,....,A8,M8,L8,'
            02 0251C    E8E2E36B A
            02 0251D    C36BD96B A
            02 0251E    C96BC1F1 A
            02 0251F    6BD4F16B A
            02 02520    D3F16BC1 A
            02 02521    F26BD4F2 A
            02 02522    6BD3F26B A
            02 02523    4B4B4B4B A
            02 02524    6BC1F86B A
            02 02525    D4F86BD3 A
            02 02526    F86B4040 A
     2076   02 02527    2E4040E4 A            REV      '  UP TO 8 DEVICES CAN BE DEFINED WITH THE SYST'
            02 02528    D740E3D6 A
            02 02529    40F840C4 A
            02 0252A    C5E5C9C3 A
            02 0252B    C5E240C3 A
            02 0252C    C1D540C2 A
            02 0252D    C540C4C5 A
            02 0252E    C6C9D5C5 A
            02 0252F    C440E6C9 A
            02 02530    E3C840E3 A
            02 02531    C8C540E2 A
            02 02532    E8E2E340 A
     2077   02 02533    2F4040C4 A            REV      '  DIRECTIVE. EACH DEVICE REQUIRES AN A,M, AND L'
            02 02534    C9D9C5C3 A
            02 02535    E3C9E5C5 A
            02 02536    4B40C5C1 A
            02 02537    C3C840C4 A
            02 02538    C5E5C9C3 A
            02 02539    C540D9C5 A
            02 0253A    D8E4C9D9 A
            02 0253B    C5E240C1 A
            02 0253C    D540C16B A
            02 0253D    D46B40C1 A
            02 0253E    D5C440D3 A
     2078   02 0253F    0C4040D7 A            REV      '  PARAMETER.'
            02 02540    C1D9C1D4 A
            02 02541    C5E3C5D9 A
            02 02542    4B404040 A
     2079   02 02543    2D4040C3 A            REV      '  C = CONTROLLER MODEL NO.7201,7211,7231,7250'   *C02
            02 02544    407E40C3 A
            02 02545    D6D5E3D9 A
            02 02546    D6D3D3C5 A
            02 02547    D940D4D6 A
            02 02548    C4C5D340 A
            02 02549    D5D64BF7 A
            02 0254A    F2F0F16B A
            02 0254B    F7F2F1F1 A
            02 0254C    6BF7F2F3 A
            02 0254D    F16BF7F2 A
            02 0254E    F5F04040 A
     2080   02 0254F    19D9407E A            REV     'R = IOP TYPE AND REVISION'                        *C01
            02 02550    40C9D6D7 A
            02 02551    40E3E8D7 A
            02 02552    C540C1D5 A
            02 02553    C440D9C5 A
            02 02554    E5C9E2C9 A
            02 02555    D6D54040 A
     2081   02 02556    11D97E40 A            REV      'R= 000000XX  MIOP'                               *C01
            02 02557    F0F0F0F0 A
            02 02558    F0F0E7E7 A
            02 02559    4040D4C9 A
            02 0255A    D6D74040 A
     2082   02 0255B    11D97E40 A            REV      'R= 000001XX  SIOP'                               *C01
            02 0255C    F0F0F0F0 A
            02 0255D    F0F1E7E7 A
            02 0255E    4040E2C9 A
            02 0255F    D6D74040 A
     2083   02 02560    2CD97E40 A            REV      'R= 0000XX00 NOT A RAD CONTROLLER 7201/7231-3'    *C01
            02 02561    F0F0F0F0 A
            02 02562    E7E7F0F0 A
            02 02563    40D5D6E3 A
            02 02564    40C140D9 A
            02 02565    C1C440C3 A
            02 02566    D6D5E3D9 A
            02 02567    D6D3D3C5 A
            02 02568    D940F7F2 A
            02 02569    F0F161F7 A
            02 0256A    F2F3F160 A
            02 0256B    F3404040 A
     2084   02 0256C    28D97E40 A            REV      'R= 0000XX03 A RAD CONTROLLER 7201/7231-3'        *C01
            02 0256D    F0F0F0F0 A
            02 0256E    E7E7F0F3 A
            02 0256F    40C140D9 A
            02 02570    C1C440C3 A
            02 02571    D6D5E3D9 A
            02 02572    D6D3D3C5 A
            02 02573    D940F7F2 A
            02 02574    F0F161F7 A
            02 02575    F2F3F160 A
            02 02576    F3404040 A
     2085   02 02577    334040C9 A            REV      '  I = 0, INVALID DEV ADR TEST WILL NOT BE PERFORMED'
            02 02578    407E40F0 A
            02 02579    6B40C9D5 A
            02 0257A    E5C1D3C9 A
            02 0257B    C440C4C5 A
            02 0257C    E540C1C4 A
            02 0257D    D940E3C5 A
            02 0257E    E2E340E6 A
            02 0257F    C9D3D340 A
            02 02580    D5D6E340 A
            02 02581    C2C540D7 A
            02 02582    C5D9C6D6 A
            02 02583    D9D4C5C4 A
     2086   02 02584    214040C1 A            REV      '  A(1) THRU A(8) DEVICE ADDRESSES'
            02 02585    4DF15D40 A
            02 02586    E3C8D9E4 A
            02 02587    40C14DF8 A
            02 02588    5D40C4C5 A
            02 02589    E5C9C3C5 A
            02 0258A    40C1C4C4 A
            02 0258B    D9C5E2E2 A
            02 0258C    C5E24040 A
     2087   02 0258D    314040D4 A            REV      '  M(1) THRU M(8) DEVICE MODEL NUMBERS (7202,7203,'
            02 0258E    4DF15D40 A
            02 0258F    E3C8D9E4 A
            02 02590    40D44DF8 A
            02 02591    5D40C4C5 A
            02 02592    E5C9C3C5 A
            02 02593    40D4D6C4 A
            02 02594    C5D340D5 A
            02 02595    E4D4C2C5 A
            02 02596    D9E2404D A
            02 02597    F7F2F0F2 A
            02 02598    6BF7F2F0 A
            02 02599    F36B4040 A
     2088   02 0259A    2B404040 A            REV      '                 7204,7212,,7232,7251,7252)'     *C02
            02 0259B    40404040 A
            02 0259C    40404040 A
            02 0259D    40404040 A
            02 0259E    4040F7F2 A
            02 0259F    F0F46BF7 A
            02 025A0    F2F1F26B A
            02 025A1    6BF7F2F3 A
            02 025A2    F26BF7F2 A
            02 025A3    F5F16BF7 A
            02 025A4    F2F5F25D A
     2089   02 025A5    304040D3 A            REV      '  L(1) THRU L(8) = 0 - ALL TRACKS WILL BE TESTED'
            02 025A6    4DF15D40 A
            02 025A7    E3C8D9E4 A
            02 025A8    40D34DF8 A
            02 025A9    5D407E40 A
            02 025AA    F0406040 A
            02 025AB    C1D3D340 A
            02 025AC    E3D9C1C3 A
            02 025AD    D2E240E6 A
            02 025AE    C9D3D340 A
            02 025AF    C2C540E3 A
            02 025B0    C5E2E3C5 A
            02 025B1    C4404040 A
     2090   02 025B2    16D9C5E5 A            REV      'REVISION C02 (6/25/73)'                          *C02
            02 025B3    C9E2C9D6 A
            02 025B4    D540C3F0 A
            02 025B5    F2404DF6 A
            02 025B6    61F2F561 A
            02 025B7    F7F35D40 A
     2091   02 025B8    29F14BC4 A            REV      '1.DISABLED CNTR INT IN TST1,16(TAR 10867)'       *C02
            02 025B9    C9E2C1C2 A
            02 025BA    D3C5C440 A
            02 025BB    C3D5E3D9 A
            02 025BC    40C9D5E3 A
            02 025BD    40C9D540 A
            02 025BE    E3E2E3F1 A
            02 025BF    6BF1F64D A
            02 025C0    E3C1D940 A
            02 025C1    F1F0F8F6 A
            02 025C2    F75D4040 A
     2092   02 025C3    2CF24BC1 A            REV      '2.ADDED DELAY BETWEEN SIO AND TDV IN TST1,29'    *C02
            02 025C4    C4C4C5C4 A
            02 025C5    40C4C5D3 A
            02 025C6    C1E840C2 A
            02 025C7    C5E3E6C5 A
            02 025C8    C5D540E2 A
            02 025C9    C9D640C1 A
            02 025CA    D5C440E3 A
            02 025CB    C4E540C9 A
            02 025CC    D540E3E2 A
            02 025CD    E3F16BF2 A
            02 025CE    F9404040 A
     2093   02 025CF    27F34BC9 A            REV      '3.INCREASED IO TIMEOUT DELAY (TAR30815)'         *C02
            02 025D0    D5C3D9C5 A
            02 025D1    C1E2C5C4 A
            02 025D2    40C9D640 A
            02 025D3    E3C9D4C5 A
            02 025D4    D6E4E340 A
            02 025D5    C4C5D3C1 A
            02 025D6    E8404DE3 A
            02 025D7    C1D9F3F0 A
            02 025D8    F8F1F55D A
     2094   02 025D9    27F44BC1 A            REV      '4.ADDED MODEL NO.725X TO SYST DIRECTIVE'         *C02
            02 025DA    C4C4C5C4 A
            02 025DB    40D4D6C4 A
            02 025DC    C5D340D5 A
            02 025DD    D64BF7F2 A
            02 025DE    F5E740E3 A
            02 025DF    D640E2E8 A
            02 025E0    E2E340C4 A
            02 025E1    C9D9C5C3 A
            02 025E2    E3C9E5C5 A
     2095   02 025E3    2BF54BC3 A            REV      '5.CHANGED PROGRAM TO INCLUDE THE MODEL 725X'     *C02
            02 025E4    C8C1D5C7 A
            02 025E5    C5C440D7 A
            02 025E6    D9D6C7D9 A
            02 025E7    C1D440E3 A
            02 025E8    D640C9D5 A
            02 025E9    C3D3E4C4 A
            02 025EA    C540E3C8 A
            02 025EB    C540D4D6 A
            02 025EC    C4C5D340 A
            02 025ED    F7F2F5E7 A
     2096   02 025EE    1340404D A            REV      '  (CARTRIDGE DISKS)'                             *C02
            02 025EF    C3C1D9E3 A
            02 025F0    D9C9C4C7 A
            02 025F1    C540C4C9 A
            02 025F2    E2D2E25D A
     2097   02 025F3    17D9C5E5 A            REV      'REVISION C01 (11/22/71)'                         *C01
            02 025F4    C9E2C9D6 A
            02 025F5    D540C3F0 A
            02 025F6    F1404DF1 A
            02 025F7    F161F2F2 A
            02 025F8    61F7F15D A
     2098   02 025F9    23E3C8C5 A            REV      'THE PROGRAM WAS CHANGED AS FOLLOWS:'             *C01
            02 025FA    40D7D9D6 A
            02 025FB    C7D9C1D4 A
            02 025FC    40E6C1E2 A
            02 025FD    40C3C8C1 A
            02 025FE    D5C7C5C4 A
            02 025FF    40C1E240 A
            02 02600    C6D6D3D3 A
            02 02601    D6E6E27A A
     2099   02 02602    2CF14B40 A            REV      '1. TO USE REMOTE DIAGNOSTIC PROGRAM MONITOR.'    *C01
            02 02603    E3D640E4 A
            02 02604    E2C540D9 A
            02 02605    C5D4D6E3 A
            02 02606    C540C4C9 A
            02 02607    C1C7D5D6 A
            02 02608    E2E3C9C3 A
            02 02609    40D7D9D6 A
            02 0260A    C7D9C1D4 A
            02 0260B    40D4D6D5 A
            02 0260C    C9E3D6D9 A
            02 0260D    4B404040 A
     2100   02 0260E    2EF24B40 A            REV      '2. CHANGED  SYST  DIRECTIVE TO CORRECT PROGRAM'  *C01
            02 0260F    C3C8C1D5 A
            02 02610    C7C5C440 A
            02 02611    40E2E8E2 A
            02 02612    E34040C4 A
            02 02613    C9D9C5C3 A
            02 02614    E3C9E5C5 A
            02 02615    40E3D640 A
            02 02616    C3D6D9D9 A
            02 02617    C5C3E340 A
            02 02618    D7D9D6C7 A
            02 02619    D9C1D440 A
     2101   02 0261A    2A404040 A            REV      '   ERROR PROGRAM DID NOT CALCULATE SURFACE'      *C01
            02 0261B    C5D9D9D6 A
            02 0261C    D940D7D9 A
            02 0261D    D6C7D9C1 A
            02 0261E    D440C4C9 A
            02 0261F    C440D5D6 A
            02 02620    E340C3C1 A
            02 02621    D3C3E4D3 A
            02 02622    C1E3C540 A
            02 02623    E2E4D9C6 A
            02 02624    C1C3C540 A
     2102   02 02625    2C404040 A            REV      '   LIMITS CORRECTLY FOR A HIGH SPEED RAD, IF'    *C01
            02 02626    D3C9D4C9 A
            02 02627    E3E240C3 A
            02 02628    D6D9D9C5 A
            02 02629    C3E3D3E8 A
            02 0262A    40C6D6D9 A
            02 0262B    40C140C8 A
            02 0262C    C9C7C840 A
            02 0262D    E2D7C5C5 A
            02 0262E    C440D9C1 A
            02 0262F    C46B40C9 A
            02 02630    C6404040 A
     2103   02 02631    2D404040 A            REV      '   THE SOFTWARE WRITE PROTECT PARAMETERS WERE'   *C01
            02 02632    E3C8C540 A
            02 02633    E2D6C6E3 A
            02 02634    E6C1D9C5 A
            02 02635    40E6D9C9 A
            02 02636    E3C540D7 A
            02 02637    D9D6E3C5 A
            02 02638    C3E340D7 A
            02 02639    C1D9C1D4 A
            02 0263A    C5E3C5D9 A
            02 0263B    E240E6C5 A
            02 0263C    D9C54040 A
     2104   02 0263D    08404040 A            REV      '   USED.'                                        *C01
            02 0263E    E4E2C5C4 A
            02 0263F    4B404040 A
     2105   02 02640    2BF34B40 A            REV      '3. CHANGED SYST DIRECTIVE PARAMETER 2 (REV)'     *C01
            02 02641    C3C8C1D5 A
            02 02642    C7C5C440 A
            02 02643    E2E8E2E3 A
            02 02644    40C4C9D9 A
            02 02645    C5C3E3C9 A
            02 02646    E5C540D7 A
            02 02647    C1D9C1D4 A
            02 02648    C5E3C5D9 A
            02 02649    40F2404D A
            02 0264A    D9C5E55D A
     2106   02 0264B    1E404040 A            REV      '   TO (IOP TYPE AND REVISION).'                  *C01
            02 0264C    E3D6404D A
            02 0264D    C9D6D740 A
            02 0264E    E3E8D7C5 A
            02 0264F    40C1D5C4 A
            02 02650    40D9C5E5 A
            02 02651    C9E2C9D6 A
            02 02652    D55D4B40 A
     2107   02 02653    16404040 A            REV      '   (H2=000000XX  MIOP)'                          *C01
            02 02654    4DC8F27E A
            02 02655    F0F0F0F0 A
            02 02656    F0F0E7E7 A
            02 02657    4040D4C9 A
            02 02658    D6D75D40 A
     2108   02 02659    16404040 A            REV      '   (H2=000001XX  SIOP)'                          *C01
            02 0265A    4DC8F27E A
            02 0265B    F0F0F0F0 A
            02 0265C    F0F1E7E7 A
            02 0265D    4040E2C9 A
            02 0265E    D6D75D40 A
     2109   02 0265F    2F404040 A            REV      '   (H2=0000XX00  NOT A RAD CONTROLLER 7201/31-3' *C01
            02 02660    4DC8F27E A
            02 02661    F0F0F0F0 A
            02 02662    E7E7F0F0 A
            02 02663    4040D5D6 A
            02 02664    E340C140 A
            02 02665    D9C1C440 A
            02 02666    C3D6D5E3 A
            02 02667    D9D6D3D3 A
            02 02668    C5D940F7 A
            02 02669    F2F0F161 A
            02 0266A    F3F160F3 A
     2110   02 0266B    2B404040 A            REV      '   (H2=0000XX03 A RAD CONTROLLER 7201/7231)'     *C01
            02 0266C    4DC8F27E A
            02 0266D    F0F0F0F0 A
            02 0266E    E7E7F0F3 A
            02 0266F    40C140D9 A
            02 02670    C1C440C3 A
            02 02671    D6D5E3D9 A
            02 02672    D6D3D3C5 A
            02 02673    D940F7F2 A
            02 02674    F0F161F7 A
            02 02675    F2F3F15D A
     2111   02 02676    2FF44B40 A            REV      '4. CHANGED MEM DIRECTIVE DEFAULT VALUE TO ALLOW' *C01
            02 02677    C3C8C1D5 A
            02 02678    C7C5C440 A
            02 02679    D4C5D440 A
            02 0267A    C4C9D9C5 A
            02 0267B    C3E3C9E5 A
            02 0267C    C540C4C5 A
            02 0267D    C6C1E4D3 A
            02 0267E    E340E5C1 A
            02 0267F    D3E4C540 A
            02 02680    E3D640C1 A
            02 02681    D3D3D6E6 A
     2112   02 02682    2E404040 A            REV      '   ALL OR MEMORY TO BE ALLOCATED INITIALLY FOR'  *C01
            02 02683    C1D3D340 A
            02 02684    D6D940D4 A
            02 02685    C5D4D6D9 A
            02 02686    E840E3D6 A
            02 02687    40C2C540 A
            02 02688    C1D3D3D6 A
            02 02689    C3C1E3C5 A
            02 0268A    C440C9D5 A
            02 0268B    C9E3C9C1 A
            02 0268C    D3D3E840 A
            02 0268D    C6D6D940 A
     2113   02 0268E    13404040 A            REV      '   SURFACE TESTING.'                             *C01
            02 0268F    E2E4D9C6 A
            02 02690    C1C3C540 A
            02 02691    E3C5E2E3 A
            02 02692    C9D5C74B A
     2114   02 02693    2DF54B40 A            REV      '5. CHANGED TST1,12 SO THAT IT WILL NOT BE RUN'   *C01
            02 02694    C3C8C1D5 A
            02 02695    C7C5C440 A
            02 02696    E3E2E3F1 A
            02 02697    6BF1F240 A
            02 02698    E2D640E3 A
            02 02699    C8C1E340 A
            02 0269A    C9E340E6 A
            02 0269B    C9D3D340 A
            02 0269C    D5D6E340 A
            02 0269D    C2C540D9 A
            02 0269E    E4D54040 A
     2115   02 0269F    2A404040 A            REV      '   IF A MEDIUM OR E.P. RAD IS CONNECTED TO'      *C01
            02 026A0    C9C640C1 A
            02 026A1    40D4C5C4 A
            02 026A2    C9E4D440 A
            02 026A3    D6D940C5 A
            02 026A4    4BD74B40 A
            02 026A5    D9C1C440 A
            02 026A6    C9E240C3 A
            02 026A7    D6D5D5C5 A
            02 026A8    C3E3C5C4 A
            02 026A9    40E3D640 A
     2116   02 026AA    18404040 A            REV      '   A SIOP. (SEE P2 SYST)'                        *C01
            02 026AB    C140E2C9 A
            02 026AC    D6D74B40 A
            02 026AD    4DE2C5C5 A
            02 026AE    40D7F240 A
            02 026AF    E2E8E2E3 A
            02 026B0    5D404040 A
     2117   02 026B1    2A4040F6 A            REV      '  6. ASSURES THAT I/O BUFFERS ARE BUILT ON'      *C01
            02 026B2    4B40C1E2 A
            02 026B3    E2E4D9C5 A
            02 026B4    E240E3C8 A
            02 026B5    C1E340C9 A
            02 026B6    61D640C2 A
            02 026B7    E4C6C6C5 A
            02 026B8    D9E240C1 A
            02 026B9    D9C540C2 A
            02 026BA    E4C9D3E3 A
            02 026BB    40D6D540 A
     2118   02 026BC    1B404040 A            REV      '     DOUBLEWORD BOUNDARIES.'                     *C01
            02 026BD    4040C4D6 A
            02 026BE    E4C2D3C5 A
            02 026BF    E6D6D9C4 A
            02 026C0    40C2D6E4 A
            02 026C1    D5C4C1D9 A
            02 026C2    C9C5E24B A
     2119   02 026C3    2BF74B40 A            REV      '7. CHANGED TST1,41 SO THAT A PATTERN OF ALL'     *C01
            02 026C4    C3C8C1D5 A
            02 026C5    C7C5C440 A
            02 026C6    E3E2E3F1 A
            02 026C7    6BF4F140 A
            02 026C8    E2D640E3 A
            02 026C9    C8C1E340 A
            02 026CA    C140D7C1 A
            02 026CB    E3E3C5D9 A
            02 026CC    D540D6C6 A
            02 026CD    40C1D3D3 A
     2120   02 026CE    2A404040 A            REV      '   ZEROES IS WRITTEN AND CHECKED, BEFORE A'      *C01
            02 026CF    E9C5D9D6 A
            02 026D0    C5E240C9 A
            02 026D1    E240E6D9 A
            02 026D2    C9E3E3C5 A
            02 026D3    D540C1D5 A
            02 026D4    C440C3C8 A
            02 026D5    C5C3D2C5 A
            02 026D6    C46B40C2 A
            02 026D7    C5C6D6D9 A
            02 026D8    C540C140 A
     2121   02 026D9    28404040 A            REV      '   RANDOM PATTERN IS WRITTEN AND CHECKED'        *C01
            02 026DA    D9C1D5C4 A
            02 026DB    D6D440D7 A
            02 026DC    C1E3E3C5 A
            02 026DD    D9D540C9 A
            02 026DE    E240E6D9 A
            02 026DF    C9E3E3C5 A
            02 026E0    D540C1D5 A
            02 026E1    C440C3C8 A
            02 026E2    C5C3D2C5 A
            02 026E3    C4404040 A
     2122   02 026E4    29404040 A            REV      '   4107  ERROR DURING WRITTING OF PATTERN'       *C01
            02 026E5    F4F1F0F7 A
            02 026E6    4040C5D9 A
            02 026E7    D9D6D940 A
            02 026E8    C4E4D9C9 A
            02 026E9    D5C740E6 A
            02 026EA    D9C9E3E3 A
            02 026EB    C9D5C740 A
            02 026EC    D6C640D7 A
            02 026ED    C1E3E3C5 A
            02 026EE    D9D54040 A
     2123   02 026EF    28404040 A            REV      '   4108  ERROR DURING READING OF PATTERN'        *C01
            02 026F0    F4F1F0F8 A
            02 026F1    4040C5D9 A
            02 026F2    D9D6D940 A
            02 026F3    C4E4D9C9 A
            02 026F4    D5C740D9 A
            02 026F5    C5C1C4C9 A
            02 026F6    D5C740D6 A
            02 026F7    C640D7C1 A
            02 026F8    E3E3C5D9 A
            02 026F9    D5404040 A
     2124   02 026FA    15404040 A            REV      '   4109 SURFACE ERROR'                           *C01
            02 026FB    F4F1F0F9 A
            02 026FC    40E2E4D9 A
            02 026FD    C6C1C3C5 A
            02 026FE    40C5D9D9 A
            02 026FF    D6D94040 A
     2125   02 02700    2DF84B40 A            REV      '8. CHANGED TST1,48 SO THAT DATA OVERRUNS WILL'   *C01
            02 02701    C3C8C1D5 A
            02 02702    C7C5C440 A
            02 02703    E3E2E3F1 A
            02 02704    6BF4F840 A
            02 02705    E2D640E3 A
            02 02706    C8C1E340 A
            02 02707    C4C1E3C1 A
            02 02708    40D6E5C5 A
            02 02709    D9D9E4D5 A
            02 0270A    E240E6C9 A
            02 0270B    D3D34040 A
     2126   02 0270C    29404040 A            REV      '   OCCUR EVEN IF AN MEDIUM OR E.P. RAD IS'       *C01
            02 0270D    D6C3C3E4 A
            02 0270E    D940C5E5 A
            02 0270F    C5D540C9 A
            02 02710    C640C1D5 A
            02 02711    40D4C5C4 A
            02 02712    C9E4D440 A
            02 02713    D6D940C5 A
            02 02714    4BD74B40 A
            02 02715    D9C1C440 A
            02 02716    C9E24040 A
     2127   02 02717    2BF94B40 A            REV      '9. CHANGED TST1,21 TO CORRECT ERROR LOOPING'     *C01
            02 02718    C3C8C1D5 A
            02 02719    C7C5C440 A
            02 0271A    E3E2E3F1 A
            02 0271B    6BF2F140 A
            02 0271C    E3D640C3 A
            02 0271D    D6D9D9C5 A
            02 0271E    C3E340C5 A
            02 0271F    D9D9D6D9 A
            02 02720    40D3D6D6 A
            02 02721    D7C9D5C7 A
     2128   02 02722    015C4040 A            REV      '*'                                               *B01
     2129   02 02723    01404040 A   REVEND   REV      ' '
            02 02724    32302500
            02 02725    324023DE 03
            02 02726    35402728
            02 02727    EAF0021C A
            02 02728    00000000 A
            02 02729    F2500004 A
            02 0272A    20500004 A
            02 0272B    2550007E A
            02 0272C    30400005 A
            02 0272D    64302726
            02 0272E    32402731
            02 0272F    3540036D 03
            02 02730    E800272F
            02 02731    02000000 A
            02 02500    00000039 A
     2130                            *
     2131                            *
     2132   02 02501                          USECT    TST1ADDR
     2133         00000002           DPM      EQU      2                                                 *C01
     2134                            *
     2135                            *
     2136                            *************************************************************
     2137                            *************************************************************
     2138                            ***********::  REVISIONS STOP HERE  ***********************
     2139                            *************************************************************
     2140                            *************************************************************
     2141                            ** ***************************************************************
     2142                            ** ***************************************************************
     2143                            *
     2144                                     PAGE
     2145                            *
     2146                            *  MONITOR LINK TABLE
     2147                            *  ------------------
     2148                            *                     THIS TABLE IS LOADED BY THE MONITOR FOR THE
     2149                            *  PURPOSE OF ESTABLISHING COMMUNICATIONS BETWEEN THE TEST PROGRAM AND
     2150                            *  THE MONITOR (DPM).
     2151                            *
     2152   00 00000                 ASECTMLT ASECT
     2153   00 00200                          ORG      X'200'
            00 00200
     2154                            *
     2155         00 00200           :MLT     EQU      %                 ABSOLUTE RECOVERY LOCATION
     2156         00 00201           :P1      EQU      :MLT+1            DIRECTIVE PARAMETER 1
     2157         00 00202           :P2      EQU      :MLT+2            DIRECTIVE PARAMETER 2
     2158         00 00203           :P3      EQU      :MLT+3            DIRECTIVE PARAMETER 3
     2159         00 00204           :P4      EQU      :MLT+4            DIRECTIVE PARAMETER 4
     2160         00 0020F           :DUMP    EQU      :MLT+15           ADDR OF MEMORY DUMP ROUTINE
     2161         00 00211           :PSW     EQU      :MLT+17           PARAMETER STATUS WORD
     2162         00 00213           :BCDC    EQU      :MLT+19           BCD TO BINARY CONVERTION
     2163         00 00214           :MONITOR EQU      :MLT+20           DIRECTIVE RETURN ADDRESS
     2164         00 00216           :BINC    EQU      :MLT+22           ADDR OF BINARY FORMAT CONVERSION R
     2165         00 00217           :DECC    EQU      :MLT+23           ADDR OF DECIMAL FORMAT CONVERSION
     2166         00 00218           :HEXC    EQU      :MLT+24           ADDR OF HEXADEC FORMAT CONVERSION
     2167         00 00219           :1BYTEIN EQU      :MLT+25           ADDR OF 1 BYTE INPUT ROUTINE
     2168         00 0021A           :CURBCNT EQU      :MLT+26           CURRENT BYTE COUNT
     2169         00 0021B           :ERROR   EQU      :MLT+27           ADDR OF ERROR REPORT ROUTINE
     2170         00 0021C           :PRINT   EQU      :MLT+28           ADDR OF MESSAGE PRINT ROUTINE
     2171         00 0021D           :SENSE   EQU      :MLT+29           ADDR OF SENSE SWITCH 1,3 TESTS
     2172         00 0021E           :MONWAIT EQU      :MLT+30           MONITOR WAIT
     2173         00 0021F           :MRECOVR EQU      :MLT+31           BRANCH TO ABSOLUTE RECOVERY LOCATION
     2174         00 00220           :MSGOUT  EQU      :MLT+32           MSG OUTPUT DEVICE, TYPE AND ADDR
     2175         00 00221           :MSGIN   EQU      :MLT+33           MSG INPUT DEVICE, TYPE AND ADDR
     2176         00 00222           :LOADIN  EQU      :MLT+34           ADDR OF INITIAL LOADING DEVICE
     2177         00 00223           :TYPRINT EQU      :MLT+35           TELETYPE PRINT ROUTINE          *B03
     2178         00 00224           :KSRADR  EQU      :MLT+36           KEYBOARD/PRINTER DEVICE ADDR X'001
     2179         00 00225           :MACHINE EQU      :MLT+37           MACHINE TYPE CODE
     2180         00 00226           :RELBIAS EQU      :MLT+38           RELOCATION BIAS
     2181         00 00227           :RLOADER EQU      :MLT+39           ADDR OF RESIDENT LOADER
     2182         00 00229           :ERRPARM EQU      :MLT+41           DIRECTIVE RETURN IF PARAMETER IN ERR
     2183         00 0022B           :WAIT    EQU      :MLT+43           WAIT SUBROUTINE                 *C01
     2184         00 0022C           :DICINDX EQU      :MLT+44           ADDR OF DICTIONARY              *B03
     2185         00 0022D           :DICILEN EQU      :MLT+45           LENGHT OF DICTIONARY            *B03
     2186         00 0022E           :MEMSIZE EQU      :MLT+46           SYSTEM MEMORY SIZE
     2187         00 0022F           :MEMLAST EQU      :MLT+47           ADDR OF LAST USABLE MEMORY LOCATIO
     2188         00 00230           :MONIOBF EQU      :MLT+48           ADDR OF MONITOR I/O BUFFER
     2189         00 00231           :MONPBF  EQU      :MLT+49           ADDR OF ABSOLUTE RECOVERY ROUTINE
     2190         00 00232           :LOADDIR EQU      :MLT+50           LOAD DIRECTIVE ADDR.            *B03
     2191         00 00237           :REMOTE  EQU      :MLT+55           BRANCH TO CONNECT REMOTE        *C01
     2192         00 00240           :MLTEND  EQU      :MLT+64           LAST LOCATION OF MONITOR LINK TABL
     2193                            *
     2194                            *
     2195                            *  LOCATIONS
     2196         00 00241           :MLT1END EQU      :MLTEND+1
     2197                            * THRU
     2198         000002FF           :MLTEND1 EQU      X'2FF'
     2199                            * ARE AVAILABLE AS A PATCH AREA.
     2200                                     PAGE
     2201                            *
     2202                            *  PROGRAM INTERFACE TABLE
     2203                            *  -----------------------
     2204                            *                          THIS TABLE IS LOADED BY THE TEST PROGRAM FOR
     2205                            *  THE PURPOSE OF ESTABLISHING COMMUNICATIONS BETWEEN THE MONITOR (DPM)
     2206                            *  AND THE USER PROGRAM.
     2207                            *
     2208   00 00000                 ASECTPIT ASECT
     2209   00 00300                          ORG      X'300'
            00 00300
     2210   00 00300    00000000 A   :PIT0    DATA     0                 UNASSIGNED                      *B03
     2211   00 00301    00000352 03  :PIT1    DATA     :PROGID           ADDR OF PROGRAM ID MESSAGE.
     2212   00 00302    00000320 03  :PIT2    DATA     :DIC              ADDR OF DIRECTIVE DICTIONARY
     2213   00 00303    00000010 A   :PIT3    DATA     :DICEND-:DIC      LENGTH OF DIRECTIVE DICTIONARY
     2214   00 00304    0000036C 03  :PIT4    DATA     :RECOVER          ADDR OF ABSOLUTE RECOVERY ROUTINE
     2215   00 00305    00000330 03  :PIT5    DATA     :CDT              ADDR OF CONTEXT DISCRIPTION TABLE
     2216   00 00306    00000002 A   :PIT6    DATA     :CDTEND-:CDT      LENGTH OF CONTEXT DESCRIPTION TABLE
     2217   00 00307    00000000 A   :PIT7    DATA     0
     2218   00 00308    000003A8 03  :PIT8    DATA     :INITIAL          ADDR OF INITIALIZER
     2219   00 00309    00000000 A   :PIT9    DATA     0
     2220         00 00309           :DIRNAME EQU      :PIT9             NAME OF DIRECTIVE WITH A BAD PAR
     2221   00 0030A    00000000 A   :PIT10   DATA     0
     2222         00 0030A           :ERPARNO EQU      :PIT10            NO. OF PARAMETER IN ERROR       *B03
     2223   00 0030B    00000000 A   :PIT11   DATA     0                 ADDR OF MSG PRINTED AFTER INIT. *B03
     2224   00 0030C    00000000 A   :PIT12   DATA     0                 USER DIRECTIVE PERMITTED (SYST) *B03
     2225   00 0030D    00000000 A   :PIT13   DATA     0                 UNASSIGNED                      *B03
     2226   00 0030E    00000000 A   :PIT14   DATA     0                 UNASSIGNED                      *B03
     2227   00 0030F    00000000 A   :PIT15   DATA     0                 MEMORY PARITY AND MACH FAULT    *B03
     2228                            *                                     INTERRUPT ENTRY.              *B03
     2229         00 00310           :PITLAST EQU      %
     2230         00 00320           :PITEND  EQU      :PIT0+32          LAST LOCATION OF PROG INTERFACE TAB.
     2231         00000010                    DO       :PITEND-:PITLAST  CLEAR REMAINING LOCATIONS OF PIT
     2232   00 00310    00000000 A            DATA     0
     2233                                     FIN
            00 00311    00000000 A
            00 00312    00000000 A
            00 00313    00000000 A
            00 00314    00000000 A
            00 00315    00000000 A
            00 00316    00000000 A
            00 00317    00000000 A
            00 00318    00000000 A
            00 00319    00000000 A
            00 0031A    00000000 A
            00 0031B    00000000 A
            00 0031C    00000000 A
            00 0031D    00000000 A
            00 0031E    00000000 A
            00 0031F    00000000 A
     2234                            *
     2235                            *
     2236                            *  LOCATIONS
     2237         00 00310           :PITX    EQU      :PITLAST
     2238                            * THRU
     2239         00 00320           :PITY    EQU      :PITEND
     2240                            * ARE AVAILABLE AS A PATCH AREA.
     2241                            *
     2242                                     PAGE
     2243                            *
     2244                            *  DIRECTIVE DICTIONARY
     2245                            *  --------------------
     2246                            *                        THIS TABLE SUPPLIES THE MONITOR WITH
     2247                            *  INFORMATION ABOUT EACH DIRECTIVE AVAILABLE IN THE TEST PROGRAM.
     2248                            *  EACH DICTIONARY ENTRY CONSISTS OF 2 WORDS (64 BITS) WHICH ARE
     2249                            *  DEFINED AS FOLLOWS:
     2250                            *
     2251                            *  BITS 00 THRU 31  4 BYTE MNEMONIC IDENTIFIER IN EBCDIC
     2252                            *  BITS 32 THRU 34  TYPE OF CONVERSION FOR PARAMETER 1.
     2253                            *  BITS 35 THRU 37  TYPE OF CONVERSION FOR PARAMETER 2.
     2254                            *  BITS 38 THRU 40  TYPE OF CONVERSION FOR PARAMETER 3.
     2255                            *  BITS 41 THRU 43  TYPE OF CONVERSION FOR PARAMETER 4.
     2256                            *  BITS 44 THRU 47  NOT ASSIGNED; MUST BE EQUAL TO ZERO
     2257                            *  BITS 48 THRU 63  ROUTINE ADDRESS
     2258                            *
     2259                            *  TYPE OF PARAMETER CONVERSION
     2260                            *
     2261                            *  000   HEXADECIMAL CONVERSION
     2262                            *  001   DECIMAL CONVERSION TO BINARY
     2263                            *  002   ALPHANUMERIC
     2264                            *
     2265   03 00000                 CSECTDIC CSECT
     2266   03 00320                          ORG      X'320'
            03 00320
     2267         03 00320           :DIC     EQU      %
     2268                            *        INSERT DICTIONARY ENTRIES
     2269                            *
     2270   03 00320    E3E2E3F0 A   :TST0DIR :PROCDIC 'TST0',1,1,7,0,0,TST0  COMPREHENSIVE TEST
                        27800439
     2271   03 00322    E3E2E3F1 A   :TST1DIR :PROCDIC 'TST1',1,1,7,0,0,TST1 FUNCTIONAL TEST
                        27800450
     2272   03 00324    E3E2E3F2 A   :TST2DIR :PROCDIC 'TST2',1,1,7,0,0,TST2      RANDOM EXERCISER
                        27801872
     2273   03 00326    E3E2E3F3 A   :TST3DIR :PROCDIC 'TST3',1,1,1,1,0,TST3  UTILITY TEST               *A01
                        249019B6
     2274   03 00328    C4C1E3C1 A   :DATADIR :PROCDIC 'DATA',1,0,0,7,0,:DATA    DATA DIRECTIVE
                        20701762
     2275   03 0032A    E2C5C5D2 A   :SEEKDIR :PROCDIC 'SEEK',1,1,1,1,0,SEEK      SEEK DIRECTIVE
                        24901775
     2276   03 0032C    00D4C5D4 A   :MEMDIR  :PROCDIC 'MEM',0,0,7,0,0,:MEM   MEMORY DIRECTIVE           *A01
                        038017AE
     2277   03 0032E    D3C9D4E3 A   :LIMTDIR :PROCDIC 'LIMT',1,1,1,1,0,LIMT  LIMIT DIRECTIVE            *B01
                        24901815
     2278                            *
     2279         03 00330           :DICEND  EQU      %
     2280                                     PAGE
     2281                            *
     2282                            *  CONTEXT DESCRIPTION TABLE
     2283                            *  -------------------------
     2284                            *                             THE CONTEXT DESCRIPTION TABLE ALLOWS
     2285                            *  THE MONITOR TO PASS-ON ENVIRONMENTAL INFORMATION FROM THE 'SYST'
     2286                            *  DIRECTIVE TO THE TEST PROGRAM. NORMALLY ONLY ONE ENTRY WILL BE
     2287                            *  REQUIRED. EACH CONTEXT DESCRIPTION TABLE ENTRY CONSISTS OF 2 WORDS
     2288                            *  (64 BITS) WHICH ARE DEFINED AS FOLLOWS:
     2289                            *
     2290                            *  BITS 00 THRU 08  LENGTH OF CONTEXT DATA BLOCK
     2291                            *  BITS 09 THRU 27  NOT ASSIGNED; MUST BE EQUAL TO ZERO
     2292                            *  BITS 28 THRU 31  NUMBER OF DEVICE MODEL NUMBERS
     2293                            *  BITS 32 THRU 61  ADDR OF CONTEXT DATA BLOCK
     2294                            *
     2295         03 00330           :CDT     EQU      :DICEND
     2296   03 00330    0D800004 N            GEN,9,19,4,32 :CDBEND-:CDB,0,:CDBMEND-:CDBM,:CDB
                        00000336
     2297         03 00332           :CDTEND  EQU      %
     2298                            *
     2299                            *
     2300                            *  CONTEXT DATA BLOCK
     2301                            *  ------------------
     2302                            *                      THE CONTEXT DATA BLOCK CONTAINS ENVIRONMENTAL
     2303                            *  INFORMATION FOR THE TEST PROGRAM.
     2304                            *
     2305         03 00332           :CDBM    EQU      %
     2306                            *
     2307                            *        INSERT ALL MODEL NUMBERS WHICH CAN BE TESTED
     2308                            *        WITH THIS TEST PROGRAM.
     2309                            ***  EXAMPLE OF MODEL NUMBER ENTRY
     2310   03 00332    00001C21 A            DATA     7201              MEDIUM SPEED RAD
     2311   03 00333    00001C2B A            DATA     7211              HIGH SPEED
     2312   03 00334    00001C3F A            DATA     7231              EXTENDED PERFORMANCE RAD
     2313   03 00335    00001C52 A            DATA     7250              CARTRIDGE DISKS                 *C02
     2314                            *
     2315         03 00336           :CDBMEND EQU      %
     2316                            *                                     'SYST' DIRECTIVE OR INITIAL VALUE
     2317         03 00336           :CDB     EQU      %
     2318   03 00336    00051C21 A            GEN,16,16 5,7201           NO. OF PARAMETERS & MEDIUM SPEED RAD
     2319   03 00337    00000000 A            DATA     0                 REVISION NUMBER
     2320   03 00338    00000000 A            DATA     0                 VALID IOP, INVALID STORAGE ADDRESS
     2321   03 00339    000000F0 A            DATA     X'0F0'            DEVICE ADDRESS
     2322   03 0033A    00007202 A            DATA     X'7202'           MODEL NUMBER OF THE STORAGE UNIT
     2323   03 0033B    00000000 A            DATA     0                 WRITE PROTECT SWITCH SETTING
     2324   03 0033C                          RES      21
     2325         03 00351           :CDBEND  EQU      %
     2326                            *
     2327                            *
     2328                            *
     2329         03 00351           :CATALOG EQU      %                 PROGRAM CATALOG NUMBER
     2330   03 00351    000AC4C2 A            DATA     705730
     2331                            *
     2332         03 00352           :PROGID  EQU      %                 PROGRAM IDENTIFICATION MESSAGE
     2333                                     TEXTC    'SIGMA 5-9 ',;                                    *B03
     2334                             'COMPREHENSIVE RAPID ACCESS DEVICE (RAD) FILE TEST ',;
     2335   03 00352    66E2C9C7 A    '
PROGRAM NO. 705730-C02 MANUAL NO. 901678C'                       *C02
            03 00353    D4C140F5 A
            03 00354    60F940C3 A
            03 00355    D6D4D7D9 A
            03 00356    C5C8C5D5 A
            03 00357    E2C9E5C5 A
            03 00358    40D9C1D7 A
            03 00359    C9C440C1 A
            03 0035A    C3C3C5E2 A
            03 0035B    E240C4C5 A
            03 0035C    E5C9C3C5 A
            03 0035D    404DD9C1 A
            03 0035E    C45D40C6 A
            03 0035F    C9D3C540 A
            03 00360    E3C5E2E3 A
            03 00361    4015D7D9 A
            03 00362    D6C7D9C1 A
            03 00363    D440D5D6 A
            03 00364    4B40F7F0 A
            03 00365    F5F7F3F0 A
            03 00366    60C3F0F2 A
            03 00367    40D4C1D5 A
            03 00368    E4C1D340 A
            03 00369    D5D64B40 A
            03 0036A    F9F0F1F6 A
            03 0036B    F7F8C340 A
     2336                                     PAGE
     2337                            *
     2338                            *                 *** A B S O L U T E  R E C O V E R Y ***
     2339                            :RECOVER ;
     2340   03 0036C    35F01871              STW,15   WHDOGRTN
     2341                            *******************
     2342                            *************
     2343                            *****   THE FOLLOWING DO LOOP HAS TO BE INSERTED
     2344                            *****   IN :RECOVERY.
     2345                            ********
     2346         03 0036D           REVBRNCH EQU      %
     2347         00000000                    DO       REVCOUNT=0
     2348                        *S*          NOP
     2349                                     ELSE
     2350   03 0036D    6AF02724 02           BAL,15   REVPRINT
     2351                                     FIN
     2352                            *
     2353                            *
     2354   03 0036E    22000000 A            LI,0     0                 REGISTER 0 = 0
     2355   03 0036F    22100001 A            LI,1     1                 REGISTER 1 = 1
     2356   03 00370    22200002 A            LI,2     2                 REGISTER 2 = 2
     2357   03 00371    22300003 A            LI,3     3                 REGISTER 3 = 3
     2358   03 00372    22C00326              LI,12    :TST3DIR          LOAD DIRECTIVE TYPE TO SKIP     *A01
     2359   03 00373    31C01EFF              CW,12    :MSGADDR          IF EQUAL TO CURRENT TEST        *A01
     2360   03 00374    68300376              BE       %+2               BRANCH                          *A01
     2361   03 00375    35100437              STW,1    DONTREAD          OTHER SET THE DON'T READ FLAG   *A01
     2362   03 00376    3500030F A            STW,0    :PIT15            DPM WILL HANDLE TRAP/INTER RECOV*BOO
     2363   03 00377    35001BF7              STW,0    ENDOPER           ZERO END OF OPERATION FLAG
     2364   03 00378    330013CC              MTW,0    TESTMODE          TEST TEST MODE FLAG             *BOO
     2365   03 00379    6830037B              BEZ      %+2               B: NOT IN TEST MODE             *BOO
     2366   03 0037A    6AF013B2              BAL,15   :RSTEST           RESET CONTROLLER TEST MODE      *BOO
     2367   03 0037B    22000000 A            LI,0     0                                                 *B01
     2368   03 0037C    35001870              STW,0    WATCHERR
     2369   03 0037D    22700020 A            LI,7     X'20'             DISARM IO INTERRUPT
     2370   03 0037E    6D701100 A            WD,7     X'1100'
     2371   03 0037F    33001D35              MTW,0    :DEVADDR
     2372   03 00380    68300383              BEZ      %+3               IF NO DEV SELECTED NO RESET
     2373   03 00381    CF001D35              HIO,0    *:DEVADDR         RESET LAST RUN DEVICE
     2374   03 00382    6AF02384              BAL,15   :SAVECLR
     2375   03 00383    6D701700 A            WD,7     X'1700'           TRIGGER I/O INTERRUPT
     2376   03 00384    E8001871              B        *WHDOGRTN         RETURN
     2377                                     PAGE
     2378                            *
     2379                            *                 *** I N I T I A L I Z E R ***
     2380                            *
     2381                            *                 THE MONITOR WILL TRANSFER CONTROL TO THIS ROUTINE
     2382                            *                 UNDER THE FOLLOWING CONDITIONS:
     2383                            *                   1. IMMEDIATELY AFTER A PROGRAM HAS BEEN LOADED
     2384                            *                      AND PRIOR TO PRINTING THE PROGRAM TITLE.
     2385                            *                   2. IF A NEW 'SYST' DIRECTIVE IS ENTERED AND THE
     2386                            *                      TEST PROGRAM IS ALREADY IN CORE.
     2387                            *
     2388                            *
     2389                            *                 THIS ROUTINE PERFORMS THE FOLLOWING FUNCTIONS:
     2390                            *                   1. INITIALIZES THE I/O, COUNTER 4 AND
     2391                            *                      WATCHDOG TIMER LOCATIONS.
     2392                            *                   2. DISARM AND DISABLES ALL I/O AND COUNTER
     2393                            *                      INTERRUPTS.
     2394                            *                   3. VALIDATES ALL PARAMETERS ENTERED BY THE |SYST'
     2395                            *                      DIRECTIVES.
     2396                            *
     2397                            *                 INPUT PARAMETERS:
     2398                            *
     2399                            *                   REG 15  -RETURN ADDRESS
     2400                            *
     2401                            *                 REGISTERS DISTURBED:
     2402                            *                   REG  4 THRU 15
     2403                            *
     2404                            *                 OUTPUT PARAMETERS:
     2405                            *
     2406                            *                   REG  0  -0
     2407                            *                   REG  1  -1
     2408                            *                   REG  2  -2
     2409                            *                   REG  3  -3
     2410                            *                   DEVICE DISCRIPTION TABLE CONTAINS INFORMATION
     2411                            *                      PERTAINING TO TARGET DEVICES.
     2412                            *                   #DDTLGTH- DEVICE DESCRIPTION TABLE LENGTH (NO.
     2413                            *                      OF TARGET DEVICES).
     2414                            *
     2415                            *
     2416                            *
     2417         03 00385           MODELNO  SET      %                 STORAGE UNIT MODEL NUMBER
     2418   03 00385    00007202 A            DATA     X'7202'
     2419   03 00386    00007203 A            DATA     X'7203'
     2420   03 00387    00007204 A            DATA     X'7204'
     2421   03 00388    00007232 A            DATA     X'7232'
     2422   03 00389    00007212 A            DATA     X'7212'
     2423   03 0038A    00007251 A            DATA     X'7251'                                           *C02
     2424   03 0038B    00007252 A            DATA     X'7252'                                           *C02
     2425         03 0038C           MODELEND SET      %
     2426                            *
     2427         03 0038C           CAPACITY SET      %                 SECTOR / STORAGE UNIT
     2428   03 0038C    00000800 A            DATA     128*16
     2429   03 0038D    00001000 A            DATA     256*16
     2430   03 0038E    00002000 A            DATA     512*16
     2431   03 0038F    00001800 A            DATA     512*12
     2432   03 00390    00001480 A            DATA     64*82
     2433   03 00391    00001980 A            DATA     X'1980'                                           *C02
     2434   03 00392    00001980 A            DATA     X'1980'                                           *C02
     2435         03 00393           CAPEND   SET      %
     2436                            *
     2437         03 00393           BYTESTAT EQU      %                 BYTE / SECTOR
     2438   03 00393    00000168 A            DATA     360
     2439   03 00394    00000168 A            DATA     360
     2440   03 00395    00000168 A            DATA     360
     2441   03 00396    00000400 A            DATA     1024
     2442   03 00397    00000400 A            DATA     1024
     2443   03 00398    00000168 A            DATA     360                                               *C02
     2444   03 00399    00000168 A            DATA     360                                               *C02
     2445         03 0039A           BYTEND   SET      %
     2446                            *
     2447         03 0039A           SECTRACK SET      %
     2448   03 0039A    00000010 A            DATA     16
     2449   03 0039B    00000010 A            DATA     16
     2450   03 0039C    00000010 A            DATA     16
     2451   03 0039D    0000000C A            DATA     12
     2452   03 0039E    00000052 A            DATA     82
     2453   03 0039F    00000010 A            DATA     16                                                *C02
     2454   03 003A0    00000010 A            DATA     16                                                *C02
     2455         03 003A1           SECTREND SET      %
     2456                            *
     2457         03 003A1           TCKSFT01 SET      %
     2458   03 003A1    00000004 A            DATA     4                 TRACK SHIFT
     2459   03 003A2    00000004 A            DATA     4                 TRACK SHIFT
     2460   03 003A3    00000004 A            DATA     4                 TRACK SHIFT
     2461   03 003A4    00000004 A            DATA     4                 TRACK SHIFT
     2462   03 003A5    00000007 A            DATA     7                 BAND SHIFT
     2463   03 003A6    00000004 A            DATA     4                                                 *C02
     2464   03 003A7    00000004 A            DATA     4                                                 *C02
     2465         03 003A8           TCKSFT02 SET      %
     2466                            *
     2467                            *
     2468                            *
     2469                            *
     2470   03 003A8    35F00434     :INITIAL STW,15   INITRTN           SAVE RETURN ADDRESS
     2471   03 003A9    6AF00237 A            BAL,15   :REMOTE           CONNECT REMOTE                  *C01
     2472   03 003AA    6AF0036C              BAL,15   :RECOVER          GO TO ABSOLUTE RECOVERY
     2473   03 003AB    35100437              STW,1    DONTREAD          SET THE DON'T READ FLAG
     2474                            *
     2475                            *
     2476                            *
     2477   03 003AC    52700336              LH,7     :CDB              FETCH NO. OF PARAMETERS
     2478   03 003AD    557203D6              STH,7    INIT4,1           SAVE NO. OF PARAMETERS
     2479   03 003AE    21700005 A            CI,7     5                 IF LESS THAN 5
     2480   03 003AF    691003E6              BL       INITERR           ERROR, PARAMETER IN ERROR
     2481   03 003B0    2170001B A            CI,7     :CDBEND-:CDB      MAXIMUM NO. OF PARAMETERS TO BE USED
     2482   03 003B1    692003E6              BG       INITERR           IF GREATER THAN ALLOW NO. ERROR
     2483                            *
     2484                            *
     2485                            *
     2486   03 003B2    22700002 A   INIT0    LI,7     2                 SET P2 ERROR                    *C01
     2487   03 003B3    22800000 A            LI,8     0                 SIOP = 0                        *C01
     2488   03 003B4    22900000 A            LI,9     0                 REVISION = 0                    *C01
     2489   03 003B5    52620336              LH,6     :CDB,1            GET MODEL NO.                   *C02*C02
     2490   03 003B6    21601C52 A            CI,6     7250              IS IT A CARTRIDGE DISK          *C02*C02
     2491   03 003B7    691003B9              BL       %+2               NO                              *C02
     2492   03 003B8    22900003 A            LI,9     3                 FORCE REVISION TO 3             *C02
     2493   03 003B9    32600337              LW,6     :CDB+1            LOAD IOP & REVISION             *C01
     2494   03 003BA    683003C4              BEZ      INIT000           IF =0 GO SAVE                   *C01
     2495   03 003BB    21600003 A            CI,6     3                 IF =3                           *C01
     2496   03 003BC    683003C3              BE       INIT0000              GO SAVE                     *C01
     2497   03 003BD    22800001 A            LI,8     1                 SET SIOP = 1                    *C01
     2498   03 003BE    21600067 A            CI,6     X'67'             IF SIOP + REVISION              *C01
     2499   03 003BF    683003C3              BE       INIT0000              GO  SAVE                    *C01
     2500   03 003C0    21600064 A            CI,6     X'64'                                             *C01
     2501   03 003C1    683003C4              BE       INIT000               GO SAVE                     *C01
     2502   03 003C2    680003E6              B        INITERR           IF NOT ERROR                    *C01
     2503                            *                                                                   *C01
     2504   03 003C3    22900003 A   INIT0000 LI,9     3                 REVISION = 3                    *C01
     2505   03 003C4    35800438     INIT000  STW,8    SIOP              SAVE IOP: MIOP=0, SIOP=1        *C01
     2506   03 003C5    35900436              STW,9    REVISION          SAVE REVISION                   *C01
     2507   03 003C6    32600338              LW,6     :CDB+2            FETCH VALID IOP, INVALID DEV ADDR
     2508   03 003C7    683003CE              BEZ      INIT04            IF ZERO, NO INVALID DEV TEST
     2509   03 003C8    21600080 A            CI,6     X'80'             IF DEV. ADDR <  X'80' ERROR
     2510   03 003C9    691003CC              BL       %+3               GO  TO PARAMETER ERROR
     2511   03 003CA    21601FFF A            CI,6     X'1FFF'           IF DEV. ADDR >X'UFFF' ERROR     *A01
     2512   03 003CB    682003CE              BLE      INIT04            GO  TO SAVE DEV ADDR
     2513   03 003CC    22700003 A   INIT05   LI,7     3                 LOAD PARAMETER IN ERROR = 3
     2514   03 003CD    680003E6              B        INITERR           GO TO PARAMETER ERROR EXIT
     2515                            *
     2516                            *
     2517                            *                                       SKIP TST1,1.
     2518   03 003CE    35600435     INIT04   STW,6    INVDEV            SAVE INVALID DEV ADDR IF ZERO
     2519   03 003CF    35001CC9              STW,0    #DDTP             INITIALIZE DDT POINTER TO ZERO
     2520   03 003D0    35001CCB              STW,0    #DDTBIAS          INITIALIZE DDT BIAS POINTER
     2521   03 003D1    22600009 A            LI,6     9                 LOAD MAX LENGTH OF TABLE
     2522   03 003D2    35601CCA              STW,6    #DDTLGTH          SAVE IN DDT LENGTH
     2523   03 003D3    22700001 A            LI,7     1                 SET REG = 1
     2524   03 003D4    20700002 A   INIT1    AI,7     2                 ADD 2 TO CDB POINTER
     2525   03 003D5    20700001 A   INIT2    AI,7     1                 ADD 1 TO CDB POINTER
     2526   03 003D6    21700000 A   INIT4    CI,7     0                 IF > LENGTH OF TABLE,
     2527   03 003D7    681003EA              BGE      INITEXIT              EXIT
     2528   03 003D8    326E0335              LW,6     :CDB-1,7          FETCH DEV ADDR FROM CDB
     2529   03 003D9    21600080 A            CI,6     X'80'             IF DEV. ADDR < X'80'
     2530   03 003DA    691003E6              BL       INITERR               GO TO PARAMETER ERROR EXIT
     2531   03 003DB    21601FFF A            CI,6     X'1FFF'            IF DEV. ADDR.X'1FFF'           *A01
     2532   03 003DC    692003E6              BG       INITERR               GO  TO PARAMETER ERROR EXIT
     2533   03 003DD    31600435              CW,6     INVDEV            IF INVALID DEVICE ADDRESS =
     2534   03 003DE    683003CC              BE       INIT05                GOOD ADDRESS ERROR
     2535                            *
     2536                            *
     2537   03 003DF    32401CCB     INIT3    LW,4     #DDTBIAS          LOAD BIAS POINTER TO DDT
     2538   03 003E0    35681CCD              STW,6    TGTDEV,4          SAVE TARGET DEVICE ADDRESS
     2539   03 003E1    6AE003EF              BAL,14   INITPAR           GO TO PARAMETER CHECKING ROUTINE
     2540   03 003E2    680003E6              B        INITERR           IF BAD PARAMETER RETURN WAS HERE
     2541   03 003E3    6AF01CB5              BAL,15   #DDTICMT          UPDATE DDT POINTER
     2542   03 003E4    6AF01584              BAL,15   TILT              ERROR SHOULD NOT GOT HERE
     2543   03 003E5    680003D5              B        INIT2             GO TEST NEXT PARAMETER
     2544                            *
     2545                            *
     2546   03 003E6    3570030A A   INITERR  STW,7    :ERPARNO          SAVE NO. OF THE DAD PARAMETER
     2547   03 003E7    22400000 A            LI,4     0                 RESET LENGTH
     2548   03 003E8    3540030C A            STW,4    :PIT12            RESET 'SYST' DIRECTIVE ENTERED
     2549   03 003E9    680003ED              B        INTEXT1           TAKE RETURN PATH TO MONITOR
     2550                            *
     2551                            *
     2552                            *
     2553   03 003EA    226FFFFF A   INITEXIT LI,6     -1                RESET 'SYST' DIRECTIVE NOT LOADED
     2554   03 003EB    3560030C A            STW,6    :PIT12
     2555   03 003EC    32401CC9              LW,4     #DDTP             FETCH CURRENT LENGTH OF DDT
     2556   03 003ED    35401CCA     INTEXT1  STW,4    #DDTLGTH          SAVE AS THE LENGTH OF THE DDT
     2557   03 003EE    E8000434              B        *INITRTN          RETURN TO MONITOR
     2558                            *
     2559                            *
     2560                            *
     2561   03 003EF    20700001 A   INITPAR  AI,7     1                 INCREMENT CDB POINTER
     2562   03 003F0    326E0335              LW,6     :CDB-1,7          LOAD MODEL NUMBER OF STORAGE UNIT
     2563   03 003F1    225FFFF9 A            LI,5     MODELNO-MODELEND  LOAD LENGTN OF THE MODEL NO. TABLE
     2564   03 003F2    316A038C              CW,6     MODELEND,5        COMPARE PARAMETER WITH MODEL NO TABL
     2565   03 003F3    683003F6              BE       INITPAR1          IF MATCH NEXT STEP
     2566   03 003F4    655003F2              BIR,5    %-2               IF NO MATCH TRY NEXT ENTRY
     2567   03 003F5    E800000E A            B        *14               IF NO MATCHES TAKE ERROR EXIT
     2568                            *
     2569                            *
     2570                            *
     2571   03 003F6    35681CCC     INITPAR1 STW,6    MODEL,4           SAVE THE MODEL NO.
     2572   03 003F7    329A0393              LW,9     CAPEND,5          LOAD MAXIMUM SECTORS AVAILABLE
     2573   03 003F8    32AA039A              LW,10    BYTEND,5          LOAD AND SAVE
     2574   03 003F9    35A81CCF              STW,10   BYTESECT,4        NO. OF BYTES/SECTOR
     2575                            *
     2576   03 003FA    32BA03A1              LW,11    SECTREND,5        LOAD AND SAVE
     2577   03 003FB    35B81CCE              STW,11   SECTORS,4             NO. OF SECTORS/TRACK
     2578                            *
     2579   03 003FC    32BA03A8              LW,11    TCKSFT02,5        LOAD AND SAVE
     2580   03 003FD    35B81CD4              STW,11   TCKSHIFT,4            NO. OF SHIFT REQD FOR TRACK ADDR
     2581                            *
     2582                            *
     2583                            *
     2584   03 003FE    20700001 A            AI,7     1                 INCREMENT CDB POINTER
     2585   03 003FF    326E0335              LW,6     :CDB-1,7          LOAD WRITE PROTECT SWITCH SETTING
     2586   03 00400    517203D6              CH,7     INIT4,1           COMPARE HALFWORD
     2587   03 00401    68200403              BLE      %+2               BRANCH IF LESS OR EQUAL
     2588   03 00402    22600000 A            LI,6     0                 FETCH NO
     2589                            *
     2590                            *
     2591   03 00403    52C00006 A            LH,12    6,0               LOAD D1D2
     2592   03 00404    EAF00213 A            BAL,15   *:BCDC            BRANCH TO BCD TO BINARY CONVERTION
     2593   03 00405    32B0000F A            LW,11    15                SAVE CONVERTED D1D2
     2594                            *
     2595                            *
     2596   03 00406    52C20006 A            LH,12    6,1               LOAD D3D4
     2597   03 00407    EAF00213 A            BAL,15   *:BCDC            BRANCH TO BCD TO BINARY CONVERTION
     2598   03 00408    32D0000F A            LW,13    15                SAVE CONVERTED D3D4
     2599                            *
     2600                            *
     2601   03 00409    21B00010 A            CI,11    16                IF D1D2 > 16
     2602   03 0040A    E920000E A            BG       *14                   TAKE PARAMETER ERROR EXIT
     2603   03 0040B    21D00010 A            CI,13    16                IF D3D4 > 16
     2604   03 0040C    E920000E A            BG       *14                   TAKE PARAMETER ERROR EXIT
     2605                            *
     2606                            *
     2607   03 0040D    3300000D A            MTW,0    13                IF D3D4 > 0
     2608   03 0040E    69300410              BNEZ     %+2                   NEXT STEP,
     2609   03 0040F    20D00011 A            AI,13    17                    OTHERWISE SET D3D4 = 17
     2610                            *
     2611                            *
     2612   03 00410    20DFFFFF A            AI,13    -1
     2613   03 00411    31B0000D A            CW,11    13                IF D1D2 = D3D4
     2614   03 00412    E810000E A            BGE      *14                   TAKE PARAMETER ERROR EXIT
     2615                            *
     2616                            *
     2617   03 00413    22A00000 A            LI,10    0                 ZERO MSB OF REG 1O-11 DOUBLEWORD
     2618   03 00414    22C00000 A            LI,12    0                 ZERO MSB OF REG 12-13 DOUBLEWORD
     2619   03 00415    37A81CCE              MW,10    SECTORS,4         REG 11 =
     2620   03 00416    32F81CCC              LW,15    MODEL,4           LOAD MODEL NO.                  *C01
     2621   03 00417    21F07212 A            CI,15    X'7212'               IF HIGH SPEED               *C01
     2622   03 00418    6830041A              BE       %+2                   BRANCH                      *C01
     2623   03 00419    23A00008 A            MI,10    8                 IF NOT MULTPLY 8                *C01
     2624   03 0041A    23A00004 A            MI,10    4                     AND THEN 4                  *C01
     2625   03 0041B    31B00009 A            CW,11    9                 IF REG 11 > MAXIMUM SECTORS AVAILABLE
     2626   03 0041C    E810000E A            BGE      *14                     TAKE PARAMETER ERROR EXIT
     2627                            *                                   IF NOT; LOAD
     2628   03 0041D    35B81CD0              STW,11   SLOWER,4              AND SAVE AS SECTOR LOWER LIMIT
     2629   03 0041E    35B81CD5              STW,11   SWPROT12,4            AS WRITE PROTECT LOWER LIMIT
     2630                            *
     2631                            *
     2632   03 0041F    37C81CCE              MW,12    SECTORS,4         REG 13 =
     2633   03 00420    21F07212 A            CI,15    X'7212'           IF HIGH SPEED                   *C01
     2634   03 00421    68300423              BE       %+2                   BRANCH                      *C01
     2635   03 00422    23C00008 A            MI,12    8                 IF NOT MULTPLY 8                *C01
     2636   03 00423    23C00004 A            MI,12    4                     AND THEN 4                  *C01
     2637   03 00424    31D00009 A            CW,13    9                 IF REG 13 > MAXIMUM SECTORS AVAILABL
     2638   03 00425    69200427              BG       %+2               USE MAXIMUM SECTOR AVAILABLE
     2639   03 00426    3290000D A            LW,9     13                    OTHERWISE USE REG 13
     2640   03 00427    35981CD1              STW,9    SUPPER,4              AS SECTOR UPPER LIMIT
     2641   03 00428    35981CD6              STW,9    SWPROT34,4            AS WRITE PROTECT UPPER LIMIT
     2642                            *
     2643                            *                                   CALLED BY THE S E E K DIRECTIVE
     2644                            *
     2645   03 00429    3890000B A   INITSIZE SW,9     11                CALCULATE MAXIMUM SECTOR AVAILABLE
     2646   03 0042A    35981CD2              STW,9    SSIZE,4               SAVE SECTOR SIZE
     2647                            *
     2648   03 0042B    22A00000 A            LI,10    0                 ZERO REG 10
     2649   03 0042C    32681CD4              LW,6     TCKSHIFT,4        FETCH SHIFTING PARAMETER
     2650   03 0042D    3300000B A            MTW,0    11                IF SECTOR LOWER LIMIT = 0
     2651   03 0042E    68300432              BEZ      %+4                   BRANCH AROUND CALCULATION
     2652   03 0042F    36A81CCE              DW,10    SECTORS,4         CALCULATE
     2653   03 00430    A5B00006 A            SLS,11   *6                   A STARTING
     2654   03 00431    30B0000A A            AW,11    10                    TRACK SECTOR ADDRESS
     2655   03 00432    35B81CD3              STW,11   TSSTART,4         SAVE TRACK SECTOR STARTING ADDRESS
     2656   03 00433    E802000E A            B        *14,1             RETURN TO CALLING CODE
     2657                            *
     2658                            *
     2659                            *
     2660   03 00434    00000000 A   INITRTN  DATA     0                 SAVE RETURN ADDRESS
     2661   03 00435    00000000 A   INVDEV   DATA     0                 INVALID DEVICE ADDRESS
     2662   03 00436    00000000 A   REVISION DATA     0                 REVISION LEVEL OF THE DEVICE
     2663   03 00437    00000000 A   DONTREAD DATA     0                 DO NOT READ FLAG
     2664   03 00438    00000000 A   SIOP     DATA     0                 MED OR EP RAD CONNECTED TO SIOP *C01
     2665                                     PAGE
     2666                            *
     2667                            *                 *** C O M P R E H E N S I V E  T E S T ***
     2668                            *                 *** T S T 0 ***
     2669                            *
     2670                            *                 THIS DIRECTIVE TESTS ALL FUNCTIONS ASSOCIATED
     2671                            *                 WITH A RAD STORAGE SYSTEM.  IT PERFORMS A
     2672                            *                 FUNCTIONAL  AND A RANDOM EXERCISOR TEST ON
     2673                            *                 THE CONTROLLER AND ALL STORAGE UNITS SPECIFIED
     2674                            *                 BY THE 'SYST' DIRECTIVE.
     2675                            *                 P1 = THE NUMBER OF ORDER SEQUENCES TO BE ISSUED
     2676                            *                      DURING THE EXECUTION OF RANDOM EXECISER.
     2677                            *
     2678                            *                      IF P1 = 0, 5000 ORDER SEQUENCES WILL BE ISSUED
     2679                            *                      BY DEFAULT.
     2680                            *
     2681                            *                      P1 = 0; ORDER SEQUENCES = 5000
     2682                            *
     2683                            *                      0R
     2684                            *
     2685                            *                      1  < P1 < 99999999
     2686                            *
     2687                            *                 P2 = RETRY COUNT FOR THE RANDOM EXERCISER ON DETECTED
     2688                            *                      ERROR.
     2689                            *
     2690                            *                      0 < P2 < 999999999
     2691                            *
     2692                            *
     2693                            *
     2694   03 00439    35101840     TST0     STW,1    :PASSCUR          INIT. PASS COUNTER              *B01
     2695   03 0043A    22800000 A            LI,8     0                 LOAD P1                         *B01
     2696   03 0043B    22900000 A            LI,9     0                     AND P2 AS ZERO FOR FUCTIONAL TST
     2697   03 0043C    6AF00459              BAL,15   TST100            GO TO FUCTIONAL TEST
     2698                            *
     2699                            *
     2700                            *
     2701   03 0043D    32800201 A            LW,8     :P1               LOAD ORDER SEQUENCE COUNT
     2702   03 0043E    69300440              BNEZ     %+2               IF ZERO
     2703   03 0043F    22801388 A            LI,8     5000                  LOAD A SEQUENCE COUNT = 5000
     2704   03 00440    3580199B              STW,8    CYCLE                 RANDOM CYCLES
     2705   03 00441    32800202 A            LW,8     :P2               LOAD RETRY COUNT
     2706   03 00442    3580199A              STW,8    TST2PAR+2             ON ERROR
     2707   03 00443    22800000 A            LI,8     0
     2708   03 00444    35801EED              STW,8    #MSGLEVL          REPORT ALL ERRORS
     2709   03 00445    6AF01887              BAL,15   TST2LEV2          GO TO RANDOM EXERCISER
     2710   03 00446    68000447              B        %+1               BRANCH
     2711   03 00447    35100437              STW,1    DONTREAD
     2712   03 00448    22000000 A            LI,0     0                                                 *B03
     2713   03 00449    3500185E              STW,0    ITHTEST           SET TEST ID TO ZERO             *B03
     2714   03 0044A    6AF01827              BAL,15   :PASSC            TEST PASS AND PRINT             *B01
     2715   03 0044B    6800043A              B        TST0+1                                            *B01
     2716   03 0044C    EAF0021D A            BAL,15   *:SENSE           GO TEST SENSE SWITCHES
     2717   03 0044D    2E00044D              WAIT     %                 SS3- OFF SS1 - UNK (HLT AFTER TEST)
     2718   03 0044E    68000439              B        TST0              SS3- ON  SS1 - ON  (LOOP ON TEST)
     2719   03 0044F    E8000214 A            B        *:MONITOR         SS3- ON  SS1 - OFF (RTN TO MONITOR)
     2720                                     PAGE
     2721                            *
     2722                            *                 *** F U N C T I O N A L  T E S T  ***
     2723                            *
     2724                            *                 *** T S T 1 , D 1 , D 2
     2725                            *
     2726                            *                 THIS DIRECTIVE PERFORMS A SYSTEMATIC TEST OF ALL
     2727                            *                 LOGIC FUNCTIONS OF THE CONTROLLER AND ALL STORAGE
     2728                            *                 UNITS SPECIFIED BY THE  'S Y S T'  DIRECTIVE.
     2729                            *                 THE FUNCTIONAL TEST CONSISTS OF A NUMBER OF SUBTESTS
     2730                            *                 WHICH MAY BE SELECTED INDIVIDUALLY OR IN GROUPS.
     2731                            *
     2732                            *                 WHEN A FAULT HAS BEEN DETECTED, AUTOMATIC ERROR
     2733                            *                 LOOPING WILL BE IMPLEMENTED UNDER SENSE SWITCH
     2734                            *                 CONTROL.
     2735                            *
     2736                            *                 ERROR LOOPING WILL NOT BE PERFORMED IF THE CAUSE
     2737                            *                 OF THE FAULT IS A FLAW IN THE RECORDING MEDIA.
     2738                            *
     2739                            *                 PARAMETERS:
     2740                            *
     2741                            *                 D1 - THE NUMBER OF THE FIRST SUBTEST TO BE EXECUTED
     2742                            *                      (IF = 0 ALL SUB-TESTS WILL BE EXECUTED).
     2743                            *
     2744                            *                 D2 - THE NUMBER OF THE LAST SUBTEST TO BE EXECUTED.
     2745                            *
     2746                            *
     2747                            *
     2748   03 00450    22000000 A   TST1     LI,0     0                 ZERO
     2749   03 00451    350004F9              STW,0    TST0FLAG             COMPREHENSIVE TEST FLAG
     2750   03 00452    32800201 A            LW,8     :P1               LOAD NO. OF FIRST SUB-TEST TO BE EXC
     2751   03 00453    32900202 A            LW,9     :P2               LOAD NO. OF LAST  SUB-TEST TO BE EXC
     2752   03 00454    6AF20459              BAL,15   TST100,1          GO TO FUNCTIONAL TEST
     2753   03 00455    EAF0021D A            BAL,15   *:SENSE           GO TEST SENSE SWITCHES
     2754   03 00456    2E000456              WAIT     %                 SS3 - OFF SS1 - UNK (HLT AFTER TST)
     2755   03 00457    68000450              B        TST1              SS3 - ON  SS1 - ON  (LOOP ON TEST)
     2756   03 00458    E8000214 A            B        *:MONITOR         RETURN TO THE MONITOR
     2757                            *
     2758                            *                 START FUNCTIONAL TEST
     2759                            *
     2760   03 00459    351004F9     TST100   STW,1    TST0FLAG          SET COMPREHENSIVE TEST FLAG
     2761   03 0045A    35F004F7              STW,15   TST1RTN           SAVE RETURN ADDR
     2762   03 0045B    22F00322              LI,15    :TST1DIR          LOAD AND SAVE ADD
     2763   03 0045C    35F01EFF              STW,15   :MSGADDR
     2764   03 0045D    22A00001 A            LI,10    1                 LOAD INDEX POINTER
     2765   03 0045E    22B00032 A            LI,11    TST1END-TST1START LOAD MAXIMUM UPPER LIMIT OF F TESTS
     2766                            *
     2767                            *                 TEST FOR P1 =0, IF =0 DO ALL FUNCTIONAL TESTS
     2768                            *
     2769   03 0045F    33000008 A            MTW,0    8                 TEST P1, IF = 0
     2770   03 00460    68300471              BEZ      TST1001           DO ALL FUNC TESTS
     2771                            *
     2772                            *                 TEST FOR P1 > UPPER LIMIT, IF SO, P1 IS IN ERROR
     2773                            *
     2774   03 00461    3510030A A            STW,1    :ERPARNO          LOAD PARAMETER ERROR COUNT = 1
     2775   03 00462    32A00008 A            LW,10    8                 LOAD NO. OF FIRST FUNCTIONAL TEST
     2776   03 00463    21800032 A            CI,8     TST1END-TST1START COMPARE IT WITH UPPER LIMIT
     2777   03 00464    6920046E              BG       TST1PERR          IF GREATER P1 IS IN ERROR
     2778                            *
     2779                            *                 TEST FOR P2 = 0,IF =0, SET P2 = P1
     2780                            *
     2781   03 00465    33000009 A            MTW,0    9
     2782   03 00466    69300468              BNEZ     %+2                   IF NOT BRANCH
     2783   03 00467    32900008 A            LW,9     8                     OTHERWISE SET P2 = P1
     2784                            *
     2785                            *                 TEST FOR P2 > UPPER LIMIT, IF SO, P2 IS IN ERROR
     2786                            *
     2787   03 00468    3520030A A            STW,2    :ERPARNO          LOAD PARAMETER ERROR COUNT = 2
     2788   03 00469    32B00009 A            LW,11    9                 LOAD NO. OF LAST FUNCTIONAL TEST
     2789   03 0046A    21900032 A            CI,9     TST1END-TST1START COMPARE IT WITH UPPER LIMIT
     2790   03 0046B    6920046E              BG       TST1PERR          IF GREATER P2 IS IN ERROR
     2791                            *
     2792                            *                 TEST FOR P2 + P1  IF SO, P2 IS IN ERROR
     2793                            *
     2794   03 0046C    31B0000A A            CW,11    10                TEST FOR P2 < P1
     2795   03 0046D    68100471              BGE      TST1001               IF NOT BRANCH
     2796                            *
     2797                            *                 REPORT PARAMETER ERROR
     2798                            *
     2799   03 0046E    EAF00229 A   TST1PERR BAL,15   *:ERRPARM         GO TO PARAMETER ERRER REPORTER
     2800   03 0046F    00000322              DATA     :TST1DIR          ***  TYPE OF TEST BE EXECUTED  ***
     2801   03 00470    E8000214 A            B        *:MONITOR         RETURN TO THE MONITOR
     2802                            *
     2803   03 00471    15A004FC     TST1001  STD,10   TST1TEST          SAVE LOWER AND UPPER LIMITS
     2804                            *
     2805                            *                 THIS CODE SETS UP THE DEVICE DESCRIPTION TABLE PNTER
     2806                            *
     2807                            TST102 ;
     2808   03 00472    228FFFFF A            LI,8     -1                LOAD AND SAVE A -1
     2809   03 00473    35801CC9              STW,8    #DDTP                 TO INITIALIZE DDTP
     2810                            *
     2811                            *                 THIS CODE UPDATE THE ACTIVE DEVICE DESCRIPTION TABLE
     2812                            *
     2813                            TST103 ;
     2814   03 00474    CF001D35              HIO,0    *:DEVADDR         CLEAR LAST TESTED RAD
     2815   03 00475    6AF01CB5              BAL,15   #DDTICMT          GO TO THE DDT TABLE INCREMENT ROUTN
     2816   03 00476    E80004F7              B        *TST1RTN          RTNS HERE IF NO MORE DEVICES
     2817   03 00477    22000000 A            LI,0     0                 FETCH ZERO
     2818   03 00478    35001EED              STW,0    #MSGLEVL          STORE ZERO
     2819   03 00479    6AF01C46              BAL,15   MEMORY            BRANCH TO MEMORY SUBR.
     2820   03 0047A    E80004F7              B        *TST1RTN
     2821                            *
     2822                            *
     2823                            *                 THIS CODE CALCULATES THE TIME REQUIRES FOR AT LEAST
     2824                            *                 1 SECTOR TO PASS UNDER A HEADER.
     2825   03 0047B    22A00000 A            LI,10    0                 ZERO REG 10
     2826   03 0047C    22B0C350 A            LI,11    50000
     2827   03 0047D    32400225 A            LW,4     :MACHINE          DETERMIN IF MACHINE IS A        *B02
     2828   03 0047E    21400008 A            CI,4     8                 SIGM 8 OR 9                     *B02
     2829   03 0047F    69100481              BL       %+2                                               *B02
     2830   03 00480    2260FDE8 A            LI,6     65000             USE THIS VALUE FOR 8 OR 9       *B02
     2831   03 00481    36A01D36              DW,10    SECTCURR          DIVIDE BY NO. OF SECT/REV
     2832   03 00482    35B004F2              STW,11   SECTDLAY          SAVE AS SECTOR DELAY CONSTANT
     2833                            *
     2834                            *                 THIS CODE SETS UP THE NO. OF THE FIRST FUNCTIONAL
     2835                            *                 TEST AND SETS PRINT HEADER FLAG
     2836                            *
     2837                            TST104 ;
     2838   03 00483    324004FC              LW,4     TST1TEST          LOAD AND SAVE THE
     2839   03 00484    354004F8              STW,4    TST1PONT              NO. OF THE 1 ST FUNCTIONAL SUB-T
     2840   03 00485    351004FA              STW,1    TST1DVFG          SET PRINT 'TST1 DEV XXX' FLAG
     2841                            *
     2842                            *
     2843                            TST105 ;
     2844   03 00486    22800020 A            LI,8     X'20'             FETCH 20
     2845   03 00487    6D801100 A            WD,8     X'1100'           WRITE DIRECT
     2846   03 00488    6D801700 A            WD,8     X'1700'           WRITE DIRECT
     2847   03 00489    32501CCB              LW,5     #DDTBIAS
     2848   03 0048A    02200090 A            LCI      #DDTADR3-#DDTADR1
     2849   03 0048B    2A6A1CCC              LM,6     MODEL,5
     2850   03 0048C    2B601D34              STM,6    MODELC
     2851   03 0048D    33001D38              MTW,0    CURRSEEK                                          *A01
     2852   03 0048E    69300490              BNEZ     %+2                                               *A01
     2853   03 0048F    33101D38              MTW,1    CURRSEEK                                          *A01
     2854   03 00490    32501D38              LW,5     CURRSEEK
     2855   03 00491    6AC01C24              BAL,12   BUILDSK           BUILD CUR. DEV. SEEK ADDR.
     2856   03 00492    328023DF              LW,8     L(X'19FFFFFF')    LOAD NORMAL TIO MASK
     2857   03 00493    358014F5              STW,8    :FTIOMSK
     2858   03 00494    228FFFFF A            LI,8     -1
     2859   03 00495    358014F6              STW,8   :FAIOMSK
     2860   03 00496    328004F4              LW,8     AI6               SET UP                          *C01
     2861   03 00497    35801452              STW,8    :FUCTIN               AI,6     0                  *C01
     2862   03 00498    22800000 A            LI,8     0
     2863   03 00499    3580103D              STW,8    #MSGER41          ZERO ERROR FLAG                 *A01
     2864   03 0049A    35801580              STW,8    LOCATION          STORE WORD
     2865   03 0049B    358004F6              STW,8    T1ERFLAG          RESET TST1 ERROR FLAG
     2866   03 0049C    358004F3              STW,8    CDELAY
     2867   03 0049D    35801BF7              STW,8    ENDOPER           SET UP
     2868   03 0049E    32901995              LW,9     TST2DATA+1        SET UP A FIXED PAT OF PI
     2869   03 0049F    15802162              STD,8    :PATID
     2870   03 004A0    32900004 A            LW,9     4                     THE NUMBER
     2871   03 004A1    23800064 A            MI,8     100                   OF THE TEST
     2872   03 004A2    35901870              STW,9    WATCHERR              TO BE EXECUTED
     2873   03 004A3    3510215C              STW,1    :COMFLAG          SET PRINT INHIBIT OM COMPARE ERROR
     2874   03 004A4    22F004BB              LI,15    TST106+1          SET UP                          *BOO
     2875   03 004A5    35F01860              STW,15   ITHRST            RESTART ADDR                    *BOO
     2876   03 004A6    3510185E              STW,1    ITHTEST           TST1 ID                         *BOO
     2877   03 004A7    3540185F              STW,4    ITHSUBT           SAVE SUBTEST NO.                *BOO
     2878   03 004A8    22F01849              LI,15    ITHDLR            ADDR OF TRAP/INTER              *BOO
     2879   03 004A9    35F0030F A            STW,15   :PIT15            HANDLER ROUTINE                 *BOO
     2880   03 004AA    32801D37              LW,8     BYTCURR
     2881   03 004AB    2580007E A            SLS,8    -2
     2882   03 004AC    3580215B              STW,8    :PATWC
     2883   03 004AD    22802418              LI,8     BUF1LO
     2884   03 004AE    35802158              STW,8    :PATBFR
     2885   03 004AF    6AF0203B              BAL,15   :PATTERN
     2886                            *                 THIS CODE TESTS FOR CONDITIONS WHERE A SUB-TEST WILL
     2887                            *                 BE SKIPPED
     2888   03 004B0    325004F9              LW,5     TST0FLAG          LOAD TST0 FLAG, IF TST0 FLAG =1
     2889   03 004B1    330804BE              MTW,0    TST1START-1,4     TEST FOR NO SUB TEST OR COMP BIT=1
     2890   03 004B2    670A04FE              EXU      TST0BCH,5         BRANCH ACORDINGLY
     2891                            *
     2892                            *                 THIS CODE HANDLE THE CALLING OF AND RETURN FROM
     2893                            *                 A FUNCTIONAL SUB-TEST
     2894   03 004B3    32F804BE              LW,15    TST1START-1,4
     2895   03 004B4    EAF0000F A            BAL,15   *15
     2896                            *
     2897   03 004B5    680004BA     FUCTEXIT B        TST106            THIS THE NORMAL EXIT FROM A SUB-TEST
     2898                            *
     2899   03 004B6    324004F8              LW,4     TST1PONT          THIS THE ERROR EXIT FROM A SUB-TEST
     2900   03 004B7    EAF0021D A            BAL,15   *:SENSE           GO TEST SENSE SWITHCES
     2901   03 004B8    2E0004B8              WAIT     %                 SS3-OFF SS1-UNK(HLT AFTER TEST)
     2902   03 004B9    68000486              B        TST105            SS3- ON  SS1 - ON  (LOOP ON TEST)
     2903                            *                                   SS3- ON  SS1 - OFF (GO TO NEXT TEST)
     2904                            *
     2905                            *                 THIS CODE UPDATES THE FUNCTIONAL TEST POINTER
     2906                            *
     2907   03 004BA    331004F8     TST106   MTW,1    TST1PONT          INCREMENT FUNCTIONAL TEST POINTER
     2908   03 004BB    324004F8              LW,4     TST1PONT          FETCH POINTER
     2909   03 004BC    314004FD              CW,4     TST1TEST+1        COMPARE LAST TEST REQD
     2910   03 004BD    69200474              BG       TST103            IF GREATER EXIT
     2911   03 004BE    68000486              B        TST105                OTHER GO DO NEXT TEST
     2912                            TST1START ;
     2913         03 004BF                    EQU      %
     2914   03 004BF    00000500              DATA     T1ST01
     2915   03 004C0    00000523              DATA     T1ST02
     2916   03 004C1    00000533              DATA     T1ST03
     2917   03 004C2    0000054E              DATA     T1ST04
     2918   03 004C3    00000568              DATA     T1ST05
     2919   03 004C4    00000582              DATA     T1ST06
     2920   03 004C5    000005E4              DATA     T1ST07
     2921   03 004C6    0000060E              DATA     T1ST08
     2922   03 004C7    00000682              DATA     T1ST09
     2923   03 004C8    000006F3              DATA     T1ST10
     2924   03 004C9    00000735              DATA     T1ST11
     2925   03 004CA    0000076F              DATA     T1ST12
     2926   03 004CB    000007B7              DATA     T1ST13
     2927   03 004CC    000007FF              DATA     T1ST14
     2928   03 004CD    0000083B              DATA     T1ST15
     2929   03 004CE    00000883              DATA     T1ST16
     2930   03 004CF    000008C4              DATA     T1ST17
     2931   03 004D0    00000919              DATA     T1ST18
     2932   03 004D1    00000964              DATA     T1ST19
     2933   03 004D2    0000099F              DATA     T1ST20
     2934   03 004D3    00000A06              DATA     T1ST21
     2935   03 004D4    00000A78              DATA     T1ST22
     2936   03 004D5    00000A9B              DATA     T1ST23
     2937   03 004D6    00000AC9              DATA     T1ST24
     2938   03 004D7    00000AE5              DATA     T1ST25
     2939   03 004D8    00000B46              DATA     T1ST26
     2940   03 004D9    00000BAE              DATA     T1ST27
     2941   03 004DA    00000C1D              DATA     T1ST28
     2942   03 004DB    00000C53              DATA     T1ST29
     2943   03 004DC    00000CB2              DATA     T1ST30
     2944   03 004DD    00000CFF              DATA     T1ST31
     2945   03 004DE    00000D3F              DATA     T1ST32
     2946   03 004DF    00000D5F              DATA     T1ST33
     2947   03 004E0    00000D81              DATA     T1ST34
     2948   03 004E1    00000E2C              DATA     T1ST35
     2949   03 004E2    00000E6D              DATA     T1ST36
     2950   03 004E3    00000E88              DATA     T1ST37
     2951   03 004E4    00000EA6              DATA     T1ST38
     2952   03 004E5    00000EE6              DATA     T1ST39
     2953   03 004E6    00000F41              DATA     T1ST40
     2954   03 004E7    00000F9E              DATA     T1ST41
     2955   03 004E8    00000FFA              DATA     T1ST42
     2956   03 004E9    0000103F              DATA     T1ST43
     2957   03 004EA    0000105E              DATA     T1ST44
     2958   03 004EB    000010B5              DATA     T1ST45
     2959   03 004EC    00001127              DATA     T1ST46
     2960   03 004ED    0000114C              DATA     T1ST47
     2961   03 004EE    00001171              DATA     T1ST48
     2962   03 004EF    000011BD              DATA     T1ST49
     2963   03 004F0    00001213              DATA     T1ST50                                            *B02
     2964                            *
     2965                            *
     2966         03 004F1           TST1END  EQU      %
     2967                                     BOUND    8
     2968   03 004F2    00000000 A   SECTDLAY DATA     0                 SECTOR DALAY CONSTANT
     2969   03 004F3    00000000 A   CDELAY   DATA     0                 CONTR TO DEV DELAY
     2970   03 004F4    20600000 A   AI6      AI,6     0                 AI FOR WAIT LOOP                *C01
     2971   03 004F5    CD001D35     TIOINST  TIO,0    *:DEVADDR         TIO INSTRUCTION FOR TST1,48     *C01
     2972   03 004F6    00000000 A   T1ERFLAG DATA     0                 TST1 ERROR IN SUBTEST FLAG
     2973   03 004F7    00000000 A   TST1RTN  DATA     0                 RETURN ADDRESS
     2974   03 004F8    00000000 A   TST1PONT DATA     0                 POINTER TO CURRENT FUNCTIONAL TEST
     2975   03 004F9    00000000 A   TST0FLAG DATA     0                 IF = 1 COMPREHENSIVE TEST FLAG
     2976   03 004FA    00000000 A   TST1DVFG DATA     0                 IF = 1 PRINT 'TST1 DEV XXX' FLAG
     2977                                     BOUND    8
     2978   03 004FC    00000000 A   TST1TEST DATA     0                 POINTER TO FIRST FUNT TEST TO BE EXC
     2979   03 004FD    00000000 A            DATA     0                 POINTER TO LAST  FUNT TEST TO BE EXC
     2980   03 004FE    683004B5     TST0BCH  BEZ      FUCTEXIT          SKIP FUNCTIONAL TEST
     2981   03 004FF    682004B5              BLEZ     FUCTEXIT          SKIP FUNCTIONAL TEST
     2982                                     PAGE
     2983                            *
     2984                            *                 *** T S T 1 , 0 1 ***
     2985                            *
     2986                            *                 *** I N T E R R U P T  P E N D I N G  T E S T ***
     2987                            *
     2988                            *                 THIS TEST IS DESIGNED TO CHECK THE INTERRUPT LINE,
     2989                            *                 IF AN INTERRUPT IS PENDING IT WILL ATTEMPT TO
     2990                            *                 RESET DEVICES WITH A 'HIO' UNTIL THE PENDING
     2991                            *                 INTERRUPT IS RESET OR UNTIL ALL DEVICES HAVE
     2992                            *                 BEEN TRIED.
     2993                            *
     2994                            *
     2995                            T1ST01  ;
     2996   03 00500    32600521              LW,6     T1STXPSD          SET UP XPSD
     2997   03 00501    3560005C A            STW,6    X'5C'                    INTERRUPT LOCATION
     2998                            *
     2999                            *
     3000   03 00502    22601FFF A            LI,6     X'1FFF'           LOAD MAXIMUM DEVICE COUNT       *A01
     3001   03 00503    35601D35              STW,6    :DEVADDR          SAVE MAXIMUM DEVICE COUNT
     3002                            *
     3003   03 00504    226FD8F0 A            LI,6     -10000            LOAD AND SAVE
     3004   03 00505    35600522              STW,6    T1STDYLP              A DELAY LOOP COUNT
     3005   03 00506    22400020 A   T1ST0105 LI,4     X'20'             ARM AND ENABLE
     3006   03 00507    6D401200 A            WD,4     X'1200'               I/O INTERRUPT
     3007                            *
     3008   03 00508    33100522              MTW,1    T1STDYLP          UPDATE DELAY LOOP
     3009   03 00509    69100506              BLZ      T1ST0105          IF LESS THAN ZERO CONTINUE LOOPING
     3010   03 0050A    6AF0050C              BAL,15   T1ST0119
     3011   03 0050B    680004B5              B        FUCTEXIT          GO TO FUNCTIONAL DISPATCHER
     3012   03 0050C    22400020 A   T1ST0119 LI,4     X'20'             DISARM AND DISABLE
     3013   03 0050D    6D401500 A            WD,4     X'1500'               I/O INTERRUPTS
     3014   03 0050E    32401CCB              LW,4     #DDTBIAS          LOAD BIAS TO CURRENT ACTIVE DDT
     3015   03 0050F    32581CCD              LW,5     TGTDEV,4          RESTORE
     3016   03 00510    35501D35              STW,5    :DEVADDR              CURRENT DEVICE ADDRESS
     3017   03 00511    6D000022 A            WD,0     X'22'             ALLOW INTERRUPTS
     3018   03 00512    E800000F A            B        *15               RETURN
     3019                            *
     3020                            *
     3021                                     BOUND    8
     3022   03 00514    00000000 A   T1STINTR DATA     0,0
            03 00515    00000000 A
     3023   03 00516    00000518              DATA     %+2,7**24
            03 00517    07000000 A
     3024                            *
     3025   03 00518    CF001D35              HIO,0    *:DEVADDR         HALT DEVICE
     3026   03 00519    33F01D35     T1ST0120 MTW,-1   :DEVADDR          DECREMENT DEV ADDR
     3027   03 0051A    33001D35              MTW,0    :DEVADDR
     3028   03 0051B    6910051D              BLZ      T1ST0117          IF ALL DEV'S HALTED EXIT
     3029   03 0051C    0E300514              LPSD,3   T1STINTR          RETURN
     3030                            *
     3031                            *                 *** 0 1 1 5 ***
     3032                            *
     3033                            *                 THIS TEST VERIFIES THAT THERE WAS NOT AN INTERRUPT
     3034                            *                 LEFT PENDING AFTER ALL DEVICES WERE CLEARED.
     3035                            *
     3036   03 0051D    6AF0050C     T1ST0117 BAL,15   T1ST0119          GO RESTORE DEV ADDR
     3037   03 0051E    6AF01556              BAL,15   TST1ERMG          GO REPORT ERROR
     3038   03 0051F    00000073 A            DATA     0115              *** ERROR 0115 ***
     3039   03 00520    680004B6              B        FUCTEXIT+1        GO TEST SENSE SWITCHES
     3040   03 00521    0F300514     T1STXPSD XPSD,3   T1STINTR
     3041   03 00522    00000000 A   T1STDYLP DATA     0
     3042                                     PAGE
     3043                            *
     3044                            *                 *** T S T 1 , 0 2 ***
     3045                            *
     3046                            *                 *** V A L I D  C O N T R O L L E R  A D D R E S S
     3047                            *
     3048                            *                 I N V A L I D  S T O R A G E  U N I T  A D D R ***
     3049                            *
     3050                            *                 THIS SUBTEST TESTS THE ABILITY OF A RAD TO
     3051                            *                 HANDLE CORRECTLY AN I/O OPERATION BY THE
     3052                            *                 CONTROLLER, WHEN THERE IS CONTROLLER ADDRESS
     3053                            *                 RECOGNIZATION, BUT THERE IS NO DEVICE ADDRESS
     3054                            *                 RECOGNIZATION.  THIS TEST IS BYPASSED, IF
     3055                            *                 PARAMETER (H3) OF THE 'SYST' DIRECTIVE IS ZERO.
     3056                            *
     3057   03 00523    32600435     T1ST02   LW,6     INVDEV            LOAD INVALID DEVICE ADDRESS
     3058   03 00524    683004B5              BEZ      FUCTEXIT          IF ZERO, SKIP THIS TEST
     3059   03 00525    35601D35              STW,6    :DEVADDR          SET UP DEV ADDR LOCATION IN CASE
     3060                            *                                   OF A WATCHDOG TIMER TRAP
     3061   03 00526    CF001D35              HIO,0    *:DEVADDR         ISSUE A RESET TO AN NON-EXISTANCE DV
     3062   03 00527    7406052E              STCF     T1ST0211,3        SAVE CONDITION CODES
     3063                            *
     3064                            *                 *** 0 2 1 0  ***
     3065                            *
     3066                            *                 THIS TEST VERIFIES THAT CC1 WAS RETURNED
     3067                            *                 AS A '1'.
     3068                            *
     3069   03 00528    6980052E              BCS,8    T1ST0211          IF CC1=1 NEXT TEST
     3070   03 00529    6AF01556              BAL,15   TST1ERMG          GO REPORT ERROR
     3071   03 0052A    000000D2 A            DATA     0210              *** ERROR 0210 ***
     3072   03 0052B    EAF0021D A            BAL,15   *:SENSE           TEST SENSE SWITCHES
     3073   03 0052C    2E00052C              WAIT     %
     3074   03 0052D    68000523              B        T1ST02            GO LOOP ON ERROR
     3075                            *
     3076                            *                 *** 0 2 1 1 ***
     3077                            *
     3078                            *                 THIS TEST VERIFIES CC2 WAS RETURNED
     3079                            *                 AS A '0'.
     3080                            *
     3081                            *
     3082   03 0052E    02200000 A   T1ST0211 LCI      0                 RESTORE CONDITION CODES
     3083   03 0052F    684004B5              BCR,4    FUCTEXIT          RETURN TO FUNCTIONAL TEST MONITOR
     3084   03 00530    6AF01556              BAL,15   TST1ERMG          GO REPORT ERROR
     3085   03 00531    000000D3 A            DATA     0211              *** ERROR 0211 ***
     3086   03 00532    680004B6              B        FUCTEXIT+1        GO TEST SENSE SWITCHES
     3087                                     PAGE
     3088                            *
     3089                            *                 *** T S T 1 , 0 3 ***
     3090                            *
     3091                            *                 *** H I O  I N S T R U C T I O N
     3092                            *
     3093                            *                  R E C O G N I T I O N  T E S T ***               *A01
     3094                            *
     3095                            *                 THIS SUBTEST TESTS THE ABILITY OF A RAD TO ACCEPT
     3096                            *                 A 'HIO' OPERATION WITHOUT ERROR, AND RETURN
     3097                            *                 CONDITION CODE AND STATUS INFORMATION.
     3098                            *
     3099                            *
     3100   03 00533    CF001D35     T1ST03   HIO,0    *:DEVADDR         RESET THE RAD
     3101   03 00534    CFC01D35              HIO,12   *:DEVADDR         IF WE TRAP, TRAP HERE
     3102   03 00535    6AF01F0F              BAL,15   :HIO+1            USE STANDARD I/O SUB-ROUTINE
     3103   03 00536    FF00C001 A            DATA     X'FF00C001'
     3104   03 00537    10000000 A            DATA     X'10000000'
     3105   03 00538    680004B5              B        FUCTEXIT          IF NO ERRORS, RTN TO FTM
     3106                            *
     3107                            *                 *** 0 3 1 0 ***
     3108                            *
     3109                            *                 THIS TEST VERIFIES THAT CC1 WAS RETURNED
     3110                            *                 AS A '0'
     3111                            *
     3112                            *
     3113   03 00539    70342023     T1ST0310 LCF      :STATUSCC,2       RESTORE CONDITION CODES
     3114   03 0053A    6880053D              BCR,8    T1ST0311          IF CC1=0 NEXT TEST
     3115   03 0053B    6AF01556              BAL,15   TST1ERMG          GO REPORT ERROR
     3116   03 0053C    00000136 A            DATA     0310              *** ERROR 0310 ***
     3117                            *
     3118                            *                 *** 0 3 1 1 ***
     3119                            *
     3120                            *                 THIS TEST VERIFIES THAT CC2 WAS RETURNED
     3121                            *                 AS A '0'
     3122                            *
     3123                            *
     3124   03 0053D    70342023     T1ST0311 LCF      :STATUSCC,2       RESTORE CONDITION CODES
     3125   03 0053E    68400541              BCR,4    T1ST0312          IF CC2=0 NEXT TEST
     3126   03 0053F    6AF01556              BAL,15   TST1ERMG          GO REPORT ERROR
     3127   03 00540    00000137 A            DATA     0311              *** ERROR 0311 ***
     3128                            *
     3129                            *                 *** 0 3 1 2 ***
     3130                            *
     3131                            *                 THIS TEST VERIFIES THAT ONLY 'DEVICE AUTOMATIC'
     3132                            *                 WAS REPORTED BY THE DEVICE.
     3133                            *
     3134                            *
     3135   03 00541    70342023     T1ST0312 LCF      :STATUSCC,2       IF NO DEV ADDR
     3136   03 00542    698004B6              BCS,8    FUCTEXIT+1          RECOGNIZATION EXIT            *A01
     3137   03 00543    6AF01F11              BAL,15   :HIO+3            GO TEST STATUS
     3138   03 00544    FF000001 A            DATA     X'FF000001'                                       *A01
     3139   03 00545    10000000 A            DATA     X'10000000'
     3140   03 00546    680004B6              B        FUCTEXIT+1        RETURN TO FTM                   *BOO
     3141                            *
     3142                            *
     3143   03 00547    6AF01556              BAL,15   TST1ERMG          GO REPORT ERROR
     3144   03 00548    00000138 A            DATA     0312              *** ERROR 0312 ***
     3145   03 00549    6AF01F11              BAL,15   :HIO+3            REPORT STATUS ERROR
     3146   03 0054A    FF00C000 A            DATA     X'FF00C000'
     3147   03 0054B    10000000 A            DATA     X'10000000'
     3148   03 0054C    680004B6              B        FUCTEXIT+1        RETURN TO FTM                   *BOO
     3149   03 0054D    680004B6              B        FUCTEXIT+1        RETURN TO FTM TO TEST SENSE SWITCHES
     3150                                     PAGE
     3151                            *
     3152                            *                 *** T S T 1 , 0 4 ***
     3153                            *
     3154                            *                 *** T I O  I N S T R U C T I O N
     3155                            *
     3156                            *                 R E C O G N I T I O N  T E S T ***
     3157                            *
     3158                            *                 THIS SUBTEST TESTS THE ABILITY OF A RAD TO ACCEPT
     3159                            *                 A 'TIO' OPERATION WITHOUT ERROR, AND RETURN
     3160                            *                 CONDITION CODE AND STATUS INFORMATION.
     3161                            *
     3162                            *
     3163                            T1ST04 ;
     3164   03 0054E    CDC01D35              TIO,12   *:DEVADDR         IF WE TRAP, TRAP HERE
     3165   03 0054F    6AF01F0A              BAL,15   :TIO+1            USE STANDARD I/O SUB-ROUTINE
     3166   03 00550    FF00C001 A            DATA     X'FF00C001'         TO SAVE STATUS AND CC         *BOO
     3167   03 00551    10000000 A            DATA     X'10000000'
     3168   03 00552    680004B5              B        FUCTEXIT          IF NO ERRORS, RTN TO FTM
     3169                            *
     3170                            *                 *** 0 4 1 0 ***
     3171                            *
     3172                            *                 THIS TEST VERIFIES THAT CC1 WAS RETURNED
     3173                            *                 AS A '0'
     3174                            *
     3175                            *
     3176   03 00553    70342023     T1ST0410 LCF      :STATUSCC,2       RESTORE CONDITION CODES
     3177   03 00554    68800557              BCR,8    T1ST0411          IF CC1=0 NEXT TEST
     3178   03 00555    6AF01556              BAL,15   TST1ERMG          GO REPORT ERROR
     3179   03 00556    0000019A A            DATA     0410              *** ERROR 0410 ***
     3180                            *
     3181                            *                 *** 0 4 1 1 ***
     3182                            *
     3183                            *                 THIS TEST VERIFIES THAT CC2 WAS RETURNED
     3184                            *                 AS A '0'
     3185                            *
     3186                            *
     3187   03 00557    70342023     T1ST0411 LCF      :STATUSCC,2       RESTORE CONDITION CODES
     3188   03 00558    6840055B              BCR,4    T1ST0412          IF CC2=0 NEXT TEST
     3189   03 00559    6AF01556              BAL,15   TST1ERMG          GO REPORT ERROR
     3190   03 0055A    0000019B A            DATA     0411              *** ERROR 0411 ***
     3191                            *
     3192                            *                 *** 0 4 1 2 ***
     3193                            *
     3194                            *                 THIS TEST VERIFIES THAT ONLY 'DEVICE AUTOMATIC'
     3195                            *                 WAS REPORTED BY THE DEVICE.
     3196                            *
     3197                            *
     3198   03 0055B    70342023     T1ST0412 LCF      :STATUSCC,2       IF NO DEV ADDR
     3199   03 0055C    698004B6              BCS,8    FUCTEXIT+1            RECOGNIZATION EXIT          *BOO
     3200   03 0055D    6AF01F0C              BAL,15   :TIO+3            GO TEST STATUS
     3201   03 0055E    FF000001 A            DATA     X'FF000001'        TO SAVE STATUS AND CC
     3202   03 0055F    10000000 A            DATA     X'10000000'
     3203   03 00560    680004B6              B        FUCTEXIT+1        RETURN TO FTM                   *BOO
     3204                            *
     3205                            *
     3206   03 00561    6AF01556              BAL,15   TST1ERMG          GO REPORT ERROR
     3207   03 00562    0000019C A            DATA     0412              *** ERROR 0412 ***
     3208   03 00563    6AF01F0C              BAL,15   :TIO+3            REPORT STATUS ERROR
     3209   03 00564    FF00C000 A            DATA     X'FF00C000'
     3210   03 00565    10000000 A            DATA     X'10000000'
     3211   03 00566    68000567              B        %+1               RETURN TO FTM                   *BOO
     3212   03 00567    680004B6              B        FUCTEXIT+1        GO TES
     3213                                     PAGE
     3214                            *
     3215                            *                 *** T S T 1 , 0 5 ***
     3216                            *
     3217                            *                 *** T D V  I N S T R U C T I O N
     3218                            *
     3219                            *                 R E C O G N I T I O N  T E S T ***
     3220                            *
     3221                            *                 THIS SUBTEST TESTS THE ABILITY OF A RAD TO ACCEPT
     3222                            *                 A 'TDV' OPERATION WITHOUT ERROR, AND RETURN
     3223                            *                 CONDITION CODE AND STATUS INFORMATION.
     3224                            *
     3225                            *
     3226                            T1ST05 ;
     3227   03 00568    CEC01D35              TDV,12   *:DEVADDR         IF WE TRAP, TRAP HERE
     3228   03 00569    6AF01F14              BAL,15   :TDV+1            USE STANDARD I/O SUB-ROUTINE
     3229   03 0056A    FF00C001 A            DATA     X'FF00C001'         TO SAVE STATUS AND CC         *BOO
     3230   03 0056B    00000000 A            DATA     X'00000000'                                       *BOO
     3231   03 0056C    680004B5              B        FUCTEXIT          IF NO ERRORS, RTN TO FTM
     3232                            *
     3233                            *                 *** 0 5 1 0 ***
     3234                            *
     3235                            *                 THIS TEST VERIFIES THAT CC1 WAS RETURNED
     3236                            *                 AS A '0'
     3237                            *
     3238                            *
     3239   03 0056D    70342023     T1ST0510 LCF      :STATUSCC,2       RESTORE CONDITION CODES
     3240   03 0056E    68800571              BCR,8    T1ST0511          IF CC1=0 NEXT TEST
     3241   03 0056F    6AF01556              BAL,15   TST1ERMG          GO REPORT ERROR
     3242   03 00570    000001FE A            DATA     0510              *** ERROR 0510 ***
     3243                            *
     3244                            *                 *** 0 5 1 1 ***
     3245                            *
     3246                            *                 THIS TEST VERIFIES THAT CC2 WAS RETURNED
     3247                            *                 AS A '0'
     3248                            *
     3249                            *
     3250   03 00571    70342023     T1ST0511 LCF      :STATUSCC,2       RESTORE CONDITION CODES
     3251   03 00572    68400575              BCR,4    T1ST0512          IF CC2=0 NEXT TEST
     3252   03 00573    6AF01556              BAL,15   TST1ERMG          GO REPORT ERROR
     3253   03 00574    000001FF A            DATA     0511              *** ERROR 0511 ***
     3254                            *
     3255                            *                 *** 0 5 1 2 ***
     3256                            *
     3257                            *                 THIS TEST VERIFIES THAT ALL
     3258                            *                 ZEROES WERE RETURNED FOR TDV STATUS
     3259                            *
     3260                            *
     3261   03 00575    70342023     T1ST0512 LCF      :STATUSCC,2       IF NO DEV ADDR
     3262   03 00576    698004B6              BCS,8    FUCTEXIT+1            RECOGNIZATION EXIT          *BOO
     3263   03 00577    6AF01F16              BAL,15   :TDV+3            GO TEST STATUS
     3264   03 00578    FF000001 A            DATA     X'FF000001'
     3265   03 00579    00000000 A            DATA     0
     3266   03 0057A    680004B6              B        FUCTEXIT+1        RETURN TO FTM                   *BOO
     3267                            *
     3268                            *
     3269   03 0057B    6AF01556              BAL,15   TST1ERMG          GO REPORT ERROR
     3270   03 0057C    00000200 A            DATA     0512              *** ERROR 0512 ***
     3271   03 0057D    6AF01F16              BAL,15   :TDV+3            REPORT STATUS ERROR
     3272   03 0057E    FF000000 A            DATA     X'FF000000'                                       *BOO
     3273   03 0057F    00000000 A            DATA     0
     3274   03 00580    680004B6              B        FUCTEXIT+1        RETURN TO FTM                   *BOO
     3275   03 00581    680004B6              B        FUCTEXIT+1        RETURN TO FTM TO TEST SENSE SWITCHES
     3276                                     PAGE
     3277                            *
     3278                            *                 *** T S T 1 , 0 6 ***
     3279                            *
     3280                            *                 *** S I O  I N S T R U C T I O N
     3281                            *
     3282                            *                 R E C O G N I T I O N  T E S T ***
     3283                            *
     3284                            *                 THIS SUBTEST TESTS THE ABILITY OF A RAD TO ACCEPT
     3285                            *                 A 'SIO' OPERATION WITHOUT ERROR, AND RETURN
     3286                            *                 CONDITION CODE AND STATUS INFORMATION.
     3287                            *
     3288                            *
     3289   03 00582    32601D37     T1ST06   LW,6     BYTCURR           LOAD, SAVE
     3290   03 00583    55621249              STH,6    IOCD0610+1,1          AND
     3291   03 00584    2560007E A            SLS,6    -2                    CONVERT
     3292   03 00585    3560215B              STW,6    :PATWC                SAVE WORD COUNT OF PATTERN AREA
     3293   03 00586    22602418              LI,6     BUF1LO            LOAD AND
     3294   03 00587    35602158              STW,6    :PATBFR               SAVE START ADDR OF PATTERN AREA
     3295   03 00588    327004F8              LW,7     TST1PONT          RELOAD WATCHDOG                 *A01
     3296   03 00589    35701870              STW,7    WATCHERR              ERROR NO.                   *A01
     3297   03 0058A    6AF0203B              BAL,15   :PATTERN          GO BUILD PATTERN
     3298   03 0058B    22000924              LI,0     DA(IOCD0610)      LOAD DW FOR IOCD
     3299   03 0058C    CCC01D35              SIO,12   *:DEVADDR         ATTEMPT A STOP ORDER
     3300   03 0058D    6AF01F05              BAL,15   :SIO+1            SAVE SIO STATUS
     3301   03 0058E    FF00C001 A            DATA     X'FF00C001'
     3302   03 0058F    10000000 A            DATA     X'10000000'
     3303   03 00590    68000591              B        %+1               CONTINUE
     3304                            *
     3305                            *                 RETRIEVE TDV STATUS
     3306                            *
     3307   03 00591    33101870              MTW,1    WATCHERR          UPDATE WATCHDOG TRAP TO *** 0601 ***
     3308   03 00592    CE601D35              TDV,6    *:DEVADDR
     3309   03 00593    74040007 A            STCF     7,2               SAVE CONDITION CODES
     3310                            *
     3311                            *                 RETRIEVE HIO STATUS
     3312                            *
     3313   03 00594    33101870              MTW,1    WATCHERR          UPDATE WATCHDOG TRAP TO *** 0602 ***
     3314   03 00595    CF801D35              HIO,8    *:DEVADDR         HALT DEVICE IN CASE OF RUN AWAY
     3315   03 00596    52A20009 A            LH,10    9,1               SAVE BYTE COUNT
     3316   03 00597    74040009 A            STCF     9,2               SAVE CONDITION CODES
     3317                            *
     3318                            *                 *** 0 6 1 0 ***
     3319                            *
     3320                            *                 THIS TEST VERIFIES THAT CC1 WAS RETURNED
     3321                            *                 AS A '0'
     3322                            *
     3323                            *
     3324   03 00598    70342023     T1ST0610 LCF      :STATUSCC,2       RESTORE CONDITION CODES
     3325   03 00599    6880059D              BCR,8    T1ST0611          IF CC1=0 NEXT TEST
     3326   03 0059A    6AF01556              BAL,15   TST1ERMG          GO REPORT ERROR
     3327   03 0059B    00000262 A            DATA     0610              *** ERROR 0610 ***
     3328   03 0059C    331004F6              MTW,1    T1ERFLAG          SET TST1 ERROR FLAG
     3329                            *
     3330                            *                 *** 0 6 1 1 ***
     3331                            *
     3332                            *                 THIS TEST VERIFIES THAT CC2 WAS RETURNED
     3333                            *                 AS A '0'
     3334                            *
     3335                            *
     3336   03 0059D    70342023     T1ST0611 LCF      :STATUSCC,2       RESTORE CONDITION CODES
     3337   03 0059E    684005A2              BCR,4    T1ST0612          IF CC2=0 NEXT TEST
     3338   03 0059F    6AF01556              BAL,15   TST1ERMG          GO REPORT ERROR
     3339   03 005A0    00000263 A            DATA     0611              *** ERROR 0611 ***
     3340   03 005A1    331004F6              MTW,1    T1ERFLAG          SET TST1 ERROR FLAG
     3341                            *
     3342                            *                 *** 0 6 1 2 ***
     3343                            *
     3344                            *                 THIS TEST VERIFIES THAT ONLY 'DEVICE AUTOMATIC'
     3345                            *                 WAS REPORTED BY THE DEVICE.
     3346                            *
     3347                            *
     3348   03 005A2    70342023     T1ST0612 LCF      :STATUSCC,2       IF NO DEV ADDR
     3349   03 005A3    698004B6              BCS,8    FUCTEXIT+1            RECOGNIZATION EXIT          *BOO
     3350   03 005A4    6AF01F07              BAL,15   :SIO+3            GO TEST STATUS
     3351   03 005A5    FF000001 A            DATA     X'FF000001'
     3352   03 005A6    10000000 A            DATA     X'10000000'
     3353   03 005A7    680005AF              B        T1ST0613          GO TO NEXT TEST
     3354                            *
     3355                            *
     3356   03 005A8    6AF01556              BAL,15   TST1ERMG          GO REPORT ERROR
     3357   03 005A9    00000264 A            DATA     0612              *** ERROR 0612 ***
     3358                            *
     3359   03 005AA    6AF01F07              BAL,15   :SIO+3            REPORT STATUS ERROR
     3360   03 005AB    FF00C000 A            DATA     X'FF00C000'
     3361   03 005AC    10000000 A            DATA     X'10000000'
     3362   03 005AD    680005AE              B        %+1
     3363   03 005AE    331004F6              MTW,1    T1ERFLAG          SET TST1 ERROR FLAG
     3364                            *
     3365                            *                 *** 0 6 1 3 ***
     3366                            *
     3367                            *                 THIS TEST VERIFIES THAT THE BYTE COUNT WAS
     3368                            *                 NOT REDUCED BY THE ISSUANCE OF A 'STOP' ORDER.
     3369                            *
     3370                            *
     3371   03 005AF    51A21249     T1ST0613 CH,10    IOCD0610+1,1      COMPARE BYTE COUNTS
     3372   03 005B0    683005B4              BE       T1ST0614          IF EQUAL NEXT TEST
     3373   03 005B1    6AF01556              BAL,15   TST1ERMG          GO REPORT ERROR
     3374   03 005B2    00000265 A            DATA     0613              *** ERROR 0613 ***
     3375   03 005B3    331004F6              MTW,1    T1ERFLAG          SET TST1 ERROR FLAG
     3376                            T1ST0614 ;
     3377   03 005B4    35702023              STW,7    :STATUSCC         STORE WORD
     3378                            *
     3379                            *                 *** 0 6 1 5 ***
     3380                            *
     3381                            *                 THIS TEST VERIFIES THAT NO ERRORS WERE REPORTED
     3382                            *                 INCONJUNCTION WITH THE STATUS RETURN FROM THE TDV.
     3383                            *
     3384   03 005B5    6AF01F16     T1ST0615 BAL,15   :TDV+3            GO TEST STATUS
     3385   03 005B6    C0FF0001 A            DATA     X'C0FF0001'
     3386   03 005B7    00000000 A            DATA     X'0'
     3387   03 005B8    680005C0              B        T1ST0616          GO TO NEXT TEST
     3388                            *
     3389                            *
     3390   03 005B9    6AF01556              BAL,15   TST1ERMG          GO REPORT ERROR
     3391   03 005BA    00000267 A            DATA     0615              *** ERROR 0615 ***
     3392                            *
     3393   03 005BB    6AF01F16              BAL,15   :TDV+3            GO REPORT STATUS ERROR
     3394   03 005BC    FFFFC000 A            DATA     X'FFFFC000'
     3395   03 005BD    00000000 A            DATA     X'0'
     3396   03 005BE    680005BF              B        %+1               GO TO NEXT TEST
     3397   03 005BF    331004F6              MTW,1    T1ERFLAG          SET TST1 ERROR FLAG
     3398                            *
     3399                            *                 *** 0 6 1 6 ***
     3400                            *
     3401                            *                 THIS TEST VERIFIES THAT THE RAD WAS NOT
     3402                            *                 BUSY WHEN IT WAS HALTED.
     3403                            *
     3404   03 005C0    35902023     T1ST0616 STW,9    :STATUSCC         LOAD HIO STATUS
     3405   03 005C1    70342023              LCF      :STATUSCC,2       RESTORE CONDITION CODES
     3406   03 005C2    684005C6              BCR,4    T1ST0617          IF CC2 = 0  NEXT TEST
     3407   03 005C3    6AF01556              BAL,15   TST1ERMG          GO REPORT ERROR
     3408   03 005C4    00000268 A            DATA     0616              *** ERROR 0616 ***
     3409   03 005C5    331004F6              MTW,1    T1ERFLAG          SET TST1 ERROR FLAG
     3410                            *
     3411                            *                 *** 0 6 1 7 ***
     3412                            *
     3413                            *                 THIS TEST VERIFIES THAT NO ERRORS, EXCEPT 'UNUSUAL
     3414                            *                 END' WAS REPORTED INCONJUNCTION WITH STATUS
     3415                            *                 RETURNED FROM A HIO.
     3416                            *
     3417   03 005C6    6AF01F11     T1ST0617 BAL,15   :HIO+3            GO TEST STATUS
     3418   03 005C7    FFFF0001 A            DATA     X'FFFF0001'
     3419   03 005C8    18000000 A            DATA     X'18000000'
     3420   03 005C9    680005D1              B        T1ST0618          GO TO EXIT
     3421   03 005CA    6AF01556              BAL,15   TST1ERMG          GO REPORT ERROR
     3422   03 005CB    00000269 A            DATA     0617              *** ERROR 0617 ***
     3423   03 005CC    6AF01F11              BAL,15   :HIO+3            GO REPORT STATUS ERROR
     3424   03 005CD    FFFFC000 A            DATA     X'FFFFC000'
     3425   03 005CE    18000000 A            DATA     X'18000000'
     3426   03 005CF    680005D0              B        %+1               GO TO EXIT
     3427   03 005D0    331004F6              MTW,1    T1ERFLAG          SET TST1 ERROR FLAG
     3428   03 005D1    330004F6     T1ST0618 MTW,0    T1ERFLAG          TEST FOR ERROR
     3429   03 005D2    683005D6              BEZ      T1ST0619          BRANCH TO NEXT TEST
     3430   03 005D3    EAF0021D A            BAL,15   *:SENSE
     3431   03 005D4    2E0005D4              WAIT     %
     3432   03 005D5    68000582              B        T1ST06            LOOP ON ERROR
     3433                            *
     3434                            *
     3435                            *                 *** 0 6 1 9 ***
     3436                            *
     3437                            *                 THIS TEST VERIFIES UE WAS RESET BY THE HIO
     3438                            *
     3439   03 005D6    6AF01F09     T1ST0619 BAL,15   :TIO              BRANCH TO TIO SUB.
     3440   03 005D7    18000001 A            DATA     X'18000001'
     3441   03 005D8    10000000 A            DATA     X'10000000'
     3442   03 005D9    680004B5              B        FUCTEXIT          EXIT
     3443   03 005DA    6AF01556              BAL,15   TST1ERMG          REPORT ERROR
     3444   03 005DB    0000026B A            DATA     0619              *** ERROR 0619 ***
     3445   03 005DC    6AF01F0C              BAL,15   :TIO+3            BRANCH TO TIO SUB-TEST
     3446   03 005DD    18000000 A            DATA     X'18000000'
     3447   03 005DE    10000000 A            DATA     X'10000000'
     3448   03 005DF    680005E0              B        %+1
     3449   03 005E0    EAF0021D A            BAL,15   *:SENSE           TEST SENSE SW
     3450   03 005E1    2E0005E1              WAIT     %
     3451   03 005E2    68000582              B        T1ST06            LOOP ON ERROR
     3452   03 005E3    680004B5              B        FUCTEXIT          EXIT
     3453                                     PAGE
     3454                            *
     3455                            *                 *** T S T 1 , 0 7 ***
     3456                            *
     3457                            *                 *** B A C K  T O  B A C K  S I O  T E S T  ***
     3458                            *
     3459                            *
     3460                            *                 THIS SUBTEST TESTS THE ABILITY OF A RAD TO ACCEPT
     3461                            *                 BACK TO BACK 'STOP' SIO'S, WITHOUT WATCHDOG
     3462                            *                 TIMER TRAPING OR RETURNING INCORRECT STATUS.
     3463                            *
     3464                            *
     3465   03 005E4    32601D37     T1ST07   LW,6     BYTCURR           LOAD, SAVE
     3466   03 005E5    55621249              STH,6    IOCD0610+1,1          AND
     3467   03 005E6    2560007E A            SLS,6    -2                    CONVERT
     3468   03 005E7    3560215B              STW,6    :PATWC                SAVE WORD COUNT OF PATTERN AREA
     3469   03 005E8    22602418              LI,6     BUF1LO            LOAD AND SAVE
     3470   03 005E9    35602158              STW,6    :PATBFR               STARTING ADDRESS OF PATTERN AREA
     3471   03 005EA    6AF0203B              BAL,15   :PATTERN          GO BUILD PATTERN
     3472                            *
     3473                            *                 THIS TEST VERIFIES THAT BACK TO BACK SIO'S
     3474                            *                 OF THE FOLLOWING FORMAT CAN BE ISSUED.
     3475                            *
     3476                            *                    ORDER:         STOP
     3477                            *                    BYTE ADDR:     BA(BUF1LO)
     3478                            *                    FLAGS:         SKIP
     3479                            *                    BYTE COUNT:    (BYTCURR)
     3480                            *
     3481   03 005EB    22000924              LI,0     DA(IOCD0610)      LOAD DOUBLE WORD ADDR OF IOCD
     3482   03 005EC    CC001D35              SIO,0    *:DEVADDR         DO BACK
     3483   03 005ED    225FFF9C A            LI,5     -100
     3484   03 005EE    655005EE              BIR,5    %
     3485   03 005EF    CCC01D35              SIO,12   *:DEVADDR             TO BACK SIO'S
     3486   03 005F0    6AF01F05              BAL,15   :SIO+1            SAVE STATUS
     3487   03 005F1    00000001 A            DATA     X'00000001'
     3488   03 005F2    10000000 A            DATA     X'10000000'
     3489   03 005F3    680005F4              B        %+1
     3490   03 005F4    CF001D35              HIO,0    *:DEVADDR         STOP DEVICE TO PREVENT RUN AWAY
     3491                            *
     3492                            *                 *** 0 7 1 0 ***
     3493                            *
     3494                            *                 THIS TEST VERIFIES THAT CC2 WAS RETURNED
     3495                            *                 AS A '0'.
     3496                            *
     3497   03 005F5    70342023     T1ST0710 LCF      :STATUSCC,2       RESTORE CONDITION CODES
     3498   03 005F6    684005FA              BCR,4    T1ST0711          IF CC2=0 NEXT TEST
     3499   03 005F7    6AF01556              BAL,15   TST1ERMG          GO REPORT ERROR
     3500   03 005F8    000002C6 A            DATA     0710              ** ERROR 0710 ***
     3501   03 005F9    331004F6              MTW,1    T1ERFLAG          SET TST1 ERROR FLAG
     3502                            *
     3503                            *                 *** 0 7 1 1 ***
     3504                            *
     3505                            *                 THIS TEST VERIFIES THAT THE BYTE COUNT WAS
     3506                            *                 NOT REDUCED BETWEEN SIO'S.
     3507                            *
     3508                            *
     3509   03 005FA    52A2000D A   T1ST0711 LH,10    13,1              FETCH BYTE COUNT
     3510   03 005FB    51A21249              CH,10    IOCD0610+1,1      COMPARE BYTE COUNT
     3511   03 005FC    68300600              BE       T1ST0712          IF EQUAL NEXT TEST
     3512   03 005FD    6AF01556              BAL,15   TST1ERMG          GO REPORT ERROR
     3513   03 005FE    000002C7 A            DATA     0711              *** ERROR 0711 ***
     3514   03 005FF    331004F6              MTW,1    T1ERFLAG          SET TST1 ERROR FLAG
     3515                            *
     3516                            *                 *** 0 7 1 2 ***
     3517                            *
     3518                            *                 THIS TEST VERIFIES THAT NO ERRORS, EXCEPT
     3519                            *                'UNUSUAL END' WAS REPORTED INCONJUNCTION WITH
     3520                            *                 STATUS RETURNED FROM A SIO.
     3521                            *
     3522   03 00600    6AF01F07     T1ST0712 BAL,15   :SIO+3            GO TEST STATUS
     3523   03 00601    FFFF0001 A            DATA     X'FFFF0001'
     3524   03 00602    18000000 A            DATA     X'18000000'
     3525   03 00603    6800060B              B        T1ST0713          GO TO EXIT
     3526   03 00604    6AF01556              BAL,15   TST1ERMG          GO REPORT ERROR
     3527   03 00605    000002C8 A            DATA     0712              *** ERROR 0712 ***
     3528   03 00606    6AF01F07              BAL,15   :SIO+3            GO REPORT STATUS ERROR
     3529   03 00607    FFFFC000 A            DATA     X'FFFFC000'                                       *A01
     3530   03 00608    18000000 A            DATA     X'18000000'
     3531   03 00609    6800060A              B        %+1
     3532   03 0060A    331004F6              MTW,1    T1ERFLAG          SET ERROR FLAG
     3533   03 0060B    330004F6     T1ST0713 MTW,0    T1ERFLAG          TEST FOR ERROR
     3534   03 0060C    683004B5              BEZ      FUCTEXIT          TAKE GOOD EXIT
     3535   03 0060D    680004B6              B        FUCTEXIT+1        GO TEST SENSE SWITCHES
     3536                                     PAGE
     3537                            *
     3538                            *                 *** T S T 1 , 0 8 ***
     3539                            *
     3540                            *                 *** I N T E R R U P T  G E N E R A T I O N  T E S T **
     3541                            *
     3542                            *                 THIS SUBTEST TESTS THE ABILITY O A RAD TO GENERATE
     3543                            *                 AN INTERRUPT AND RETURN THE ASSOCIATE STATUS AND
     3544                            *                 CONDITION CODE INFORMATION.
     3545                            *
     3546                            *                    ORDER:         STOP
     3547                            *                    BYTE ADDR:     BA(BUF1LO)
     3548                            *                    FLAGS:         UE, SKIP
     3549                            *                    BYTE COUNT:    (BYTCURR)
     3550                            *
     3551                            T1ST08 ;
     3552   03 0060E    32601D37              LW,6     BYTCURR
     3553   03 0060F    5562124B              STH,6    IOCD0810+1,1          COUNT
     3554   03 00610    22000925              LI,0     DA(IOCD0810)      LOAD DOUBLE WORD ADDR OF IOCD
     3555   03 00611    CC001D35              SIO,0    *:DEVADDR         DO ILLEGAL STOP ORDER
     3556   03 00612    225FFF9C A            LI,5     -100
     3557   03 00613    65500613              BIR,5    %
     3558   03 00614    CDC01D35              TIO,12   *:DEVADDR         SAVE STATUS OF TIO
     3559                            *
     3560                            *                 *** 0 8 1 0 ***
     3561                            *
     3562                            *                 THIS TEST VERIFIES THAT 'UNUSUAL END' WAS REPORT
     3563                            *                 BY THE RAD.
     3564                            *
     3565                            *
     3566   03 00615    6AF01F0A     T1ST0810 BAL,15   :TIO+1            GO TEST STATUS
     3567   03 00616    7F000001 A            DATA     X'7F000001'
     3568   03 00617    18000000 A            DATA     X'18000000'
     3569   03 00618    68000620              B        T1ST0811          GO TO NEXT TEST
     3570   03 00619    6AF01556              BAL,15   TST1ERMG          GO REPORT ERROR
     3571   03 0061A    0000032A A            DATA     0810              *** ERROR 0810 ***
     3572   03 0061B    6AF01F0C              BAL,15   :TIO+3            GO REPORT STATUS ERROR
     3573   03 0061C    7FFFC000 A            DATA     X'7FFFC000'
     3574   03 0061D    18004000 A            DATA     X'18004000'                                       *BOO
     3575   03 0061E    6800061F              B        %+1
     3576   03 0061F    331004F6              MTW,1    T1ERFLAG          SET ERROR FLAG
     3577                            *
     3578                            *                 *** 0 8 1 1 ***
     3579                            *
     3580                            *                 THIS TEST VERIFIES THAT 'INTERRUPT PENDING'
     3581                            *                 BIT WAS SET IN THE TIO STATUS.
     3582                            *
     3583                            *
     3584   03 00620    6AF01F0C     T1ST0811 BAL,15   :TIO+3            GO TEST STATUS
     3585   03 00621    80000001 A            DATA     X'80000001'
     3586   03 00622    80000000 A            DATA     X'80000000'
     3587   03 00623    68000627              B        T1ST0812
     3588   03 00624    6AF01556              BAL,15   TST1ERMG          GO REPORT ERROR
     3589   03 00625    0000032B A            DATA     0811              *** ERROR 0811 ***
     3590   03 00626    331004F6              MTW,1    T1ERFLAG          SET ERROR FLAG
     3591                            *
     3592                            *                 *** 0 8 1 2 ***
     3593                            *
     3594                            *                 THIS TEST VERIFIES THAT CC2 WAS RETURNED
     3595                            *                 AS A '1'.
     3596                            *
     3597   03 00627    70342023     T1ST0812 LCF      :STATUSCC,2       RESTORE CONDITION CODES
     3598   03 00628    6940062C              BCS,4    T1ST0813          IF CC2=1 NEXT TEST
     3599   03 00629    6AF01556              BAL,15   TST1ERMG          GO REPORT ERROR
     3600   03 0062A    0000032C A            DATA     0812              *** ERROR 0812 ***
     3601   03 0062B    331004F6              MTW,1    T1ERFLAG          SET TST1 ERROR FLAG
     3602                            *
     3603                            *                 *** 0 8 1 3 ***
     3604                            *
     3605                            *                 THIS TEST VERIFIES THAT NO FLAGS             '
     3606                            *                 WERE SET IN THE OPERATIONAL STATUS BYTE.
     3607                            *
     3608   03 0062C    6AF01F0C     T1ST0813 BAL,15   :TIO+3            GO TEST STATUS
     3609   03 0062D    00FF0001 A            DATA     X'00FF0001'
     3610   03 0062E    00000000 A            DATA     X'00000000'
     3611   03 0062F    68000637              B        T1ST0814          GO TO NEXT TEST
     3612   03 00630    6AF01556              BAL,15   TST1ERMG          GO REPORT ERROR
     3613   03 00631    0000032D A            DATA     0813              *** ERROR 0813 ***
     3614   03 00632    6AF01F0C              BAL,15   :TIO+3
     3615   03 00633    00FFC000 A            DATA     X'00FFC000'                                       *A01
     3616   03 00634    00000000 A            DATA     0
     3617   03 00635    68000636              B        %+1
     3618   03 00636    331004F6              MTW,1    T1ERFLAG          SET ERROR FLAG
     3619                            *
     3620                            *                 *** 0 8 1 4 ***
     3621                            *
     3622                            *                 THIS TEST VERIFIES THAT THERE IS AN ACTUAL
     3623                            *                 INTERRUPT PENDING
     3624                            *
     3625   03 00637    32600680     T1ST0814 LW,6     XPSDT108          SET UP
     3626   03 00638    3560005C A            STW,6    X'5C'                 INTERRUPT LOCATION
     3627   03 00639    22800000 A            LI,8     0                 ZERO
     3628   03 0063A    35800681              STW,8    INTRFLAG              INTERRUPT OCCURRED FLAG
     3629   03 0063B    22600032 A            LI,6     50                LOAD DELAY COUNT
     3630   03 0063C    6D000022 A            WD,0     X'22'
     3631   03 0063D    22400020 A            LI,4     X'20'             ARM AND ENABLE
     3632   03 0063E    6D401200 A            WD,4     X'1200'               INTERRUPTS
     3633   03 0063F    6460063F              BDR,6    %
     3634   03 00640    6D401100 A            WD,4     X'1100'           DISARM INTERRUPTS
     3635   03 00641    33000681              MTW,0    INTRFLAG          TEST INTERRUPT OCCURRED FLAG
     3636   03 00642    69300646              BNEZ     T1ST0815          IF OCCUR, BRANCH
     3637   03 00643    6AF01556              BAL,15   TST1ERMG          GO REPORT ERROR
     3638   03 00644    0000032E A            DATA     0814              *** ERROR 0814 ***
     3639   03 00645    331004F6              MTW,1    T1ERFLAG          SET TST1 ERROR FLAG
     3640                            *
     3641                            *                 *** 0 8 1 5 ***
     3642                            *
     3643                            *                 THIS TEST VERIFIES THAT PREVIOUS OPERATION
     3644                            *                 WAS NOT TERMINATED BECAUSE OF A FAULT CONDITION.
     3645                            *
     3646   03 00646    CEC01D35     T1ST0815 TDV,12   *:DEVADDR         TEST DEVICE
     3647   03 00647    6AF01F14              BAL,15   :TDV+1            SAVE STATUS
     3648   03 00648    00000001 A            DATA     1
     3649   03 00649    00000000 A            DATA     0
     3650   03 0064A    68000650              B        T1ST0816                                          *A01
     3651   03 0064B    70342023              LCF      :STATUSCC,2
     3652   03 0064C    68400650              BCR,4    T1ST0816          IF CC2=0 NEXT TEST
     3653   03 0064D    6AF01556              BAL,15   TST1ERMG          GO REPORT ERROR
     3654   03 0064E    0000032F A            DATA     0815              *** ERROR 0815 ***
     3655   03 0064F    331004F6              MTW,1    T1ERFLAG          SET TST1 ERROR FLAG
     3656                            *
     3657                            *                 *** 0 8 1 6 ***
     3658                            *
     3659                            *                 THIS TEST VERIFIES THAT NO ERRORS WERE REPORTED
     3660                            *                 INCONJUNCTION WITH THE STATUS RETURNED FROM THE TDV.
     3661                            *
     3662   03 00650    6AF01F16     T1ST0816 BAL,15   :TDV+3            GO TEST STATUS
     3663   03 00651    C0FF0001 A            DATA     X'C0FF0001'
     3664   03 00652    00000000 A            DATA     X'00000000'
     3665   03 00653    6800065B              B        T1ST0817          GO TO NEXT TEST
     3666   03 00654    6AF01556              BAL,15   TST1ERMG          GO REPORT ERROR
     3667   03 00655    00000330 A            DATA     0816              *** ERROR 0816 ***
     3668   03 00656    6AF01F16              BAL,15   :TDV+3            GO REPORT STATUS ERROR
     3669   03 00657    C0FFC000 A            DATA     X'C0FFC000'
     3670   03 00658    00000000 A            DATA     X'00000000'
     3671   03 00659    6800065A              B        %+1
     3672   03 0065A    331004F6              MTW,1    T1ERFLAG          SET TST1 ERROR FLAG
     3673                            *
     3674                            *                 *** 0 8 1 7 ***
     3675                            *
     3676                            *                 THIS TEST VERIFIES THAT THE 'INTERRUPT PENDING'
     3677                            *                 B 1T IN THE TIO STATUS WILL BE RESET BY A HIO,
     3678                            *
     3679   03 0065B    22000000 A   T1ST0817 LI,0     0
     3680   03 0065C    35000681              STW,0    INTRFLAG          RESET INTER. PENDING FLAG
     3681   03 0065D    CF001D35              HIO,0    *:DEVADDR
     3682   03 0065E    CDC01D35              TIO,12   *:DEVADDR         GO TEST STATUS
     3683   03 0065F    6AF01F0A              BAL,15   :TIO+1            SAVE STATUS
     3684   03 00660    80000001 A            DATA     X'80000001'
     3685   03 00661    00000000 A            DATA     X'0'
     3686   03 00662    68000666              B        T1ST0818          GO TO NEXT TEST
     3687   03 00663    6AF01556              BAL,15   TST1ERMG          GO REPORT ERROR
     3688   03 00664    00000331 A            DATA     0817              *** ERROR 0817 ***
     3689   03 00665    331004F6              MTW,1    T1ERFLAG          SET TST1 ERROR FLAG
     3690                            *
     3691                            *                 *** 0 8 1 8 ***
     3692                            *
     3693                            *                 THIS TEST VERIFIES THAT THE PENDING INTERRUPT
     3694                            *                 WAS RESET BY THE HIO.
     3695                            *
     3696   03 00666    22800000 A   T1ST0818 LI,8     0                 ZERO
     3697   03 00667    35800681              STW,8    INTRFLAG              INTERRUPT OCCURRED FLAG
     3698   03 00668    22600032 A            LI,6     50                LOAD DELAY COUNT
     3699   03 00669    6D000022 A            WD,0     X'22'
     3700   03 0066A    22400020 A            LI,4     X'20'             ARM AND ENABLE
     3701   03 0066B    6D401700 A            WD,4     X'1700'
     3702   03 0066C    6460066C              BDR,6    %
     3703   03 0066D    22600032 A            LI,6     50
     3704   03 0066E    6D401200 A            WD,4     X'1200'               INTERRUPTS
     3705   03 0066F    6460066F              BDR,6    %
     3706   03 00670    6D401100 A            WD,4     X'1100'           DISARM INTERRUPTS
     3707   03 00671    33000681              MTW,0    INTRFLAG          TEST INTERRUPT OCCURRED FLAG
     3708   03 00672    68300676              BEZ      T1ST0819          IF NOT SET BRANCH
     3709   03 00673    6AF01556              BAL,15   TST1ERMG          GO REPORT ERROR
     3710   03 00674    00000332 A            DATA     0818              *** ERROR 0818 ***
     3711   03 00675    331004F6              MTW,1    T1ERFLAG          SET TST1 ERROR FLAG
     3712   03 00676    330004F6     T1ST0819 MTW,0    T1ERFLAG          TEST FOR ERROR
     3713   03 00677    683004B5              BEZ      FUCTEXIT
     3714   03 00678    680004B6              B        FUCTEXIT+1
     3715                            *
     3716                            *                 THIS CODE HANDLES AN INTERRUPT IF IT
     3717                            *                 OCCURS.
     3718                            *
     3719                                     BOUND    8
     3720   03 0067A    00000000 A   T1INT08  DATA     0,0
            03 0067B    00000000 A
     3721   03 0067C    0000067E              DATA     %+2,7**24
            03 0067D    07000000 A
     3722   03 0067E    35100681              STW,1    INTRFLAG          SET INTERRUPT OCCURRED FLAG
     3723   03 0067F    0E20067A              LPSD,2   T1INT08
     3724                            *
     3725                            *
     3726   03 00680    0F00067A     XPSDT108 XPSD,0   T1INT08
     3727   03 00681    00000000 A   INTRFLAG DATA     0                 INTERRUPT OCCUR FLAG
     3728                                     PAGE
     3729                            *
     3730                            *                 *** T S T 1 , 0 9 ***
     3731                            *
     3732                            *                 *** A I O  I N S T R U C T I O N  T E S T ***
     3733                            *
     3734                            *                 THIS SUBTEST TESTS THE ABILITY OF A RAD TO
     3735                            *                 GENERATE AN INTERRUPT WITH A 'STOP' ORDER THEN
     3736                            *                 CLEAR IT WITH AN 'AIO'.
     3737                            *
     3738                            *                    ORDER:         STOP
     3739                            *                    BYTE ADDR:     BA(BUF1LO)
     3740                            *                    FLAGS:         UE,SKIP
     3741                            *                    BYTE COUNT     (BYTCURR)
     3742                            *
     3743                            *
     3744                            T1ST09 ;
     3745   03 00682    32601D37              LW,6     BYTCURR           SET UP BYTE
     3746   03 00683    5562124B              STH,6    IOCD0810+1,1          COUNT
     3747   03 00684    22000925              LI,0     DA(IOCD0810)      LOAD DOUBLE WORD ADDR OF IOCD
     3748   03 00685    CC001D35              SIO,0    *:DEVADDR         DO ILLEGAL STOP ORDER
     3749   03 00686    225FFF9C A            LI,5     -100
     3750   03 00687    65500687              BIR,5    %
     3751   03 00688    CDC01D35              TIO,12   *:DEVADDR         SAVE STATUS OF TIO
     3752                            *
     3753                            *                 *** 0 9 1 0 ***
     3754                            *
     3755                            *                 THIS TEST VERIFIES THAT 'UNUSUAL END' WAS REPORT
     3756                            *                 BY THE RAD.
     3757                            *
     3758                            *
     3759   03 00689    6AF01F0A     T1ST0910 BAL,15   :TIO+1            GO TEST STATUS
     3760   03 0068A    7F000001 A            DATA     X'7F000001'
     3761   03 0068B    18000000 A            DATA     X'18000000'
     3762   03 0068C    68000694              B        T1ST0911          GO TO NEXT TEST
     3763   03 0068D    6AF01556              BAL,15   TST1ERMG          GO REPORT ERROR
     3764   03 0068E    0000038E A            DATA     0910              *** ERROR 0910 ***
     3765   03 0068F    6AF01F0C              BAL,15   :TIO+3            GO REPORT STATUS ERROR
     3766   03 00690    7FFFC000 A            DATA     X'7FFFC000'
     3767   03 00691    18000000 A            DATA     X'18000000'
     3768   03 00692    68000693              B        %+1
     3769   03 00693    331004F6              MTW,1    T1ERFLAG          SET ERROR FLAG
     3770                            *
     3771                            *                 *** 0 9 1 1 ***
     3772                            *
     3773                            *                 THIS TEST VERIFIES THAT 'INTERRUPT PENDING'
     3774                            *                 BIT WAS SET IN THE TIO STATUS.
     3775                            *
     3776                            *
     3777   03 00694    6AF01F0C     T1ST0911 BAL,15   :TIO+3            GO TEST STATUS
     3778   03 00695    80000001 A            DATA     X'80000001'
     3779   03 00696    80000000 A            DATA     X'80000000'
     3780   03 00697    6800069B              B        T1ST0912
     3781   03 00698    6AF01556              BAL,15   TST1ERMG          GO REPORT ERROR
     3782   03 00699    0000038F A            DATA     0911              *** ERROR 0911 ***
     3783   03 0069A    331004F6              MTW,1    T1ERFLAG          SET ERROR FLAG
     3784                            *
     3785                            *                 *** 0 9 1 2 ***
     3786                            *
     3787                            *                 THIS TEST VERIFIES THAT CC2 WAS RETURNED
     3788                            *                 AS A '1'.
     3789                            *
     3790   03 0069B    70342023     T1ST0912 LCF      :STATUSCC,2       RESTORE CONDITION CODES
     3791   03 0069C    694006A0              BCS,4    T1ST0913          IF CC2=1 NEXT TEST
     3792   03 0069D    6AF01556              BAL,15   TST1ERMG          GO REPORT ERROR
     3793   03 0069E    00000390 A            DATA     0912              *** ERROR 0912 ***
     3794   03 0069F    331004F6              MTW,1    T1ERFLAG          SET TST1 ERROR FLAG
     3795                            *
     3796                            *                 *** 0 9 1 3 ***
     3797                            *
     3798                            *                 THIS TEST VERIFIES THAT THERE IS AN ACTUAL
     3799                            *                 INTERRUPT PENDING
     3800                            *
     3801   03 006A0    326006F2     T1ST0913 LW,6     XPSDT109          SET UP
     3802   03 006A1    3560005C A            STW,6    X'5C'                 INTERRUPT LOCATION
     3803   03 006A2    22800000 A            LI,8     0                 ZERO
     3804   03 006A3    35800681              STW,8    INTRFLAG              INTERRUPT OCCURRED FLAG
     3805   03 006A4    22600032 A            LI,6     50                LOAD DELAY COUNT
     3806   03 006A5    6D000022 A            WD,0     X'22'
     3807   03 006A6    22400020 A            LI,4     X'20'             ARM AND ENABLE
     3808   03 006A7    6D401200 A            WD,4     X'1200'               INTERRUPTS
     3809   03 006A8    646006A8              BDR,6    %
     3810   03 006A9    6D401100 A            WD,4     X'1100'           DISARM INTERRUPTS
     3811   03 006AA    6AF01556              BAL,15   TST1ERMG          GO REPORT ERROR
     3812   03 006AB    00000391 A            DATA     0913              *** ERROR 0913 ***
     3813   03 006AC    331004F6              MTW,1    T1ERFLAG          SET TST1 ERROR FLAG
     3814   03 006AD    680006EF              B        T1ST0920
     3815                            *
     3816                            *
     3817                            *           INTERRUPT SERVICE
     3818                            *
     3819                            *
     3820                                     BOUND    8
     3821   03 006AE    00000000 A   T1INT09  DATA     0,0
            03 006AF    00000000 A
     3822   03 006B0    000006B2              DATA     %+2,7**24
            03 006B1    07000000 A
     3823   03 006B2    33000681              MTW,0    INTRFLAG          SET INTERRUPT OCCURRED FLAG
     3824   03 006B3    693006BD              BNEZ     T1INT094          IF NOT ZERO BRANCH
     3825   03 006B4    33100681              MTW,1    INTRFLAG          SET INTERRUPT OCCURRED FLAG
     3826   03 006B5    6ED00000 A            AIO,13   0                 ACKNOWLEDGE INTERRUPT
     3827   03 006B6    6AF01F19              BAL,15   :AIO+1            SAVE AIO STATUS
     3828   03 006B7    00000001 A            DATA     1
     3829   03 006B8    00000000 A            DATA     0
     3830   03 006B9    680006BA              B        %+1
     3831   03 006BA    226006C3              LI,6     T1INT095          LOAD A RETURN
     3832   03 006BB    356006AE              STW,6    T1INT09           GO TRY THE RETURN
     3833   03 006BC    0E3006AE              LPSD,3   T1INT09           RESTORE MODIFY LPSD.
     3834                            *
     3835                            *                 *** 0 9 1 4 ***
     3836                            *
     3837                            *                 THIS TEST VERIFIES THAT THE PENDING INTERRUPT
     3838                            *                 CLEARED BY THE AIO.
     3839                            *
     3840                            T1INT094 ;
     3841   03 006BD    226006C0              LI,6     T1INTX            LOAD ANOTHER RETURN
     3842   03 006BE    356006AE              STW,6    T1INT09           AND SAVE IT
     3843   03 006BF    0E2006AE              LPSD,2   T1INT09           RESTORE LPSD, CLEAR & DISARM INTR
     3844   03 006C0    6AF01556     T1INTX   BAL,15   TST1ERMG          GO REPORT ERROR
     3845   03 006C1    00000392 A            DATA     0914              *** ERROR 0914 ***
     3846   03 006C2    331004F6              MTW,1    T1ERFLAG          SET TST1 ERROR FLAG
     3847                            *
     3848                            *                 *** 0 9 1 5  ***
     3849                            *
     3850                            *                 THIS TEST VERIFIES INTERRUPT RECOGNITION
     3851                            *                 OF THE PENDING INTERRUPT.
     3852                            *
     3853                            T1INT095 ;
     3854   03 006C3    22600064 A            LI,6     100
     3855   03 006C4    646006C4              BDR,6    %                 DELAY IN CASE INTERRUPT DIDN'T RESET
     3856   03 006C5    22400020 A            LI,4     X'20'             DISARM
     3857   03 006C6    6D401100 A            WD,4     X'1100'               THE INTERRUPT
     3858   03 006C7    70342023              LCF      :STATUSCC,2       RESTORE CONDITION CODES
     3859   03 006C8    688006CC              BCR,8    T1INT096          IF INTERRUPT RECOGNITIZED BRANCH
     3860   03 006C9    6AF01556              BAL,15   TST1ERMG          GO REPORT ERROR
     3861   03 006CA    00000393 A            DATA     0915              *** ERROR 0915 ***
     3862   03 006CB    331004F6              MTW,1    T1ERFLAG          SET TST1 ERROR FLAG
     3863                            *
     3864                            *                 *** 0 9 1 6 ***
     3865                            *
     3866                            *                 THIS TEST VERIFIES THE DEVICE ADDRESS RETURNED
     3867                            *                 BY THE AIO COMPARES WITH THE EXPECT  DEVICE
     3868                            *                 ADDRESS.
     3869                            *
     3870   03 006CC    6AF01F1B     T1INT096 BAL,15   :AIO+3            GO TEST DEVICE ADDRESS
     3871   03 006CD    00000003 A            DATA     3
     3872   03 006CE    00000000 A            DATA     0
     3873   03 006CF    680006D7              B        T1INT097          GOOD DEVICE ADDRESS
     3874   03 006D0    6AF01556              BAL,15   TST1ERMG          GO REPORT ERROR
     3875   03 006D1    00000394 A            DATA     0916              *** ERROR 0916 ***
     3876   03 006D2    6AF01F1B              BAL,15   :AIO+3            REPORT DEVICE ADDRESS ERROR
     3877   03 006D3    00000002 A            DATA     2
     3878   03 006D4    00000000 A            DATA     0
     3879   03 006D5    680006D6              B        %+1
     3880   03 006D6    331004F6              MTW,1    T1ERFLAG          SET TST1 ERROR FLAG
     3881                            *
     3882                            *                 *** 0 9 1 7 ***
     3883                            *
     3884                            *                 THIS TEST VERIFIES THAT AN ABNORMAL INTERRUPT
     3885                            *                 WAS RECOGNIZED.
     3886                            *
     3887   03 006D7    70342023     T1INT097 LCF      :STATUSCC,2       RESTORE CONDITION CODES
     3888   03 006D8    694006DC              BCS,4    T1INT098          IF ABNORMAL INTERRUPT BRANCH
     3889   03 006D9    6AF01556              BAL,15   TST1ERMG          GO REPORT ERROR
     3890   03 006DA    00000395 A            DATA     0917              *** ERROR 0 9 1 7 **
     3891   03 006DB    331004F6              MTW,1    T1ERFLAG          SET TST1 ERROR FLAG
     3892                            *
     3893                            *                 *** 0 9 1 8 ***
     3894                            *
     3895                            *                 THIS TEST VERIFIES THE RETURNED STATUS OF
     3896                            *                 THE 'AIO' FOR 'UNUSUAL END INTERRUPT'
     3897                            *
     3898   03 006DC    6AF01F1B     T1INT098 BAL,15   :AIO+3            GO TEST STATUS
     3899   03 006DD    CFFF0001 A            DATA     X'CFFF0001'
     3900   03 006DE    00080000 A            DATA     X'00080000'
     3901   03 006DF    680006E7              B        T1ST0919          GOOD STATUS NEXT TEST
     3902   03 006E0    6AF01556              BAL,15   TST1ERMG          GO REPORT ERROR
     3903   03 006E1    00000396 A            DATA     0918              *** ERROR 0918 ***
     3904   03 006E2    6AF01F1B              BAL,15   :AIO+3            GO REPORT STATUS ERROR
     3905   03 006E3    FFFFC000 A            DATA     X'FFFFC000'
     3906   03 006E4    00084000 A            DATA     X'00084000'
     3907   03 006E5    680006E6              B        %+1
     3908   03 006E6    331004F6              MTW,1    T1ERFLAG          SET TST1 ERROR FLAG
     3909                            *
     3910                            *                 *** 0 9 1 9 ***
     3911                            *
     3912                            *                 THIS TEST VERIFIES THAT THE 'INTERRUPT PENDING'
     3913                            *                 BIT IN THE TIO STATUS WAS RESET BY THE 'AIO'      *A01
     3914                            T1ST0919 ;
     3915   03 006E7    CDC01D35              TIO,12   *:DEVADDR         GO TEST STATUS
     3916   03 006E8    6AF01F0A              BAL,15   :TIO+1            SAVE STATUS
     3917   03 006E9    80000001 A            DATA     X'80000001'
     3918   03 006EA    00000000 A            DATA     X'0'
     3919   03 006EB    680006EF              B        T1ST0920          GO TO NEXT TEST
     3920   03 006EC    6AF01556              BAL,15   TST1ERMG          GO REPORT ERROR
     3921   03 006ED    00000397 A            DATA     0919              *** ERROR 0919 ***
     3922   03 006EE    331004F6              MTW,1    T1ERFLAG          SET TST1 ERROR FLAG
     3923                            T1ST0920 ;
     3924   03 006EF    330004F6              MTW,0    T1ERFLAG          TEST FOR ERROR
     3925   03 006F0    683004B5              BEZ      FUCTEXIT          TAKE TEST GOOD EXIT
     3926   03 006F1    680004B6              B        FUCTEXIT+1        GO TEST SENSE SWITCHES
     3927                            *
     3928                            *
     3929   03 006F2    0F0006AE     XPSDT109 XPSD,0   T1INT09
     3930                                     PAGE
     3931                            *
     3932                            *                 *** T S T 1 , 1 0  ***
     3933                            *
     3934                            *                 *** S E E K  T E S T  1 ***
     3935                            *
     3936                            *                 THIS TEST IS DESIGNED TO TEST SOME OF THE RESPONSES
     3937                            *                 OF A RAD, TO A SEEK OPERATION.  THIS TEST VERIFIES
     3938                            *                 ORDER RECOGNITION, COUNT DONE RECOGNITION, ORDER
     3939                            *                 IN GENERATION, TERMINAL ORDER GENERATION AND
     3940                            *                 LENGTH TESTING LOGIC.
     3941                            *
     3942                            T1ST10 ;
     3943   03 006F3    32601D37              LW,6     BYTCURR           LOAD NO. OF BYTES/SECTOR
     3944   03 006F4    2560007E A            SLS,6    -2                CONVERT TO A WORD COUNT
     3945   03 006F5    3560215B              STW,6    :PATWC            SAVE AS SIZE OF BUFFER TO BE USED
     3946   03 006F6    22602419              LI,6     BUF1LO+1          LOAD AND SAVE
     3947   03 006F7    35602158              STW,6    :PATBFR               STARTING ADDR OF BUFFER ADDR
     3948   03 006F8    6AF0203B              BAL,15   :PATTERN          GO SPREAD PATTERN
     3949                            *
     3950                            *                 *** 1 0 1 0  ***
     3951                            *
     3952                            *                 THIS TEST VERIFIES THAT AN ORDER WITH THE
     3953                            *                 FOLLOWING FORMAT CAN BE CORRECTLY EXECUTED:
     3954                            *
     3955                            *                     ORDER:        SEEK
     3956                            *                     BYTE ADDR:    BA(BUF1LO)+2
     3957                            *                     FLAGS:        HTE
     3958                            *                     BYTE COUNT:   2
     3959                            *
     3960   03 006F9    32601D3B     T1ST1010 LW,6     TSSTARTC          LOAD AND SAVE
     3961   03 006FA    35602418              STW,6    BUF1LO                SEEK ADDR
     3962   03 006FB    6AF0142D              BAL,15   :FUCTEST+1        GO TO FUNCTIONAL TEST
     3963   03 006FC    0000124C              DATA     IOCD1010
     3964   03 006FD    000003F2 A            DATA     1010              ** ERROR 1010 ***
     3965   03 006FE    000012EA              DATA     BSIP1010
     3966   03 006FF    000012F3              DATA     BSNP1010
     3967   03 00700    68000705              B        T1ST1015          GO TO NEXT TEST
     3968                            *
     3969   03 00701    CF001D35              HIO,0    *:DEVADDR         RESET DEV, WHERE ERROR WAS DETECTED
     3970   03 00702    EAF0021D A            BAL,15   *:SENSE           TEST SENSE SWITCHES
     3971   03 00703    2E000703              WAIT     %
     3972   03 00704    680006F3              B        T1ST10
     3973                            *
     3974                            *                 *** 1 0 1 5 ***
     3975                            *
     3976                            *                 THIS TEST VERIFIES THAT NO DATA WAS ALTERED
     3977                            *                 IN THE OUTPUT BUFFER BY THE SEEK OPERATION.
     3978                            *
     3979                            *
     3980   03 00705    6AF02036     T1ST1015 BAL,15   :COMPARE          TEST FOR CHANGES IN BUFFER AREA
     3981   03 00706    68000708              B        %+2               RETURN: IN NO CHANGES
     3982   03 00707    6800070B              B        %+4                 *     IF CHANGES OCCURRED
     3983   03 00708    32602418              LW,6     BUF1LO            LOAD SEEK ADDR FROM BUFFER AREA
     3984   03 00709    31601D3B              CW,6     TSSTARTC          COMPARE WITH EXPECTED PATTERN
     3985   03 0070A    68300710              BE       T1ST1020          IF EQUAL NEXT TEST
     3986   03 0070B    6AF01556              BAL,15   TST1ERMG          GO REPORT ERROR
     3987   03 0070C    000003F7 A            DATA     1015              *** ERROR 1015 ***
     3988   03 0070D    EAF0021D A            BAL,15   *:SENSE           TEST SENSE SWITCH
     3989   03 0070E    2E00070E              WAIT     %
     3990   03 0070F    680006F3              B        T1ST10            GO TRY AGAIN
     3991                            *
     3992                            *                 *** 1 0 2 0 ***
     3993                            *
     3994                            *                 THIS TEST VERIFIES THAT AN OPERATION WITH THE
     3995                            *                 FOLLOWING FORMAT CAN BE CORRECTLY EXECUTED.
     3996                            *
     3997                            *                     ORDER:        SEEK
     3998                            *                     BYTE ADDR:    BA(BUF1LO)+2
     3999                            *                     FLAGS:        UE
     4000                            *                     BYTE COUNT:   2
     4001                            *
     4002   03 00710    32601D3B     T1ST1020 LW,6     TSSTARTC          LOAD AND SAVE
     4003   03 00711    35602418              STW,6    BUF1LO                SEEK ADDR
     4004                            *
     4005                            *
     4006   03 00712    6AF0142D              BAL,15   :FUCTEST+1        GO TO FUNCTIONAL TEST
     4007   03 00713    0000124E              DATA     IOCD1020
     4008   03 00714    000003FC A            DATA     1020              *** ERROR 1020 ***
     4009   03 00715    000012EA              DATA     BSIP1010
     4010   03 00716    000012F3              DATA     BSNP1010
     4011   03 00717    6800071C              B        T1ST1030          GO TO NEXT TEST
     4012                            *
     4013   03 00718    CF001D35              HIO,0    *:DEVADDR         RESET DEV, WHERE ERROR WAS DETECTED
     4014   03 00719    EAF0021D A            BAL,15   *:SENSE           TEST SENSE SWITCHES
     4015   03 0071A    2E00071A              WAIT     %
     4016   03 0071B    68000710              B        T1ST1020          GO LOOP ON ERROR
     4017                            *
     4018                            *                 *** 1 0 3 0 ***
     4019                            *
     4020                            *                 THIS TEST VERIFIES THAT AN OPERATION WITH THE
     4021                            *                 FOLLOWING FORMAT CAN CAUSE AN INTERRUPT TO
     4022                            *                 BE GENERATED ON ZERO BYTE COUNT.
     4023                            *
     4024                            *                    ORDER:         SEEK
     4025                            *                    BYTE ADDR:     BA(BUF1LO)+2
     4026                            *                    FLAGS:         IZC
     4027                            *                    BYTE COUNT:    2
     4028                            *
     4029   03 0071C    32601D3B     T1ST1030 LW,6     TSSTARTC          LOAD AND SAVE
     4030   03 0071D    35602418              STW,6    BUF1LO                SEEK ADDR
     4031                            *
     4032                            *
     4033   03 0071E    6AF0142C              BAL,15   :FUCTEST          GO TO FUNCTIONAL TEST
     4034   03 0071F    00001250              DATA     IOCD1030
     4035   03 00720    00000406 A            DATA     1030              *** ERROR 1030 ***
     4036   03 00721    000012ED              DATA     BSIP1030
     4037   03 00722    000012F3              DATA     BSNP1010
     4038   03 00723    68000728              B        T1ST1040          GO TO NEXT TEST
     4039   03 00724    CF001D35              HIO,0    *:DEVADDR         RESET DEV, WHERE ERROR WAS DETECTED
     4040   03 00725    EAF0021D A            BAL,15   *:SENSE           TEST SENSE SWITCHES
     4041   03 00726    2E000726              WAIT     %
     4042   03 00727    6800071C              B        T1ST1030          GO LOOP ON ERROR
     4043                            *
     4044                            *                 *** 1 0 4 0 ***
     4045                            *
     4046                            *                 THE TEST VERIFIES THAT AN OPERATION WITH THE
     4047                            *                 FOLLOWING FORMAT CAN CAUSE AN INTERRUPT TO
     4048                            *                 BE GENERATED ON CHANNEL END.
     4049                            *
     4050                            *                     ORDER:        SEEK
     4051                            *                     BYTE ADDR:    BA(BUF1LO)+2
     4052                            *                     FLAGS:        ICE
     4053                            *                     BYTE COUNT:   2
     4054                            *
     4055                            *
     4056   03 00728    32601D3B     T1ST1040 LW,6     TSSTARTC          LOAD AND SAVE
     4057   03 00729    35602418              STW,6    BUF1LO                SEEK ADDR
     4058                            *
     4059                            *
     4060   03 0072A    6AF0142C              BAL,15   :FUCTEST          GO TO FUNCTIONAL TEST
     4061   03 0072B    00001252              DATA     IOCD1040
     4062   03 0072C    00000410 A            DATA     1040              *** ERROR 1040 ***
     4063   03 0072D    000012F0              DATA     BSIP1040
     4064   03 0072E    000012F3              DATA     BSNP1010
     4065   03 0072F    680004B5              B        FUCTEXIT
     4066   03 00730    CF001D35              HIO,0    *:DEVADDR         RESET DEV, WHERE ERROR WAS DETECTED
     4067   03 00731    EAF0021D A            BAL,15   *:SENSE           TEST SENSE SWITCH
     4068   03 00732    2E000732              WAIT     %
     4069   03 00733    68000728              B        T1ST1040          GO LOOP ON ERROR
     4070   03 00734    680004B5              B        FUCTEXIT
     4071                                     PAGE
     4072                            *
     4073                            *                 *** T S T 1, 1 1 ***
     4074                            *
     4075                            *                 *** S E E K  T E S T  2 ***
     4076                            *
     4077                            *
     4078                            *                 *** (TEST NOT RUN FOR HIGH SPEED RAD) ***
     4079                            *
     4080                            *                 THIS TEST IS DESIGNED TO TEST SOME OF THE
     4081                            *                 RESPONSES OF A RAD, TO A SEEK OPERATION WITH A
     4082                            *                 BYTE COUNT OF LESS THAN 2.  THIS TEST VERIFIES
     4083                            *                 ORDER RECOGNITION, COUNT DONE RECOGNITION, ORDER
     4084                            *                 IN GENERATION AND LENGTH TESTING LOGIC.
     4085                            *
     4086                            *
     4087                            T1ST11 ;
     4088   03 00735    32601D34              LW,6     MODELC
     4089   03 00736    21607212 A            CI,6     X'7212'           IS IT HIGH SPEED?
     4090   03 00737    683004B5              BE       FUCTEXIT          IF EQUAL BR. TO EXIT
     4091   03 00738    32601D37              LW,6     BYTCURR           LOAD NO. OF BYTES/SECTOR
     4092   03 00739    2560007E A            SLS,6    -2                CONVERT TO A WORD COUNT
     4093   03 0073A    3560215B              STW,6    :PATWC            SAVE AS SIZE OF BUFFER TO BE USED
     4094   03 0073B    22602419              LI,6     BUF1LO+1          LOAD AND SAVE
     4095   03 0073C    35602158              STW,6    :PATBFR               STARTING ADDR OF BUFFER ADDR
     4096   03 0073D    6AF0203B              BAL,15   :PATTERN          GO SPREAD PATTERN
     4097                            *                 *** 1 1 1 0  ***
     4098                            *
     4099                            *                 THIS TEST VERIFIES THAT THE RAD WILL REPORT
     4100                            *                 'INCORRECT LENGTH' FOR A SEEK ORDER WITH A
     4101                            *                 BYTE COUNT OF LESS THAN 2
     4102                            *                     ORDER:        SEEK
     4103                            *                     BYTE ADDR:    BA(BUF1LO)+2
     4104                            *                     BYTE COUNT:   1
     4105                            *
     4106                            *
     4107   03 0073E    32601D3B     T1ST1110 LW,6     TSSTARTC          LOAD AND SAVE
     4108   03 0073F    35602418              STW,6    BUF1LO            SEEK ADDR
     4109   03 00740    6AF0142D              BAL,15   :FUCTEST+1        GO TO FUNCTIONAL TEST
     4110   03 00741    00001254              DATA     IOCD1110
     4111   03 00742    00000456 A            DATA     1110              **ERROR 1110**
     4112   03 00743    000012F5              DATA     BSIP1110
     4113   03 00744    000012FE              DATA     BSNP1110
     4114   03 00745    6800074A              B        T1ST1115          GO TO NEXT TEST
     4115   03 00746    CF001D35              HIO,0    *:DEVADDR         RESET DEV, WHERE ERROR WAS DETECTED
     4116   03 00747    EAF0021D A            BAL,15   *:SENSE           CHECK SENSE SW SETTING
     4117   03 00748    2E000748              WAIT     %                 HALT ON ERROR IF SS3 RESET
     4118   03 00749    68000735              B        T1ST11            LOOP ON ERROR
     4119                            *
     4120                            *                 *** 1 1 1 5 ***
     4121                            *
     4122                            *                 THIS TEST VERIFIES THAT AN ORDER WITH THE FOLLOWING
     4123                            *                 FORMAT CAN BE CORRECTLY EXECUTED:
     4124                            *
     4125                            *
     4126   03 0074A    6AF02036     T1ST1115 BAL,15   :COMPARE          TEST FOR CHANGES IN BUFFER AREA
     4127   03 0074B    68000752              B        TST1115           BRANCH TO NEXT TEST
     4128   03 0074C    6AF01556     TST1115A BAL,15   TST1ERMG          REPORT ERROR
     4129   03 0074D    0000045B A            DATA     1115              *** ERROR 1115 ***
     4130   03 0074E    EAF0021D A            BAL,15   *:SENSE           TEST SENSE SW
     4131   03 0074F    2E00074F              WAIT     %                 HALT ON ERROR IF SS3 RESET
     4132   03 00750    68000735              B        T1ST11            LOOP ON ERROR
     4133   03 00751    68000756              B        T1ST1120          CONTINUE                        *A01
     4134   03 00752    32602418     TST1115  LW,6     BUF1LO            LOAD SEEK ADDR FROM BUFFER AREA
     4135   03 00753    31601D3B              CW,6     TSSTARTC          COMPARE WITH EXPECTED PATTERN
     4136   03 00754    6930074C              BNE      TST1115A          IF NOT EQUAL BRANCH TO ERROR
     4137   03 00755    68000756              B        T1ST1120
     4138                            *
     4139                            *                 *** 1 1 2 0 ***
     4140                            *
     4141                            *                 THIS TEST VERIFIES THAT THE RAD WILL REPORT
     4142                            *                 'INCORRECT LENGTH' AND 'UNUSUAL END' FOR A
     4143                            *                 SEEK ORDER WITH A BYTE COUNT LESS THAN 2
     4144                            *                     ORDER:        SEEK
     4145                            *                     BYTE ADDR     BA(BUF1LO)+2
     4146                            *                     FLAGS:        HTE
     4147                            *                     BYTE COUNT    1
     4148                            *
     4149                            *
     4150                            *
     4151   03 00756    32601D3B     T1ST1120 LW,6     TSSTARTC          LOAD AND SAVE
     4152   03 00757    35602418              STW,6    BUF1LO                 SEEK ADDR
     4153                            *
     4154   03 00758    6AF0142D              BAL,15   :FUCTEST+1
     4155   03 00759    00001256              DATA     IOCD1120
     4156   03 0075A    00000460 A            DATA     1120              *** ERROR 1120 ***
     4157   03 0075B    000012F8              DATA     BSIP1120
     4158   03 0075C    00001300              DATA     BSNP1120
     4159   03 0075D    68000762              B        T1ST1130          GO TO NEXT TEST
     4160                            *
     4161   03 0075E    CF001D35              HIO,0    *:DEVADDR         RESET DEV, WHERE ERROR WAS DETECTED
     4162   03 0075F    EAF0021D A            BAL,15   *:SENSE           TEST SENSE SWITCHES
     4163   03 00760    2E000760              WAIT     %                 HALT ON ERROR IF SS3 RESET
     4164   03 00761    68000756              B        T1ST1120          LOOP ON ERROR
     4165                            *
     4166                            *                 *** 1 1 3 0 ***
     4167                            *                 THIS TEST VERIFIES THAT THE RAD WILL REPORT
     4168                            *                 'CHANNEL END', TO A SEEK ORDER WITH A BYTE
     4169                            *                 COUNT OF LESS THAN 2
     4170                            *
     4171                            *
     4172                            *
     4173                            *                     ORDER:        SEEK
     4174                            *                     BYTE ADDR:    BA(BUF1LO)+2
     4175                            *                     FLAGS:        ICE
     4176                            *                     BYTE COUNT:   1
     4177                            *
     4178                            *
     4179   03 00762    32601D3B     T1ST1130 LW,6     TSSTARTC          LOAD AND SAVE
     4180   03 00763    35602418              STW,6    BUF1LO                 SEEK ADDR
     4181                            *
     4182                            *
     4183   03 00764    6AF0142C              BAL,15   :FUCTEST          GO TO FUNCTIONAL TEST
     4184   03 00765    00001258              DATA     IOCD1130
     4185   03 00766    0000046A A            DATA     1130              *** ERROR 1130 ***
     4186   03 00767    000012FB              DATA     BSIP1130
     4187   03 00768    00001302              DATA     BSNP1130
     4188   03 00769    680004B5              B        FUCTEXIT
     4189   03 0076A    CF001D35              HIO,0    *:DEVADDR         RESET DEV, WHERE ERROR WAS DETECTED
     4190   03 0076B    EAF0021D A            BAL,15   *:SENSE           TEST SENSE SWITCHES
     4191   03 0076C    2E00076C              WAIT     %
     4192   03 0076D    68000762              B        T1ST1130
     4193   03 0076E    680004B5              B        FUCTEXIT
     4194                            *
     4195                                     PAGE
     4196                            *
     4197                            *                 *** T S T 1 , 1 2  ***
     4198                            *
     4199                            *                 *** S E E K  T E S T 3 ***
     4200                            *
     4201                            *                 *** (TEST NOT RUN FOR HIGH SPEED RAD) ***
     4202                            *                                   ***(TEST SHOULD NOT BE RUN FOR  *C01
     4203                            *                                   MED OR EP RAD ON SIOP)***       *C01
     4204                            *
     4205                            *                 THIS TEST IS DESIGNED TO TEST SOME OF THE RESPONSES
     4206                            *                 OF A RAD,  TO A SEEK OPERATION THAT HAS A BYTE
     4207                            *                 COUNT GREATER THAN 2.  THIS TEST VERIFIES ORDER
     4208                            *                 RECOGNITION, COUNT DONE RECOGNITION, ORDER IN
     4209                            *                 GENERATION, TERMINAL ORDER GENERATION, AND LENGTH
     4210                            *                 TESTING LOGIC.
     4211                            *
     4212                            *
     4213                            *
     4214                            *
     4215                            T1ST12 ;
     4216   03 0076F    33000438              MTW,0    SIOP              IF SIOP                         *C01
     4217   03 00770    693004B5              BNEZ     FUCTEXIT              DO NOT DO TEST              *C01
     4218   03 00771    22400005 A            LI,4     5                 LOAD BYTE COUNT FOR HIGH SPEED RAD
     4219   03 00772    32601D34              LW,6     MODELC            FETCH MODEL NO.
     4220   03 00773    21607212 A            CI,6     X'7212'           IS IT HIGH SPEED?
     4221   03 00774    683004B5              BE       FUCTEXIT          HIGH SPEED
     4222   03 00775    32601D37              LW,6     BYTCURR           LOAD NO. OF BYTES/SECTOR
     4223   03 00776    2560007E A            SLS,6    -2                CONVERT TO A WORD COUNT
     4224   03 00777    3560215B              STW,6    :PATWC            SAVE AS SIZE OF BUFFER TO BE USED
     4225   03 00778    22602419              LI,6     BUF1LO+1          LOAD AND SAVE
     4226   03 00779    35602158              STW,6    :PATBFR               STARTING ADDR OF BUFFER ADDR
     4227   03 0077A    6AF0203B              BAL,15   :PATTERN
     4228                            *
     4229                            *                 *** 1 2 1 0 ***
     4230                            *                 THIS TEST VERIFIES THAT THE RAD CAN REPORT
     4231                            *                 'INCORRECT LENGTH','CHANNEL END', AND HAVE BYTES
     4232                            *                 REMAINING IF THE BYTE COUNT IS GREATER THAN 2
     4233                            *                 FOR A SEEK ORDER.
     4234                            *
     4235                            *                    ORDER:         SEEK
     4236                            *                    BYTE ADDR:     BA(BUF1LO)+2
     4237                            *                    FLAGS:         ICE
     4238                            *                    BYTE COUNT:    3
     4239                            *
     4240                            *
     4241   03 0077B    32601D3B     T1ST1210 LW,6     TSSTARTC          LOAD AND SAVE
     4242   03 0077C    35602418              STW,6    BUF1LO            SEEK ADDRESS
     4243   03 0077D    6AF0142C              BAL,15   :FUCTEST          GO TO FUNCTIONAL TEST
     4244   03 0077E    0000125A              DATA     IOCD1210
     4245   03 0077F    000004BA A            DATA     1210              ** ERROR 1210 **
     4246   03 00780    00001304              DATA     BSIP1210
     4247   03 00781    0000130D              DATA     BSNP1210
     4248   03 00782    68000787              B        T1ST1215          GO TO NEXT TEST
     4249                            *
     4250                            *
     4251   03 00783    CF001D35              HIO,0    *:DEVADDR         RESET DEV, WHERE ERROR WAS DETECTED
     4252   03 00784    EAF0021D A            BAL,15   *:SENSE           TEST SENSE SW
     4253   03 00785    2E000785              WAIT     %                 HALT ON ERROR IF SS3 RESET
     4254   03 00786    6800076F              B        T1ST12            LOOP ON ERROR
     4255                            *
     4256                            *                 *** 1 2 1 5 ***
     4257                            *
     4258                            *                 THIS TEST VERIFIES THAT NO DATA WAS ALTERED
     4259                            *                 IN THE OUTPUT BUFFER BY THE SEEK OPERATION.
     4260                            *
     4261                            *
     4262                            *
     4263   03 00787    6AF02036     T1ST1215 BAL,15   :COMPARE          TEST FOR CHANGES IN BUFFER AREA
     4264   03 00788    6800078A              B        %+2               RETURN: IF NO CHANGE
     4265   03 00789    6800078D              B        %+4               RETURN: IF CHANGES OCCURED
     4266   03 0078A    32602418              LW,6     BUF1LO            LOAD SEEK ADDR FROM BUFFER AREA
     4267   03 0078B    31601D3B              CW,6     TSSTARTC          COMPARE WITH EXPECTED PATTERN
     4268   03 0078C    68300792              BE       T1ST1220          IF EQUAL NEXT TEST
     4269   03 0078D    6AF01556              BAL,15   TST1ERMG          REPORT ERROR
     4270   03 0078E    000004BF A            DATA     1215              *** ERROR 1215 ***
     4271   03 0078F    EAF0021D A            BAL,15   *:SENSE           TEST SENSE SWITCH
     4272   03 00790    2E000790              WAIT     %
     4273   03 00791    6800076F              B        T1ST12            RETRY
     4274                            *
     4275                            *                 *** 1 2 2 0 ***
     4276                            *
     4277                            *                 THIS TEST VERIFIES THAT THE RAD CAN REPORT
     4278                            *                 'INCORRECT LENGTH','UNUSUAL END',AND HAVE
     4279                            *                 BYTES REMAINING IF THE BYTE COUNT IS GREATER
     4280                            *                 THAN 2 FOR A SEEK ORDER.
     4281                            *                    ORDER:         SEEK
     4282                            *                    BYTE ADDR:     BA(BUF1LO)+2
     4283                            *                    FLAGS:         HTE
     4284                            *                     BYTE COUNT:   3
     4285                            *
     4286                            *
     4287                            *
     4288   03 00792    32601D3B     T1ST1220 LW,6     TSSTARTC          LOAD AND SAVE
     4289   03 00793    35602418              STW,6    BUF1LO                SEEK ADDR
     4290   03 00794    6AF0142D              BAL,15   :FUCTEST+1        GO TO FUNCTIONAL TEST
     4291   03 00795    0000125C              DATA     IOCD1220
     4292   03 00796    000004C4 A            DATA     1220              *** ERROR 1220 ***
     4293   03 00797    00001307              DATA     BSIP1220
     4294   03 00798    0000130F              DATA     BSNP1220
     4295   03 00799    6800079E              B        T1ST1230          TO NEXT TEST
     4296                            *
     4297   03 0079A    CF001D35              HIO,0    *:DEVADDR         RESET DEV. WHERE ERROR WAS DETECTED
     4298   03 0079B    EAF0021D A            BAL,15   *:SENSE           TEST SENSE SW
     4299   03 0079C    2E00079C              WAIT     %                 HALT ON ERROR IF SS3 RESET
     4300   03 0079D    68000792              B        T1ST1220          LOOP ON ERROR
     4301                            *
     4302                            *                 *** 1 2 3 0 ***
     4303                            *
     4304                            *                 THIS TEST VERIFIES THAT THE RAD WILL NOT SET
     4305                            *                 'UNUSUAL END' IF THE BYTE COUNT IS GREATER
     4306                            *                 THAN FOR A SEEK ORDER
     4307                            *
     4308                            *                    ORDER:         SEEK
     4309                            *                    BYTE ADDR:     BA(BUF1LO)+2
     4310                            *                    FLAGS:         UE
     4311                            *                    BYTE COUNT:    3
     4312                            *
     4313                            *
     4314                            *
     4315   03 0079E    32601D3B     T1ST1230 LW,6     TSSTARTC          LOAD AND SAVE
     4316   03 0079F    35602418              STW,6    BUF1LO                SEEK ADDR
     4317                            *
     4318                            *
     4319   03 007A0    6AF0142D              BAL,15   :FUCTEST+1        GO TO FUNCTIONAL TEST
     4320   03 007A1    0000125E              DATA     IOCD1230
     4321   03 007A2    000004CE A            DATA     1230              *** ERROR 1230 ***
     4322   03 007A3    00001304              DATA     BSIP1210
     4323   03 007A4    0000130D              DATA     BSNP1210
     4324   03 007A5    680007AA              B        T1ST1240          GO TO NEXT TEST
     4325   03 007A6    CF001D35              HIO,0    *:DEVADDR         RESET DEV, WHERE ERROR WAS DETECTED
     4326   03 007A7    EAF0021D A            BAL,15   *:SENSE           TEST SENSE SW
     4327   03 007A8    2E0007A8              WAIT     %                 HALT ON ERROR IF SS3 RESET
     4328   03 007A9    6800079E              B        T1ST1230          LOOP ON ERROR
     4329                            *
     4330                            *                 *** 1 2 4 0 ***
     4331                            *
     4332                            *                 THIS TEST VERIFIES THAT THE RAD WILL NOT REPORT
     4333                            *                 A 'ZERO BYTE COUNT', IF THE BYTE COUNT IN THE IOP
     4334                            *                 DOESN'T GO TO ZERO FOR A SEEK ORDER
     4335                            *
     4336                            *                    ORDER:         SEEK
     4337                            *                    BYTE ADDR:     BA(BUF1LO)+2
     4338                            *                    FLAGS:         IZC
     4339                            *                    BYTE COUNT     3
     4340                            *
     4341   03 007AA    32601D3B     T1ST1240 LW,6     TSSTARTC          LOAD AND SAVE
     4342   03 007AB    35602418              STW,6    BUF1LO                SEEK ADDR
     4343                            *
     4344                            *
     4345   03 007AC    6AF0142D              BAL,15   :FUCTEST+1        GO TO FUNCTIONAL TEST
     4346   03 007AD    00001260              DATA     IOCD1240
     4347   03 007AE    000004D8 A            DATA     1240              *** ERROR 1240 ***
     4348   03 007AF    00001304              DATA     BSIP1210
     4349   03 007B0    0000130D              DATA     BSNP1210
     4350   03 007B1    680004B5              B        FUCTEXIT
     4351   03 007B2    CF001D35              HIO,0    *:DEVADDR         RESET DEV, WHERE ERROR WAS DETECTED
     4352   03 007B3    EAF0021D A            BAL,15   *:SENSE           TEST SENSE SW
     4353   03 007B4    2E0007B4              WAIT     %                 HALT ON ERROR IF SS3 RESET
     4354   03 007B5    680007AA              B        T1ST1240          LOOP ON ERROR
     4355   03 007B6    680004B5              B        FUCTEXIT
     4356                                     PAGE
     4357                            *
     4358                            *                 *** T S T 1, 1 3 ***
     4359                            *
     4360                            *                 *** S E N S E  T ES T 1 ***
     4361                            *
     4362                            *                 THIS TEST IS DESIGNED TO TEST SOME OF THE RESPONSES
     4363                            *                 OF A RAD, TO A SENSE OPERATION WITH A BYTE COUNT
     4364                            *                 OF 4 (FOR MODEL 7212) OR 3 (FOR MODELS OTHER THAN
     4365                            *                 MODEL 7212).  THIS TEST VERIFIES ORDER RECOGNITION,
     4366                            *                 COUNT DONE RECOGNITION, ORDER IN GENERATION AND
     4367                            *                 LENGTH TESTING LOGIC.
     4368                            *
     4369                            *
     4370                            *
     4371                            T1ST13 ;
     4372   03 007B7    22400004 A            LI,4     4                 FETCH BYTE NO.
     4373   03 007B8    32601D34              LW,6     MODELC            FETCH MODEL NO
     4374   03 007B9    21607212 A            CI,6     X'7212'
     4375   03 007BA    683007BC              BE       %+2               BRANCH  IF MODEL NO. IS 7212
     4376   03 007BB    22400003 A            LI,4     3
     4377   03 007BC    55421263              STH,4    IOCD1310+1,1
     4378   03 007BD    55421265              STH,4    IOCD1320+1,1
     4379   03 007BE    55421267              STH,4    IOCD1330+1,1
     4380   03 007BF    55421269              STH,4    IOCD1340+1,1
     4381   03 007C0    32601D37              LW,6     BYTCURR           LOAD NO. OF BYTES/SECTOR
     4382   03 007C1    2560007E A            SLS,6    -2                CONVERT TO A WORD COUNT
     4383   03 007C2    3560215B              STW,6    :PATWC            SAVE AS SIZE OF BUFFER TO BE USED
     4384   03 007C3    22602418              LI,6     BUF1LO
     4385   03 007C4    35602158              STW,6    :PATBFR              STARTING ADDR OF BUFFER ADDR
     4386   03 007C5    6AF013D3              BAL,15   :SEEKMOD          BRANCH TO SEEK OPERATION
     4387   03 007C6    6AF0203B              BAL,15   :PATTERN          SPREAD PATTERN
     4388                            *                 *** 1 3 1 0 ***
     4389                            *
     4390                            *        THIS TEST VERIFIES THAT THE RAD WILL ACCEPT A SENSE ORDER
     4391                            *        WITHOUT REPORT AN ERROR
     4392                            *
     4393                            *                    ORDER:         SENSE
     4394                            *                    BYTE ADDR      BA(BUF1LO)
     4395                            *                    FLAGS:         UE
     4396                            *                    BYTE COUNT:    4 OR 3 DEPENDS ON THE MODEL
     4397                            *
     4398   03 007C7    6AF0142D     T1ST1310 BAL,15   :FUCTEST+1        GO TO FUNCTIONAL TEST
     4399   03 007C8    00001262              DATA     IOCD1310
     4400   03 007C9    0000051E A            DATA     1310              *** ERROR 1310 ***
     4401   03 007CA    00001311              DATA     BSIP1310
     4402   03 007CB    0000131A              DATA     BSNP1310
     4403   03 007CC    680007D1              B        T1ST1315          GO TO NEXT TEST
     4404                            *
     4405   03 007CD    CF001D35              HIO,0    *:DEVADDR         RESET DEV, WHERE ERROR WAS DETECTED
     4406   03 007CE    EAF0021D A            BAL,15   *:SENSE           TEST SENSE SWITCHES
     4407   03 007CF    2E0007CF              WAIT     %                 HALT ON ERROR IF SS3 RESET
     4408   03 007D0    680007B7              B        T1ST13            LOOP ON ERROR
     4409                            *
     4410                            *                 *** 1 3 1 5 ***
     4411                            *
     4412                            *                 THIS TEST VERIFIES THAT DATA WAS ALTERED IN       *BOO
     4413                            *                 THE INPUT BUFFER BY THE SENSE OPERATION.          *BOO
     4414                            *
     4415                            *
     4416                            *
     4417                            *
     4418                            *
     4419                            *
     4420                            *
     4421   03 007D1    32602418     T1ST1315 LW,6     BUF1LO            FETCH BUF1LO
     4422   03 007D2    31602163              CW,6     :PATID+1          COMPARE
     4423   03 007D3    693007D7              BNE      T1ST1316          BRANCH IF NOT EQUAL
     4424   03 007D4    6AF01556              BAL,15   TST1ERMG          REPORT ERROR
     4425   03 007D5    00000523 A            DATA     1315              ** ERROR 1315 **
     4426   03 007D6    680007DD              B        T1ST1317          BRANCH TO SENSE TEST
     4427   03 007D7    32602163     T1ST1316 LW,6     :PATID+1          LOAD :PATID+1 INTO
     4428   03 007D8    35602418              STW,6    BUF1LO            BUF1LO
     4429   03 007D9    6AF02036              BAL,15   :COMPARE          BRANCH TO COMPARE SUBROUTINE
     4430   03 007DA    680007E0              B        T1ST1320          BRANCH IF NO CHANGE OCCURRED
     4431   03 007DB    6AF01556              BAL,15   TST1ERMG          REPORT ERROR
     4432   03 007DC    00000524 A            DATA     1316              ** ERROR 1316  **
     4433   03 007DD    EAF0021D A   T1ST1317 BAL,15   *:SENSE           TEST SENSE SW
     4434   03 007DE    2E0007DE              WAIT     %                 HALT IF SS3 RESET
     4435   03 007DF    680007B7              B        T1ST13            LOOP ON ERROR
     4436                            *
     4437                            *
     4438                            *                 *** 1 3 2 0 ***
     4439                            *
     4440                            *                 THIS TEST VERIFIES THAT THE RAD WILL ACCEPT A
     4441                            *                 SENSE ORDER WITHOUT REPORTING AN ERROR
     4442                            *
     4443                            *                    ORDER:         SENSE
     4444                            *                    BYTE ADDR:     BA(BUF1LO)
     4445                            *                     FLAGS:        HTE
     4446                            *                    BYTE COUNT:    3 OR 4 DEPENDS ON THE MODEL
     4447                            *
     4448                            *
     4449   03 007E0    6AF0142D     T1ST1320 BAL,15   :FUCTEST+1        GO TO FUNCTIONAL TEST
     4450   03 007E1    00001264              DATA     IOCD1320
     4451   03 007E2    00000528 A            DATA     1320              *** ERROR 1320 ***
     4452   03 007E3    00001311              DATA     BSIP1310
     4453   03 007E4    0000131A              DATA     BSNP1310
     4454   03 007E5    680007EA              B        T1ST1330          BRANCH TO NEXT TEST
     4455                            *
     4456   03 007E6    CF001D35              HIO,0    *:DEVADDR         RESET DEV, WHERE ERROR WAS DETECTED
     4457   03 007E7    EAF0021D A            BAL,15   *:SENSE           TEST SENSE SW
     4458   03 007E8    2E0007E8              WAIT     %
     4459   03 007E9    680007E0              B        T1ST1320          LOOP ON ERROR
     4460                            *
     4461                            *                 *** 1 3 3 0 ***
     4462                            *
     4463                            *                 THIS TEST VERIFIES THAT THE RAD WILL REPORT ZERO
     4464                            *                 BYTE COUNT AFTER ACCEPTING A SENSE ORDER
     4465                            *
     4466                            *                     ORDER:        SENSE
     4467                            *                     BYTE ADDR:    BA(BUF1LO)
     4468                            *                     FLAGS:        IZC
     4469                            *                     BYTE COUNT:   3 OR 4 DEPENDS ON THE MODEL
     4470                            *
     4471                            *
     4472   03 007EA    6AF0142C     T1ST1330 BAL,15   :FUCTEST          GO TO FUNCTIONAL TEST
     4473   03 007EB    00001266              DATA     IOCD1330
     4474   03 007EC    00000532 A            DATA     1330              *** ERROR 1330 ***
     4475   03 007ED    00001314              DATA     BSIP1330
     4476   03 007EE    0000131A              DATA     BSNP1310
     4477   03 007EF    680007F4              B        T1ST1340          GO TO NEXT TEST
     4478                            *
     4479   03 007F0    CF001D35              HIO,0    *:DEVADDR         RESET DEV, WHERE ERROR WAS DETECTED
     4480   03 007F1    EAF0021D A            BAL,15   *:SENSE           TEST SENSE SWITCHES
     4481   03 007F2    2E0007F2              WAIT     %
     4482   03 007F3    680007EA              B        T1ST1330          LOOP ON ERROR
     4483                            *
     4484                            *                 *** 1 3 4 0 ***
     4485                            *
     4486                            *                 THIS TEST VERIFIES THAT THE RAD WILL REPORT
     4487                            *                 CHANNEL END AFTER ACCEPTING A SENSE ORDER
     4488                            *
     4489                            *                     ORDER:        SENSE
     4490                            *                     BYTE ADDR:    BA(BUF1LO)
     4491                            *                     FLAGS:        ICE
     4492                            *                     BYTE COUNT:   3 OR 4 DEPENDS ON THE MODEL
     4493                            *
     4494                            *
     4495   03 007F4    6AF0142C     T1ST1340 BAL,15   :FUCTEST          GO TO FUNCTIONAL TEST
     4496   03 007F5    00001268              DATA     IOCD1340
     4497   03 007F6    0000053C A            DATA     1340              *** ERROR 1340 ***
     4498   03 007F7    00001317              DATA     BSIP1340
     4499   03 007F8    0000131A              DATA     BSNP1310
     4500   03 007F9    680004B5              B        FUCTEXIT
     4501                            *
     4502   03 007FA    CF001D35              HIO,0    *:DEVADDR         RESET DEV, WHERE ERROR WAS DETECTED
     4503   03 007FB    EAF0021D A            BAL,15   *:SENSE           TEST SENSE SW
     4504   03 007FC    2E0007FC              WAIT     %
     4505   03 007FD    680007F4              B        T1ST1340          LOOP ON ERROR
     4506   03 007FE    680004B5              B        FUCTEXIT
     4507                                     PAGE
     4508                            *
     4509                            *                 *** T S T 1, 1 4 ***
     4510                            *
     4511                            *                 *** S E N S E  T ES T 2 ***
     4512                            *
     4513                            *                 *** (TEST NOT RUN FOR HIGH SPEED RAD) ***
     4514                            *
     4515                            *                 THIS TEST IS DESIGNED TO TEST SOME OF THE RESPONSES
     4516                            *                 OF A RAD, TO A SENSE OPERATION WITH A BYTE COUNT LESS
     4517                            *
     4518                            *                 THAN REQUIRED.THIS TEST VERIFIES ORDER RECOGNITION,
     4519                            *                 COUNT DONE RECOGNITION, ORDER IN GENERATION AND
     4520                            *                 LENGTH TESTING LOGIC.
     4521                            *
     4522                            *
     4523                            *
     4524                            T1ST14 ;
     4525   03 007FF    32601D34              LW,6     MODELC            FETCH MODEL NO.
     4526   03 00800    21607212 A            CI,6     X'7212'           IS IT HIGH SPEED?
     4527   03 00801    683004B5              BE        FUCTEXIT         IF YES BR. TO EXIT
     4528   03 00802    22400002 A            LI,4     2
     4529   03 00803    5542126B              STH,4    IOCD1410+1,1
     4530   03 00804    5542126D              STH,4    IOCD1420+1,1
     4531   03 00805    5542126F              STH,4    IOCD1430+1,1
     4532   03 00806    32601D37              LW,6     BYTCURR           LOAD NO. OF BYTES/SECTOR
     4533   03 00807    2560007E A            SLS,6    -2                CONVERT TO A WORD COUNT
     4534   03 00808    3560215B              STW,6    :PATWC            SAVE AS SIZE OF BUFFER TO BE USED
     4535   03 00809    22602418              LI,6     BUF1LO            LOAD AND SAVE
     4536   03 0080A    35602158              STW,6    :PATBFR                STARTING ADDR OF BUFFER ADDR
     4537   03 0080B    6AF013D3              BAL,15   :SEEKMOD          BRANCH TO SEEK OPERATION
     4538   03 0080C    6AF0203B              BAL,15   :PATTERN          SPREAD PATTERN
     4539                            *
     4540                            *
     4541                            *                 *** 1 4 1 0 ***
     4542                            *
     4543                            *                 THIS TEST VERIFIES THAT THE RAD WILL REPORT
     4544                            *                 'INCORRECT LENGTH' FOR A SENSE ORDER WITH A BYTE
     4545                            *                 COUNT LESS THAN REQUIRED
     4546                            *
     4547                            *
     4548                            *                    ORDER:         SENSE
     4549                            *                    BYTE ADDR:     BA(BUF1LO)
     4550                            *                    FLAGS:         IUE
     4551                            *                   BYTE COUNT:     2
     4552                            *
     4553                            *
     4554   03 0080D    6AF0142D     T1ST1410 BAL,15   :FUCTEST+1        GO TO FUNCTIONAL TEST
     4555   03 0080E    0000126A              DATA     IOCD1410
     4556   03 0080F    00000582 A            DATA     1410              *** ERROR 1410 ***
     4557   03 00810    0000131C              DATA     BSIP1410
     4558   03 00811    00001325              DATA     BSNP1410
     4559   03 00812    68000817              B        T1ST1415          GO TO NEXT TEST
     4560                            *
     4561   03 00813    CF001D35              HIO,0    *:DEVADDR         RESET DEV, WHERE ERROR WAS DETECTED
     4562   03 00814    EAF0021D A            BAL,15   *:SENSE           TEST SENSE SWITCHES
     4563   03 00815    2E000815              WAIT     %                 HALT ON ERROR IF SS3 RESET
     4564   03 00816    680007FF              B        T1ST14            LOOP ON ERROR
     4565                            *
     4566                            *                 *** 1 4 1 5 ***
     4567                            *
     4568                            *                 THIS TEST VERIFIES THAT DATA WAS ALTERED IN       *BOO
     4569                            *                 THE INPUT BUFFER BY THE SENSE OPERATION.          *BOO
     4570                            *
     4571                            *
     4572                            *
     4573                            *
     4574                            *
     4575                            *
     4576                            *
     4577   03 00817    32602418     T1ST1415 LW,6     BUF1LO            FETCH BUF1LO
     4578   03 00818    31602163              CW,6     :PATID+1          COMPARE
     4579   03 00819    6930081D              BNE      T1ST1416          BRANCH IF NOT EQUAL
     4580   03 0081A    6AF01556              BAL,15   TST1ERMG          REPORT ERROR
     4581   03 0081B    00000587 A            DATA     1415              ** ERROR 1415 **
     4582   03 0081C    68000823              B        T1ST1417          BRANCH TO SENSE TEST
     4583   03 0081D    32602163     T1ST1416 LW,6     :PATID+1          LOAD :PATID+1 INTO
     4584   03 0081E    35602418              STW,6    BUF1LO            BUF1LO
     4585   03 0081F    6AF02036              BAL,15   :COMPARE          BRANCH TO COMPARE SUBROUTINE
     4586   03 00820    68000826              B        T1ST1420          BRANCH IF NO CHANGE OCCURRED
     4587   03 00821    6AF01556              BAL,15   TST1ERMG          REPORT ERROR
     4588   03 00822    00000588 A            DATA     1416              ** ERROR 1416  **
     4589   03 00823    EAF0021D A   T1ST1417 BAL,15   *:SENSE           TEST SENSE SW
     4590   03 00824    2E000824              WAIT     %                 HALT IF SS3 RESET
     4591   03 00825    680007FF              B        T1ST14            LOOP ON ERROR
     4592                            *
     4593                            *
     4594                            *                 *** 1 4 2 0 ***
     4595                            *                 THIS TEST VERIFIES THAT THE RAD WILL REPORT
     4596                            *                 'INCORRECT LENGTH' AND 'UNUSUAL END' FOR A
     4597                            *                 SENSE ORDER WITH A BYTE LESS THAN REQUIRED
     4598                            *
     4599                            *                    ORDER:         SENSE
     4600                            *                    BYTE ADDR:     BA(BUF1LO)
     4601                            *                    FLAGS:         HTE
     4602                            *                   BYTE COUNT:     2
     4603                            *
     4604                            *
     4605                            T1ST1420 ;
     4606   03 00826    6AF0142D              BAL,15   :FUCTEST+1        GO TO FUNCTIONAL TEST
     4607   03 00827    0000126C              DATA     IOCD1420
     4608   03 00828    0000058C A            DATA     1420              *** ERROR 1420 ***
     4609   03 00829    0000131F              DATA     BSIP1420
     4610   03 0082A    00001327              DATA     BSNP1420
     4611   03 0082B    68000830              B        T1ST1430          BRANCH TO NEXT TEST
     4612                            *
     4613   03 0082C    CF001D35              HIO,0    *:DEVADDR         RESET DEV, WHERE ERROR WAS DETECTED
     4614   03 0082D    EAF0021D A            BAL,15   *:SENSE           TEST SENSE SW
     4615   03 0082E    2E00082E              WAIT     %
     4616   03 0082F    68000826              B        T1ST1420          LOOP ON ERROR
     4617                            *
     4618                            *                 *** 1 4 3 0 ***
     4619                            *
     4620                            *                 THIS TEST VERIFIES THAT THE RAD WILL REPORT 'CHANNEL
     4621                            *                 END' FOR A SENSE ORDER WITH A BYTE COUNT LESS
     4622                            *                 THAN REQUIRED.
     4623                            *                     ORDER:        SENSE
     4624                            *                     BYTE ADDR:    BA(BUF1LO)
     4625                            *                     FLAGS:        CE
     4626                            *                   BYTE COUNT:     2
     4627                            *
     4628                            *
     4629   03 00830    6AF0142C     T1ST1430 BAL,15   :FUCTEST          GO TO FUNCTIONAL TEST
     4630   03 00831    0000126E              DATA     IOCD1430
     4631   03 00832    00000596 A            DATA     1430              *** ERROR 1430 ***
     4632   03 00833    00001322              DATA     BSIP1430
     4633   03 00834    00001327              DATA     BSNP1420
     4634   03 00835    680004B5              B        FUCTEXIT          RETURN TO FUNCTIONAL DISPATCHER
     4635                            *
     4636   03 00836    CF001D35              HIO,0    *:DEVADDR         RESET DEV, WHERE ERROR WAS DETECTED
     4637   03 00837    EAF0021D A            BAL,15   *:SENSE           TEST SENSE SWITCHES
     4638   03 00838    2E000838              WAIT     %
     4639   03 00839    68000830              B        T1ST1430          LOOP ON ERROR
     4640   03 0083A    680004B5              B        FUCTEXIT          GO TO FUNCTIONAL DISPATCHER
     4641                            *
     4642                                     PAGE
     4643                            *
     4644                            *                 *** T S T 1, 1 5 ***
     4645                            *
     4646                            *                 *** S E N S E  T ES T 3 ***
     4647                            *
     4648                            *                 THIS TEST IS DESIGNED TO TEST SOME OF THE RESPONSES
     4649                            *                 OF A RAD, TO A SENSE OPERATION WITH A BYTE COUNT MORE
     4650                            *
     4651                            *                 THAN REQUIRED.THIS TEST VERIFIES ORDER RECOGNITION,
     4652                            *                 COUNT DONE RECOGNITION, ORDER IN GENERATION AND
     4653                            *                 LENGTH TESTING LOGIC.
     4654                            *
     4655                            *
     4656                            *
     4657                            T1ST15 ;
     4658   03 0083B    22400005 A            LI,4     5                 FETCH BYTE NO.
     4659   03 0083C    32601D34              LW,6     MODELC            FETCH MODEL NO.
     4660   03 0083D    21607212 A            CI,6     X'7212'
     4661   03 0083E    68300840              BE       %+2               BRANCH IF MODEL NO. IS EQUAL
     4662   03 0083F    22400004 A            LI,4     4
     4663   03 00840    55421271              STH,4    IOCD1510+1,1
     4664   03 00841    55421273              STH,4    IOCD1520+1,1
     4665   03 00842    55421275              STH,4    IOCD1530+1,1
     4666   03 00843    55421277              STH,4    IOCD1540+1,1
     4667   03 00844    32601D37              LW,6     BYTCURR           LOAD NO. OF BYTES/SECTOR
     4668   03 00845    2560007E A            SLS,6    -2                CONVERT TO A WORD COUNT
     4669   03 00846    3560215B              STW,6    :PATWC            SAVE AS SIZE OF BUFFER TO BE USED
     4670   03 00847    22602418              LI,6     BUF1LO            LOAD AND SAVE
     4671   03 00848    35602158              STW,6    :PATBFR                STARTING ADDR OF BUFFER ADDR
     4672   03 00849    6AF013D3              BAL,15   :SEEKMOD          BRANCH TO SEEK OPERATION
     4673   03 0084A    6AF0203B              BAL,15   :PATTERN          SPREAD PATTERN
     4674                            *
     4675                            *
     4676                            *                 *** 1 5 1 0 ***
     4677                            *
     4678                            *                 THIS TEST VERIFIES THAT THE RAD WILL REPORT
     4679                            *                 'INCORRECT LENGTH','CHANNEL END' AND HAVE BYTES
     4680                            *                 REMAINING IF THE BYTE COUNT IS GREATER THAN
     4681                            *                 REQUIRED
     4682                            *
     4683                            *                    ORDER:         SENSE
     4684                            *                    BYTE ADDR:     BA(BUF1LO)
     4685                            *                    FLAGS:         ICE
     4686                            *                    BYTE COUNT:    5 OR 4 DEPENDS ON THE MODEL
     4687                            *
     4688                            *
     4689   03 0084B    6AF0142C     T1ST1510 BAL,15   :FUCTEST          GO TO FUNCTIONAL TEST
     4690   03 0084C    00001270              DATA     IOCD1510
     4691   03 0084D    000005E6 A            DATA     1510              *** ERROR 1510 ***
     4692   03 0084E    00001329              DATA     BSIP1510
     4693   03 0084F    00001332              DATA     BSNP1510
     4694   03 00850    68000855              B        T1ST1515          GO TO NEXT TEST
     4695                            *
     4696   03 00851    CF001D35              HIO,0    *:DEVADDR         RESET DEV, WHERE ERROR WAS DETECTED
     4697   03 00852    EAF0021D A            BAL,15   *:SENSE           TEST SENSE SWITCHES
     4698   03 00853    2E000853              WAIT     %                 HALT ON ERROR IF SS3 RESET
     4699   03 00854    6800083B              B        T1ST15            LOOP ON ERROR
     4700                            *
     4701                            *                 *** 1 5 1 5 ***
     4702                            *
     4703                            *                 THIS TEST VERIFIES THAT DATA WAS ALTERED IN       *BOO
     4704                            *                 THE INPUT BUFFER BY THE SENSE OPERATION.          *BOO
     4705                            *
     4706                            *
     4707                            *
     4708                            *
     4709                            *
     4710                            *
     4711                            *
     4712   03 00855    32602418     T1ST1515 LW,6     BUF1LO            FETCH BUF1LO
     4713   03 00856    31602163              CW,6     :PATID+1          COMPARE
     4714   03 00857    6930085B              BNE      T1ST1516          BRANCH IF NOT EQUAL
     4715   03 00858    6AF01556              BAL,15   TST1ERMG          REPORT ERROR
     4716   03 00859    000005EB A            DATA     1515              ** ERROR 1515 **
     4717   03 0085A    68000861              B        T1ST1517          BRANCH TO SENSE TEST            *A01
     4718   03 0085B    32602163     T1ST1516 LW,6     :PATID+1          LOAD :PATID+1 INTO
     4719   03 0085C    35602418              STW,6    BUF1LO            BUF1LO
     4720   03 0085D    6AF02036              BAL,15   :COMPARE          BRANCH TO COMPARE SUBROUTINE
     4721   03 0085E    68000864              B        T1ST1520          BRANCH IF NO CHANGE OCCURRED
     4722   03 0085F    6AF01556              BAL,15   TST1ERMG          REPORT ERROR
     4723   03 00860    000005EC A            DATA     1516              ** ERROR 1516 **
     4724   03 00861    EAF0021D A   T1ST1517 BAL,15   *:SENSE           TEST SENSE SW
     4725   03 00862    2E000862              WAIT     %                 HALT IF SS3 RESET
     4726   03 00863    6800083B              B        T1ST15            LOOP ON ERROR
     4727                            *
     4728                            *
     4729                            *                 *** 1 5 2 0 ***
     4730                            *                 THIS TEST VERIFIES THAT THE RAD WILL REPORT
     4731                            *                 'INCORRECT LENGTH' AND 'UNUSUAL END' AND HAVE
     4732                            *                 BYTES REMAINING IF THE BYTE COUNT IS GREATER
     4733                            *                 THAN REQUIRED.
     4734                            *                    ORDER:         SENSE
     4735                            *                    BYTE ADDR:     BA(BUF1LO)
     4736                            *                    FLAGS:         HTE
     4737                            *                    BYTE COUNT:    4 OR 5 DEPENDS ON THE MODEL
     4738                            *
     4739                            *
     4740                            T1ST1520 ;
     4741   03 00864    6AF0142D              BAL,15   :FUCTEST+1        GO TO FUNCTIONAL TEST
     4742   03 00865    00001272              DATA     IOCD1520
     4743   03 00866    000005F0 A            DATA     1520              *** ERROR 1520 ***
     4744   03 00867    0000132C              DATA     BSIP1520
     4745   03 00868    00001334              DATA     BSNP1520
     4746   03 00869    6800086E              B        T1ST1530          BRANCH TO NEXT TEST
     4747                            *
     4748   03 0086A    CF001D35              HIO,0    *:DEVADDR         RESET DEV, WHERE ERROR WAS DETECTED
     4749   03 0086B    EAF0021D A            BAL,15   *:SENSE           TEST SENSE SW
     4750   03 0086C    2E00086C              WAIT     %
     4751   03 0086D    68000864              B        T1ST1520          LOOP ON ERROR
     4752                            *
     4753                            *                 *** 1 5 3 0 ***
     4754                            *
     4755                            *                 THIS TEST VERIFIES THAT THE RAD WILL REPORT 'UNUSUAL
     4756                            *                 END' FOR A SENSE ORDER WITH A BYTE COUNT GREATER
     4757                            *                 THAN REQUIRED.
     4758                            *                     ORDER:        SENSE
     4759                            *                     BYTE ADDR:    BA(BUF1LO)
     4760                            *                     FLAGS:        UE
     4761                            *                     BYTE COUNT:   4 OR 5 DEPENDS ON THE MODEL
     4762                            *
     4763                            *
     4764   03 0086E    6AF0142D     T1ST1530 BAL,15   :FUCTEST+1        GO TO FUNCTIONAL TEST
     4765   03 0086F    00001274              DATA     IOCD1530
     4766   03 00870    000005FA A            DATA     1530              *** ERROR 1530 ***
     4767   03 00871    0000132F              DATA     BSIP1530
     4768   03 00872    00001332              DATA     BSNP1510
     4769   03 00873    68000878              B        T1ST1540          RETURN TO FUNCTIONAL DISPATCHER
     4770                            *
     4771   03 00874    CF001D35              HIO,0    *:DEVADDR         RESET DEV, WHERE ERROR WAS DETECTED
     4772   03 00875    EAF0021D A            BAL,15   *:SENSE           TEST SENSE SWITCHES
     4773   03 00876    2E000876              WAIT     %
     4774   03 00877    6800086E              B        T1ST1530          LOOP ON ERROR
     4775                            *
     4776                            *
     4777                            *                 *** 1 5 4 0 ***
     4778                            *
     4779                            *                 THIS TEST VERIFIES THAT THE RAD WILL NOT REPORT A
     4780                            *                 'ZERO BYTE COUNT', IF THE BYTE COUNT IN THE IOP
     4781                            *                 DOES NOT GO TO ZERO FOR A SENSE ORDER
     4782                            *
     4783                            *                    ORDER:         SENSE
     4784                            *                    BYTE ADDR:     BA(BUF1LO)
     4785                            *                    FLAGS:         IZC
     4786                            *                    BYTE COUNT:    4 OR 5 DEPENDS ON THE MODEL
     4787   03 00878    6AF0142D     T1ST1540 BAL,15   :FUCTEST+1        GO TO FUNCTIONAL TEST
     4788   03 00879    00001276              DATA     IOCD1540
     4789   03 0087A    00000604 A            DATA     1540              *** ERROR 1540 ***
     4790   03 0087B    0000132F              DATA     BSIP1530
     4791   03 0087C    00001332              DATA     BSNP1510
     4792   03 0087D    680004B5              B        FUCTEXIT          RETURN TO FUNCTIONAL DISPATCHER
     4793                            *
     4794   03 0087E    CF001D35              HIO,0    *:DEVADDR         RESET DEV, WHERE ERROR WAS DETECTED
     4795   03 0087F    EAF0021D A            BAL,15   *:SENSE           TEST SENSE SW
     4796   03 00880    2E000880              WAIT     %                 HALT ON ERROR IF SS3 RESET
     4797   03 00881    68000878              B        T1ST1540          LOOP ON ERROR
     4798   03 00882    680004B5              B        FUCTEXIT          RETURN TO FUNCTIONAL DISPATCHER
     4799                            *
     4800                                     PAGE
     4801                            *
     4802                            *                 *** T S T 1 , 1 6 ***
     4803                            *
     4804                            *                 *** B U S Y / N O T B U S Y T E S T ***
     4805                            *
     4806                            *                 THIS SUBTEST TESTS THAT THE RAD CAN GO BUSY, THEN
     4807                            *                 AFTER A PERIOD OF TIME GO NOT BUSY.
     4808                            *
     4809                            *        *** (TEST NOT RUN FOR HIGH SPEED RAD) ***                  *A01
     4810                            *                 ***(TEST SHOULD NOT BE RUN MED OR EP RAD ON SIOP) *C01
     4811                            *                                                                   *C01
     4812                            *
     4813                            *
     4814   03 00883    22000000 A   T1ST16   LI,0     0                 RESET
     4815   03 00884    350004F6              STW,0    T1ERFLAG              ERROR FLAG
     4816   03 00885    33000438              MTW,0    SIOP              IF SIOP                         *C01
     4817   03 00886    693004B5              BNEZ     FUCTEXIT              DO NOT DO TES               *C01
     4818   03 00887    32601D34              LW,6     MODELC                                            *A01
     4819   03 00888    21607212 A            CI,6     X'7212'                                           *A01
     4820   03 00889    683004B5              BE       FUCTEXIT                                          *A01
     4821   03 0088A    2260F3C0 A            LI,6     X'F3C0'           DISABLE ALL                     *C02
     4822   03 0088B    6D601500 A            WD,6     X'1500'             COUNTER INTERRUPTS            *C02
     4823   03 0088C    2200093C              LI,0     DA(IOCD1610)      LOAD D W OF IOCD
     4824   03 0088D    CC001D35              SIO,0    *:DEVADDR         START SEEK
     4825   03 0088E    6AF01F09              BAL,15   :TIO              TEST FOR BUSY
     4826   03 0088F    FF00C001 A            DATA     X'FF00C001'
     4827   03 00890    7C004000 A            DATA     X'7C004000'
     4828   03 00891    68000892              B        %+1
     4829   03 00892    2260F3C0 A            LI,6     X'F3C0'           ENABLE ALL                      *C02
     4830   03 00893    6D601400 A            WD,6     X'1400'             COUNTER INTERRUPTS            *C02
     4831   03 00894    6AF0238C              BAL,15   :SAVETIO          SAVE TIO STATUS
     4832                            *                 *** 1 6 1 0 ***
     4833                            *
     4834                            *                 THIS TEST VERIFIES THAT CC2= 1 (DEVICE NOT 'READY')
     4835                            *
     4836   03 00895    70342023     T1ST1610 LCF      :STATUSCC,2       TEST FOR DEVICE NOT READY
     4837   03 00896    6940089A              BCS,4    T1ST1620          IF SO NEXT TEST
     4838   03 00897    6AF01556              BAL,15   TST1ERMG          GO REPORT ERROR
     4839   03 00898    0000064A A            DATA     1610              *** ERROR 1610 ***
     4840   03 00899    331004F6              MTW,1    T1ERFLAG          SET TST1 ERROR FLAG
     4841                            *
     4842                            *                 *** 1 6 2 0 ***
     4843                            *
     4844                            *                 THIS TEST VERIFIES THAT THE RAD STORAGE UNIT
     4845                            *                 AND THE RAD CONTROLLER WAS BUSY AT THE TIME OF
     4846                            *                 TIO.
     4847                            *
     4848   03 0089A    22600654 A   T1ST1620 LI,6     1620              LOAD ERROR NO.
     4849   03 0089B    35602266              STW,6    :ERRORT#              SAVE ERROR NO.
     4850   03 0089C    22600000 A            LI,6     0                 FETCH ZERO
     4851   03 0089D    356014F4              STW,6    :FUNFLAG          STORE ZERO
     4852   03 0089E    6AF02208              BAL,15   :ERRORT           GO TO ERROR TEST ROUTINE
     4853   03 0089F    00004CD8              DATA     BA(BSNP1620)
     4854   03 008A0    680008A2              B        T1ST1625          GOOD RETURN
     4855   03 008A1    331004F6              MTW,1    T1ERFLAG          SET TST1 ERROR FLAG
     4856                            *
     4857   03 008A2    330004F6     T1ST1625 MTW,0    T1ERFLAG          TEST FOR ERROR
     4858   03 008A3    683008A8              BEZ      T1ST1630          TAKE TEST GOOD EXIT
     4859   03 008A4    CF001D35              HIO,0    *:DEVADDR         HALT ERRORING DEVICE
     4860   03 008A5    EAF0021D A            BAL,15   *:SENSE           GO TEST SENSE SWITCHES
     4861   03 008A6    2E0008A6              WAIT     %
     4862   03 008A7    68000883              B        T1ST16            GO LOOP ON ERROR
     4863                            *
     4864                            *                 *** 1 6 3 0 ***
     4865                            *
     4866                            *                 THIS TEST VERIFIES THAT CC2 = 0 (DEVICE READY)
     4867                            *                 AFTER THE SEEK IS ACCEPTED.
     4868                            *
     4869   03 008A8    22400FA0 A   T1ST1630 LI,4     4000              WAIT
     4870   03 008A9    644008A9              BDR,4    %                     AT LEAST 1 SECTOR TIME
     4871   03 008AA    354004F6              STW,4    T1ERFLAG          ZERO ERROR FLAG
     4872   03 008AB    6AF01F09              BAL,15   :TIO              TEST DEVICE FOR NOT BUSY
     4873   03 008AC    FF00C001 A            DATA     X'FF00C001'
     4874   03 008AD    10000000 A            DATA     X'10000000'
     4875   03 008AE    680004B5              B        FUCTEXIT          IF NOT EXIT TEST
     4876   03 008AF    6AF0238C              BAL,15   :SAVETIO
     4877                            *
     4878   03 008B0    70342023              LCF      :STATUSCC,2       LOAD CONDITION CODES
     4879   03 008B1    684008B5              BCR,4    T1ST1640          IF CC2=0  NEXT TEST
     4880   03 008B2    6AF01556              BAL,15   TST1ERMG          GO REPORT ERROR
     4881   03 008B3    0000065E A            DATA     1630              *** ERROR 1630 ***
     4882   03 008B4    331004F6              MTW,1    T1ERFLAG          SET TST1 ERROR FLAG
     4883                            *
     4884                            *                 *** 1 6 4 0 ***
     4885                            *
     4886                            *                 THIS TEST VERIFIES THAT THE RAD STORAGE UNIT
     4887                            *                 AND THE RAD CONTROLLER WHEN NOT BUSY AFTER
     4888                            *                 BEING BUSY.
     4889                            *
     4890   03 008B5    22600668 A   T1ST1640 LI,6     1640              LOAD ERROR NO.
     4891   03 008B6    35602266              STW,6    :ERRORT#          SAVE ERROR NO.
     4892   03 008B7    22600000 A            LI,6     0                 FETCH ZERO
     4893   03 008B8    356014F4              STW,6    :FUNFLAG          STORE ZERO
     4894   03 008B9    6AF02208              BAL,15   :ERRORT           GO TO ERROR TEST ROUTINE
     4895   03 008BA    00004CE0              DATA     BA(BSNP1640)
     4896   03 008BB    680008BD              B        T1ST1645          GOOD RETURN
     4897   03 008BC    331004F6              MTW,1    T1ERFLAG          SET TST1 ERROR FLAG
     4898                            *
     4899   03 008BD    330004F6     T1ST1645 MTW,0    T1ERFLAG          TEST FOR ERROR
     4900   03 008BE    683004B5              BEZ      FUCTEXIT          RETURN TO FTM
     4901   03 008BF    CF001D35              HIO,0    *:DEVADDR         HALT DEVICE
     4902   03 008C0    EAF0021D A            BAL,15   *:SENSE           GO TEST SENSE SWITCHES
     4903   03 008C1    2E0008C1              WAIT     %
     4904   03 008C2    68000883              B        T1ST16            GO LOOP
     4905   03 008C3    680004B5              B        FUCTEXIT          RETURN TO FTM
     4906                                     PAGE
     4907                                     PAGE                                                       *BOO
     4908                            *                                                                   *BOO
     4909                            *                 *** T S T 1 , 1 7 ***                             *BOO
     4910                            *                                                                   *BOO
     4911                            *                 *** T E S T  M O D E  T E S T ***                 *BOO
     4912                            *                                                                   *BOO
     4913                            *                 *** (THIS TEST IS ONLY PERFORMED FOR THE 7201-3   *BOO
     4914                            *                      AND 7231-3 CONTROLLERS) ***                  *BOO
     4915                            *                                                                   *BOO
     4916                            *                 THIS TEST VERIFIES THAT THE CONTROLLER CAN BE     *BOO
     4917                            *                 SET INTO AND OUT OF TESTMODE.                     *BOO
     4918                            *                                                                   *BOO
     4919   03 008C4    6AF013CD     T1ST17   BAL,15   T1STMOD3          B: VERIFY IF MODEL -3 CONTR.    *BOO
     4920   03 008C5    22000000 A   T1ST1710 LI,0     0                                                 *BOO
     4921   03 008C6    350004F6              STW,0    T1ERFLAG          CLEAR ERROR FLAG                *BOO
     4922   03 008C7    350013CA              STW,0    TMB               CLEAR TM BYTE                   *BOO
     4923   03 008C8    6AF0142C              BAL,15   :FUCTEST          B: FUNCTIONAL TEST ROUTINE      *BOO
     4924   03 008C9    0000127A              DATA     IOCD1710                                          *BOO
     4925   03 008CA    000006AE A            DATA     1710              *** 1 7 1 0 ***                 *BOO
     4926   03 008CB    0000133A              DATA     BSIP1710                                          *BOO
     4927   03 008CC    0000133C              DATA     BSNP1710                                          *BOO
     4928   03 008CD    680008CF              B        %+2               CONTINUE                        *BOO
     4929   03 008CE    331004F6              MTW,1    T1ERFLAG          INCR ERROR FLAG                 *BOO
     4930                            *                                                                   *BOO
     4931   03 008CF    CEC01D35              TDV,12   *:DEVADDR         ISSUE TDV                       *BOO
     4932   03 008D0    684008D4              BCR,4    %+4               B: CC2 OF TDV RESET             *BOO
     4933   03 008D1    6AF01556              BAL,15   TST1ERMG          REPORT ERROR                    *BOO
     4934   03 008D2    000006B3 A            DATA     1715              *** 1 7 1 5 ***                 *BOO
     4935   03 008D3    331004F6              MTW,1    T1ERFLAG          INCR ERROR FLAG                 *BOO
     4936   03 008D4    330004F6              MTW,0    T1ERFLAG          TEST FLAG                       *BOO
     4937   03 008D5    683008D9              BEZ      T1ST1720          B: CONTINUE                     *BOO
     4938   03 008D6    EAF0021D A            BAL,15   *:SENSE           TEST SENSE SWITCHES             *BOO
     4939   03 008D7    2E0008D7              WAIT     %                                                 *BOO
     4940   03 008D8    680008C5              B        T1ST1710          LOOP                            *BOO
     4941                            *                                                                   *BOO
     4942   03 008D9    22000000 A   T1ST1720 LI,0     0                                                 *BOO
     4943   03 008DA    350004F6              STW,0    T1ERFLAG          CLEAR ERROR FLAG                *BOO
     4944   03 008DB    351013CA              STW,1    TMB               INITIAL VALUE OF TM BYTE        *BOO
     4945   03 008DC    22A006BF A            LI,10    1727                                              *BOO
     4946   03 008DD    35A008E6              STW,10   T1ST172E                                          *BOO
     4947   03 008DE    20A0000A A            AI,10    10                INITIALIZE                      *BOO
     4948   03 008DF    35A008EE              STW,10   T1ST173E                                          *BOO
     4949   03 008E0    20A0000A A            AI,10    10                  ERROR                         *BOO
     4950   03 008E1    35A008FC              STW,10   T1ST174E                                          *BOO
     4951   03 008E2    20A0000A A            AI,10    10                NO.S                            *BOO
     4952   03 008E3    35A00904              STW,10   T1ST175E                                          *BOO
     4953   03 008E4    6AF0142C              BAL,15   :FUCTEST          B: FUNCTIONAL TEST ROUTINE      *BOO
     4954   03 008E5    0000127A              DATA     IOCD1710                                          *BOO
     4955   03 008E6    00000000 A   T1ST172E DATA     0                 *** 1727 TO 1720 ***            *BOO
     4956   03 008E7    0000133A              DATA     BSIP1710                                          *BOO
     4957   03 008E8    0000133C              DATA     BSNP1710                                          *BOO
     4958   03 008E9    680008EB              B        %+2               CONTINUE                        *BOO
     4959   03 008EA    331004F6              MTW,1    T1ERFLAG          INCR ERROR FLAG                 *BOO
     4960   03 008EB    CEA01D35              TDV,10   *:DEVADDR         ISSUE TDV                       *BOO
     4961   03 008EC    694008F0              BCS,4    %+4               B: CC2 OF TDV SET               *BOO
     4962   03 008ED    6AF01556              BAL,15   TST1ERMG          REPORT ERROR                    *BOO
     4963   03 008EE    00000000 A   T1ST173E DATA     0                 *** 1737 TO 1730 ***            *BOO
     4964   03 008EF    331004F6              MTW,1    T1ERFLAG          INCR ERROR FLAG                 *BOO
     4965                            *                                                                   *BOO
     4966   03 008F0    328013CA              LW,8     TMB               FETCH TM BYTE                   *BOO
     4967   03 008F1    21800040 A            CI,8     X'40'             TEST BIT 1                      *BOO
     4968   03 008F2    693008FA              BNE      T1ST1740          B: TDV-SEEK BYTE 1 NOT SELECTED *BOO
     4969                            *                                                                   *BOO
     4970   03 008F3    CEC01D35              TDV,12   *:DEVADDR         ISSUE TDV                       *BOO
     4971   03 008F4    7280000D A            LB,8     13                FETCH TDV STATUS                *BOO
     4972   03 008F5    21800040 A            CI,8     X'40'             TEST 4 BYTE INTERFACE ACTIVE BIT*BOO
     4973   03 008F6    694008FA              BCS,4    T1ST1740          B: NOT ACTIVE                   *BOO
     4974   03 008F7    6AF01556              BAL,15   TST1ERMG          REPORT ERROR                    *BOO
     4975   03 008F8    000006E0 A            DATA     1760              *** 1 7 6 0 ***                 *BOO
     4976   03 008F9    331004F6              MTW,1    T1ERFLAG          INCR ERROR FLAG                 *BOO
     4977                            *                                                                   *BOO
     4978   03 008FA    6AF0142C     T1ST1740 BAL,15   :FUCTEST          B: FUNCTIONAL TEST ROUTINE      *BOO
     4979   03 008FB    0000127C              DATA     IOCD1730                                          *BOO
     4980   03 008FC    00000000 A   T1ST174E DATA     0                 *** 1747 TO 1740 ***            *BOO
     4981   03 008FD    0000133A              DATA     BSIP1710                                          *BOO
     4982   03 008FE    0000133C              DATA     BSNP1710                                          *BOO
     4983   03 008FF    68000901              B        %+2               CONTINUE                        *BOO
     4984   03 00900    331004F6              MTW,1    T1ERFLAG          INCR ERROR FLAG                 *BOO
     4985   03 00901    CEA01D35              TDV,10   *:DEVADDR         ISSUE TDV                       *BOO
     4986   03 00902    68400906              BCR,4    %+4               B: CC2 OF TDV RESET             *BOO
     4987   03 00903    6AF01556              BAL,15   TST1ERMG          REPORT ERROR                    *BOO
     4988   03 00904    00000000 A   T1ST175E DATA     0                 *** 1757 TO 1750 ***            *BOO
     4989   03 00905    331004F6              MTW,1    T1ERFLAG          INCR ERROR FLAG                 *BOO
     4990                            *                                                                   *BOO
     4991   03 00906    330004F6              MTW,0    T1ERFLAG          TEST ERROR FLAG                 *BOO
     4992   03 00907    6830090D              BEZ      T1ST1780          B: CONTINUE                     *BOO
     4993   03 00908    22000000 A            LI,0     0                                                 *BOO
     4994   03 00909    350004F6              STW,0    T1ERFLAG          RESET FLAG                      *BOO
     4995   03 0090A    EAF0021D A            BAL,15   *:SENSE           TEST SENSE SWITCHES             *BOO
     4996   03 0090B    2E00090B              WAIT     %                                                 *BOO
     4997   03 0090C    680008E4              B        T1ST172E-2        LOOP                            *BOO
     4998                            *                                                                   *BOO
     4999   03 0090D    32A013CA     T1ST1780 LW,10    TMB                                               *BOO
     5000   03 0090E    25A00001 A            SLS,10   +1                SHIFT TEST MODE BYTE            *BOO
     5001   03 0090F    21A00100 A            CI,10    X'100'                                            *BOO
     5002   03 00910    694004B5              BCS,4    FUCTEXIT          ALL PATTERNS DONE               *BOO
     5003   03 00911    35A013CA              STW,10   TMB               SAVE TM BYTE                    *BOO
     5004   03 00912    33F008E6              MTW,-1   T1ST172E                                          *BOO
     5005   03 00913    33F008EE              MTW,-1   T1ST173E          UPDATA                          *BOO
     5006   03 00914    33F008FC              MTW,-1   T1ST174E            ERROR NO.                     *BOO
     5007   03 00915    33F00904              MTW,-1   T1ST175E                                          *BOO
     5008   03 00916    21A00018 A            CI,10    X'18'             TEST BIT POS 3 AND 4 OF TM BYTE *BOO
     5009   03 00917    6940090D              BCS,4    T1ST1780          B: BYPASS TEST                  *BOO
     5010   03 00918    680008E4              B        T1ST172E-2        B: NEXT PASS                    *BOO
     5011                                     PAGE                                                       *BOO
     5012                            *                 *** T S T 1 , 1 8 ***                             *BOO
     5013                            *                                                                   *BOO
     5014                            *                 *** B Y T E  'A'  D A T A  P A T H  T E S T ***   *BOO
     5015                            *                                                                   *BOO
     5016                            *                 *** (THIS TEST IS ONLY PERFORMED FOR THE 7201-3   *BOO
     5017                            *                      AND 7231-3 CONTROLLERS) ***                  *BOO
     5018                            *                                                                   *BOO
     5019                            *                 THIS TEST VERIFIES; THE BYTE 'A' DATA PATH TO AND *BOO
     5020                            *                 FROM THE TRACK AND SECTOR REGISTERS, THE TDV      *BOO
     5021                            *                 TEST MODE DATA PATH FROM THE TRACK AND SECTOR     *BOO
     5022                            *                 REGISTERS AND THE ASSOCIATED CONTROL LOGIC.       *BOO
     5023                            *                 THIS TEST TRANSFERS TO AND RETRIEVES DATA FROM THE*BOO
     5024                            *                 TRACK AND SECTOR REGISTERS VIA THE TDV TEST MODE  *BOO
     5025                            *                 PATH AS WELL AS THE NORMAL SEEK/SENSE PATH.       *BOO
     5026                            *                 A DETERMINATION CAN BE MADE AS TO WHETHER THE     *BOO
     5027                            *                 FAULT OCCURRED IN THE INPUT OR IN THE OUTPUT      *BOO
     5028                            *                 OPERATION.                                        *BOO
     5029                            *                                                                   *BOO
     5030   03 00919    6AF013CD     T1ST18   BAL,15   T1STMOD3          B: VERIFY IF MODEL -3 CONTR.    *BOO
     5031   03 0091A    6800091B              B        %+1                                               *BOO
     5032   03 0091B    22400000 A            LI,4     0                                                 *BOO
     5033   03 0091C    35400955              STW,4    T1ST18X           INITIAL INDEX VALUE             *BOO
     5034   03 0091D    32A80957     T1ST1800 LW,10    T1ST18TA,4        FETCH SEEK ADR                  *BOO
     5035   03 0091E    35A013FA              STW,10   SEEKRAD           STORE ADR IN SEEK BUFFER        *BOO
     5036   03 0091F    6AF013D3              BAL,15   :SEEKMOD          B: SEEK SUBROUTINE              *BOO
     5037   03 00920    22E00042 A            LI,14    X'42'             TEST MODE BYTE                  *BOO
     5038   03 00921    6AF013B5              BAL,15   :SETEST           B: TEST MODE SUBROUTINE         *BOO
     5039   03 00922    CEC01D35              TDV,12   *:DEVADDR         ISSUE TDV                       *BOO
     5040   03 00923    72D0000D A            LB,13    13                                                *BOO
     5041   03 00924    75D40956              STB,13   T1ST18SV,2        SAVE TDV STATUS                 *BOO
     5042   03 00925    22E00082 A            LI,14    X'82'             TEST MODE BYTE                  *BOO
     5043   03 00926    6AF013B5              BAL,15   :SETEST           B: TEST MODE SUBROUTINE         *BOO
     5044   03 00927    CEC01D35              TDV,12   *:DEVADDR         ISSUE TDV                       *BOO
     5045   03 00928    32A00956              LW,10    T1ST18SV          FETCH TDV STATUS                *BOO
     5046   03 00929    72D0000D A            LB,13    13                                                *BOO
     5047   03 0092A    75D6000A A            STB,13   10,3              COMBINE TDV STATUS              *BOO
     5048   03 0092B    4BA023E0              AND,10   =X'1FFF'                                          *BOO
     5049   03 0092C    32400955              LW,4     T1ST18X           INDEX                           *BOO
     5050   03 0092D    35A82422              STW,10   BUF1LO+10,4       SAVE TDV STATUS                 *BOO
     5051   03 0092E    6AF01402              BAL,15   :SENSEMOD         B: SENSE SUBROUTINE             *BOO
     5052   03 0092F    52A0141C              LH,10    :SNSWORD          FETCH SENSE DATA (1ST 2 BYTES)  *BOO
     5053   03 00930    4BA023E0              AND,10   =X'1FFF'                                          *BOO
     5054   03 00931    32400955              LW,4     T1ST18X           INDEX                           *BOO
     5055   03 00932    35A8242C              STW,10   BUF1LO+20,4       SAVE SENSE DATA                 *BOO
     5056   03 00933    33100955              MTW,1    T1ST18X           INCR INDEX                      *BOO
     5057   03 00934    32400955              LW,4     T1ST18X           FETCH INDEX                     *BOO
     5058   03 00935    21400006 A            CI,4     6                                                 *BOO
     5059   03 00936    6910091D              BL       T1ST1800          B: INDEX < 6                    *BOO
     5060   03 00937    224FFFFA A            LI,4     -6                INDEX                           *BOO
     5061   03 00938    32C8095D              LW,12    T1ST18TA+6,4      FETCH SEEK ADR                  *BOO
     5062   03 00939    31C82428              CW,12    BUF1LO+16,4       COMPARE TO TDV STATUS           *BOO
     5063   03 0093A    69300940              BNE      T1ST1825          B: COMPARE ERROR                *BOO
     5064   03 0093B    31C82432              CW,12    BUF1LO+26,4       COMPARE TO SENSE DATA           *BOO
     5065   03 0093C    69300940              BNE      T1ST1825          B: COMPARE ERROR                *BOO
     5066   03 0093D    65400938              BIR,4    %-5               LOOP                            *BOO
     5067   03 0093E    6AF013B2              BAL,15   :RSTEST           RESET TEST MODE                 *BOO
     5068   03 0093F    680004B5              B        FUCTEXIT          B: EXIT                         *BOO
     5069   03 00940    6AF01556     T1ST1825 BAL,15   TST1ERMG          REPORT ERROR                    *BOO
     5070   03 00941    00000721 A            DATA     1825              *** 1 8 2 5 ***                 *BOO
     5071   03 00942    EAF0021C A            BAL,15   *:PRINT           B: PRINT HEADING LINE           *BOO
     5072   03 00943    0000095D              DATA     T1ST18HD                                          *BOO
     5073   03 00944    224FFFFA A            LI,4     -6                                                *BOO
     5074   03 00945    32C8095D     T1ST1830 LW,12    T1ST18TA+6,4      FETCH SEEK DATA       1840E2D2  *BOO
     5075   03 00946    327023E1              LW,7     =X'1840E2D2'      SEEK ID                         *BOO
     5076   03 00947    6AE02138              BAL,14   :COM4EXT          PRINT A LINE                    *BOO
     5077   03 00948    32C82428              LW,12    BUF1LO+16,4       FETCH TDV DATA                  *BOO
     5078   03 00949    327023E2              LW,7     =X'18E3C4E5'      TDV ID                          *BOO
     5079   03 0094A    6AE02138              BAL,14   :COM4EXT          PRINT A LINE                    *BOO
     5080   03 0094B    32C82432              LW,12    BUF1LO+26,4       FETCH SENSE DATA                *BOO
     5081   03 0094C    327023E3              LW,7     =X'18E2C5D5'      SENSE ID                        *BOO
     5082   03 0094D    6AE02138              BAL,14   :COM4EXT          PRINT A LINE                    *BOO
     5083   03 0094E    EAF0021C A            BAL,15   *:PRINT           SKIP A LINE                     *BOO
     5084   03 0094F    00001577              DATA     SPACE                                             *BOO
     5085   03 00950    65400945              BIR,4    T1ST1830          B: PRINT NEXT 3 LINE            *BOO
     5086   03 00951    EAF0021D A            BAL,15   *:SENSE           TEST SENSE SWITCHES             *BOO
     5087   03 00952    2E000952              WAIT     %                                                 *BOO
     5088   03 00953    6800091B              B        T1ST18+2          LOOP                            *BOO
     5089   03 00954    6800093E              B        T1ST1825-2        B: EXIT                         *BOO
     5090   03 00955    00000000 A   T1ST18X  DATA     0                 INDEX                           *BOO
     5091   03 00956    00000000 A   T1ST18SV DATA     0                 TDV STATUS IN BYTE 2            *BOO
     5092   03 00957    00000000 A   T1ST18TA DATA     0,X'1FFF',X'1555',X'AAA',X'1234',X'1001' SEEK DATA*BOO
            03 00958    00001FFF A
            03 00959    00001555 A
            03 0095A    00000AAA A
            03 0095B    00001234 A
            03 0095C    00001001 A
     5093   03 0095D    18404040 A   T1ST18HD TEXTC     '     0123 4567 8901 2345'                       *BOO
            03 0095E    4040F0F1 A
            03 0095F    F2F340F4 A
            03 00960    F5F6F740 A
            03 00961    F8F9F0F1 A
            03 00962    40F2F3F4 A
            03 00963    F5404040 A
     5094                            *                                                                   *B00
     5095                            *                 *** T S T 1 , 1 9  ***                            *B00
     5096                            *                                                                   *B00
     5097                            *                 *** C U R R E N T  S E C T O R  T E S T ***       *B00
     5098                            *                                                                   *B00
     5099                            *                 THIS SUBTEST VERIFIES THAT ALL SECTORS CAN BE     *B00
     5100                            *                 SENSED FROM THE RAD.  IF ANY ERRORS ARE           *B00
     5101                            *                 DETECTED A TABLE WILL BE OUTPUT SHOWING THE       *B00
     5102                            *                 NUMBER OF TIMES EACH CURRENT SECTOR WAS OBSERVED. *B00
     5103                            *                 EACH CURRENT SECTOR SHOULD HAVE BEEN OBSERVED     *B00
     5104                            *                 ONLY ONCE.                                        *B00
     5105                            *                                                                   *B00
     5106   03 00964    22F00776 A   T1ST19   LI,15    1910              LOAD AND SAVE                   *B00
     5107   03 00965    35F015BB              STW,15   TABDPLY1              TEST ERROR NO.              *B00
     5108   03 00966    02200040 A            LCI      4                 LOAD AND                        *B00
     5109   03 00967    2A401626              LM,4     TABLE010              SAVE                        *B00
     5110   03 00968    2B4015F8              STM,4    TABLE100+2            'CURRENT SECTOR'            *B00
     5111   03 00969    12401620              LD,4     TABLE001          LOAD AND SAVE                   *B00
     5112   03 0096A    5542160A              STH,4    TABLE101,1            'SECTOR'                    *B00
     5113   03 0096B    3550160B              STW,5    TABLE101+1                                        *B00
     5114   03 0096C    22000000 A            LI,0     0                                                 *B00
     5115   03 0096D    35001633              STW,0    TABBIAS                                           *B00
     5116   03 0096E    35001632              STW,0    TABPASS                                           *B00
     5117   03 0096F    22E00004 A            LI,14    4                 FETCH NO.                       *B00
     5118   03 00970    22F07212 A            LI,15    X'7212'           FETCH NO.                       *B00
     5119   03 00971    31F01D34              CW,15    MODELC            IS IT HIGH SPEED?               *B00
     5120   03 00972    68300974              BE       %+2               IF EQUAL BR.                    *B00
     5121   03 00973    22E00003 A            LI,14    3                 FETCH NO.                       *B00
     5122   03 00974    55E2141B              STH,14   IOCDSNMD+1,1      STORE HALF WORD                 *B00
     5123   03 00975    3250099D              LW,5     T1ST19XP          FETCH WORD                      *B00
     5124   03 00976    3550005C A            STW,5    X'5C'             STORE WORD                      *B00
     5125   03 00977    22C00020 A            LI,12    X'20'             FETCH NO.                       *B00
     5126   03 00978    6DC01200 A            WD,12    X'1200'           WRITE DIREXT                    *B00
     5127   03 00979    6D000022 A            WD,0     X'22'             WRITE DIREXT                    *B00
     5128   03 0097A    32601D36     T1ST1910 LW,6     SECTCURR          LOAD NORMAL LENGTH OF THE TABLE *B00
     5129   03 0097B    356014F7              STW,6    T1ST34SV          STORE NORMAL LENGTH OF TABLE    *B00
     5130   03 0097C    6AF01C34              BAL,15   MEMORY3           GO MAKE MEMORY AVAILABLE        *B00
     5131   03 0097D    680004B5              B        FUCTEXIT          IF NONE AVAILABLE SKIP TEST     *B00
     5132                            *                                                                   *B00
     5133                            *                                                                   *B00
     5134                            *                                                                   *B00
     5135                            *                 *** 1 9 1 0 ***                                   *B00
     5136                            *                                                                   *B00
     5137                            *                 THIS TEST IS DESIGNED TO SENSE FOR CURRENT        *B00
     5138                            *                 SECTORS. IT WILL ATTEMPT TO FIND ALL CURRENT      *B00
     5139                            *                 SECTORS, IF A CURRENT SECTOR IS NOT FOUND OR IS   *B00
     5140                            *                 FOUND MORE THAN ONCE FOR A REVOLUTION OF          *B00
     5141                            *                 THE DISC,A TABLE WILL BE OUTPUT SHOWING THE       *B00
     5142                            *                 NUMBER OF TIMES EACH SECTOR WAS SENSED. IF        *B00
     5143                            *                 FOR SOME REASON MORE THAN THE EXPECTED NUMBER     *B00
     5144                            *                 OF SECTORS ARE OBSERVED FOR A REVOLUTION          *B00
     5145                            *                 THE TABLE WILL BE ADJUSTED UP TO DISPLAY          *B00
     5146                            *                 THE ADDITIONAL SECTORS.                           *B00
     5147                            *                                                                   *B00
     5148                            T1ST1911 ;                                                          *B00
     5149   03 0097E    22000A0D              LI,0     DA(IOCDSNMD)      FETCH DOUBLEWORD                *B00
     5150   03 0097F    22C00000 A            LI,12    0                                                 *B00
     5151   03 00980    227C0000 A            LI,7     -X'40000'         DELAY VALUE                     *B01
     5152   03 00981    35C0099E              STW,12   T1ST19LP          STORE WORD                      *B00
     5153   03 00982    CCC01D35              SIO,12   *:DEVADDR         SIO                             *B00
     5154   03 00983    3300099E              MTW,0    T1ST19LP          TESTING                         *B00
     5155   03 00984    68300986              BEZ      %+2                                               *B01
     5156   03 00985    68000988              B        %+3                                               *B01
     5157   03 00986    65700983              BIR,7    %-3               DELAY FOR SECTOR PULSE          *B01
     5158   03 00987    68000990              B        T1ST1912                                          *B01
     5159   03 00988    7274141C              LB,7     :SNSWORD,2        FETCH CURRENT SECTOR ADDR       *B00
     5160   03 00989    6AF0158E              BAL,15   TABUILDS          GO TO BUILD TABLE ROUTINE       *B00
     5161   03 0098A    680004B5              B        FUCTEXIT          IF DONE EXIT                    *B00
     5162   03 0098B    6800097E              B        T1ST1911          IF NOT DONE LOOP                *B00
     5163   03 0098C    EAF0021D A            BAL,15   *:SENSE           IF ERROR TEST SENSE SWITCHES    *B00
     5164   03 0098D    2E00098D              WAIT     %                                                 *B00
     5165   03 0098E    6800097A              B        T1ST1910          LOOP ON ERROR                   *B00
     5166   03 0098F    680004B5              B        FUCTEXIT          GO BACK TO FTM                  *B00
     5167                            *                                                                   *B00
     5168   03 00990    6AF01556     T1ST1912 BAL,15   TST1ERMG          REPORT ERROR                    *B01
     5169   03 00991    00000780 A            DATA     1920              *** 1920 ***                    *B01
     5170   03 00992    EAF0021D A            BAL,15   *:SENSE           TEST SENSE SWITCHES             *B01
     5171   03 00993    2E000993              WAIT     %                                                 *B01
     5172   03 00994    68000964              B        T1ST19            RESTART TEST                    *B01
     5173   03 00995    680004B5              B        FUCTEXIT          GO BACK TO FTM                  *B01
     5174                            *                                                                   *B00
     5175                                     BOUND    8                                                 *B00
     5176                            *                                                                   *B00
     5177                            *                                                                   *B00
     5178   03 00996    00000000 A   T1ST19IT DATA     0,0               DATA FORMAT                     *B00
            03 00997    00000000 A
     5179   03 00998    0000099A              DATA     T1ST19IP                                          *B00
     5180   03 00999    07000000 A            DATA     7**24                                             *B00
     5181                            *                                                                   *B00
     5182                            *                                                                   *B00
     5183                            *                                                                   *B00
     5184                            *                                                                   *B00
     5185   03 0099A    6ED00000 A   T1ST19IP AIO,13   0                 AIO                             *B00
     5186   03 0099B    3310099E              MTW,1    T1ST19LP          ADD 1                           *B00
     5187   03 0099C    0E300996              LPSD,3   T1ST19IT                                          *B00
     5188                            *                                                                   *B00
     5189                            *                                                                   *B00
     5190                            *                                                                   *B00
     5191   03 0099D    0F200996     T1ST19XP XPSD,2   T1ST19IT                                          *C02
     5192   03 0099E    00000000 A   T1ST19LP DATA     0                                                 *B00
     5193                                     PAGE                                                       *B00
     5194                            *                                                                   *B00
     5195                            *                 *** T S T 1 , 20 ***                              *B00
     5196                            *                                                                   *B00
     5197                            *                 *** S E E K / S E N S E  T E S T ***              *B00
     5198                            *                                                                   *B00
     5199                            *                 THIS SUBTEST VERIFIES THAT ALL SECTORS AND        *B00
     5200                            *                 TRACKS (BANDS) CAN BE SEEKED THEN SENSED.         *B00
     5201                            *                 IF ANY ERRORS ARE DETECTED A TABLE WILL BE        *B00
     5202                            *                 OUTPUT SHOWING THE NUMBER OF TIMES EACH           *B00
     5203                            *                 SECTOR OR TRACK (BAND) WAS OBSERVED.              *B00
     5204                            *                 EACH SECTOR OR TRACK (BAND) SHOULD HAVE BEEN      *B00
     5205                            *                 OBSERVED ONLY ONCE.                               *B00
     5206                            *                                                                   *B00
     5207   03 0099F    22F007DA A   T1ST20   LI,15    2010              LOAD AND SAVE                   *B00
     5208   03 009A0    35F015BB              STW,15   TABDPLY1              TEST ERROR NO.              *B00
     5209   03 009A1    32401CCB              LW,4     #DDTBIAS                                          *A01
     5210   03 009A2    02200090 A            LCI      #DDTADR3-#DDTADR1                                 *A01
     5211   03 009A3    2A681CCC              LM,6     MODEL,4                                           *A01
     5212   03 009A4    2B601D34              STM,6    MODELC                                            *A01
     5213   03 009A5    02200040 A            LCI      4                 LOAD AND                        *B00
     5214   03 009A6    2A40162A              LM,4     TABLE011              SAVE                        *B00
     5215   03 009A7    2B4015F8              STM,4    TABLE100+2            'SEEK/SENSE TEST            *B00
     5216   03 009A8    12401620              LD,4     TABLE001          LOAD AND                        *B00
     5217   03 009A9    5542160A              STH,4    TABLE101,1            SAVE                        *B00
     5218   03 009AA    3550160B              STW,5    TABLE101+1            'SECTOR'                    *B00
     5219   03 009AB    22000000 A            LI,0     0                                                 *B00
     5220   03 009AC    35001632              STW,0    TABPASS           RESET PRINT INHIBIT FLAG        *B00
     5221   03 009AD    326023E4              LW,6     L(X'101DFFFF')    LOAD AND SAVE                   *B00
     5222   03 009AE    356014F5              STW,6    :FTIOMSK              A TIO MASK                  *B00
     5223   03 009AF    326023E5              LW,6     L(X'00B7FFFF')    LOAD AND SAVE                   *B00
     5224   03 009B0    356014F6              STW,6    :FAIOMSK              A AIO MASK                  *B00
     5225                            *                                                                   *B00
     5226                            *                 *** 2 0 1 0 ***                                   *B00
     5227                            *                 THIS TEST IS DESIGNED TO SENSE THE SEEKED SECTOR. *B00
     5228                            *                 IT WILL ATTEMPT TO SEEK THEN SENSE ALL SECTORS    *B00
     5229                            *                 OF A TRACK (BAND).  IF A SECTOR IS NOT FOUND      *B00
     5230                            *                 OR IS FOUND MORE THAN ONCE PER TRACK (BAND),      *B00
     5231                            *                 A TABLE WILL BE OUTPUT SHOWING THE NUMBER         *B00
     5232                            *                 OF TIMES EACH SECTOR WAS SENSED.                  *B00
     5233                            *                                                                   *B00
     5234                            *                                                                   *B00
     5235   03 009B1    32601D36     T1ST2010 LW,6     SECTCURR          LOAD NO. OF SECTORS             *B00
     5236   03 009B2    356014F7              STW,6    T1ST34SV          SAVE NORMAL LENGHT OF TABLE     *B00
     5237   03 009B3    22600052 A            LI,6     82                LOAD SIZE OF MEMORY RESERVE AREA*B00
     5238   03 009B4    6AF01C34              BAL,15   MEMORY3           GO MAKE MEMORY AVAILABLE        *B00
     5239   03 009B5    680004B5              B        FUCTEXIT          IF NOT ENOUGH MEMORY SKIP TEST  *B00
     5240   03 009B6    326014F7              LW,6     T1ST34SV          LOAD NORMAL LENGHT OF TABLE     *B00
     5241   03 009B7    32501D38              LW,5     CURRSEEK          LOAD CURRENT SEEK ADDR          *B00
     5242   03 009B8    6AC01C24     T1ST2011 BAL,12   BUILDSK           GO BUILD DEV SEEK ADDR          *B00
     5243   03 009B9    6AF013D3              BAL,15   :SEEKMOD          GO SEEK THE RAD                 *B00
     5244   03 009BA    680009BB              B        %+1                                               *B00
     5245   03 009BB    20500001 A            AI,5     1                 UPDATE ABSOLUTE SEEK ADDR       *B00
     5246   03 009BC    6AF01402              BAL,15   :SENSEMOD         GO SENSE RAD                    *B00
     5247   03 009BD    680009BE              B        %+1                                               *B00
     5248   03 009BE    7272141C              LB,7     :SNSWORD,1        LOAD SEEK SECTOR SENSE STATUS   *B00
     5249   03 009BF    22400020 A            LI,4     32                LOAD BIT WORD LENGTH            *B00
     5250   03 009C0    38401D3C              SW,4     TCKCURR           SUBTRACT SHIFT CONSTANT         *B00
     5251   03 009C1    A5700004 A            SLS,7    *4                SHIFT TO LEFT TO REMOVE TRACK   *B00
     5252                            *                                                      (B) INF      *B00
     5253   03 009C2    32401D3C              LW,4     TCKCURR                                           *B00
     5254   03 009C3    20400200 A            AI,4     X'200'                                            *B00
     5255   03 009C4    A5700004 A            SCS,7    *4                                                *B00
     5256   03 009C5    6AF0159C              BAL,15   TABUILD           GO TO BUILD TABLE ROUTINE       *B00
     5257   03 009C6    680009CB              B        T1ST2020          IF DONE NEXT TEST               *B00
     5258   03 009C7    680009B8              B        T1ST2011          IF NOT DONE LOOP                *B00
     5259   03 009C8    EAF0021D A            BAL,15   *:SENSE           IF ERROR TEST SENSE SWITCHES    *B00
     5260   03 009C9    2E0009C9              WAIT     %                                                 *B00
     5261   03 009CA    680009B1              B        T1ST2010          LOOP ON ERROR                   *B00
     5262                            *                                                                   *B00
     5263                            *                 *** 2 0 2 0 ***                                   *B00
     5264                            *                                                                   *B00
     5265                            *                 THIS TEST IS DESIGNED TO SENSE THE SEEKED TRACK   *B00
     5266                            *                 (BAND) IT WILL ATTEMPT TO SEEK THEN SENSE ALL     *B00
     5267                            *                 TRACKS (BANDS) SPECIFIED BY THE 'SYST' AND        *B00
     5268                            *                 'SEEK' DIRECTIVES.  IF A TRACK (BAND) IS NOT      *B00
     5269                            *                 FOUND OR IS FOUND MORE THAN ONCE A TABLE WILL     *B00
     5270                            *                 BE OUTPUT SHOWING THE NUMBER OF TIMES EACH        *B00
     5271                            *                 TRACK (BAND) WAS SENSED.                          *B00
     5272                            *                                                                   *B00
     5273   03 009CB    22F007E4 A   T1ST2020 LI,15    2020              LOAD AND SAVE                   *B00
     5274   03 009CC    35F015BB              STW,15   TABDPLY1              TEST ERROR NO.              *B00
     5275   03 009CD    12401622              LD,4     TABLE002          LOAD 'BAND'                     *B00
     5276   03 009CE    22707212 A            LI,7     X'7212'           LOAD HIGH SPEED MODEL NO.       *B00
     5277   03 009CF    31701D34              CW,7     MODELC                IS IT HIGH SPEED?           *B00
     5278   03 009D0    683009D2              BE       %+2                   IF SO BRANCH                *B00
     5279   03 009D1    12401624              LD,4     TABLE003          LOAD 'TRACK'                    *B00
     5280   03 009D2    5542160A              STH,4    TABLE101,1        STORE                           *B00
     5281   03 009D3    3550160B              STW,5    TABLE101+1            INFORMATION INTO MESSAGE    *B00
     5282   03 009D4    32401CCB              LW,4     #DDTBIAS          LOAD BIAS POINTER               *B00
     5283   03 009D5    32581CD0              LW,5     SLOWER,4          FETCH WORD                      *B00
     5284   03 009D6    6AC01C24              BAL,12   BUILDSK           GO TO BUILDSK SUBR.             *B00
     5285   03 009D7    3A701D3C              LCW,7    TCKCURR           FETCH COMPLEMENT WORD           *B00
     5286   03 009D8    4B7023E6              AND,7    =X'7F'            MASKING                         *B00
     5287   03 009D9    329013FA              LW,9     SEEKRAD           FETCH WORD                      *B00
     5288   03 009DA    A5900007 A            SLS,9    *7                SHIFT                           *B00
     5289   03 009DB    22800000 A            LI,8     0                 FETCH ZERO                      *B00
     5290   03 009DC    37801D36              MW,8     SECTCURR          MULTIPLICATION                  *B00
     5291   03 009DD    35901D38              STW,9    CURRSEEK          STORE WORD                      *B00
     5292   03 009DE    32501D39              LW,5     SURFCEND          LOAD ABSOLUTE UPPER LIMIT       *B00
     5293   03 009DF    22000000 A            LI,0     0                                                 *B00
     5294   03 009E0    35001632              STW,0    TABPASS                                           *B00
     5295   03 009E1    38501D38              SW,5     CURRSEEK                                          *B00
     5296   03 009E2    6AC01C24              BAL,12   BUILDSK           GO CONVERT TO RAD ADDR          *B00
     5297   03 009E3    326013FA              LW,6     SEEKRAD           LOAD DEVICE SEEK SPAN           *B00
     5298   03 009E4    A5600007 A            SLS,6    *7                REMOVE SECTOR ADDR              *B00
     5299   03 009E5    356014F7              STW,6    T1ST34SV                                          *B00
     5300   03 009E6    33000006 A            MTW,0    6                                                 *B00
     5301   03 009E7    682004B5              BLEZ     FUCTEXIT          IF LESS OR EQUAL ZERO EXIT      *B00
     5302   03 009E8    22600200 A   T1ST2022 LI,6     512                                               *B00
     5303   03 009E9    6AF01C34              BAL,15   MEMORY3           GO MAKE MEMORY AVAILABLE        *B00
     5304   03 009EA    680004B5              B        FUCTEXIT          IF NONE AVAILABLE SKIP TEST     *B00
     5305   03 009EB    3A701D3C              LCW,7    TCKCURR                                           *B00
     5306   03 009EC    32501D38              LW,5     CURRSEEK          LOAD ABSOLUTE SEEK ADDR         *B00
     5307   03 009ED    6AC01C24              BAL,12   BUILDSK           GO CONVERT TO DEVICE SEEK ADDR  *B00
     5308   03 009EE    328013FA              LW,8     SEEKRAD           LOAD DEVICE SEEK ADDRESS        *B00
     5309   03 009EF    4B7023E6              AND,7    =X'7F'                                            *B00
     5310   03 009F0    A5800007 A            SLS,8    *7                REMOVE SECTOR ADDR              *B00
     5311   03 009F1    35801633              STW,8    TABBIAS           SET UP TABLE BIAS               *B00
     5312   03 009F2    308014F7              AW,8     T1ST34SV          ADD WORDS                       *B00
     5313   03 009F3    35801C97              STW,8    SECTLMT           STORE WORD INTO SECTLMT         *B00
     5314   03 009F4    33000000 A            MTW,0    0                 NO OPERATION                    *B00
     5315                            T1ST2021 ;                                                          *B00
     5316   03 009F5    326014F7              LW,6     T1ST34SV          FETCH WORD                      *B00
     5317   03 009F6    6AC01C24              BAL,12   BUILDSK           GO TO BUILDSK SUBR.             *B00
     5318   03 009F7    6AF013D3              BAL,15   :SEEKMOD          GO SEEK RAD                     *B00
     5319   03 009F8    30501D36              AW,5     SECTCURR          UPDATE SEEK ADDRESS             *B00
     5320   03 009F9    6AF01402              BAL,15   :SENSEMOD         GO SENSE RAD                    *B00
     5321   03 009FA    5270141C              LH,7     :SNSWORD          LOAD SEEKED TRACK (BAND)        *B00
     5322   03 009FB    4B7023E7              AND,7   =X'7FFF'           REMOVE WRITE PROTECT BIT        *B00
     5323   03 009FC    3A401D3C              LCW,4    TCKCURR           LOAD CURRENT SHIFT COUNT        *B00
     5324   03 009FD    4B4023E6              AND,4    =X'7F'            REMOVE ALL BUT SHIFT INFORMATION*B00
     5325   03 009FE    A5700004 A            SLS,7    *4                POSITION TO REMOVE SECTOR       *B00
     5326   03 009FF    6AF0159C              BAL,15   TABUILD           GO UPDATE TABLE                 *B00
     5327   03 00A00    680004B5              B        FUCTEXIT          IF DONE EXIT                    *B00
     5328   03 00A01    680009F5              B        T1ST2021          IF NOT DONE LOOP                *B00
     5329   03 00A02    EAF0021D A            BAL,15   *:SENSE           IF ERROR TEST SENSE SWITCHES    *B00
     5330   03 00A03    2E000A03              WAIT     %                                                 *B00
     5331   03 00A04    680009E8              B        T1ST2022          LOOP ON ERROR                   *B00
     5332   03 00A05    680004B5              B        FUCTEXIT                                          *B00
     5333                                     PAGE                                                       *B00
     5334                            *                                                                   *B00
     5335                            *                 *** T S T 1 , 2 1 ***                             *B00
     5336                            *                                                                   *B00
     5337                            *                 *** T R A C K ( B A N D ) A V A I L A B I L I T Y *B00
     5338                            *                                                                   *B00
     5339                            *                 A N D  N O T  W R I T E  P R O T E C T ***        *B00
     5340                            *                                                                   *B00
     5341                            *                 THIS SUBTEST VERIFIES THAT ALL TRACKS (BANDS)     *B00
     5342                            *                 ALLOCATED TO THE FUCTIONAL TEST ARE BOTH AVAILABLE*B00
     5343                            *                 AND NOT WRITE RPOTECTED.                          *B00
     5344                            *                                                                   *B00
     5345                            *                                                                   *B00
     5346                            T1ST21 ;                                                            *B00
     5347   03 00A06    3510103D              STW,1    #MSGER41          SET SEEK INHIBIT PRINTOUT       *A01
     5348   03 00A07    328023E4              LW,8     L(X'101DFFFF')    SET UP                          *B00
     5349   03 00A08    358014F5              STW,8    :FTIOMSK              TIO MASK FOR FUNCTIONAL TEST*B00
     5350   03 00A09    328023E5              LW,8     L(X'00B7FFFF')    SET UP                          *B00
     5351   03 00A0A    358014F6              STW,8    :FAIOMSK              AIO MASK FOR FUNCTIONAL TEST*B00
     5352   03 00A0B    22400000 A            LI,4     0                                                 *B00
     5353   03 00A0C    35401550              STW,4    TCKUNVL           LOAD TRACK-BAND UNAVAILABLE ADDR*B00
     5354   03 00A0D    35401552              STW,4    TCKWPVL1          LOAD TRACK-BAND WRT PROTECT ADDR*B00
     5355   03 00A0E    35401554              STW,4    TCKWPVL           LOAD TRACN-BAND WRT PROTECT ADDR*B00
     5356   03 00A0F    22400000 A   T1ST2108 LI,4     0                                                 *B00
     5357   03 00A10    325013FA              LW,5     SEEKRAD           LOAD SEEK ADDR.                 *B00
     5358                            T1ST2109 ;                                                          *B00
     5359   03 00A11    3A401D3C              LCW,4    TCKCURR           LOAD WORD COMPLEMENT            *B00
     5360   03 00A12    4B4023E6              AND,4    =X'7F'            AND                             *B00
     5361   03 00A13    A5500004 A            SLS,5    *4                SHIFT                           *B00
     5362   03 00A14    22400000 A            LI,4     0                                                 *B00
     5363   03 00A15    35400A76              STW,4    T1ST21XF                                          *B00
     5364   03 00A16    35500006 A            STW,5    6                 LOAD TRACK (BAND) ADDRESS       *B00
     5365   03 00A17    306023E8              AW,6    =X'80000000'       SET UP FO REGISTER IS NOT ZERO  *B00
     5366   03 00A18    37401D36              MW,4     SECTCURR          CALCULATE NEW DEVICE SEEK ADDR  *B00
     5367   03 00A19    6AC01C24     T1ST2110 BAL,12   BUILDSK                                           *B00
     5368                            *                                                                   *B00
     5369                            *                 *** 2 1 1 0 ***                                   *B00
     5370                            *                                                                   *B00
     5371                            *                 THIS TEST VERIFIES THAT THIS TRACK (BANDS)        *B00
     5372                            *                 IS AVAILABLE.                                     *B00
     5373                            *                                                                   *B00
     5374   03 00A1A    6AF013D3              BAL,15   :SEEKMOD          SEEK A TRACK (BAND)             *B00
     5375   03 00A1B    68000A1C              B        %+1                                               *B00
     5376   03 00A1C    6AF01402              BAL,15   :SENSEMOD         GO SENSE A TRACK (BAND)         *B00
     5377   03 00A1D    68000A1E              B        %+1                                               *B00
     5378   03 00A1E    6AF01F13              BAL,15   :TDV              GO FETCH TDV STATUS             *B00
     5379   03 00A1F    20000001 A            DATA     X'20000001'       TEST FOR SECTOR UNAVAILABLE     *B00
     5380   03 00A20    00000000 A            DATA     X'0'                                              *B00
     5381   03 00A21    68000A27              B        T1ST2111          IF AVAILABLE BRANCH             *B00
     5382   03 00A22    35601551              STW,6    TCKUNVH           IF NOT STORE AS UPPER LIMIT     *B00
     5383   03 00A23    33001550              MTW,0    TCKUNVL           TEST LOWER LIMIT                *B00
     5384   03 00A24    69300A26              BNEZ     %+2               IF NONE                         *B00
     5385   03 00A25    35601550              STW,6    TCKUNVL               STORE AS LOWER LIMIT TOO    *B00
     5386   03 00A26    68000A32              B        T1ST2120          GO TO NEXT TEST                 *B00
     5387   03 00A27    33001550     T1ST2111 MTW,0    TCKUNVL           TEST LOWER LIMIT                *B00
     5388   03 00A28    68300A32              BEZ      T1ST2120          IF ZERO NEXT TEST               *B00
     5389   03 00A29    6AF01556              BAL,15   TST1ERMG          GO REPORT ERROR                 *B00
     5390   03 00A2A    0000083E A            DATA     2110              *** ERROR 2110 ***              *B00
     5391   03 00A2B    6AF0150F              BAL,15   T1ST19RP          REPORT WRITE PROTECT VIOLATE    *B00
     5392   03 00A2C    00001550              DATA     TCKUNVL                                           *B00
     5393   03 00A2D    EAF0021D A            BAL,15   *:SENSE           TEST SENSE SWITCHES             *B00
     5394   03 00A2E    2E000A2E              WAIT     %                                                 *B00
     5395   03 00A2F    68000A11              B        T1ST2109          LOOP ON ERROR                   *B00
     5396   03 00A30    33000A76              MTW,0    T1ST21XF                                          *B00
     5397   03 00A31    68300A0F              BEZ      T1ST2108          CONTINUE                        *B00
     5398                            *                                                                   *B00
     5399                            *                 *** 2 1 2 0 ***                                   *B00
     5400                            *                                                                   *B00
     5401                            *                 THIS TEST VERIFIES THAT THIS TRACK (BAND)         *B00
     5402                            *                 WAS NOT REPORTED WRITE PROTECTED IN THE           *B00
     5403                            *                 TEST DEVICE STATUS (TDV).                         *B00
     5404   03 00A32    6AF01F16     T1ST2120 BAL,15   :TDV+3            TO TEST THE DEVICE STATUS       *B00
     5405   03 00A33    10000001 A            DATA     X'10000001'                                       *B00
     5406   03 00A34    00000000 A            DATA     X'0'                                              *B00
     5407   03 00A35    68000A3B              B        T1ST2121          IF NOT WRITE PROTECTED BRANCH   *B00
     5408   03 00A36    35601553              STW,6    TCKWPVH1          IF NOT STORE UPPER LIMIT        *B00
     5409   03 00A37    33001552              MTW,0    TCKWPVL1          TEST LOWER LIMIT                *B00
     5410   03 00A38    69300A3A              BNEZ     %+2               IF NONE                         *B00
     5411   03 00A39    35601552              STW,6    TCKWPVL1              STORE AS LOWER LIMIT TOO    *B00
     5412   03 00A3A    68000A46              B        T1ST2130                                          *B00
     5413   03 00A3B    33001552     T1ST2121 MTW,0    TCKWPVL1          TEST LOWER LIMIT                *B00
     5414   03 00A3C    68300A46              BEZ      T1ST2130          IF ZERO NEXT TEST               *B00
     5415   03 00A3D    6AF01556              BAL,15   TST1ERMG          GO REPORT ERROR                 *B00
     5416   03 00A3E    00000848 A            DATA     2120              *** ERROR 2120 ***              *B00
     5417   03 00A3F    6AF0150F              BAL,15   T1ST19RP          REPORT WRITE PROTECT VIOLATE    *B00
     5418   03 00A40    00001552              DATA     TCKWPVL1                                          *B00
     5419   03 00A41    EAF0021D A            BAL,15   *:SENSE           GO TEST SENSE SWITCHES          *B00
     5420   03 00A42    2E000A42              WAIT     %                                                 *B00
     5421   03 00A43    68000A11              B        T1ST2109          LOOP ON ERROR                   *B00
     5422   03 00A44    33000A76              MTW,0    T1ST21XF                                          *B00
     5423   03 00A45    68300A0F              BEZ      T1ST2108          CONTINUE                        *B00
     5424                            *                                                                   *B00
     5425                            *                 *** 2 1 3 0 ***                                   *B00
     5426                            *                                                                   *B00
     5427                            *                 THIS TEST VERIFIES THAT THIS TRACK (BAND)         *B00
     5428                            *                 WAS NOT REPORTED WRITE PROTECTED IN THE RETURNED  *B00
     5429                            *                 SENSE WORD.                                       *B00
     5430                            *                                                                   *B00
     5431                            T1ST2130 ;                                                          *B00
     5432   03 00A46    3300141C              MTW,0    :SNSWORD          TEST FOR WRITE PROTECT          *B00
     5433   03 00A47    68100A4D              BGEZ     T1ST2132                                          *B00
     5434   03 00A48    35601555              STW,6    TCKWPVH           IF NONE STORE UPPER LIMIT       *B00
     5435   03 00A49    33001554              MTW,0    TCKWPVL           TEST LOWER LIMIT                *B00
     5436   03 00A4A    69300A4C              BNEZ     %+2               IF NONE                         *B00
     5437   03 00A4B    35601554              STW,6    TCKWPVL               STORE AS LOWER LIMIT        *B00
     5438   03 00A4C    68000A58              B        T1ST2140          GO TO NEXT STEP                 *B00
     5439   03 00A4D    33001554     T1ST2132 MTW,0    TCKWPVL           TEST LOWER LIMIT                *B00
     5440   03 00A4E    68300A58              BEZ      T1ST2140          IF ZERO NEXT PASS               *B00
     5441   03 00A4F    6AF01556              BAL,15   TST1ERMG          GO REPORT ERROR                 *B00
     5442   03 00A50    00000852 A            DATA     2130              *** ERROR 2130 ***              *B00
     5443   03 00A51    6AF0150F              BAL,15   T1ST19RP          REPORT WRITE PROTECT VIOLATE    *B00
     5444   03 00A52    00001554              DATA     TCKWPVL                                           *B00
     5445   03 00A53    EAF0021D A            BAL,15   *:SENSE           GO TEST SENSE SWITCHES          *B00
     5446   03 00A54    2E000A54              WAIT     %                                                 *B00
     5447   03 00A55    68000A11              B        T1ST2109          LOOP ON ERROR                   *B00
     5448   03 00A56    33000A76              MTW,0    T1ST21XF                                          *B00
     5449   03 00A57    68300A0F              BEZ      T1ST2108          CONTINUE                        *B00
     5450                            *                                                                   *B00
     5451                            *                                                                   *B00
     5452   03 00A58    33000A76     T1ST2140 MTW,0    T1ST21XF          IS EXIT FLAG SET ?              *B00
     5453   03 00A59    69300A63              BNEZ     T1ST2150            IF SO, GO TEST LAST STATUS    *BOO
     5454   03 00A5A    20600001 A   T1ST2131 AI,6     1                 ADD 1 TO TRACK (BAND) COUNT     *B00
     5455   03 00A5B    30501D36              AW,5     SECTCURR          ADD TO TRACK (BAND) ADDR        *B00
     5456   03 00A5C    31501D39              CW,5     SURFCEND          IF NOT                          *B00
     5457   03 00A5D    69100A19              BL       T1ST2110          PASS END GO TRY NEXT TRACK(BAND)*B00
     5458   03 00A5E    35100A76              STW,1    T1ST21XF          SET EXIT FLAG                   *B00
     5459   03 00A5F    22000000 A            LI,0     0                 ZERO                            *B00
     5460   03 00A60    35002023              STW,0    :STATUSCC         CONDITIONS                      *B00
     5461   03 00A61    3500141C              STW,0    :SNSWORD                                          *B00
     5462   03 00A62    68000A27              B        T1ST2111          GO BACK FOR LAST PASS           *B00
     5463                            *                                                                   *B00
     5464   03 00A63    33001550     T1ST2150 MTW,0    TCKUNVL           TEST LOWER LIMIT                *BOO
     5465   03 00A64    68300A6A              BEZ      %+6               IF ZERO NEXT TEST               *BOO
     5466   03 00A65    6AF01556              BAL,15   TST1ERMG          GO REPORT ERROR                 *BOO
     5467   03 00A66    0000083E A            DATA     2110              *** ERROR 2110 ***              *BOO
     5468   03 00A67    6AF0150F              BAL,15   T1ST19RP          REPORT WRITE PROTECT VIOLATE    *BOO
     5469   03 00A68    00001550              DATA     TCKUNVL                                           *BOO
     5470   03 00A69    680004B6              B        FUCTEXIT+1        ERROR                           *C01
     5471   03 00A6A    33001552              MTW,0    TCKWPVL1          TEST LOWER LIMIT                *BOO
     5472   03 00A6B    68300A71              BEZ      %+6               IF ZERO NEXT TEST               *BOO
     5473   03 00A6C    6AF01556              BAL,15   TST1ERMG          GO REPORT ERROR                 *BOO
     5474   03 00A6D    00000848 A            DATA     2120              *** ERROR 2120 ***              *BOO
     5475   03 00A6E    6AF0150F              BAL,15   T1ST19RP          REPORT WRITE PROTECT VIOLATE    *BOO
     5476   03 00A6F    00001552              DATA     TCKWPVL1                                          *BOO
     5477   03 00A70    680004B6              B        FUCTEXIT+1        ERROR                           *C01
     5478   03 00A71    33001554              MTW,0    TCKWPVL           TEST LOWER LIMIT                *BOO
     5479   03 00A72    683004B5              BEZ      FUCTEXIT                                          *C01
     5480   03 00A73    6AF01556              BAL,15   TST1ERMG          GO REPORT ERROR                 *BOO
     5481   03 00A74    00000852 A            DATA     2130              *** ERROR 2130 ***              *BOO
     5482   03 00A75    680004B6              B        FUCTEXIT+1        GO TEST SENSE SWITCHES          *BOO
     5483                            *                                                                   *B00
     5484                            *                                                                   *B00
     5485   03 00A76    00000000 A   T1ST21XF DATA     0                 TST1,21 EXIT FLAG               *B00
     5486   03 00A77    00000000 A            DATA     0                                                 *B00
     5487                                     PAGE                                                       *B00
     5488                            *                 *** T S T 1 , 2 2                                 *B00
     5489                            *                                                                   *B00
     5490                            *                 *** U N A V A I L A B I L I T Y  T E S T ***      *B00
     5491                            *                                                                   *B00
     5492                            *                 THIS SUBTEST VERIFIES THAT SECTOR UNAVAILABLE     *B00
     5493                            *                 WILL BE REPORTED, WHENEVER A UNAVAILABLE SECTOR   *B00
     5494                            *                 OR TRACK (BAND) IS SEEKED.                        *B00
     5495                            *                                                                   *B00
     5496                            *                                                                   *B00
     5497                            T1ST22 ;                                                            *B00
     5498   03 00A78    3310103D              MTW,1    #MSGER41                                          *A01
     5499   03 00A79    3A401D3C              LCW,4    TCKCURR           LOAD - TRACK SHIFT COUNT        *B00
     5500   03 00A7A    4B4023E6              AND,4    =X'7F'                                            *B00
     5501   03 00A7B    32601D36              LW,6     SECTCURR          LOAD NO. OF SECTORS/TRACK (BAND)*B00
     5502   03 00A7C    A5600004 A            SLS,6    *4                SHIFT                           *B00
     5503   03 00A7D    33000006 A            MTW,0    6                                                 *B00
     5504   03 00A7E    69300A8B              BNEZ     T1ST2220                                          *B00
     5505                            *                                                                   *B00
     5506                            *                 *** 2 2 1 0 ***                                   *B00
     5507                            *                                                                   *B00
     5508                            *                 THIS TEST SEEKS A UNAVAILABLE SECTOR, IT TESTS    *B00
     5509                            *                 FOR SECTOR UNAVAILABLE. (TEST ONLY DONE FOR 7232 &*B00
     5510                            *                 7212).                                            *B00
     5511   03 00A7F    32501D36     T1ST2210 LW,5     SECTCURR          LOAD MAXIMUM NO. OF SECTOR/TRACK*B00
     5512                            *                                                       (B)         *B00
     5513   03 00A80    355013FA              STW,5    SEEKRAD           USE THIS AS SEEK ADDR.          *B00
     5514   03 00A81    6AF0142C              BAL,15   :FUCTEST          GO TO FUCTIONAL TEST ROUTINE    *B00
     5515   03 00A82    0000127E              DATA     IOCD2210                                          *B00
     5516   03 00A83    000008A2 A            DATA     2210              *** 2 2 1 0 ***                 *B00
     5517   03 00A84    0000133D              DATA     BSIP2210                                          *B00
     5518   03 00A85    0000133F              DATA     BSNP2210                                          *B00
     5519   03 00A86    68000A8B              B        T1ST2220                                          *B00
     5520   03 00A87    CF001D35              HIO,0    *:DEVADDR         HALT DEVICE                     *B00
     5521   03 00A88    EAF0021D A            BAL,15   *:SENSE           GO TEST SENSE SWITCHES          *B00
     5522   03 00A89    2E000A89              WAIT     %                                                 *B00
     5523   03 00A8A    68000A78              B        T1ST22                                            *B00
     5524                            *                                                                   *B00
     5525                            *                 *** 2 2 2 0 ***                                   *B00
     5526                            *                                                                   *B00
     5527                            *                 THIS TEST SEEKS A UNAVAILABLE TRACK (BAND),IT TEST*B00
     5528                            *                 FOR THIS TRACK (BAND) BEING UNAVAILABLE.          *B00
     5529                            *                                                                   *B00
     5530   03 00A8B    32501D34     T1ST2220 LW,5     MODELC            LOAD MODEL NO.                  *B00
     5531   03 00A8C    22602000 A            LI,6     X'2000'           LOAD SEEK ADDRESS (720X OR 7232)*B00
     5532   03 00A8D    21507212 A            CI,5     X'7212'                                           *B00
     5533   03 00A8E    683004B5              BE       FUCTEXIT          * TO BE REMOVED BEFORE RELEASE  *B00
     5534   03 00A8F    356013FA              STW,6    SEEKRAD                                           *B00
     5535   03 00A90    6AF0142C              BAL,15   :FUCTEST        GO TO FUNCTIONAL TEST             *B00
     5536   03 00A91    0000127E              DATA     IOCD2210                                          *B00
     5537   03 00A92    000008AC A            DATA     2220              *** ERROR 2220 ***              *B00
     5538   03 00A93    0000133D              DATA     BSIP2210                                          *B00
     5539   03 00A94    0000133F              DATA     BSNP2210                                          *B00
     5540   03 00A95    680004B5              B        FUCTEXIT                                          *B00
     5541   03 00A96    CF001D35              HIO,0    *:DEVADDR         RESET DEV, WHERE ERROR WAS      *B00
     5542                            *                                               DETECTED            *B00
     5543   03 00A97    EAF0021D A            BAL,15   *:SENSE                                           *B00
     5544   03 00A98    2E000A98              WAIT     %                                                 *B00
     5545   03 00A99    68000A8B              B        T1ST2220          GO LOOP ON ERROR                *B00
     5546   03 00A9A    680004B5              B        FUCTEXIT                                          *B00
     5547                            *                                                                   *B00
     5548                                     PAGE                                                       *B00
     5549                            *                                                                   *B00
     5550                            *                 *** T S T 1 , 2 3 ***                             *B00
     5551                            *                                                                   *B00
     5552                            *                 *** C O M M A N D  C H A I N I N G  T E S T ***   *B00
     5553                            *                                                                   *B00
     5554                            *                 THIS SUBTEST TEST THE ABILITY OF THE RAD          *B00
     5555                            *                 TO DETECT AND RESPOND CORRECTLY TO                *B00
     5556                            *                 COMMAND CHAINING.                                 *B00
     5557                            *                                                                   *B00
     5558                            *                                                                   *B00
     5559                            *                                                                   *B00
     5560                            *                 *** 2 3 1 0 ***                                   *B00
     5561                            *                                                                   *B00
     5562                            *                 THIS TEST VERIFIES THAT COMMAND CHAINING WILL     *B00
     5563                            *                 OCCUR PROPERLY.                                   *B00
     5564                            *                                                                   *B00
     5565                            *                                                                   *B00
     5566   03 00A9B    22000000 A   T1ST23   LI,0     0                 ZERO                            *B00
     5567   03 00A9C    350004F6              STW,0    T1ERFLAG          TST1 ERROR FLAG                 *B00
     5568   03 00A9D    6AF0142D              BAL,15   :FUCTEST+1        GO TO FUNCTIONAL TEST           *B00
     5569   03 00A9E    00001280              DATA     IOCD2310                                          *B00
     5570   03 00A9F    00000906 A            DATA     2310              *** ERROR 2310 ***              *B00
     5571   03 00AA0    00001341              DATA     BSIP2310                                          *B00
     5572   03 00AA1    00001342              DATA     BSNP2310                                          *B00
     5573   03 00AA2    68000AA4              B        T1ST2311          GO TO NEXT TEST                 *B00
     5574   03 00AA3    331004F6              MTW,1    T1ERFLAG          SET TST1 ERROR FLAG             *B00
     5575                            *                                                                   *B00
     5576                            *                 *** 2 3 1 1 ***                                   *B00
     5577                            *                                                                   *B00
     5578                            *                 COMMAND CHAINING DID NOT TAKE PLACE.              *B00
     5579                            *                                                                   *B00
     5580   03 00AA4    CFC01D35     T1ST2311 HIO,12   *:DEVADDR         STOP DEVICE                     *B00
     5581   03 00AA5    21C00940              CI,12    DA(IOCD2310)      IS THE CURRENT COMMAND ADDR     *B00
     5582                            *                                               CORRECT             *B00
     5583   03 00AA6    69300AAA              BNE      T1ST2312          IF NO MATCH COMMAND CHAINING    *B00
     5584                            *                                               TOOK PLACE          *B00
     5585   03 00AA7    6AF01556              BAL,15   TST1ERMG          GO REPORT ERROR                 *B00
     5586   03 00AA8    00000907 A            DATA     2311              *** ERROR 2311 ***              *B00
     5587   03 00AA9    331004F6              MTW,1    T1ERFLAG          SET TST1 ERROR FLAG             *B00
     5588                            *                                                                   *B00
     5589                            *                 *** 2 3 1 2 ***                                   *B00
     5590                            *                                                                   *B00
     5591                            *                 DEVICE DID NOT STOP ON STOP ORDER.                *B00
     5592                            *                                                                   *B00
     5593   03 00AAA    21C00941     T1ST2312 CI,12    DA(IOCD2311)      TEST IOCD                       *B00
     5594   03 00AAB    68300AAF              BE       T1ST2313              IF SECOND 1 THINGS ARE GOOD *B00
     5595   03 00AAC    6AF01556              BAL,15   TST1ERMG          GO REPORT ERROR                 *B00
     5596   03 00AAD    00000908 A            DATA     2312              *** ERROR 2312 ***              *B00
     5597   03 00AAE    331004F6              MTW,1    T1ERFLAG          SET TST1 ERROR FLAG             *B00
     5598   03 00AAF    330004F6     T1ST2313 MTW,0    T1ERFLAG          TEST TST1 ERROR FLAG            *B00
     5599   03 00AB0    68300AB4              BEZ      T1ST2320          IF NOT SET NEXT TEST            *B00
     5600   03 00AB1    EAF0021D A            BAL,15   *:SENSE           GO TEST SENSE SWITCHES          *B00
     5601   03 00AB2    2E000AB2              WAIT     %                                                 *B00
     5602   03 00AB3    68000A9B              B        T1ST23            GO LOOP ON ERROR                *B00
     5603                            *                                                                   *B00
     5604                            *                 *** 2 3 2 0 ***                                   *B00
     5605                            *                                                                   *B00
     5606                            *                 THIS TEST VERIFIES THAT COMMAND CHAINING WILL     *B00
     5607                            *                 NOT OCCUR ON A STOP ORDER.  TEST FOR NOT          *B00
     5608                            *                 BUSY, ETC.                                        *B00
     5609                            *                                                                   *B00
     5610   03 00AB4    22000000 A   T1ST2320 LI,0     0                 ZERO                            *B00
     5611   03 00AB5    350004F6              STW,0    T1ERFLAG              TST1 ERROR FLAG             *B00
     5612   03 00AB6    6AF0142D              BAL,15   :FUCTEST+1        GO TO FUNCTIONAL TEST           *B00
     5613   03 00AB7    00001288              DATA     IOCD2320                                          *B00
     5614   03 00AB8    00000910 A            DATA     2320              *** ERROR 2320 ***              *B00
     5615   03 00AB9    00001341              DATA     BSIP2310                                          *B00
     5616   03 00ABA    00001342              DATA     BSNP2310                                          *B00
     5617   03 00ABB    68000ABD              B        T1ST2321          GO TO NEXT TEST                 *B00
     5618   03 00ABC    331004F6              MTW,1    T1ERFLAG          SET TST1 ERROR FLAG             *B00
     5619                            *                                                                   *B00
     5620                            *                 *** 2 3 2 1 ***                                   *B00
     5621                            *                                                                   *B00
     5622                            *                 COMMAND CHAINING DID TAKE PLACE ON STOP ORDER.    *B00
     5623                            *                                                                   *B00
     5624   03 00ABD    CFC01D35     T1ST2321 HIO,12   *:DEVADDR         HALT DEVICE                     *B00
     5625   03 00ABE    21C00944              CI,12    DA(IOCD2320)      TEST FOR COMMAND CHAINING NOT   *B00
     5626   03 00ABF    68300AC3              BE       T1ST2323              TAKEN PLACE IF SO, NEXT STEP*B00
     5627   03 00AC0    331004F6              MTW,1    T1ERFLAG          SET TST1 ERROR FLAG             *B00
     5628   03 00AC1    6AF01556              BAL,15   TST1ERMG          GO REPORT ERROR                 *B00
     5629   03 00AC2    00000911 A            DATA     2321              *** ERROR 2321 ***              *B00
     5630   03 00AC3    330004F6     T1ST2323 MTW,0    T1ERFLAG          TEST TST1 ERROR                 *B00
     5631   03 00AC4    683004B5              BEZ      FUCTEXIT              GO BACK TO FTM              *B00
     5632   03 00AC5    EAF0021D A            BAL,15   *:SENSE           GO TEST SENSE SWITCHES          *B00
     5633   03 00AC6    2E000AC6              WAIT     %                                                 *B00
     5634   03 00AC7    68000AB4              B        T1ST2320          GO LOOP ON ERROR                *B00
     5635   03 00AC8    680004B5              B        FUCTEXIT          GO BACK TO FTM                  *B00
     5636                                     PAGE
     5637                                     PAGE                                                       *BOO
     5638                            *                 *** T S T 1 , 2 4 ***                             *BOO
     5639                            *                                                                   *BOO
     5640                            *                 *** F A M  W R I T E / R E A D  B Y T E           *BOO
     5641                            *                                                                   *BOO
     5642                            *                     C O U N T  T E S T ***                        *BOO
     5643                            *                                                                   *BOO
     5644                            *                 *** (THIS TEST IS ONLY PERFORMED FOR THE 7201-3   *BOO
     5645                            *                      AND 7231-3 CONTROLLERS) ***                  *BOO
     5646                            *                                                                   *BOO
     5647                            *                 THIS TEST IS DESIGNED TO OPERATE THE CONTROLLER   *BOO
     5648                            *                 IN TEST MODE 1.  IT TRANSFERS FROM 1 TO 16 BYTES  *BOO
     5649                            *                 OF DATA FROM THE IO BUFFER WHICH STARTS ON A WORD *BOO
     5650                            *                 BOUNDRY TO THE FAM IN THE CONTROLLER AND          *BOO
     5651                            *                 SUBSEQUENTLY TRANSFERS 1 TO 16 BYTES FROM THE FAM *BOO
     5652                            *                 TO THE IO BUFFER.                                 *BOO
     5653                            *                                                                   *BOO
     5654   03 00AC9    6AF013CD     T1ST24   BAL,15   T1STMOD3          B: VERIFY IF MODEL -3 CONTR.    *BOO
     5655   03 00ACA    22E00001 A            LI,14    X'01'             TEST MODE BYTE                  *BOO
     5656   03 00ACB    6AF013B5              BAL,15   :SETEST           B: TEST MODE SUBROUTINE         *BOO
     5657   03 00ACC    7510128C              STB,1    IOCD2400          WRITE ORDER CODE                *BOO
     5658   03 00ACD    22A00975 A            LI,10    2421              INITIAL ERROR NO - WRITE        *BOO
     5659   03 00ACE    35A00AD2     T1ST2400 STW,10   T1ST24E           STORE ERROR NO                  *BOO
     5660   03 00ACF    5512128D              STH,1    IOCD2400+1,1      INITIALIZE BYTE CNT             *BOO
     5661   03 00AD0    6AF0142C              BAL,15   :FUCTEST          B: FUNCTIONAL TEST ROUTINE      *BOO
     5662   03 00AD1    0000128C              DATA     IOCD2400                                          *BOO
     5663   03 00AD2    00000000 A   T1ST24E  DATA     0                 *** 2421 TO 2436 ***   WRITE    *BOO
     5664                            *                                   *** 2441 TO 2456 ***   READ     *BOO
     5665   03 00AD3    00001343              DATA     BSIP2400                                          *BOO
     5666   03 00AD4    00001345              DATA     BSNP2400                                          *BOO
     5667   03 00AD5    68000AD9              B        %+4               CONTINUE                        *BOO
     5668   03 00AD6    EAF0021D A            BAL,15   *:SENSE                                           *BOO
     5669   03 00AD7    2E000AD7              WAIT     %                                                 *BOO
     5670   03 00AD8    68000AD0              B        T1ST24E-2         LOOP                            *BOO
     5671   03 00AD9    33100AD2              MTW,1    T1ST24E           INCR ERROR NO.                  *BOO
     5672   03 00ADA    3310128D              MTW,1    IOCD2400+1        INCR BYTE CNT                   *BOO
     5673   03 00ADB    52A2128D              LH,10    IOCD2400+1,1                                      *BOO
     5674   03 00ADC    21A00011 A            CI,10    17                TEST BYTE CNT                   *BOO
     5675   03 00ADD    69100AD0              BL       T1ST24E-2         B: TEST NEXT BYTE COUNT         *BOO
     5676   03 00ADE    7120128C              CB,2     IOCD2400          TEST ORDER CODE                 *BOO
     5677   03 00ADF    69300AE2              BNE      %+3               B: END OF TEST                  *BOO
     5678   03 00AE0    6AF013B2              BAL,15   :RSTEST           B: RESET TEST MODE              *BOO
     5679   03 00AE1    680004B5              B        FUCTEXIT          B: EXIT                         *BOO
     5680   03 00AE2    7520128C              STB,2    IOCD2400          READ ORDER CODE                 *BOO
     5681   03 00AE3    22A00989 A            LI,10    2441              INITIAL ERROR NO - READ         *BOO
     5682   03 00AE4    68000ACE              B        T1ST2400          B: LOOP ON READ TEST            *BOO
     5683                                     PAGE                                                       *BOO
     5684                            *                 *** T S T 1 ,  2 5 ***                            *BOO
     5685                            *                                                                   *BOO
     5686                            *                 *** F A M  W R I T E / R E A D  D A T A  T E S T **BOO
     5687                            *                                                                   *BOO
     5688                            *                 *** (THIS TEST IS ONLY PERFORMED FOR THE 7201-3   *BOO
     5689                            *                      AND 7231-3 CONTROLLERS) ***                  *BOO
     5690                            *                                                                   *BOO
     5691                            *                 THIS TEST IS DESIGNED TO OPERATE THE CONTROLLER   *BOO
     5692                            *                 IN TEST MODE 1. THIS TEST CHECKS THE DATA PATH    *BOO
     5693                            *                 TO AND FROM THE FAM AND THE 4-BYTE DATA PATH      *BOO
     5694                            *                 TO AND FROM THE IOP.                              *BOO
     5695                            *                                                                   *BOO
     5696   03 00AE5    6AF013CD     T1ST25   BAL,15   T1STMOD3          B: VERIFY IF MODEL -3 CONTR.    *BOO
     5697   03 00AE6    22E00001 A            LI,14    X'01'             TEST MODE BYTE                  *BOO
     5698   03 00AE7    6AF013B5              BAL,15   :SETEST           B: TEST MODE SUBROUTINE         *BOO
     5699   03 00AE8    22400000 A            LI,4     0                                                 *BOO
     5700   03 00AE9    35400B35     T1ST2500 STW,4    T1ST25XM          INDEX - MAJOR                   *BOO
     5701   03 00AEA    22A009CE A            LI,10    2510                                              *BOO
     5702   03 00AEB    35A00B06              STW,10   T1ST251E          INITIALIZE                      *BOO
     5703   03 00AEC    20A0000A A            AI,10    10                                                *BOO
     5704   03 00AED    35A00B14              STW,10   T1ST252E            ERROR NO.S                    *BOO
     5705   03 00AEE    20A0000A A            AI,10    10                                                *BOO
     5706   03 00AEF    35A00B1F              STW,10   T1ST253E                                          *BOO
     5707   03 00AF0    22600004 A            LI,6     4                                                 *BOO
     5708   03 00AF1    3560215B              STW,6    :PATWC            PATTERN WORD CNT                *BOO
     5709   03 00AF2    356021A8              STW,6    :CLRSIZE          STORE INTO CLRSIZE              *BOO
     5710   03 00AF3    22602418              LI,6     BUF1LO            BUFFER ADR                      *BOO
     5711   03 00AF4    35602158              STW,6    :PATBFR           STORE BUFFER ADR                *BOO
     5712   03 00AF5    356021A7              STW,6    :CLRADDR                                          *BOO
     5713   03 00AF6    22500000 A            LI,5     0                 INDEX - PATTERN                 *BOO
     5714   03 00AF7    35500B36     T1ST2501 STW,5    T1ST25XP                                          *BOO
     5715   03 00AF8    726A0B3E              LB,6     T1ST25TT,5        FETCH PATTERN TYPE              *BOO
     5716   03 00AF9    327A0B37              LW,7     T1ST25TP,5        FETCH PATTERN DATA              *BOO
     5717   03 00AFA    15602162              STD,6    :PATID            DEFINE PATTERN                  *BOO
     5718   03 00AFB    33000006 A            MTW,0    6                 TEST PATT TYPE                  *BOO
     5719   03 00AFC    68300AFE              BEZ      %+2               B: FIXED PATTERN                *BOO
     5720   03 00AFD    327023E9              LW,7     =X'04040404'      PATTERN INCREMENT               *BOO
     5721   03 00AFE    35702164              STW,7    :PATID+2                                          *BOO
     5722   03 00AFF    6AF0203B     T1ST2502 BAL,15   :PATTERN          SPREAD WRITE DATA               *BOO
     5723   03 00B00    32400B35              LW,4     T1ST25XM          INDEX - MAJOR                   *BOO
     5724   03 00B01    32880B40              LW,8     T1ST25AW,4        IOCD ADR - WRITE                *BOO
     5725   03 00B02    35800B05              STW,8    %+3                                               *BOO
     5726   03 00B03    7510128E              STB,1    IOCD2500          SET TO WRITE ORDER              *BOO
     5727   03 00B04    6AF0142C              BAL,15   :FUCTEST          B: FUNCTIONAL TEST ROUTINE      *BOO
     5728   03 00B05    00000000 A            DATA     0                 IOCD ADR                        *BOO
     5729   03 00B06    00000000 A   T1ST251E DATA     0                 *** 2510 TO 2512 ***            *BOO
     5730   03 00B07    00001346              DATA     BSIP2500                                          *BOO
     5731   03 00B08    00001348              DATA     BSNP2500                                          *BOO
     5732   03 00B09    68000B0D              B        %+4               B: CONTINUE                     *BOO
     5733   03 00B0A    EAF0021D A            BAL,15   *:SENSE           TEST SENSE SWITCHES             *BOO
     5734   03 00B0B    2E000B0B              WAIT     %                                                 *BOO
     5735   03 00B0C    68000B04              B        T1ST251E-2        LOOP                            *BOO
     5736   03 00B0D    6AF0219C              BAL,15   :CLEAR            CLEAR INPUT BUFFER              *BOO
     5737   03 00B0E    32400B35              LW,4     T1ST25XM          INDEX - MAJOR                   *BOO
     5738   03 00B0F    32880B43              LW,8     T1ST25AR,4        IOCD ADR - READ                 *BOO
     5739   03 00B10    35800B13              STW,8    %+3                                               *BOO
     5740   03 00B11    7520128E              STB,2    IOCD2500          SET TO READ ORDER               *BOO
     5741   03 00B12    6AF0142C              BAL,15   :FUCTEST          B: FUNCTIONAL TEST ROUTINE      *BOO
     5742   03 00B13    00000000 A            DATA     0                 IOCD ADR                        *BOO
     5743   03 00B14    00000000 A   T1ST252E DATA     0                 *** 2520 TO 2522 ***            *BOO
     5744   03 00B15    00001346              DATA     BSIP2500                                          *BOO
     5745   03 00B16    00001348              DATA     BSNP2500                                          *BOO
     5746   03 00B17    68000B1B              B        %+4               B: CONTINUE                     *BOO
     5747   03 00B18    EAF0021D A            BAL,15   *:SENSE           TEST SENSE SWITCHES             *BOO
     5748   03 00B19    2E000B19              WAIT     %                                                 *BOO
     5749   03 00B1A    68000B12              B        T1ST252E-2         LOOP                           *BOO
     5750   03 00B1B    3510215C              STW,1    :COMFLAG          INHIBIT COMPARE PRINTOUT        *BOO
     5751   03 00B1C    6AF02036              BAL,15   :COMPARE          B: COMPARE DATA                 *BOO
     5752   03 00B1D    68000B27              B        T1ST2503          B: NO ERRORS                    *BOO
     5753   03 00B1E    6AF01556              BAL,15   TST1ERMG                                          *BOO
     5754   03 00B1F    00000000 A   T1ST253E DATA     0                 *** 2530 TO 2532 ***            *BOO
     5755   03 00B20    22000000 A            LI,0     0                                                 *BOO
     5756   03 00B21    3500215C              STW,0    :COMFLAG          ALLOW COMPARE PRINTOUT          *BOO
     5757   03 00B22    6AF02036              BAL,15   :COMPARE          B: COMPARE DATA                 *BOO
     5758   03 00B23    68000B24              B        %+1                                               *BOO
     5759   03 00B24    EAF0021D A            BAL,15   *:SENSE           TEST SENSE SWITCHES             *BOO
     5760   03 00B25    2E000B25              WAIT     %                                                 *BOO
     5761   03 00B26    68000AFF              B        T1ST2502          LOOP                            *BOO
     5762   03 00B27    33100B36     T1ST2503 MTW,1    T1ST25XP          INCR PATTERN INDEX              *BOO
     5763   03 00B28    32500B36              LW,5     T1ST25XP          FETCH INDEX                     *BOO
     5764   03 00B29    21500007 A            CI,5     7                                                 *BOO
     5765   03 00B2A    69100AF8              BL       T1ST2501+1        B: NEXT PATTERN                 *BOO
     5766   03 00B2B    33100B35              MTW,1    T1ST25XM          INCR MAJOR INDEX                *BOO
     5767   03 00B2C    32400B35              LW,4     T1ST25XM          FETCH INDEX                     *BOO
     5768   03 00B2D    21400003 A            CI,4     3                                                 *BOO
     5769   03 00B2E    69100B31              BL       %+3               B: NEXT MAJOR SEQUENCE          *BOO
     5770   03 00B2F    6AF013B2              BAL,15   :RSTEST           B: RESET TEST MODE              *BOO
     5771   03 00B30    680004B5              B        FUCTEXIT          B: EXIT                         *BOO
     5772   03 00B31    33100B06              MTW,1    T1ST251E                                          *BOO
     5773   03 00B32    33100B14              MTW,1    T1ST252E          INCR ERROR NO                   *BOO
     5774   03 00B33    33100B1F              MTW,1    T1ST253E                                          *BOO
     5775   03 00B34    68000AF6              B        T1ST2501-1        B: CONTINUE                     *BOO
     5776   03 00B35    00000000 A   T1ST25XM DATA     0                 INDEX - MAJOR                   *BOO
     5777   03 00B36    00000000 A   T1ST25XP DATA     0                 INDEX - PATTERN                 *BOO
     5778                            T1ST25TP DATA     X'FFFFFFFF',0,X'AAAAAAAA',X'55555555',;   DATA    *BOO
     5779   03 00B37    FFFFFFFF A                     X'F0F0F0F0',X'C0300C03',X'00010203'       PATTERN *BOO
            03 00B38    00000000 A
            03 00B39    AAAAAAAA A
            03 00B3A    55555555 A
            03 00B3B    F0F0F0F0 A
            03 00B3C    C0300C03 A
            03 00B3D    00010203 A
     5780   03 00B3E    00000000 A   T1ST25TT DATA     0,X'00000100'                            DATA TYPE*BOO
            03 00B3F    00000100 A
     5781   03 00B40    0000128E     T1ST25AW DATA     IOCD2500          IOCD ADR                        *BOO
     5782   03 00B41    000012AE              DATA     IOCD2510            -                             *BOO
     5783   03 00B42    0000128E              DATA     IOCD2500              WRITE                       *BOO
     5784   03 00B43    0000128E     T1ST25AR DATA     IOCD2500          IOCD ADR                        *BOO
     5785   03 00B44    0000128E              DATA     IOCD2500            -                             *BOO
     5786   03 00B45    000012B0              DATA     IOCD2520              READ                        *BOO
     5787                                     PAGE                                                       *BOO
     5788                            *                 *** T S T 1 , 2 6 ***                             *BOO
     5789                            *                                                                   *BOO
     5790                            *                 *** F A M  W R I T E  R E A D  B Y T E            *BOO
     5791                            *                                                                   *BOO
     5792                            *                     A L I G N M E N T  T E S T ***                *BOO
     5793                            *                                                                   *BOO
     5794                            *                 *** (THIS TEST IS ONLY PERFORMED FOR THE 7201-3   *BOO
     5795                            *                      AND 7231-3 CONTROLLERS) ***                  *BOO
     5796                            *                                                                   *BOO
     5797                            *                 THIS TEST IS DESIGNED TO OPERATE THE CONTROLLER   *BOO
     5798                            *                 IN TEST MODE 1. IT TESTS THE ABILITY OF THE       *BOO
     5799                            *                 CONTROLLER TO HANDLE DATA PATTERNS THAT DO NOT    *BOO
     5800                            *                 START ON WORD BOUNDS IN MEMORY.                   *BOO
     5801                            *                                                                   *BOO
     5802   03 00B46    6AF013CD     T1ST26   BAL,15   T1STMOD3          B: VERIFY IF MODEL -3 CONTR.    *BOO
     5803   03 00B47    22E00001 A            LI,14    X'01'             TEST MODE BYTE                  *BOO
     5804   03 00B48    6AF013B5              BAL,15   :SETEST           B: TEST MODE SUBROUTINE         *BOO
     5805   03 00B49    22400000 A            LI,4     0                                                 *BOO
     5806   03 00B4A    35400BAB              STW,4    T1ST26X           INDEX                           *BOO
     5807   03 00B4B    22A00A3C A            LI,10    2620                                              *BOO
     5808   03 00B4C    35A00B63              STW,10   T1ST262E          INITIALIZE                      *BOO
     5809   03 00B4D    20A0000A A            AI,10    10                                                *BOO
     5810   03 00B4E    35A00B7A              STW,10   T1ST263E            ERROR NO.S                    *BOO
     5811   03 00B4F    20A0000A A            AI,10    10                                                *BOO
     5812   03 00B50    35A00B87              STW,10   T1ST264E                                          *BOO
     5813   03 00B51    22602418              LI,6     BUF1LO                                            *BOO
     5814   03 00B52    35602158              STW,6    :PATBFR           STORE BUFFER ADR                *BOO
     5815   03 00B53    35102162              STW,1    :PATID            INCR. PATTERN                   *BOO
     5816   03 00B54    326023E9              LW,6     =X'04040404'                                      *BOO
     5817   03 00B55    35602164              STW,6    :PATID+2          PATTERN INCREMENT               *BOO
     5818   03 00B56    32400BAB     T1ST2601 LW,4     T1ST26X           INDEX                           *BOO
     5819   03 00B57    72580B9F              LB,5     T1ST26PW,4        WRITE PATTERN SEQUENCE INDEX    *BOO
     5820   03 00B58    326A0B99              LW,6     T1ST26PT,5        FETCH PATTERN                   *BOO
     5821   03 00B59    35602163              STW,6    :PATID+1                                          *BOO
     5822   03 00B5A    32600BAC              LW,6     T1ST26W           FETCH WRITE IOCD                *BOO
     5823   03 00B5B    72780BA5              LB,7     T1ST26BW,4        FETCH BYTE DISPLACEMENT         *BOO
     5824   03 00B5C    30600007 A            AW,6     7                 UPDATE BYTE ADR                 *BOO
     5825   03 00B5D    356012B2              STW,6    IOCD2620          STORE IOCD (1ST WORD)           *BOO
     5826   03 00B5E    22A00005 A            LI,10    5                                                 *BOO
     5827   03 00B5F    35A0215B              STW,10   :PATWC            PATTERN WORD COUNT              *BOO
     5828   03 00B60    6AF0203B              BAL,15   :PATTERN          SPREAD PATTERN                  *BOO
     5829   03 00B61    6AF0142C              BAL,15   :FUCTEST          B: FUNCTIONAL TEST ROUTINE      *BOO
     5830   03 00B62    000012B2              DATA     IOCD2620                                          *BOO
     5831   03 00B63    00000000 A   T1ST262E DATA     0                 *** 2620 TO 2625 ***            *BOO
     5832   03 00B64    00001349              DATA     BSIP2600                                          *BOO
     5833   03 00B65    0000134B              DATA     BSNP2600                                          *BOO
     5834   03 00B66    68000B6A              B        %+4               B: CONTINUE                     *BOO
     5835   03 00B67    EAF0021D A            BAL,15   *:SENSE           TEST SENSE SWITCHES             *BOO
     5836   03 00B68    2E000B68              WAIT     %                                                 *BOO
     5837   03 00B69    68000B60              B        T1ST262E-3        LOOP                            *BOO
     5838   03 00B6A    32400BAB              LW,4     T1ST26X           INDEX                           *BOO
     5839   03 00B6B    72580BA1              LB,5     T1ST26PC,4        PRE-READ PATTERN INDEX          *BOO
     5840   03 00B6C    326A0B99              LW,6     T1ST26PT,5        FETCH PATTERN                   *BOO
     5841   03 00B6D    35602418              STW,6    BUF1LO            STORE IN FIRST PATTERN WORD     *BOO
     5842   03 00B6E    32400BAB              LW,4     T1ST26X           INDEX                           *BOO
     5843   03 00B6F    72580BA3              LB,5     T1ST26PR,4        EXPECTED READ PATTERN INDEX     *BOO
     5844   03 00B70    326A0B99              LW,6     T1ST26PT,5        FETCH PATTERN                   *BOO
     5845   03 00B71    35602163              STW,6    :PATID+1                                          *BOO
     5846   03 00B72    32600BAD              LW,6     T1ST26R           FETCH READ IOCD                 *BOO
     5847   03 00B73    72780BA7              LB,7     T1ST26BR,4        FETCH BYTE DISPLACEMENT         *BOO
     5848   03 00B74    30600007 A            AW,6     7                 UPDATE BYTE ADR                 *BOO
     5849   03 00B75    356012B4              STW,6    IOCD2630          STORE IOCD (1ST WORD)           *BOO
     5850   03 00B76    72680BA9              LB,6     T1ST26CR,4        FETCH READ BYTE CNT             *BOO
     5851   03 00B77    756612B5              STB,6    IOCD2630+1,3      SET UP THE BYTE CNT             *BOO
     5852   03 00B78    6AF0142C              BAL,15   :FUCTEST          B: FUNCTIONAL TEST ROUTINE      *BOO
     5853   03 00B79    000012B4              DATA     IOCD2630                                          *BOO
     5854   03 00B7A    00000000 A   T1ST263E DATA     0                 *** 2630 TO 2635 ***            *BOO
     5855   03 00B7B    00001349              DATA     BSIP2600                                          *BOO
     5856   03 00B7C    0000134B              DATA     BSNP2600                                          *BOO
     5857   03 00B7D    68000B81              B        %+4               B: CONTINUE                     *BOO
     5858   03 00B7E    EAF0021D A            BAL,15   *:SENSE                                           *BOO
     5859   03 00B7F    2E000B7F              WAIT     %                                                 *BOO
     5860   03 00B80    68000B78              B        T1ST263E-2        LOOP                            *BOO
     5861   03 00B81    22A00004 A            LI,10    4                                                 *BOO
     5862   03 00B82    35A0215B              STW,10   :PATWC            PATTERN WORD CNT = 4            *BOO
     5863   03 00B83    3510215C              STW,1    :COMFLAG          INHIBIT COMPARE PRINTOUT        *BOO
     5864   03 00B84    6AF02036              BAL,15   :COMPARE          B: COMPARE DATA                 *BOO
     5865   03 00B85    68000B8F              B        T1ST2650          B: NO ERRORS                    *BOO
     5866   03 00B86    6AF01556              BAL,15   TST1ERMG                                          *BOO
     5867   03 00B87    00000000 A   T1ST264E DATA     0                 *** 2640 TO 2645 ***            *BOO
     5868   03 00B88    22000000 A            LI,0     0                                                 *BOO
     5869   03 00B89    3500215C              STW,0    :COMFLAG          ALLOW COMPARE PRINTOUT          *BOO
     5870   03 00B8A    6AF02036              BAL,15   :COMPARE          B: COMPARE DATA                 *BOO
     5871   03 00B8B    68000B8C              B        %+1                                               *BOO
     5872   03 00B8C    EAF0021D A            BAL,15   *:SENSE           TEST SENSE SWITCHES             *BOO
     5873   03 00B8D    2E000B8D              WAIT     %                                                 *BOO
     5874   03 00B8E    68000B56              B        T1ST2601          LOOP                            *BOO
     5875   03 00B8F    33100BAB     T1ST2650 MTW,1    T1ST26X           INCR INDEX                      *BOO
     5876   03 00B90    32400BAB              LW,4     T1ST26X           FETCH INDEX                     *BOO
     5877   03 00B91    21400006 A            CI,4     6                                                 *BOO
     5878   03 00B92    69100B95              BL       %+3               B: NEXT SEQUENCE                *BOO
     5879   03 00B93    6AF013B2              BAL,15   :RSTEST           B: RESET TEST MODE              *BOO
     5880   03 00B94    680004B5              B        FUCTEXIT          B: EXIT                         *BOO
     5881   03 00B95    33100B63              MTW,1    T1ST262E                                          *BOO
     5882   03 00B96    33100B7A              MTW,1    T1ST263E          INCR ERROR NO                   *BOO
     5883   03 00B97    33100B87              MTW,1    T1ST264E                                          *BOO
     5884   03 00B98    68000B56              B        T1ST2601          B: CONTINUE                     *BOO
     5885   03 00B99    00000000 A   T1ST26PT DATA   0,X'01020304'                PATTERN TYP 1          *BOO
            03 00B9A    01020304 A
     5886   03 00B9B    02030405 A            DATA     X'02030405'                            2          *BOO
     5887   03 00B9C    03040506 A            DATA     X'03040506'                            3          *BOO
     5888   03 00B9D    04050607 A            DATA     X'04050607'                            4          *BOO
     5889   03 00B9E    05060708 A            DATA     X'05060708'                            5          *BOO
     5890   03 00B9F    01010105 A   T1ST26PW DATA     X'01010105',X'05050000'    WRITE PATTERN SEQUENCE *BOO
            03 00BA0    05050000 A
     5891   03 00BA1    00000004 A   T1ST26PC DATA     X'00000004',X'03020000'    PRE-READ PATTERN SEQ.  *BOO
            03 00BA2    03020000 A
     5892   03 00BA3    02030404 A   T1ST26PR DATA     X'02030404',X'03020000'    READ  PATTERN SEQUENCE *BOO
            03 00BA4    03020000 A
     5893   03 00BA5    01020300 A   T1ST26BW DATA     X'01020300',X'00000000'    WRITE BUFFER DISPL.    *BOO
            03 00BA6    00000000 A
     5894   03 00BA7    00000001 A   T1ST26BR DATA     X'00000001',X'02030000'    READ  BUFFER DISPL.    *BOO
            03 00BA8    02030000 A
     5895   03 00BA9    1010100F A   T1ST26CR DATA     X'1010100F',X'0E0D0000'    READ  BYTE COUNTS      *BOO
            03 00BAA    0E0D0000 A
     5896   03 00BAB    00000000 A   T1ST26X  DATA     0                 INDEX                           *BOO
     5897   03 00BAC    01009060     T1ST26W  GEN,8,24 1,BA(BUF1LO)                                      *BOO
     5898   03 00BAD    02009060     T1ST26R  GEN,8,24 2,BA(BUF1LO)                                      *BOO
     5899                                     PAGE                                                       *BOO
     5900                            *                 *** T S T 1 , 2 7 ***                             *BOO
     5901                            *                                                                   *BOO
     5902                            *                 *** R E A D  B Y T E  C OU N T E R                *BOO
     5903                            *                     R E G I S T E R  T E S T ***                  *BOO
     5904                            *                                                                   *BOO
     5905                            *                 *** (THIS TEST IS ONLY PERFORMED FOR THE 7201-3   *BOO
     5906                            *                      AND THE 7231-3 CONTROLLER) ***               *BOO
     5907                            *                                                                   *BOO
     5908                            *                 THIS TEST VERIFIES THE BYTE COUNTER, THE PARITY   *BOO
     5909                            *                 REGISTER, THE DATA REGISTER, THE DATA PATH FROM   *BOO
     5910                            *                 THE PARITY REGISTER AND THE ASSOCIATED CONTROL    *BOO
     5911                            *                 LOGIC. THIS TEST STARTS WITH A READ ORDER OF 1    *BOO
     5912                            *                 BYTE. AFTER EACH READ OPERATION THE BYTE COUNT IS *BOO
     5913                            *                 INCREMENTED BY 1 AND ANOTHER READ OPERATION IS    *BOO
     5914                            *                 PERFORMED. WHEN THE BYTE COUNT EQUALS 1 SECTOR,   *BOO
     5915                            *                 THE DATA IS ALSO VERIFIED.                        *BOO
     5916                            *                                                                   *BOO
     5917                            *                                                                   *BOO
     5918   03 00BAE    6AF013CD     T1ST27   BAL,15   T1STMOD3          B: VERIFY IF MODEL -3 CONTR.    *BOO
     5919   03 00BAF    22E00022 A            LI,14    X'22'             TEST MODE BYTE                  *BOO
     5920   03 00BB0    6AF013B5              BAL,15   :SETEST           B: TEST MODE SUBROUTINE         *BOO
     5921   03 00BB1    22400000 A   T1ST270A LI,4     0                                                 *BOO
     5922   03 00BB2    35400C13              STW,4    T1ST27X           INITIAL INDEX VALUE             *BOO
     5923   03 00BB3    354013FA              STW,4    SEEKRAD           SEEK ADR                        *BOO
     5924   03 00BB4    225FFF00 A            LI,5     -256                                              *BOO
     5925   03 00BB5    354A2518              STW,4    BUF1LO+256,5      CLEAR READ BUFFER               *BOO
     5926   03 00BB6    65500BB5              BIR,5    %-1                                               *BOO
     5927   03 00BB7    35002157              STW,0    :COMERRT          RESET ERROR COUNT               *BOO
     5928   03 00BB8    554212B7              STH,4    IOCD2700+1,1      INITIALIZE BYTE CNT             *BOO
     5929   03 00BB9    32C01D37              LW,12    BYTCURR           FETCH BYTES/SECTOR              *BOO
     5930   03 00BBA    21C00168 A            CI,12    360                                               *BOO
     5931   03 00BBB    68300BBE              BE       %+3               B: MED. SPEED RAD               *BOO
     5932   03 00BBC    12C00C16              LD,12    T1ST27PA          PATTERN SEEDS FOR EXT.PERF.RAD  *BOO
     5933   03 00BBD    68000BBF              B        %+2                                               *BOO
     5934   03 00BBE    12C00C18              LD,12    T1ST27PB          PATTERN SEEDS FOR MED.SPEED RAD *BOO
     5935   03 00BBF    15C00C1A              STD,12   T1ST27PC          SAVE SEEDS                      *BOO
     5936   03 00BC0    331012B7     T1ST2700 MTW,1    IOCD2700+1        INCR BYTE CNT                   *BOO
     5937   03 00BC1    6AF013D3              BAL,15   :SEEKMOD          B: SEEK SUBROUTINE              *BOO
     5938   03 00BC2    32400C13              LW,4     T1ST27X           INDEX                           *BOO
     5939   03 00BC3    33100004 A            MTW,1    4                 INDEX+1                         *BOO
     5940   03 00BC4    31401D37              CW,4     BYTCURR           COMPARE TO SECTOR BYTE CNT      *BOO
     5941   03 00BC5    68300BD1              BE       T1ST2720          B: BYTE = 1 SECTOR              *BOO
     5942   03 00BC6    6AF0142C              BAL,15   :FUCTEST          B: FUNCTIONAL TEST ROUTINE      *BOO
     5943   03 00BC7    000012B6              DATA     IOCD2700                                          *BOO
     5944   03 00BC8    00000A96 A            DATA     2710              *** 2 7 1 0 ***                 *BOO
     5945   03 00BC9    0000134C              DATA     BSIP2710                                          *BOO
     5946   03 00BCA    0000134F              DATA     BSNP2710                                          *BOO
     5947   03 00BCB    68000BCF              B        %+4               B: CONTINUE                     *BOO
     5948   03 00BCC    EAF0021D A            BAL,15   *:SENSE           TEST SENSE SWITCHES             *BOO
     5949   03 00BCD    2E000BCD              WAIT     %                                                 *BOO
     5950   03 00BCE    68000BC1              B        T1ST2700+1        LOOP                            *BOO
     5951   03 00BCF    33100C13              MTW,1    T1ST27X                                           *BOO
     5952   03 00BD0    68000BC0              B        T1ST2700          B: NEXT BYTE CNT                *BOO
     5953   03 00BD1    6AF0142C     T1ST2720 BAL,15   :FUCTEST          B: FUNCTIONAL TEST ROUTINE      *BOO
     5954   03 00BD2    000012B6              DATA     IOCD2700                                          *BOO
     5955   03 00BD3    00000AA0 A            DATA     2720              *** 2 7 2 0 ***                 *BOO
     5956   03 00BD4    00001350              DATA     BSIP2720                                          *BOO
     5957   03 00BD5    00001352              DATA     BSNP2720                                          *BOO
     5958   03 00BD6    68000BDA              B        %+4                                               *BOO
     5959   03 00BD7    EAF0021D A            BAL,15   *:SENSE           B: TEST SENSE SWITCHES          *BOO
     5960   03 00BD8    2E000BD8              WAIT     %                                                 *BOO
     5961   03 00BD9    68000BC1              B        T1ST2700+1        LOOP                            *BOO
     5962   03 00BDA    32401D37              LW,4     BYTCURR           FETCH SECTOR BYTE CNT           *BOO
     5963   03 00BDB    2540007E A            SLS,4    -2                CONVERT TO WORD CNT             *BOO
     5964   03 00BDC    35400C13              STW,4    T1ST27X           SAVE WORD CNT                   *BOO
     5965   03 00BDD    22502418              LI,5     BUF1LO            READ BUFFER ADR                 *BOO
     5966   03 00BDE    30500004 A            AW,5     4                 ENDING                          *BOO
     5967   03 00BDF    3A400C13              LCW,4    T1ST27X           NEG WORD INDEX                  *BOO
     5968   03 00BE0    32A00C1A              LW,10    T1ST27PC          FIRST WORD OF PATTERN           *BOO
     5969   03 00BE1    B1A80005 A            CW,10    *5,4              TEST READ BUFFER                *BOO
     5970   03 00BE2    68300BE4              BE       %+2               B: COMPARE OK                   *BOO
     5971   03 00BE3    6AF00BF5              BAL,15   T1ST2725          B: PRINT COMPARE ERROR          *BOO
     5972   03 00BE4    33100004 A            MTW,1    4                                                 *BOO
     5973   03 00BE5    32A00C1B     T1ST2721 LW,10    T1ST27PC+1        SECOND WORD OF PATTERN          *BOO
     5974   03 00BE6    B1A80005 A            CW,10    *5,4              TEST READ BUFFER                *BOO
     5975   03 00BE7    68300BE9              BE       %+2               B: COMPARE OK                   *BOO
     5976   03 00BE8    6AF00BF5              BAL,15   T1ST2725          B: PRINT COMPARE ERROR          *BOO
     5977   03 00BE9    30A023E9     T1ST2722 AW,10    =X'04040404'      INCR PATTERN                    *BOO
     5978   03 00BEA    31A023EA              CW,10    =X'00010202'                                      *BOO
     5979   03 00BEB    69300BED              BNE      %+2               NO PATTERN OVERFLOW             *BOO
     5980   03 00BEC    32A023EB              LW,10    =X'FF000102'      INITIAL PATTERN                 *BOO
     5981   03 00BED    65400BE6              BIR,4    T1ST2721+1        B: NEXT WORD                    *BOO
     5982   03 00BEE    33002157              MTW,0    :COMERRT          TEST COMPARE ERROR CNT          *BOO
     5983   03 00BEF    68300BF3              BEZ      %+4               B: NO ERRORS                    *BOO
     5984   03 00BF0    EAF0021D A            BAL,15   *:SENSE           B: TEST SENSE SWITCHES          *BOO
     5985   03 00BF1    2E000BF1              WAIT     %                                                 *BOO
     5986   03 00BF2    68000BB1              B        T1ST270A          LOOP                            *BOO
     5987   03 00BF3    6AF013B2              BAL,15   :RSTEST           RESET TEST MODE                 *BOO
     5988   03 00BF4    680004B5              B        FUCTEXIT          EXIT                            *BOO
     5989                            *                                                                   *BOO
     5990   03 00BF5    35F00C14     T1ST2725 STW,15   T1ST27SR          SAVE RETURN                     *BOO
     5991   03 00BF6    33002157              MTW,0    :COMERRT          TEST ERROR CNT                  *BOO
     5992   03 00BF7    69300C05              BNEZ     T1ST2730          B: NOT THE FIRST TIME           *BOO
     5993   03 00BF8    35500C1C              STW,5    T1ST27R5          SAVE R5                         *BOO
     5994   03 00BF9    6AF01556              BAL,15   TST1ERMG          REPORT ERROR                    *BOO
     5995   03 00BFA    00000AA5 A            DATA     2725              *** 2725 ***                    *BOO
     5996   03 00BFB    32500C1C              LW,5     T1ST27R5          RESTORE R5                      *BOO
     5997   03 00BFC    22C02418              LI,12    BUF1LO            FETCH BUFFER ADR                *BOO
     5998   03 00BFD    EAF00218 A            BAL,15   *:HEXC                                            *BOO
     5999   03 00BFE    55F02178              STH,15   :COMERM3+16                                       *BOO
     6000   03 00BFF    52F0000F A            LH,15    15                CONVERT                         *BOO
     6001   03 00C00    55F22177              STH,15   :COMERM3+15,1       BUFFER ADR                    *BOO
     6002   03 00C01    EAF00218 A            BAL,15   *:HEXC                                            *BOO
     6003   03 00C02    55F02177              STH,15   :COMERM3+15                                       *BOO
     6004   03 00C03    EAF0021C A            BAL,15   *:PRINT           PRINT HEADING                   *BOO
     6005   03 00C04    00002168              DATA     :COMERM3                                          *BOO
     6006   03 00C05    EAF0021C A   T1ST2730 BAL,15   *:PRINT           SKIP A LINE                     *BOO
     6007   03 00C06    00001577              DATA     SPACE                                             *BOO
     6008   03 00C07    32C00004 A            LW,12    4                                                 *BOO
     6009   03 00C08    30C00C13              AW,12    T1ST27X           WORD CNT                        *BOO
     6010   03 00C09    EAF00218 A            BAL,15   *:HEXC                                            *BOO
     6011   03 00C0A    35F02185              STW,15   :COMERM4+12       STORE WORD CNT                  *BOO
     6012   03 00C0B    327023EC              LW,7     =X'33C5E7D7'      EXP ID                          *BOO
     6013   03 00C0C    32C0000A A            LW,12    10                EXP DATA                        *BOO
     6014   03 00C0D    6AE02128              BAL,14   :COM4             PRINT A LINE - EXP              *BOO
     6015                            *                                                                   *BOO
     6016   03 00C0E    B2C80005 A            LW,12    *5,4              READ DATA                       *BOO
     6017   03 00C0F    327023ED              LW,7     =X'2C40D9C4'      RD  ID                          *BOO
     6018   03 00C10    6AE02128              BAL,14   :COM4             PRINT A LINE - READ OBS         *BOO
     6019                            *                                                                   *BOO
     6020   03 00C11    33102157              MTW,1    :COMERRT          INCR ERROR CNT                  *BOO
     6021   03 00C12    E8000C14              B        *T1ST27SR         B: EXIT                         *BOO
     6022                            *                                                                   *BOO
     6023   03 00C13    00000000 A   T1ST27X  DATA     0                 INDEX                           *BOO
     6024   03 00C14    00000000 A   T1ST27SR DATA     0                 EXIT ADR                        *BOO
     6025                                     BOUND    8                                                 *BOO
     6026   03 00C16    00000102 A   T1ST27PA DATA     X'00000102',X'03040506'   PATTERN SEEDS:EXT.PERF. *BOO
            03 00C17    03040506 A
     6027   03 00C18    0098999A A   T1ST27PB DATA     X'0098999A',X'9B9C9D9E'   PATTERN SEEDS:MED.SPEED *BOO
            03 00C19    9B9C9D9E A
     6028   03 00C1A    00000000 A   T1ST27PC DATA     0,0               CURRENT SEEDS                   *BOO
            03 00C1B    00000000 A
     6029   03 00C1C    00000000 A   T1ST27R5 DATA     0                                                 *BOO
     6030                                     PAGE                                                       *BOO
     6031                            *                 *** T S T 1 , 2 8 ***                             *BOO
     6032                            *                                                                   *BOO
     6033                            *                 *** P A R I T Y  E R R O R  T E S T ***           *BOO
     6034                            *                                                                   *BOO
     6035                            *                 *** (THIS TEST IS ONLY PERFORMED FOR THE 7201-3   *BOO
     6036                            *                      AND THE 7231-3 CONTROLLER) ***               *BOO
     6037                            *                                                                   *BOO
     6038                            *                 THIS TEST VERIFIES THAT THE CONTROLLER CAN        *BOO
     6039                            *                 DETECT AND RESPOND CORRECTLY TO FORCED            *BOO
     6040                            *                 PARITY ERRORS.  BOTH READ X'02' AND X'12'         *BOO
     6041                            *                 ORDERS ARE EXECUTED FOR SINGLE AND MULTIPLE       *BOO
     6042                            *                 SECTORS TO VERIFY CORRECT DATA TRANSFER           *BOO
     6043                            *                 TERMINATION.                                      *BOO
     6044                            *                                                                   *BOO
     6045   03 00C1D    6AF013CD     T1ST28   BAL,15   T1STMOD3          B: VERIFY IF MODEL -3 CONTR.    *BOO
     6046   03 00C1E    22E00006 A            LI,14    X'06'             TEST MODE BYTE                  *BOO
     6047   03 00C1F    6AF013B5              BAL,15   :SETEST           B: TEST MODE SUBROUTINE         *BOO
     6048   03 00C20    22000000 A            LI,0     0                                                 *BOO
     6049   03 00C21    350013FA              STW,0    SEEKRAD           SEEK ADR                        *BOO
     6050   03 00C22    32A01D37              LW,10    BYTCURR                                           *BOO
     6051   03 00C23    55A212B9              STH,10   IOCD2810+1,1      STORE BYTE CNT                  *BOO
     6052   03 00C24    6AF013D3     T1ST2810 BAL,15   :SEEKMOD          B: SEEK SUBROUTINE              *BOO
     6053   03 00C25    6AF0142C              BAL,15   :FUCTEST          B: FUNCTIONAL TEST ROUTINE      *BOO
     6054   03 00C26    000012B8              DATA     IOCD2810                                          *BOO
     6055   03 00C27    00000AFA A            DATA     2810              *** 2 8 1 0 ***                 *BOO
     6056   03 00C28    00001353              DATA     BSIP2800                                          *BOO
     6057   03 00C29    00001355              DATA     BSNP2800                                          *BOO
     6058   03 00C2A    68000C2E              B        %+4               B: CONTINUE                     *BOO
     6059   03 00C2B    EAF0021D A            BAL,15   *:SENSE           B: TEST SENSE SWITCHES          *BOO
     6060   03 00C2C    2E000C2C              WAIT     %                                                 *BOO
     6061   03 00C2D    68000C24              B        T1ST2810          LOOP                            *BOO
     6062   03 00C2E    32A01D37              LW,10    BYTCURR                                           *BOO
     6063   03 00C2F    66A012B9              AWM,10   IOCD2810+1        STORE BYTE CNT                  *BOO
     6064   03 00C30    6AF013D3     T1ST2820 BAL,15   :SEEKMOD          B: SEEK SUBROUTINE              *BOO
     6065   03 00C31    6AF0142C              BAL,15   :FUCTEST          B: FUNCTIONAL TEST ROUTINE      *BOO
     6066   03 00C32    000012B8              DATA     IOCD2810                                          *BOO
     6067   03 00C33    00000B04 A            DATA     2820              *** 2'8 2 0 ***                 *BOO
     6068   03 00C34    00001353              DATA     BSIP2800                                          *BOO
     6069   03 00C35    00001355              DATA     BSNP2800                                          *BOO
     6070   03 00C36    68000C3A              B        %+4               B: CONTINUE                     *BOO
     6071   03 00C37    EAF0021D A            BAL,15   *:SENSE           B: TEST SENSE SWITCHES          *BOO
     6072   03 00C38    2E000C38              WAIT     %                                                 *BOO
     6073   03 00C39    68000C30              B        T1ST2820          LOOP                            *BOO
     6074   03 00C3A    32A01D37              LW,10    BYTCURR                                           *BOO
     6075   03 00C3B    55A212BB              STH,10   IOCD2830+1,1      STORE BYTE CNT                  *BOO
     6076   03 00C3C    6AF013D3     T1ST2830 BAL,15   :SEEKMOD          B: SEEK SUBROUTINE              *BOO
     6077   03 00C3D    6AF0142C              BAL,15   :FUCTEST          B: TUNCTIONAL TEST ROUTINE      *BOO
     6078   03 00C3E    000012BA              DATA     IOCD2830                                          *BOO
     6079   03 00C3F    00000B0E A            DATA     2830              ***  2 8 3 0 ***                *BOO
     6080   03 00C40    00001353              DATA     BSIP2800                                          *BOO
     6081   03 00C41    00001355              DATA     BSNP2800                                          *BOO
     6082   03 00C42    68000C46              B        %+4               B: CONTINUE                     *BOO
     6083   03 00C43    EAF0021D A            BAL,15   *:SENSE           B: TEST SENSE SWITCHES          *BOO
     6084   03 00C44    2E000C44              WAIT     %                                                 *BOO
     6085   03 00C45    68000C3C              B        T1ST2830          LOOP                            *BOO
     6086   03 00C46    663012BB              AWM,3    IOCD2830+1        INCR BYTE BY 3                  *BOO
     6087   03 00C47    6AF013D3     T1ST2840 BAL,15   :SEEKMOD          B: SEEK SUBROUTINE              *BOO
     6088   03 00C48    6AF0142C              BAL,15   :FUCTEST          B: FUNCTIONAL TEST ROUTINE      *BOO
     6089   03 00C49    000012BA              DATA     IOCD2830                                          *BOO
     6090   03 00C4A    00000B18 A            DATA     2840              *** 2'8 4 0 ***                 *BOO
     6091   03 00C4B    00001356              DATA     BSIP2840                                          *BOO
     6092   03 00C4C    00001358              DATA     BSNP2840                                          *BOO
     6093   03 00C4D    68000C51              B        %+4               B: CONTINUE                     *BOO
     6094   03 00C4E    EAF0021D A            BAL,15   *:SENSE                                           *BOO
     6095   03 00C4F    2E000C4F              WAIT     %                                                 *BOO
     6096   03 00C50    68000C47              B        T1ST2840          LOOP                            *BOO
     6097   03 00C51    6AF013B2              BAL,15   :RSTEST           RESET TEST MODE                 *BOO
     6098   03 00C52    680004B5              B        FUCTEXIT          B: EXIT                         *BOO
     6099                                     PAGE                                                       *BOO
     6100                            *                 *** T S T 1 , 2 9 ***                             *BOO
     6101                            *                                                                   *BOO
     6102                            *                 *** W R I T E  P A R I T Y  G E N E R A T E       *BOO
     6103                            *                                                                   *BOO
     6104                            *                     T E S T ***                                   *BOO
     6105                            *                                                                   *BOO
     6106                            *                 *** (THIS TEST IS ONLY PERFORMED FOR THE 7201-3   *BOO
     6107                            *                      AND 7231-3 CONTROLLERS) ***                  *BOO
     6108                            *                                                                   *BOO
     6109                            *                 THIS TEST VERIFIES THE DATA PATH FROM THE 'K'     *BOO
     6110                            *                 REGISTER TO THE DATA REGISTER, THE PARITY         *BOO
     6111                            *                 GENERATING LOGIC, THE PREAMBLE GENERATING LOGIC   *BOO
     6112                            *                 AND IT'S TRANSFER TO THE DATA REGISTER AND        *BOO
     6113                            *                 THE GENERATION OF THE WRITE ENABLE SIGNAL.        *BOO
     6114                            *                 THIS TEST FIRST WRITES DATA IN A NORMAL FASHION   *BOO
     6115                            *                 TO THE CONTROLLER, IT THAN RETRIEVES THE          *BOO
     6116                            *                 RESULTING PARITY BYTE GENERATED VIA THE TDV       *BOO
     6117                            *                 TEST MODE PATH.                                   *BOO
     6118                            *                                                                   *BOO
     6119   03 00C53    6AF013CD     T1ST29   BAL,15   T1STMOD3          B: VERIFY IF MODEL -3 CONTR.    *BOO
     6120   03 00C54    22E00022 A            LI,14    X'22'             TEST MODE BYTE                  *BOO
     6121   03 00C55    6AF013B5              BAL,15   :SETEST           B: TEST MODE SUBROUTINE         *BOO
     6122   03 00C56    22400000 A   T1ST2900 LI,4     0                                                 *BOO
     6123   03 00C57    3540215C              STW,4    :COMFLAG          ENABLE COMPARE PRINTOUT         *BOO
     6124   03 00C58    35402162              STW,4    :PATID                                            *BOO
     6125   03 00C59    35400CAB              STW,4    T1ST29X           INDEX                           *BOO
     6126   03 00C5A    32601D37              LW,6     BYTCURR                                           *BOO
     6127   03 00C5B    556212BD              STH,6    IOCD2910+1,1      SAVE BYTE CNT                   *BOO
     6128   03 00C5C    2560007E A            SLS,6    -2                WORD CNT PER SECTOR             *BOO
     6129   03 00C5D    356021A8              STW,6    :CLRSIZE          CLEAR BUFFER WORD CNT           *BOO
     6130   03 00C5E    22602418              LI,6     BUF1LO            BUFFER ADR                      *BOO
     6131   03 00C5F    356021A7              STW,6    :CLRADDR                                          *BOO
     6132   03 00C60    354013FA              STW,4    SEEKRAD           SEEK ADR                        *BOO
     6133   03 00C61    6AF0219C     T1ST2910 BAL,15   :CLEAR            CLEAR BUFFER                    *BOO
     6134   03 00C62    32400CAB              LW,4     T1ST29X           INDEX                           *BOO
     6135   03 00C63    32A80CAC              LW,10    T1ST29TA,4        FETCH PATTERN WORD              *BOO
     6136   03 00C64    35A02418              STW,10   BUF1LO            SAVE IN OUTPUT BUFFER           *BOO
     6137   03 00C65    6AF013D3              BAL,15   :SEEKMOD          B: SEEK SUBROUTINE              *BOO
     6138   03 00C66    6AF0142C              BAL,15   :FUCTEST          B: FUNCTIONAL TEST ROUTINE      *BOO
     6139   03 00C67    000012BC              DATA     IOCD2910                                          *BOO
     6140   03 00C68    00000B5E A            DATA     2910              *** 2 9 1 0 ***                 *BOO
     6141   03 00C69    00001359              DATA     BSIP2910                                          *BOO
     6142   03 00C6A    0000135B              DATA     BSNP2910                                          *BOO
     6143   03 00C6B    68000C6F              B        %+4               B: CONTINUE                     *BOO
     6144   03 00C6C    EAF0021D A            BAL,15   *:SENSE           B: TEST SENSE SWITCHES          *BOO
     6145   03 00C6D    2E000C6D              WAIT     %                                                 *BOO
     6146   03 00C6E    68000C61              B        T1ST2910          LOOP                            *BOO
     6147   03 00C6F    CEC01D35              TDV,12   *:DEVADDR         ISSUE TDV                       *BOO
     6148   03 00C70    72D0000D A            LB,13    13                ALICN STATUS                    *BOO
     6149   03 00C71    32400CAB              LW,4     T1ST29X           INDEX                           *BOO
     6150   03 00C72    75D80CB1              STB,13   T1ST29TO,4        SAVE TDV STATUS                 *BOO
     6151   03 00C73    21400003 A            CI,4     3                 TEST INDEX                      *BOO
     6152   03 00C74    68300C77              BE       %+3               B: CONTINUE                     *BOO
     6153   03 00C75    33100CAB              MTW,1    T1ST29X           INCR INDEX                      *BOO
     6154   03 00C76    68000C61              B        T1ST2910          LOOP                            *BOO
     6155   03 00C77    3510215B              STW,1    :PATWC            WORD COUNT = 1                  *BOO
     6156   03 00C78    32C00CB0              LW,12    T1ST29TE                                          *BOO
     6157   03 00C79    31C00CB1              CW,12    T1ST29TO          TEST PARITY BYTES               *BOO
     6158   03 00C7A    68300C85              BE       T1ST2935          B: CONTINUE                     *BOO
     6159   03 00C7B    35C02163              STW,12   :PATID+1          SAVE EXP PATTERN                *BOO
     6160   03 00C7C    22A00CB1              LI,10    T1ST29TO                                          *BOO
     6161   03 00C7D    35A02158              STW,10   :PATBFR           SAVE PATTERN ADR                *BOO
     6162   03 00C7E    6AF01556              BAL,15   TST1ERMG          REPORT ERROR                    *BOO
     6163   03 00C7F    00000B63 A            DATA     2915              *** 2 9 1 5 ***                 *BOO
     6164   03 00C80    6AF02036              BAL,15   :COMPARE          PRINT COMPARE ERROR             *BOO
     6165   03 00C81    68000C82              B        %+1                                               *BOO
     6166   03 00C82    EAF0021D A            BAL,15   *:SENSE           B: TEST SENSE SWITCHES          *BOO
     6167   03 00C83    2E000C83              WAIT     %                                                 *BOO
     6168   03 00C84    68000C56              B        T1ST2900          LOOP                            *BOO
     6169   03 00C85    6AF013B2     T1ST2935 BAL,15   :RSTEST           B: RESET TEST MODE              *BOO
     6170   03 00C86    22E00042 A            LI,14    X'42'             TEST MODE BYTE                  *BOO
     6171   03 00C87    6AF013B5              BAL,15   :SETEST           B: TEST MODE SUBROUTINE         *BOO
     6172   03 00C88    6AF013D3              BAL,15   :SEEKMOD          B: SEEK SUBROUTINE              *BOO
     6173   03 00C89    CEC01D35              TDV,12   *:DEVADDR         ISSUE TDV                       *BOO
     6174   03 00C8A    7280000D A            LB,8     13                FETCH TDV STATUS                *BOO
     6175   03 00C8B    21800080 A            CI,8     X'80'             FETCH WRITE ENABLE STATUS BIT   *BOO
     6176   03 00C8C    68400C92              BCR,4    T1ST2940          B: CONTINUE                     *BOO
     6177   03 00C8D    6AF01556              BAL,15   TST1ERMG          REPORT ERROR                    *BOO
     6178   03 00C8E    00000B77 A            DATA     2935              *** 2 9 3 5 ***                 *BOO
     6179   03 00C8F    EAF0021D A            BAL,15   *:SENSE           B: TEST SENSE SWITCHES          *BOO
     6180   03 00C90    2E000C90              WAIT     %                                                 *BOO
     6181   03 00C91    68000C88              B        T1ST2935+3        LOOP                            *BOO
     6182   03 00C92    224F3CB0 A   T1ST2940 LI,4     -50000            DELAY INDEX                     *BOO
     6183   03 00C93    32A01D37              LW,10    BYTCURR                                           *BOO
     6184   03 00C94    20AFFFEC A            AI,10    -20               SUBTRACT 20 FROM BYTE CNT       *BOO
     6185   03 00C95    2200095E              LI,0     DA(IOCD2910)                                      *BOO
     6186   03 00C96    CCB01D35              SIO,11   *:DEVADDR         ISSUE SIO                       *BOO
     6187   03 00C97    22CFFFFC A            LI,12    -4                                                *C02
     6188   03 00C98    65C00C98              BIR,12   %                 DELAY                           *C02
     6189   03 00C99    CEC01D35              TDV,12   *:DEVADDR         ISSUE TDV                       *BOO
     6190   03 00C9A    51A2000D A            CH,10    13,1              TEST BYTE COUNT                 *BOO
     6191   03 00C9B    69200CA3              BG       %+8               B: BYTE CNT WAS DECREMENTED     *BOO
     6192   03 00C9C    65400C99              BIR,4    %-3               LOOP                            *BOO
     6193   03 00C9D    6AF01556              BAL,15   TST1ERMG          REPORT ERROR                    *BOO
     6194   03 00C9E    00000B7C A            DATA     2940              *** 2 9 4 0 ***                 *BOO
     6195   03 00C9F    EAF0021D A   T1ST2945 BAL,15   *:SENSE           B: TEST SENSE SWITCHES          *BOO
     6196   03 00CA0    2E000CA0              WAIT     %                                                 *BOO
     6197   03 00CA1    68000C85              B        T1ST2935          LOOP                            *BOO
     6198   03 00CA2    68000CA6              B        %+4               B: EXIT                         *BOO
     6199   03 00CA3    7280000D A            LB,8     13                                                *BOO
     6200   03 00CA4    21800080 A            CI,8     X'80'             TEST  WRITE ENABLE STATUS BIT   *BOO
     6201   03 00CA5    68400CA8              BCR,4    %+3               B: NOT WRITE ENABLED            *BOO
     6202   03 00CA6    6AF013B2              BAL,15   :RSTEST           B: RESET TEST MODE              *BOO
     6203   03 00CA7    680004B5              B        FUCTEXIT          B: EXIT                         *BOO
     6204   03 00CA8    6AF01556              BAL,15   TST1ERMG          REPORT ERROR                    *BOO
     6205   03 00CA9    00000B81 A            DATA     2945              *** 2 9 4 5 ***                 *BOO
     6206   03 00CAA    68000C9F              B        T1ST2945          B: TEST SENSE SWITCHES          *BOO
     6207   03 00CAB    00000000 A   T1ST29X  DATA     0                 INDEX                           *BOO
     6208   03 00CAC    00000000 A   T1ST29TA DATA     0,X'FF000000',X'FFFF0000',X'5AA5'    1ST PATTERN W*BOO
            03 00CAD    FF000000 A
            03 00CAE    FFFF0000 A
            03 00CAF    00005AA5 A
     6209   03 00CB0    FF00FF00 A   T1ST29TE DATA     X'FF00FF00'       EXP. PATTERN                    *BOO
     6210   03 00CB1    00000000 A   T1ST29TO DATA     0                 OBS. PATTERN                    *BOO
     6211                                     PAGE                                                       *BOO
     6212                            *                 *** T S T 1 , 3 0 ***                             *BOO
     6213                            *                                                                   *BOO
     6214                            *                 *** C H E C K W R I T E  B Y T E  C O U N T       *BOO
     6215                            *                                                                   *BOO
     6216                            *                     R E G I S T E R  T E S T ***                  *BOO
     6217                            *                                                                   *BOO
     6218                            *                 *** (THIS TEST IS ONLY PERFORMED FOR THE 7201-3   *BOO
     6219                            *                      AND 7231-3 CONTROLLERS) ***                  *BOO
     6220                            *                                                                   *BOO
     6221                            *                 THIS TEST VERIFIES THAT THE CHECKWRITING          *BOO
     6222                            *                 LOGIC WORKS PROPERLY.  IT FIRST CHECKWRITES       *BOO
     6223                            *                 PATTERNS THAT ARE IN ERROR BY 1 BIT TO            *BOO
     6224                            *                 VERIFY THAT THE ERROR DETECTION LOGIC DOES        *BOO
     6225                            *                 INDEED DETECT AND REPORT ERRORS.  IT ALSO         *BOO
     6226                            *                 CHECKWRITES A GOOD PATTERN TO VERIFY THAT         *BOO
     6227                            *                 THE CHECKWRITE LOGIC DOES NOT REPORT ERRORS       *BOO
     6228                            *                 ON A MATCHING PATTERN.                            *BOO
     6229                            *                                                                   *BOO
     6230   03 00CB2    6AF013CD     T1ST30   BAL,15   T1STMOD3          B: VERIFY IF MODEL -3 CONTR.    *BOO
     6231   03 00CB3    32C01D37              LW,12    BYTCURR           FETCH BYTES/SECTOR              *BOO
     6232   03 00CB4    21C00168 A            CI,12    360                                               *BOO
     6233   03 00CB5    68300CB8              BE       %+3               B: MED SPEED RAD                *BOO
     6234   03 00CB6    12A00CF6              LD,10    T1ST30PA          PATTERN SEED                    *BOO
     6235   03 00CB7    68000CB9              B        %+2                                               *BOO
     6236   03 00CB8    12A00CF8              LD,10    T1ST30PB          PATTERN SEED                    *BOO
     6237   03 00CB9    15A00CFA              STD,10   T1ST30PC          SAVE PATTERN SEED               *BOO
     6238   03 00CBA    22E00002 A            LI,14    2                 TEST MODE BYTE                  *BOO
     6239   03 00CBB    6AF013B5              BAL,15   :SETEST           B: TEST MODE SUBROUTINE         *BOO
     6240   03 00CBC    22400000 A            LI,4     0                                                 *BOO
     6241   03 00CBD    35400CF4              STW,4    T1ST30X           INDEX                           *BOO
     6242   03 00CBE    354013FA              STW,4    SEEKRAD           SEEK ADR                        *BOO
     6243   03 00CBF    32601D37              LW,6     BYTCURR           BYTE CNT / SECTOR               *BOO
     6244   03 00CC0    556212BF              STH,6    IOCD3000+1,1      SAVE BYTE CNT                   *BOO
     6245   03 00CC1    22A00BC2 A            LI,10    3010                                              *BOO
     6246   03 00CC2    35A00CC7              STW,10   T1ST301E          INITIALIZE ERROR NO             *BOO
     6247   03 00CC3    6AF013D3     T1ST3010 BAL,15   :SEEKMOD          B: SEEK SUBROUTINE              *BOO
     6248   03 00CC4    6AF00CE0              BAL,15   T1ST30SP          SPREAD PATTERN                  *BOO
     6249   03 00CC5    6AF0142C              BAL,15   :FUCTEST          B: FUNCTIONAL TEST ROUTINE      *BOO
     6250   03 00CC6    000012BE              DATA     IOCD3000                                          *BOO
     6251   03 00CC7    00000000 A   T1ST301E DATA     0                 *** 3010 TO 3011 ***            *BOO
     6252   03 00CC8    0000135C              DATA     BSIP3010                                          *BOO
     6253   03 00CC9    0000135F              DATA     BSNP3010                                          *BOO
     6254   03 00CCA    68000CCE              B        %+4               B: CONTINUE                     *BOO
     6255   03 00CCB    EAF0021D A            BAL,15   *:SENSE           B: TEST SENSE SWITCHES          *BOO
     6256   03 00CCC    2E000CCC              WAIT     %                                                 *BOO
     6257   03 00CCD    68000CC3              B        T1ST3010          LOOP                            *BOO
     6258   03 00CCE    33100CC7              MTW,1    T1ST301E          INCR ERROR NO                   *BOO
     6259   03 00CCF    33100CF4              MTW,1    T1ST30X           INCR INDEX                      *BOO
     6260   03 00CD0    32400CF4              LW,4     T1ST30X           FETCH INDEX                     *BOO
     6261   03 00CD1    21400002 A            CI,4     2                                                 *BOO
     6262   03 00CD2    69100CC3              BL       T1ST3010          B: NEXT SEQUENCE                *BOO
     6263   03 00CD3    6AF013D3     T1ST3030 BAL,15   :SEEKMOD          B: SEEK SUBROUTINE              *BOO
     6264   03 00CD4    6AF00CE0              BAL,15   T1ST30SP          SPREAD PATTERN                  *BOO
     6265   03 00CD5    6AF0142C              BAL,15   :FUCTEST          B: FUNCTIONAL TEST ROUTINE      *BOO
     6266   03 00CD6    000012BE              DATA     IOCD3000                                          *BOO
     6267   03 00CD7    00000BD6 A            DATA     3030              *** 3 0 3 0 ***                 *BOO
     6268   03 00CD8    00001360              DATA     BSIP3030                                          *BOO
     6269   03 00CD9    00001362              DATA     BSNP3030                                          *BOO
     6270   03 00CDA    68000CDE              B        %+4               B: CONTINUE                     *BOO
     6271   03 00CDB    EAF0021D A            BAL,15   *:SENSE           B: TEST SENSE SWITCHES          *BOO
     6272   03 00CDC    2E000CDC              WAIT     %                                                 *BOO
     6273   03 00CDD    68000CD3              B        T1ST3030          LOOP                            *BOO
     6274   03 00CDE    6AF013B2              BAL,15   :RSTEST           RESET TEST MODE                 *BOO
     6275   03 00CDF    680004B5              B        FUCTEXIT          B: EXIT                         *BOO
     6276                            *                                                                   *BOO
     6277   03 00CE0    32501D37     T1ST30SP LW,5     BYTCURR           INDEX                           *BOO
     6278   03 00CE1    2550047E A            SAS,5    -2                WORD INDEX                      *BOO
     6279   03 00CE2    22602418              LI,6     BUF1LO            BUFFER ADR                      *BOO
     6280   03 00CE3    30600005 A            AW,6     5                 ENDING ADR + 1                  *BOO
     6281   03 00CE4    3A500005 A            LCW,5    5                 COMPLEMENT WORD INDEX           *BOO
     6282   03 00CE5    32A00CFA              LW,10    T1ST30PC          FETCH 1ST PATTERN WORD          *BOO
     6283   03 00CE6    B5AA0006 A            STW,10   *6,5                                              *BOO
     6284   03 00CE7    33100005 A            MTW,1    5                 INCR INDEX                      *BOO
     6285   03 00CE8    32A20CFA              LW,10    T1ST30PC,1        FETCH 2ND PATTERN WORD          *BOO
     6286   03 00CE9    B5AA0006 A            STW,10   *6,5              STORE PATTERN                   *BOO
     6287   03 00CEA    30A023E9              AW,10    =X'04040404'      INCR PATTERN                    *BOO
     6288   03 00CEB    31A023EE              CW,10    =X'01020303'                                      *BOO
     6289   03 00CEC    69300CEE              BNE      %+2               B: NO PATTERN OVERFLOW          *BOO
     6290   03 00CED    32A023EF              LW,10    =X'00010203'                                      *BOO
     6291   03 00CEE    65500CE9              BIR,5    %-5               B: NEXT WORD                    *BOO
     6292   03 00CEF    32400CF4              LW,4     T1ST30X           INDEX                           *BOO
     6293   03 00CF0    32A80CFC              LW,10    T1ST30TP,4        FETCH PATTERN MODIFIER          *BOO
     6294   03 00CF1    206FFFFF A            AI,6     -1                                                *BOO
     6295   03 00CF2    B5A00006 A            STW,10   *6                STORE LAST PATTERN WORD         *BOO
     6296   03 00CF3    E800000F A            B        *15               EXIT                            *BOO
     6297                            *                                                                   *BOO
     6298   03 00CF4    00000000 A   T1ST30X  DATA     0                 INDEX                           *BOO
     6299                                     BOUND    8                                                 *BOO
     6300   03 00CF6    00010203 A   T1ST30PA DATA     X'00010203'       PATTERN SEED - EXT PERF RAD     *BOO
     6301   03 00CF7    04050607 A            DATA     X'04050607'                                       *BOO
     6302   03 00CF8    00999A9B A   T1ST30PB DATA     X'00999A9B'       PATTERN SEED - MED SPEED RAD    *BOO
     6303   03 00CF9    9C9D9E9F A            DATA     X'9C9D9E9F'                                       *BOO
     6304   03 00CFA    00000000 A   T1ST30PC DATA     0,0               CURRENT PATTERN SEED            *BOO
            03 00CFB    00000000 A
     6305   03 00CFC    FCFDFFFF A   T1ST30TP DATA     X'FCFDFFFF',X'FCFDFEFE',X'FCFDFEFF'  LAST WORDS   *BOO
            03 00CFD    FCFDFEFE A
            03 00CFE    FCFDFEFF A
     6306                            *                                                                   *BOO
     6307                                     PAGE
     6308                            *                 *** T S T 1, 3 1 ***
     6309                            *
     6310                            *                 *** W R I T E  T E S T ***
     6311                            *
     6312                            *                 THIS SUBTEST TESTS THE ABILITY OF THE RAD TO
     6313                            *                 CORRECTLY RECEIVE AND RESPOND TO WRITES OF A
     6314                            *                 SECTOR.
     6315                            *
     6316                            *
     6317                            *
     6318                            *
     6319                            *
     6320                            *
     6321                            *
     6322                            *
     6323                            T1ST31 ;
     6324   03 00CFF    32601D37              LW,6     BYTCURR           LOAD NO. OF BYTES/SECTOR
     6325   03 00D00    2560007F A            SLS,6    -1                CONVERT TO A HALF WORD COUNT
     6326   03 00D01    3560215B              STW,6    :PATWC            SAVE AS SIZE OF BUFFER USED
     6327   03 00D02    22602418              LI,6     BUF1LO            LOAD AND SAVE
     6328   03 00D03    35602158              STW,6    :PATBFR                STARTING ADDR OF BUFFER ADDR
     6329   03 00D04    6AF013D3              BAL,15   :SEEKMOD          BRANCH TO SEEK SUBROUTINE
     6330   03 00D05    6AF0203B              BAL,15   :PATTERN          GO SPREAD PATTERN
     6331                            *
     6332   03 00D06    32401D37              LW,4     BYTCURR
     6333   03 00D07    554212C1              STH,4    IOCD3110+1,1
     6334   03 00D08    554212C3              STH,4    IOCD3120+1,1
     6335   03 00D09    30401D37              AW,4     BYTCURR
     6336   03 00D0A    554212C5              STH,4    IOCD3130+1,1
     6337   03 00D0B    554212C7              STH,4    IOCD3140+1,1
     6338                            *
     6339                            *                 *** 3 1 1 0 ***
     6340                            *
     6341                            *                 THIS TEST VERIFIES THAT THE RAD WILL ACCEPT
     6342                            *                 THE NUMBER OF BYTES REQUIRED TO FILL A SECTOR
     6343                            *                 WITHOUT REPORTING REPORTING AN ERROR
     6344                            *
     6345                            *                     ORDER:        WRITE
     6346                            *                     BYTE ADD:     BA(BUF1LO)
     6347                            *                     FLAGS:        HTE AND UE
     6348                            *                     BYTE COUNT    (BYTCURR)
     6349                            *
     6350                            *
     6351                            *
     6352   03 00D0C    6AF0142D     T1ST3110 BAL,15   :FUCTEST+1        GO TO FUNCTIONAL TEST
     6353   03 00D0D    000012C0              DATA     IOCD3110
     6354   03 00D0E    00000C26 A            DATA     3110              *** ERROR 3110 ***
     6355   03 00D0F    00001363              DATA     BSIP3110
     6356   03 00D10    00001369              DATA     BSNP3110
     6357   03 00D11    68000D16              B        T1ST3115          GO TO NEXT TEST
     6358                            *
     6359   03 00D12    CF001D35              HIO,0    *:DEVADDR         RESET DEV, WHERE ERROR WAS DETECTED
     6360   03 00D13    EAF0021D A            BAL,15   *:SENSE           TEST SENSE SW
     6361   03 00D14    2E000D14              WAIT     %                 HALT ON ERROR IF SS3 RESET
     6362   03 00D15    68000CFF              B        T1ST31            LOOP ON ERROR
     6363                            *
     6364                            *
     6365                            *                 *** 3 1 1 5 ***
     6366                            *
     6367                            *                 THIS TEST VERIFIES THAT NO DATA WAS ALTERED
     6368                            *                 IN THE OUTPUT BUFFER BY THE WRITE OPERATION.
     6369                            *
     6370                            *
     6371                            *
     6372                            *
     6373                            *
     6374                            *
     6375                            *
     6376                            *
     6377   03 00D16    6AF02036     T1ST3115 BAL,15   :COMPARE
     6378   03 00D17    68000D1D              B        T1ST3120          BRANCH TO NEXT TEST
     6379   03 00D18    6AF01556              BAL,15   TST1ERMG          REPORT ERROR
     6380   03 00D19    00000C2B A            DATA     3115              *** ERROR 3115 ***
     6381   03 00D1A    EAF0021D A   T1ST3117 BAL,15   *:SENSE           TEST SENSE SW
     6382   03 00D1B    2E000D1B              WAIT     %                 HALT ON ERROR IF SS3 RESET
     6383   03 00D1C    68000CFF              B        T1ST31
     6384                            *
     6385                            *                 *** 3 1 2 0 ***
     6386                            *
     6387                            *                 THIS TEST VERIFIES THAT A ZERO BYTE COUNT
     6388                            *                 INTERRUPT IS GENERATED AT THE COMPLETION
     6389                            *                 OF A 1 SECTOR WRITE.
     6390                            *
     6391                            *                    ORDER:         WRITE
     6392                            *                    BYTE ADDR:     BA(BUF1LO)
     6393                            *                    FLAGS:         IZC
     6394                            *                    BYTE COUNT:    (BYTCURR)
     6395                            *
     6396                            *
     6397                            *
     6398   03 00D1D    6AF013D3     T1ST3120 BAL,15   :SEEKMOD          BRANCH TO SEEK SUBROUTINE
     6399   03 00D1E    6AF0142C              BAL,15   :FUCTEST          GO TO FUNCTIONAL TEST
     6400   03 00D1F    000012C2              DATA     IOCD3120
     6401   03 00D20    00000C30 A            DATA     3120              *** ERROR 3120 ***
     6402   03 00D21    00001366              DATA     BSIP3120
     6403   03 00D22    00001369              DATA     BSNP3110
     6404   03 00D23    68000D28              B        T1ST3130          BRANCH TO NEXT TEST
     6405                            *
     6406   03 00D24    CF001D35              HIO,0    *:DEVADDR         RESET DEV, WHERE ERROR WAS DETECTED
     6407   03 00D25    EAF0021D A            BAL,15   *:SENSE           TEST SENSE SW
     6408   03 00D26    2E000D26              WAIT     %                 HALT ON ERROR IF SS3 RESET
     6409   03 00D27    68000D1D              B        T1ST3120
     6410                            *
     6411                            *
     6412                            *                 *** 3 1 3 0 ***
     6413                            *
     6414                            *                 THIS TEST VERIFIES THAT THE RAD WILL ACCEPT
     6415                            *                 MULTIPLE SECTOR BYTES TRANSFERS WITHOUT
     6416                            *                 REPORTING ERROR.
     6417                            *
     6418                            *                    ORDER:         WRITE
     6419                            *                    BYTE ADDR:     BA(BUF1LO)
     6420                            *                    FLAGS:         HTE AND UE
     6421                            *                    BYTE COUNT:    2(BYTCURR)
     6422                            *
     6423                            *
     6424                            *
     6425   03 00D28    6AF013D3     T1ST3130 BAL,15   :SEEKMOD          BRANCH TO SEEK SUBROUTINE
     6426   03 00D29    6AF0142D              BAL,15   :FUCTEST+1
     6427   03 00D2A    000012C4              DATA     IOCD3130
     6428   03 00D2B    00000C3A A            DATA     3130              *** ERROR 3130 ***
     6429   03 00D2C    00001363              DATA     BSIP3110
     6430   03 00D2D    00001369              DATA     BSNP3110
     6431   03 00D2E    68000D33              B        T1ST3140          RETURN TO FUNCTIONAL DISPATCHER
     6432                            *
     6433   03 00D2F    CF001D35              HIO,0    *:DEVADDR         RESET DEV, WHERE ERROR WAS DETECTED
     6434   03 00D30    EAF0021D A            BAL,15   *:SENSE           TEST SENSE SW
     6435   03 00D31    2E000D31              WAIT     %                 HALT ON ERROR IF SS3 RESET
     6436   03 00D32    68000D28              B        T1ST3130          LOOP ON ERROR
     6437                            *
     6438                            *
     6439                            *                 *** 3 1 4 0 ***
     6440                            *
     6441                            *                 THIS TEST VERIFIES THAT A ZERO BYTE COUNT
     6442                            *                 INTERRUPT IS GENERATED AT THE COMPLETION
     6443                            *                 OF A 2 SECTOR WRITE.
     6444                            *
     6445                            *                     ORDER:        WRITE
     6446                            *                     BYTE ADDR:    BA(BUF1LO)
     6447                            *                     FLAGS:        IZC
     6448                            *                     BYTE COUNT:   (BYTCURR)
     6449                            *
     6450                            *
     6451                            *
     6452   03 00D33    6AF013D3     T1ST3140 BAL,15   :SEEKMOD
     6453   03 00D34    6AF0142C              BAL,15   :FUCTEST          GO TO FUNCTIONAL TEST
     6454   03 00D35    000012C6              DATA     IOCD3140
     6455   03 00D36    00000C44 A            DATA     3140              *** ERROR 3140 ***
     6456   03 00D37    00001366              DATA     BSIP3120
     6457   03 00D38    00001369              DATA     BSNP3110
     6458   03 00D39    680004B5              B        FUCTEXIT          RETURN TO FUNCTIONAL DISPATCHER
     6459                            *
     6460                            *
     6461   03 00D3A    CF001D35              HIO,0    *:DEVADDR         RESET DEV, WHERE ERROR WAS DETECTED
     6462   03 00D3B    EAF0021D A            BAL,15   *:SENSE           TEST SENSE SW
     6463   03 00D3C    2E000D3C              WAIT     %
     6464   03 00D3D    68000D33              B        T1ST3140          LOOP ON ERROR
     6465   03 00D3E    680004B5              B        FUCTEXIT          RETURN TO FUNCTIONAL DISPATCHER
     6466                                     PAGE
     6467                            *
     6468                            *
     6469                            *                 *** T S T 1, 3 2 ***
     6470                            *
     6471                            *                 *** W R I T E  T E S T  2 ***
     6472                            *
     6473                            *
     6474                            *                 THIS SUBTEST TESTS THE ABILITY OF THE RAD TO
     6475                            *                 RECEIVE AND RESPOND CORRECTLY TO WRITE LESS
     6476                            *                 THAN A SECTOR.
     6477                            *
     6478                            *
     6479                            T1ST32 ;
     6480   03 00D3F    22600004 A            LI,6     4
     6481   03 00D40    556212C9              STH,6    IOCD3210+1,1
     6482   03 00D41    32601D37              LW,6     BYTCURR           LOAD NO. OF BYTES/SECTOR
     6483   03 00D42    2560007F A            SLS,6    -1                CONVERT TO A HALF WORD COUNT
     6484   03 00D43    3560215B              STW,6    :PATWC            SAVE AS SIZE OF BUFFER USED
     6485   03 00D44    22602418              LI,6     BUF1LO            LOAD AND SAVE
     6486   03 00D45    35602158              STW,6    :PATBFR                STARTING ADDR OF BUFFER ADDR
     6487   03 00D46    6AF013D3     T1ST32A  BAL,15   :SEEKMOD          BRANCH TO SEEK SUBROUTINE
     6488   03 00D47    6AF0203B              BAL,15   :PATTERN          GO SPREAD PATTERN
     6489                            *
     6490                            *                 *** 3 2 1 0 ***
     6491                            *
     6492                            *                 THIS TEST VERIFIES THAT THE RAD WILL REPORT
     6493                            *                 'INCORRECT LENGTH' TO BYTE TRANSFERS OF LESS
     6494                            *                 THAN A SECTOR.
     6495                            *
     6496                            *                     ORDER:        WRITE
     6497                            *                     BYTE ADDR:    BA(BUF1LO)
     6498                            *                     FLAGS:        HTE,UE,CE
     6499                            *                 BYTE COUNT:       (BYTCURR)
     6500                            *
     6501                            *
     6502   03 00D48    6AF0142C     T1ST3210 BAL,15   :FUCTEST          GO TO FUNCTIONAL TEST
     6503   03 00D49    000012C8              DATA     IOCD3210
     6504   03 00D4A    00000C8A A            DATA     3210              *** ERROR 3210 ***
     6505   03 00D4B    0000136B              DATA     BSIP3210
     6506   03 00D4C    0000136E              DATA     BSNP3210
     6507   03 00D4D    68000D52              B        T1ST3215          GO TO NEXT TEST
     6508                            *
     6509   03 00D4E    CF001D35              HIO,0    *:DEVADDR         RESET DEV, WHERE ERROR WAS DETECTED
     6510   03 00D4F    EAF0021D A            BAL,15   *:SENSE           TEST SENSE SW
     6511   03 00D50    2E000D50              WAIT     %
     6512   03 00D51    68000D46              B        T1ST32A           LOOP ON ERROR
     6513                            *
     6514                            *                 *** 3 2 1 5 ***
     6515                            *
     6516                            *                 THIS TEST VERIFIES THAT NO DATA WAS ALTERED
     6517                            *                 IN THE OUTPUT BUFFER BY THE WRITE OPERATION.
     6518                            *
     6519                            *
     6520                            *
     6521                            T1ST3215 ;
     6522   03 00D52    6AF02036              BAL,15   :COMPARE
     6523   03 00D53    68000D59              B        T1ST3216
     6524   03 00D54    6AF01556              BAL,15   TST1ERMG
     6525   03 00D55    00000C8F A            DATA     3215              *** ERROR 3215 ***
     6526   03 00D56    EAF0021D A            BAL,15   *:SENSE
     6527   03 00D57    2E000D57              WAIT     %
     6528   03 00D58    68000D46              B        T1ST32A           LOOP ON ERROR
     6529   03 00D59    526212C9     T1ST3216 LH,6     IOCD3210+1,1
     6530   03 00D5A    20600004 A            AI,6     4
     6531   03 00D5B    556212C9              STH,6    IOCD3210+1,1
     6532   03 00D5C    31601D37              CW,6     BYTCURR
     6533   03 00D5D    69100D46              BL       T1ST32A
     6534   03 00D5E    680004B5              B        FUCTEXIT
     6535                                     PAGE
     6536                            *
     6537                            *                 *** T S T 1, 3 3 ***
     6538                            *
     6539                            *                 *** W R I T E  T E S T  3 ***
     6540                            *
     6541                            *                 THIS SUBTEST TESTS THE ABILITY OF THE RAD TO
     6542                            *                 CORRECTLY RECEIVE AND RESPOND TO WRITES OF GREATER
     6543                            *                 THAN A SECTOR
     6544                            *
     6545                            *
     6546                            *                 *** 3 3 1 0 ***
     6547                            *
     6548                            *                 THIS TEST VERIFIES THAT THE RAD WILL REPORT
     6549                            *                 'INCORRECT LENGTH' TO BYTE TRANSFERS OF
     6550                            *                 GREATER THAN A SECTOR BUT NOT EQUAL TO A SECTOR
     6551                            *                     ORDER:        WRITE
     6552                            *                     BYTE ADDR:    BA(BUF1LO)
     6553                            *                     FLAGS:        ICE,HTE,IUE
     6554                            *                     BYTE COUNT:   (BYTCURR)
     6555                            *
     6556                            T1ST33 ;
     6557   03 00D5F    32601D37              LW,6     BYTCURR
     6558   03 00D60    2560007F A            SLS,6    -1
     6559   03 00D61    3560215B              STW,6    :PATWC
     6560   03 00D62    22602418              LI,6     BUF1LO
     6561   03 00D63    35602158              STW,6    :PATBFR
     6562   03 00D64    22400004 A            LI,4     4
     6563   03 00D65    30401D37              AW,4     BYTCURR
     6564   03 00D66    554212CB              STH,4    IOCD3310+1,1
     6565   03 00D67    6AF013D3     T1ST33A  BAL,15   :SEEKMOD
     6566   03 00D68    6AF0203B              BAL,15   :PATTERN
     6567   03 00D69    6AF0142C     T1ST3310 BAL,15   :FUCTEST          GO TO FUNCTIONAL TEST
     6568   03 00D6A    000012CA              DATA     IOCD3310
     6569   03 00D6B    00000CEE A            DATA     3310              *** ERROR 3310 ***
     6570   03 00D6C    00001370              DATA     BSIP3310
     6571   03 00D6D    00001373              DATA     BSNP3310
     6572   03 00D6E    68000D73              B        T1ST3315          BRANCH TO NEXT TEST
     6573                            *
     6574   03 00D6F    CF001D35              HIO,0    *:DEVADDR         RESET DEV, WHERE ERROR WAS DETECTED
     6575   03 00D70    EAF0021D A            BAL,15   *:SENSE           TEST SENSE SW
     6576   03 00D71    2E000D71              WAIT     %
     6577   03 00D72    68000D67              B        T1ST33A
     6578                            *
     6579                            *
     6580   03 00D73    6AF02036     T1ST3315 BAL,15   :COMPARE          TEST FOR CHANGES IN BUFFER AREA
     6581   03 00D74    68000D7A              B        T1ST3316
     6582   03 00D75    6AF01556              BAL,15   TST1ERMG
     6583   03 00D76    00000CF3 A            DATA     3315              *** ERROR 3315 ***
     6584   03 00D77    EAF0021D A            BAL,15   *:SENSE
     6585   03 00D78    2E000D78              WAIT     %
     6586   03 00D79    68000D67              B        T1ST33A
     6587                            *
     6588                            *
     6589                            *
     6590                            T1ST3316 ;
     6591   03 00D7A    526212CB              LH,6     IOCD3310+1,1
     6592   03 00D7B    20600004 A            AI,6     4
     6593   03 00D7C    556212CB              STH,6    IOCD3310+1,1
     6594   03 00D7D    2560007F A            SLS,6    -1
     6595   03 00D7E    31601D37              CW,6     BYTCURR
     6596   03 00D7F    69100D67              BL       T1ST33A
     6597   03 00D80    680004B5              B        FUCTEXIT
     6598                                     PAGE
     6599                            *                 *** T S T 1 , 3 4 ***
     6600                            *
     6601                            *                 *** S E C T O R  I N C R E M E N T  T E S T ***
     6602                            *
     6603                            *                 THIS SUBTEST VERIFIES THAT RAD CAN INCREMENT
     6604                            *                 THE SEEK ADDRESS REGISTER.  IF ANY ERRORS
     6605                            *                 ARE DETECTED A TABLE WILL BE OUTPUT SHOWING
     6606                            *                 THE NUMBER OF TIMES A PARTICULAR SECTOR OR
     6607                            *                 TRACK (BAND) WAS OBSERVED.  EACH SECTOR OR
     6608                            *                 TRACK (BAND) SHOULD HAVE BEEN OBSERVED
     6609                            *                 ONLY ONCE.
     6610                            *
     6611   03 00D81    22F00D52 A   T1ST34   LI,15    3410              LOAD AND SAVE
     6612   03 00D82    35F015BB              STW,15   TABDPLY1              ERROR TEST NO.
     6613   03 00D83    32401CCB              LW,4     #DDTBIAS                                          *A01
     6614   03 00D84    02200090 A            LCI      #DDTADR3-#DDTADR1                                 *A01
     6615   03 00D85    2A681CCC              LM,6     MODEL,4                                           *A01
     6616   03 00D86    2B601D34              STM,6    MODELC                                            *A01
     6617   03 00D87    02200040 A            LCI      4                 LOAD AND
     6618   03 00D88    2A40162E              LM,4     TABLE012              SAVE
     6619   03 00D89    2B4015F8              STM,4    TABLE100+2            'SECTOR INCREMENT'
     6620   03 00D8A    12401620              LD,4     TABLE001          LOAD AND
     6621   03 00D8B    5542160A              STH,4    TABLE101,1            SAVE
     6622   03 00D8C    3550160B              STW,5    TABLE101+1            'SECTOR'
     6623   03 00D8D    32601D36              LW,6     SECTCURR          LOAD NORMAL LENGTH OF THE TABLE
     6624   03 00D8E    6AF01C34              BAL,15   MEMORY3           GO MAKE MEMORY AVAILABLE
     6625   03 00D8F    680004B5              B        FUCTEXIT          IF NONE AVAILABLE SKIP TEST
     6626   03 00D90    32601D37              LW,6     BYTCURR           FETCH BYTCURR
     6627   03 00D91    556212CD              STH,6    IOCD3430+1,1      STORE BYTE COUNT
     6628   03 00D92    2560007E A            SLS,6    -2                CONVERT TO WORD ADDR            *A01
     6629   03 00D93    3560215B              STW,6    :PATWC            SAVE AS PATTERN WC              *A01
     6630   03 00D94    22802418              LI,8     BUF1LO            LOAD STARTING ADDR OF PATTERN
     6631   03 00D95    35802158              STW,8    :PATBFR           SAVE AS PATTERN STARTING ADDR
     6632   03 00D96    22900000 A            LI,9     0                 LOAD ZERO
     6633   03 00D97    15902162              STD,9    :PATID                SET UP ZERO PATTERN
     6634   03 00D98    6AF0203B              BAL,15   :PATTERN          GO BUILD PATTERN
     6635                            *
     6636                            *                 *** 3 4 1 0 ***
     6637                            *                 THIS TEST IS DESIGNED TO WRITE A SECTOR, SENSE
     6638                            *                 TO SEE IF IT WAS INCREMENTED AND CONTINUE TO
     6639                            *                 DO THIS UNTIL AN ENTIRE TRACK HAD BEEN ATTEMPTED.
     6640                            *                 IF A SECTOR IS NOT FOUND OR IS FOUND MORE THAN
     6641                            *                 ONCE PER TRACK (BAND), A TABLE WILL BE OUTPUT
     6642                            *                 SHOWING THE NUMBER OF TIMES EACH SECTOR WAS
     6643                            *                 SENSED.
     6644   03 00D99    22800000 A   T1ST3410 LI,8     0
     6645   03 00D9A    35801632              STW,8    TABPASS           RESET PRINT INHIBIT FLAG
     6646   03 00D9B    32601D36              LW,6     SECTCURR
     6647   03 00D9C    356014F7              STW,6    T1ST34SV                                          *B03
     6648   03 00D9D    32501D38              LW,5     CURRSEEK          LOAD ABSOLUTE SEEK ADDR
     6649   03 00D9E    6AC01C24              BAL,12   BUILDSK           CONVERT TO DEV SEEK ADDR
     6650   03 00D9F    3A401D3C              LCW,4    TCKCURR           LOAD SHIFT COUNT
     6651   03 00DA0    4B4023F0              AND,4    =X'37F'
     6652   03 00DA1    329013FA              LW,9     SEEKRAD           LOAD DEV SEEK ADDR
     6653   03 00DA2    A5800004 A            SCD,8    *4                REMOVE SECTOR ADDR
     6654   03 00DA3    33000008 A            MTW,0    8                 TEST FOR A SECTOR ADDR.         *B03
     6655   03 00DA4    68300DA6              BEZ      %+2               IF NONE BRANCH
     6656   03 00DA5    20900001 A            AI,9     1                 ADD 1 TO TRACK (BAND) ADDR
     6657   03 00DA6    22800000 A            LI,8     0                 ZERO 8
     6658   03 00DA7    37801D36              MW,8     SECTCURR          CALCULATE ABSOLUTE SEEK ADDR.
     6659   03 00DA8    35901D38              STW,9    CURRSEEK          SET UP A SEEK ABSOLUTE SEEK ORDER
     6660   03 00DA9    30901D36              AW,9     SECTCURR                                          *B03
     6661   03 00DAA    31901D39              CW,9     SURFCEND          IS NEW ABSOLUTE LOWER LIMIT GREATER
     6662   03 00DAB    681004B5              BGE      FUCTEXIT             THAN ABSOLUTE UPPER LIMIT - SKIP
     6663   03 00DAC    22600052 A   T1ST3412 LI,6     82                LOAD TABLE SPAN
     6664   03 00DAD    6AF01C34              BAL,15   MEMORY3           GO MAKE MEMORY AVAILABLE
     6665   03 00DAE    680004B5              B        FUCTEXIT          IF NONE AVAILABLE SKIP TEST
     6666   03 00DAF    32501D38              LW,5     CURRSEEK          RESTORE ABSOLUTE LOWER SEEK LIMIT
     6667   03 00DB0    6AC01C24              BAL,12   BUILDSK           GO CONVERT TO DEVICE SEEK
     6668   03 00DB1    6AF013D3              BAL,15   :SEEKMOD          SEEK DEVICE
     6669   03 00DB2    68000DB3              B        %+1
     6670   03 00DB3    326014F7              LW,6     T1ST34SV          RESTORE TABLE SPAN
     6671   03 00DB4    68000DB7              B        T1ST3415          GO DO SENSE
     6672   03 00DB5    326014F7     T1ST3411 LW,6     T1ST34SV          RESTORE TABLE SPAN
     6673   03 00DB6    6AF013E2              BAL,15   :WRTMOD           GO DO WRITE
     6674   03 00DB7    6AF01402     T1ST3415 BAL,15   :SENSEMOD         GO DO SENSE
     6675   03 00DB8    7272141C              LB,7     :SNSWORD,1        LOAD SEEK BYTE
     6676   03 00DB9    22400020 A            LI,4     32                REMOVE
     6677   03 00DBA    38401D3C              SW,4     TCKCURR               TRACK (BAND)
     6678   03 00DBB    A5700004 A            SLS,7    *4                    INFORMATION
     6679   03 00DBC    32401D3C              LW,4     TCKCURR           LOAD SHIFT COUNT
     6680   03 00DBD    20400200 A            AI,4     X'200'
     6681   03 00DBE    A5700004 A            SCS,7    *4                POSITION SECTOR ADDR
     6682   03 00DBF    6AF0159C              BAL,15   TABUILD           GO PVT ENTIRE INTO TABLE
     6683   03 00DC0    68000DC5              B        T1ST3420          GO TO NEXT TEST
     6684   03 00DC1    68000DB5              B        T1ST3411          GO BACK FOR NEXT PASS
     6685   03 00DC2    EAF0021D A            BAL,15   *:SENSE           GO TEST SENSE SWITCHES
     6686   03 00DC3    2E000DC3              WAIT     %
     6687   03 00DC4    68000DAC              B        T1ST3412          LOOP ON ERROR
     6688                            *
     6689                            *                 *** 3 4 2 0 ***
     6690                            *
     6691                            *                 THIS TEST IS DESIGNED TO WRITE A SECTOR, SENSE
     6692                            *                 THE INCREMENTING TO THE NEXT HIGHER TRACK (BAND)
     6693                            *                 AND CONTINUE TO DO THIS UNTIL ALL TRACKS (BANDS)
     6694                            *                 THAT ARE SPECIFIED BY THE 'SYST' AND 'SEEK'
     6695                            *                 DIRECTIVES HAVE BEEN TRIED.  IF A TRACK (BAND)
     6696                            *                 IS NOT FOUND OR IS FOUND MORE THAN ONCE, A
     6697                            *                 TABLE WILL BE OUTPUT SHOWING THE NUMBER
     6698                            *                 OF TIMES EACH TRACK (BAND) WAS SENSED.
     6699                            *
     6700   03 00DC5    22F00D5C A   T1ST3420 LI,15    3420              LOAD AND SAVE
     6701   03 00DC6    35F015BB              STW,15   TABDPLY1              TEST ERROR NO
     6702   03 00DC7    12401622              LD,4     TABLE002          LOAD 'BAND'
     6703   03 00DC8    22707212 A            LI,7     X'7212'           LOAD HIGH SPEED MODEL NO.
     6704   03 00DC9    31701D34              CW,7     MODELC                IS IT HIGH SPEED?
     6705   03 00DCA    68300DCC              BE       %+2                   IF SO BRANCH
     6706   03 00DCB    12401624              LD,4     TABLE003          LOAD 'TRACK'
     6707   03 00DCC    5542160A              STH,4    TABLE101,1        STORE
     6708   03 00DCD    3550160B              STW,5    TABLE101+1            INFORMATION INTO MESSAGE
     6709   03 00DCE    22000000 A            LI,0     0
     6710   03 00DCF    35001632              STW,0    TABPASS           RESET HEADER PRINT INHIBIT FLAG
     6711   03 00DD0    32401CCB              LW,4     #DDTBIAS          LOAD BIAS POINTER
     6712   03 00DD1    32581CD0              LW,5     SLOWER,4          LOAD ABSOLUTE SEEK LOWER LIMIT
     6713   03 00DD2    6AC01C24              BAL,12   BUILDSK           CONVERT TO DEVICE SEEK
     6714   03 00DD3    329013FA              LW,9     SEEKRAD           LOAD DEVICE SEEK ADDR
     6715   03 00DD4    5590141C              STH,9    :SNSWORD                                          *BOO
     6716   03 00DD5    3A401D3C              LCW,4    TCKCURR           LOAD COMPLEMENT SHIFT COUNT
     6717   03 00DD6    4B4023E6              AND,4    =X'7F'
     6718   03 00DD7    A5900004 A            SLS,9    *4                REMOVE SECTOR INFOR
     6719   03 00DD8    35900E2B              STW,9    SAVEBIAS
     6720   03 00DD9    22800000 A            LI,8     0                 LOAD ZERO
     6721   03 00DDA    37801D36              MW,8     SECTCURR          RECALULATE ABSOLUTE SEEK LOWER LIMIT
     6722   03 00DDB    209FFFFF A            AI,9     -1                SUBTRACT 1
     6723   03 00DDC    30901D36              AW,9     SECTCURR          ADD 1 ENTIRE TRACK (BAND)
     6724   03 00DDD    35901D38              STW,9    CURRSEEK          SAVE AS ABSOLUTE SEEK LOWER LIMIT
     6725   03 00DDE    32501D39              LW,5     SURFCEND          LOAD ABSOLUTE SEEK UPPER LIMIT
     6726   03 00DDF    38501D38              SW,5     CURRSEEK          SUBTRACK LOWER LIMIT
     6727   03 00DE0    682004B5              BLEZ     FUCTEXIT          IF RESULT IS >= 0 , QUIT
     6728   03 00DE1    20500001 A            AI,5     1
     6729   03 00DE2    6AC01C24              BAL,12   BUILDSK           NOW GO CONVERT TO A DEVICE SEEK
     6730   03 00DE3    326013FA              LW,6     SEEKRAD           LOAD PSEUDO DEVICE SEEK
     6731   03 00DE4    A5600004 A            SLS,6    *4                REMOVE SECTOR INFOR
     6732   03 00DE5    356014F7              STW,6    T1ST34SV          SAVE AS NO. OF TRACKS (BANDS) TO BYT
     6733   03 00DE6    33000006 A            MTW,0    6                 TESTING WORD
     6734   03 00DE7    682004B5              BLEZ     FUCTEXIT          IF LESS OR EQUAL ZERO EXIT
     6735   03 00DE8    22600200 A   T1ST3424 LI,6     512               LOAD MAX NO. OF TRACKS
     6736   03 00DE9    6AF01C34              BAL,15   MEMORY3           GO MAKE MEMORY AVAILABLE
     6737   03 00DEA    680004B5              B        FUCTEXIT          IF NONE AVAILABLE SKIP TEST
     6738   03 00DEB    32F00E2B              LW,15    SAVEBIAS
     6739   03 00DEC    35F01633              STW,15   TABBIAS
     6740   03 00DED    30F014F7              AW,15    T1ST34SV          ADD WORDS
     6741   03 00DEE    35F01C97              STW,15   SECTLMT           STORE WORD
     6742   03 00DEF    326014F7              LW,6     T1ST34SV                                          *BOO
     6743   03 00DF0    3A501D36              LCW,5    SECTCURR                                          *BOO
     6744   03 00DF1    66501D38              AWM,5    CURRSEEK                                          *BOO
     6745   03 00DF2    68000DFB              B        T1ST3425+1        B: 1ST TIME ONLY                *BOO
     6746                            T1ST3423 ;
     6747   03 00DF3    326014F7              LW,6     T1ST34SV          RESTORE NO.OF TRACK (BAND) TO BE TST
     6748   03 00DF4    32501D38              LW,5     CURRSEEK          LOAD ABSOLUTE SEEK ADDRESS
     6749   03 00DF5    6AC01C24              BAL,12   BUILDSK           GO BUILD DEV SEEK ADDR
     6750   03 00DF6    6AF013D3              BAL,15   :SEEKMOD          GO SEEK RAD
     6751   03 00DF7    68000DF8              B        %+1
     6752   03 00DF8    326014F7     T1ST3421 LW,6     T1ST34SV          RESTORE NO.OF TRACK (BAND) TO BE TST
     6753   03 00DF9    6AF013E2              BAL,15   :WRTMOD           GO WRITE
     6754   03 00DFA    6AF01402     T1ST3425 BAL,15   :SENSEMOD         SENSE WRITE
     6755   03 00DFB    5270141C              LH,7     :SNSWORD          LOAD TRACK (BAND) ADDR
     6756   03 00DFC    3A401D3C              LCW,4    TCKCURR           LOAD SHIFT COUNT
     6757   03 00DFD    4B4023E6              AND,4    =X'7F'
     6758   03 00DFE    4B7023E7              AND,7    =X'7FFF'          REMOVE WRITE PROTECT BIT
     6759   03 00DFF    A5700004 A            SLS,7    *4                REMOVE SECTOR ADDR
     6760   03 00E00    32401D36              LW,4     SECTCURR          UPDATE TRACK (BAND)
     6761   03 00E01    66401D38              AWM,4    CURRSEEK              ADDRESS
     6762   03 00E02    6AF0159C              BAL,15   TABUILD           GO INSERT INTO TABLE
     6763   03 00E03    68000E08              B        T1ST3430          BRANCH TO ANOTHER TEST
     6764   03 00E04    68000DF3              B        T1ST3423          GO DO SOME MORE
     6765   03 00E05    EAF0021D A            BAL,15   *:SENSE           GO TEST SENSE SWITCHES
     6766   03 00E06    2E000E06              WAIT     %
     6767   03 00E07    68000DE8              B        T1ST3424          GO LOOP ON ERROR
     6768                            *
     6769                            *
     6770                            *                 *** 3 4 3 0 ***
     6771                            *
     6772                            *                 THIS VERIFIES A RAD WILL REPORT SECTOR UNAVAILABLE
     6773                            *                 BY INCREMENTING PAST THE END OF THE LOGICAL SURFACE,
     6774                            *                 THE TEST WILL ONLY BE PERFORMED IF THE END OF THE
     6775                            *                 LOGICAL SURFACE IS AVAILABLE, THE PROGRAM HAS NOT
     6776                            *                 LIMITED IT WITH THE 'SYST' OR 'SEEK' DIRECTIVES.
     6777                            *
     6778   03 00E08    32601D34     T1ST3430 LW,6     MODELC            LOAD MODEL NO.
     6779   03 00E09    22700000 A            LI,7     0                 ZERO INDEX
     6780   03 00E0A    316E0385     T1ST3431 CW,6     MODELNO,7         COMPARE FOR MATCH
     6781   03 00E0B    68300E10              BE       T1ST3432          IF MATCH CONTINUE
     6782   03 00E0C    20700001 A            AI,7     1
     6783   03 00E0D    21700007 A            CI,7     MODELEND-MODELNO
     6784   03 00E0E    69100E0A              BL       T1ST3431
     6785   03 00E0F    6AF01584              BAL,15   TILT              NO MODEL NO. COMPARED
     6786                            *
     6787                            *
     6788                            *
     6789   03 00E10    32601D34     T1ST3432 LW,6     MODELC            GET CURRENT MODEL NO.           *C02
     6790   03 00E11    21607250 A            CI,6     X'7250'             IS IT A CARTRIDGE  DISK       *C02
     6791   03 00E12    68000E16              B        %+4               NO ---SAME FOR RAD AND DISK     *C02
     6792   03 00E13    22E01375              LI,14    BSIP3430          SET UP TESTS FOR                *C02
     6793   03 00E14    22F01377              LI,15    BSNP3430            CARTRIDGE DISKS               *C02
     6794   03 00E15    68000E18              B        %+3                                               *C02
     6795   03 00E16    22E0133D              LI,14    BSIP2210          SET UP TESTS FOR                *C02
     6796   03 00E17    22F0133F              LI,15    BSNP2210            RAD                           *C02
     6797   03 00E18    35E00E23              STW,14   T1ST343D          SAVE TEST                       *C02
     6798   03 00E19    35F00E24              STW,15   T1ST343D+1         DATA                           *C02
     6799                            *                                                                   *C02
     6800                            *C02     LW,5     SURFCEND          LOAD END ADDRESS OF SURFACE
     6801   03 00E1A    315E038C              CW,5     CAPACITY,7        IS IT EQUAL TO CAPACITY
     6802   03 00E1B    693004B5              BNE      FUCTEXIT          IF NOT SKIP THIS TEST
     6803   03 00E1C    205FFFFF A            AI,5     -1                BACK UP 1
     6804   03 00E1D    6AC01C24              BAL,12   BUILDSK           GO BUILD SEEK ADDR
     6805   03 00E1E    6AF013D3              BAL,15   :SEEKMOD          GO SEEK DEVICE
     6806   03 00E1F    6AF013E2              BAL,15   :WRTMOD           GO WRITE
     6807   03 00E20    6AF0142C              BAL,15   :FUCTEST          NO GO WRITE AGAIN
     6808   03 00E21    000012CC              DATA     IOCD3430
     6809   03 00E22    00000D66 A            DATA     3430              *** ERROR 3430 ***
     6810   03 00E23    00000000 A   T1ST343D DATA     0                                                 *C02
     6811   03 00E24    00000000 A            DATA     0                                                 *C02
     6812   03 00E25    680004B5              B        FUCTEXIT          RETURN TO FTM
     6813   03 00E26    CF001D35              HIO,0    *:DEVADDR         RESET DEVICE
     6814   03 00E27    EAF0021D A            BAL,15   *:SENSE           GO TEST SENSE SWITCHES
     6815   03 00E28    2E000E28              WAIT     %
     6816   03 00E29    68000E08              B        T1ST3430          GO LOOP ON ERROR
     6817   03 00E2A    680004B5              B        FUCTEXIT          RETURN TO FTM.
     6818   03 00E2B    00000000 A   SAVEBIAS DATA     0
     6819                                     PAGE
     6820                            *                                                                   *A01
     6821                            *                  *** T S T 1, 3 5 ***                             *A01
     6822                            *                                                                   *A01
     6823                            *                  *** R E A D  T E S T 1 ***                       *A01
     6824                            *                                                                   *A01
     6825                            *                  THIS TEST VERIFIES THE ABILITY OF THE RAD TO     *A01
     6826                            *                  CORRECTLY RECEIVED AND RESPOND TO READ           *A01
     6827                            *                  (ORDER X'02') OF A SECTOR.                       *A01
     6828                            *                                                                   *A01
     6829                            *                 *** 3 5 1 0 ***
     6830                            *
     6831                            *                 NO TRACK (BAND) ANYWHERE ON THE RAD COULD BE FOUND
     6832                            *                 TO HAVE A SYNC PATTERN.
     6833                            *
     6834                            *
     6835                            *
     6836                            T1ST35 ;
     6837   03 00E2C    22A00DBC A            LI,10    3516              FETCH NO. '3516'
     6838   03 00E2D    6AF00E36              BAL,15   FNDGTRK           BRANCH TO FIND A GOOD TRACK
     6839   03 00E2E    68000E5F              B        T1ST3520          GO TO NEXT TEST
     6840   03 00E2F    6AF01556              BAL,15   TST1ERMG          REPORT ERROR
     6841   03 00E30    00000DB6 A            DATA     3510              *** ERROR 3510 ***
     6842   03 00E31    CF001D35              HIO,0    *:DEVADDR         RESET DEV, WHERE ERROR WAS DETECTED
     6843   03 00E32    EAF0021D A            BAL,15   *:SENSE
     6844   03 00E33    2E000E33              WAIT     %
     6845   03 00E34    68000E2C              B        T1ST35            LOOP ON ERROR
     6846   03 00E35    680004B5              B        FUCTEXIT          EXIT
     6847                            *
     6848                            *                 *** 3 5 1 6 ***
     6849                            *
     6850                            *                 *** SEARCH FOR A GOOD TRACK ***
     6851                            *
     6852                            *
     6853                            *
     6854                            *                 THIS SUBROUTINE SEARCHES TRACKS ON THE RAD.
     6855                            *                 THE SEARCH IS STOPPED WHENEVER A GOOD TRACK
     6856                            *                 IS LOCATED.
     6857                            *
     6858                            *
     6859                            FNDGTRK ;
     6860   03 00E36    32401CCB              LW,4     #DDTBIAS          FETCH DDTBIAS
     6861   03 00E37    32581CD0              LW,5     SLOWER,4
     6862   03 00E38    35A00E4C              STW,10   T1ST3516
     6863   03 00E39    35F00E5E     FNDGTRKX STW,15   FNDEXIT           STORE RETURN ADDR
     6864   03 00E3A    32601D37              LW,6     BYTCURR
     6865   03 00E3B    556212CF              STH,6    IOCD3510+1,1
     6866   03 00E3C    2560007F A            SLS,6    -1
     6867   03 00E3D    3560215B              STW,6    :PATWC
     6868   03 00E3E    22602418              LI,6     BUF1LO
     6869   03 00E3F    35602158              STW,6    :PATBFR
     6870   03 00E40    22700000 A            LI,7     0
     6871   03 00E41    15702162              STD,7    :PATID            STORE DOUBLEWORD
     6872   03 00E42    20500001 A            AI,5     1
     6873   03 00E43    4B5023F1              AND,5    L(X'FFFFFFFE')
     6874   03 00E44    68000E5A              B        T1ST3511
     6875                            *
     6876                            *
     6877   03 00E45    6AC01C24     FNDGTRK1 BAL,12   BUILDSK
     6878   03 00E46    6AF013D3              BAL,15   :SEEKMOD
     6879   03 00E47    6AF0203B              BAL,15   :PATTERN
     6880   03 00E48    6AF013E2              BAL,15   :WRTMOD
     6881   03 00E49    6AF013D3              BAL,15   :SEEKMOD
     6882   03 00E4A    6AF0142C              BAL,15   :FUCTEST          GO TO FUNCTIONAL TEST
     6883   03 00E4B    000012CE              DATA     IOCD3510
     6884   03 00E4C    00000000 A   T1ST3516 DATA     0
     6885   03 00E4D    00001379              DATA     BSIP3510
     6886   03 00E4E    0000137C              DATA     BSNP3510
     6887   03 00E4F    68000E50              B        %+1
     6888   03 00E50    CDC01D35              TIO,12   *:DEVADDR
     6889   03 00E51    5262000D A            LH,6     13,1
     6890   03 00E52    31601D37              CW,6     BYTCURR           COMPARE
     6891   03 00E53    E9100E5E              BL       *FNDEXIT          BR. IF BYTCURR IS GREATER THAN BC
     6892   03 00E54    32501D38              LW,5     CURRSEEK          FETCH CURRSEEK
     6893   03 00E55    30501D36              AW,5     SECTCURR          ADD  SECTCURR TO REG 5
     6894   03 00E56    22400000 A            LI,4     0                 FETCH ZERO
     6895   03 00E57    36401D36              DW,4     SECTCURR          DIVISION
     6896   03 00E58    22400000 A            LI,4     0                 FETCH ZERO
     6897   03 00E59    37401D36              MW,4     SECTCURR          MULTIPLICATION
     6898   03 00E5A    35501D38     T1ST3511 STW,5    CURRSEEK          STORE
     6899   03 00E5B    31501D39              CW,5     SURFCEND
     6900   03 00E5C    69100E45              BL       FNDGTRK1
     6901   03 00E5D    E8020E5E              B        *FNDEXIT,1
     6902                            *
     6903                            *
     6904   03 00E5E    00000000 A   FNDEXIT  DATA     0
     6905                            *
     6906                            *
     6907                            *                 *** 3 5 2 0 ***
     6908                            *
     6909                            *                 THIS TEST VERIFIES THAT A ZERO BYTE
     6910                            *                 COUNT INTERRUPT IS GENERATED IN SYNC
     6911                            *                 WITH THE TRASFER OF DATA OF A RAD
     6912                            *                 ASSOCIATED WITH AN '1' SECTOR READ.
     6913                            *
     6914                            *                    ORDER:         READ(X'02')
     6915                            *                    BYTE ADDR:     BA(BUF1LO)
     6916                            *                    FLAGS:         IZC
     6917                            *                    BYTE COUNT:    (BYTCURR)
     6918                            *
     6919   03 00E5F    6AF013D3     T1ST3520 BAL,15   :SEEKMOD          BR.   TO SEEKMOD SUBROUTINE
     6920   03 00E60    32601D37              LW,6     BYTCURR           FETCH BYTE COUNT
     6921   03 00E61    556212D1              STH,6    IOCD3520+1,1
     6922   03 00E62    6AF0142C              BAL,15   :FUCTEST          GO TO FUNCTIONAL TEST
     6923   03 00E63    000012D0              DATA     IOCD3520
     6924   03 00E64    00000DC0 A            DATA     3520              *** ERROR 3520 ***
     6925   03 00E65    0000137A              DATA     BSIP3520
     6926   03 00E66    0000137D              DATA     BSNP3520
     6927   03 00E67    680004B5              B        FUCTEXIT
     6928                            *
     6929                            *
     6930   03 00E68    CF001D35              HIO,0    *:DEVADDR         RESET DEV, WHERE ERROR WAS DETECTED
     6931   03 00E69    EAF0021D A            BAL,15   *:SENSE           TEST SENSE SW
     6932   03 00E6A    2E000E6A              WAIT     %
     6933   03 00E6B    68000E5F              B        T1ST3520          LOOP ON ERROR
     6934   03 00E6C    680004B5              B        FUCTEXIT          BRANCH TO EXIT
     6935                            *
     6936                            *
     6937                                     PAGE
     6938                            *
     6939                            *                 *** T S T 1, 3 6 ***
     6940                            *
     6941                            *                 *** R E A D  T E S T  2 ***
     6942                            *
     6943                            *                 THIS SUBTEST TESTS THE ABILITY OF THE RAD
     6944                            *                 TO CORRECTLY RECEIVE AND RESPOND TO READ
     6945                            *                 (ORDER X'02') OF LESS THAN A SECTOR
     6946                            *
     6947                            *
     6948                            *
     6949                            *
     6950                            T1ST36 ;
     6951   03 00E6D    22A00E20 A            LI,10    3616
     6952   03 00E6E    6AF00E36              BAL,15   FNDGTRK
     6953   03 00E6F    68000E76              B        T1ST3620
     6954   03 00E70    6AF01556              BAL,15   TST1ERMG
     6955   03 00E71    00000E1A A            DATA     3610              *** ERROR 3610 ***
     6956   03 00E72    EAF0021D A            BAL,15   *:SENSE
     6957   03 00E73    2E000E73              WAIT     %
     6958   03 00E74    68000E6D              B        T1ST36
     6959   03 00E75    680004B5              B        FUCTEXIT          EXIT
     6960                            *
     6961                            *
     6962                            *                 *** 3 6 2 0 ***
     6963                            *
     6964                            *                 THIS TEST VERIFIES THAT THE RAD WILL REPORT
     6965                            *                 'INCORRECT LENGTH' TO BYTE TRANSFERS OF LESS THAN
     6966                            *                 A SECTOR
     6967                            *
     6968                            *                     ORDER:        READ(X'02')
     6969                            *                     BYTE ADDR:    BA(BUF1LO)
     6970                            *                     FLAGS:        IZC
     6971                            *                     BYTE COUNT:   (BYTCURR)
     6972                            *
     6973                            *
     6974                            *
     6975   03 00E76    22400004 A   T1ST3620 LI,4     4                 SET UP IOCD
     6976   03 00E77    554212D3     T1ST3621 STH,4    IOCD3620+1,1
     6977   03 00E78    6AF013D3              BAL,15   :SEEKMOD          GO SEEK RAD
     6978   03 00E79    6AF0142C              BAL,15   :FUCTEST          GO TO FUNCTIONAL TEST
     6979   03 00E7A    000012D2              DATA     IOCD3620
     6980   03 00E7B    00000E24 A            DATA     3620              *** ERROR 3620 ***
     6981   03 00E7C    0000137F              DATA     BSIP3620
     6982   03 00E7D    00001381              DATA     BSNP3620
     6983                            *
     6984                            *
     6985                            *
     6986                            *
     6987   03 00E7E    68000E83              B        T1ST3622
     6988                            *
     6989   03 00E7F    CF001D35              HIO,0    *:DEVADDR
     6990   03 00E80    EAF0021D A            BAL,15   *:SENSE
     6991   03 00E81    2E000E81              WAIT     %
     6992   03 00E82    68000E77              B        T1ST3621
     6993   03 00E83    524212D3     T1ST3622 LH,4     IOCD3620+1,1      LOAD IOCD
     6994   03 00E84    20400004 A            AI,4     4
     6995   03 00E85    31401D37              CW,4     BYTCURR
     6996   03 00E86    69100E77              BL       T1ST3621          GO LOOP
     6997   03 00E87    680004B5              B        FUCTEXIT
     6998                                     PAGE
     6999                            *
     7000                            *                 *** T S T 1, 3 7 ***
     7001                            *
     7002                            *                 *** R E A D  T E S T  3 ***
     7003                            *
     7004                            *                 THIS SUBTEST TESTS THE ABILITY OF THE RAD
     7005                            *                 TO CORRECTLY RECEIVE AND RESPOND TO READ
     7006                            *                 (ORDER X'02') OF GREATER THAN A SECTOR.
     7007                            *
     7008                            *
     7009                            *
     7010                            *
     7011                            T1ST37 ;
     7012   03 00E88    22A00E84 A            LI,10    3716              FETCH NO. '3716'
     7013   03 00E89    6AF00E36              BAL,15   FNDGTRK           BRANCH TO FIND GOOD TRACK SUBR.
     7014   03 00E8A    68000E91              B        T1ST3720          IF GOOD BRANCH OUT
     7015   03 00E8B    6AF01556              BAL,15   TST1ERMG          GO REPORT ERROR
     7016   03 00E8C    00000E7E A            DATA     3710              *** ERROR 3710 ***
     7017   03 00E8D    EAF0021D A            BAL,15   *:SENSE           TEST SENSE SW
     7018   03 00E8E    2E000E8E              WAIT     %
     7019   03 00E8F    68000E88              B        T1ST37            LOOP ON ERROR
     7020   03 00E90    680004B5              B        FUCTEXIT          EXIT
     7021                            *
     7022                            *
     7023                            *                 *** 3 7 2 0 ***
     7024                            *
     7025                            *                 THIS TEST VERIFIES THAT THE RAD WILL REPORT
     7026                            *                 'INCORRECT LENGTH' TO BYTE TRANSFERS OF GREATER
     7027                            *                 THAN A SECTOR BUT LESS THAN 2 SECTORS
     7028                            *
     7029                            *                     ORDER:        READ(X'02')
     7030                            *                     BYTE ADDR:    BA(BUF1LO)
     7031                            *                     FLAGS:        IZC
     7032                            *                     BYTE COUNT:   (BYTCURR)
     7033                            *
     7034                            *
     7035                            *
     7036   03 00E91    32401D37     T1ST3720 LW,4      BYTCURR          FETCH BYTCURR
     7037   03 00E92    20400004 A            AI,4     4
     7038   03 00E93    554212D5     T1ST3721 STH,4    IOCD3720+1,1      SET UP IOCD
     7039   03 00E94    6AF013D3              BAL,15   :SEEKMOD          GO SEEK RAD
     7040   03 00E95    6AF0142C              BAL,15   :FUCTEST          GO TO FUNCTIONAL TEST
     7041   03 00E96    000012D4              DATA     IOCD3720
     7042   03 00E97    00000E88 A            DATA     3720              *** ERROR 3720 ***
     7043   03 00E98    00001383              DATA     BSIP3720
     7044   03 00E99    00001385              DATA     BSNP3720
     7045   03 00E9A    68000E9F              B        T1ST3722          IF GOOD BRANCH TO THE NEXT TEST
     7046                            *
     7047   03 00E9B    CF001D35              HIO,0    *:DEVADDR         RESET DEV, WHERE ERROR WAS DETECTED
     7048   03 00E9C    EAF0021D A            BAL,15   *:SENSE           TEST SENSE SW
     7049   03 00E9D    2E000E9D              WAIT     %
     7050   03 00E9E    68000E93              B        T1ST3721          LOOP ON ERROR                   *A01
     7051   03 00E9F    524212D5     T1ST3722 LH,4     IOCD3720+1,1      LOAD BC FROM IOCD
     7052   03 00EA0    20400004 A            AI,4     4
     7053   03 00EA1    32601D37              LW,6     BYTCURR
     7054   03 00EA2    30601D37              AW,6     BYTCURR
     7055   03 00EA3    31400006 A            CW,4     6
     7056   03 00EA4    69100E93              BL       T1ST3721          IF LESS BRANCH BACK AND LOOP
     7057   03 00EA5    680004B5              B        FUCTEXIT          IF EQUAL BRANCH TO EXIT
     7058                                     PAGE
     7059                            *
     7060                            *                 *** T S T 1 ,  3 8 ***
     7061                            *
     7062                            *                  *** W R I T E / R E A D   T E S T  1 ***         *A01
     7063                            *                                                                   *A01
     7064                            *                 THIS SUBTEST TESTS THE ABILITY OF THE RAD
     7065                            *                 TO WRITE AND THEN READ A PATTERN.  THE TEST
     7066                            *                 ATTEMPTS TO FIND A GOOD TRACK BEFORE TESTING
     7067                            *                 IS STARTED.  IF ALL TRIES FAIL, IT SHOULD BE
     7068                            *                 ASSUMED THAT SURFACE AREA IS GOOD, BUT THE
     7069                            *                 LOGIC IS FAILING.  ONLY PREAMBLE AND THE DATA
     7070                            *                 TRANSFERRED IS TESTED BY THIS TEST.
     7071                            *
     7072                            *
     7073                            *                 *** 3 8 1 6 ***
     7074                            *
     7075                            *                 THIS TEST IS DESIGNED TO FIND A TRACK WHICH       *A01
     7076                            *                 CAN BE WRITTEN UPON AND AT LEAST THE PREAMBLE
     7077                            *                 CAN BE READ BACK.  IF NO TRACK IS FOUND AFTER
     7078                            *                 A SEARCH OF ALL AVAILABLE TRACKS.  IT CAN BE
     7079                            *                 ASSUMED EITHER THE LOGIC THAT GENERATES OR
     7080                            *                 THE LOGIC THAT CHECKS THE PREAMBLE IS DEFECTIVE.
     7081                            *
     7082                            *
     7083                            *
     7084                            *
     7085                            T1ST38 ;
     7086   03 00EA6    22700000 A            LI,7     0
     7087   03 00EA7    35700EE5              STW,7    COUNT38
     7088   03 00EA8    22A00EE8 A            LI,10    3816
     7089   03 00EA9    6AFE0E36     T1ST3801 BAL,15   FNDGTRK,7
     7090   03 00EAA    68000EB1              B        T1ST3820          BRANCH TO NEXT TEST
     7091                            *
     7092                            T1ST3802 ;
     7093   03 00EAB    6AF01556              BAL,15   TST1ERMG          REPORT ERROR
     7094   03 00EAC    00000EE2 A            DATA     3810              *** ERROR 3810 ***
     7095   03 00EAD    EAF0021D A            BAL,15   *:SENSE           TEST SENSE SW
     7096   03 00EAE    2E000EAE              WAIT     %
     7097   03 00EAF    68000EA6              B        T1ST38            LOOP ON ERROR
     7098   03 00EB0    680004B5              B        FUCTEXIT          EXIT
     7099                            *
     7100                            *
     7101                            *                 *** 3 8 2 0 ***
     7102                            *
     7103                            *                 THIS TEST VERIFIES THAT THE BYTE COUNT
     7104                            *                 WAS REDUCED TO ZERO.
     7105                            *
     7106                            *
     7107   03 00EB1    32601D37     T1ST3820 LW,6     BYTCURR           FETCH BYTCURR
     7108   03 00EB2    556212D7              STH,6    IOCD3820+1,1      STORE HALF WORD
     7109   03 00EB3    2560007E A            SLS,6    -2                BYTCURR DIVIDED BY 4
     7110   03 00EB4    356021A8              STW,6    :CLRSIZE          STORE INTO CLRSIZE
     7111   03 00EB5    3560215B              STW,6    :PATWC            STORE INTO
     7112   03 00EB6    22602418              LI,6     BUF1LO            FETCH BUF1LO
     7113   03 00EB7    35602158              STW,6    :PATBFR           STORE INTO :PATBFR
     7114   03 00EB8    356021A7              STW,6    :CLRADDR          STORE INTO :CLRADDR
     7115   03 00EB9    22700201 A            LI,7     X'201'           SET UP SHIFT                     *B01
     7116   03 00EBA    35702164              STW,7    :PATID+2             COUNT                        *B01
     7117   03 00EBB    22600005 A            LI,6     5
     7118   03 00EBC    327023F2              LW,7     =X'55555555'
     7119   03 00EBD    15602162              STD,6    :PATID            FETCH DOUBLEWORD
     7120   03 00EBE    6AF013D3     T1ST3821 BAL,15   :SEEKMOD          SEEKMOD SUBROUTINE
     7121   03 00EBF    6AF0203B              BAL,15   :PATTERN          SPREAD PATTERN SUBROUTINE
     7122   03 00EC0    6AF013E2              BAL,15   :WRTMOD           GO TO WRITE SUBROUTINE
     7123   03 00EC1    6AF0219C              BAL,15   :CLEAR            CLEAR SUBROUTINE
     7124   03 00EC2    6AF013D3              BAL,15   :SEEKMOD          SEEKMOD SUBROUTINE
     7125                            *
     7126   03 00EC3    6AF0142C              BAL,15   :FUCTEST          GO TO FUNCTIONAL TEST
     7127   03 00EC4    000012D6              DATA     IOCD3820
     7128   03 00EC5    00000EEC A            DATA     3820              *** ERROR 3820 ***
     7129   03 00EC6    00001387              DATA     BSIP3820
     7130   03 00EC7    00001388              DATA     BSNP3820
     7131   03 00EC8    68000ECD              B        T1ST3830          GO TO NEXT TEST
     7132                            *
     7133   03 00EC9    CF001D35              HIO,0    *:DEVADDR         RESET DEV, WHERE ERROR WAS DETECTED.
     7134   03 00ECA    EAF0021D A            BAL,15   *:SENSE           TEST SENSE SW
     7135   03 00ECB    2E000ECB              WAIT     %
     7136   03 00ECC    68000EBE              B        T1ST3821          LOOP ON ERROR
     7137                            *
     7138                            *                 *** 3 8 2 5 ***
     7139                            *
     7140                            *                 THIS TEST IS DESIGNED TO COMPARE THE DATA
     7141                            *                 PATTERN RECEIVED FROM A TRACK WHERE THERE
     7142                            *                 IS NO PREAMBLE ERROR AGAINST THE INCREMENT
     7143                            *                 PATTERN THAT IS SUPPOSEDLY WRITTEN THERE.
     7144                            *                 IF AN ERROR IS DETECTED, ANOTHER  TRACK
     7145                            *                 WILL BE TRIED AFTER A TEST OF THAT TRACK
     7146                            *                 PREAMBLE IS MADE.  UP TO 10 TRACKS WILL BE
     7147                            *                 TRIED IN AN ATTEMPT TO LOCATE A TRACK THAT
     7148                            *                 CAN BE WRITTEN AND READ.  IF THE ERROR IS
     7149                            *                 STILL PRESENT AFTER THE 10TH TRY, IT SHOULD
     7150                            *                 BE SAFE TO ASSUME, THAT THE ERROR IS NOT
     7151                            *                 A SURFACE FLAW, BUT RATHER A HARDWARE FAILURE.
     7152                            *
     7153                            *
     7154                            *                    ORDER:         READ (X'02')
     7155                            *                    BYTE ADDR:     BA(BUF1LO)
     7156                            *                    FLAGS:         ICE
     7157                            *                    BYTE COUNT:    (BYTCURR)
     7158                            *
     7159                            *
     7160                            *
     7161                            *
     7162                            *
     7163                            *
     7164                            *
     7165                            *
     7166   03 00ECD    3510215C     T1ST3830 STW,1    :COMFLAG          SET UP FLAG
     7167   03 00ECE    6AF02036              BAL,15   :COMPARE          GO TO COMPARE SUBR.
     7168   03 00ECF    680004B5              B        FUCTEXIT          EXIT
     7169   03 00ED0    33100EE5              MTW,1    COUNT38
     7170   03 00ED1    32800EE5              LW,8     COUNT38           FETCH COUNT 38
     7171   03 00ED2    22700003 A            LI,7     3                 FETCH NO.'3'
     7172   03 00ED3    2180000A A            CI,8     10                COMPARE
     7173   03 00ED4    68100EDA              BGE      T1ST3831          BR. IF COUNT38 = 10
     7174   03 00ED5    32501D38              LW,5     CURRSEEK          FETCH CURRSEEK
     7175   03 00ED6    30501D36              AW,5     SECTCURR          ADD SECTCURR
     7176   03 00ED7    31501D39              CW,5     SURFCEND          COMPARE
     7177   03 00ED8    69100EA9              BL       T1ST3801          LOOP BACK
     7178   03 00ED9    68000EAB              B        T1ST3802          BRANCH TO ANOTHER TEST
     7179                            *
     7180                            *
     7181   03 00EDA    22000000 A   T1ST3831 LI,0     0                 FETCH ZERO
     7182   03 00EDB    3500215C              STW,0    :COMFLAG          STORE
     7183   03 00EDC    6AF01556              BAL,15   TST1ERMG          REPORT ERROR
     7184   03 00EDD    00000EF1 A            DATA     3825              *** ERROR 3825 ***
     7185   03 00EDE    6AF02036              BAL,15   :COMPARE          GO TO COMPARE SUBR.
     7186   03 00EDF    680004B5              B        FUCTEXIT          GO TO EXIT
     7187                            *
     7188   03 00EE0    CF001D35              HIO,0    *:DEVADDR         RESET DEV, WHERE ERROR WAS DETECTED
     7189   03 00EE1    EAF0021D A            BAL,15   *:SENSE           TEST SENSE SW
     7190   03 00EE2    2E000EE2              WAIT     %
     7191   03 00EE3    68000EA6              B        T1ST38            LOOP ON ERROR
     7192   03 00EE4    680004B5              B        FUCTEXIT          EXIT
     7193                            *
     7194                            *
     7195   03 00EE5    00000000 A   COUNT38  DATA     0
     7196                                     PAGE
     7197                            *
     7198                            *                 *** T S T 1, 3 9 ***
     7199                            *
     7200                            *                 *** P A R I T Y  T E S T ***
     7201                            *
     7202                            *                 THE SUBTEST IS DESIGNED TO TEST THE PARITY
     7203                            *                 CHECKING LOGIC OF THE RAD.
     7204                            *
     7205                            *
     7206                            *
     7207                            T1ST39 ;
     7208   03 00EE6    22A00F4C A            LI,10    3916
     7209   03 00EE7    22600208 A            LI,6     X'208'
     7210   03 00EE8    35602164              STW,6    :PATID+2
     7211   03 00EE9    6AF00E36              BAL,15   FNDGTRK           BRANCH TO FIND GOOD TRK SUBROUTINE
     7212   03 00EEA    68000EF1              B        T1ST3920          IF GOOD GO TO NEXT TEST
     7213   03 00EEB    6AF01556              BAL,15   TST1ERMG          REPORT ERROR
     7214   03 00EEC    00000F46 A            DATA     3910              *** ERROR 3910 ***
     7215   03 00EED    EAF0021D A            BAL,15   *:SENSE           TEST SENSE SW
     7216   03 00EEE    2E000EEE              WAIT     %
     7217   03 00EEF    68000EE6              B        T1ST39            LOOP ON ERROR
     7218   03 00EF0    680004B5              B        FUCTEXIT          EXIT
     7219                            *
     7220                            *
     7221                            *
     7222                            *
     7223                            *
     7224                            *
     7225                            *
     7226                            *
     7227                            *                 *** 3 9 2 0 ***
     7228                            *
     7229                            *                 THIS TEST VERIFIES THAT THE FOLLOWING PATTERN
     7230                            *                 MAY BE WRITTERN/READ WITHOUT THE GENERATION OF
     7231                            *                 PARITY ERRORS.
     7232                            *                     WORD 1        X'55AA55AA'
     7233                            *                     WORD 2        X'AA55AA55'
     7234                            *                     WORD 3        X'55AA55AA'
     7235                            *                     ORDER:        READ(X'02')
     7236                            *                     BYTE ADDR:    BA(BUF1LO)
     7237                            *                     FLAGS:        ICE
     7238                            *                     BYTE COUNT:   (BYTCURR)
     7239                            *
     7240                            *
     7241   03 00EF1    22600005 A   T1ST3920 LI,6     5
     7242   03 00EF2    327023F3              LW,7     =X'55AA55AA'
     7243   03 00EF3    15602162              STD,6    :PATID            STORE INTO :PATID
     7244   03 00EF4    6AF013D3     T1ST3921 BAL,15   :SEEKMOD          BRANCH TO SEEKMOD SUBROUTINE
     7245   03 00EF5    6AF0203B              BAL,15   :PATTERN          BRANCH TO PATTERN SUBROUTINE
     7246   03 00EF6    6AF013E2              BAL,15   :WRTMOD           GO WRITING MODULE
     7247   03 00EF7    6AF013D3              BAL,15   :SEEKMOD
     7248   03 00EF8    32401D37              LW,4     BYTCURR           FETCH BYTCURR
     7249   03 00EF9    554212D9              STH,4    IOCD3920+1,1      STORE BYTE COUNT
     7250   03 00EFA    6AF0142C              BAL,15   :FUCTEST          GO TO FUNCTIONAL TEST
     7251   03 00EFB    000012D8              DATA     IOCD3920
     7252   03 00EFC    00000F50 A            DATA     3920              *** ERROR 3920 ***
     7253   03 00EFD    00001389              DATA     BSIP3920
     7254   03 00EFE    0000138C              DATA     BSNP3920
     7255   03 00EFF    68000F04              B        T1ST3930          GO TO NEXT TEST
     7256                            *
     7257   03 00F00    CF001D35              HIO,0    *:DEVADDR         RESET DEV, WHERE ERROR WAS DETECTED
     7258   03 00F01    EAF0021D A            BAL,15   *:SENSE           TEST SENSE SW
     7259   03 00F02    2E000F02              WAIT     %
     7260   03 00F03    68000EF4              B        T1ST3921          LOOP ON ERROR
     7261                            *
     7262                            *
     7263                            *
     7264                            *                 *** 3 9 3 0 ***
     7265                            *
     7266                            *                 THIS TEST VERIFIES THAT THE FOLLOWING PATTERN
     7267                            *                 MAY BE WRITTERN/READ WITHOUT THE GENERATION OF
     7268                            *                 PARITY ERRORS.
     7269                            *                     WORD 1        X'AA55AAAA'
     7270                            *                     WORD 2        X'AA55AA55'
     7271                            *                     WORD 3        X'55AA55AA'
     7272                            *                     ORDER:        READ(X'02')
     7273                            *                     BYTE ADDR:    BA(BUF1LO)
     7274                            *                     FLAGS:        ICE
     7275                            *                     BYTE COUNT:   (BYTCURR)
     7276                            *
     7277                            *
     7278                            *
     7279                            *
     7280                            T1ST3930 ;
     7281   03 00F04    6AF013D3              BAL,15   :SEEKMOD          SEEK SUBR.
     7282   03 00F05    6AF0203B              BAL,15   :PATTERN          SPREAD PATTERN
     7283   03 00F06    327023F4              LW,7     =X'AA55AAAA'
     7284   03 00F07    35702418              STW,7    BUF1LO
     7285   03 00F08    6AF013E2              BAL,15   :WRTMOD           WRITING
     7286   03 00F09    6AF013D3              BAL,15   :SEEKMOD          SEEK
     7287   03 00F0A    6AF0142C              BAL,15   :FUCTEST          GO TO FUNCTIONAL TEST
     7288   03 00F0B    000012D8              DATA     IOCD3920
     7289   03 00F0C    00000F5A A            DATA     3930              *** ERROR 3930 ***
     7290   03 00F0D    00001389              DATA     BSIP3920
     7291   03 00F0E    0000138C              DATA     BSNP3920
     7292   03 00F0F    68000F14              B        T1ST3940          BRANCH TO NEXT TEST
     7293                            *
     7294   03 00F10    CF001D35              HIO,0    *:DEVADDR         RESET DEV, WHERE ERROR WAS DETECTED
     7295   03 00F11    EAF0021D A            BAL,15   *:SENSE           TEST SENSE SWITCH
     7296   03 00F12    2E000F12              WAIT     %
     7297   03 00F13    68000F04              B        T1ST3930          LOOP ON ERROR
     7298                            *
     7299                            *
     7300                            *
     7301                            *
     7302                            *                 *** 3 9 4 0 ***
     7303                            *
     7304                            *                 THIS TEST VERIFIES THAT THE FOLLOWING
     7305                            *                 PATTERN MAY BE WRITTEN/READ WITHOUT THE
     7306                            *                 GENERATION OF PARITY ERRORS.
     7307                            *                     WORD 1        X'55AA5555'
     7308                            *                     WORD 2        X'AA55AA55'
     7309                            *                     WORD 3        X'55AA55AA'
     7310                            *
     7311                            *                      ORDER:       READ (X'02)
     7312                            *                      BYTE ADDR:   BA(BUF1LO)
     7313                            *                      FLAGS:       ICE
     7314                            *                      BYTE COUNT:  (BYTCURR)
     7315                            *
     7316                            *
     7317                            *
     7318                            T1ST3940 ;
     7319   03 00F14    6AF013D3              BAL,15   :SEEKMOD          SEEK
     7320   03 00F15    6AF0203B              BAL,15   :PATTERN          SPREAD PATTERN
     7321   03 00F16    326023F5              LW,6     =X'55AA5555'
     7322   03 00F17    35602418              STW,6    BUF1LO            STORE INTO BUF1LO
     7323   03 00F18    6AF013E2              BAL,15   :WRTMOD           WRITING
     7324   03 00F19    6AF013D3              BAL,15   :SEEKMOD          SEEK
     7325   03 00F1A    6AF0142C              BAL,15   :FUCTEST          GO TO FUNCTIONAL TEST
     7326   03 00F1B    000012D8              DATA     IOCD3920
     7327   03 00F1C    00000F64 A            DATA     3940              *** ERROR 3940 ***
     7328   03 00F1D    00001389              DATA     BSIP3920
     7329   03 00F1E    0000138C              DATA     BSNP3920
     7330   03 00F1F    68000F24              B        T1ST3950          BRANCH TO NEXT TEST
     7331                            *
     7332   03 00F20    CF001D35              HIO,0    *:DEVADDR         RESET DEV, WHERE ERROR WAS DETECTED
     7333   03 00F21    EAF0021D A            BAL,15   *:SENSE           TEST SENSE SW
     7334   03 00F22    2E000F22              WAIT     %
     7335   03 00F23    68000F14              B        T1ST3940          LOOP ON ERROR
     7336                            *
     7337                            *
     7338                            *
     7339                            *
     7340                            *                 *** 3 9 5 0 ***
     7341                            *
     7342                            *                 THIS TEST VERIFIES THAT THE FOLLOWING
     7343                            *                 PATTERN MAY BE WRITTEN/READ WITHOUT THE
     7344                            *                 GENERATION OF PARITY ERRORS.
     7345                            *                      WORD 1  0
     7346                            *                      WORD 2  0
     7347                            *                      WORD 3  0
     7348                            *
     7349                            *                      ORDER:       READ (X'02')
     7350                            *                      BYTE ADDR:   BA(BUF1LO)
     7351                            *                      FLAGS:       ICE
     7352                            *                      BYTE COUNT:  (BYTCURR)
     7353                            *
     7354                            *
     7355                            *
     7356   03 00F24    22700000 A   T1ST3950 LI,7     0                 FETCH ZERO
     7357   03 00F25    15702162              STD,7    :PATID            SET UP FIXED PATTERN OF ZEROS
     7358   03 00F26    6AF013D3     T1ST3951 BAL,15   :SEEKMOD          BRANCH TO :SEEKMOD SUBROUTINE
     7359   03 00F27    6AF0203B              BAL,15   :PATTERN          SPREAD PATTERN
     7360   03 00F28    6AF0142C              BAL,15   :FUCTEST          GO TO FUNCTIONAL TEST
     7361   03 00F29    000012D8              DATA     IOCD3920
     7362   03 00F2A    00000F6E A            DATA     3950              *** ERROR 3950 ***
     7363   03 00F2B    00001389              DATA     BSIP3920
     7364   03 00F2C    0000138C              DATA     BSNP3920
     7365   03 00F2D    68000F32              B        T1ST3960          BRANCH TO NEXT TEST
     7366                            *
     7367   03 00F2E    CF001D35              HIO,0    *:DEVADDR         RESET DEV, WHERE ERROR WAS DETECTED
     7368   03 00F2F    EAF0021D A            BAL,15   *:SENSE           TEST SENSE SW
     7369   03 00F30    2E000F30              WAIT     %
     7370   03 00F31    68000F26              B        T1ST3951          LOOP ON ERROR
     7371                            *
     7372                            *                 THIS TEST VERIFIES THAT THE FOLLOWING
     7373                            *                 PATTERN MAY BE WRITTEN/READ WITHOUT THE
     7374                            *                 GENERATION OF PARITY ERROR
     7375                            *                     WORD 1        X'FFFFFFFF'
     7376                            *                     WORD 2        X'FFFFFFFF'
     7377                            *                     WORD 3        X'FFFFFFFF'
     7378                            *
     7379   03 00F32    327023F6     T1ST3960 LW,7     =X'FFFFFFFF'
     7380   03 00F33    35702163              STW,7    :PATID+1
     7381   03 00F34    6AF013D3     T1ST3961 BAL,15   :SEEKMOD          SEEK
     7382   03 00F35    6AF0203B              BAL,15   :PATTERN          SPREAD PATTERN
     7383   03 00F36    6AF0142C              BAL,15   :FUCTEST          GO TO FUNCTIONAL TEST
     7384   03 00F37    000012D8              DATA     IOCD3920
     7385   03 00F38    00000F78 A            DATA     3960              *** ERROR 3960 ***
     7386   03 00F39    00001389              DATA     BSIP3920
     7387   03 00F3A    0000138C              DATA     BSNP3920
     7388   03 00F3B    680004B5              B        FUCTEXIT          EXIT
     7389                            *
     7390   03 00F3C    CF001D35              HIO,0    *:DEVADDR
     7391   03 00F3D    EAF0021D A            BAL,15   *:SENSE           GO TEST SENSE SWITCHES
     7392   03 00F3E    2E000F3E              WAIT     %
     7393   03 00F3F    68000F34              B        T1ST3961
     7394   03 00F40    680004B5              B        FUCTEXIT
     7395                                     PAGE
     7396                            *
     7397                            *
     7398                            *                 *** T S T 1,  4 0 ***
     7399                            *
     7400                            *                 *** W R I T E  /  R E A D  2 ***
     7401                            *
     7402                            *                 THIS SUBTEST ISSUES WRITES OF LESS THAN
     7403                            *                 A SECTOR, THEN READS AN ENTIRE SECTOR BACK
     7404                            *                 TO VERIFY THAT ZEROS HAVE BEEN WRITTEN IN
     7405                            *                 THE REMAINING SECTOR DURING THE WRITE
     7406                            T1ST40 ;
     7407   03 00F41    22A00FB0 A            LI,10    4016
     7408   03 00F42    6AF00E36              BAL,15   FNDGTRK           GO SEARCH A GOOD TRACK
     7409   03 00F43    68000F4A              B        T1ST4022
     7410   03 00F44    6AF01556              BAL,15   TST1ERMG          REPORT ERROR
     7411   03 00F45    00000FAA A            DATA     4010              *** ERROR 4010
     7412   03 00F46    EAF0021D A            BAL,15   *:SENSE           TEST SENSE SW
     7413   03 00F47    2E000F47              WAIT     %
     7414   03 00F48    68000F41              B        T1ST40            LOOP ON ERROR
     7415   03 00F49    680004B5              B        FUCTEXIT          EXIT
     7416                            *
     7417                            *
     7418                            *
     7419                            *
     7420                            *
     7421                            *                 *** 4 0 2 0 ***
     7422                            *                 THIS TEST VERIFIES THAT THE RAD HAS
     7423                            *                 REDUCED THE BYTE COUNT TO ZERO
     7424                            *                     ORDER:        READ (X'02')
     7425                            *                     BYTE ADDR:    BA(BUF1LO)
     7426                            *                     FLAGS:        ICE
     7427                            *                     BYTE COUNT:   BYTCURR
     7428                            *
     7429                            *
     7430   03 00F4A    22F00F5D     T1ST4022 LI,15    T1ST4021
     7431   03 00F4B    35F013F9              STW,15   :WRTEXT
     7432   03 00F4C    32401D37              LW,4     BYTCURR
     7433   03 00F4D    554212DB              STH,4    IOCD4020+1,1
     7434   03 00F4E    204FFFFC A            AI,4     -4
     7435   03 00F4F    554213F7              STH,4    IOCDWRT+1,1
     7436                            *
     7437                            *
     7438                            *
     7439   03 00F50    32401D37     T1ST4020 LW,4     BYTCURR           FETCH BYTCURR
     7440   03 00F51    2540007E A            SLS,4    -2                DIVIDED BY 4
     7441   03 00F52    354021A8              STW,4    :CLRSIZE          STORE
     7442   03 00F53    3540215B              STW,4    :PATWC            STORE
     7443   03 00F54    22402418              LI,4     BUF1LO
     7444   03 00F55    35402158              STW,4    :PATBFR
     7445   03 00F56    354021A7              STW,4    :CLRADDR          STORE
     7446   03 00F57    22400000 A            LI,4     0
     7447   03 00F58    325023F2              LW,5     =X'55555555'
     7448   03 00F59    15402162              STD,4    :PATID
     7449   03 00F5A    6AF013D3              BAL,15   :SEEKMOD          SEEK SUB.
     7450   03 00F5B    6AF0203B              BAL,15   :PATTERN          SPREAD PATTERN
     7451   03 00F5C    6AF013E5              BAL,15   :WRTMOD1          WRITE SUB
     7452   03 00F5D    6AF013D3     T1ST4021 BAL,15   :SEEKMOD          SEEK SUB
     7453   03 00F5E    6AF0219C              BAL,15   :CLEAR            CLEAR SUB.
     7454   03 00F5F    6AF0142C              BAL,15   :FUCTEST          GO TO FUNCTIONAL TEST
     7455   03 00F60    000012DA              DATA     IOCD4020
     7456   03 00F61    00000FB4 A            DATA     4020              *** ERROR 4020 ***
     7457   03 00F62    0000138E              DATA     BSIP4020
     7458   03 00F63    0000138F              DATA     BSNP4020
     7459   03 00F64    68000F69              B        T1ST4025          BRANCH TO NEXT TEST
     7460                            *
     7461   03 00F65    CF001D35              HIO,0    *:DEVADDR         RESET DEV, WHERE ERROR WAS DETECTED
     7462   03 00F66    EAF0021D A            BAL,15   *:SENSE           TEST SENSE SW
     7463   03 00F67    2E000F67              WAIT     %
     7464   03 00F68    68000F50              B        T1ST4020          LOOP ON ERROR
     7465                            *
     7466                            *
     7467                            *
     7468                            *                 *** 4 0 2 5 ***
     7469                            *
     7470                            *                 THIS TEST VERIFIES THAT THE DATA WRITTEN AS THE
     7471                            *                 SHORTEN SECTOR PATTERN WAS CORRECT.
     7472   03 00F69    524213F7     T1ST4025 LH,4     IOCDWRT+1,1
     7473   03 00F6A    2540007E A            SLS,4    -2                DIVIDED BY 4
     7474   03 00F6B    3540215B              STW,4    :PATWC            STORE
     7475   03 00F6C    3510215C              STW,1    :COMFLAG          STORE
     7476   03 00F6D    6AF02036              BAL,15   :COMPARE          COMPARE SUBROUTINE
     7477   03 00F6E    68000F79              B        T1ST4035          GO TO NEXT TEST
     7478                            *
     7479   03 00F6F    CF001D35              HIO,0    *:DEVADDR         RESET DEV, WHERE ERROR WAS DETECTED
     7480   03 00F70    22000000 A            LI,0     0
     7481   03 00F71    3500215C              STW,0    :COMFLAG          SET UP COMFLAG =0
     7482   03 00F72    6AF01556              BAL,15   TST1ERMG
     7483   03 00F73    00000FB9 A            DATA     4025              *** ERROR 4025 ***
     7484   03 00F74    6AF02036              BAL,15   :COMPARE          COMPARE SUBROUTINE
     7485   03 00F75    68000F79              B        T1ST4035          BRANCH TO NEXT TEST
     7486   03 00F76    EAF0021D A            BAL,15   *:SENSE           TEST SENSE SW
     7487   03 00F77    2E000F77              WAIT     %
     7488   03 00F78    68000F50              B        T1ST4020          LOOP ON ERROR
     7489                            *
     7490                            *                 *** 4 0 3 5 ***
     7491                            *
     7492                            *                 THIS TEST VERIFIES THAT ZEROS WERE WRITTEN
     7493                            *                 IN THE REMAINING SECTOR AREA.
     7494                            *
     7495   03 00F79    22500000 A   T1ST4035 LI,5     0
     7496   03 00F7A    15502163              STD,5    :PATID+1
     7497   03 00F7B    3510215C              STW,1    :COMFLAG          SET UP COMFLAG = 1
     7498   03 00F7C    22402418              LI,4     BUF1LO
     7499   03 00F7D    3040215B              AW,4     :PATWC
     7500   03 00F7E    35402158              STW,4    :PATBFR           STORE NEW :PATBFR
     7501   03 00F7F    32401D37              LW,4     BYTCURR
     7502   03 00F80    584213F7              SH,4     IOCDWRT+1,1
     7503   03 00F81    2540007E A            SLS,4    -2                DIVIDED BY 4
     7504   03 00F82    3540215B              STW,4    :PATWC            STORE
     7505   03 00F83    6AF02036              BAL,15   :COMPARE          COMPARE SUBR.
     7506   03 00F84    68000F8F              B        T1ST4040          BRANCH TO NEXT TEST
     7507                            *
     7508   03 00F85    CF001D35              HIO,0    *:DEVADDR         RESET DEV, WHERE ERROR WAS DETECTED
     7509   03 00F86    22000000 A            LI,0     0
     7510   03 00F87    3500215C              STW,0    :COMFLAG          SET UP COMFLAG = 0
     7511   03 00F88    6AF01556              BAL,15   TST1ERMG          REPORT ERROR
     7512   03 00F89    00000FC3 A            DATA     4035              *** ERROR 4035 ***
     7513   03 00F8A    6AF02036              BAL,15   :COMPARE          COMPARE SUBROUTINE
     7514   03 00F8B    68000F8F              B        T1ST4040          BRANCH TO NEXT TEST
     7515   03 00F8C    EAF0021D A            BAL,15   *:SENSE           TEST SENSE SW
     7516   03 00F8D    2E000F8D              WAIT     %
     7517   03 00F8E    68000F50              B        T1ST4020          LOOP ON ERROR
     7518                            *
     7519                            *
     7520                            *                 *** 4 0 4 0 ***
     7521                            *                 THIS TEST VERIFIES THAT THERE WERE NO
     7522                            *                 PARITY REPORTED BECAUSE OF THIS TEST.
     7523                            *
     7524                            *
     7525                            *
     7526                            *
     7527   03 00F8F    6AF01425     T1ST4040 BAL,15   :FCTNXINT
     7528   03 00F90    000012DA              DATA     IOCD4020
     7529   03 00F91    00000FC8 A            DATA     4040              *** ERROR 4040 ***
     7530   03 00F92    00001390              DATA     BSIP4040
     7531   03 00F93    0000138E              DATA     BSIP4020
     7532   03 00F94    68000F99              B        T1ST4042
     7533   03 00F95    CF001D35              HIO,0    *:DEVADDR         RESET DEV, WHERE ERROR WAS DETECTED
     7534   03 00F96    EAF0021D A            BAL,15   *:SENSE           TEST SENSE SW
     7535   03 00F97    2E000F97              WAIT     %
     7536   03 00F98    68000F50              B        T1ST4020          LOOP ON ERROR
     7537                            *
     7538                            *
     7539                            *
     7540   03 00F99    524213F7     T1ST4042 LH,4     IOCDWRT+1,1
     7541   03 00F9A    204FFFFC A            AI,4     -4
     7542   03 00F9B    682004B5              BLEZ     FUCTEXIT
     7543   03 00F9C    554213F7              STH,4    IOCDWRT+1,1
     7544   03 00F9D    68000F50              B        T1ST4020          BRANCH BACK
     7545                                     PAGE
     7546                            *                 *** T S T 1 , 4 1 ***
     7547                            *
     7548                            *                 *** T R A C K ( B A N D ) S E A R C H  T E S T ***
     7549                            *
     7550                            *                 THIS SUBTEST TESTS THE ABILITY OF THE RAD
     7551                            *                 TO WRITE AND READ ALL TRACKS (BANDS)/SECTORS.
     7552                            *                 THE TEST WRITES A RANDOM PATTERN STARTING AT THE LOWES
     7553                            *                 AVAILABLE TRACK (BAND) TO THE HIGHEST AVAILABLE
     7554                            *                 TRACK (BAND). THEN THE PATTERN IS READ BACK IN THE
     7555                            *                 SAME MANNER.
     7556                            *
     7557                            *
     7558                            *                                                                   *C01
     7559                            *                 *** 4 1 0 7 ***                                   *C01
     7560                            *                                                                   *C01
     7561                            *                 THIS TEST WRITES A PATTERN OF ALL ZEROS STARTING  *C01
     7562                            *                 AT THE LOWEST AVAILABLE TRACK (BAND).             *C01
     7563                            *                                                                   *C01
     7564         03 00F9E           T1ST41   EQU      %                                                 *C01
     7565         03 00F9E           T1ST4180 EQU      %                                                 *C01
     7566   03 00F9E    22800000 A            LI,8     0                 ZERO                            *C01
     7567   03 00F9F    35801BE4              STW,8    TST3PAT               DATA PATTERN                *C01
     7568   03 00FA0    35801BE5              STW,8    TST3PAT+1             DATA PATTERN                *C01
     7569   03 00FA1    35801EED              STW,8    #MSGLEVL          ALLOW ALL ERROR IMMEDIATE       *C01
     7570   03 00FA2    3580103D              STW,8    #MSGER41          ERROR FOR THIS TEST             *C01
     7571   03 00FA3    35800437              STW,8    DONTREAD          RESET DON'T READ FLAG           *C01
     7572   03 00FA4    35801BF8              STW,8    MAXERR            MAXIMUM ERROR COUNT             *C01
     7573   03 00FA5    2280100B A            LI,8     4107              LOAD AND                        *C01
     7574   03 00FA6    35801DB6              STW,8    T1ST41ER              SAVE ERROR NO.              *C01
     7575   03 00FA7    32401CCB              LW,4     #DDTBIAS                                          *C01
     7576   03 00FA8    02200090 A            LCI      #DDTADR3-#DDTADR1 SAVE CURRENT                    *C01
     7577   03 00FA9    2A681CCC              LM,6     MODEL,4               SYSTEM                      *C01
     7578   03 00FAA    2B601D34              STM,6    MODELC                CONF                        *C01
     7579   03 00FAB    22800FB1              LI,8     T1ST418X          LOAD AND SAVE                   *C01
     7580   03 00FAC    35801A02              STW,8    SURRTN                ERROR RTN                   *C01
     7581   03 00FAD    6AF01A04              BAL,15   WRTONLY           GO DO WRITE                     *C01
     7582   03 00FAE    68000FAF              B        %+1                                               *C01
     7583   03 00FAF    3300103D              MTW,0    #MSGER41          TEST FOR ERRORS                 *C01
     7584   03 00FB0    68300FB4              BEZ      T1ST4181          IF NONE, NEXT TEST              *C01
     7585                            *                                                                   *C01
     7586         03 00FB1           T1ST418X EQU      %                                                 *C01
     7587   03 00FB1    EAF0021D A            BAL,15   *:SENSE           GO TEST SENSE SWITCH            *C01
     7588   03 00FB2    2E000FB2              WAIT     %                 HALT                            *C01
     7589   03 00FB3    68000F9E              B        T1ST4180          LOOP ON TEST                    *C01
     7590                            *                                                                   *C01
     7591                            *                 *** 4 1 0 8 ***                                   *C01
     7592                            *                                                                   *C01
     7593                            *                 THIS TEST READS A PATTERN FROM THE RAD OF ALL ZERO*C01
     7594                            *                 STARTING AT THE LOWEST AVAILABLE TRACK (BAND).    *C01
     7595                            *                                                                   *C01
     7596         03 00FB4           T1ST4181 EQU      %                                                 *C01
     7597   03 00FB4    22800000 A            LI,8     0                 ZERO                            *C01
     7598   03 00FB5    3580103D              STW,8    #MSGER41              MSG ERROR FLAG              *C01
     7599   03 00FB6    2280100C A            LI,8     4108              LOAD AND SAVE                   *C01
     7600   03 00FB7    35801DB6              STW,8    T1ST41ER              ERROR NO.                   *C01
     7601   03 00FB8    22800FC8              LI,8     T1ST418Y          SET UP                          *C01
     7602   03 00FB9    358019E7              STW,8    TST3EXIT              RTN IF NOT ENOUGH MEMORY    *C01
     7603   03 00FBA    35201EED              STW,2    #MSGLEVL          ALLOW ONLY CERTAIN ERRORS       *C01
     7604   03 00FBB    32401CCB              LW,4     #DDTBIAS          FETCH WORD                      *C01
     7605   03 00FBC    02200090 A            LCI      #DDTADR3-#DDTADR1 SAVE CURRENT                    *C01
     7606   03 00FBD    2A681CCC              LM,6     MODEL,4               SYSTEM                      *C01
     7607   03 00FBE    2B601D34              STM,6    MODELC                CONFIGUATION                *C01
     7608   03 00FBF    22800FC8              LI,8     T1ST418Y          LOAD AND SAVE                   *C01
     7609   03 00FC0    35801A02              STW,8    SURRTN                ERROR RTN                   *C01
     7610   03 00FC1    6AF01A08              BAL,15   REDONLY           GO READ PATTERN                 *C01
     7611   03 00FC2    68000FC3              B        %+1                                               *C01
     7612   03 00FC3    3300103D              MTW,0    #MSGER41          TEST FOR ERRORS                 *C01
     7613   03 00FC4    68300FCB              BEZ      T1ST4110          GO TO NEXT STEP                 *C01
     7614   03 00FC5    6AF01556              BAL,15   TST1ERMG                                          *C01
     7615   03 00FC6    0000100D A            DATA     4109              *** ERROR 4109 ***              *C01
     7616   03 00FC7    6AF01637              BAL,15   SELCTOUT          GO OUTPUT ERROR TABLE           *C01
     7617                            *                                                                   *C01
     7618         03 00FC8           T1ST418Y EQU      %                                                 *C01
     7619   03 00FC8    EAF0021D A            BAL,15   *:SENSE           GO TEST SENSE SWITCHES          *C01
     7620   03 00FC9    2E000FC9              WAIT     %                 HALT                            *C01
     7621   03 00FCA    68000FB4              B        T1ST4181          LOOP                            *C01
     7622                            *                                                                   *C01
     7623         03 00FCB           T1ST4110 EQU      %                                                 *C01
     7624   03 00FCB    02200040 A            LCI      4                 SET UP PATTERN TYPE
     7625   03 00FCC    2A801994              LM,8     TST2DATA          IN SURFACE TEST
     7626   03 00FCD    2B801BE4              STM,8    TST3PAT
     7627                            *
     7628                            *                 *** 4 1 1 0 ***
     7629                            *
     7630                            *                 THIS TEST WRITES A RANDOM PATTERN STARTING AT THE
     7631                            *                 LOWEST AVAILABLE TRACK (BAND).
     7632                            *
     7633   03 00FCE    22800000 A            LI,8     0                 ZERO                            *C01
     7634   03 00FCF    35801BF8              STW,8    MAXERR                MAXIMUM ERROR COUNT
     7635   03 00FD0    35801EED              STW,8    #MSGLEVL          ALLOW ALL ERROR IMMEDIATE
     7636   03 00FD1    3580103D              STW,8    #MSGER41              ERRORS FOR THIS TEST
     7637   03 00FD2    35800437              STW,8    DONTREAD          RESET THE DON'T READ FLAG
     7638   03 00FD3    2280100E A            LI,8     4110              LOAD AND SAVE
     7639   03 00FD4    35801DB6              STW,8    T1ST41ER              ERROR NO.
     7640   03 00FD5    32401CCB              LW,4     #DDTBIAS          FETCH WORD
     7641   03 00FD6    02200090 A            LCI      #DDTADR3-#DDTADR1
     7642   03 00FD7    2A681CCC              LM,6     MODEL,4
     7643   03 00FD8    2B601D34              STM,6    MODELC            STORE MULTIPLE
     7644   03 00FD9    22800FDF              LI,8     T1ST411X          LOAD AND SAVE
     7645   03 00FDA    35801A02              STW,8    SURRTN                ERROR RTN
     7646   03 00FDB    6AF01A04              BAL,15   WRTONLY           GO DO A WRITE
     7647   03 00FDC    68000FDD              B        %+1
     7648   03 00FDD    3300103D              MTW,0    #MSGER41          TEST FOR ERRORS
     7649   03 00FDE    68300FE2              BEZ      T1ST4111          IF NONE, NEXT TEST
     7650                            T1ST411X ;
     7651   03 00FDF    EAF0021D A            BAL,15   *:SENSE           GO TEST SENSE SWITCHES
     7652   03 00FE0    2E000FE0              WAIT     %                 HALT
     7653   03 00FE1    68000FCB              B        T1ST4110          LOOP ON TEST
     7654                            *
     7655                            *                 *** 4 1 1 1 ***
     7656                            *
     7657                            *                 THIS TEST READS A RANDOM PATTERN FROM THE RAD
     7658                            *                 STARTING AT THE LOWEST AVAILABLE TRACK (BAND).
     7659                            *
     7660                            *
     7661   03 00FE2    22800000 A   T1ST4111 LI,8     0                 ZERO MSG ERROR FLAG
     7662   03 00FE3    3580103D              STW,8    #MSGER41
     7663   03 00FE4    2280100F A            LI,8     4111              LOAD AND SAVE
     7664   03 00FE5    35801DB6              STW,8    T1ST41ER              ERROR NO.
     7665   03 00FE6    22800FF6              LI,8     T1ST411Y                                          *C01
     7666   03 00FE7    358019E7              STW,8    TST3EXIT          SET UP RTN IF NOT ENOUGH MEMORY
     7667   03 00FE8    35201EED              STW,2    #MSGLEVL          ALLOW ONLY CERTAIN ERRORS
     7668   03 00FE9    32401CCB              LW,4     #DDTBIAS          FETCH WORD
     7669   03 00FEA    02200090 A            LCI      #DDTADR3-#DDTADR1
     7670   03 00FEB    2A681CCC              LM,6     MODEL,4
     7671   03 00FEC    2B601D34              STM,6    MODELC            STORE MULTIPLE
     7672   03 00FED    22800FF6              LI,8     T1ST411Y          LOAD AND SAVE
     7673   03 00FEE    35801A02              STW,8    SURRTN                ERROR RTN.
     7674   03 00FEF    6AF01A08              BAL,15   REDONLY           GO READ PATTERN
     7675   03 00FF0    68000FF1              B        %+1
     7676   03 00FF1    3300103D              MTW,0    #MSGER41          TEST FOR ERRORS
     7677   03 00FF2    683004B5              BEZ      FUCTEXIT          RETURN TO FTM
     7678   03 00FF3    6AF01556              BAL,15   TST1ERMG
     7679   03 00FF4    00001010 A            DATA     4112              *** ERROR 4112 ***
     7680   03 00FF5    6AF01637              BAL,15   SELCTOUT          GO OUTPUT ERROR TABLE
     7681                            T1ST411Y ;
     7682   03 00FF6    EAF0021D A            BAL,15   *:SENSE           GO TEST SENSE SWITCHES
     7683   03 00FF7    2E000FF7              WAIT     %                 HALT
     7684   03 00FF8    68000FE2              B        T1ST4111          LOOP ON TEST
     7685   03 00FF9    680004B5              B        FUCTEXIT          RETURN TO FTM
     7686                                     PAGE
     7687                            *
     7688                            *                 *** T S T 1 , 4 2 ***
     7689                            *
     7690                            *                 *** T R A C K (B A N D) S E A R C H  T E S T  2  ***
     7691                            *
     7692                            *                 THIS SUBTEST TESTS THE ABILITY OF THE RAD
     7693                            *                 TO WRITE A RANDOM PATTERN STARTING AT THE
     7694                            *                 HIGHEST AVAILABLE TRACK (BAND) TO THE LOWEST
     7695                            *                 AVAILABLE TRACK (BAND). THEN THE PATTERN IS READ
     7696                            *                 BACK STARTING AT THE LOWEST AVAILABLE TRACK (BAND)
     7697                            *                 TO THE HIGHEST AVAILABLE TRACK (BAND).
     7698                            *
     7699   03 00FFA    22800000 A   T1ST42   LI,8     0                 ZERO MSG ERROR FLAG
     7700   03 00FFB    3580103D              STW,8    #MSGER41
     7701   03 00FFC    35801EED              STW,8    #MSGLEVL          ALLOW ALL ERROR IMMEDIATE
     7702   03 00FFD    35800437              STW,8    DONTREAD          RESET THE DON'T READ FLAG
     7703   03 00FFE    35801BF8              STW,8    MAXERR            ZERO MAXIMUM EROR COUNT
     7704   03 00FFF    02200040 A           LCI      4
     7705   03 01000    2A801994              LM,8     TST2DATA
     7706   03 01001    2B801BE4              STM,8    TST3PAT
     7707   03 01002    22801072 A            LI,8     4210              LOAD AND SAVE
     7708   03 01003    35801DB6              STW,8    T1ST41ER              ERROR NO.
     7709   03 01004    22801018              LI,8     T1ST421Z          LOAD AND SZVE
     7710   03 01005    35801A02              STW,8    SURRTN                ERROR RTN
     7711   03 01006    32501CCB     T1ST4213 LW,5     #DDTBIAS          LOAD TABLE BIAS
     7712   03 01007    02200090 A            LCI      #DDTADR3-#DDTADR1 LOAD AND
     7713   03 01008    2A6A1CCC              LM,6     MODEL,5               SAVE
     7714   03 01009    2B601D34              STM,6    MODELC                DEVICE DESCRIPTION TABLE
     7715                            *
     7716                            *                 *** 4 2 1 0 ***
     7717                            *
     7718                            *                 THIS TEST WRITES A RANDOM PATTERN STARTING AT THE
     7719                            *                 HIGHEST AVAILABLE TRACK (BAND) TO THE LOWEST
     7720                            *                 AVAILABLE TRACK (BAND).
     7721                            *
     7722                            *
     7723                            *
     7724   03 0100A    22A00000 A            LI,10    0                 LOAD ZERO
     7725   03 0100B    32BA1CD1              LW,11    SUPPER,5          LOAD ABSOLUTE UPPER LIMIT
     7726   03 0100C    36A01D36              DW,10    SECTCURR          DIVIDE BY SECTORS/TRACK(BAND)
     7727   03 0100D    22A00000 A            LI,10    0                 LOAD ZERO
     7728   03 0100E    37A01D36              MW,10    SECTCURR          CALCULATE NEW LOWER ABSOLUTE LIMIT
     7729   03 0100F    35B0103E              STW,11   LSEEKTEP          SAVE SECTOR LOWER LIMIT
     7730   03 01010    31BA1CD1              CW,11    SUPPER,5
     7731   03 01011    69301018              BNE      T1ST421Z          GO SET UP TO WRITE
     7732   03 01012    32501CCB     T1ST4214 LW,5     #DDTBIAS          LOAD DDT BIAS POINTER
     7733   03 01013    32B0103E              LW,11    LSEEKTEP          LOAD LOAD SECTOR LIMIT
     7734   03 01014    35B01D39              STW,11   SURFCEND          SAVE AS UPPER SECTOR LIMIT
     7735   03 01015    31BA1CD0              CW,11    SLOWER,5          COMPARE WITH ABSOLUTE LOWER LIMIT
     7736   03 01016    68201027              BLE      T1ST4211          IF LESS OR EQUAL TO NEXT TEST
     7737   03 01017    38B01D36              SW,11    SECTCURR          SUBTRACT 1 TRACK
     7738   03 01018    31BA1CD0     T1ST421Z CW,11    SLOWER,5          COMPARE NEW LOWER LIMIT TO
     7739   03 01019    6920101B              BG       %+2                   ABSOLUTE LOWER LIMIT IF LESS
     7740   03 0101A    32BA1CD0              LW,11    SLOWER,5          LOAD ABSOLUTE LOWER LIMIT AS LIMIT
     7741   03 0101B    35B0103E              STW,11   LSEEKTEP          SAVE IN LOWER SEEK LIMIT
     7742   03 0101C    35B01D38              STW,11   CURRSEEK          SAVE AS CURRENT SEEK LIMIT
     7743   03 0101D    6AF01A04              BAL,15   WRTONLY           GO WRITE 1 TRACK
     7744   03 0101E    6800101F              B        %+1
     7745   03 0101F    3300103D              MTW,0    #MSGER41          TEST FOR AN ERROR
     7746   03 01020    68301012              BEZ      T1ST4214          IF NO ERRORS WRITE NEXT TRACK
     7747   03 01021    32501CCB              LW,5     #DDTBIAS          LOAD DDT BIAS POINTER
     7748   03 01022    32B0103E              LW,11    LSEEKTEP          LOAD LOWER SEEK LIMIT
     7749   03 01023    EAF0021D A            BAL,15   *:SENSE           GO TEST SENSE SWITCHES
     7750   03 01024    2E001024              WAIT     %
     7751   03 01025    68001018              B        T1ST421Z          LOOP ON ERROR
     7752   03 01026    68001012              B        T1ST4214          GO WRITE NEXT TRACK (BAND)
     7753                            *
     7754                            *                 *** 4 2 1 1 ***
     7755                            *
     7756                            *                 THIS TEST READS A RANDOM PATTERN FROM THE RAD
     7757                            *                 STARTING AT THE LOWEST AVAILABLE TRACK (BAND).
     7758                            *
     7759                            *
     7760   03 01027    22800000 A   T1ST4211 LI,8     0                 ZERO
     7761   03 01028    3580103D              STW,8    #MSGER41              ERRORS FOR THIS TEST COUNT
     7762   03 01029    22801073 A            LI,8     4211              LOAD AND SAVE
     7763   03 0102A    35801DB6              STW,8    T1ST41ER              ERROR NO.
     7764   03 0102B    22801039              LI,8     T1ST421W          LOAD AND SAVE ERROR
     7765   03 0102C    35801A02              STW,8    SURRTN                RETURN
     7766   03 0102D    358019E7              STW,8    TST3EXIT          SET UP RTN IF NOT ENOUGH MEMORY
     7767   03 0102E    35201EED              STW,2    #MSGLEVL          ALLOW ONLY CERTAIN ERRORS
     7768   03 0102F    33F01CC9              MTW,-1   #DDTP             BACK UP POINTER
     7769   03 01030    6AF01CB5              BAL,15   #DDTICMT          GO BRING IN NEW DDT
     7770   03 01031    68001032              B        %+1
     7771   03 01032    6AF01A08              BAL,15   REDONLY           GO READ RAD
     7772   03 01033    68001034              B        %+1
     7773   03 01034    3300103D              MTW,0    #MSGER41          TEST FOR ERRORS
     7774   03 01035    683004B5              BEZ      FUCTEXIT          IF NONE, NEXT SUB-TEST
     7775   03 01036    6AF01556              BAL,15   TST1ERMG
     7776   03 01037    00001074 A            DATA     4212              *** ERROR 4212 ***
     7777   03 01038    6AF01637              BAL,15   SELCTOUT          GO OUTPUT ERROR TABLE
     7778                            *
     7779                            *
     7780   03 01039    EAF0021D A   T1ST421W BAL,15   *:SENSE           GO TEST SENSE SWITCHES
     7781   03 0103A    2E00103A              WAIT     %                 WAIT
     7782   03 0103B    68001027              B        T1ST4211          LOOP ON TEST
     7783   03 0103C    680004B5              B        FUCTEXIT          RETURN TO FTM
     7784   03 0103D    00000000 A   #MSGER41 DATA     0                 ERROR COUNT FOR TEST
     7785   03 0103E    00000000 A   LSEEKTEP DATA     0                 LOWER SEEK LIMIT
     7786                                     PAGE
     7787                            *
     7788                            *                 *** T S T 1,  4 3 ***
     7789                            *
     7790                            *                 *** R E A D  T E S T  (X '1 2') ***
     7791                            *
     7792                            *                 THIS SUBTEST TESTS THE ABILITY OF THE
     7793                            *                 RAD TO RECEIVE AND RESPOND CORRECTLY
     7794                            *                 TO READS (ORDER X'12') OF A SECTOR
     7795                            *
     7796                            *
     7797                            *
     7798                            *
     7799                            T1ST43 ;
     7800   03 0103F    22A010DC A            LI,10    4316
     7801   03 01040    6AF00E36              BAL,15   FNDGTRK           SEARCH FOR A GOOD TRACK
     7802   03 01041    68001048              B        T1ST4320          GO TONEXT TEST
     7803   03 01042    6AF01556              BAL,15   TST1ERMG          REPORT ERROR
     7804   03 01043    000010D6 A            DATA     4310              *** ERROR 4310 ***
     7805   03 01044    EAF0021D A            BAL,15   *:SENSE           TEST SENSE SW
     7806   03 01045    2E001045              WAIT     %
     7807   03 01046    6800103F              B        T1ST43            BRANCH BACK AND RE-TRY
     7808   03 01047    680004B5              B        FUCTEXIT          EXIT
     7809                            *
     7810                            *
     7811                            *
     7812                            *
     7813                            *
     7814                            *
     7815                            *
     7816                            *                 *** 4 3 2 0 ***
     7817                            *
     7818                            *                 THIS TEST VERIFIES THAT THE RAD WILL
     7819                            *                 REPORT 'INCORRECT LENGTH' TO BYTE
     7820                            *                 TRANSFERS OF GREATER THAN A SECTOR BUT
     7821                            *                 LESS THAN 2 SECTORS.
     7822                            *
     7823                            *                     ORDER:        READ (X'12)'
     7824                            *                     BYTE ADDR:    BA(BUF1LO)
     7825                            *                     FLAGS:        IZC
     7826                            *                     BYTE COUNT:   BYTCURR
     7827                            *
     7828                            *
     7829   03 01048    22400004 A   T1ST4320 LI,4     4
     7830   03 01049    30401D37              AW,4     BYTCURR           ADD 4 TO BYTCURR
     7831   03 0104A    554212DD              STH,4    IOCD4320+1,1      STORE BYTE COUNT INTO IOCD
     7832   03 0104B    6AF013D3     T1ST4321 BAL,15   :SEEKMOD          SEEK SUBROUTINE
     7833   03 0104C    6AF0142C              BAL,15   :FUCTEST          GO TO FUNCTIONAL TEST
     7834   03 0104D    000012DC              DATA     IOCD4320
     7835   03 0104E    000010E0 A            DATA     4320              *** ERROR 4320 ***
     7836   03 0104F    00001391              DATA     BSIP4320
     7837   03 01050    00001393              DATA     BSNP4320
     7838   03 01051    68001056              B        T1ST4322          BRANCH TO NEXT TEST
     7839                            *
     7840   03 01052    CF001D35              HIO,0    *:DEVADDR         RESET DEV, SHERE ERROR WAS DETECTED
     7841   03 01053    EAF0021D A            BAL,15   *:SENSE           TEST SENSE SW
     7842   03 01054    2E001054              WAIT     %
     7843   03 01055    6800104B              B        T1ST4321          BRANCH BACK TO RETRY
     7844   03 01056    524212DD     T1ST4322 LH,4     IOCD4320+1,1      FETCH BYTE COUNT
     7845   03 01057    20400004 A            AI,4     4                 ADD 4 TO THE BYTE COUNT
     7846   03 01058    554212DD              STH,4    IOCD4320+1,1
     7847   03 01059    32601D37              LW,6     BYTCURR
     7848   03 0105A    30601D37              AW,6     BYTCURR
     7849   03 0105B    31400006 A            CW,4     6
     7850   03 0105C    6910104B              BL       T1ST4321          GO LOOP
     7851   03 0105D    680004B5              B        FUCTEXIT          GO TO FUNCTIONAL DISPATCHER
     7852                            *
     7853                            *
     7854                                     PAGE
     7855                            *
     7856                            *                 *** T S T 1,  4 4 ***
     7857                            *
     7858                            *                 *** C H E C K W R I T E  1 ***
     7859                            *
     7860                            *                 THE SUBTEST FINDS A GOOD TRACK, BUILDS A
     7861                            *                 PATTERN, WRITES THIS PATTERN ON ONE SECTOR
     7862                            *                 OF THE RAD AND THEN CHECKS THIS PATTERN WITH
     7863                            *                 A CHECKWRITE.  A COMPARISON IS EXPECTED.
     7864                            *
     7865                            *
     7866                            *
     7867                            T1ST44 ;
     7868   03 0105E    22A01140 A            LI,10    4416
     7869   03 0105F    6AF00E36              BAL,15   FNDGTRK           SEARCH FOR A GOOD TRACK
     7870   03 01060    68001067              B        T1ST4420          BRANCH TO NEXT TEST
     7871   03 01061    6AF01556              BAL,15   TST1ERMG          REPORT ERROR
     7872   03 01062    0000113A A            DATA     4410              *** ERROR 4410 ***
     7873   03 01063    EAF0021D A            BAL,15   *:SENSE           TEST SENSE SW
     7874   03 01064    2E001064              WAIT     %
     7875   03 01065    6800105E              B        T1ST44            LOOP ON ERROR
     7876   03 01066    680004B5              B        FUCTEXIT          EXIT
     7877                            *
     7878                            *
     7879                            *                 *** 4 4 2 0 ***
     7880                            *
     7881                            *                 THIS TEST VERIFIES THAT THERE WERE NO ERRORS
     7882                            *                 DETECTED WHEN A PATTERN OF ALL ZEROES COMPARES
     7883                            *                 TO AN IDENTICAL PATTERN BY MEANS OF A CHECK
     7884                            *                 WRITE
     7885                            *
     7886                            *
     7887                            *
     7888   03 01067    22500000 A   T1ST4420 LI,5     0                 LOAD FIXED
     7889   03 01068    15502162              STD,5    :PATID                PATTERN OF ZERO
     7890   03 01069    32601D37              LW,6     BYTCURR           FETCH BYTE COUNT
     7891   03 0106A    556212DF              STH,6    IOCD4420+1,1
     7892   03 0106B    6AF013D3     T1ST4421 BAL,15   :SEEKMOD          SEEK SUB
     7893   03 0106C    6AF0203B              BAL,15   :PATTERN          SPREAD PATTERN
     7894   03 0106D    6AF013E2              BAL,15   :WRTMOD           WRITE SUB
     7895   03 0106E    6AF013D3              BAL,15   :SEEKMOD          SEEK SUB
     7896   03 0106F    6AF0142C              BAL,15   :FUCTEST          GO TO FUNCTIONAL TEST
     7897   03 01070    000012DE              DATA     IOCD4420
     7898   03 01071    00001144 A            DATA     4420              *** ERROR 4220 ***
     7899   03 01072    00001395              DATA     BSIP4420
     7900   03 01073    00001398              DATA     BSNP4420
     7901   03 01074    68001079              B        T1ST4430          BRANCH TO NEXT TEST
     7902                            *
     7903   03 01075    CF001D35              HIO,0    *:DEVADDR         RESET DEV, WHERE WAS ERROR DETECTED
     7904   03 01076    EAF0021D A            BAL,15   *:SENSE           TEST SENSE SW
     7905   03 01077    2E001077              WAIT     %
     7906   03 01078    6800106B              B        T1ST4421          LOOP ON ERROR
     7907                            *
     7908                            *
     7909                            *
     7910                            *                 *** 4 4 3 0 - 7  ( H I G H  S P E E D
     7911                            *                 *** R A D  O N L Y, M O D E L  7 2 1 2 )
     7912                            *
     7913                            *                 THIS TEST VERIFIES THAT NONE OF THE FAILING
     7914                            *                 TRACK BITS IN BYTE 4 OF THE SENSE RETURNED
     7915                            *                 AS A '1' FOR A CHECKWRITE   (4430 BIT 0 WAS '1',
     7916                            *                 4431 BIT 1 WAS '1' ETC) OF ALL ZERO PATTERNS.
     7917                            *
     7918   03 01079    32501D34     T1ST4430 LW,5     MODELC            FETCH MODEL NO.
     7919   03 0107A    21507212 A            CI,5     X'7212'           IF HIGH SPEED RAD
     7920   03 0107B    6930108E              BNE      T1ST4440              CONTINUE
     7921                            *
     7922   03 0107C    6AF01402              BAL,15   :SENSEMOD         GO TO SENSE SUB.
     7923   03 0107D    6800107E              B        %+1
     7924   03 0107E    22600080 A            LI,6     X'80'             LOAD COMPARE BIT
     7925   03 0107F    2280114E A            LI,8     4430              LOAD ERROR NO.
     7926   03 01080    7276141C     T1ST4431 LB,7     :SNSWORD,3        FETCH 'BAD TRACK' BYTE
     7927   03 01081    4B700006 A            AND,7    6                 MASK
     7928   03 01082    68301086              BEZ      %+4               BRANCH IF EQUAL ZERO
     7929   03 01083    35801085              STW,8    %+2               STORE ERROR NO.
     7930   03 01084    6AF01556              BAL,15   TST1ERMG          REPORT ERROR
     7931   03 01085    00000000 A            DATA     0                 *** ERROR NO. ***
     7932   03 01086    2560007F A            SLS,6    -1                SHIFT 1 BIT TO RIGHT
     7933   03 01087    33100008 A            MTW,1    8                 ADD 1 TO REG 8
     7934   03 01088    21801155 A            CI,8     4437              TEST FOR END OF COMPARISON
     7935   03 01089    68201080              BLE      T1ST4431          BRANCH BACK
     7936                            *
     7937   03 0108A    CF001D35              HIO,0    *:DEVADDR         RESET DEV, WHERE ERROR WAS DETECTED
     7938   03 0108B    EAF0021D A            BAL,15   *:SENSE           TEST SENSE SW
     7939   03 0108C    2E00108C              WAIT     %
     7940   03 0108D    6800106B              B        T1ST4421          LOOP ON ERROR
     7941                            *
     7942                            *
     7943                            *
     7944                            *
     7945                            *
     7946                            *                 *** 4 4 4 0 ***
     7947                            *
     7948                            *                 THIS TEST VERIFIES THAT THERE ARE NO ERRORS
     7949                            *                 DETECTED WHEN A PATTERN OF ALL '1'S IS COMPARED
     7950                            *                 TO AN IDENTICAL PATTERN BY MEANS OF A
     7951                            *                 CHECKWRITE.
     7952                            *
     7953   03 0108E    22400000 A   T1ST4440 LI,4     0                 FETCH ZERO
     7954   03 0108F    325023F6              LW,5     =X'FFFFFFFF'      FETCH
     7955   03 01090    15402162              STD,4    :PATID            STORE DOUBLEWORD
     7956   03 01091    6AF013D3              BAL,15   :SEEKMOD          SEEK SUB.
     7957   03 01092    6AF0203B              BAL,15   :PATTERN          SPREAD PATTERN
     7958   03 01093    6AF013E2              BAL,15   :WRTMOD           WRITE SUB.
     7959   03 01094    6AF013D3              BAL,15   :SEEKMOD          SEEK SUB.
     7960   03 01095    6AF0142C              BAL,15   :FUCTEST          GO TO FUNCTIONAL TEST
     7961   03 01096    000012DE              DATA     IOCD4420
     7962   03 01097    00001158 A            DATA     4440              *** ERROR 4440 ***
     7963   03 01098    00001395              DATA     BSIP4420
     7964   03 01099    00001398              DATA     BSNP4420
     7965   03 0109A    6800109F              B        T1ST4450          BRANCH TO NEXT TEST
     7966                            *
     7967   03 0109B    CF001D35              HIO,0    *:DEVADDR         RESET DEV, WHERE ERROR WAS DETECTED
     7968   03 0109C    EAF0021D A            BAL,15   *:SENSE           TEST SENSE SW
     7969   03 0109D    2E00109D              WAIT     %
     7970   03 0109E    6800108E              B        T1ST4440          LOOP ON ERROR
     7971                            *
     7972                            *
     7973                            *                 *** 4 4 5 0  (HIGH SPEED RAD ONLY, MODE7 7212) ***
     7974                            *
     7975                            *                 THIS TEST VERIFIES THAT NONE OF THE FAILING
     7976                            *                 TRACK BITS IN BYTE 4 OF THE SENSE STATUS RETURNED
     7977                            *                 AS A '1' FOR AN ALL '1'S CHECKWRITE. (4450 BIT '0'
     7978                            *                 WAS '1', 4451 BIT 1 WAS '1', ETC).
     7979                            *
     7980   03 0109F    32501D34     T1ST4450 LW,5     MODELC            FETCH MODEL NO.
     7981   03 010A0    21507212 A            CI,5     X'7212'           IF HIGH SPEED RAD
     7982   03 010A1    693004B5              BNE      FUCTEXIT              CONTINUE
     7983   03 010A2    6AF01402              BAL,15   :SENSEMOD         GO TO SENSE SUB
     7984   03 010A3    680010A4              B        %+1
     7985   03 010A4    22600080 A            LI,6     X'80'             LOAD COMPARE BIT
     7986   03 010A5    22801162 A            LI,8     4450              LOAD ERROR NO.
     7987   03 010A6    7276141C     T1ST4451 LB,7     :SNSWORD,3        FETCH 'BAD TRACK' BYTE
     7988   03 010A7    4B600007 A            AND,6    7                 MASK
     7989   03 010A8    683010AC              BEZ      %+4               BRANCH IF EQUAL ZERO
     7990   03 010A9    358010AB              STW,8    %+2               STORE ERROR NO.
     7991   03 010AA    6AF01556              BAL,15   TST1ERMG          REPORT ERROR
     7992   03 010AB    00000000 A            DATA     0
     7993   03 010AC    2560007F A            SLS,6    -1                MOVE 1 BIT TO RIGHT
     7994   03 010AD    33100008 A            MTW,1    8                 ADD 1 TO REG 8
     7995   03 010AE    21801169 A            CI,8     4457              COMPARE
     7996   03 010AF    682010A6              BLE      T1ST4451
     7997                            *
     7998   03 010B0    CF001D35              HIO,0    *:DEVADDR         RESET DEV, WHERE ERROR WAS DETECTED
     7999   03 010B1    EAF0021D A            BAL,15   *:SENSE           TEST SENSE SW
     8000   03 010B2    2E0010B2              WAIT     %
     8001   03 010B3    6800108E              B        T1ST4440
     8002   03 010B4    680004B5              B        FUCTEXIT          EXIT
     8003                            *
     8004                            *
     8005                                     PAGE
     8006                            *
     8007                            *                 *** T S T 1, 4 5 ***
     8008                            *
     8009                            *                 *** C H E C K W R I T E  2 ***
     8010                            *
     8011                            *                 THE SUBTEST FINDS A GOOD TRACK, BUILDS A
     8012                            *                 PATTERN, AND WRITES THIS PATTERN ON ONE SECTOR
     8013                            *                 OF THE RAD. THEN ALTER THIS PATTERN SO THAT 1
     8014                            *                 BIT A PASS WILL CAUSE AN ERROR.
     8015                            *                 IF THE RAD WAS A HIGH SPEED (MODEL 7212), IT WILL
     8016                            *                 THEN SENSE TO VERIFY THAT THE FAILING TRACK IS
     8017                            *                 REPORTED IN BYTE 4 OF THE SENSE STATUS.
     8018                            *
     8019                            *
     8020                            *
     8021                            T1ST45 ;
     8022   03 010B5    326023F7              LW,6     =X'FFEFFFFF'      REMOVE
     8023   03 010B6    356014F6              STW,6    :FAIOMSK              ICE
     8024   03 010B7    22A011A4 A            LI,10    4516              FETCH ERROR NO.
     8025   03 010B8    32601D37              LW,6     BYTCURR           FETCH BYTE COUNT
     8026   03 010B9    556212E1              STH,6    IOCD4520+1,1      STORE BYTE COUNT
     8027   03 010BA    6AF00E36              BAL,15   FNDGTRK           SEARCH A GOOD TRACK
     8028   03 010BB    680010C2              B        T1ST4520          BRANCH TO NEXT TEST
     8029                            *
     8030   03 010BC    6AF01556              BAL,15   TST1ERMG          GO REPORT ERROR
     8031   03 010BD    0000119E A            DATA     4510              *** ERROR 4510 ***
     8032   03 010BE    EAF0021D A            BAL,15   *:SENSE           TEST SENSE SW
     8033   03 010BF    2E0010BF              WAIT     %
     8034   03 010C0    680010B5              B        T1ST45            LOOP ON ERROR
     8035   03 010C1    680004B5              B        FUCTEXIT          EXIT
     8036                            *
     8037                            *                 *** 4 5 2 0 - 7 ***
     8038                            *
     8039                            *                 THIS TEST VERIFIES THAT THERE IS AN ERROR
     8040                            *                 DETECTED FOR EACH BIT, WHEN THE CHECKWRITE BIT
     8041                            *                 IS A '1' AND THE BIT FROM THE RAD IS A '0'.
     8042                            *                 (4520 BIT 0, ERROR ; 4521 BIT 1, ERROR; ETC)
     8043                            *
     8044                            *
     8045                            *
     8046   03 010C2    22700000 A   T1ST4520 LI,7     0
     8047   03 010C3    15702162              STD,7    :PATID            SET UP FIXED PATTERN OF ZERO
     8048   03 010C4    6AF013D3              BAL,15   :SEEKMOD          GO SEEK SUB
     8049   03 010C5    6AF0203B              BAL,15   :PATTERN          SPREAD PATTERN
     8050   03 010C6    6AF013E2              BAL,15   :WRTMOD           WRITE SUB
     8051   03 010C7    224011A8 A            LI,4     4520              FETCH NO.
     8052   03 010C8    354010D6              STW,4    T1ST4522
     8053   03 010C9    22B00080 A            LI,11    X'80'
     8054   03 010CA    22A002FC A            LI,10    X'2FC'
     8055   03 010CB    324023E8              LW,4     =X'80000000'      FETCH WORD
     8056   03 010CC    228011B2 A            LI,8     4530              SET UP ERROR NO.
     8057   03 010CD    32601D34              LW,6     MODELC            LOAD MODEL NO.
     8058   03 010CE    21607212 A            CI,6     X'7212'            IS IT HIGH SPEED?
     8059   03 010CF    683010D2              BE       %+3               BRANCH
     8060   03 010D0    22A002FF A            LI,10    X'2FF'            FETCH NO.
     8061   03 010D1    22400080 A            LI,4     X'80'             FETCH DATA
     8062   03 010D2    35402418              STW,4    BUF1LO            STORE DATA INTO BUF1LO
     8063   03 010D3    6AF013D3     T1ST4521 BAL,15   :SEEKMOD          GO TO SEEK SUB
     8064   03 010D4    6AF0142C              BAL,15   :FUCTEST          GO TO FUNCTIONAL TEST
     8065   03 010D5    000012E0              DATA     IOCD4520
     8066   03 010D6    00000000 A   T1ST4522 DATA     0                 ERROR NO. 4520-27
     8067   03 010D7    0000139A              DATA     BSIP4520
     8068   03 010D8    0000139D              DATA     BSNP4520
     8069   03 010D9    680010DE              B        T1ST4527          BRANCH TO NEXT TEST
     8070                            *
     8071   03 010DA    CF001D35              HIO,0    *:DEVADDR         RESET DEV, WHERE ERROR WAS DETECTED
     8072   03 010DB    EAF0021D A            BAL,15   *:SENSE           TEST SENSE SW
     8073   03 010DC    2E0010DC              WAIT     %
     8074   03 010DD    680010D3              B        T1ST4521          LOOP ON ERROR
     8075                            *
     8076                            *
     8077   03 010DE    32601D34     T1ST4527 LW,6     MODELC            FETCH MODEL NO.
     8078   03 010DF    21607212 A            CI,6     X'7212'            IS IT HIGH SPEED MODEL ?
     8079   03 010E0    693010ED              BNE      T1ST4539          BRANCH IF IT IS
     8080   03 010E1    6AF01402              BAL,15   :SENSEMOD         BRANCH TO SENSE SUB.
     8081   03 010E2    680010E3              B        %+1
     8082   03 010E3    7276141C              LB,7     :SNSWORD,3        FETCH SENSE STATUS BYTE 4
     8083                            *
     8084                            *
     8085                            *                 *** 4 5 3 0 - 7 ***
     8086                            *
     8087                            *                 THIS TEST VERIFIES THAT EACH OF FAILING TRACK
     8088                            *                 BITS IN BYTE 4 OF THE SENSE STATUS REPORTS
     8089                            *                 ON ERROR, WHEN THE CHECKWRITE BIT IS A '1' AND
     8090                            *                 THE BIT FROM THE RAD IS A '0'. (4530 BIT 0 IS
     8091                            *                 A '0', 4531 BIT 1 IS '0' ETC)
     8092                            *
     8093   03 010E4    4B70000B A   T1ST4530 AND,7    11
     8094   03 010E5    693010ED              BNEZ     T1ST4539
     8095   03 010E6    358010E8              STW,8    %+2               STORE ERROR NO.
     8096   03 010E7    6AF01556              BAL,15   TST1ERMG          REPORT ERROR
     8097   03 010E8    00000000 A            DATA     0                 *** ERROR NO. ***
     8098   03 010E9    CF001D35              HIO,0    *:DEVADDR         RESET DEV, WHERE ERROR WAS DETECTED
     8099   03 010EA    EAF0021D A            BAL,15   *:SENSE           TEST SENSE SW
     8100   03 010EB    2E0010EB              WAIT     %
     8101                            *
     8102                            *
     8103                            *
     8104   03 010EC    680010D3              B        T1ST4521          LOOP ON ERROR
     8105   03 010ED    32602418     T1ST4539 LW,6     BUF1LO            FETCH BUF1LO
     8106   03 010EE    A560000A A            SCS,6    *10
     8107   03 010EF    35602418              STW,6    BUF1LO            STORE RESULT INTO BUF1LO
     8108   03 010F0    25B0027F A            SCS,11   -1
     8109   03 010F1    33100008 A            MTW,1    8                 UPDATE ERROR COUNT
     8110   03 010F2    331010D6              MTW,1    T1ST4522          UPDATE ERROR COUNT
     8111   03 010F3    218011B9 A            CI,8     4537              IF NOT ALL TEST
     8112   03 010F4    682010D3              BLE      T1ST4521              CONTINUE
     8113   03 010F5    225FFFFF A            LI,5     -1                FETCH -1
     8114   03 010F6    35502163              STW,5    :PATID+1          STORE INTO :PATID
     8115   03 010F7    6AF013D3              BAL,15   :SEEKMOD          SEEK SUB
     8116   03 010F8    6AF0203B              BAL,15   :PATTERN          SPREAD PATTERN
     8117   03 010F9    6AF013E2              BAL,15   :WRTMOD           WRITE SUB
     8118   03 010FA    22B00080 A            LI,11    X'80'
     8119   03 010FB    324023F8              LW,4     =X'7F7F7F7F'      FETCH DATA
     8120   03 010FC    32601D34              LW,6     MODELC            FETCH MODEL NO.
     8121   03 010FD    21607212 A            CI,6     X'7212'            IS IT HIGH SPEED MODEL ?
     8122   03 010FE    68301100              BE       %+2               BRANCH IF YES ?
     8123   03 010FF    324023F9              LW,4     =X'FFFFFF7F'      FETCH DATA
     8124   03 01100    35402418              STW,4    BUF1LO            STORE INTO BUF1LO
     8125   03 01101    224011BC A            LI,4     4540              LOAD AND SAVE
     8126   03 01102    35401107              STW,4    T1ST4542              ERROR NO.
     8127   03 01103    228011C6 A            LI,8     4550              LOAD AND ERROR NO.
     8128                            *
     8129                            *
     8130                            *                 *** 4 5 4 0 - 7 ***
     8131                            *
     8132                            *                 THIS TEST VERIFIES THAT THERE IS AN ERROR
     8133                            *                 DETECTED FOR EACH BIT, WHEN THE CHECKWRITE BIT
     8134                            *                 IS A '0' AND THE BIT FROM THE RAD IS A '1'.
     8135                            *
     8136                            *                 (4540 BIT 0, ERROR; 4541 BIT 1, ERROR; ETC)
     8137                            *
     8138                            *
     8139   03 01104    6AF013D3     T1ST4540 BAL,15   :SEEKMOD          SEEK SUB
     8140   03 01105    6AF0142C              BAL,15   :FUCTEST          GO TO FUNCTIONAL TEST
     8141   03 01106    000012E0              DATA     IOCD4520
     8142   03 01107    00000000 A   T1ST4542 DATA     0                 ERROR NO. 4540-4547
     8143   03 01108    0000139A              DATA     BSIP4520
     8144   03 01109    0000139D              DATA     BSNP4520
     8145   03 0110A    6800110F              B        T1ST4541          BRANCH TO NEXT TEST
     8146                            *
     8147   03 0110B    CF001D35              HIO,0    *:DEVADDR         RESET DEV, WHERE ERROR WAS DETECTED
     8148   03 0110C    EAF0021D A            BAL,15   *:SENSE           TEST SENSE SW
     8149   03 0110D    2E00110D              WAIT     %
     8150   03 0110E    68001104              B        T1ST4540          BRANCH TO NEXT TEST
     8151   03 0110F    32601D34     T1ST4541 LW,6     MODELC            FETCH MODEL NO.
     8152   03 01110    21607212 A            CI,6     X'7212'            IS IT HIGH SPEED MODEL
     8153   03 01111    6930111E              BNE      T1ST4551          BRANCH IF YES
     8154   03 01112    6AF01402     T1ST4543 BAL,15   :SENSEMOD         GO TO SENSE SUB
     8155   03 01113    68001114              B        %+1
     8156   03 01114    7276141C              LB,7     :SNSWORD,3        FETCH SENSE STATUS BYTE
     8157   03 01115    4B70000B A            AND,7    11
     8158   03 01116    6930111E              BNEZ     T1ST4551
     8159   03 01117    35801119              STW,8    %+2               STORE ERROR NO.
     8160   03 01118    6AF01556              BAL,15   TST1ERMG          REPORT ERROR
     8161   03 01119    00000000 A            DATA     0                 *** ERROR NO. ***
     8162                            *
     8163   03 0111A    CF001D35              HIO,0    *:DEVADDR         RESET DEV, WHERE ERROR WAS DETECTED
     8164   03 0111B    EAF0021D A            BAL,15   *:SENSE           TEST SENSE SW
     8165   03 0111C    2E00111C              WAIT     %
     8166   03 0111D    68001104              B        T1ST4540          LOOP ON ERROR
     8167                            *
     8168                            *
     8169                            *                 *** 4 5 5 0 - 7 ***
     8170                            *
     8171                            *                 THIS TEST VERIFIES THAT EACH OF THE FAILING
     8172                            *                 TRACK BITS IN BYTE 4 OF THE SENSE STATUS REPORTS
     8173                            *                 AN ERROR, WHEN THE CHECKWRITE BIT WAS A '0' AND
     8174                            *                 THE BIT FROM THE RAD WAS A '1'.  (4450 BIT 0 IS
     8175                            *                 A '0', 4451 BIT 1 IS A '0', ETC)
     8176   03 0111E    32602418     T1ST4551 LW,6     BUF1LO            FETCH BUF1LO
     8177   03 0111F    A560000A A            SCS,6    *10
     8178   03 01120    25B0027F A            SCS,11   -1
     8179   03 01121    35602418              STW,6    BUF1LO            STORE BACK INTO BUF1LO
     8180   03 01122    33101107              MTW,1    T1ST4542          ADD 1
     8181   03 01123    33100008 A            MTW,1    8                 UPDATE ERROR COUNT
     8182   03 01124    218011CD A            CI,8     4557
     8183   03 01125    68201104              BLE      T1ST4540
     8184   03 01126    680004B5              B        FUCTEXIT          EXIT
     8185                            *
     8186                            *
     8187                            *
     8188                                     PAGE
     8189                            *
     8190                            *
     8191                            *
     8192                            *
     8193                            *
     8194                            *                 *** T S T 1, 4 6 ***
     8195                            *
     8196                            *                 *** H A L T  W R I T E  T E S T ***
     8197                            *
     8198                            *                 THIS TEST VERIFIES THAT A HIO CAN STOP
     8199                            *                 A WRITE OPERATION AND CAUSE THE DEVICE
     8200                            *                 TO REPORT THE CONDITION OF THE RAD JUST
     8201                            *                 PRIOR AND AFTER THE HALT OCCURS.
     8202                            *
     8203                            *
     8204                            T1ST46 ;
     8205   03 01127    22700000 A            LI,7     0                 FETCH ZERO
     8206   03 01128    15702162              STD,7    :PATID
     8207   03 01129    22702418              LI,7     BUF1LO
     8208   03 0112A    35702158              STW,7    :PATBFR           STORE INTO :PATBR
     8209   03 0112B    32601D37              LW,6     BYTCURR           FETCH BYTCURR
     8210   03 0112C    556212E3              STH,6    IOCD4620+1,1
     8211   03 0112D    2560007E A            SLS,6    -2                DIVISION BY 4
     8212   03 0112E    3560215B              STW,6    :PATWC            STORE INTO :PATWC
     8213   03 0112F    6AF013D3              BAL,15   :SEEKMOD          SEEK SUB
     8214   03 01130    6AF0203B              BAL,15   :PATTERN          SPREAD PATTERN
     8215   03 01131    6AF013E2              BAL,15   :WRTMOD           WRITE SUB
     8216   03 01132    CFC01D35     T1ST4601 HIO,12   *:DEVADDR         HIO
     8217   03 01133    6AF013D3              BAL,15   :SEEKMOD          SEEK SUB
     8218   03 01134    22000971              LI,0     DA(IOCD4620)      FERCH IOCD DW
     8219   03 01135    CCC01D35              SIO,12   *:DEVADDR         SIO
     8220                            *
     8221                            *
     8222                            *                 *** 4 6 1 0 ***
     8223                            *
     8224                            *                 THIS TEST VERIFIES THAT THE DEVICE IS BUSY
     8225                            *                 AT TIME OF THE HALT (CC2=1).
     8226                            *
     8227                            *
     8228   03 01136    CFC01D35     T1ST4610 HIO,12   *:DEVADDR         HIO
     8229   03 01137    69401140              BCS,4    T1ST4620          TEST CONDITION CODE
     8230   03 01138    6AF0239A              BAL,15   :SAVEHIO
     8231   03 01139    6AF01556              BAL,15   TST1ERMG          REPORT ERROR
     8232   03 0113A    00001202 A            DATA     4610              *** ERROR 4610 ***
     8233   03 0113B    CF001D35              HIO,0    *:DEVADDR         RESET DEV, WHERE ERROR WAS DETECTED
     8234   03 0113C    EAF0021D A            BAL,15   *:SENSE           TEST SENSE SW
     8235   03 0113D    2E00113D              WAIT     %
     8236   03 0113E    68001132              B        T1ST4601          LOOP ON ERROR
     8237   03 0113F    68001141              B        %+2
     8238                            *
     8239                            *                 *** 4 6 2 0 ***
     8240                            *
     8241                            *                 THIS TEST VERIFIES ALL STATUS RETURNED FROM
     8242                            *                 THE HALT OPERATION TO BE CORRECT.
     8243                            *
     8244   03 01140    6AF0239A     T1ST4620 BAL,15   :SAVEHIO
     8245   03 01141    6AF01425              BAL,15   :FCTNXINT         GO TO FUNCTIONAL TEST
     8246   03 01142    000012E2              DATA     IOCD4620
     8247   03 01143    0000120C A            DATA     4620              *** ERROR 4620 ***
     8248   03 01144    0000139F              DATA     BSIP4620
     8249   03 01145    000013A3              DATA     BSNP4620
     8250   03 01146    680004B5              B        FUCTEXIT          EXIT
     8251   03 01147    CF001D35              HIO,0    *:DEVADDR         RESET DEV, WHERE ERROR WAS DETECTED
     8252   03 01148    EAF0021D A            BAL,15   *:SENSE           TEST SENSE SW
     8253   03 01149    2E001149              WAIT     %
     8254   03 0114A    68001132              B        T1ST4601          LOOP ON ERROR
     8255   03 0114B    680004B5              B        FUCTEXIT          EXIT
     8256                                     PAGE
     8257                            *                 *** T S T 1, 4 7 ***
     8258                            *
     8259                            *                 *** H A L T  R E A D  T E S T ***
     8260                            *
     8261                            *                 THIS TEST VERIFIES THAT A HIO CAN STOP A READ
     8262                            *                 OPERATION AND CAUSE THE DEVICE TO REPORT THE
     8263                            *                 CONDITION OF THE RAD JUST PRIOR AND JUST AFTER
     8264                            *                 THE HALT OCCURS.
     8265                            *
     8266                            T1ST47 ;
     8267   03 0114C    22700000 A            LI,7     0                 FETCH ZERO
     8268   03 0114D    15702162              STD,7    :PATID
     8269   03 0114E    22702418              LI,7     BUF1LO
     8270   03 0114F    35702158              STW,7    :PATBFR           STORE INTO :PATBR
     8271   03 01150    32601D37              LW,6     BYTCURR           FETCH BYTCURR
     8272   03 01151    556212E5              STH,6    IOCD4720+1,1
     8273   03 01152    2560007E A            SLS,6    -2                DIVISION BY 4
     8274   03 01153    3560215B              STW,6    :PATWC            STORE INTO :PATWC
     8275   03 01154    6AF013D3              BAL,15   :SEEKMOD          SEEK SUB
     8276   03 01155    6AF0203B              BAL,15   :PATTERN          SPREAD PATTERN
     8277   03 01156    6AF013E2              BAL,15   :WRTMOD           WRITE SUB
     8278   03 01157    CFC01D35     T1ST4701 HIO,12   *:DEVADDR         HIO
     8279   03 01158    6AF013D3              BAL,15   :SEEKMOD          SEEK SUB
     8280   03 01159    22000972              LI,0     DA(IOCD4720)      FETCH IOCD DW
     8281   03 0115A    CCC01D35              SIO,12   *:DEVADDR         SIO
     8282                            *
     8283                            *                 *** 4 7 1 0 ***
     8284                            *
     8285                            *                 THIS TEST VERIFIES THAT THE DEVICE IS BUSY
     8286                            *                 AT THE TIME OF THE HALT (CC2=1)
     8287                            *
     8288   03 0115B    CFC01D35     T1ST4710 HIO,12   *:DEVADDR         HIO
     8289   03 0115C    69401165              BCS,4    T1ST4720          TEST CONDITION CODE
     8290   03 0115D    6AF0239A              BAL,15   :SAVEHIO
     8291   03 0115E    6AF01556              BAL,15   TST1ERMG          REPORT ERROR
     8292   03 0115F    00001266 A            DATA     4710              *** ERROR 4710 ***
     8293   03 01160    CF001D35              HIO,0    *:DEVADDR         RESET DEV, WHERE ERROR WAS DETECTED
     8294   03 01161    EAF0021D A            BAL,15   *:SENSE           TEST SENSE SW
     8295   03 01162    2E001162              WAIT     %
     8296   03 01163    68001157              B        T1ST4701          LOOP ON ERROR
     8297   03 01164    68001166              B        %+2
     8298                            *
     8299                            *                 *** 4 7 2 0 ***
     8300                            *
     8301                            *                 THIS TEST VERIFIES ALL STATUS RETURNED FROM THE
     8302                            *                 HALT OPERATION TO BE CORRECT
     8303                            *
     8304   03 01165    6AF0239A     T1ST4720 BAL,15   :SAVEHIO
     8305   03 01166    6AF01425              BAL,15   :FCTNXINT         GO TO FUNCTIONAL TEST
     8306   03 01167    000012E4              DATA     IOCD4720
     8307   03 01168    00001270 A            DATA     4720              *** ERROR 4720 ***
     8308   03 01169    000013A6              DATA     BSIP4720
     8309   03 0116A    000013AA              DATA     BSNP4720
     8310   03 0116B    680004B5              B        FUCTEXIT          EXIT
     8311   03 0116C    CF001D35              HIO,0    *:DEVADDR         RESET DEV, WHERE ERROR WAS DETECTED
     8312   03 0116D    EAF0021D A            BAL,15   *:SENSE           TEST SENSE SW
     8313   03 0116E    2E00116E              WAIT     %
     8314   03 0116F    68001157              B        T1ST4701          LOOP ON ERROR
     8315   03 01170    680004B5              B        FUCTEXIT          EXIT
     8316                                     PAGE
     8317                            *
     8318                            *
     8319                            *                 *** T S T 1 ,  4 8 ***
     8320                            *
     8321                            *                 *** D A T A  O V E R R U N ***
     8322                            *
     8323                            *                 THIS TEST FORCES A DATA OVER RUN TO OCCUR
     8324                            *                 BY EXECUTING MANY 1 OR 4 BYTE DATA CHAINED
     8325                            *                 IOCD'S.
     8326                            *
     8327                            *
     8328                            *
     8329                            *                 *** 4 8 1 0 ***
     8330                            *
     8331                            *                 THIS TEST VERIFIES THAT A RAD WILL REPORT
     8332                            *                 DATA OVER RUN FOR A SERIES OF SHORT
     8333                            *                 DATA CHAINED IOCD'S.
     8334                            *
     8335                            T1ST48 ;
     8336   03 01171    32401D34              LW,4     MODELC                                            *C02
     8337   03 01172    21407250 A            CI,4     X'7250'                                           *C02
     8338   03 01173    681004B5              BGE      FUCTEXIT                                          *C02
     8339   03 01174    328004F5              LW,8     TIOINST           SET UP                          *C01
     8340   03 01175    35801452              STW,8    :FUCTIN               TIO,0   *:DEVADDR           *C01
     8341   03 01176    22600001 A            LI,6     1                 LOAD WRITE ORDER
     8342   03 01177    6AF01199              BAL,15   T1ST48ID          GO BUILD IOCD'S
     8343   03 01178    35B01180              STW,11   T1ST4813          SAVE FIRST IOCD WORD ADDR
     8344   03 01179    6AF013D3              BAL,15   :SEEKMOD          GO SEEK RAD
     8345   03 0117A    6800117B              B        %+1
     8346   03 0117B    326023FA              LW,6     =X'197FFFFF'      REMOVE INCORRECT LENGTH
     8347   03 0117C    356014F5              STW,6    :FTIOMSK               FROM TIO STATUS
     8348   03 0117D    326023FB              LW,6     =X'FF7FFFFF'      REMOVE INCORRECT HENGTH
     8349   03 0117E    356014F6              STW,6    :FAIOMSK               FROM AIO STATUS
     8350   03 0117F    6AF0142C              BAL,15   :FUCTEST          GO DO FUCTIONAL TEST
     8351   03 01180    00000000 A   T1ST4813 DATA     0                 FIRST IOCD
     8352   03 01181    000012CA A            DATA     4810              *** ERROR 4810 ***
     8353   03 01182    000013AD              DATA     BSIP4810
     8354   03 01183    000013AF              DATA     BSNP4810
     8355   03 01184    68001189              B        T1ST4820          GO TO NEXT TEST
     8356   03 01185    CF001D35              HIO,0    *:DEVADDR         STOP DEVICE
     8357   03 01186    EAF0021D A            BAL,15   *:SENSE           GO TEST SENSE SWITCHES
     8358   03 01187    2E001187              WAIT     %
     8359   03 01188    68001171              B        T1ST48            GO LOOP ON ERROR
     8360                            *
     8361                            *                 *** 4 8 2 0 ***
     8362                            *
     8363                            *                 THIS TEST VERIFIES THAT A RAD WILL REPORT
     8364                            *                 DATA OVER RUN FOR A SERIES OF SHORT
     8365                            *                 DATA CHAINED IOCD'S.
     8366                            *
     8367   03 01189    22600012 A   T1ST4820 LI,6     X'12'             LOAD READ ORDER
     8368   03 0118A    6AF01199              BAL,15   T1ST48ID          GO BUILD IOCD'S
     8369   03 0118B    35B0118F              STW,11   T1ST4823          SAVE WORD ADDR OF FIRST IOCD
     8370   03 0118C    6AF013D3              BAL,15   :SEEKMOD          GO SEEK RAD
     8371   03 0118D    6800118E              B        %+1
     8372   03 0118E    6AF0142C              BAL,15   :FUCTEST          GO DO FUCTIONAL TEST
     8373   03 0118F    00000000 A   T1ST4823 DATA     0                 WORD ADDR OF FIRST IOCD
     8374   03 01190    000012D4 A            DATA     4820              *** ERROR 4820 ***
     8375   03 01191    000013AD              DATA     BSIP4810
     8376   03 01192    000013AF              DATA     BSNP4810
     8377   03 01193    680004B5              B        FUCTEXIT
     8378   03 01194    CF001D35              HIO,0    *:DEVADDR         GO TO NEXT TEST
     8379   03 01195    EAF0021D A            BAL,15   *:SENSE           GO TEST SENSE SWITCHES
     8380   03 01196    2E001196              WAIT     %
     8381   03 01197    68001189              B        T1ST4820          GO LOOP ON ERROR
     8382   03 01198    680004B5              B        FUCTEXIT          RETURN TO FTM
     8383                            *
     8384                            *
     8385   03 01199    228004B5     T1ST48ID LI,8     FUCTEXIT          SET UP EXIT
     8386   03 0119A    35801C81              STW,8    MEMORY2              TO FTM IF NOT ENOUGH MEMORY  *A01
     8387   03 0119B    329023FC              LW,9     =X'8C000001'
     8388   03 0119C    2280120C              LI,8     DA(BUF1LO+1)
     8389   03 0119D    25800003 A            SLS,8    3
     8390   03 0119E    75600008 A            STB,6    8                 LOAD ORDER
     8391   03 0119F    32701D37              LW,7     BYTCURR           LOAD NO. OF BYTES/SECTOR
     8392   03 011A0    32500008 A            LW,5     8                 LOAD ORDER BYTE ADDR            *A01
     8393   03 011A1    4B5023FD              AND,5    =X'00FFFFFF'      REMOVE ORDER                    *A01
     8394   03 011A2    2050000A A            AI,5     10                ADD FUDGE FACTOR                *C01
     8395   03 011A3    2550007E A            SLS,5    -2                CONVERT TO WORD ADDR.
     8396   03 011A4    3550000B A            STW,5    11                STORE AS STARTING ADDR OF IOCD
     8397   03 011A5    3550000C A            STW,5    12                                                *A01
     8398   03 011A6    25C0007F A            SLS,12    -1                                               *A01
     8399   03 011A7    30C023FE              AW,12    =X'08000000'      ADD TRANFER IN CHANNEL ORDER    *A01
     8400   03 011A8    22D00000 A            LI,13    0                 ZERO FLAG AND BYTE COUNT        *A01
     8401   03 011A9    25700001 A            SLS,7    1                 DOUBLE IOCD COUNT               *A01
     8402   03 011AA    30500007 A            AW,5     7                 ADD NUMBER OF IOCDS
     8403   03 011AB    30500007 A            AW,5     7                 ADD NUMBER OF IOCDS
     8404   03 011AC    3150022F A            CW,5     :MEMLAST          TEST FOR SIZE OF MEMORY
     8405   03 011AD    68101C73              BGE      MEMORY7           IF GREATER, EXIT TEST           *A01
     8406   03 011AE    22600000 A            LI,6     0                 ZERO IOCD COUNTER
     8407   03 011AF    680011B1              B        %+2               SKIP UPDATE
     8408   03 011B0    20600001 A   T1ST48IC AI,6     1                 UPDATE IOCD COUNT
     8409   03 011B1    958C000B A            STD,8    *11,6             ADD BYTE COUNT TO MEMORY BYTE ADDR.
     8410   03 011B2    20C00002 A            AI,12    2                 UPDATE DOUBLE WORD ADDR         *A01
     8411   03 011B3    20600001 A            AI,6     1                 UPDATE IOCD POINTER             *A01
     8412   03 011B4    95CC000B A            STD,12   *11,6             SAVE TRANSFER IN CHANNEL IOCD   *A01
     8413   03 011B5    31600007 A            CW,6     7                 TEST FOR COMPETION
     8414   03 011B6    682011B0              BLE      T1ST48IC          IF NOT GO BACK FOR NEXT IOCD.
     8415   03 011B7    206FFFFF A            AI,6     -1                BACK UP POINTER                 *A01
     8416   03 011B8    30600006 A            AW,6     6                 FIND
     8417   03 011B9    3060000B A            AW,6     11                    LAST IOCD
     8418   03 011BA    22A01C00 A            LI,10    X'1C00'           LOAD CE, HTE, UE FLAGS
     8419   03 011BB    D5A40006 A            STH,10   *6,2              SAVE IN LAST IOCD
     8420   03 011BC    E800000F A            B        *15               RETURN TO CALLING ROUTINE
     8421                                     PAGE
     8422                            *
     8423                            *                 *** T S T 1 , 4 9 ***
     8424                            *
     8425                            *                 *** W R I T E  P R O T E C T  T E S T ***
     8426                            *
     8427                            *                 THIS SUBTEST VERIFIES THAT ALL TRACKS (BANDS)
     8428                            *                 CAN REPORT WRITE PROTECTED, BOTH FROM SENSE INFORATION
     8429                            *                 AND STATUS RETURN FROM A WRITE OPERATION.
     8430                            *
     8431                            *                   TO CHECK WRITE PROTECTION:
     8432                            *
     8433                            *                        SET DESIRED WRITE PROTECT SWITCHES IF THEY
     8434                            *                        DETECTED THE TRACKS (BANDS) WILL BE REPORTED
     8435                            *                        ON THE OUTPUT MESSAGE DEVICE.
     8436                            *
     8437                            *                        (NOTE: REMEMBER THAT THE TRACKS (BANDS) THAT
     8438                            *                        WILL BE TESTED ARE LIMITED BY BOTH THE
     8439                            *                        'SYST', AND 'SEEK' DIRECTIVES.
     8440                            *
     8441                            T1ST49 ;
     8442   03 011BD    3510103D              STW,1    #MSGER41                                          *A01
     8443   03 011BE    32801D37              LW,8     BYTCURR
     8444   03 011BF    558212E7              STH,8    IOCD4911+1,1
     8445   03 011C0    22400000 A            LI,4     0
     8446   03 011C1    35401550              STW,4    TCKUNVL                TRACK (BAND) UNAVAILABLE ADDR
     8447   03 011C2    35401552              STW,4    TCKWPVL1               TRACK (BAND) WRT PROTECT ADDR
     8448   03 011C3    35401554              STW,4    TCKWPVL                TRACK (BAND) WRT PROTECT ADDR
     8449   03 011C4    22400000 A   T1ST4908 LI,4     0
     8450   03 011C5    325013FA              LW,5     SEEKRAD           LOAD DEV SEEK ADDR.
     8451                            T1ST4909 ;
     8452   03 011C6    32401D34              LW,4     MODELC            GET CURRENT MODEL NO            *C02
     8453   03 011C7    21407250 A            CI,4     X'7250'           IS IT A CARTRIDGE DISK          *C02
     8454   03 011C8    681004B5              BGE      FUCTEXIT          YES - BYPASS THIS TEST          *C02
     8455   03 011C9    3A401D3C              LCW,4    TCKCURR           LOAD WORD COMPLEMENT
     8456   03 011CA    4B4023E6              AND,4    =X'7F'            AND
     8457   03 011CB    A5500004 A            SLS,5    *4                SHIFT
     8458   03 011CC    22400000 A            LI,4     0                 LOAD ZERO
     8459   03 011CD    35400A76              STW,4    T1ST21XF          ZERO TEST EXIT FLAG             *B00
     8460   03 011CE    35500006 A            STW,5    6                 LOAD TRACK (BAN: ADDR
     8461   03 011CF    306023E8              AW,6     =X'80000000'      SET UP REGISTER SO IT'S NOT ZERO
     8462   03 011D0    37401D36              MW,4     SECTCURR          CALCULATE NEW DEVICE SEEK ADDR
     8463   03 011D1    355013FA              STW,5    SEEKRAD           SAVE IN SEEK RAD LOCATION
     8464                            *
     8465                            *                 *** 4 9 1 0 ***
     8466                            *
     8467                            *                 THIS TEST VERIFIES THAT, SET WRITE PROTECT SWITCHES
     8468                            *                 WILL BE DETECTED AND REPORTED AS PART OF THE
     8469                            *                 STATUS RETURN AFTER A WRITE. (NOTE: ERR 4910 DOESN'T
     8470                            *                 NECESSARY INFER THERE WAS AN ERROR DETECTED
     8471                            *                 BY THIS TEST, BUT RATHER, THAT WRITE PROTECTION
     8472                            *                 WAS DETECTED AS PART OF THE STATUS RETURNED
     8473                            *                 AFTER A WRITE OPERATION.
     8474                            *
     8475   03 011D2    6AC01C24     T1ST4910 BAL,12   BUILDSK           GO BUILD SEEK ADDR
     8476   03 011D3    6AF013D3              BAL,15   :SEEKMOD          GO SEEK RAD
     8477   03 011D4    680011D5              B        %+1
     8478   03 011D5    6AF0142C              BAL,15   :FUCTEST
     8479   03 011D6    000012E6              DATA     IOCD4911
     8480   03 011D7    0000132F A            DATA     4911              *** REPORT 4911 ***
     8481   03 011D8    000013B1              DATA     BSIP4910
     8482   03 011D9    000013B1              DATA     BSIP4910
     8483   03 011DA    680011DE              B        T1ST4912
     8484   03 011DB    EAF0021D A            BAL,15   *:SENSE
     8485   03 011DC    2E0011DC              WAIT     %
     8486   03 011DD    680011D2              B        T1ST4910
     8487                            *
     8488                            T1ST4912 ;
     8489   03 011DE    6AF01F13              BAL,15   :TDV              GO FETCH TDV STATUS
     8490   03 011DF    10000001 A            DATA     X'10000001'
     8491   03 011E0    00000000 A            DATA     0
     8492   03 011E1    680011E7              B        T1ST4911          IF NOT WRITE PROTECTED BRANCH
     8493   03 011E2    35601553              STW,6    TCKWPVH1          IF WRITE PROTECT STORE UPPER LIMIT
     8494   03 011E3    33001552              MTW,0    TCKWPVL1          TEST FOR LOWER LIMIT
     8495   03 011E4    693011E6              BNEZ     %+2               IF NONE
     8496   03 011E5    35601552              STW,6    TCKWPVL1              STORE ALSO AS LOWER LIMIT TOO
     8497   03 011E6    680011F2              B        T1ST4920          GO TO NEXT TEST
     8498   03 011E7    33001552     T1ST4911 MTW,0    TCKWPVL1          TEST LOWER LIMIT
     8499   03 011E8    683011F2              BEZ      T1ST4920          IF ZERO NEXT TEST
     8500   03 011E9    6AF01556              BAL,15   TST1ERMG          GO REPORT TRACK(BAND) INFORMATION
     8501   03 011EA    0000132E A            DATA     4910              *** TEST 4910 ***
     8502   03 011EB    6AF0150F              BAL,15   T1ST19RP
     8503   03 011EC    00001552              DATA     TCKWPVL1
     8504   03 011ED    EAF0021D A            BAL,15   *:SENSE           TEST SENSE SWITCHES
     8505   03 011EE    2E0011EE              WAIT     %
     8506   03 011EF    680011C6              B        T1ST4909          LOOP ON ERROR
     8507   03 011F0    33000A76              MTW,0    T1ST21XF                                          *B00
     8508   03 011F1    683011C4              BEZ      T1ST4908
     8509                            *
     8510                            *
     8511                            *                 *** 4 9 2 0 ***
     8512                            *
     8513                            *                 THIS TEST VERIFIES THAT, SET WRITE PROTECT SWITCHES
     8514                            *                 WILL BE DETECTED AND REPORTED AS PART OF THE
     8515                            *                 SENSE WORD RETURN BY A DEVICE SENSE OPERATION.
     8516                            *                 (NOTE: ERR 4920 DOESN'T NECESSARY INFER THERE
     8517                            *                 WAS AN ERROR DETECTED BY THIS TEST, BUT RATHER,
     8518                            *                 THAT WRITE PROTECTION WAS DETECTED AS PART OF
     8519                            *                 THE SENSE WORD RETURNED FROM A SENSE OF THE DEVICE.
     8520                            *
     8521                            T1ST4920 ;
     8522   03 011F2    33000A76              MTW,0    T1ST21XF          IF EXIT FLAG SET                *B00
     8523   03 011F3    693011F5              BNEZ     %+2                   SKIP SENSE
     8524   03 011F4    6AF01402              BAL,15   :SENSEMOD         GO SENSE THE DEVICE
     8525   03 011F5    680011F6              B        %+1
     8526   03 011F6    3300141C              MTW,0    :SNSWORD          TEST FOR WRITE PROTECT
     8527   03 011F7    681011FD              BGEZ     T1ST4921          IF NOT BRANCH
     8528   03 011F8    35601555              STW,6    TCKWPVH           IF NOT STORE AS UPPER LIMIT
     8529   03 011F9    33001554              MTW,0    TCKWPVL           TEST LOWER LIMIT FOR ZERO
     8530   03 011FA    693011FC              BNEZ     %+2               IF NOT BRANCH
     8531   03 011FB    35601554              STW,6    TCKWPVL           STORE AS LOWER LIMIT TOO
     8532   03 011FC    68001208              B        T1ST4930          GO TO UPDATE
     8533   03 011FD    33001554     T1ST4921 MTW,0    TCKWPVL           TEST LOWER LIMIT
     8534   03 011FE    68301208              BEZ      T1ST4930          IF ZERO NEXT TEST
     8535   03 011FF    6AF01556              BAL,15   TST1ERMG          GO REPORT MESSAGE
     8536   03 01200    00001338 A            DATA     4920              *** REPORT 4920 ***
     8537   03 01201    6AF0150F              BAL,15   T1ST19RP          FO REPORT WRITE PROTECTED TRACKS
     8538   03 01202    00001554              DATA     TCKWPVL
     8539   03 01203    EAF0021D A            BAL,15   *:SENSE           TEST SENSE SWITCHES
     8540   03 01204    2E001204              WAIT     %
     8541   03 01205    680011C6              B        T1ST4909          LOOP ON ERROR
     8542   03 01206    33000A76              MTW,0    T1ST21XF                                          *B00
     8543   03 01207    683011C4              BEZ      T1ST4908
     8544                            *
     8545                            *
     8546   03 01208    33000A76     T1ST4930 MTW,0    T1ST21XF          REST EXIT FLAG                  *B00
     8547   03 01209    693004B5              BNEZ     FUCTEXIT              IF SET RETURN TO FUNCTIONAL MONT
     8548   03 0120A    20600001 A            AI,6     1                 ADD 1 TO TRACK (BAND) COUNT
     8549   03 0120B    30501D36              AW,5     SECTCURR          ADD TO TRACK (BAND) ADDR
     8550   03 0120C    31501D39              CW,5     SURFCEND          IF NOT
     8551   03 0120D    691011D2              BL       T1ST4910              PASS END, GO TRY NEXT TCK (BAND)
     8552   03 0120E    35100A76              STW,1    T1ST21XF          SET TEST EXIT FLAG              *B00
     8553   03 0120F    22000000 A            LI,0     0                 ZERO
     8554   03 01210    35002023              STW,0    :STATUSCC             CONDITIONS  STATUS
     8555   03 01211    3500141C              STW,0    :SNSWORD
     8556   03 01212    680011E7              B        T1ST4911          GO BACK FOR LAST PASS
     8557                                     PAGE                                                       *B02
     8558                            *                                                                   *B02
     8559                            *                 *** T S T 1 , 5 0 ***                             *B02
     8560                            *                                                                   *B02
     8561                            *                 ***  C H E C K W R I T E  T E S T  3  ***         *B02
     8562                            *                                                                   *B02
     8563                            *                 THIS SUBTEST VERIFY THAT CHECKWRITE OF LESS THAN  *B02
     8564                            *                 OR GREATER THAN A SECTOR FUNCTION CORRECTLY.      *B02
     8565                            *
     8566                            *
     8567   03 01213    22A01398 A   T1ST50   LI,10    5016                                              *B02
     8568   03 01214    6AF00E36              BAL,15   FNDGTRK           GO SEARCH FOR A GOOD TRACK      *B02
     8569   03 01215    6800121C              B        T1ST5022                                          *B02
     8570   03 01216    6AF01556              BAL,15   TST1ERMG          REPORT ERROR                    *B02
     8571   03 01217    00001392 A            DATA     5010              *** ERROR 5010 ***              *B02
     8572   03 01218    EAF0021D A            BAL,15   *:SENSE           TEST SENSE SWITCHES             *B02
     8573   03 01219    2E001219              WAIT     %                                                 *B02
     8574   03 0121A    68001213              B        T1ST50            LOOP ON ERROR                   *B02
     8575   03 0121B    680004B5              B        FUCTEXIT                                          *B02
     8576                            *                                                                   *B02
     8577                            *                 *** 5 0 2 0 ***                                   *B02
     8578                            *                 THIS TEST VERIFIES THAT THE RAD HAS REDUCED THE BYTEB2
     8579                            *                 COUNT TO ZERO                                     *B02
     8580                            *                     ORDER:        CHECKWRITE (X'05')              *B02
     8581                            *                     BYTE ADDR:    BA(BUF1LO)                      *B02
     8582                            *                     FLAGS:        ICE                             *B02
     8583                            *                     BYTE COUNT : 4<=BC<2(BYTCURR)
     8584                            *                                                                   *B02
     8585                            T1ST5022 ;                                                          *B02
     8586   03 0121C    32F01D37              LW,15    BYTCURR           LOAD AN SAVE                    *B02
     8587   03 0121D    35F00EE5              STW,15   COUNT38               SECTOR BYTE COUNT           *B02
     8588   03 0121E    30F0000F A            AW,15    15                                                *B02
     8589   03 0121F    55F213F7              STH,15   IOCDWRT+1,1                                       *B02
     8590   03 01220    25F0007E A            SLS,15   -2                                                *B02
     8591   03 01221    35F0215B              STW,15   :PATWC                                            *B02
     8592   03 01222    22400004 A            LI,4     4                                                 *B02
     8593   03 01223    554212E9              STH,4    IOCD5020+1,1                                      *B02
     8594                            *                                                                   *B02
     8595                            *                                                                   *B02
     8596                            *                                                                   *B02
     8597   03 01224    22400000 A            LI,4     0                 SET UP                          *B02
     8598   03 01225    325023F2              LW,5     =X'55555555'         PATTERN                      *B02
     8599   03 01226    15402162              STD,4    :PATID                                            *B02
     8600                            *                                                                   *B02
     8601   03 01227    22402418              LI,4     BUF1LO            LOAD AND SAVE                   *B02
     8602   03 01228    35402158              STW,4    :PATBFR              START BUFFER                 *B02
     8603                            *                                                                   *B02
     8604                            *                                                                 *B02
     8605   03 01229    6AF0203B     T1ST502X BAL,15   :PATTERN                                          *B02
     8606   03 0122A    32F012E9     T1ST5024 LW,15    IOCD5020+1                                        *B02
     8607   03 0122B    55F213F7              STH,15   IOCDWRT+1,1                                       *B02
     8608   03 0122C    6AF013D3              BAL,15   :SEEKMOD                                          *B02
     8609   03 0122D    22F01230              LI,15    T1ST5021                                          *B02
     8610   03 0122E    35F013F9              STW,15   :WRTEXT                                           *B02
     8611   03 0122F    6AF013E5              BAL,15   :WRTMOD1                                          *B02
     8612                            *                                                                   *B02
     8613   03 01230    6AF013D3     T1ST5021 BAL,15   :SEEKMOD                                          *B02
     8614                            *                                                                   *B02
     8615   03 01231    6AF0142C              BAL,15   :FUCTEST                                          *B02
     8616   03 01232    000012E8              DATA     IOCD5020                                          *B02
     8617   03 01233    0000139C A            DATA     5020              *** ERROR 5020 ***              *B02
     8618   03 01234    0000136B              DATA     BSIP3210                                          *B02
     8619   03 01235    0000136E              DATA     BSNP3210                                          *B02
     8620   03 01236    6800123B              B        T1ST5025                                          *B02
     8621                            *                                                                   *B02
     8622   03 01237    CF001D35              HIO,0    *:DEVADDR                                         *B02
     8623   03 01238    EAF0021D A            BAL,15   *:SENSE                                           *B02
     8624   03 01239    2E000000 A            WAIT                                                       *B02
     8625   03 0123A    68001230              B        T1ST5021                                          *B02
     8626                            T1ST5025 ;
     8627   03 0123B    334012E9              MTW,4    IOCD5020+1                                        *B02
     8628   03 0123C    524212E9              LH,4     IOCD5020+1,1                                      *B02
     8629   03 0123D    31400EE5              CW,4     COUNT38                                           *B02
     8630   03 0123E    6910122A              BL       T1ST5024                                          *B02
     8631                            *                                                                   *B02
     8632   03 0123F    32401D37              LW,4     BYTCURR                                           *B02
     8633   03 01240    31400EE5              CW,4     COUNT38                                           *B02
     8634   03 01241    693004B5              BNE      FUCTEXIT                                          *B02
     8635   03 01242    554212E9              STH,4    IOCD5020+1,1                                      *B02
     8636   03 01243    334012E9              MTW,4    IOCD5020+1                                        *B02
     8637   03 01244    30400EE5              AW,4     COUNT38                                           *B02
     8638   03 01245    35400EE5              STW,4    COUNT38                                           *B02
     8639   03 01246    6800122A              B        T1ST5024                                          *B02
     8640                                     PAGE
     8641                            *
     8642                            *
     8643                            *
     8644                            *
     8645                            *                 IOCD TABLE
     8646                            *
     8647                                     BOUND    8
     8648   03 01248    80009060     IOCD0610 GEN,8,24 X'80',BA(BUF1LO)
     8649   03 01249    01000000 A            GEN,8,24 1,0
     8650   03 0124A    00009060     IOCD0810 GEN,8,24 X'0',BA(BUF1LO)
     8651   03 0124B    05000000 A            GEN,8,24 X'05',0
     8652                            *
     8653                            *
     8654   03 0124C    03009062     IOCD1010 GEN,8,24 X'03',BA(BUF1LO)+2
     8655   03 0124D    08000002 A            GEN,8,24 X'08',2
     8656   03 0124E    03009062     IOCD1020 GEN,8,24 X'03',BA(BUF1LO)+2
     8657   03 0124F    04000002 A            GEN,8,24 X'04',2
     8658   03 01250    03009062     IOCD1030 GEN,8,24 X'03',BA(BUF1LO)+2
     8659   03 01251    40000002 A            GEN,8,24 X'40',2
     8660   03 01252    03009062     IOCD1040 GEN,8,24 X'03',BA(BUF1LO)+2
     8661   03 01253    10000002 A            GEN,8,24 X'10',2
     8662                            *
     8663   03 01254    03009062     IOCD1110 GEN,8,24 X'03',BA(BUF1LO)+2
     8664   03 01255    04000001 A            GEN,8,24 X'04',1
     8665   03 01256    03009062     IOCD1120 GEN,8,24 X'03',BA(BUF1LO)+2
     8666   03 01257    08000001 A            GEN,8,24 X'08',1
     8667   03 01258    03009062     IOCD1130 GEN,8,24 X'03',BA(BUF1LO)+2
     8668   03 01259    10000001 A            GEN,8,24 X'10',1
     8669                            *
     8670                            *
     8671                            *
     8672   03 0125A    03009062     IOCD1210 GEN,8,24 X'03',BA(BUF1LO)+2
     8673   03 0125B    10000003 A            GEN,8,24 X'10',3
     8674   03 0125C    03009062     IOCD1220 GEN,8,24 X'03',BA(BUF1LO)+2
     8675   03 0125D    08000003 A            GEN,8,24 X'08',3
     8676   03 0125E    03009062     IOCD1230 GEN,8,24 X'03',BA(BUF1LO)+2
     8677   03 0125F    04000003 A            GEN,8,24 X'04',3
     8678   03 01260    03009062     IOCD1240 GEN,8,24 X'03',BA(BUF1LO)+2
     8679   03 01261    40000003 A            GEN,8,24 X'40',3
     8680                            *
     8681                            *
     8682   03 01262    04009060     IOCD1310 GEN,8,24 X'04',BA(BUF1LO)
     8683   03 01263    04000000 A            GEN,8,24 X'04',0
     8684   03 01264    04009060     IOCD1320 GEN,8,24 X'04',BA(BUF1LO)
     8685   03 01265    08000000 A            GEN,8,24 X'08',0
     8686   03 01266    04009060     IOCD1330 GEN,8,24 X'04',BA(BUF1LO)
     8687   03 01267    40000000 A            GEN,8,24 X'40',0
     8688   03 01268    04009060     IOCD1340 GEN,8,24 X'04',BA(BUF1LO)
     8689   03 01269    10000000 A            GEN,8,24 X'10',0
     8690                            *
     8691                            *
     8692   03 0126A    04009060     IOCD1410 GEN,8,24 X'04',BA(BUF1LO)
     8693   03 0126B    04000000 A            GEN,8,24 X'04',0
     8694   03 0126C    04009060     IOCD1420 GEN,8,24 X'04',BA(BUF1LO)
     8695   03 0126D    08000000 A            GEN,8,24 X'08',0
     8696   03 0126E    04009060     IOCD1430 GEN,8,24 X'04',BA(BUF1LO)
     8697   03 0126F    10000000 A            GEN,8,24 X'10',0
     8698   03 01270    04009060     IOCD1510 GEN,8,24 X'04',BA(BUF1LO)
     8699   03 01271    10000000 A            GEN,8,24 X'10',0
     8700   03 01272    04009060     IOCD1520 GEN,8,24 X'04',BA(BUF1LO)
     8701   03 01273    08000000 A            GEN,8,24 X'08',0
     8702   03 01274    04009060     IOCD1530 GEN,8,24 X'04',BA(BUF1LO)
     8703   03 01275    04000000 A            GEN,8,24 X'04',0
     8704   03 01276    04009060     IOCD1540 GEN,8,24 X'04',BA(BUF1LO)
     8705   03 01277    40000000 A            GEN,8,24 X'40',0
     8706   03 01278    03004FEA     IOCD1610 GEN,8,24 X'03',BA(SEEKRAD)+2
     8707   03 01279    00000002 A            GEN,8,24 X'00',2
     8708   03 0127A    13004F2B     IOCD1710 GEN,8,24 X'13',BA(TMB)+3                                   *BOO
     8709   03 0127B    1C000001 A            GEN,8,24 X'1C',1                                           *BOO
     8710                            *                                                                   *BOO
     8711   03 0127C    13004F2A     IOCD1730 GEN,8,24 X'13',BA(TMB)+2                                   *BOO
     8712   03 0127D    1C000001 A            GEN,8,24 X'1C',1                                           *BOO
     8713                            *                                                                   *BOO
     8714   03 0127E    03004FEA     IOCD2210 GEN,8,24 X'03',BA(SEEKRAD)+2                               *B00
     8715   03 0127F    0C000002 A            GEN,8,24 X'0C',2                                           *B00
     8716   03 01280    03004FEA     IOCD2310 GEN,8,24 X'03',BA(SEEKRAD)+2                               *B00
     8717   03 01281    20000002 A            GEN,8,24 X'20',2                                           *B00
     8718   03 01282    00009060     IOCD2311 GEN,8,24 X'00',BA(BUF1LO)                                  *B00
     8719   03 01283    20000002 A            GEN,8,24 X'20',2                                           *B00
     8720   03 01284    00009060     IOCD2312 GEN,8,24 X'00',BA(BUF1LO)                                  *B00
     8721   03 01285    20000002 A            GEN,8,24 X'20',2                                           *B00
     8722   03 01286    08000942     IOCD2313 GEN,8,24 X'08',DA(IOCD2312)                                *B00
     8723   03 01287    00000002 A            GEN,8,24 0,2                                               *B00
     8724   03 01288    00009060     IOCD2320 GEN,8,24 X'00',BA(BUF1LO)                                  *B00
     8725   03 01289    20000002 A            GEN,8,24 X'20',2                                           *B00
     8726   03 0128A    08000942     IOCD2321 GEN,8,24 X'08',DA(IOCD2312)                                *B00
     8727   03 0128B    20000002 A            GEN,8,24 X'20',2                                           *B00
     8728                            *
     8729   03 0128C    00009060     IOCD2400 GEN,8,24 X'00',BA(BUF1LO)                                  *BOO
     8730   03 0128D    14000000 A            GEN,8,24 X'14',0                                           *BOO
     8731                            *                                                                   *BOO
     8732         03 0128E           IOCD2500 EQU      %                                                 *BOO
     8733         0000000F           I        DO       15                                                *BOO
     8734   03 0128E    00009060              GEN,8,24 X'00',BA(BUF1LO)+(I-1)                            *BOO
     8735   03 0128F    94000001 A            GEN,8,24 X'94',1                                           *BOO
     8736                                     FIN                                                        *BOO
            03 01290    00009061
            03 01291    94000001 A
            03 01292    00009062
            03 01293    94000001 A
            03 01294    00009063
            03 01295    94000001 A
            03 01296    00009064
            03 01297    94000001 A
            03 01298    00009065
            03 01299    94000001 A
            03 0129A    00009066
            03 0129B    94000001 A
            03 0129C    00009067
            03 0129D    94000001 A
            03 0129E    00009068
            03 0129F    94000001 A
            03 012A0    00009069
            03 012A1    94000001 A
            03 012A2    0000906A
            03 012A3    94000001 A
            03 012A4    0000906B
            03 012A5    94000001 A
            03 012A6    0000906C
            03 012A7    94000001 A
            03 012A8    0000906D
            03 012A9    94000001 A
            03 012AA    0000906E
            03 012AB    94000001 A
     8737   03 012AC    0000906F              GEN,8,24 X'00',BA(BUF1LO)+15                               *BOO
     8738   03 012AD    14000001 A            GEN,8,24 X'14',1                                           *BOO
     8739                            *                                                                   *BOO
     8740   03 012AE    01009060     IOCD2510 GEN,8,24 X'01',BA(BUF1LO)                                  *BOO
     8741   03 012AF    14000010 A            GEN,8,24 X'14',16                                          *BOO
     8742                            *                                                                   *BOO
     8743   03 012B0    02009060     IOCD2520 GEN,8,24 X'02',BA(BUF1LO)                                  *BOO
     8744   03 012B1    14000010 A            GEN,8,24 X'14',16                                          *BOO
     8745                            *                                                                   *BOO
     8746   03 012B2    00000000 A   IOCD2620 GEN,8,24 0,0                                               *BOO
     8747   03 012B3    14000010 A            GEN,8,24 X'14',16                                          *BOO
     8748                            *                                                                   *BOO
     8749   03 012B4    00000000 A   IOCD2630 GEN,8,24 0,0                                               *BOO
     8750   03 012B5    14000010 A            GEN,8,24 X'14',16                                          *BOO
     8751                            *                                                                   *BOO
     8752   03 012B6    02009060     IOCD2700 GEN,8,24 X'02',BA(BUF1LO)                                  *BOO
     8753   03 012B7    1E000000 A            GEN,8,24 X'1E',0                                           *BOO
     8754                            *                                                                   *BOO
     8755   03 012B8    02009060     IOCD2810 GEN,8,24 X'02',BA(BUF1LO)                                  *BOO
     8756   03 012B9    1E000000 A            GEN,8,24 X'1E',0                                           *BOO
     8757                            *                                                                   *BOO
     8758   03 012BA    12009060     IOCD2830 GEN,8,24 X'12',BA(BUF1LO)                                  *BOO
     8759   03 012BB    1E000000 A            GEN,8,24 X'1E',0                                           *BOO
     8760                            *                                                                   *BOO
     8761   03 012BC    01009060     IOCD2910 GEN,8,24 X'01',BA(BUF1LO)                                  *BOO
     8762   03 012BD    1C000000 A            GEN,8,24 X'1C',0                                           *BOO
     8763                            *                                                                   *BOO
     8764   03 012BE    05009060     IOCD3000 GEN,8,24 X'05',BA(BUF1LO)                                  *BOO
     8765   03 012BF    1C000000 A            GEN,8,24 X'1C',0                                           *BOO
     8766   03 012C0    01009060     IOCD3110 GEN,8,24 X'01',BA(BUF1LO)
     8767   03 012C1    0C000000 A            GEN,8,24 X'0C',0
     8768   03 012C2    01009060     IOCD3120 GEN,8,24 X'01',BA(BUF1LO)
     8769   03 012C3    40000000 A            GEN,8,24 X'40',0
     8770   03 012C4    01009060     IOCD3130 GEN,8,24 X'01',BA(BUF1LO)
     8771   03 012C5    0C000000 A            GEN,8,24 X'0C',0
     8772   03 012C6    01009060     IOCD3140 GEN,8,24 X'01',BA(BUF1LO)
     8773   03 012C7    40000000 A            GEN,8,24 X'40',0
     8774                            *
     8775                            *
     8776   03 012C8    01009060     IOCD3210 GEN,8,24 X'01',BA(BUF1LO)
     8777   03 012C9    1C000000 A            GEN,8,24 X'1C',0
     8778                            *
     8779                            *
     8780   03 012CA    01009060     IOCD3310 GEN,8,24 X'01',BA(BUF1LO)
     8781   03 012CB    1C000000 A            GEN,8,24 X'1C',0
     8782   03 012CC    01009060     IOCD3430 GEN,8,24 X'01',BA(BUF1LO)
     8783   03 012CD    0C000000 A            GEN,8,24 X'0C',0
     8784                            *
     8785   03 012CE    02009060     IOCD3510 GEN,8,24 X'02',BA(BUF1LO)
     8786   03 012CF    1C000000 A            GEN,8,24 X'1C',0
     8787                            *
     8788                            *
     8789   03 012D0    02009060     IOCD3520 GEN,8,24 X'02',BA(BUF1LO)
     8790   03 012D1    40000000 A            GEN,8,24 X'40',0
     8791                            *
     8792   03 012D2    02009060     IOCD3620 GEN,8,24 X'02',BA(BUF1LO)
     8793   03 012D3    40000000 A            GEN,8,24 X'40',0
     8794                            *
     8795                            *
     8796                            *
     8797   03 012D4    02009060     IOCD3720 GEN,8,24 X'02',BA(BUF1LO)
     8798   03 012D5    40000000 A            GEN,8,24 X'40',0
     8799                            *
     8800   03 012D6    02009060     IOCD3820 GEN,8,24 X'02',BA(BUF1LO)
     8801   03 012D7    10000000 A            GEN,8,24 X'10',0
     8802                            *
     8803                            *
     8804   03 012D8    02009060     IOCD3920 GEN,8,24 X'02',BA(BUF1LO)
     8805   03 012D9    10000000 A            GEN,8,24 X'10',0
     8806                            *
     8807   03 012DA    02009060     IOCD4020 GEN,8,24 X'02',BA(BUF1LO)
     8808   03 012DB    10000000 A            GEN,8,24 X'10',0
     8809                            *
     8810   03 012DC    12009060     IOCD4320 GEN,8,24 X'12',BA(BUF1LO)
     8811   03 012DD    40000000 A            GEN,8,24 X'40',0
     8812                            *
     8813   03 012DE    05009060     IOCD4420 GEN,8,24 X'05',BA(BUF1LO)
     8814   03 012DF    1C000000 A            GEN,8,24 X'1C',0
     8815                            *
     8816                            *
     8817   03 012E0    05009060     IOCD4520 GEN,8,24 X'05',BA(BUF1LO)
     8818   03 012E1    1C000000 A            GEN,8,24 X'1C',0
     8819                            *
     8820                            *
     8821   03 012E2    01009060     IOCD4620 GEN,8,24 X'01',BA(BUF1LO)
     8822   03 012E3    12000000 A            GEN,8,24 X'12',0
     8823                            *
     8824   03 012E4    02009060     IOCD4720 GEN,8,24 X'02',BA(BUF1LO)
     8825   03 012E5    12000000 A            GEN,8,24 X'12',0
     8826                            *
     8827   03 012E6    01009060     IOCD4911 GEN,8,24 X'01',BA(BUF1LO)
     8828   03 012E7    1C000000 A            GEN,8,24 X'1C',0
     8829   03 012E8    05009060     IOCD5020 GEN,8,24 5,BA(BUF1LO)                                      *B02
     8830   03 012E9    1C000000 A            GEN,8,24 X'1C',0                                           *B02
     8831                            *                                                                   *B02
     8832                            *                                                                   *B02
     8833                            *
     8834                            *
     8835                            *
     8836                            *
     8837   03 012EA    14202170 A   BSIP1010 :TSEQ    TIOF4,OSBF0,OSBF1,ISBF0,ISBF1,ISBF3,ISBF4,BYT00
            03 012EB    717374E1 A
            03 012EC    00000000 A
     8838                            *
     8839   03 012ED    14202170 A   BSIP1030 :TSEQ    TIOF4,OSBF0,OSBF1,ISBF0,ISBF1,ISBT2,ISBF3,ISBF4,BYT00
            03 012EE    717A7374 A
            03 012EF    E1000000 A
     8840                            *
     8841   03 012F0    14202170 A   BSIP1040 :TSEQ    TIOF4,OSBF0,OSBF1,ISBF0,ISBF1,ISBF2,ISBT3,ISBF4,BYT00
            03 012F1    71727B74 A
            03 012F2    E1000000 A
     8842                            *
     8843   03 012F3    142021E1 A   BSNP1010 :TSEQ    TIOF4,OSBF0,OSBF1,BYT00
            03 012F4    00000000 A
     8844                            *
     8845                            *
     8846                            *
     8847                            *
     8848   03 012F5    14282178 A   BSIP1110 :TSEQ    TIOF4,OSBT0,OSBF1,ISBT0,ISBF1,ISBF2,ISBF3,ISBF4,BYT00
            03 012F6    71727374 A
            03 012F7    E1000000 A
     8849                            *
     8850                            BSIP1120 :TSEQ    OSBT0,OSBF1,OSBT6,ISBT0,ISBF1,;
     8851   03 012F8    28212E78 A                     ISBF2,ISBF3,ISBF4,BYT00
            03 012F9    71727374 A
            03 012FA    E1000000 A
     8852   03 012FB    14282178 A   BSIP1130 :TSEQ    TIOF4,OSBT0,OSBF1,ISBT0,ISBF1,ISBF2,ISBT3,ISBF4,BYT00
            03 012FC    71727B74 A
            03 012FD    E1000000 A
     8853                            *
     8854   03 012FE    142821E1 A   BSNP1110 :TSEQ    TIOF4,OSBT0,OSBF1,BYT00
            03 012FF    00000000 A
     8855                            *
     8856   03 01300    28212EE1 A   BSNP1120 :TSEQ    OSBT0,OSBF1,OSBT6,BYT00
            03 01301    00000000 A
     8857                            *
     8858   03 01302    142821E1 A   BSNP1130 :TSEQ    TIOF4,OSBT0,OSBF1,BYT00
            03 01303    00000000 A
     8859                            *
     8860                            *
     8861                            BSIP1210 :TSEQ    TIOF4,OSBT0,OSBF1,ISBT0,ISBF1,;
     8862   03 01304    14282178 A                     ISBF2,ISBT3,ISBF4,BYT01
            03 01305    71727B74 A
            03 01306    E2000000 A
     8863                            *
     8864                            BSIP1220 :TSEQ    OSBT0,OSBF1,OSBT6,ISBT0,ISBF1,;
     8865   03 01307    28212E78 A                     ISBF2,ISBF3,ISBF4,BYT01
            03 01308    71727374 A
            03 01309    E2000000 A
     8866                            *
     8867                            BSIP1230 :TSEQ    TIOF4,OSBT0,OSBF1,ISBT0,ISBF1,;
     8868   03 0130A    14282178 A                     ISBF2,ISBF3,ISBF4,BYT01
            03 0130B    71727374 A
            03 0130C    E2000000 A
     8869                            *
     8870   03 0130D    142821E2 A   BSNP1210 :TSEQ    TIOF4,OSBT0,OSBF1,BYT01
            03 0130E    00000000 A
     8871                            *
     8872                            *
     8873   03 0130F    28212EE2 A   BSNP1220 :TSEQ    OSBT0,OSBF1,OSBT6,BYT01
            03 01310    00000000 A
     8874                            *
     8875                            BSIP1310 :TSEQ    TIOF4,OSBF0,OSBF1,ISBF0,ISBF1,;
     8876   03 01311    14202170 A                     ISBF2,ISBF3,ISBF4,BYT00
            03 01312    71727374 A
            03 01313    E1000000 A
     8877                            *
     8878                            BSIP1330 :TSEQ    TIOF4,OSBF0,OSBF1,ISBF0,ISBF1,;
     8879   03 01314    14202170 A                     ISBT2,ISBF3,ISBF4,BYT00
            03 01315    717A7374 A
            03 01316    E1000000 A
     8880                            *
     8881                            BSIP1340 :TSEQ    TIOF4,OSBF0,OSBF1,ISBF0,ISBF1,;
     8882   03 01317    14202170 A                     ISBF2,ISBT3,ISBF4,BYT00
            03 01318    71727B74 A
            03 01319    E1000000 A
     8883                            *
     8884   03 0131A    142021E1 A   BSNP1310 :TSEQ    TIOF4,OSBF0,OSBF1,BYT00
            03 0131B    00000000 A
     8885                            *
     8886                            *
     8887                            BSIP1410 :TSEQ    TIOF4,OSBT0,OSBF1,ISBT0,ISBF1,;
     8888   03 0131C    14282178 A                     ISBF2,ISBF3,ISBF4,BYT00
            03 0131D    71727374 A
            03 0131E    E1000000 A
     8889                            *
     8890                            BSIP1420 :TSEQ    OSBT0,OSBF1,OSBT6,ISBT0,ISBF1,;
     8891   03 0131F    28212E78 A                     ISBF2,ISBF3,ISBF4,BYT00
            03 01320    71727374 A
            03 01321    E1000000 A
     8892                            *
     8893                            BSIP1430 :TSEQ    TIOF4,OSBT0,OSBF1,ISBT0,ISBF1,;
     8894   03 01322    14282178 A                     ISBF2,ISBT3,ISBF4,BYT00
            03 01323    71727B74 A
            03 01324    E1000000 A
     8895                            *
     8896   03 01325    142821E1 A   BSNP1410 :TSEQ    TIOF4,OSBT0,OSBF1,BYT00
            03 01326    00000000 A
     8897   03 01327    28212EE1 A   BSNP1420 :TSEQ    OSBT0,OSBF1,OSBT6,BYT00
            03 01328    00000000 A
     8898                            *
     8899                            *
     8900                            BSIP1510 :TSEQ    TIOF4,OSBT0,OSBF1,ISBT0,ISBF1,;
     8901   03 01329    14282178 A                     ISBF2,ISBT3,ISBF4,BYT01
            03 0132A    71727B74 A
            03 0132B    E2000000 A
     8902                            *
     8903                            BSIP1520 :TSEQ    OSBT0,OSBF1,OSBT6,ISBT0,ISBF1,;
     8904   03 0132C    28212E78 A                     ISBF2,ISBF3,ISBT4,BYT01
            03 0132D    7172737C A
            03 0132E    E2000000 A
     8905                            *
     8906                            BSIP1530 :TSEQ    TIOF4,OSBT0,OSBF1,ISBT0,ISBF1,;
     8907   03 0132F    14282178 A                     ISBF2,ISBF3,ISBF4,BYT01
            03 01330    71727374 A
            03 01331    E2000000 A
     8908                            *
     8909   03 01332    142821E2 A   BSNP1510 :TSEQ    TIOF4,OSBT0,OSBF1,BYT01
            03 01333    00000000 A
     8910                            *
     8911   03 01334    28212EE2 A   BSNP1520 :TSEQ    OSBT0,OSBF1,OSBT6,BYT01
            03 01335    00000000 A
     8912                            *
     8913                            *
     8914   03 01336    191A1D1E A   BSNP1620 :TSEQ    TIOT1,TIOT2,TIOT5,TIOT6
            03 01337    00000000 A
     8915                            *
     8916   03 01338    11121516 A   BSNP1640 :TSEQ    TIOF1,TIOF2,TIOF5,TIOF6
            03 01339    00000000 A
     8917   03 0133A    14267071 A   BSIP1710 :TSEQ    TIOF4,OSBF6,ISBF0,ISBF1,ISBT3,ISBF4,BYT00         *BOO
            03 0133B    7B74E100 A
     8918                            *                                                                   *BOO
     8919   03 0133C    1426E100 A   BSNP1710 :TSEQ    TIOF4,OSBF6,BYT00                                 *BOO
     8920   03 0133D    1C21606A A   BSIP2210 :TSEQ    TIOT4,OSBF1,AIOF0,AIOT2,AIOF3,ISBT4               *B00
            03 0133E    637C0000 A
     8921                            *                                                                   *B00
     8922   03 0133F    1C21404A A   BSNP2210 :TSEQ    TIOT4,OSBF1,TDVF0,TDVT2,TDVF3                     *B00
            03 01340    43000000 A
     8923                            *                                                                   *B00
     8924                            *                                                                   *B00
     8925   03 01341    1C217100 A   BSIP2310 :TSEQ    TIOT4,OSBF1,ISBF1                                 *B00
     8926   03 01342    1C210000 A   BSNP2310 :TSEQ    TIOT4,OSBF1                                       *B00
     8927                            *                                                                   *BOO
     8928   03 01343    14267071 A   BSIP2400 :TSEQ    TIOF4,OSBF6,ISBF0,ISBF1,ISBT3,ISBF4,BYT00         *BOO
            03 01344    7B74E100 A
     8929                            *                                                                   *BOO
     8930   03 01345    1426E100 A   BSNP2400 :TSEQ    TIOF4,OSBF6,BYT00                                 *BOO
     8931                            *                                                                   *BOO
     8932   03 01346    14267071 A   BSIP2500 :TSEQ    TIOF4,OSBF6,ISBF0,ISBF1,ISBT3,ISBF4,BYT00         *BOO
            03 01347    7B74E100 A
     8933                            *                                                                   *BOO
     8934   03 01348    1426E100 A   BSNP2500 :TSEQ    TIOF4,OSBF6,BYT00                                 *BOO
     8935                            *                                                                   *BOO
     8936   03 01349    14267071 A   BSIP2600 :TSEQ    TIOF4,OSBF6,ISBF0,ISBF1,ISBT3,ISBF4,BYT00         *BOO
            03 0134A    7B74E100 A
     8937                            *                                                                   *BOO
     8938   03 0134B    1426E100 A   BSNP2600 :TSEQ    TIOF4,OSBF6,BYT00                                 *BOO
     8939                            *                                                                   *BOO
     8940   03 0134C    14282678 A   BSIP2710 :TSEQ    TIOF4,OSBT0,OSBF6,ISBT0,ISBF1,ISBT3,ISBF4,BYT00   *BOO
            03 0134D    717B74E1 A
            03 0134E    00000000 A
     8941                            *                                                                   *BOO
     8942   03 0134F    1428E100 A   BSNP2710 :TSEQ    TIOF4,OSBT0,BYT00                                 *BOO
     8943                            *                                                                   *BOO
     8944   03 01350    14267071 A   BSIP2720 :TSEQ    TIOF4,OSBF6,ISBF0,ISBF1,ISBT3,ISBF4,BYT00         *BOO
            03 01351    7B74E100 A
     8945                            *                                                                   *BOO
     8946   03 01352    1420E100 A   BSNP2720 :TSEQ    TIOF4,OSBF0,BYT00                                 *BOO
     8947                            *                                                                   *BOO
     8948   03 01353    1C292E79 A   BSIP2800 :TSEQ    TIOT4,OSBT1,OSBT6,ISBT1,ISBT3,ISBT4,BYT00         *BOO
            03 01354    7B7CE100 A
     8949                            *                                                                   *BOO
     8950   03 01355    1C2EE100 A   BSNP2800 :TSEQ    TIOT4,OSBT6,BYT00                                 *BOO
     8951                            *                                                                   *BOO
     8952   03 01356    1C292E79 A   BSIP2840 :TSEQ    TIOT4,OSBT1,OSBT6,ISBT1,ISBT3,ISBT4,BYT03         *BOO
            03 01357    7B7CE400 A
     8953                            *                                                                   *BOO
     8954   03 01358    1C2EE400 A   BSNP2840 :TSEQ    TIOT4,OSBT6,BYT03                                 *BOO
     8955                            *                                                                   *BOO
     8956   03 01359    14267071 A   BSIP2910 :TSEQ    TIOF4,OSBF6,ISBF0,ISBF1,ISBT3,ISBF4,BYT00         *BOO
            03 0135A    7B74E100 A
     8957                            *                                                                   *BOO
     8958   03 0135B    1426E100 A   BSNP2910 :TSEQ    TIOF4,OSBF6,BYT00                                 *BOO
     8959                            *                                                                   *BOO
     8960   03 0135C    1C292E70 A   BSIP3010 :TSEQ    TIOT4,OSBT1,OSBT6,ISBF0,ISBT1,ISBT3,ISBT4,BYT00   *BOO
            03 0135D    797B7CE1 A
            03 0135E    00000000 A
     8961                            *                                                                   *BOO
     8962   03 0135F    1C2EE100 A   BSNP3010 :TSEQ    TIOT4,OSBT6,BYT00                                 *BOO
     8963                            *                                                                   *BOO
     8964   03 01360    14267071 A   BSIP3030 :TSEQ    TIOF4,OSBF6,ISBF0,ISBF1,ISBT3,ISBF4,BYT00         *BOO
            03 01361    7B74E100 A
     8965                            *                                                                   *BOO
     8966   03 01362    1426E100 A   BSNP3030 :TSEQ    TIOF4,OSBF6,BYT00                                 *BOO
     8967                            *                                                                   *BOO
     8968                            BSIP3110 :TSEQ    TIOF4,OSBF0,OSBF1,AIOF0,AIOF2,AIOF3,ISBF0,ISBF1,;
     8969   03 01363    14202160 A                     ISBF4,BYT00
            03 01364    62637071 A
            03 01365    74E10000 A
     8970                            *
     8971                            BSIP3120 :TSEQ    TIOF4,OSBF0,OSBF1,AIOF0,AIOF2,AIOF3,ISBF0,ISBF1,;
     8972   03 01366    14202160 A                     ISBT2,ISBF4,BYT00
            03 01367    62637071 A
            03 01368    7A74E100 A
     8973                            *
     8974   03 01369    14202140 A   BSNP3110 :TSEQ    TIOF4,OSBF0,OSBF1,TDVF0,TDVF2,TDVF3,BYT00
            03 0136A    4243E100 A
     8975                            *
     8976                            *
     8977                            *
     8978                            *
     8979                            BSIP3210 :TSEQ    OSBT0,OSBF1,OSBT6,AIOF0,AIOF2,AIOF3,ISBT0,;
     8980   03 0136B    28212E60 A                     ISBF1,ISBT3,ISBT4,BYT00
            03 0136C    62637871 A
            03 0136D    7B7CE100 A
     8981                            *
     8982   03 0136E    28212E40 A   BSNP3210 :TSEQ    OSBT0,OSBF1,OSBT6,TDVF0,TDVF2,TDVF3,BYT00
            03 0136F    4243E100 A
     8983                            *
     8984                            *
     8985                            *
     8986                            BSIP3310 :TSEQ    OSBT0,OSBF1,OSBT6,AIOF0,AIOF2,AIOF3,ISBT0,;
     8987   03 01370    28212E60 A                     ISBF1,ISBT3,ISBT4,BYT00
            03 01371    62637871 A
            03 01372    7B7CE100 A
     8988                            *
     8989   03 01373    28212E40 A   BSNP3310 :TSEQ    OSBT0,OSBF1,OSBT6,TDVF0,TDVF2,TDVF3,BYT00
            03 01374    4243E100 A
     8990                            *
     8991   03 01375    1C216062 A   BSIP3430 :TSEQ    TIOT4,OSBF1,AIOF0,AIOF2,AIOT3,ISBT4               *C02
            03 01376    6B7C0000 A
     8992                            *
     8993   03 01377    1C214042 A   BSNP3430 :TSEQ    TIOT4,OSBF1,TDVF0,TDVF2,TDVT3                     *C02
            03 01378    4B000000 A
     8994                            *
     8995   03 01379    00000000 A   BSIP3510 :TSEQ    0
     8996                            *
     8997                            *
     8998   03 0137A    20606263 A   BSIP3520 :TSEQ    OSBF0,AIOF0,AIOF2,AIOF3,ISBF0,ISBT2,BYT00
            03 0137B    707AE100 A
     8999                            *
     9000   03 0137C    00000000 A   BSNP3510 :TSEQ    0
     9001                            *
     9002                            *
     9003   03 0137D    20404243 A   BSNP3520 :TSEQ    OSBF0,TDVF0,TDVF2,TDVF3,BYT00
            03 0137E    E1000000 A
     9004                            *
     9005                            *
     9006   03 0137F    28606263 A   BSIP3620 :TSEQ    OSBT0,AIOF0,AIOF2,AIOF3,ISBT0,ISBT2,BYT00
            03 01380    787AE100 A
     9007                            *
     9008   03 01381    28404243 A   BSNP3620 :TSEQ    OSBT0,TDVF0,TDVF2,TDVF3,BYT00
            03 01382    E1000000 A
     9009                            *
     9010                            *
     9011                            *
     9012   03 01383    28606263 A   BSIP3720 :TSEQ    OSBT0,AIOF0,AIOF2,AIOF3,ISBT0,ISBT2,BYT00
            03 01384    787AE100 A
     9013                            *
     9014   03 01385    28404243 A   BSNP3720 :TSEQ    OSBT0,TDVF0,TDVF2,TDVF3,BYT00
            03 01386    E1000000 A
     9015                            *
     9016   03 01387    E1000000 A   BSIP3820 :TSEQ    BYT00
     9017                            *
     9018   03 01388    E1000000 A   BSNP3820 :TSEQ    BYT00
     9019                            *
     9020                            *
     9021                            *
     9022                            BSIP3920 :TSEQ    TIOF4,OSBF0,OSBF1,AIOF0,AIOF2,AIOF3,ISBF0,ISBF1,;
     9023   03 01389    14202160 A                     ISBT3,ISBF4,BYT00
            03 0138A    62637071 A
            03 0138B    7B74E100 A
     9024                            *
     9025   03 0138C    14202140 A   BSNP3920 :TSEQ    TIOF4,OSBF0,OSBF1,TDVF0,TDVF2,TDVF3,BYT00
            03 0138D    4243E100 A
     9026                            *
     9027                            *
     9028   03 0138E    E1000000 A   BSIP4020 :TSEQ    BYT00
     9029                            *
     9030   03 0138F    E1000000 A   BSNP4020 :TSEQ    BYT00
     9031                            *
     9032   03 01390    14202100 A   BSIP4040 :TSEQ    TIOF4,OSBF0,OSBF1
     9033   03 01391    28606263 A   BSIP4320 :TSEQ    OSBT0,AIOF0,AIOF2,AIOF3,BYT00
            03 01392    E1000000 A
     9034                            *
     9035   03 01393    28404243 A   BSNP4320 :TSEQ    OSBT0,TDVF0,TDVF2,TDVF3,BYT00
            03 01394    E1000000 A
     9036                            *
     9037                            *
     9038                            BSIP4420 :TSEQ    TIOF4,OSBF0,OSBF0,AIOF0,AIOF2,AIOF3,ISBF0,ISBF1,;
     9039   03 01395    14202060 A                     ISBT3,ISBF4,BYT00
            03 01396    62637071 A
            03 01397    7B74E100 A
     9040                            *
     9041   03 01398    14202140 A   BSNP4420 :TSEQ    TIOF4,OSBF0,OSBF1,TDVF0,TDVF2,TDVF3,BYT00
            03 01399    4243E100 A
     9042                            *
     9043                            *
     9044                            BSIP4520 :TSEQ    TIOT4,OSBF0,OSBT1,OSBT6,AIOF0,AIOF2,AIOF3,ISBF0,;
     9045   03 0139A    1C20292E A                     ISBT1,ISBT4
            03 0139B    60626370 A
            03 0139C    797C0000 A
     9046                            *
     9047   03 0139D    1C20292E A   BSNP4520 :TSEQ    TIOT4,OSBF0,OSBT1,OSBT6,TDVF0,TDVF2,TDVF3
            03 0139E    40424300 A
     9048                            *
     9049                            *
     9050                            BSIP4620 :TSEQ    TIOF4,HIOT1,HIOT2,HIOT5,HIOT6,AIOF0,AIOF2,AIOF3,;
     9051   03 0139F    14393A3D A                     ISBF0,ISBF1,ISBF2,ISBF3,ISBF4                     *B02
            03 013A0    3E606263 A
            03 013A1    70717273 A
            03 013A2    74000000 A
     9052                            *
     9053                            *
     9054   03 013A3    14393A3D A   BSNP4620 :TSEQ    TIOF4,HIOT1,HIOT2,HIOT5,HIOT6,TDVF0,TDVF2,TDVF3
            03 013A4    3E404243 A
            03 013A5    00000000 A
     9055                            *
     9056                            *
     9057                            *
     9058                            BSIP4720 :TSEQ    TIOF4,HIOT1,HIOT2,HIOT5,HIOT6,AIOF0,AIOF2,AIOF3,;
     9059   03 013A6    14393A3D A                     ISBF0,ISBF1,ISBF2,ISBF3,ISBF4                     *B02
            03 013A7    3E606263 A
            03 013A8    70717273 A
            03 013A9    74000000 A
     9060                            *
     9061   03 013AA    14393A3D A   BSNP4720 :TSEQ    TIOF4,HIOT1,HIOT2,HIOT5,HIOT6,TDVF0,TDVF2,TDVF3
            03 013AB    3E404243 A
            03 013AC    00000000 A
     9062                            *
     9063   03 013AD    1C292E68 A   BSIP4810 :TSEQ    TIOT4,OSBT1,OSBT6,AIOT0,ISBT1,ISBF3,ISBT4
            03 013AE    79737C00 A
     9064                            *
     9065   03 013AF    1C292E48 A   BSNP4810 :TSEQ    TIOT4,OSBT1,OSBT6,TDVT0
            03 013B0    00000000 A
     9066                            *
     9067                            *
     9068                            *
     9069   03 013B1    00000000 A   BSIP4910 :TSEQ    0
     9070                                     PAGE                                                       *BOO
     9071                            *                    ***  X X 9 0 ***                               *BOO
     9072                            *                                                                   *BOO
     9073                            *                    ***  X X 9 1 ***                               *BOO
     9074                            *                                                                   *BOO
     9075                            *                    ***  X X 9 2 ***                               *BOO
     9076                            *                                                                   *BOO
     9077                            *                 *** T E S T  M O D E  M O D U L E  ***            *BOO
     9078                            *                                                                   *BOO
     9079                            *                 THIS SUB-ROUTINE ISSUES TEST MODE ORDERS.         *BOO
     9080                            *                                                                   *BOO
     9081                            *                 INPUT PARAMETERS:                                 *BOO
     9082                            *                        IF SETTING TEST MODE: R14 = TEST MODE BYTE *BOO
     9083                            *                        R15 = RETURN ADDR                          *BOO
     9084                            *                                                                   *BOO
     9085                            *                 REGISTER DISTURBED:                               *BOO
     9086                            *                                                                   *BOO
     9087                            *                   R0, R14,R15                                     *BOO
     9088                            *                                                                   *BOO
     9089                            *                 OUTPUT PARMETERS:                                 *BOO
     9090                            *                                                                   *BOO
     9091                            *                   (NONE)                                          *BOO
     9092                            *                                                                   *BOO
     9093                            *                                                                   *BOO
     9094                            *                 CALLING FORMAT:                                   *BOO
     9095                            *                                                                   *BOO
     9096                            *                 IF RESET TEST MODE:                               *BOO
     9097                            *                                                                   *BOO
     9098                            *                        BAL,15  :RSTEST                            *BOO
     9099                            *                        %        RETURNS HERE                      *BOO
     9100                            *                                                                   *BOO
     9101                            *                 IF SETTING TEST MODE:                             *BOO
     9102                            *                                                                   *BOO
     9103                            *                        LI,14    (THE TEST MODE BYTE)              *BOO
     9104                            *                        BAL,15  :SETEST                            *BOO
     9105                            *                        %        RETURNS HERE                      *BOO
     9106                            *                                                                   *BOO
     9107   03 013B2    22E00000 A   :RSTEST  LI,14    0                 LOAD TEST MODE RESET BYTE       *BOO
     9108   03 013B3    35E013CC              STW,14   TESTMODE          RESET TEST MODE FLAG            *BOO
     9109   03 013B4    680013B6              B        %+2                                               *BOO
     9110   03 013B5    351013CC     :SETEST  STW,1    TESTMODE          SET TEST MODE FLAG              *BOO
     9111   03 013B6    35E013CA              STW,14   TMB               SAVE TEST MODE BYTE             *BOO
     9112   03 013B7    35F013CB              STW,15   :TSTEXT           SAVE RTN ADDR                   *BOO
     9113   03 013B8    4BE023FF              AND,14   =X'3'             REMOVE ALL BUT TYPE OF TEST MODE*BOO
     9114   03 013B9    20E0005A A            AI,14    90                ADD ASSIGNED ERROR NO.          *BOO
     9115   03 013BA    30E01870              AW,14    WATCHERR          ADD TEST NO                     *BOO
     9116   03 013BB    35E013BE              STW,14   :TSTMDNO          SAVE ERROR NO.                  *BOO
     9117   03 013BC    6AF0142C     :TSTMD2  BAL,15   :FUCTEST          GO TO FUNCTIONAL TEST ROUTINE   *BOO
     9118   03 013BD    000013C8              DATA     IOCDTEST                                          *BOO
     9119   03 013BE    00000000 A   :TSTMDNO DATA     0                 *** ERROR NO. (TEST NO.+90+TM)  *BOO
     9120   03 013BF    000013FE              DATA     BSIPWRT                                           *BOO
     9121   03 013C0    000013FE              DATA     BSIPWRT                                           *BOO
     9122   03 013C1    E80013CB              B        *:TSTEXT          RETURN TO CALLING ROUTINE       *BOO
     9123   03 013C2    CF001D35              HIO,0    *:DEVADDR         RESET DEV, WHERE ERR WAS DETECTD*BOO
     9124   03 013C3    EAF0021D A            BAL,15   *:SENSE           TEST SENSE SWITCHES             *BOO
     9125   03 013C4    2E0013C4              WAIT     %                                                 *BOO
     9126   03 013C5    680013BC              B        :TSTMD2           GO LOOP ON ERROR                *BOO
     9127   03 013C6    E80013CB              B        *:TSTEXT          RETURN TO CALLING ROUTINE       *BOO
     9128                                     BOUND    8                                                 *BOO
     9129   03 013C8    13004F2B     IOCDTEST GEN,8,24 X'13',BA(TMB)+3                                   *BOO
     9130   03 013C9    1C000001 A            GEN,8,24 X'1C',1                                           *BOO
     9131   03 013CA    00000000 A   TMB      DATA     0                 TEST MODE BYTE                  *BOO
     9132   03 013CB    00000000 A   :TSTEXT  DATA     0                 RETURN ADDR                     *BOO
     9133   03 013CC    00000000 A   TESTMODE DATA     0                 SET TESTMODE FLAG               *BOO
     9134                            *                                                                   *BOO
     9135   03 013CD    31300436     T1STMOD3 CW,3     REVISION          TEST REVISION LEVEL             *BOO
     9136   03 013CE    693004B5              BNE      FUCTEXIT          B: NOT AN EXTENDED RAD CONTR.   *BOO
     9137   03 013CF    32601D34              LW,6     MODELC            FETCH MODEL NO                  *BOO
     9138   03 013D0    21607212 A            CI,6     X'7212'           HIGH SPEED RAD MODEL NO.        *BOO
     9139   03 013D1    683004B5              BE       FUCTEXIT          B: HIGH SPEED RAD               *BOO
     9140   03 013D2    E800000F A            B        *15               B: PERFORM SUB TEST             *BOO
     9141                            *                                                                   *BOO
     9142                                     PAGE
     9143                            *                         *** X X 9 5 ***
     9144                            *                 *** S E E K  M O D U L E  ***
     9145                            *
     9146                            *                 THIS SUB-ROUTINE ISSUES A STANDARD 'SEEK' REQUEST
     9147                            *                 TO THE RAD BEING TESTED.
     9148                            *
     9149                            *                 INPUT PARAMETERS:
     9150                            *
     9151                            *                  SEEKRAD - THE TRACK (BAND) - SECTOR SEEK ADDR
     9152                            *                   WATCHERR-  NO OF THE TEST BEING RUN
     9153                            *
     9154                            *                 REGISTERS DISTURBED:
     9155                            *
     9156                            *                   (NONE)
     9157                            *
     9158                            *                 OUTPUT PARAMETERS:
     9159                            *
     9160                            *                   THE RAD SEEKED TO THE SPECIFIED ADDRESS
     9161                            *
     9162                            *                 CALLING FORMAT:
     9163                            *
     9164                            *                   BAL,15   :SEEKMOD
     9165                            *                   %        RETURNS HERE
     9166                            *
     9167                            *
     9168                            *
     9169   03 013D3    35F013F8     :SEEKMOD STW,15   :SEEKEXT          SAVE RETURN ADDRESS
     9170   03 013D4    32F01870              LW,15    WATCHERR          BUILD ERROR
     9171   03 013D5    20F0005F A            AI,15    95                    ** XX95 **
     9172   03 013D6    35F013D9              STW,15   :SKERRNO          SAVE ERROR NUMBER
     9173   03 013D7    6AF0142C     :SEEKMD2 BAL,15   :FUCTEST          GO TO FUNCTION TEST ROUTINE
     9174   03 013D8    000013F4              DATA     IOCDSKMD          IOCD
     9175   03 013D9    00000000 A   :SKERRNO DATA     0                 *** ERROR NO. ( TEST NO. + 95)
     9176   03 013DA    000013FC              DATA     BSIPSEEK
     9177   03 013DB    000013FD              DATA     BSNPSEEK
     9178   03 013DC    E80013F8              B        *:SEEKEXT         RETURN TO CALL ROUTINE
     9179   03 013DD    CF001D35              HIO,0    *:DEVADDR         RESET DEV, WHERE ERROR WAS DETECTED
     9180   03 013DE    EAF0021D A            BAL,15   *:SENSE           TEST SENSE SWITCHES
     9181   03 013DF    2E0013DF              WAIT     %
     9182   03 013E0    680013D7              B        :SEEKMD2          GO ERROR LOOP
     9183   03 013E1    E80013F8              B        *:SEEKEXT         RETURN TO CALLING ROUTINE
     9184                                     PAGE
     9185                            *                         *** X X 9 6 ***
     9186                            *                 *** W R I T E  M O D U L E ***
     9187                            *
     9188                            *
     9189                            *                 THIS SUB-ROUTINE ISSUES A STANDARD 'WRITE' REQUEST
     9190                            *                 TO THE RAD BEING TESTED.
     9191                            *
     9192                            *                 INPUT PARAMETERS:
     9193                            *                   DATA AREA STARTING AT 'BU1FLO'
     9194                            *                   WATCHERR- NO. OF THE TEST BEING RUN
     9195                            *                   IOCDWRT+1  (THE BYTE COUNT MUST BE SET UP BY THE
     9196                            *                               CALLING ROUTINE)
     9197                            *
     9198                            *                 REGISTERS DISTURBED:
     9199                            *
     9200                            *                   (NONE)
     9201                            *
     9202                            *                 OUTPUT PARAMETERS:
     9203                            *
     9204                            *                   A WRITTEN DATA PATTERN
     9205                            *
     9206                            *                 CALLING FORMAT:
     9207                            *
     9208                            *                   BAL,15   :WRTMOD
     9209                            *                   %        RETURNS HERE
     9210   03 013E2    35F013F9     :WRTMOD  STW,15   :WRTEXT           SAVE RETURN ADDRESS
     9211   03 013E3    32401D37              LW,4     BYTCURR
     9212   03 013E4    554213F7              STH,4    IOCDWRT+1,1
     9213   03 013E5    32F01870     :WRTMOD1 LW,15    WATCHERR          BUILD ERROR
     9214   03 013E6    20F00060 A            AI,15    96                    ** XX96 **
     9215   03 013E7    35F013EA              STW,15   :WRTERNO          SAVE ERROR NO.
     9216   03 013E8    6AF0142C     :WRTMD2  BAL,15   :FUCTEST          GO TO FUNCTION TEST ROUTINE
     9217   03 013E9    000013F6              DATA     IOCDWRT
     9218   03 013EA    00000000 A   :WRTERNO DATA     0                 *** ERROR NO. (TEST NO. + 96)
     9219   03 013EB    000013FE              DATA     BSIPWRT
     9220   03 013EC    00001400              DATA     BSNPWRT
     9221   03 013ED    E80013F9              B        *:WRTEXT          RETURN TO CALLING ROUTINE
     9222   03 013EE    CF001D35              HIO,0    *:DEVADDR         RESET DEV, WHERE ERROR WAS DETECTED
     9223   03 013EF    EAF0021D A            BAL,15   *:SENSE           TEST SENSE SWITCHES
     9224   03 013F0    2E0013F0              WAIT     %
     9225   03 013F1    680013E8              B        :WRTMD2           GO ERROR LOOP
     9226   03 013F2    E80013F9              B        *:WRTEXT          RETURN TO CALLING ROUTINE
     9227                                     BOUND    8
     9228   03 013F4    03004FEA     IOCDSKMD GEN,8,24 X'03',BA(SEEKRAD)+2
     9229   03 013F5    10000002 A            GEN,8,24 X'10',2
     9230   03 013F6    01009060     IOCDWRT  GEN,8,24 X'01',BA(BUF1LO)
     9231   03 013F7    12000002 A            GEN,8,24 X'12',2
     9232   03 013F8    00000000 A   :SEEKEXT DATA     0                 RETURN EXIT ADDR FOR ':SEEKMOD'
     9233   03 013F9    00000000 A   :WRTEXT  DATA     0                 RETURN EXIT ADDR FOR ':WRTMOD'
     9234   03 013FA    00000000 A   SEEKRAD  DATA     0
     9235   03 013FB    00000000 A            DATA     0
     9236   03 013FC    E1000000 A   BSIPSEEK :TSEQ    BYT00
     9237   03 013FD    E1000000 A   BSNPSEEK :TSEQ    BYT00
     9238   03 013FE    606263E1 A   BSIPWRT  :TSEQ    AIOF0,AIOF2,AIOF3,BYT00
            03 013FF    00000000 A
     9239   03 01400    404243E1 A   BSNPWRT  :TSEQ    TDVF0,TDVF2,TDVF3,BYT00
            03 01401    00000000 A
     9240                                     PAGE
     9241                            *                 *** X X 9 7 ***
     9242                            *
     9243                            *                 *** S E N S E  M O D U L E ***
     9244                            *
     9245                            *                 THIS SUB-ROUTINE ISSUES A STANDARD 'SENSE' REQUEST
     9246                            *                 TO THE RAD BEING TESTED
     9247                            *
     9248                            *                 INPUT PARAMETERS:
     9249                            *
     9250                            *                   WATCHERR - NO. OF THE TEST BEING RUN.
     9251                            *
     9252                            *                 REGISTER DISTURBED.
     9253                            *
     9254                            *                   (NONE)
     9255                            *
     9256                            *                 OUTPUT PARAMETERS:
     9257                            *
     9258                            *                   :SNSWORD - LEFT  JUSTIFIED SENSE INFORMATION
     9259                            *                              FROM RAD.
     9260                            *
     9261                            *                 CALLING FORMAT:
     9262                            *
     9263                            *                   BAL,15   :SENSEMOD
     9264                            *                   %        RETURNS HERE IF GOOD
     9265                            *
     9266                            *
     9267                            :SENSEMOD ;
     9268   03 01402    15E01418              STD,14   :SNSSAVE          SAVE REG 14 & 15
     9269   03 01403    32F01870              LW,15    WATCHERR          BUILD ERROR
     9270   03 01404    20F00061 A            AI,15    97                    *** XX97 ***
     9271   03 01405    35F0140F              STW,15   :SNSERNO          SAVE ERROR NUMBER
     9272   03 01406    22E00004 A            LI,14    4                 CALCULATE BYTE COUNT FOR SENSE
     9273   03 01407    22F07212 A            LI,15    X'7212'           TEST FOR
     9274   03 01408    31F01D34              CW,15    MODELC                HIGH SPEED RAD IF HIGH SPEED
     9275   03 01409    6830140B              BE       %+2                   BC =4  OTHERWISE,
     9276   03 0140A    22E00003 A            LI,14    3                     BC =3
     9277   03 0140B    55E2141B              STH,14   IOCDSNMD+1,1          SAVE IN SENSE IOCD
     9278   03 0140C    32E01418              LW,14    :SNSSAVE          RESTORE REGISTER 14
     9279   03 0140D    6AF0142C     :SNSMD2  BAL,15   :FUCTEST          GO TO FUNCTIONAL TEST ROUTINE
     9280   03 0140E    0000141A              DATA     IOCDSNMD          IOCD WORD ADDRESS
     9281   03 0140F    00000000 A   :SNSERNO DATA     0                 *** ERROR NO. (TEST NO. + 97) ***
     9282   03 01410    000013FC              DATA     BSIPSEEK          BYTE STRING IF INTERRUPT
     9283   03 01411    000013FD              DATA     BSNPSEEK          BYTE STRING IF NO INTERRUPT
     9284   03 01412    E8001419              B        *:SNSSAVE+1       RETURN TO CALLING ROUTINE
     9285   03 01413    CF001D35              HIO,0    *:DEVADDR         RESET DEV, WHERE ERROR WAS DETECTED
     9286   03 01414    EAF0021D A            BAL,15   *:SENSE           TEST SENSE SWITCHES
     9287   03 01415    2E001415              WAIT     %
     9288   03 01416    6800140D              B        :SNSMD2           GO LOOP ON ERROR
     9289   03 01417    E8001419              B        *:SNSSAVE+1       RETURN TO CALLING ROUTINE
     9290                            *
     9291                            *
     9292                            *
     9293                                     BOUND    8
     9294   03 01418    00000000 A   :SNSSAVE DATA     0
     9295   03 01419    00000000 A            DATA     0
     9296   03 0141A    04005070     IOCDSNMD GEN,8,24 X'04',BA(:SNSWORD)
     9297   03 0141B    12000000 A            GEN,8,24 X'12',0
     9298   03 0141C    00000000 A   :SNSWORD DATA     0
     9299   03 0141D    00000000 A            DATA     0
     9300                                     PAGE
     9301                            *
     9302                            *                  F U N C T I O N A L  T E S T  R O U T I N E
     9303                            *
     9304                            *
     9305                            *                 THIS ROUTINE IS USED TO ISSUE AND TEST I/O
     9306                            *                 RESPONSES ACCORDING TO A PREDEFINED SET OF INPUT
     9307                            *                 PARAMETERS. THIS ROUTINE WILL BE USED TO
     9308                            *                 HANDLE TESTING OF THE CONTROL LOGIC OF A DEVICE.
     9309                            *                 IT DOES THIS BY ISSUING A SIO (IF ONE IS POSSIBLE),
     9310                            *                 DELAYING UNTIL THE CONTROLLER AND DEVICE SHOULD
     9311                            *                 BE READY, AN ERROR IS REPORTED IF NOT READY. IT
     9312                            *                 THEN CHECKS TO SEE IF AN INTERRUPT SHOULD BE EXPECTED,
     9313                            *                 IT ACKNOWLEDGE ANY PENDING INTERRUPTS AND VERIFIES
     9314                            *                 THAT IT CAME FROM THE CORRECT DEVICE. IT TESTS
     9315                            *                 FOR EXPECTED CONDITIONS ACCORDING TO WHETHER
     9316                            *                 OR NOT AN INTERRUPT WAS PENDING IT REPORTS
     9317                            *                 ALL ERRORS DETECTED.
     9318                            *
     9319                            *
     9320                            *                 INPUT PARAMETERS:
     9321                            *
     9322                            *                    (SEE CALLING FORMAT)
     9323                            *
     9324                            *                 REGISTERS DISTURBED:
     9325                            *
     9326                            *                    (NONE)
     9327                            *
     9328                            *                 OUTPUT PARAMETERS
     9329                            *
     9330                            *                    (NONE)
     9331                            *
     9332                            *
     9333                            *                 CALLING FORMAT:
     9334                            *
     9335                            *  BAL,15 :FUNCTEST (FUNCTEST + 1 IF NO INTER. IS EXPECTED).
     9336                            *  BAL,15 :FCTXINT  IF INTER. IS EXPECTED BUT NO SIO TO BE ISSUED.
     9337                            *  BAL,15 :FCTNXINT IF NO INTER. EXPECTED AND NO SIO IS TO BE ISSUED.
     9338                            *
     9339                            *
     9340                            *
     9341                            *        DATA              ERROR NO. OF THE TEST
     9342                            *   DATA WORD ADDR OF IOCD
     9343                            *   DATA WORD ADDR OF INFORMATION TO BE EXPECTED IF INTERRUPT OCCURS
     9344                            *   DATA WORD ADDR OF INFORMATION TO BE EXPECTED IF NO INTER. OCCURS
     9345                            *                               IF AN INTERRUPT OCCURS
     9346                            *        ADDR              WORD ADDRESS OF INFORMATION TO BE EXPECTED
     9347                            *                               IF AN INTERRUPT DOESN'T OCCUR
     9348                            *        B        GOODEXIT CONTROL RTNS HERE IF NO ERRORS ARE DETECTED
     9349                            *        BAL,15   *:SENSE CONTROL  RTNS HERE IF ANY ERRORS ARE DETECTED
     9350                            *
     9351                            *
     9352                            *
     9353                            *                 FUNCTIONAL TEST OF RETURNED STATUS NO SIO ISSUED
     9354                            *                 BUT INTERRUPT EXPECTED.
     9355                            *
     9356   03 0141E    02200000 A   :FCTXINT LCI      0                 LOAD AND SAVE
     9357   03 0141F    2B0014E3              STM,0    :FUNSAVE              ALL REGISTERS
     9358   03 01420    22600000 A            LI,6     0                 FETCH ZERO
     9359   03 01421    356014F4              STW,6    :FUNFLAG          RESET FUNCTIONAL FLAG
     9360   03 01422    22700000 A            LI,7     0
     9361   03 01423    351014F3              STW,1    INTEXFG           SET INTERRUPT EXPECTED FLAG
     9362   03 01424    68001448              B        :FUNCT09          GO TEST I/O
     9363                            *
     9364                            *                 FUNCTIONAL TEST OF RETURNED STATUS NO SIO ISSUED
     9365                            *                 AND NO INTERRUPT EXPECTED.
     9366                            :FCTNXINT ;
     9367   03 01425    02200000 A            LCI      0
     9368   03 01426    2B0014E3              STM,0    :FUNSAVE
     9369   03 01427    22600000 A            LI,6     0
     9370   03 01428    356014F4              STW,6    :FUNFLAG
     9371   03 01429    356014F3              STW,6    INTEXFG
     9372   03 0142A    22700000 A            LI,7     0
     9373   03 0142B    68001448              B        :FUNCT09
     9374                            *
     9375                            *
     9376                            *
     9377                            *
     9378   03 0142C    68001431     :FUCTEST B        %+5               :ENTRY IF INTER. IS EXPECTED
     9379   03 0142D    460014F3              XW,0     INTEXFG           :ENTRY IF NO INTERRUPT IS EXPECTED
     9380   03 0142E    22000000 A            LI,0     0                 ZERO 0
     9381   03 0142F    460014F3              XW,0     INTEXFG           RESTORE 0 - ZERO INTERRUPT EXPECTED
     9382   03 01430    68001432              B        %+2
     9383   03 01431    351014F3              STW,1    INTEXFG           SET INTERRUPT EXPECTED
     9384   03 01432    02200000 A            LCI      0                 SAVE ALL
     9385   03 01433    2B0014E3              STM,0    :FUNSAVE              REGISTERS
     9386   03 01434    22000000 A            LI,0     0                 ZERO FUNCTIONAL TEST ERROR FLAG
     9387   03 01435    350014F4              STW,0    :FUNFLAG
     9388   03 01436    B202000F A            LW,0     *15,1             FETCH WORD
     9389   03 01437    35002266              STW,0    :ERRORT#          STORE WORD
     9390                            *
     9391                            *
     9392   03 01438    B200000F A            LW,0     *15               FETCH WORD ADDRESS OF THE IOCD
     9393   03 01439    326004F2              LW,6     SECTDLAY
     9394   03 0143A    F2400000 A            LB,4     *0                PICK UP ORDER BYTE
     9395   03 0143B    68301441              BEZ      %+6
     9396   03 0143C    21400004 A            CI,4     4
     9397   03 0143D    68301441              BE       %+4
     9398   03 0143E    21400003 A            CI,4     3
     9399   03 0143F    68301441              BE       %+2
     9400   03 01440    226249F0 A            LI,6     150000                                            *C02
     9401   03 01441    32400225 A            LW,4     :MACHINE          DETERMIN IF MACHINE IS A        *B02
     9402   03 01442    21400008 A            CI,4     8                 SIGMA8 OR 9                     *B02
     9403   03 01443    69101445              BL       %+2                                               *B02
     9404   03 01444    22630D40 A            LI,6     200000            USE THIS VALUE FOR 8 OR 9       *C02
     9405   03 01445    2500007F A            SLS,0    -1                CONVERT WORD ADDR TO DOUBLEWORD ADDR
     9406                            *
     9407   03 01446    6AF021AD              BAL,15   :IOEXEC           GO ISSUE I/O
     9408                            *
     9409                            *
     9410   03 01447    327004F3              LW,7     CDELAY
     9411   03 01448    32E0150E     :FUNCT09 LW,14    XPSDFUCT
     9412   03 01449    35E0005C A            STW,14   X'5C'
     9413   03 0144A    35101580              STW,1    LOCATION          STORE WORD
     9414   03 0144B    6D000032 A            WD,0     X'32'
     9415   03 0144C    22E00020 A            LI,14    X'20'
     9416   03 0144D    6DE01200 A            WD,14    X'1200'
     9417   03 0144E    6D000022 A            WD,0     X'22'
     9418                            *
     9419   03 0144F    2560007E A            SLS,6    -2                DIVIDE DELAY IN MIRCOSECONDS/4
     9420   03 01450    33000006 A            MTW,0    6                 IF NOW ZERO
     9421   03 01451    68201456              BLEZ     %+5                   EXIT                        *C02
     9422   03 01452    20600000 A   :FUCTIN  AI,6     0                 OTHERWISE                       *C01
     9423   03 01453    20600000 A            AI,6     0                                                 *C02
     9424   03 01454    20600000 A            AI,6     0                     LOOP IN THIS 4 MIRCOSECOND LOOP
     9425   03 01455    64601452              BDR,6    %-3                   UNTIL COUNT IS USED UP      *C02
     9426   03 01456    02200030 A            LCI      3
     9427   03 01457    AA8214F2              LM,8     *:FUNSAVE+15,1
     9428   03 01458    35802266              STW,8    :ERRORT#          SAVE ERROR #
     9429   03 01459    25900002 A            SLS,9    2
     9430   03 0145A    25A00002 A            SLS,10   2
     9431   03 0145B    22E00020 A            LI,14    X'20'
     9432   03 0145C    6DE01100 A            WD,14    X'1100'
     9433   03 0145D    6AF01F09              BAL,15   :TIO              GO TEST FOR CONTROLLER BUSY
     9434   03 0145E    06000001 A            DATA     X'06000001'
     9435   03 0145F    00000000 A            DATA     X'00000000'
     9436   03 01460    68001467              B        :FUNCT10          IF NOT BUSY GO TO NEXT TEST
     9437                            *
     9438                            *
     9439                            *
     9440   03 01461    351014F4              STW,1    :FUNFLAG          SET FUNCTIONAL TEST ERROR FLAG
     9441   03 01462    35801464              STW,8    %+2               SAVE ERROR NO. (REG.8)
     9442   03 01463    6AF01556              BAL,15   TST1ERMG          GO REPORT ERROR
     9443   03 01464    00000000 A            DATA     0
     9444   03 01465    EAF0021C A            BAL,15   *:PRINT           PRINT:CONTROLLER BUSY
     9445   03 01466    000014FB              DATA     COTRBUSY
     9446                            *
     9447                            *
     9448                            *
     9449                            :FUNCT10 ;
     9450   03 01467    2570007E A            SLS,7    -2                DIVIDE DELAY BY 4
     9451   03 01468    33000007 A            MTW,0    7                 IF NOW ZERO                     *A01
     9452   03 01469    6820146D              BLEZ     %+4                   EXIT
     9453   03 0146A    20700000 A            AI,7     0                 OTHERWISE
     9454   03 0146B    20700000 A            AI,7     0                     LOOP IN THIS 4 MIRCOSECOND LOOP
     9455   03 0146C    6470146A              BDR,7    %-2                   UNTIL COUNT IS USED UP
     9456                            *
     9457                            *                 TEST FOR DEVICE READY
     9458                            *
     9459   03 0146D    6AF01F09              BAL,15   :TIO
     9460   03 0146E    60000001 A            DATA     X'60000001'
     9461   03 0146F    00000000 A            DATA     X'00000000'
     9462   03 01470    68001479              B        :FUNCT00          IF NOT BUSY GO TO NEXT TEST
     9463                            *
     9464                            *
     9465                            *
     9466   03 01471    330014F4              MTW,0    :FUNFLAG          TEST FUNCTIONAL ERROR FLAG
     9467   03 01472    69301477              BNEZ     :FUNCT11              IF SET SKIP NEXT MSG
     9468                            *
     9469                            *                 REPORT: DEVICE BUSY
     9470                            *
     9471   03 01473    351014F4              STW,1    :FUNFLAG          SET FUNCTIONAL TEST ERROR FLAG
     9472   03 01474    35801476              STW,8    %+2               SAVE ERROR NO. (REG 8)
     9473   03 01475    6AF01556              BAL,15   TST1ERMG          GO REPORT ERROR
     9474   03 01476    00000000 A            DATA     0
     9475   03 01477    EAF0021C A   :FUNCT11 BAL,15   *:PRINT           PRINT: DEVICE BUSY
     9476   03 01478    000014F8              DATA     DEVBUSY
     9477                            *
     9478                            *                 SAVE TIO STATUS
     9479                            *
     9480   03 01479    32B0000D A   :FUNCT00 LW,11    13
     9481   03 0147A    4BD014F5              AND,13   :FTIOMSK
     9482   03 0147B    6AF0238C              BAL,15   :SAVETIO
     9483                            *
     9484                            *                 TEST TO DETERMINE IF AN INTERRUPT SHOULD BE EXPECTED
     9485                            *
     9486   03 0147C    330014F3              MTW,0    INTEXFG           IF INTERRUPT NOT EXPECTED
     9487   03 0147D    683014A4              BEZ      :FUNCT01              BRANCH
     9488                            *
     9489                            *                 TEST FOR A PENDING INTERRUPT
     9490                            *                 ERROR: IF ONE IS NOT PENDING
     9491                            *
     9492   03 0147E    3300000B A            MTW,0    11
     9493   03 0147F    6910148D              BLZ      :FUNCT02          B: INTERRUPT WAS PENDING
     9494                            *
     9495                            *
     9496                            *
     9497   03 01480    330014F4              MTW,0    :FUNFLAG          TEST FUNCTIONAL ERROR FLAG
     9498   03 01481    69301486              BNEZ     :FUNCT12              IF SET SKIP NEXT MSG
     9499                            *
     9500                            *                 REPORT: NO EXPECTED INTERRUPT
     9501                            *
     9502   03 01482    351014F4              STW,1    :FUNFLAG          SET FUNCTIONAL TEST ERROR FLAG
     9503   03 01483    35801485              STW,8    %+2               SAVE ERROR NO (REG 8)
     9504   03 01484    6AF01556              BAL,15   TST1ERMG          GO REPORT ERROR
     9505   03 01485    00000000 A            DATA     0
     9506   03 01486    EAF0021C A   :FUNCT12 BAL,15   *:PRINT           PRINT: NO EXPECTED INTERRUPT
     9507   03 01487    000014FF              DATA     NOXINTR
     9508                            *
     9509                            *                 TEST EXPECTED STATUS AND REPORT ERRORS
     9510                            *
     9511   03 01488    35A0148A              STW,10   %+2               SAVE ADDRESS OF EXPECTED INFORMATION
     9512   03 01489    6AF02208              BAL,15   :ERRORT           GO TO ERROR TEST ROUTINE
     9513   03 0148A    00000000 A            DATA     0
     9514   03 0148B    6800148C              B        %+1
     9515   03 0148C    680014C9              B        :FUNEXIT          GO TO EXIT
     9516                            *
     9517                            *
     9518                            *                 TEST DEV-ADDR ASSOCIATED WITH PENDING INTERRUPT
     9519                            *
     9520                            *
     9521   03 0148D    6AF01F18     :FUNCT02 BAL,15   :AIO              TEST FOR INTERRUPT FROM CORRECT DEV
     9522   03 0148E    00000003 A            DATA     3
     9523   03 0148F    00000000 A            DATA     0
     9524   03 01490    6800149C              B        :FUNCT05          INTERRUPT WAS GOOD
     9525                            *
     9526                            *
     9527                            *
     9528   03 01491    330014F4              MTW,0    :FUNFLAG          TEST FUNCTIONAL ERROR FLAG
     9529   03 01492    69301497              BNEZ     :FUNCT13              IF SET SKIP NEXT MSG
     9530                            *
     9531                            *
     9532                            *
     9533   03 01493    351014F4              STW,1    :FUNFLAG          SET FUNCTIONAL TEST ERROR FLAG
     9534   03 01494    35801496              STW,8    %+2               SAVE ERROR NO. (REG 8)
     9535   03 01495    6AF01556              BAL,15   TST1ERMG          GO REPORT ERROR
     9536   03 01496    00000000 A            DATA     0
     9537                            *
     9538                            *                 REPORT: AIO-DEV ADDR ERROR
     9539                            *
     9540   03 01497    6AF01F1B     :FUNCT13 BAL,15   :AIO+3            GO REPORT ADDRESS ERROR
     9541   03 01498    00000002 A            DATA     2
     9542   03 01499    00000000 A            DATA     0
     9543   03 0149A    6800149C              B        :FUNCT05
     9544   03 0149B    680014C9              B        :FUNEXIT          GO TO EXIT
     9545                            *
     9546                            *                 TEST INFORMATION ASSOCIATED WITH TEST
     9547                            *
     9548   03 0149C    4BD014F6     :FUNCT05 AND,13   :FAIOMSK
     9549   03 0149D    6AF023A9              BAL,15    :SAVEAIO
     9550   03 0149E    359014A0              STW,9    %+2               SAVE ADDRESS OF EXPECTED INFORMATION
     9551   03 0149F    6AF02208              BAL,15   :ERRORT           GO TO ERROR TEST ROUTINE
     9552   03 014A0    00000000 A            DATA     0
     9553   03 014A1    680014C9              B        :FUNEXIT          GO TO EXIT
     9554   03 014A2    351014F4              STW,1    :FUNFLAG          SET FUNCTIONAL ERROR FLAG
     9555   03 014A3    680014C9              B        :FUNEXIT          GO TO EXIT
     9556                            *
     9557                            *
     9558                            *                 NO INTERRUPT EXPECTED
     9559                            *
     9560                            *
     9561   03 014A4    3300000B A   :FUNCT01 MTW,0    11                TEST FOR NO INTER. PENDING
     9562   03 014A5    681014C4              BGEZ     :FUNCT03          B: IF INTERRUPT WAS NOT PENDING
     9563                            *
     9564                            *                 TEST THE DEV-ADDR ASSOCIATED WITH PENDING INTERRUPT
     9565                            *
     9566   03 014A6    6AF01F18              BAL,15   :AIO              TEST FOR INTERRUPT FROM CORRECT DEV
     9567   03 014A7    00000003 A            DATA     3
     9568   03 014A8    00000000 A            DATA     0
     9569   03 014A9    680014B5              B        :FUNCT04          INTERRUPT WAS GOOD
     9570                            *
     9571                            *
     9572                            *
     9573   03 014AA    330014F4              MTW,0    :FUNFLAG          TEST FUNCTIONAL ERROR FLAG
     9574   03 014AB    693014B0              BNEZ     :FUNCT14              IF SET SKIP NEXT MSG
     9575                            *
     9576                            *
     9577                            *
     9578   03 014AC    351014F4              STW,1    :FUNFLAG          SET FUNCTIONAL TEST ERROR FLAG
     9579   03 014AD    358014AF              STW,8    %+2               SAVE ERROR NO. (REG 8)
     9580   03 014AE    6AF01556              BAL,15   TST1ERMG          GO REPORT ERROR
     9581   03 014AF    00000000 A            DATA     0
     9582                            *
     9583                            *                 REPORT AIO-DEV ADDR ERROR
     9584                            *
     9585   03 014B0    6AF01F1B     :FUNCT14 BAL,15   :AIO+3            REPORT ADDR ERROR
     9586   03 014B1    00000002 A            DATA     2
     9587   03 014B2    00000000 A            DATA     0
     9588   03 014B3    680014B5              B        :FUNCT04
     9589   03 014B4    680014C9              B        :FUNEXIT          GO TO EXIT
     9590                            *
     9591                            *                 SAVE AIO STATUS
     9592                            *
     9593   03 014B5    4BD014F6     :FUNCT04 AND,13   :FAIOMSK          REMOVE UNWANTED STATUS BITS
     9594   03 014B6    6AF023A9              BAL,15   :SAVEAIO          SAVE AIO STATUS
     9595                            *
     9596                            *
     9597                            *
     9598   03 014B7    330014F4              MTW,0    :FUNFLAG          TEST FUNCTIONAL ERROR FLAG
     9599   03 014B8    693014BD              BNEZ     :FUNCT15              IF SET SKIP NEXT MSG
     9600                            *
     9601                            *
     9602                            *
     9603   03 014B9    351014F4              STW,1    :FUNFLAG          SET FUNCTIONAL TEST ERROR FLAG
     9604   03 014BA    358014BC              STW,8    %+2               SAVE ERROR NO. (REG 8)
     9605   03 014BB    6AF01556              BAL,15   TST1ERMG          GO REPORT ERROR
     9606   03 014BC    00000000 A            DATA     0
     9607                            *
     9608                            *                 REPORT: UNEXPECTED INTERRUPT
     9609                            *
     9610   03 014BD    EAF0021C A   :FUNCT15 BAL,15   *:PRINT
     9611   03 014BE    00001505              DATA     UNXINTR
     9612                            *
     9613                            *                 TEST INFORMATION ASSOCIATED WITH TEST
     9614                            *
     9615   03 014BF    359014C1              STW,9    %+2               SAVE ADDR OF EXPECTED INFORMATION
     9616   03 014C0    6AF02208              BAL,15   :ERRORT           GO TO ERROR TEST ROUTINE
     9617   03 014C1    00000000 A            DATA     0
     9618   03 014C2    680014C3              B        %+1
     9619   03 014C3    680014C9              B        :FUNEXIT          GO TO EXIT
     9620                            *
     9621                            *                 TEST INFORMATION ASSOCIATED WITH TEST
     9622                            *
     9623   03 014C4    35A014C6     :FUNCT03 STW,10   %+2               SAVE ADDR OF EXPECTED INFORMATION
     9624   03 014C5    6AF02208              BAL,15   :ERRORT           GO TO ERROR TEST ROUTINE
     9625   03 014C6    00000000 A            DATA     0
     9626   03 014C7    680014C9              B        :FUNEXIT          GO TO EXIT
     9627   03 014C8    351014F4              STW,1    :FUNFLAG          SET FUNCTIONAL ERROR FLAG
     9628   03 014C9    6E000000 A   :FUNEXIT AIO,0    0
     9629   03 014CA    22E00020 A            LI,14    X'20'
     9630   03 014CB    6DE01700 A            WD,14    X'1700'
     9631   03 014CC    22E00000 A            LI,14    0                 FETCH WORD
     9632   03 014CD    35E01580              STW,14   LOCATION          STORE WORD
     9633   03 014CE    330014F4              MTW,0    :FUNFLAG          IF ANY ERRORS PRINT BC
     9634   03 014CF    683014D6              BEZ      :FUNEX
     9635   03 014D0    B2F014F2              LW,15    *:FUNSAVE+15      LOAD ADDR OF IOCD
     9636   03 014D1    D2C6000F A            LH,12    *15,3
     9637   03 014D2    EAF00218 A            BAL,15  *:HEXC             CONVERT TO HEXC
     9638   03 014D3    35F0150D              STW,15   BYTENO1+3
     9639   03 014D4    EAF0021C A            BAL,15   *:PRINT           PRINT BC MSG
     9640   03 014D5    0000150A              DATA     BYTENO1
     9641                            :FUNEX ;
     9642   03 014D6    02200000 A            LCI      0                RESTORE
     9643   03 014D7    2A0014E3              LM,0     :FUNSAVE              REGISTERS
     9644   03 014D8    20F00004 A            AI,15    4
     9645   03 014D9    30F014F4              AW,15    :FUNFLAG          ADD IN FUNCTIONAL ERROR FLAG
     9646   03 014DA    E800000F A            B        *15               RETURN TO CALLING ROUTINE
     9647                            *
     9648                            *
     9649                            *
     9650                                     BOUND    8
     9651   03 014DC    00000000 A   FUCTINT  DATA     0,0
            03 014DD    00000000 A
     9652   03 014DE    000014E0              DATA     FUCTINT1,7**24
            03 014DF    07000000 A
     9653                            *
     9654   03 014E0    326004F2     FUCTINT1 LW,6     SECTDLAY
     9655   03 014E1    22700001 A            LI,7     1
     9656   03 014E2    0E2014DC              LPSD,2   FUCTINT
     9657                            *
     9658                            *
     9659   03 014E3                 :FUNSAVE RES      16
     9660   03 014F3    00000000 A   INTEXFG  DATA     0                 TEST FOR AN INTERRUPT IF FLAG > 0
     9661   03 014F4    00000000 A   :FUNFLAG DATA     0                 FLAG = 1 IF ERROR HAS BEEN FOUND
     9662   03 014F5    00000000 A   :FTIOMSK DATA     0
     9663   03 014F6    00000000 A   :FAIOMSK DATA     0
     9664   03 014F7    00000000 A   T1ST34SV DATA     0
     9665                            *
     9666                            *
     9667                            *
     9668   03 014F8    08C4C5E5 A   DEVBUSY  TEXTC    'DEV-BUSY'
            03 014F9    60C2E4E2 A
            03 014FA    E8404040 A
     9669   03 014FB    0FC3D6D5 A   COTRBUSY TEXTC    'CONTROLLER-BUSY'
            03 014FC    E3D9D6D3 A
            03 014FD    D3C5D960 A
            03 014FE    C2E4E2E8 A
     9670   03 014FF    16C5E7D7 A   NOXINTR  TEXTC    'EXP INTR DID NOT OCCUR'
            03 01500    40C9D5E3 A
            03 01501    D940C4C9 A
            03 01502    C440D5D6 A
            03 01503    E340D6C3 A
            03 01504    C3E4D940 A
     9671   03 01505    13E4D5C5 A   UNXINTR  TEXTC    'UNEXP INTR OCCURRED'
            03 01506    E7D740C9 A
            03 01507    D5E3D940 A
            03 01508    D6C3C3E4 A
            03 01509    D9D9C5C4 A
     9672   03 0150A    0FC9D6C3 A   BYTENO1  TEXTC    'IOCD BC =  XXXX'
            03 0150B    C440C2C3 A
            03 0150C    407E4040 A
            03 0150D    E7E7E7E7 A
     9673   03 0150E    0F0014DC     XPSDFUCT XPSD,0   FUCTINT
     9674                                     PAGE
     9675                            *                 S T A T U S  O F  T R A C K S ( B A N D )
     9676                            *
     9677                            *                 R E P O R T E R
     9678                            *
     9679                            *                 THIS ROUTINE IS DESIGNED TO REPORT THE CONDITION
     9680                            *                 OF A TRACK (BAND) WHEN IT WAS TESTED.
     9681                            *
     9682                            *                 INPUT PARAMETERS:
     9683                            *
     9684                            *                   TCKUNVL  -  TCK UNVAILABLE LOWER LIMIT
     9685                            *                   TCKUNVH  -  TCK UNVAILABLE UPPER LIMIT
     9686                            *                   TCKWPVL1 -  TCK WRT PROTECTED LOWER LIMIT RPT BY TDV
     9687                            *                   TCKWPVH1 -  TCK WRT PROTECTED UPPER LIMIT RPT BY TDV
     9688                            *                   TCKWPVL  -  TCK WRT PROTECTED LOWER LIMIT RPT BY SNS
     9689                            *                   TCKWPVH  -  TCK WRT PROTECTED UPPER LIMIT RPT BY SNS
     9690                            *                   REG 5    -  CURRECT DEVICE SEEK ADDRESS
     9691                            *                   REG 6    -  TRACK (BAND) ADDRESS
     9692                            *
     9693                            *
     9694                            *                 REGISTER DISTURBED.
     9695                            *
     9696                            *                    REG 4,7,8,12,15
     9697                            *
     9698                            *                 OUTPUT PARAMETERS:
     9699                            *
     9700                            *                   REPORT TRACK (BAND)
     9701                            *
     9702                            *                   REG 5-FIRST BAD TRACK (BAND)
     9703                            *
     9704                            *
     9705                            *                 CALLING FORMAT:
     9706                            *
     9707                            *                    BAL,15  T1ST19RP
     9708                            *                    DATA           WORD ADDRESS OF LOWER VIOLATION PARM
     9709                            *                    %+1            RETURN
     9710                            *
     9711   03 0150F    35F01537     T1ST19RP STW,15   T1ST19RT          SAVE RETURN ADDRESS
     9712   03 01510    351004F6              STW,1    T1ERFLAG          SET TEST 1 ERROR FLAG
     9713   03 01511    3510103D              STW,1    #MSGER41          SET SEEK INHIBIT PRINTOUT       *A01
     9714   03 01512    12801544              LD,8     MSGTRACK          LOAD 'TRACKS'
     9715   03 01513    22A07212 A            LI,10    X'7212'           TEST FOR HIGH SPEED RAD
     9716   03 01514    31A01D34              CW,10    MODELC
     9717   03 01515    69301517              BNE      %+2               IF HIGH SPEED
     9718   03 01516    12801546              LD,8     MSGBAND               LOAD  'BANDS'
     9719   03 01517    55821538              STH,8    MSGT1T19,1        SAVE
     9720   03 01518    35901539              STW,9    MSGT1T19+1            IN MESSAGE
     9721   03 01519    02200040 A            LCI      4                 LOAD
     9722   03 0151A    2A801548              LM,8     WRTPTD                'WRT PROTECTED.'
     9723   03 0151B    22701550              LI,7     TCKUNVL           LOAD TCKUNVL  ADDRESS
     9724   03 0151C    B170000F A            CW,7     *15
     9725   03 0151D    69301520              BNE      %+3               IF NOT
     9726   03 0151E    02200040 A            LCI      4                     LOAD 'UNAVAILABLE.'
     9727   03 0151F    2A80154C              LM,8     UNVABLE
     9728   03 01520    5582153E              STH,8    MSGT1T19+6,1      SAVE
     9729   03 01521    02200030 A            LCI      3                     IN
     9730   03 01522    2B90153F              STM,9    MSGT1T19+7            MESSAGE
     9731   03 01523    B2901537              LW,9     *T1ST19RT         LOAD ADDRESS
     9732   03 01524    D2C20009 A            LH,12    *9,1                  OF FIRST BAD TRACK (BAND)
     9733   03 01525    EAF00217 A            BAL,15   *:DECC            CONVERT TO
     9734   03 01526    55F2153A              STH,15   MSGT1T19+2,1          DECIMAL
     9735   03 01527    25F00070 A            SLS,15   -16                   AND  SAVE
     9736   03 01528    75F2153A              STB,15   MSGT1T19+2,1          IN MESSAGE
     9737   03 01529    B2C20009 A            LW,12    *9,1              LOAD ADDRESS OF LAST BAD TRACK (BAND
     9738   03 0152A    52C2000C A            LH,12    12,1
     9739   03 0152B    EAF00217 A            BAL,15   *:DECC            CONVERT TO
     9740   03 0152C    75F0153D              STB,15   MSGT1T19+5        DECIMAL
     9741   03 0152D    25F00078 A            SLS,15   -8                AND SAVE IN
     9742   03 0152E    55F2153C              STH,15   MSGT1T19+4,1      MESSAGE
     9743   03 0152F    EAF0021C A            BAL,15   *:PRINT           OUTPUT
     9744   03 01530    00001538              DATA     MSGT1T19              MESSAGE
     9745   03 01531    22400000 A            LI,4     0                 LOAD ZERO
     9746   03 01532    D2520009 A            LH,5     *9,1              LOAD FIRST BAD TRACK (BAND)
     9747   03 01533    B5400009 A            STW,4    *9                ZERO FIRST BAD TRACK (BAND)
     9748   03 01534    37401D36              MW,4     SECTCURR          CALCULATE NEW SEEK ADDRESS
     9749   03 01535    22400000 A            LI,4     0
     9750   03 01536    E8021537              B        *T1ST19RT,1       RETURN
     9751   03 01537    00000000 A   T1ST19RT DATA     0                 RETURN ADDRESS TO TST1,19
     9752                            MSGT1T19 TEXTC    ;
     9753   03 01538    2740E3D9 A    ' TRACKS XXX THRU XXX ARE WRT PROTECTED.'
            03 01539    C1C3D2E2 A
            03 0153A    40E7E7E7 A
            03 0153B    40E3C8D9 A
            03 0153C    E440E7E7 A
            03 0153D    E740C1D9 A
            03 0153E    C540E6D9 A
            03 0153F    E340D7D9 A
            03 01540    D6E3C5C3 A
            03 01541    E3C5C44B A
     9754   03 01542                          RES      1
     9755                                     BOUND    8
     9756   03 01544    4040E3D9 A   MSGTRACK TEXT     '  TRACKS'
            03 01545    C1C3D2E2 A
     9757   03 01546    404040C2 A   MSGBAND  TEXT     '   BANDS'
            03 01547    C1D5C4E2 A
     9758   03 01548    4040E6D9 A   WRTPTD   TEXT     '  WRT PROTECTED.'
            03 01549    E340D7D9 A
            03 0154A    D6E3C5C3 A
            03 0154B    E3C5C44B A
     9759   03 0154C    4040E4D5 A   UNVABLE  TEXT     '  UNAVAILABLE.  '
            03 0154D    C1E5C1C9 A
            03 0154E    D3C1C2D3 A
            03 0154F    C54B4040 A
     9760                                     BOUND    8
     9761   03 01550    00000000 A   TCKUNVL  DATA     0                 TCK UNAVAILABLE LOWER LIMIT
     9762   03 01551    00000000 A   TCKUNVH  DATA     0                 TCK UNAVAILABLE UPPER LIMIT
     9763   03 01552    00000000 A   TCKWPVL1 DATA     0                 TCK WRT PROTECT LOWER LIMIT FROM TDV
     9764   03 01553    00000000 A   TCKWPVH1 DATA     0                 TCK WRT PROTECT UPPER LIMIT FROM TDV
     9765   03 01554    00000000 A   TCKWPVL  DATA     0                 TCK WRT PROTECT LOWER LIMIT FROM SNS
     9766   03 01555    00000000 A   TCKWPVH  DATA     0                 TCK WRT PROTECT UPPER LIMIT FROM SNS
     9767                                     PAGE
     9768                            *
     9769                            *                 TST1 ERROR PRINT ROUTINE
     9770                            *
     9771                            *                 THIS ROUTINE HANDLES ERROR MESSAGE PRINTOUTS
     9772                            *                 BY FIRST REQUIRING TEST TYPE AND DEVICE ADDRESS TO BE
     9773                            *                 REPORTED FOR THE FIRST ERROR ON EACH DEVICE.
     9774                            *                 THEN FOLLOWING ERROR MESSAGES ON THAT DEVICE
     9775                            *                 WILL ONLY HAVE AND ERROR NO. PRINTOUT
     9776                            *
     9777                            *                 INPUT PARAMETERS:
     9778                            *                   TST1DVFG -  TST1 DEVICE ADDRESS NOT REPORTED, IF=1
     9779                            *                   REG 15   -  ADDRESS OF THE ERROR NO.
     9780                            *
     9781                            *                 REGISTER DISTURBED:
     9782                            *
     9783                            *                   REG 12
     9784                            *
     9785                            *                 OUTPUT PARAMETERS:
     9786                            *
     9787                            *                   'TST1 DEV XXX' (MESSAGE IF TST1DVFG WAS =1)
     9788                            *                   'ERROR DDDD'
     9789                            *
     9790                            *
     9791                            *                 CALLING FORMAT:
     9792                            *
     9793                            *                  BAL,15    TST1ERMG  GO TO TST1 ERROR REPORT ROUTINE
     9794                            *                  DATA      DDDD      (ERROR NO.)
     9795                            *                                      CONTROL IS RETURN HERE
     9796                            *
     9797                            *
     9798   03 01556    35F01576     TST1ERMG STW,15   TST1ERTN          SAVE RETURN ADDRESS             *A01
     9799   03 01557    22F00000 A            LI,15    0                 LOAD TO RESET PRINT 'TST1 DEV XXX'FG
     9800   03 01558    46F004FA              XW,15    TST1DVFG          RESET FLAG
     9801   03 01559    68301568              BEZ      TST1ER01          IF IT WAS ZERO BRANCH
     9802                            *
     9803   03 0155A    3550157F              STW,5    TST1ERM5          SAVE R5                         *BOO
     9804   03 0155B    32501D38              LW,5     CURRSEEK          LOAD CURRENT SEEK ADDR          *A01
     9805   03 0155C    6AF01E02              BAL,15   #SEEKCVT          GO FORMAT MESSAGE               *A01
     9806   03 0155D    22F00018 A            LI,15    24                LOAD A MSG LENGTH               *A01
     9807   03 0155E    3300103D              MTW,0    #MSGER41          TEST TO SEE IF MSG TO BE PRINTED*A01
     9808   03 0155F    69301561              BNEZ     %+2               IF NOT EQUAL TO ZERO SKIP SEEK  *A01
     9809   03 01560    22F00023 A            LI,15    35                SET UP FOR SEEK ADDR            *A01
     9810   03 01561    75F01E99              STB,15   #MSGERR1          SET MSG LENGTH                  *A01
     9811                            TST1ER00 ;                                                          *A01
     9812   03 01562    EAF0021C A            BAL,15   *:PRINT           BRANCH TO PRINT SUBROUTINE
     9813   03 01563    0000157E              DATA     HEADER
     9814   03 01564    EAF0021C A            BAL,15   *:PRINT           PRINT MSG
     9815   03 01565    00001E99              DATA     #MSGERR1                                          *A01
     9816   03 01566    3250157F              LW,5     TST1ERM5          RESTORE R5                      *BOO
     9817   03 01567    6800156A              B        %+3
     9818   03 01568    EAF0021C A   TST1ER01 BAL,15   *:PRINT
     9819   03 01569    00001577              DATA     SPACE
     9820   03 0156A    B2C01576     TST1ER02 LW,12    *TST1ERTN         FETCH WORD
     9821   03 0156B    EAF00217 A            BAL,15   *:DECC            BRANCH TO SUBR.
     9822   03 0156C    55F0157B              STH,15   TST1MSG1+3        STORE HALF-WORD
     9823   03 0156D    25F00070 A            SLS,15   -16               SHIFT
     9824   03 0156E    55F2157A              STH,15   TST1MSG1+2,1      STORE HALF-WORD
     9825   03 0156F    32701580              LW,7     LOCATION          LOAD LOCATION INDEX TO ERROR ADDR
     9826   03 01570    670E1581              EXU      TST1ER04,7        FETCH ERROR ADDR
     9827   03 01571    EAF00218 A   TST1ER03 BAL,15   *:HEXC            CONVERT TO NEX
     9828   03 01572    35F0157D              STW,15   TST1MSG1+5            AND STORE IN OUTPUT MESSAGE
     9829   03 01573    EAF0021C A            BAL,15   *:PRINT           BRANCH TO PRINT SUBR.
     9830   03 01574    00001578              DATA     TST1MSG1
     9831   03 01575    E8021576              B        *TST1ERTN,1                                       *A01
     9832   03 01576    00000000 A   TST1ERTN DATA     0                 RETURN ADDR                     *A01
     9833   03 01577    01404040 A   SPACE    TEXTC    ' '
     9834   03 01578    17C5D9D9 A   TST1MSG1 TEXTC    'ERR NO.  DDDD  LOC XXXX'
            03 01579    40D5D64B A
            03 0157A    4040C4C4 A
            03 0157B    C4C44040 A
            03 0157C    D3D6C340 A
            03 0157D    E7E7E7E7 A
     9835   03 0157E    035C5C5C A   HEADER   TEXTC    '***'
     9836   03 0157F    00000000 A   TST1ERM5 DATA     0                 R5                              *BOO
     9837   03 01580    00000000 A   LOCATION DATA     0
     9838   03 01581    52C21576     TST1ER04 LH,12    TST1ERTN,1
     9839   03 01582    52C214F2              LH,12    :FUNSAVE+15,1
     9840   03 01583    52C21EFD              LH,12    #MSG00+15,1
     9841                                     PAGE
     9842                            *
     9843                            *
     9844                            *
     9845   03 01584    32C0000F A   TILT     LW,12    15                LOAD ADDR OF WHERE NON-RECOVERABLE
     9846   03 01585    EAF00218 A            BAL,15   *:HEXC            ERROR OCCURRED, CONVERT TO EBIDIC
     9847   03 01586    35F0158D              STW,15   TILT1+3
     9848   03 01587    EAF0021C A            BAL,15   *:PRINT           PRINT
     9849   03 01588    0000158A              DATA     TILT1
     9850   03 01589    E8000214 A            B        *:MONITOR         RETURN CONTROL TO MOINTOR
     9851                            *
     9852                            *
     9853   03 0158A    0FE3C9D3 A   TILT1    TEXTC    'TILT  LOC  XXXX'
            03 0158B    E34040D3 A
            03 0158C    D6C34040 A
            03 0158D    E7E7E7E7 A
     9854                                     PAGE
     9855                            *
     9856                            *                 *** S E E K / S E N S E  T A B L E  R O U T I N E ***
     9857                            *
     9858                            *                 THIS ROUTINE BUILDS A SENSE TABLE, TEST THE TABLE
     9859                            *                 FOR ERRORS AND REPORTS ERRORS.
     9860                            *
     9861                            *                 INPUT PARMATERS:
     9862                            *
     9863                            *                   ROUTINE 'MEMORY3' MUST BE EXECUTED BEFORE FIRST
     9864                            *                   CALL TO THIS ROUTINE.
     9865                            *                   REG 6 PRESENT LENGTH OF TABLE
     9866                            *                   REG 7 INDEX FOR UPDATING THE TABLE
     9867                            *                   TABDPLY1 - ERROR NO. OF SUBTEST
     9868                            *                 REGISTERS DISTURDED
     9869                            *
     9870                            *                       NONE AS LONG AS THE TABLE IS BEING BUILT
     9871                            *                             OR TESTED
     9872                            *                       ALL WHEN THE TABLE IS BEING DISPLAYED
     9873                            *
     9874                            *
     9875                            *                 OUTPUT PARAMETERS'
     9876                            *
     9877                            *                   ERROR TABLE, WHEN AN ERROR IS DETECTED.
     9878                            *
     9879                            *                 CALLING FORMAT:
     9880                            *
     9881                            *                   BAL,15   TABUILD
     9882                            *                   %        NO ERROR EXIT
     9883                            *                   %+1      LOOP EXIT
     9884                            *                   %+2      ERROR EXIT
     9885                            *
     9886                            *
     9887                            TABUILDS ;
     9888   03 0158E    35F01634              STW,15   TABRTN            SAVE RETURN
     9889   03 0158F    31701C95              CW,7     TABLEMAX          DOES IT EXCEEDING THE TABLE
     9890   03 01590    68201592              BLE      %+2                 LENGTH IF SO *** WHOA ***
     9891   03 01591    6AF01584              BAL,15   TILT              GO REPORT NON-RECOVERABLE CONDITION
     9892   03 01592    D31E1C94              MTH,1    *SSTABLE,7        UPDATE TABLE
     9893   03 01593    20700001 A            AI,7     1                 ADD 1 TO INDEX
     9894   03 01594    31600007 A            CW,6     7                 IF NORMAL TABLE LENGTH EXCEEDED
     9895   03 01595    68101598              BGE      %+3
     9896   03 01596    35101C96              STW,1    TABERROR             SET ERROR FLAG
     9897   03 01597    32600007 A            LW,6     7                    AND EXTEND TABLE
     9898   03 01598    33101635              MTW,1    TABINDEX          ADD U TO TABINDEX
     9899   03 01599    31601635              CW,6     TABINDEX          COMPARE WORDS
     9900   03 0159A    682015AE              BLE      TABUILD2          BRANCH IF LESS
     9901   03 0159B    E802000F A            B        *15,1             GO TEST SOME MORE
     9902                            *
     9903                            *
     9904                            *
     9905                            TABUILD  ;
     9906   03 0159C    35F01634              STW,15   TABRTN            SAVE RETURN ADDRESS
     9907   03 0159D    31701C95              CW,7     TABLEMAX          IF INDEX IS GREATER THAN TABLE
     9908   03 0159E    682015A0              BLE      %+2                   TWICE THE NORMAL SIZE TABLE
     9909   03 0159F    6AF01584              BAL,15   TILT              GO REPORT NON-RECOVERABLE CONDITION
     9910   03 015A0    D31E1C94              MTH,1    *SSTABLE,7        UPDATE TABLE
     9911   03 015A1    31701633              CW,7     TABBIAS
     9912   03 015A2    681015A5              BGE      %+3
     9913   03 015A3    33101C96              MTW,1    TABERROR
     9914   03 015A4    33000000 A            MTW,0    0
     9915   03 015A5    33101635              MTW,1    TABINDEX
     9916   03 015A6    31601635              CW,6     TABINDEX          TEST FOR END OF TABLE
     9917   03 015A7    682015AE              BLE      TABUILD2          IF END GO CHECK TABLE
     9918   03 015A8    33000000 A            MTW,0    0
     9919   03 015A9    31701C97              CW,7     SECTLMT           COMPARE WORDS
     9920   03 015AA    682015AD              BLE      %+3               BRANCH LESS OR EQUAL
     9921   03 015AB    33101C96              MTW,1    TABERROR
     9922   03 015AC    32600007 A            LW,6     7
     9923   03 015AD    E802000F A            B        *15,1
     9924                            *
     9925                            *
     9926                            *
     9927   03 015AE    33001C96     TABUILD2 MTW,0    TABERROR
     9928   03 015AF    693015B7              BNEZ     TABDPLY           BR. NOT = ZERO
     9929   03 015B0    32701633              LW,7     TABBIAS           FETCH TABBIAS
     9930   03 015B1    D11E1C94     TABUILD1 CH,1     *SSTABLE,7        GO CHECK TABLE FOR ERROR
     9931   03 015B2    693015B7              BNE      TABDPLY           IF NOT EQUAL :ERROR
     9932   03 015B3    20700001 A            AI,7     1                 ADD 1 TO INDEX
     9933   03 015B4    31700006 A            CW,7     6                 IF MORE TO DO GO DO IT
     9934   03 015B5    691015B1              BL       TABUILD1
     9935   03 015B6    E800000F A            B        *15               RETURN
     9936                            *                                   ARE GOOD
     9937                            TABDPLY  ;
     9938   03 015B7    3510103D              STW,1    #MSGER41          SET SEEK INHIBIT PRINTOUT       *A01
     9939   03 015B8    33001632              MTW,0    TABPASS           TEST HEADER INHIBIT IF SET SKIP
     9940   03 015B9    693015C6              BNEZ     TABDPLY2          IF SET GO PRINT INFOR
     9941   03 015BA    6AF01556              BAL,15   TST1ERMG          OTHERWISE PRINT ERROR NO.
     9942   03 015BB    00000000 A   TABDPLY1 DATA     0
     9943   03 015BC    EAF0021C A            BAL,15   *:PRINT           PRINT FIRST LINE OF HEADER
     9944   03 015BD    000015F6              DATA     TABLE100
     9945   03 015BE    35101632              STW,1    TABPASS           SET HEADER PRINT INHIBIT FLAG
     9946   03 015BF    22800047 A            LI,8     71                LOAD MAX BYTES M
     9947   03 015C0    7580160A              STB,8    TABLE101          PRINT SECOND LINE OF HEADER
     9948   03 015C1    EAF0021C A            BAL,15   *:PRINT
     9949   03 015C2    0000160A              DATA     TABLE101
     9950   03 015C3    EAF0021C A            BAL,15   *:PRINT
     9951   03 015C4    0000161C              DATA     TABLE102
     9952   03 015C5    680015C8              B        %+3
     9953   03 015C6    EAF0021C A   TABDPLY2 BAL,15   *:PRINT           UP SPACE
     9954   03 015C7    00001E98              DATA     #MSGERR9          1
     9955   03 015C8    227FFFEE A            LI,7     -18               LOAD BLANKS
     9956   03 015C9    32402400              LW,4     L(X'40404040')        INTO
     9957   03 015CA    354E242A              STW,4    BUF1LO+18,7       OUTPUT LINE
     9958   03 015CB    657015CA              BIR,7    %-1                   AREA
     9959   03 015CC    32901633              LW,9     TABBIAS           LOAD TABLE STARTING BIAS
     9960   03 015CD    4B902401              AND,9   =X'FFFFFFF0'       REMOVE LSB 4
     9961   03 015CE    32401633              LW,4     TABBIAS           LOAD TABLE STARTING BIAS
     9962   03 015CF    4B402402              AND,4    =X'F'
     9963   03 015D0    22700000 A            LI,7     0
     9964   03 015D1    35701636              STW,7    TABCOUNT          STORE WORD
     9965   03 015D2    32701633              LW,7     TABBIAS           FETCH WORD
     9966   03 015D3    22A000F0 A            LI,10    X'F0'             LOAD EBCDIC ZERO
     9967   03 015D4    22B00040 A            LI,11    X'40'             LOAD EBCDIC BLANK
     9968                            TABDPLY3 ;
     9969   03 015D5    31601636              CW,6     TABCOUNT          COMPARE WORDS
     9970   03 015D6    E8241634              BLE      *TABRTN,2
     9971   03 015D7    D2CE1C94              LH,12    *SSTABLE,7        LOAD PASS COUNT
     9972   03 015D8    EAF00217 A            BAL,15   *:DECC            CONVERT TO DECIMAL
     9973   03 015D9    75B0000F A            STB,11   15                STORE A BLANK IN MSB POSITION
     9974   03 015DA    71A2000F A            CB,10    15,1              TEST BYTE 1 FOR ZERO
     9975   03 015DB    693015DD              BNE      %+2                   IF ZERO
     9976   03 015DC    75B2000F A            STB,11   15,1                  STORE A BLANK
     9977   03 015DD    71A4000F A            CB,10    15,2              TEST BYTE 2 FOR ZERO
     9978   03 015DE    693015E0              BNE      %+2                   IF ZERO
     9979   03 015DF    75B4000F A            STB,11   15,2                  STORE A BLANK
     9980   03 015E0    35F8241A              STW,15   BUF1LO+2,4        STORE ENTRY INTO OUTPUT LINE
     9981   03 015E1    33101636              MTW,1    TABCOUNT          ADD 1 TO TABCOUNT
     9982   03 015E2    20400001 A            AI,4     1                 UP DATE LINE INDEX
     9983   03 015E3    20700001 A            AI,7     1                 UP DATA TABLE INDEX
     9984   03 015E4    21400010 A            CI,4     16                IS LINE INDEX
     9985   03 015E5    681015E8              BGE      TABDLY4           GREATER THAN TABLE LENGTH
     9986   03 015E6    31601636              CW,6     TABCOUNT          COMPARE WORDS
     9987   03 015E7    692015D5              BG       TABDPLY3          BRANCH IF GREATER
     9988                            *
     9989                            *
     9990                            *
     9991   03 015E8    32C00009 A   TABDLY4  LW,12    9                 LOAD TABLE STARTING BIAS
     9992   03 015E9    EAF00218 A            BAL,15   *:HEXC            CONVERT TO HEX
     9993   03 015EA    25400002 A            SLS,4    2                 CONVERTS TO A BYTE
     9994   03 015EB    20400007 A            AI,4     7                 ADD7
     9995   03 015EC    75F02419              STB,15   BUF1LO+1
     9996   03 015ED    25F00078 A            SLS,15   -8
     9997   03 015EE    75B2000F A            STB,11   15,1
     9998   03 015EF    7540000F A            STB,4    15
     9999   03 015F0    35F02418              STW,15   BUF1LO
    10000   03 015F1    20900010 A            AI,9     X'10'             UPDATE TABLE BIAS FOR NEXT PASS
    10001   03 015F2    EAF0021C A            BAL,15   *:PRINT           GO PRINT
    10002   03 015F3    00002418              DATA     BUF1LO                LINE
    10003   03 015F4    22400000 A            LI,4     0                 SET LINE BIAS POINTER =0
    10004   03 015F5    680015D5              B        TABDPLY3          GO DO ANYOTHER LINE
    10005                            TABLE100 TEXTC ;
    10006                               '       TTTTTTTTTTTTTTTT -SEEK/SENSE TABLE (EACH ENTRY ',;
    10007   03 015F6    4E404040 A    'SHOULD APPEAR ONLY ONCE)'
            03 015F7    40404040 A
            03 015F8    E3E3E3E3 A
            03 015F9    E3E3E3E3 A
            03 015FA    E3E3E3E3 A
            03 015FB    E3E3E3E3 A
            03 015FC    4060E2C5 A
            03 015FD    C5D261E2 A
            03 015FE    C5D5E2C5 A
            03 015FF    40E3C1C2 A
            03 01600    D3C5404D A
            03 01601    C5C1C3C8 A
            03 01602    40C5D5E3 A
            03 01603    D9E840E2 A
            03 01604    C8D6E4D3 A
            03 01605    C440C1D7 A
            03 01606    D7C5C1D9 A
            03 01607    40D6D5D3 A
            03 01608    E840D6D5 A
            03 01609    C3C55D40 A
    10008                            TABLE101 TEXTC ;
    10009                             ' TTTTTT 000 001 002 003 004 005 006 007 008 009 00A 00B 00C ',;
    10010   03 0160A    4740E3E3 A    '00D 00E 00F'
            03 0160B    E3E3E3E3 A
            03 0160C    40F0F0F0 A
            03 0160D    40F0F0F1 A
            03 0160E    40F0F0F2 A
            03 0160F    40F0F0F3 A
            03 01610    40F0F0F4 A
            03 01611    40F0F0F5 A
            03 01612    40F0F0F6 A
            03 01613    40F0F0F7 A
            03 01614    40F0F0F8 A
            03 01615    40F0F0F9 A
            03 01616    40F0F0C1 A
            03 01617    40F0F0C2 A
            03 01618    40F0F0C3 A
            03 01619    40F0F0C4 A
            03 0161A    40F0F0C5 A
            03 0161B    40F0F0C6 A
    10011                            TABLE102 TEXTC ;
    10012   03 0161C    0940D5D6 A    ' NO.(HEX)'
            03 0161D    4B4DC8C5 A
            03 0161E    E75D4040 A
    10013                                     BOUND    8
    10014                            TABLE001 TEXT     ;
    10015   03 01620    4040E2C5 A    '  SECTOR'
            03 01621    C3E3D6D9 A
    10016                            TABLE002 TEXT     ;
    10017   03 01622    4040C2C1 A    '  BAND  '
            03 01623    D5C44040 A
    10018                            TABLE003 TEXT     ;
    10019   03 01624    4040E3D9 A    '  TRACK '
            03 01625    C1C3D240 A
    10020                            TABLE010 TEXT     ;
    10021   03 01626    40C3E4D9 A    ' CURRENT SECTOR '
            03 01627    D9C5D5E3 A
            03 01628    40E2C5C3 A
            03 01629    E3D6D940 A
    10022                            TABLE011 TEXT     ;
    10023   03 0162A    40E2C5C5 A    ' SEEK/SENSE TEST'
            03 0162B    D261E2C5 A
            03 0162C    D5E2C540 A
            03 0162D    E3C5E2E3 A
    10024                            TABLE012 TEXT     ;
    10025   03 0162E    E2C5C3E3 A    'SECTOR INCREMENT'
            03 0162F    D6D940C9 A
            03 01630    D5C3D9C5 A
            03 01631    D4C5D5E3 A
    10026   03 01632    00000000 A   TABPASS  DATA     0                 INHIBIT FLAG IF=1 HEADER DOESN'T PNT
    10027   03 01633    00000000 A   TABBIAS  DATA     0                 TABLE LINE STARTING BIAS
    10028   03 01634    00000000 A   TABRTN   DATA     0                 RETURN ADDRESS FROM TABLE BUILD RTN
    10029   03 01635    00000000 A   TABINDEX DATA     0                 TABLE INDEX CURRENT COUNT
    10030   03 01636    00000000 A   TABCOUNT DATA     0                 COUNT FOR MSG OUT
    10031                                     PAGE
    10032                            SELCTOUT ;
    10033   03 01637    35F01760              STW,15   SELCTRTN          SAVE RETURN ADDR
    10034   03 01638    EAF0021C A            BAL,15   *:PRINT           PRINT HEADER 1
    10035   03 01639    000016E4              DATA     SELECT90
    10036   03 0163A    22E00007 A            LI,14    7
    10037   03 0163B    22A00017 A            LI,10    23                                                *BOO
    10038   03 0163C    12801624              LD,8     TABLE003          LOAD 'BAND'
    10039   03 0163D    32701D34              LW,7     MODELC            LOAD MODEL NO.
    10040   03 0163E    21707212 A            CI,7     X'7212'               IS IT HIGH SPEED
    10041   03 0163F    69301643              BNE      %+4                                               *BOO
    10042   03 01640    22A00022 A            LI,10    34                                                *BOO
    10043   03 01641    22E00000 A            LI,14    0                 LOAD BAND UPDATE COUNT
    10044   03 01642    12801622              LD,8     TABLE002          LOAD 'TRACK'
    10045   03 01643    558216F8              STH,8    SELECT91,1        FORMAT
    10046   03 01644    359016F9              STW,9    SELECT91+1            INTO MESSAGE
    10047   03 01645    75A016F8              STB,10   SELECT91                                          *BOO
    10048   03 01646    EAF0021C A            BAL,15   *:PRINT           PRINT HEADER 2
    10049   03 01647    000016F8              DATA     SELECT91
    10050   03 01648    22702419              LI,7     BUF1LO+1          LOAD FIRST AVAILABLE MEMORY LOC
    10051   03 01649    4B7023F1              AND,7    =-2               CONVERT TO A DOUBLE WORD COMPATABLE
    10052   03 0164A    35701693              STW,7    SELCT52           SAVE STARTING LINE NO.
    10053   03 0164B    357016C2              STW,7    SELCT89           SAVE STARTING LINE NO.
    10054   03 0164C    EAF0021C A            BAL,15   *:PRINT           PRINT HEADER 3
    10055   03 0164D    00001701              DATA     SELECT93
    10056   03 0164E    22400000 A            LI,4     0
    10057   03 0164F    32501D39              LW,5     SURFCEND          LOAD END OF RAD
    10058   03 01650    36401D36              DW,4     SECTCURR          DIVIDE TO FIND LAST TRACK
    10059   03 01651    33000004 A            MTW,0    4                 IF NO
    10060   03 01652    68301654              BEZ      %+2                   CARRY BRANCH
    10061   03 01653    20500001 A            AI,5     1                 OTHER WISE UPDATE LAST TRACK BY 1
    10062   03 01654    22700000 A            LI,7     0                 ZERO TRACK TABLE INDEX
    10063   03 01655    22400000 A            LI,4     0                 ZERO TRACK (BAND) COUNT
    10064                            *
    10065                            *
    10066   03 01656    32C00004 A   SELCT60  LW,12    4                 LOAD Y-AXIS COUNT
    10067   03 01657    EAF00217 A            BAL,15   *:DECC            CONVERT TO DECIMAL
    10068   03 01658    B5F01693              STW,15   *SELCT52          LOAD INTO OUTPUT MESSAGE
    10069   03 01659    22F0004F A            LI,15    79                LOAD BYTE OF MESSAGE
    10070   03 0165A    F5F01693              STB,15   *SELCT52          LOAD BYTE COUNT
    10071   03 0165B    3040000E A            AW,4     14                ADD INCREMENT COUNT
    10072   03 0165C    32C00004 A            LW,12    4
    10073   03 0165D    EAF00217 A            BAL,15   *:DECC            CONVERT TO DECIMAL
    10074   03 0165E    22C00060 A            LI,12    '-'               LOAD '-'
    10075   03 0165F    75C0000F A            STB,12   15                INSERT INTO OUTPUT MESSAGE
    10076   03 01660    B5F21693              STW,15   *SELCT52,1        LOAD MESSAGE
    10077   03 01661    32F02400              LW,15    =X'40404040'                                      *BOO
    10078   03 01662    B5F41693              STW,15   *SELCT52,2        LOAD INTO OUTPUT MESSAGE
    10079   03 01663    32F02400              LW,15    =X'40404040'
    10080   03 01664    B5F61693              STW,15   *SELCT52,3        LOAD SPACE INTO OUTPUT MSG
    10081   03 01665    22600002 A            LI,6     2                 LOAD LINE INDEX
    10082   03 01666    22000000 A            LI,0     0                 ZERO ERROR
    10083   03 01667    3500175F              STW,0    LINE                  ENCOUNTERED FLAG
    10084   03 01668    12A01728     SELCT51  LD,10    SELECT95          LOAD DOUBLEWORD OF SPACES
    10085   03 01669    D28E1C8E              LH,8     *TCKSHOT,7        LOAD ERROR HALF WORD
    10086   03 0166A    6830168B              BEZ      SELCT53           IF ZERO SKIP FORMATING
    10087   03 0166B    21800200 A            CI,8     X'200'            TEST FOR ADDRESS ERROR
    10088   03 0166C    68401672              BCR,4    SELCT70           IF NONE GO LOOK FOR OTHER ERRORS
    10089   03 0166D    32C00008 A            LW,12    8                 LOAD ADDRESS                    *BOO
    10090   03 0166E    4BC02403              AND,12   =X'1FF'                                           *BOO
    10091   03 0166F    EAF00217 A            BAL,15   *:DECC            CONVERT TO DECIMAL              *BOO
    10092   03 01670    4BF02404              AND,15  =X'40FFFFFF'       INSERT SPACE INTO BYTE 0
    10093   03 01671    35F0000B A            STW,15   11                STORE IN ERROR DOUBLEWORD
    10094   03 01672    21808000 A   SELCT70  CI,8     X'8000'           TEST OVERRUN BIT
    10095   03 01673    68401676              BCR,4    SELCT71               IF NOT SET NEXT TEST
    10096   03 01674    22C000D6 A            LI,12    'O'               LOAD 'O'
    10097   03 01675    75C0000A A            STB,12   10,0              INSERT INTO ERROR MESSAGE
    10098                            *
    10099                            *
    10100                            *
    10101   03 01676    21804000 A   SELCT71  CI,8     X'4000'           TEST FOR SECTOR UNAVAILABLE
    10102   03 01677    6840167A              BCR,4    SELCT72               IF NOT SET NEXT TEST
    10103   03 01678    22C000E4 A            LI,12    'U'               LOAD 'U'
    10104   03 01679    75C2000A A            STB,12   10,1              INSERT INTO ERROR MESSAGE
    10105                            *
    10106                            *
    10107                            *
    10108   03 0167A    21801000 A   SELCT72  CI,8     X'1000'           TEST FOR TRANSMISSION ERROR
    10109   03 0167B    6840167E              BCR,4    SELCT73               IF NOT SET NEXT TEST
    10110   03 0167C    22C000E3 A            LI,12    'T'               LOAD A 'T'
    10111   03 0167D    75C4000A A            STB,12   10,2              INSERT INTO ERROR MESSAGE
    10112                            *
    10113                            *
    10114                            *
    10115   03 0167E    21802000 A   SELCT73  CI,8     X'2000'           TEST FOR SYNC PATTERN MISSED
    10116   03 0167F    68401682              BCR,4    SELCT74               IF NOT SET NEXT TEST
    10117   03 01680    22C000D7 A            LI,12    'P'               LOAD A 'P'
    10118   03 01681    75C4000A A            STB,12   10,2              INSERT INTO ERROR MESSAGE
    10119                            *
    10120                            *
    10121                            *
    10122   03 01682    21800800 A   SELCT74  CI,8     X'0800'           TEST FOR UNUSUAL END
    10123   03 01683    68401686              BCR,4    SELCT75               IF NOT SET NEXT TEST
    10124   03 01684    22C000C5 A            LI,12    'E'               LOAD A 'E'
    10125   03 01685    75C6000A A            STB,12   10,3              INSERT INTO ERROR MESSAGE
    10126                            *
    10127                            *
    10128                            *
    10129   03 01686    21800400 A   SELCT75  CI,8     X'0400'           TEST FOR DATA COMPARE ERROR
    10130   03 01687    6840168A              BCR,4    SELCT76               IF NOT SET NEXT TEST
    10131   03 01688    22C000C4 A            LI,12    'D'               LOAD A 'D'
    10132   03 01689    75C0000B A            STB,12   11,0              INSERT INTO ERROR MESSAGE
    10133   03 0168A    3310175F     SELCT76  MTW,1    LINE              SET ERROR IN THIS LINE FLAG
    10134   03 0168B    95AC1693     SELCT53  STD,10   *SELCT52,6        STORE ERROR DW IN OUTPUT LINE
    10135   03 0168C    20700001 A            AI,7     1                 INCREMENT TRACK TABLE INDEX
    10136   03 0168D    20600001 A            AI,6     1                 INCREMENT OUTPUT LINE INDEX
    10137   03 0168E    2160000A A            CI,6     10                TEST FOR FULL LINE
    10138   03 0168F    69101668              BL       SELCT51               IF NOT FULL LOOP BACK
    10139   03 01690    3300175F              MTW,0    LINE              TEST FOR ERROR IN THE LINE
    10140   03 01691    68301694              BEZ      SELCT52+1             IF NONE SKIP MESSAGE
    10141   03 01692    EAF0021C A            BAL,15   *:PRINT           OUTPUT ERROR LINE
    10142   03 01693    00000000 A   SELCT52  DATA     0
    10143   03 01694    20400001 A            AI,4     1                 UPDATE TRACK (BAND) COUNT
    10144   03 01695    31400005 A            CW,4     5                 IF LESS THEN
    10145   03 01696    69101656              BL       SELCT60                 UPDATE LIMIT CONTINUE TO OUTP
    10146   03 01697    EAF0021C A            BAL,15   *:PRINT           PRINT A SPACE BETWEEN TABLES
    10147   03 01698    00001577              DATA     SPACE
    10148                            *
    10149                            *
    10150   03 01699    EAF0021C A            BAL,15   *:PRINT           PRINT HEADER 1
    10151   03 0169A    00001715              DATA     SELECT94
    10152                            *
    10153                            *
    10154   03 0169B    EAF0021C A            BAL,15   *:PRINT           PRINT HEADER 2
    10155   03 0169C    0000171D              DATA     SELECT96
    10156   03 0169D    22A00000 A            LI,10    0                 ZERO PRINT TOTAL LINE FLAG
    10157   03 0169E    22600000 A            LI,6     0                 ZERO SECTOR TABLE INDEX
    10158   03 0169F    22400000 A            LI,4     0                 ZERO SECTOR LINE NO.
    10159   03 016A0    32802405              LW,8     =X'23404040'
    10160   03 016A1    B58016C2              STW,8    *SELCT89          SAVE IN OUTPUT MESSAGE AREA
    10161   03 016A2    32B01C8F              LW,11    SECTSHOT          LOAD STARTING ADDR OF SECTOR TABLE
    10162                            SELCT83 ;
    10163   03 016A3    32C00004 A            LW,12    4                 LOAD SECTOR LINE NO.
    10164   03 016A4    EAF00217 A            BAL,15   *:DECC            CONVERT IT TO DECIMAL
    10165   03 016A5    25F00010 A            SLS,15   16
    10166   03 016A6    5582000F A            STH,8    15,1              STORE IN TWO 'SPACES'
    10167   03 016A7    B5F216C2              STW,15   *SELCT89,1        SET INTO OUTPUT MESSAGE
    10168   03 016A8    22900000 A   SELCT85  LI,9     0                 ZERO ERROR ENCOUNTERED FLAG
    10169   03 016A9    22700002 A            LI,7     2                 SET UP LINE INDEX
    10170   03 016AA    32F02406     SELCT82  LW,15   =X'404040F0'       LOAD SPACE
    10171   03 016AB    D2CC000B A            LH,12    *11,6             LOAD ERROR COUNT
    10172   03 016AC    683016BA              BEZ      SELCT81           IF ZERO BRANCH
    10173   03 016AD    22900001 A            LI,9     1                 OTHERWISE SET ERROR ENCOUNTERED FLAG
    10174   03 016AE    32F02407              LW,15    =' <1K'
    10175   03 016AF    21C003E8 A            CI,12    1000
    10176   03 016B0    681016BA              BGE      SELCT81           ERROR LOAD IF BRANCH
    10177   03 016B1    EAF00217 A            BAL,15   *:DECC            AND CONVERT IT TO DECIMAL
    10178   03 016B2    7580000F A            STB,8    15
    10179   03 016B3    22C000F0 A            LI,12    X'F0'             LOAD EBCIDC ZERO
    10180   03 016B4    71C2000F A            CB,12    15,1              IF ZERO SUPRESS PRINTING
    10181   03 016B5    693016BA              BNEZ     SELCT81           IF NOT BRANCH
    10182   03 016B6    7582000F A            STB,8    15,1              OTHERWISE REPLACE WITH SPACE
    10183   03 016B7    71C4000F A            CB,12    15,2              IF ZERO SUPRESS PRINTING
    10184   03 016B8    693016BA              BNEZ     SELCT81           IF NOT BRANCH
    10185   03 016B9    7584000F A            STB,8    15,2              OTHERWISE REPLACE WITH SPACE
    10186   03 016BA    B5FE16C2     SELCT81  STW,15   *SELCT89,7        SAVE IN OUTPUT MESSAGE
    10187   03 016BB    20600001 A            AI,6     1                 ADD 1 TO SECTOR TABLE INDEX
    10188   03 016BC    20700001 A            AI,7     1                 ADD 1 TO LINE INDEX
    10189   03 016BD    21700009 A            CI,7     9                 TEST FOR END OF LINE
    10190   03 016BE    682016AA              BLE      SELCT82               IF NOT END GO BACK
    10191   03 016BF    33000009 A            MTW,0    9                 IF NO ERRORS ENCOUNTERED SKIP PRINTG
    10192   03 016C0    683016C3              BEZ      %+3
    10193   03 016C1    EAF0021C A            BAL,15   *:PRINT           PRINT LINE IF ERROR
    10194   03 016C2    00000000 A   SELCT89  DATA     0
    10195                            *
    10196                            *
    10197   03 016C3    20400001 A            AI,4     1                 UPDATE SECTOR LINE NO.
    10198   03 016C4    31401D36              CW,4     SECTCURR          TEST FOR ALL SECTOR DONE
    10199   03 016C5    691016A3              BL       SELCT83               IF NOT GO BACK
    10200   03 016C6    3300000A A            MTW,0    10                TEST FOR TOTAL LINE PRINT
    10201   03 016C7    693016CF              BNEZ     SELCT87               IF PRINTED EXIT
    10202   03 016C8    3310000A A            MTW,1    10                SET TOTAL LINE FLAG
    10203   03 016C9    32B01C90              LW,11    TOTLSHOT          LOAD STARTING ADDR OF TOTAL TABLE
    10204   03 016CA    12C01726              LD,12    SELECT97          LOAD 'TOTAL'
    10205   03 016CB    D5C216C2              STH,12   *SELCT89,1        FORMAT INTO TOTAL LINE
    10206   03 016CC    B5D216C2              STW,13   *SELCT89,1
    10207   03 016CD    22600000 A            LI,6     0                 ZERO TOTAL TABLE INDEX
    10208   03 016CE    680016A8              B        SELCT85           GO FORMAT & PRINT TOTAL LINE
    10209                            *
    10210                            *
    10211                            *
    10212   03 016CF    EAF0021C A   SELCT87  BAL,15   *:PRINT
    10213   03 016D0    00001577              DATA     SPACE
    10214   03 016D1    EAF0021C A            BAL,15   *:PRINT
    10215   03 016D2    0000172A              DATA     SECTOROC
    10216   03 016D3    EAF0021C A            BAL,15   *:PRINT
    10217   03 016D4    00001735              DATA     SECTORZ
    10218   03 016D5    EAF0021C A            BAL,15   *:PRINT
    10219   03 016D6    00001744              DATA     SECTORO
    10220   03 016D7    EAF0021C A            BAL,15   *:PRINT
    10221   03 016D8    00001749              DATA     SECTORU
    10222   03 016D9    EAF0021C A            BAL,15   *:PRINT
    10223   03 016DA    0000174D              DATA     SECTORP
    10224   03 016DB    EAF0021C A            BAL,15   *:PRINT
    10225   03 016DC    00001751              DATA     SECTORT
    10226   03 016DD    EAF0021C A            BAL,15   *:PRINT
    10227   03 016DE    00001754              DATA     SECTORE
    10228   03 016DF    EAF0021C A            BAL,15   *:PRINT
    10229   03 016E0    00001756              DATA     SECTORD
    10230   03 016E1    EAF0021C A            BAL,15   *:PRINT
    10231   03 016E2    0000175B              DATA     SECTORA
    10232   03 016E3    E8001760              B        *SELCTRTN
    10233                            *
    10234                            *
    10235                            *
    10236                            SELECT90 TEXTC    ;
    10237                             '        SELECTION MATRIX (ALL VALUES ARE IN DECIMAL, UNLESS',;    *BOO
    10238   03 016E4    4F404040 A    ' OTHERWISE SPECIFIED'                                             *BOO
            03 016E5    40404040 A
            03 016E6    40E2C5D3 A
            03 016E7    C5C3E3C9 A
            03 016E8    D6D540D4 A
            03 016E9    C1E3D9C9 A
            03 016EA    E7404DC1 A
            03 016EB    D3D340E5 A
            03 016EC    C1D3E4C5 A
            03 016ED    E240C1D9 A
            03 016EE    C540C9D5 A
            03 016EF    40C4C5C3 A
            03 016F0    C9D4C1D3 A
            03 016F1    6B40E4D5 A
            03 016F2    D3C5E2E2 A
            03 016F3    40D6E3C8 A
            03 016F4    C5D9E6C9 A
            03 016F5    E2C540E2 A
            03 016F6    D7C5C3C9 A
            03 016F7    C6C9C5C4 A
    10239                            SELECT91 TEXTC    ;
    10240   03 016F8    2240E3E3 A    ' TTTTTT            ****     X-AXIS'                               *BOO
            03 016F9    E3E3E3E3 A
            03 016FA    40404040 A
            03 016FB    40404040 A
            03 016FC    40404040 A
            03 016FD    5C5C5C5C A
            03 016FE    40404040 A
            03 016FF    40E760C1 A
            03 01700    E7C9E240 A
    10241                            SELECT93 TEXTC       '(DEC)   *     **  0   *   1   *   2   *   3   *',;
    10242   03 01701    4F4DC4C5 A    '   4   *   5   *   6   *   7   *'
            03 01702    C35D4040 A
            03 01703    405C4040 A
            03 01704    4040405C A
            03 01705    5C4040F0 A
            03 01706    4040405C A
            03 01707    404040F1 A
            03 01708    4040405C A
            03 01709    404040F2 A
            03 0170A    4040405C A
            03 0170B    404040F3 A
            03 0170C    4040405C A
            03 0170D    404040F4 A
            03 0170E    4040405C A
            03 0170F    404040F5 A
            03 01710    4040405C A
            03 01711    404040F6 A
            03 01712    4040405C A
            03 01713    404040F7 A
            03 01714    4040405C A
    10243                            SELECT94 TEXTC    ;
    10244   03 01715    1EE2C5C3 A    'SECT. NO.   SECTOR ERROR TABLE'                                   *C01
            03 01716    E34B40D5 A
            03 01717    D64B4040 A
            03 01718    40E2C5C3 A
            03 01719    E3D6D940 A
            03 0171A    C5D9D9D6 A
            03 0171B    D940E3C1 A
            03 0171C    C2D3C540 A
    10245                            SELECT96 TEXTC    ;
    10246   03 0171D    234DC4C5 A    '(DEC)     O   U   P   T   E   D   A'                              *C01
            03 0171E    C35D4040 A
            03 0171F    404040D6 A
            03 01720    404040E4 A
            03 01721    404040D7 A
            03 01722    404040E3 A
            03 01723    404040C5 A
            03 01724    404040C4 A
            03 01725    404040C1 A
    10247                                     BOUND    8
    10248   03 01726    4040E3D6 A   SELECT97 TEXT     '  TOTAL '
            03 01727    E3C1D340 A
    10249   03 01728    40404040 A   SELECT95 TEXT     '        '
            03 01729    40404040 A
    10250                            SECTOROC TEXTC       ;
    10251   03 0172A    2AC4C5C3 A    'DECIMAL VALUES IN SELECTION MATRIX TABLE, '                       *BOO
            03 0172B    C9D4C1D3 A
            03 0172C    40E5C1D3 A
            03 0172D    E4C5E240 A
            03 0172E    C9D540E2 A
            03 0172F    C5D3C5C3 A
            03 01730    E3C9D6D5 A
            03 01731    40D4C1E3 A
            03 01732    D9C9E740 A
            03 01733    E3C1C2D3 A
            03 01734    C56B4040 A
    10252                            SECTORZ  TEXTC        ;
    10253   03 01735    38C9D5C4 A    'INDICATE ADDRESSES WHERE ACCESSED DATA SHOULD HAVE BEEN.'
            03 01736    C9C3C1E3 A
            03 01737    C540C1C4 A
            03 01738    C4D9C5E2 A
            03 01739    E2C5E240 A
            03 0173A    E6C8C5D9 A
            03 0173B    C540C1C3 A
            03 0173C    C3C5E2E2 A
            03 0173D    C5C440C4 A
            03 0173E    C1E3C140 A
            03 0173F    E2C8D6E4 A
            03 01740    D3C440C8 A
            03 01741    C1E5C540 A
            03 01742    C2C5C5D5 A
            03 01743    4B404040 A
    10254   03 01744    10D6407E A   SECTORO  TEXTC    'O = DATA OVERRUN'
            03 01745    40C4C1E3 A
            03 01746    C140D6E5 A
            03 01747    C5D9D9E4 A
            03 01748    D5404040 A
    10255   03 01749    0CE4407E A   SECTORU  TEXTC    'U = SEC UNVL'
            03 0174A    40E2C5C3 A
            03 0174B    40E4D5E5 A
            03 0174C    D3404040 A
    10256   03 0174D    0CD7407E A   SECTORP  TEXTC    'P = SYNC MSD'
            03 0174E    40E2E8D5 A
            03 0174F    C340D4E2 A
            03 01750    C4404040 A
    10257   03 01751    0AE3407E A   SECTORT  TEXTC    'T = TRANSM'
            03 01752    40E3D9C1 A
            03 01753    D5E2D440 A
    10258   03 01754    06C5407E A   SECTORE  TEXTC    'E = UE'
            03 01755    40E4C540 A
    10259   03 01756    13C4407E A   SECTORD  TEXTC    'D = DATA COMPARISON'
            03 01757    40C4C1E3 A
            03 01758    C140C3D6 A
            03 01759    D4D7C1D9 A
            03 0175A    C9E2D6D5 A
    10260   03 0175B    0EC1407E A   SECTORA  TEXTC    'A = TRACK ADDR'
            03 0175C    40E3D9C1 A
            03 0175D    C3D240C1 A
            03 0175E    C4C4D940 A
    10261   03 0175F    00000000 A   LINE     DATA     0                 ERROR EXISTS IN THIS LINE IF NOT 0
    10262   03 01760    00000000 A   SELCTRTN DATA     0                 RETURN
    10263   03 01761    00000000 A   OCTAL    DATA     0                 OCTAL (Y-AXIS)
    10264                                     PAGE
    10265                            *
    10266                            *
    10267                            *                 *** D A T A ***
    10268                            *
    10269                            *
    10270                            *                 THIS DIRECTIVE WILL ENABLE THE USER TO DEFINE THE
    10271                            *                 DATA PATTERN. IF NOT EXECUTED A PRE-SET DATA PATTERN
    10272                            *                 WILL BE USED BY THE SURFACE TEST.
    10273                            *
    10274                            *                 PARAMETERS:
    10275                            *
    10276                            *                 D1  =  0   FIXED PATTERN; THE PATTERN IS DEFINED BY H2
    10277                            *
    10278                            *                 D1  =  1   INCREMENTAL PATTERN 1; THE SEED FOR THE
    10279                            *                            PATTERN IS DEFINED BY H2, AND THE
    10280                            *                            INCREMENTING CONSTANT IS DEFINED BY D3.
    10281                            *
    10282                            *                 D1  =  2   RANDOM PATTERN; THE SEED FOR THE PATTERN
    10283                            *                            IS DEFINED BY H2.
    10284                            *
    10285                            *                 D1  =  3  SPREAD CURRENT SEEK ADDRESS. THIS OPTION
    10286                            *                            WILL ALLOW THE USER TO SPREAD THE CURRENT
    10287                            *                            RAD ADDRESS AS A DATA PATTERN.
    10288                            *
    10289                            *                 H2  =      THE PATTERN SEED. (D1 = 0,1,2)
    10290                            *                 H3  =       THE INCREMENTING CONSTANT. (D1 =1 ONLY)
    10291                            *                 D4  =      (UNUSED)
    10292                            *
    10293                            *
    10294                            :DATA  ;
    10295   03 01762    35100437              STW,1    DONTREAD          SET THE DON'T READ FLAG
    10296   03 01763    3510030A A            STW,1    :ERPARNO          SET NO OF BAD PARMETER
    10297   03 01764    22600000 A            LI,6     0                 LOAD LOWER LIMIT
    10298   03 01765    22700003 A            LI,7     3                 LOAD UPPER LIMIT
    10299   03 01766    39600201 A            CLR,6    :P1                TEST TYPE OF PATTERN PARAMETER
    10300   03 01767    6960176E              BCS,6    DATAPERR          IF WITHIN LIMITS CONTINUE
    10301   03 01768    3560030A A            STW,6    :ERPARNO          ZERO BAD PARAMETER LOCATION
    10302   03 01769    02200040 A            LCI      4                 LOAD PARAMETERS
    10303   03 0176A    2A400201 A            LM,4     :P1                   P1, P2, P3, P4
    10304   03 0176B    02200040 A            LCI      4                 SAVE PARAMETERS
    10305   03 0176C    2B401771              STM,4    DATAP1                P1, P2, P3,  P4
    10306   03 0176D    E8000214 A            B        *:MONITOR         RETURN TO MONITOR
    10307                            *
    10308   03 0176E    EAF00229 A   DATAPERR BAL,15   *:ERRPARM         GO TO MONITOR TO REPORT BAD PARMETER
    10309   03 0176F    00000328              DATA     :DATADIR
    10310   03 01770    E8000214 A            B        *:MONITOR         RETURN TO THE MONITOR
    10311                            *
    10312   03 01771    00000002 A   DATAP1   DATA     2
    10313   03 01772    544B2FBA A   DATAP2   DATA     1414213562
    10314   03 01773    00000000 A   DATAP3   DATA     0
    10315   03 01774    00000000 A   DATAP4   DATA     0
    10316                                     PAGE
    10317                            *
    10318                            *                 *** S E E K ***
    10319                            *
    10320                            *                 THIS DIRECTIVE DEFINES THE STARTING TRACK AND
    10321                            *                 SECTOR ADDRESS, THE ENDING TRACK AND SECTOR
    10322                            *                 ADDRESS AND THE NUMBER OF SECTORS TO BE TESTED.
    10323                            *
    10324                            *                 THIS DIRECTIVE WILL NOT RESULT IN I/O OPERATION.
    10325                            *                 IT MERELY DEFINES THE RECORDING MEDIA SIZE USED
    10326                            *                 IN THE RANDOM AND SURFACE TEST.
    10327                            *
    10328                            *                 PARAMETERS:
    10329                            *
    10330                            *                   D1 - THE STARTING TRACK ADDRESS
    10331                            *                   D2 - THE STARTING SECTOR ADDRESS
    10332                            *                   D3 - THE ENDING TRACK ADDRESS
    10333                            *                   D4 - THE ENDING SECTOR ADDRESS
    10334                            *
    10335                            *
    10336                            *
    10337                            *
    10338                            *
    10339                            *
    10340                            *
    10341                            *
    10342                            SEEK ;
    10343   03 01775    224FFFFF A            LI,4     -1                INITIALIZE DDT
    10344   03 01776    35401CC9              STW,4    #DDTP                 POINTER TO -1
    10345   03 01777    6AF01CB5     SEEK1    BAL,15   #DDTICMT          UPDATE DDT POINTER
    10346   03 01778    6800179F              B        SEEKSAVE          IF ALL TABLES UPDATED NEXT PHASE
    10347   03 01779    32401CCB              LW,4     #DDTBIAS          LOAD BIAS POINTER
    10348   03 0177A    3520030A A            STW,2    SKDIRNO
    10349   03 0177B    32681CCE              LW,6     SECTORS,4         LOAAD NO. OF SECTORS/TRACK
    10350   03 0177C    31600202 A            CW,6     :P2
    10351   03 0177D    691017AB              BL       SEEKERR
    10352   03 0177E    6620030A A            AWM,2    SKDIRNO
    10353   03 0177F    31600204 A            CW,6     :P4
    10354   03 01780    691017AB              BL       SEEKERR
    10355   03 01781    32900201 A            LW,9     :P1               FETCH 'STARTING TRACK ADDRESS'
    10356   03 01782    32B00203 A            LW,11    :P3               FETCH 'ENDING TRACK ADDRESS'
    10357   03 01783    22800000 A            LI,8     0                 ZERO REG 8
    10358   03 01784    22A00000 A            LI,10    0                 ZERO REG 10
    10359   03 01785    32681CD5              LW,6     SWPROT12,4        LOAD EXISTING LOWER SECTOR LIMIT
    10360   03 01786    37881CCE              MW,8     SECTORS,4         CALCULATE A TEMPORARY LOWER SECOTR =
    10361   03 01787    30900202 A            AW,9     :P2                   (P1 * SECTORS) + P2
    10362   03 01788    32600009 A            LW,6     9                    DON'T TRANSFER CALC. TEMP
    10363                            *                                       LOWER SECTOR TO TEMP. LOWER SECT
    10364   03 01789    31681CD5              CW,6     SWPROT12,4        IF TEMP. LOWER SECTOR
    10365   03 0178A    6810178D              BGE      SEEK2                 IS > EXISTING LOWER SECTOR LIMIT
    10366   03 0178B    3510030A A            STW,1    SKDIRNO              SET P1 IN ERROR
    10367   03 0178C    680017AB              B        SEEKERR               AND GO REPORT PARAMETER ERROR
    10368   03 0178D    32781CD6     SEEK2    LW,7     SWPROT34,4        LOAD EXISTING UPPER SECTOR LIMIT
    10369   03 0178E    37A81CCE              MW,10    SECTORS,4         CALCULATE A TEMPORARY UPPER SECTOR =
    10370   03 0178F    30B00204 A            AW,11    :P4                   (P3 * SECTORS)
    10371   03 01790    3270000B A            LW,7     11                    OTHERWISE USED CALCULATE TEMP
    10372   03 01791    20700001 A            AI,7     1                     UPPER SECTOR + 1
    10373   03 01792    31781CD6              CW,7     SWPROT34,4        IF TEMP. UPPER SECTOR IS
    10374   03 01793    68201796              BLE      SEEK3                 > EXISTING UPPER SECTOR LIMIT
    10375   03 01794    3530030A A            STW,3    SKDIRNO              SET P3 IN ERROR
    10376   03 01795    680017AB              B        SEEKERR               AND GO REPORT PARAMETER ERROR
    10377   03 01796    35681CD7     SEEK3    STW,6    TEMPSEK1,4      SAVE TEMP LOW SECTOR LIMIT
    10378   03 01797    35781CD8              STW,7    TEMPSEK2,4     SAVE TEMP UPPER SECTOR LIMIT
    10379   03 01798    31600007 A            CW,6     7                 IF UPPER LIMIT
    10380   03 01799    69101777              BL       SEEK1                 IS < LOWER LIMIT
    10381   03 0179A    3510030A A            STW,1    SKDIRNO              SET P3 IN ERROR
    10382   03 0179B    33000009 A            MTW,0    9                     CALC LOWER LIMIT WAS = 0
    10383   03 0179C    683017AB              BEZ      SEEKERR               OTHERWISE
    10384   03 0179D    3530030A A            STW,3    SKDIRNO              SET P3 IN ERROR
    10385   03 0179E    680017AB              B        SEEKERR               ERROR
    10386   03 0179F    224FFFFF A   SEEKSAVE LI,4     -1                INITIALIZE DDT
    10387   03 017A0    35401CC9              STW,4    #DDTP                 POINTER TO -1
    10388   03 017A1    35100437              STW,1    DONTREAD          SET DON'T READ FLAG
    10389   03 017A2    6AF01CB5     SEEK4    BAL,15   #DDTICMT          UPDATE DDT POINTER
    10390   03 017A3    E8000214 A            B        *:MONITOR         IF ALL TABLES UPDATED RETURN TO DPM
    10391   03 017A4    22E017A1              LI,14    SEEK4-1           LOAD A RETURN FOR 'TSSTART'
    10392   03 017A5    32401CCB              LW,4     #DDTBIAS          LOAD BIAS POINTER
    10393                            *                                       AND 'SSIZE' CALCULATIONS
    10394   03 017A6    32981CD8              LW,9     TEMPSEK2,4        LOAD TEMP UPPER SECTOR ADDRESS
    10395   03 017A7    32B81CD7              LW,11    TEMPSEK1,4        LOAD TEMP LOWER SECTOR ADDRESS
    10396   03 017A8    35981CD1              STW,9    SUPPER,4          SAVE AS SECTOR UPPER LIMIT
    10397   03 017A9    35B81CD0              STW,11   SLOWER,4          SAVE AS SECTOR LOWER LIMIT
    10398   03 017AA    68000429              B        INITSIZE          GO CALC 'SSIZE' AND 'TSSTART'
    10399                            *
    10400                            *
    10401                            *
    10402   03 017AB    EAF00229 A   SEEKERR  BAL,15   *:ERRPARM         GO REPORT BAD PARAMETER
    10403   03 017AC    0000032A              DATA     :SEEKDIR
    10404   03 017AD    E8000214 A            B        *:MONITOR
    10405                            *
    10406         00 0030A           SKDIRNO  EQU      :ERPARNO
    10407                            *
    10408                            *                                                                   *A01
    10409                            *                 *** M E M O R Y ***                               *A01
    10410                            *                                                                   *A01
    10411                            *                 THIS DIRECTIVE WILL ENABLE THE USER TO DEFINE A   *A01
    10412                            *                 MEMORY AREA THAT WILL BE USED BY THE 'TST2'       *A01
    10413                            *                 AND 'TST3' DIRECTIVES AS AN I/O BUFFER AREA.      *A01
    10414                            *                 IF THIS DIRECTIVE IS NOT EXECUTED OR IS EXECUTED  *A01
    10415                            *                 INCORRECTLY, THE PROGRAM WILL ASSUME ALL          *A01
    10416                            *                 THE MEMORY FROM THE TOP OF THE DIAGNOSTIC         *A01
    10417                            *                 TO THE DPM OR TO 16K (WHICHEVER IS SMALLER)       *A01
    10418                            *                 IS TO BE USED AS AN I/O BUFFER.                   *A01
    10419                            *                 IF THE MEMORY AREA DESCRIBED BY H1 AND H2 IS NOT  *A01
    10420                            *                 BIG ENOUGH (AT LEAST 2 FULL SECTORS OF DATA) OR   *A01
    10421                            *                 NOT AVAILABLE, THE DIRECTIVE WILL REPORT:         *A01
    10422                            *                 'SPECIFIED I/O AREA NOT AVAILABLE'.  THEN IT WILL *A01
    10423                            *                 REPORT WHAT MEMORY AREA IS AVAILABLE AS AN I/O    *A01
    10424                            *                 BUFFER.                                           *A01
    10425                            *                                                                   *A01
    10426                            *                 H1 - FIRST LOCATION OF I/O BUFFER AREA            *A01
    10427                            *                 H2 - LAST LOCATION OF I/O BUFFER AREA             *A01
    10428                            *                                                                   *A01
    10429                            *                                                                   *A01
    10430                            *                                                                   *A01
    10431   03 017AE    229FFFFF A   :MEM     LI,9     -1                INITIALIZE DDT                  *A01
    10432   03 017AF    35901CC9              STW,9    #DDTP                 POINT TO -1                 *A01
    10433   03 017B0    3240022F A            LW,4     :MEMLAST          LOAD ADDR OF LAST MEMORY LOC.   *A01
    10434   03 017B1    204007D0 A            AI,4     2000                                              *A01
    10435   03 017B2    32D0022F A            LW,13    :MEMLAST                                          *A01
    10436   03 017B3    20DFFD00 A            AI,13    -768                                              *A01
    10437   03 017B4    22C01811              LI,12    IOTOP             ADDR OF ADDR OF TOP OF MEMORY   *A01
    10438   03 017B5    6AF01CB5     MEM2     BAL,15   #DDTICMT          UPDATE DDT POINTER              *A01
    10439   03 017B6    680017BD              B        MEM1              IF ALL TABLE TESTED, NEXT STEP  *A01
    10440   03 017B7    32901D37              LW,9     BYTCURR           LOAD CURRENT BYTE COUNT         *A01
    10441   03 017B8    2590007F A            SLS,9    -1                CALC NO. OF WORDS 'N 2 BUFFERS  *A01
    10442   03 017B9    30900201 A            AW,9     :P1               ADD 1ST LOC OF BUFFER AREA      *A01
    10443   03 017BA    31900202 A            CW,9     :P2               IS THIS GREATER THAN UPPER LIMIT*A01
    10444   03 017BB    692017CB              BG       MEMERROR             IF NOT 2 BUFFER: ERROR       *A01
    10445   03 017BC    680017B5              B        MEM2              GO TEST NEXT DDT                *A01
    10446                            *                                                                   *A01
    10447                            *                                                                   *A01
    10448                            *                                                                   *A01
    10449   03 017BD    32A00201 A   MEM1     LW,10    :P1               LOAD 1ST LOC OF BUFFER AREA     *A01
    10450   03 017BE    32B00202 A            LW,11    :P2               LOAD LAST LOC OF BUFFER AREA    *A01
    10451   03 017BF    31400201 A            CW,4     :P1               IS IT NORMAL  MEMORY            *A01
    10452   03 017C0    692017C5              BG       MENORMAL              IF  SO BRANCH               *A01
    10453                            *                                                                   *A01
    10454                            *                                                                   *A01
    10455                            *                                                                   *A01
    10456   03 017C1    31B0022E A            CW,11    :MEMSIZE          IS P2 GREATER THAN              *A01
    10457   03 017C2    692017CB              BG       MEMERROR            THE SIZE OF MEMORY: IF NO-ERR *A01
    10458   03 017C3    22900000 A            LI,9     0                 SET MEMORY FLAG = 0             *A01
    10459   03 017C4    680017CE              B        MEMOK             GO SET UP MEMORY LIMITS         *A01
    10460                            *                                                                   *A01
    10461   03 017C5    31A01813     MENORMAL CW,10    FIRSTLOC          IS P1 GREATER THAN              *A01
    10462   03 017C6    691017CB              BL       MEMERROR            THE END OF DIAG: IF NOT ERROR *A01
    10463   03 017C7    31B0000D A            CW,11    13                IS P2 LESS THAN                 *A01
    10464   03 017C8    692017CB              BG       MEMERROR            THE START OF DMP: IF NOT ERR  *A01
    10465   03 017C9    22900001 A            LI,9     1                 SET MEMORY FLAG = 1             *A01
    10466   03 017CA    680017CE              B        MEMOK             GO SET UP MEMORY LIMITS         *A01
    10467                            *                                                                   *A01
    10468                            *                                                                   *A01
    10469                            *                                                                   *A01
    10470   03 017CB    32A01813     MEMERROR LW,10    FIRSTLOC          LOAD MEMORY LOWER LIMIT         *A01
    10471   03 017CC    32B0022F A            LW,11    :MEMLAST          LOAD MEMORY UPPER LIMIT         *A01
    10472   03 017CD    22900002 A            LI,9     2                 SET MEMORY FLAG = 2             *A01
    10473   03 017CE    02200040 A   MEMOK    LCI      4                 SAVE MEMORY LIMITS              *A01
    10474   03 017CF    2B90180F              STM,9    MEMFLAG              AND FLAGS                    *A01
    10475   03 017D0    21900002 A            CI,9     2                 IF INITIAL LIMIT WHERE          *A01
    10476   03 017D1    E9300214 A            BNE      *:MONITOR             GOOD: EXIT                  *A01
    10477                            *                                                                   *A01
    10478   03 017D2    32C01813              LW,12    FIRSTLOC          LOAD ADDR OF FIRST AVAILABLE LOC*A01
    10479   03 017D3    EAF00218 A            BAL,15   *:HEXC                CONVERT TO HEXC             *A01
    10480   03 017D4    35F01802              STW,15   MEM+5                 FORMAT MSG                  *A01
    10481   03 017D5    EAF00218 A            BAL,15   *:HEXC                CONVERT TO HEXC             *A01
    10482   03 017D6    55F21801              STH,15   MEM+4,1               FORMAT                      *A01
    10483                            *                                                                   *A01
    10484                            *                                                                   *A01
    10485   03 017D7    32C0000D A            LW,12    13                LOAD ADDR OF LAST NORMAL LOC    *A01
    10486   03 017D8    EAF00218 A            BAL,15   *:HEXC                CONVERT TO HEXC             *A01
    10487   03 017D9    55F01805              STH,15   MEM+8                 FORMAT MSG                  *A01
    10488   03 017DA    25F00270 A            SCS,15   -16                   FORMAT MSG                  *A01
    10489   03 017DB    55F21804              STH,15   MEM+7,1               FORMAT MSG                  *A01
    10490   03 017DC    EAF00218 A            BAL,15   *:HEXC                CONVERT TO HEXC             *A01
    10491   03 017DD    55F01804              STH,15   MEM+7                 FORMAT MSG                  *A01
    10492   03 017DE    32C00004 A            LW,12    4                 LOAD ADDITIONAL LOWER LIMIT     *A01
    10493   03 017DF    EAF00218 A            BAL,15   *:HEXC                CONVERT TO HEXC             *A01
    10494   03 017E0    55F0180C              STH,15   MEM+15                FORMAT MSG                  *A01
    10495   03 017E1    25F00270 A            SCS,15   -16                   FORMAT MSG                  *A01
    10496   03 017E2    55F2180B              STH,15   MEM+14,1           FORMAT MSG                     *A01
    10497   03 017E3    EAF00218 A            BAL,15   *:HEXC                CONVERT TO HEXC             *A01
    10498   03 017E4    55F0180B              STH,15   MEM+14             FORMAT MSG                     *A01
    10499   03 017E5    32C0022E A            LW,12    :MEMSIZE          LOAD ADDITIONAL UPPER LIMIT     *A01
    10500   03 017E6    EAF00218 A            BAL,15   *:HEXC                CONVERT TO HEXC             *A01
    10501   03 017E7    35F0180E              STW,15   MEM+17             FORMAT MSG                     *A01
    10502   03 017E8    EAF00218 A            BAL,15   *:HEXC                CONVERT TO HEXC             *A01
    10503   03 017E9    55F2180D              STH,15   MEM+16,1           FORMAT MSG                     *A01
    10504   03 017EA    22C00021 A            LI,12    33                LOAD BYTE COUNT                 *A01
    10505   03 017EB    3140022E A            CW,4     :MEMSIZE          IS IT MORE THAN MEMORY SIZE     *A01
    10506   03 017EC    692017EE              BG       %+2                                               *A01
    10507   03 017ED    22C00047 A            LI,12    71                IF SO PRINT ADDITIONAL          *A01
    10508   03 017EE    75C017FD              STB,12   MEM               SAVE BYTE COUNT                 *A01
    10509   03 017EF    EAF0021C A            BAL,15   *:PRINT           'SPECIFIED I/O AREA NOT AVL'    *A01
    10510   03 017F0    000017F4              DATA     MEMY                                              *A01
    10511   03 017F1    EAF0021C A            BAL,15   *:PRINT           PRINT MSG ON AVAIL MEMORY       *A01
    10512   03 017F2    000017FD              DATA     MEM                                               *A01
    10513   03 017F3    E8000214 A            B        *:MONITOR                                         *A01
    10514                            MEMY     TEXTC    ;                                                 *A01
    10515   03 017F4    20E2D7C5 A    'SPECIFIED I/O AREA NOT AVAILABLE'                                 *A01
            03 017F5    C3C9C6C9 A
            03 017F6    C5C440C9 A
            03 017F7    61D640C1 A
            03 017F8    D9C5C140 A
            03 017F9    D5D6E340 A
            03 017FA    C1E5C1C9 A
            03 017FB    D3C1C2D3 A
            03 017FC    C5404040 A
    10516                            MEM      TEXTC    ;                                                 *A01
    10517                                                 'NORMAL I/O AREA  XXXXXX TO XXXXXX, ',;        *A01
    10518   03 017FD    47D5D6D9 A    'ADDITIONAL I/O AREA XXXXXX TO XXXXXX'                             *C01
            03 017FE    D4C1D340 A
            03 017FF    C961D640 A
            03 01800    C1D9C5C1 A
            03 01801    4040E7E7 A
            03 01802    E7E7E7E7 A
            03 01803    40E3D640 A
            03 01804    E7E7E7E7 A
            03 01805    E7E76B40 A
            03 01806    C1C4C4C9 A
            03 01807    E3C9D6D5 A
            03 01808    C1D340C9 A
            03 01809    61D640C1 A
            03 0180A    D9C5C140 A
            03 0180B    E7E7E7E7 A
            03 0180C    E7E740E3 A
            03 0180D    D640E7E7 A
            03 0180E    E7E7E7E7 A
    10519   03 0180F    00000001 A   MEMFLAG  DATA     1                 0=ADDITIONAL,1=NORMAL,2=ERROR   *C01
    10520   03 01810    00002418     IOBOTTOM DATA     BUF1LO            FIRST AVAIL I/O LOCATION        *A01
    10521   03 01811    00000000 A   IOTOP    DATA     0                 LAST AVAIL I/O LOC. FOR ADDIT   *A01
    10522   03 01812    0000022F A   IOTOPNT  DATA     :MEMLAST          ADDR OF LAST AVAIL MEM LOC      *A01
    10523   03 01813    00002418     FIRSTLOC DATA     BUF1LO            FIRST AVAILABLE MEM LOC         *A01
    10524   03 01814    0000022F A   :MEMLST  DATA     :MEMLAST          LAST AVAILABLE MEM LOC          *A01
    10525                            *                 *** L I M I T ***                                 *A01
    10526                            *                                                                   *A01
    10527                            *                 THIS DIRECTIVE ALLOWS THE USER TO LIMIT THE       *A01
    10528                            *                 PROGRAM PRINTOUTS AS SPECIFIED BY D1 AND D2.      *A01
    10529                            *                                                                   *A01
    10530                            *                 D1 = 1  LIMIT COMPARE ERROR PRINTOUTS/SECTOR TO   *A01
    10531                            *                         THE VALUE EXPRESSED BY D2.                *A01
    10532                            *                   D2 = 0 PRINTOUT WILL NOT BE LIMITED.            *A01
    10533                            *                   D2 =>  VALUE PRINTOUT WILL BE LIMITED TO.       *A01
    10534                            *                                                                   *A01
    10535                            *                 D1 = 2   PASS COUNT.                              *B01
    10536                            *                   D2 = 0 INHIBIT PRINTOUT OF PASS COUNTER.        *B01
    10537                            *                   D2 > 0 NUMBER OF PASSES AFTER WHICH ACCUMULATED *B01
    10538                            *                          PASS COUNT WILL PRINT OUT.               *B01
    10539                            *                   D3 = N TOTAL NUMBER OF PASSES TO BE COMPLETED.  *B01
    10540                            *                                                                   *A01
    10541                            LIMT ;                                                              *A01
    10542   03 01815    3510030A A            STW,1    :ERPARNO          SET PARAMETER ERROR NO.         *A01
    10543   03 01816    31100201 A            CW,1     :P1               IF = 1                          *A01
    10544   03 01817    6830181D              BE       :LIM1                 CONTINUE                    *A01
    10545   03 01818    31200201 A            CW,2     :P1               IF = 2                          *B01
    10546   03 01819    68301822              BE       :LIM2               CONTINUE                      *B01
    10547   03 0181A    EAF00229 A   :L1M0    BAL,15   *:ERRPARM         REPORT P1                       *A01
    10548   03 0181B    0000032E              DATA     :LIMTDIR              BAD                         *A01
    10549   03 0181C    E8000214 A            B        *:MONITOR         EXIT                            *A01
    10550   03 0181D    32C00202 A   :LIM1    LW,12    :P2               LOAD LIMIT COUNT                *A01
    10551   03 0181E    69201820              BGZ      %+2                   IF GREATER THAN ZERO: BRANCH*A01
    10552   03 0181F    32C02408              LW,12    =X'7FFFFFFF'          OTHERWISE FORCE TO LARGE NO.*A01
    10553   03 01820    35C02156              STW,12   :COMPLIM          SAVE AS COMPARE LIMIT           *A01
    10554   03 01821    E8000214 A            B        *:MONITOR         EXIT                            *A01
    10555   03 01822    32C00202 A   :LIM2    LW,12    :P2               LOAD PRINT FLAG                 *B01
    10556   03 01823    35C0183E              STW,12   :PASSPFL                                          *B01
    10557   03 01824    32C00203 A            LW,12    :P3               LOAD PASS COUNT                 *B01
    10558   03 01825    35C0183F              STW,12   :PASSCNT                                          *B01
    10559   03 01826    E8000214 A            B        *:MONITOR         EXIT                            *B01
    10560                            *                                                                   *B01
    10561                            *        *** PASS CONTROL HANDLER ***                               *B01
    10562                            *                                                                   *B01
    10563   03 01827    35F01841     :PASSC   STW,15   :PASSRTN          SAVE EXIT ADR                   *B01
    10564   03 01828    3300183E              MTW,0    :PASSPFL          TEST PRINT FLAG                 *B01
    10565   03 01829    68201839              BLEZ     :PASSC1           B: BYPASS PRINTING              *B01
    10566   03 0182A    22C00000 A            LI,12    0                                                 *B01
    10567   03 0182B    32D01840              LW,13    :PASSCUR          IS CURRENT PASS A MULTIPLE      *B01
    10568   03 0182C    36C0183E              DW,12    :PASSPFL            OF PRINT REQUEST.             *B01
    10569   03 0182D    21C00000 A            CI,12    0                 CHECK REMAINDER                 *B01
    10570   03 0182E    69301839              BCS,3    :PASSC1           B: BYPASS PRINTING              *B01
    10571   03 0182F    32C0185E              LW,12    ITHTEST           FETCH TEST ID                   *B01
    10572   03 01830    EAF00218 A            BAL,15   *:HEXC                                            *B01
    10573   03 01831    75F01843              STB,15   :PASSMSG+1        ENTER INTO MSG                  *B01
    10574   03 01832    32C01840              LW,12    :PASSCUR          FETCH PASS COUNT                *B01
    10575   03 01833    EAF00217 A            BAL,15   *:DECC                                            *B01
    10576   03 01834    35F01848              STW,15   :PASSMSG+6        ENTER INTO MSG                  *B01
    10577   03 01835    EAF00217 A            BAL,15   *:DECC                                            *B01
    10578   03 01836    35F01847              STW,15   :PASSMSG+5        ENTER INTO MSG                  *B01
    10579   03 01837    EAF0021C A            BAL,15   *:PRINT                                           *B01
    10580   03 01838    00001842              DATA     :PASSMSG          'TSTX - PASS COUNT N'           *B01
    10581   03 01839    32C01840     :PASSC1  LW,12    :PASSCUR          FETCH PASS COUNT                *B01
    10582   03 0183A    31C0183F              CW,12    :PASSCNT          TEST FOR LAST COUNT             *B01
    10583   03 0183B    E8121841              BGE      *:PASSRTN,1       END OF PASSES                   *B01
    10584   03 0183C    33101840              MTW,1    :PASSCUR          INCR PASS CNT                   *B01
    10585   03 0183D    E8001841              B        *:PASSRTN                                         *B01
    10586                            *                                                                   *B01
    10587   03 0183E    00000000 A   :PASSPFL DATA     0                 PRINT FLAG                      *B01
    10588                            *                                     PRINT IF POSITIVE             *B01
    10589   03 0183F    00000000 A   :PASSCNT DATA     0                 NO. OF REQ. PASSES              *B01
    10590   03 01840    00000000 A   :PASSCUR DATA     0                 CURRENT PASS COUNT              *B01
    10591   03 01841    00000000 A   :PASSRTN DATA     0                 RETURN ADR.                     *B01
    10592   03 01842    1BE3E2E3 A   :PASSMSG TEXTC    'TSTX - PASS COUNT  XXXXXXXX'                     *B01
            03 01843    E7406040 A
            03 01844    D7C1E2E2 A
            03 01845    40C3D6E4 A
            03 01846    D5E34040 A
            03 01847    E7E7E7E7 A
            03 01848    E7E7E7E7 A
    10593                            *
    10594                            *             *** INTERRUPT/TRAP HANDLER ***                        *BOO
    10595                            *                                                                   *BOO
    10596                            * PARAMETERS REQ'D:                                                 *BOO
    10597                            * ----------------                                                  *BOO
    10598                            *   ITHTEST - TEST BEING PERFORMED (1=TST1,2=TST2,3=TST3)           *BOO
    10599                            *   ITHSUBT - SUBTEST BEING PERFORMED (TST1 ONLY)                   *BOO
    10600                            *   ITHRST  - RESTART ADDRESS                                       *BOO
    10601                            *                                                                   *BOO
    10602   03 01849    35F01861     ITHDLR   STW,15   ITHSAVE           SAVE RETURN ADDRESS             *BOO
    10603   03 0184A    35100437              STW,1    DONTREAD                                          *B03
    10604   03 0184B    32C0185E              LW,12    ITHTEST           TEST NUMBER                     *BOO
    10605   03 0184C    EAF00218 A            BAL,15   *:HEXC            CONVERT TO EBCDIC               *BOO
    10606   03 0184D    75F21863              STB,15   ITHM2+1,1         ENTER INTO MSG                  *BOO
    10607   03 0184E    EAF0021C A            BAL,15   *:PRINT                                           *BOO
    10608   03 0184F    00001862              DATA     ITHM2             'TSTX WILL BE RESTARTED'        *BOO
    10609   03 01850    3110185E              CW,1     ITHTEST           TST1?                           *BOO
    10610   03 01851    69301857              BNE      %+6               NO                              *BOO
    10611   03 01852    32C0185F              LW,12    ITHSUBT           SUBTEST NUMBER                  *BOO
    10612   03 01853    EAF00217 A            BAL,15   *:DECC            CONVERT TO EBCDIC               *BOO
    10613   03 01854    55F2186B              STH,15   ITHM3+3,1         ENTER INTO MSG                  *BOO
    10614   03 01855    EAF0021C A            BAL,15   *:PRINT                                           *BOO
    10615   03 01856    00001868              DATA     ITHM3             'SUBTEST NO. XX'                *BOO
    10616   03 01857    32C01D35              LW,12    :DEVADDR          DEVICE ADDRESS                  *BOO
    10617   03 01858    EAF00218 A            BAL,15   *:HEXC            CONVERT TO EBCDIC               *BOO
    10618   03 01859    35F0186F              STW,15   ITHM4+3           ENTER INTO MSG                  *BOO
    10619   03 0185A    EAF0021C A            BAL,15   *:PRINT                                           *BOO
    10620   03 0185B    0000186C              DATA     ITHM4             'DEVICE NO.XXXX'                *BOO
    10621   03 0185C    32F01860              LW,15    ITHRST            (R15)=RESTART ADDRESS           *BOO
    10622   03 0185D    E8001861              B        *ITHSAVE          RETURN TO DPM INTER/TRAP HANDLER*BOO
    10623                            *                                                                   *BOO
    10624   03 0185E    00000000 A   ITHTEST  DATA     0                                                 *BOO
    10625   03 0185F    00000000 A   ITHSUBT  DATA     0                                                 *BOO
    10626   03 01860    00000000 A   ITHRST   DATA     0                                                 *BOO
    10627   03 01861    00000000 A   ITHSAVE  DATA     0                                                 *BOO
    10628   03 01862    1740E3E2 A   ITHM2    TEXTC    ' TSTX WILL BE RESTARTED'                         *BOO
            03 01863    E3E740E6 A
            03 01864    C9D3D340 A
            03 01865    C2C540D9 A
            03 01866    C5E2E3C1 A
            03 01867    D9E3C5C4 A
    10629   03 01868    0F40E2E4 A   ITHM3    TEXTC    ' SUBTEST NO. XX'                                 *BOO
            03 01869    C2E3C5E2 A
            03 0186A    E340D5D6 A
            03 0186B    4B40E7E7 A
    10630   03 0186C    0F40C4C5 A   ITHM4    TEXTC    ' DEVICE NO.XXXX'                                 *BOO
            03 0186D    E5C9C3C5 A
            03 0186E    40D5D64B A
            03 0186F    E7E7E7E7 A
    10631   03 01870    00000000 A   WATCHERR DATA     0                 CURRENT FUNCTIONAL ERROR NO.
    10632   03 01871    00000000 A   WHDOGRTN DATA     0
    10633                                     PAGE
    10634                            *
    10635                            *
    10636                            *                 *** R A N D O M  E X E R C I S E R ***
    10637                            *
    10638                            *                 *** T S T 2 , D 1 , D 2 ***
    10639                            *
    10640                            *                 THIS DIRECTIVE PROVIDES A MEANS OF OPERATING A
    10641                            *                 RAD STORAGE SYSTEM WITH PSEUDO RANDOM, STORAGE
    10642                            *                 UNIT SELECTION, ORDER SEQUENCE, DATA PATTERN, AND
    10643                            *                 I/O BUFFER AREA, FOR THE PURPOSE OF DETECTING
    10644                            *                 INTERMITTENT FAILURES.  THE RECORDING MEDIA WILL
    10645                            *                 BE INITIALIZED WITH A PSEUDO RANDOM PATTERN BEFORE
    10646                            *                 THE EXERCISER PORTION OF THE TEST IS ENTERED.
    10647                            *                 ONCE STARTED, THE EXERCISER WILL RUN FOR (D1)
    10648                            *                 CYCLES OR UNTIL TERMINATED BY THE OPERATOR.
    10649                            *                 THE RANDOM EXERCISER WILL REPORT ERRORS AS THEY
    10650                            *                 OCCUR, BUT ONLY AS TO THE FUNCTION THAT FAILED.
    10651                            *                 THE RANDOM EXERCISER PROVIDES NO LOOP ON ERROR
    10652                            *                 CAPABILITY.  THIS DIRECTIVE WILL BE EXECUTED FOR
    10653                            *                 ALL STORAGE UNITS SPECIFIED BY THE 'SYST' DIRECTIVE.
    10654                            *
    10655                            *                 TEST VARIATIONS:
    10656                            *                 THE 'DATA' DIRECTIVE NOT BE EFFECTIVE FOR THE
    10657                            *                 RANDOM EXERCISER.  THE SURFACE AREA TO BE TESTED
    10658                            *                 CAN BE LIMITED WITH THE 'SEEK' DIRECTIVE.
    10659                            *
    10660                            *                 PARAMETERS:
    10661                            *
    10662                            *                 D1 - NUMBER OF CYCLES TO BE PERFORMED.
    10663                            *
    10664                            *                 D2 - NUMBER OF RETRIES ON AN ERROR, BEFORE
    10665                            *                       GOING ON TO NEXT PASS.
    10666                            *
    10667                            *
    10668                            *
    10669   03 01872    35101840     TST2     STW,1    :PASSCUR          INIT. PASS COUNTER              *B01
    10670   03 01873    32600201 A            LW,6     :P1               FETCH AND SAVE                  *B01
    10671   03 01874    69301876              BCS,3    %+2                                               *B03
    10672   03 01875    22601388 A            LI,6     5000               DEFAULT TO 5000 CYCLES         *B03
    10673   03 01876    3560199B              STW,6    CYCLE                 NO. OF PASSES
    10674   03 01877    32600202 A            LW,6     :P2               FETCH AND SAVE
    10675   03 01878    3560199A              STW,6    TST2PAR+2             NO. OF RETRIES ON ERROR
    10676   03 01879    226FFFF5 A            LI,6     RTRACETOP-RTRACEBOT
    10677   03 0187A    22700000 A            LI,7     0
    10678   03 0187B    357C19AF              STW,7    RTRACEBOT,6
    10679   03 0187C    6560187B              BIR,6    %-1
    10680   03 0187D    22600000 A            LI,6     0                 ZERO
    10681   03 0187E    35601EED              STW,6    #MSGLEVL          ZERO MESSAGE LEVEL
    10682   03 0187F    6AF01887              BAL,15   TST2LEV2          GO TO LEVEL 2
    10683   03 01880    6AF01827              BAL,15   :PASSC            TEST PASS AND PRINT             *B01
    10684   03 01881    68001873              B        TST2+1                                            *B01
    10685   03 01882    EAF0021D A            BAL,15   *:SENSE           GO TEST SENSE SWITCHES
    10686   03 01883    2E001883              WAIT     %                 SS3 - OFF SS1 - UNK (HLT AFTER TEST)
    10687   03 01884    68001872              B        TST2              SS3 - ON  SS1 - ON  (LOOP ON TEST)
    10688   03 01885    35100437              STW,1    DONTREAD
    10689   03 01886    E8000214 A            B        *:MONITOR         SS3 - ON  SS1 - OFF (RTN TO MONITOR)
    10690                            *
    10691                            *                 COMPREHENSIVE TEST ENTRY (LEVEL 2)
    10692                            *
    10693   03 01887    35F0199C     TST2LEV2 STW,15   TST2RTN1          SAVE RTN TO LEVEL 1
    10694   03 01888    3520185E              STW,2    ITHTEST           TST2 ID                         *BOO
    10695   03 01889    22801888              LI,8     TST2LEV2+1                                        *BOO
    10696   03 0188A    35801860              STW,8    ITHRST            RESTART ADDR                    *BOO
    10697   03 0188B    22801849              LI,8     ITHDLR            ADDR OF TRAP/INTER              *BOO
    10698   03 0188C    3580030F A            STW,8    :PIT15            HANDLER ROUTINE                 *BOO
    10699   03 0188D    02200040 A            LCI      4                     AND
    10700   03 0188E    2A801994              LM,8     TST2DATA          FETCH
    10701   03 0188F    2B801BE4              STM,8    TST3PAT               SAVE TYPE OF
    10702   03 01890    35901CC8              STW,9    RADSEED           STORE A RANDOM NO,
    10703   03 01891    35101999              STW,1    TST2PAR+1                                         *B03
    10704   03 01892    22E01998              LI,14    TST2PAR               DATA PATTERN
    10705   03 01893    6AF019D1              BAL,15   TST3RAND          GO DO SURFACE TEST
    10706   03 01894    22600324              LI,6     :TST2DIR          LOAD AND SAVE
    10707   03 01895    35601EFF              STW,6    :MSGADDR              THE ADDR OF NAME OF DIRECTIVE
    10708   03 01896    3310199B              MTW,1    CYCLE             ADD 1 TO NO OF CYCLES TO DO
    10709   03 01897    35100437              STW,1    DONTREAD          SET DON'T READ FLAG             *A01
    10710   03 01898    6AF0189F              BAL,15   TST2LEV3          GO TO LEVEL 3
    10711   03 01899    22000000 A            LI,0     0                                                 *B03
    10712   03 0189A    35000437              STW,0    DONTREAD                                          *B03
    10713   03 0189B    35201999              STW,2    TST2PAR+1                                         *B03
    10714   03 0189C    22E01998              LI,14    TST2PAR                                           *B03
    10715   03 0189D    6AF019D1              BAL,15   TST3RAND                                          *B03
    10716   03 0189E    E800199C              B        *TST2RTN1         GO TO LEVEL 1
    10717                            *
    10718                            *                 RANDOM TESTING  (LEVEL 3)
    10719                            *
    10720   03 0189F    35F0199D     TST2LEV3 STW,15   TST2RTN2          SAVE RTN ADDR TO LEVEL 2
    10721                            *
    10722                            *
    10723   03 018A0    33F0199B     TST2LOOP MTW,-1   CYCLE              DECREMENT NO OF PASSES
    10724   03 018A1    E830199D              BEZ      *TST2RTN2         IF ZERO RTN TO LEVEL 2
    10725                            *
    10726                            *
    10727                            *
    10728   03 018A2    6AF018A5              BAL,15   TST2LEV4          GO BUILD RANDOM I/O CONTROL TABLES
    10729   03 018A3    6AF01A48              BAL,15   IOCONT            GO DO I/O
    10730   03 018A4    680018A0              B        TST2LOOP          GO TO TOP OF LOOP
    10731                            *
    10732                            *
    10733                            *
    10734   03 018A5    35F0199E     TST2LEV4 STW,15   TST2RTN3          SAVE RETURN ADDRESS
    10735   03 018A6    6AF01CAD              BAL,15   #DDTRADM          GO FIND A RANDOM DEVICE
    10736   03 018A7    680018A8              B        %+1
    10737   03 018A8    6AF018B4              BAL,15   TST2LEV5          FIND SECTORS AND BYTE COUNT
    10738   03 018A9    6AF01A2E              BAL,15   BUILDIOC          GO BUILD IOCD WORD
    10739   03 018AA    22000000 A            LI,0     0                 LOAD ZERO                       *A01
    10740   03 018AB    35101BFB              STW,1    READVERY          SET READ VERIFICATION FLAG
    10741   03 018AC    35202162              STW,2    :PATID            SET RANDOM PATTERN
    10742                            *
    10743                            *
    10744                            *
    10745                            *
    10746                            *
    10747   03 018AD    32702034              LW,7     :SEED             FETCH RANDOM WORD
    10748   03 018AE    22600000 A            LI,6     0                 ZERO
    10749   03 018AF    22900008 A            LI,9     IOCDS1-IOCDS       LOAD TABLE LENGTH
    10750   03 018B0    36600009 A            DW,6     9                 FIND RANDOM ROUTINE
    10751   03 018B1    356019A2              STW,6    PASSTYPE          SAVE TYPE OF RANDOM PASS
    10752   03 018B2    670C18F5              EXU      IOCDS,6           GO DO A RANDOM FURNCTION
    10753                            *
    10754   03 018B3    E800199E              B        *TST2RTN3         RETURN TO CALLING ROUTINE
    10755                            *
    10756                            *
    10757                            *         LEVEL 5
    10758                            *
    10759                            *
    10760   03 018B4    35F0199F     TST2LEV5 STW,15   TST2RTN4          SAVE RETURN ADDRESS
    10761   03 018B5    331019A4              MTW,1    RTRACEL50
    10762   03 018B6    32E01CC8              LW,14    RADSEED           FETCH THE RANDOM NO.
    10763   03 018B7    6AF02026              BAL,15   :RANDOM           GENERATE A NEW RANDOM NO.
    10764   03 018B8    35E01CC8              STW,14   RADSEED           SAVE THE NEW RANDOM NO.
    10765   03 018B9    32F0000E A            LW,15    14                LOAD RANDOM ON. INTO LSB'>
    10766   03 018BA    683018B7              BEZ      %-3               IF ZERO GET ANOTHER RANDOM NO.
    10767   03 018BB    22E00000 A            LI,14    0                 ZERO MSB'S OF BOUBLEWORD
    10768   03 018BC    32A01D3A              LW,10    SSIZEC
    10769   03 018BD    20A00001 A            AI,10    1                 INCREMENT BY 1
    10770   03 018BE    36E0000A A            DW,14    10                DIVIDE TO OBTAIN REMAINDER
    10771   03 018BF    3300000E A            MTW,0    14                TEST FOR A ZERO
    10772   03 018C0    683018B5              BEZ      TST2LEV5+1        SECTOR SIZE
    10773   03 018C1    6AF01C46              BAL,15   MEMORY            GO CALC MEMORY SIZE
    10774   03 018C2    E800199C              B        *TST2RTN1         RTN HERE IF NO MEMORY IS AVAILABLE
    10775   03 018C3    32B01CA4              LW,11    BUFAVAIL          LOAD NO. OF BUFFERS AVAILABLE   *A01
    10776   03 018C4    31B0000E A            CW,11    14                TEST AGAINST RANDOM SECTOR COUNT
    10777   03 018C5    691018C7              BL       %+2               IF LESS BRANCH
    10778   03 018C6    32B0000E A            LW,11    14                 IF NOT LOAD NEW SECTOR COUNT
    10779   03 018C7    35B019A1              STW,11   MAXSECT           SAVE AS THE MAXIMUM NO. OF SECTORS
    10780   03 018C8    22A00000 A            LI,10    0                 ZERO THE MSB'S OF DOUBLEWORD
    10781   03 018C9    37A01D37              MW,10    BYTCURR
    10782   03 018CA    21B10000 A            CI,11    X'10000'          TEST FOR BYTE COUNT > 64K       *A01
    10783   03 018CB    682018D1              BLE      %+6               IF LESS THAN 64K BYTES, BRANCH  *A01
    10784   03 018CC    22A00000 A            LI,10    0                 IF GREATER                      *A01
    10785   03 018CD    22B10000 A            LI,11    X'10000'             FORCE                        *A01
    10786   03 018CE    36A01D37              DW,10    BYTCURR              TO SOME VALUE                *A01
    10787   03 018CF    22A00000 A            LI,10    0                    LESS THAN                    *A01
    10788   03 018D0    37A01D37              MW,10    BYTCURR              64K BYTES                    *A01
    10789   03 018D1    30B01CA7              AW,11    BUF1LOBA          ADD MEMORY LOWER LIMIT          *A01
    10790   03 018D2    35B01CA6              STW,11   MEMLSTBA          SAVE AS ADDR OF LAST BYTE
    10791   03 018D3    38B01CA7              SW,11    BUF1LOBA          SUB MEMORY LOWER LIMIT          *A01
    10792   03 018D4    32F01CC8              LW,15     RADSEED          FETCH RANDOM NO.
    10793   03 018D5    22E00000 A            LI,14    0                 ZERO MSB'S OF DOUBLE WORD
    10794   03 018D6    36E0000B A            DW,14    11                R = NO. OF BYTES IN PATTERN
    10795                            *
    10796                            *
    10797                            *
    10798   03 018D7    331019A5              MTW,1    RTRACEL51
    10799   03 018D8    32F0000E A            LW,15    14
    10800   03 018D9    683018B5              BEZ      TST2LEV5+1
    10801   03 018DA    22E00000 A            LI,14    0
    10802   03 018DB    36E01D37              DW,14    BYTCURR
    10803   03 018DC    3300000F A            MTW,0    15
    10804   03 018DD    693018DF              BNEZ     %+2               IF SECTOR COUNT = 0
    10805   03 018DE    22F00001 A            LI,15    1                 LOAD SECTOR COUNT OF ONE
    10806   03 018DF    35F01CA4              STW,15   BUFAVAIL          SAVE NO. OF BUFFERS AVAIL       *A01
    10807   03 018E0    331019A6              MTW,1    RTRACEL52
    10808   03 018E1    35F019A0              STW,15   TSPREAD
    10809                            *
    10810                            *
    10811   03 018E2    22E00000 A            LI,14    0
    10812   03 018E3    37E01D37              MW,14    BYTCURR
    10813   03 018E4    35F01CA1              STW,15    BUFLENGT                                         *A01
    10814   03 018E5    32A01CA6              LW,10    MEMLSTBA          FETCH ENDING BYTE ADDRESS
    10815   03 018E6    38A0000F A            SW,10    15
    10816   03 018E7    35A01CA7              STW,10   BUF1LOBA          SAVE LOWER LIMIT BYTE ADDR
    10817   03 018E8    35A01CA2              STW,10   BUFINAD           SAVE BUFFERS STARTING ADDR      *A01
    10818   03 018E9    32A01D39              LW,10    SURFCEND
    10819   03 018EA    38A019A1              SW,10    MAXSECT
    10820   03 018EB    22E00000 A            LI,14    0                 LOAD ZERO
    10821   03 018EC    38A01D38              SW,10    CURRSEEK          SUBTRACT WORDS
    10822   03 018ED    683018F0              BEZ      %+3               IF ZERO SKIP CALCULATION
    10823   03 018EE    32F01CC8              LW,15    RADSEED           LOAD RANDOM SEED
    10824   03 018EF    36E0000A A            DW,14    10                FIND THE NO. OF AVAILABLE SECTORS
    10825   03 018F0    30E01D38              AW,14    CURRSEEK
    10826   03 018F1    35E01D38              STW,14   CURRSEEK          SET UP SEEK ADDRESS
    10827   03 018F2    30E019A0              AW,14    TSPREAD
    10828   03 018F3    35E01D39              STW,14   SURFCEND          **  SECTOR ENDING ADDRESS
    10829   03 018F4    E800199F              B        *TST2RTN4         RETURN TO CALLING ROUTINE
    10830                            *
    10831                            *
    10832         03 018F5           IOCDS    SET      %
    10833   03 018F5    6AF018FD              BAL,15   STOP
    10834                            *
    10835   03 018F6    6AF0190D              BAL,15   SKCCWRT
    10836                            *
    10837   03 018F7    6AF01922              BAL,15   SKCRD02
    10838                            *
    10839   03 018F8    6AF01934              BAL,15   SENSE
    10840                            *
    10841   03 018F9    6AF01952              BAL,15   READ12
    10842                            *
    10843   03 018FA    6AF01962              BAL,15   READ02
    10844                            *
    10845   03 018FB    6AF01970              BAL,15   WRTDWRT
    10846                            *
    10847   03 018FC    6AF0198E              BAL,15   REDDRED
    10848         03 018FD           IOCDS1   SET      %
    10849                                     PAGE
    10850                            *
    10851                            *
    10852                            *        S T O P  O R D E R
    10853   03 018FD    1280190A     STOP     LD,8     IOCD00            FETCH IOCD
    10854   03 018FE    331019A7              MTW,1    RTRACE00
    10855   03 018FF    35101CA0              STW,1    SURORDER          LOAD TYPE OF OPERATION
    10856   03 01900    30801CA2              AW,8     BUFINAD           LOAD BUFFER ADDRESS IOCD
    10857   03 01901    15801C9A              STD,8    IOCDATA           SAVE IOCD
    10858   03 01902    32801CA4              LW,8     BUFAVAIL           LOAD THE NO. OF AVAILABLE BUFFER
    10859   03 01903    55821B15              STH,8    SECINCMT,1        SET UP COUNT
    10860   03 01904    55821B14              STH,8    BUFINCMT,1        SET UP COUNT
    10861   03 01905    3260190C              LW,6     STOPAIO            LOAD EXPECTED AIO STATUS
    10862   03 01906    35601CAA              STW,6    EXDATAIO          SAVED EXPECTED AIO STATUS
    10863   03 01907    32602409              LW,6     L(X'FFEFC001')
    10864   03 01908    35601CA8              STW,6    MASK              SET UP MASK STORAGE
    10865   03 01909    E800000F A            B        *15               RETURN TO CALLING ROUTINE
    10866                            *
    10867                            *
    10868                                     BOUND    8
    10869   03 0190A    00000000 A   IOCD00   GEN,8,24 X'00',0
    10870   03 0190B    1C000003 A            GEN,8,24 X'1C',3
    10871   03 0190C    00084000 A   STOPAIO  DATA     X'00084000'
    10872                                     PAGE
    10873                            *
    10874                            *
    10875                            *                 S E E K - C C - W R I T E
    10876                            *
    10877                            SKCCWRT ;
    10878   03 0190D    331019A8              MTW,1    RTRACE01
    10879   03 0190E    35101CA0              STW,1    SURORDER          LOAD TYPE OF OPERATION
    10880   03 0190F    1280191E              LD,8     IOCD01            FETCH THE WRITE IOCD
    10881   03 01910    30801CA2              AW,8     BUFINAD           ADD TO IF THE STARTING ADDRESS
    10882   03 01911    30901CA1              AW,9     BUFLENGT          ADD IN THE BYTE COUNT
    10883   03 01912    15801C9A              STD,8    IOCDATA           SAVE DOUBLE WORD
    10884   03 01913    12801920              LD,8     IOCD10            LOAD COMMAND CHAINING SEEK
    10885   03 01914    15801C98              STD,8    IOCSEEK1          STORE THIS DOUBLEWORD
    10886   03 01915    32801CA4              LW,8     BUFAVAIL          LOAD NO. OF BUFFERS AVAILABLE
    10887   03 01916    55821B15              STH,8    SECINCMT,1        SET UP COUNTERS
    10888   03 01917    55821B14              STH,8    BUFINCMT,1        SET UP COUNTERS
    10889   03 01918    350019A3              STW,0    RDMPATTM          STORE RANDOM PATTERN
    10890   03 01919    35001C03              STW,0    IOCDPNT           SET UP ONLY 1 IOCD OPERATION
    10891   03 0191A    32801A47              LW,8     EXDTAIO           LOAD AND SAVE
    10892   03 0191B    35801CA9              STW,8    EXSEKAIO          SET UP EXPECTED AIO STATUS
    10893   03 0191C    E800000F A            B        *15               GO BACK TO RANDOM ROUTINE
    10894                            *
    10895                            *
    10896                                     BOUND    8
    10897   03 0191E    01000000 A   IOCD01   GEN,8,24 X'01',0           SAVE WRITE
    10898   03 0191F    1C000000 A            GEN,8,24 X'1C',0           SAV
    10899   03 01920    03004FEA     IOCD10   GEN,8,24 X'03',BA(SEEKRAD)+2
    10900   03 01921    2C000002 A            GEN,8,24 X'2C',2
    10901                                     PAGE
    10902                            *
    10903                            *                 S E E K  -  C C  -  R E A D  1 2
    10904                            *
    10905                            *
    10906                            SKCRD02 ;
    10907   03 01922    331019A9              MTW,1    RTRACE02
    10908   03 01923    35201CA0              STW,2    SURORDER          SET READ TEST FLAG
    10909   03 01924    12801932              LD,8     IOCD02            FETCH THE READ 02 IOCD
    10910   03 01925    30801CA2              AW,8     BUFINAD           ADD TO IT, THE STARTING BYTE ADDR
    10911   03 01926    30901CA1              AW,9     BUFLENGT          ADD NO. OF BYTES
    10912   03 01927    15801C9A              STD,8    IOCDATA           SET UP IOCD
    10913   03 01928    12801920              LD,8     IOCD10            LOAD COMMAND CHAINING SEEK
    10914   03 01929    15801C98              STD,8    IOCSEEK1          STORE THIS DOUBLEWORD
    10915   03 0192A    35001C03              STW,0    IOCDPNT           SET UP A ONLY 1 IOCD OPERATION
    10916   03 0192B    32801A47              LW,8     EXDTAIO           LOAD AND SAVE
    10917   03 0192C    35801CA9              STW,8    EXSEKAIO              EXPECTED AIO STATUS
    10918   03 0192D    32801CA4              LW,8     BUFAVAIL          SET UP COUNTERS
    10919   03 0192E    55821B14              STH,8    BUFINCMT,1        SET UP COUNTERS
    10920   03 0192F    55821B15              STH,8    SECINCMT,1        SET UP COUNTERS
    10921   03 01930    33000000 A            MTW,0    0
    10922   03 01931    E800000F A            B        *15               GO BACK TO RAMDOM ROUTINE
    10923                                     BOUND    8
    10924   03 01932    12000000 A   IOCD02   GEN,8,24 X'12',0
    10925   03 01933    1C000000 A            GEN,8,24 X'1C',0
    10926                                     PAGE
    10927                            *
    10928                            *                 S E N S E
    10929                            *
    10930                            *
    10931                            SENSE ;
    10932   03 01934    331019AA              MTW,1    RTRACE03
    10933   03 01935    22800004 A            LI,8     4                 LOAD AND SAVE
    10934   03 01936    35801CA0              STW,8    SURORDER          TYPE OF OPERATION
    10935   03 01937    12801950              LD,8     IOCD03            FETCH THE SENSE IOCD
    10936   03 01938    30801CA2              AW,8     BUFINAD           ADD TO IT, THE STARTING BYTE ADDR
    10937   03 01939    20800002 A            AI,8     2                 NOW ADJUST TO A HALF WORD BOUND
    10938   03 0193A    22707212 A            LI,7     X'7212'           LOAD THE MODEL NO. OF HIGH SPEED RAD
    10939   03 0193B    75360009 A            STB,3    9,3
    10940   03 0193C    31701D34              CW,7     MODELC            TEST MODEL NO.                  *BOO
    10941   03 0193D    69301940              BNE      %+3
    10942   03 0193E    22700004 A            LI,7     4
    10943   03 0193F    75760009 A            STB,7    9,3
    10944   03 01940    15801C9A              STD,8    IOCDATA           SET UP IOCD
    10945   03 01941    4B8023FD              AND,8    =X'00FFFFFF'      REMOVE ORDER                    *A01
    10946   03 01942    35801CA7              STW,8    BUF1LOBA          SET LOWER BYTE ADDRESS
    10947   03 01943    35801CA2              STW,8    BUFINAD           SET UP BUFFER IN ADDRESS
    10948   03 01944    2580007E A            SLS,8   -2                 FIND WORD ADDRESS
    10949   03 01945    B5000008 A            STW,0    *8                ZERO SENSE LOCATION
    10950   03 01946    B5020008 A            STW,0    *8,1              ZERO SENSE LOCATION
    10951   03 01947    32701D35              LW,7     :DEVADDR          LOAD DEVICE ADDR
    10952   03 01948    D5700008 A            STH,7    *8                SET UP BYTE ADDR
    10953   03 01949    32801CA4              LW,8     BUFAVAIL          SET UP COUNTERS
    10954   03 0194A    55821B15              STH,8    SECINCMT,1        SET UP COUNTERS
    10955   03 0194B    32801A47              LW,8     EXDTAIO           LOAD AND SAVE
    10956   03 0194C    35801CAA              STW,8    EXDATAIO          EXPECTED AIO STATUS
    10957   03 0194D    3510215B              STW,1    :COMWCNT          SAVE NO. OF WORDS TO BE COMPARED
    10958   03 0194E    35302162              STW,3    :PATID
    10959   03 0194F    E800000F A            B        *15               GO BACK TO RAMDOM ROUTINE
    10960                                     BOUND    8
    10961   03 01950    04000000 A   IOCD03   GEN,8,24 X'04',0
    10962   03 01951    1C000003 A            GEN,8,24 X'1C',3
    10963                                     PAGE
    10964                            *
    10965                            *                 R E A D  1 2
    10966                            *
    10967                            *
    10968                            READ12 ;
    10969   03 01952    331019AB              MTW,1    RTRACE04
    10970   03 01953    22800012 A            LI,8     X'12'             LOAD AND SAVE
    10971   03 01954    35801CA0              STW,8    SURORDER          TYPE OF ORDER
    10972   03 01955    12801960              LD,8     IOCD04            FETCH THE READ 12 IOCD
    10973   03 01956    30801CA2              AW,8     BUFINAD           ADD TO, THE STARTING BYTE ADDR
    10974   03 01957    30901CA1              AW,9     BUFLENGT          ADD NO. OF BYTES
    10975   03 01958    15801C9A              STD,8    IOCDATA           SET UP IOCD
    10976   03 01959    32801CA4              LW,8     BUFAVAIL          SET UP COUNTERS
    10977   03 0195A    55821B14              STH,8    BUFINCMT,1        SET UP COUNTERS
    10978   03 0195B    55821B15              STH,8    SECINCMT,1        SET UP COUNTERS
    10979   03 0195C    32801A47              LW,8     EXDTAIO           LOAD AND SAVE
    10980   03 0195D    35801CAA              STW,8    EXDATAIO              EXPECTED AIO STATUS
    10981   03 0195E    E800000F A            B        *15               GO BACK TO RANDOM ROUTINE
    10982                                     BOUND    8
    10983   03 01960    12000000 A   IOCD04   GEN,8,24 X'12',0
    10984   03 01961    1C000000 A            GEN,8,24 X'1C',0
    10985                                     PAGE
    10986                            *
    10987                            *                 R E A D  0 2
    10988                            *
    10989                            *
    10990                            READ02 ;
    10991   03 01962    331019AC              MTW,1    RTRACE05
    10992   03 01963    35201CA0              STW,2    SURORDER          LOAD AND SAVE TYPE OF ORDER
    10993   03 01964    1280196E              LD,8     IOCD05            FETCH THE READ 02 IOCD
    10994   03 01965    30801CA2              AW,8     BUFINAD           ADD TO, THE STARTING BYTE ADDR
    10995   03 01966    30901CA1              AW,9     BUFLENGT          ADD NO. OF BYTES
    10996   03 01967    15801C9A              STD,8    IOCDATA           SET UP IOCD
    10997   03 01968    32801CA4              LW,8     BUFAVAIL          SET UP COUNTERS
    10998   03 01969    55821B15              STH,8    SECINCMT,1         SET UP COUNTERS
    10999   03 0196A    55821B14              STH,8    BUFINCMT,1        SET UP COUNTERS
    11000   03 0196B    32801A47              LW,8     EXDTAIO           LOAD AND SAVE
    11001   03 0196C    35801CAA              STW,8    EXDATAIO              EXPECTED AIO STATUS
    11002   03 0196D    E800000F A            B        *15
    11003                                     BOUND    8                 GO BACK TO RANDOM ROUTINE
    11004   03 0196E    02000000 A   IOCD05   GEN,8,24 X'02',0
    11005   03 0196F    1C000000 A            GEN,8,24 X'1C',0
    11006                                     PAGE
    11007                            *
    11008                            *                 W R I T E - D C - W R I T E
    11009                            *
    11010                            *
    11011                            WRTDWRT ;
    11012   03 01970    331019AD              MTW,1    RTRACE06
    11013   03 01971    350019A3              STW,0    RDMPATTM          STORE RANDOM PATTERN
    11014   03 01972    35101CA0              STW,1    SURORDER          LOAD AND SAVE TYPE OF ORDER
    11015   03 01973    1280198C              LD,8     IOCD06            FETCH THE WRITE IOCD
    11016   03 01974    30801CA2     WRTDWRT1 AW,8     BUFINAD           ADD TO IT, THE STARTING BYTE ADDR
    11017   03 01975    15801C9A              STD,8    IOCDATA           SET UP IOCD'S
    11018   03 01976    15801C9C              STD,8    IOCDATA+2         SET UP IOCD'S
    11019   03 01977    32601CA4              LW,6     BUFAVAIL          FETCH NO. OF BUFFER AREAS AVAILABLE
    11020   03 01978    2560027F A            SCS,6    -1                DIVIDE BY 2
    11021   03 01979    32900006 A            LW,9     6                 SAVE BYTE COUNT IN REG 9
    11022   03 0197A    4B902408              AND,9    L(X'7FFFFFFF')
    11023   03 0197B    22800000 A            LI,8     0                 ZERO 8
    11024   03 0197C    37801D37              MW,8     BYTCURR           MULTPLY BY NO. OF BYTES/SECTORS
    11025   03 0197D    66901C9D              AWM,9    IOCDATA+3         SAVE RESULTS IN IOCD DATA 2
    11026   03 0197E    33000006 A            MTW,0    6                 TEST FOR REMAINDER
    11027   03 0197F    68101981              BGEZ     %+2               IF NONE BRANCH
    11028   03 01980    30901D37              AW,9     BYTCURR           ADD IN 1 MORE BUFFER
    11029   03 01981    66901C9B              AWM,9    IOCDATA+1         SAVE IN IOCD DATA 1
    11030   03 01982    66901C9C              AWM,9    IOCDATA+2         UPDATE BYTE ADDRESS STARTING ADDR
    11031   03 01983    32B023E8              LW,11    L(X'80000000')    LOAD DATA CHAINING FLAG
    11032   03 01984    53020006 A            MTH,0    6,1               IF MORE THAN 1 BUFFER
    11033   03 01985    68301987              BEZ      %+2
    11034   03 01986    66B01C9B              AWM,11   IOCDATA+1         SET DATA CHAINING FLAG
    11035   03 01987    32801CA4              LW,8     BUFAVAIL          SET UP COUNTERS
    11036   03 01988    55821B15              STH,8    SECINCMT,1        SET UP COUNTERS
    11037   03 01989    55821B14              STH,8    BUFINCMT,1        SET UP COUNTERS
    11038   03 0198A    E800000F A            B        *15
    11039                                     BOUND    8
    11040   03 0198C    01000000 A   IOCD06   GEN,8,24 X'01',0
    11041   03 0198D    1C000000 A            GEN,8,24 X'1C',0
    11042                                     PAGE
    11043                            *
    11044                            *                 R E A D - D C - R E A D
    11045                            *
    11046                            *
    11047                            REDDRED ;
    11048   03 0198E    331019AE              MTW,1    RTRACE07
    11049   03 0198F    12801992              LD,8     IOCD07            FETCH THE READ IOCD
    11050   03 01990    35201CA0              STW,2    SURORDER          SET READ FLAG
    11051   03 01991    68001974              B        WRTDWRT1
    11052                                     BOUND    8                 GO TO WRITE ROUTINE FOR SET UP
    11053   03 01992    12000000 A   IOCD07   GEN,8,24 X'12',0
    11054   03 01993    1C000000 A            GEN,8,24 X'1C',0
    11055                                     PAGE
    11056   03 01994    00000002 A   TST2DATA DATA     2                 RANDOM DATA
    11057   03 01995    544B2FBA A            DATA     1414213562        PSEUDORANDOM NUMBER
    11058   03 01996    00000000 A            DATA     0                 ZERO
    11059   03 01997    00000000 A            DATA     0                 ZERO
    11060   03 01998    00000001 A   TST2PAR  DATA     1                 SURFACE TEST
    11061   03 01999    00000001 A            DATA     1                 WRITE/READ COMMAND
    11062   03 0199A    00000000 A            DATA     0                 NO. OF RETRIES ON ERROR
    11063   03 0199B    00000000 A   CYCLE    DATA     0                 NO. OF CYCLES TO BE DONE
    11064   03 0199C    00000000 A   TST2RTN1 DATA     0                 RTN ADDR TO LEVEL 1
    11065   03 0199D    00000000 A   TST2RTN2 DATA     0                 RTN ADDR TO LEVEL 2
    11066   03 0199E    00000000 A   TST2RTN3 DATA     0                 RTN ADDR TO LEVEL 3
    11067   03 0199F    00000000 A   TST2RTN4 DATA     0
    11068   03 019A0    00000000 A   TSPREAD  DATA     0
    11069   03 019A1    00000000 A   MAXSECT  DATA     0
    11070   03 019A2    00000000 A   PASSTYPE DATA     0                 TYPE OF RANDOM PASS IT IS
    11071   03 019A3    00000000 A   RDMPATTM DATA     0                 IF ZERO BUILD ALL I/O BUFFERS IMMED
    11072                            RTRACETOP ;
    11073         03 019A4                    SET      %
    11074   03 019A4    00000000 A   RTRACEL50 DATA    0
    11075   03 019A5    00000000 A   RTRACEL51 DATA    0
    11076   03 019A6    00000000 A   RTRACEL52 DATA    0
    11077   03 019A7    00000000 A   RTRACE00 DATA     0
    11078   03 019A8    00000000 A   RTRACE01 DATA     0
    11079   03 019A9    00000000 A   RTRACE02 DATA     0
    11080   03 019AA    00000000 A   RTRACE03 DATA     0
    11081   03 019AB    00000000 A   RTRACE04 DATA     0
    11082   03 019AC    00000000 A   RTRACE05 DATA     0
    11083   03 019AD    00000000 A   RTRACE06 DATA     0
    11084   03 019AE    00000000 A   RTRACE07 DATA     0
    11085                            RTRACEBOT ;
    11086         03 019AF                    SET      %
    11087                                     PAGE
    11088                            *
    11089                            *                 *** U T I L I T Y  T E S T ***
    11090                            *
    11091                            *                 *** T S T 3 , D 1 , D 2 , D 3 ***
    11092                            *
    11093                            *                 THIS DIRECTIVE ALLOWS THE USER TO SELECT THE UTILITY
    11094                            *                 TESTS BY SPECIFYING IN PARAMETER 1 THE DESIRED TEST.
    11095                            *                 PARAMETER 2,3, AND 4 APPLY TO THE SPECIFIC UTILITY
    11096                            *                 TESTS.
    11097                            *
    11098                            *                 TEST VARIATIONS CAN BE SPECIFIED WITH THE 'D A T A'
    11099                            *                 AND 'S E E K' DIRECTIVES TO SELECT THE DATA PATTERN
    11100                            *                 AND THE SURFACE AREA RESPECTIVELY.
    11101                            *
    11102                            *                 THE UTILITY TEST ROUTINES ARE DESCRIBED BELOW
    11103                            *                 ALONG WITH THE PARAMETER VALUE OF (D1).
    11104                            *                 UNLESS SPECIFICALLY INDICATED IN THE DESCRIPTION
    11105                            *                 OF THE SUBTESTS, PARAMETERS (D2), (D3), AND (D4)
    11106                            *                 ARE NOT APPLICABLE.
    11107                            *
    11108                            *                    PARAMETER D1 (DI =1)
    11109                            *                    D1 = 1  SURFACE
    11110                            *
    11111                            *                    THIS TEST DIRECTIVE WILL PERFORM A SURFACE TEST
    11112                            *                    OF THE RECORDING SURFACE OF THE RAD STORAGE UNIT.
    11113                            *                    THIS TEST WILL BE EXECUTED FOR ALL STORAGE UNITS
    11114                            *                    SPECIFIED BY THE 'SYST' DIRECTIVE.
    11115                            *
    11116                            *                    TEST VARIATION
    11117                            *
    11118                            *                    THE 'DATA' AND 'SEEK' DIRECTIVE CAN BE SELECTED
    11119                            *                    TO ALTER THE PREDEFINED PATTERN AND SURFACE AREA.
    11120                            *
    11121                            *                    ANYTIME A 'SYST','SEEK' OR A 'DATA' DIRECTIVE
    11122                            *                    IS EXECUTED A 'WRITE AND READ' (D2=0) OR A
    11123                            *                    'WRITE'(D2=1), MUST BE EXECUTED BEFORE A
    11124                            *                    'READ' (D2=2), OR A 'CHECKWRITE' (D2=4) MAY
    11125                            *                    BE EXECUTED.
    11126                            *
    11127                            *                    PARAMETER D2    (0=<D2=<4)
    11128                            *
    11129                            *                    D2 = 0  WRITE AND READ (VERIFY DATA)
    11130                            *
    11131                            *                    D2 = 1  WRITE ONLY
    11132                            *
    11133                            *                    D2 = 2  READ ONLY (VERIFY DATA)
    11134                            *
    11135                            *                    D2 = 3  READ ONLY (NO DATA VERIFICATION)
    11136                            *
    11137                            *                    D2 = 4  CHECKWRITE
    11138                            *
    11139                            *
    11140                            *                    PARAMETER D3   (0=<D2 NO UPPER LIMIT)
    11141                            *
    11142                            *                    D3 =    NUMBER OF RETRIES ON AN ERROR BEFORE
    11143                            *                            GOING ON TO NEXT PASS.
    11144                            *
    11145                            *                    PARAMETER D4   (0=<D4 NO UPPER LIMIT)          *A01
    11146                            *                                                                   *A01
    11147                            *                    D4 = NO. OF READS AFTER A WRITE (D2 = 0 ONLY)  *A01
    11148                            *
    11149                            *
    11150         03 019AF           TST3P1T1 SET      %
    11151   03 019AF    6AF019AF              BAL,15   %
    11152   03 019B0    6AF019E8              BAL,15   SURFACE           ADDRESS OF THE SURFACE TESTS
    11153         03 019B0           TST3P1T2 SET      %-1
    11154                            *
    11155                            *
    11156         03 019B1           TST3P2T1 SET      %
    11157   03 019B1    6AF01A11              BAL,15   WRTRED            D2 = WRITE AND READ TEST
    11158   03 019B2    6AF01A04              BAL,15   WRTONLY           D2 = 1 WRITE ONLY
    11159   03 019B3    6AF01A08              BAL,15   REDONLY            D2 = 2 READ ONLY (VERIFY DATA)
    11160   03 019B4    6AF01A0B              BAL,15   READONLY          D2=3 READ ONLY (NO VERIFY DATA)
    11161   03 019B5    6AF01A0E              BAL,15   CHKWRITE          D2 = 4 CHECKWRITE
    11162         03 019B5           TST3P2T2 SET      %-1
    11163         03 019B6           TST3P3T1 SET      %
    11164                            *                                   INSERT PARAMETER 3 INFORMATION
    11165         03 019B6           TST3P3T2 SET      %
    11166                            *
    11167                            *
    11168         03 019B6           TST3P4T1 SET      %
    11169                            *                                   INSERT PARAMETER 4 INFORMATION
    11170                            *
    11171         03 019B6           TST3P4T2 SET      %
    11172                            *
    11173                            *
    11174                            TST3 ;
    11175   03 019B6    22E00201 A            LI,14    :P1               LOAD ADDRESS OF PARAMETERS
    11176   03 019B7    02200040 A            LCI      4                     LOAD
    11177   03 019B8    2A801771              LM,8     DATAP1                AND
    11178   03 019B9    31100202 A            CW,1     :P2               CHECK FOR A WRITE               *A01
    11179   03 019BA    691019BD              BL       %+3               IF NOT SKIP UPDATING DATA AREA  *A01
    11180   03 019BB    02200040 A            LCI      4                     SAVE
    11181   03 019BC    2B801BE4              STM,8    TST3PAT               PATTERN TYPE
    11182   03 019BD    3530185E              STW,3    ITHTEST           TST3 ID                         *BOO
    11183   03 019BE    220019B6              LI,0     TST3                                              *B03
    11184   03 019BF    35001860              STW,0    ITHRST            RESTART ADR                     *BOO
    11185   03 019C0    22001849              LI,0     ITHDLR            ADDR OF TRAP/INTER              *BOO
    11186   03 019C1    3500030F A            STW,0    :PIT15            HANDLER ROUTINE                 *BOO
    11187   03 019C2    35101840     TST32    STW,1    :PASSCUR                                          *B03
    11188   03 019C3    22000000 A            LI,0     0                                                 *B03
    11189   03 019C4    35001EED              STW,0    #MSGLEVL          SET MSG LEVEL =0
    11190   03 019C5    31201BE4              CW,2     TST3PAT           TEST FOR RANDOM PATTERN         *A01
    11191   03 019C6    693019CA              BNE      %+4               IF NOT RANDOM SKIP              *A01
    11192   03 019C7    31100202 A            CW,1     :P2               CHECK FOR WRITE                 *A01
    11193   03 019C8    691019CA              BL       %+2               IF NOT SKIP                     *A01
    11194   03 019C9    33701BE5              MTW,7    TST3PAT+1         CHANGE RANDOM PATTER            *A01
    11195   03 019CA    6AF019D1              BAL,15   TST3RAND          GO TO DO ULITITY TEST
    11196   03 019CB    6AF01827              BAL,15   :PASSC            TEST PASS AND PRINT             *B01
    11197   03 019CC    680019C3              B        TST32+1                                           *B03
    11198   03 019CD    EAF0021D A            BAL,15   *:SENSE           GO TEST SENSE SWITCHES
    11199   03 019CE    2E0019CE              WAIT     %                 SS3 - OFF SS1 - UNK (HALT AFTER TEST
    11200   03 019CF    680019C2              B        TST32
    11201   03 019D0    E8000214 A            B        *:MONITOR         SS3 - ON  SS1 - OFF (RTN TO MONITOR)
    11202                            *
    11203                            *
    11204                            *
    11205   03 019D1    15E019E6     TST3RAND STD,14   TST3PARM          SAVE PARAMETER POINTER & RTN ADDR
    11206   03 019D2    22E00326              LI,14    :TST3DIR          LOAD ADDRESS OF DIRECTIVE NAME
    11207   03 019D3    35E01EFF              STW,14   :MSGADDR          SAVE ADDRESS OF DIRECTIVE NAME
    11208   03 019D4    3510030A A            STW,1    :ERPARNO          SET P1 IS IN ERROR
    11209   03 019D5    22600001 A            LI,6     1                 LOAD LOWER LIMIT OF P1
    11210   03 019D6    22700001 A            LI,7     TST3P1T2-TST3P1T1  *   UPPER   *    * P1
    11211   03 019D7    B96019E6              CLR,6    *TST3PARM         TEST TO SEE LIMITS AREN'T EXCEEDED
    11212   03 019D8    696019E3              BCS,6    SURPERR           IF THEY ARE BAD RTN
    11213                            *
    11214                            *
    11215   03 019D9    3520030A A            STW,2    :ERPARNO          SET P2 IN ERROR
    11216   03 019DA    22600000 A            LI,6     0                 LOAD LOWER LIMIT OF P2
    11217   03 019DB    22700004 A            LI,7     TST3P2T2-TST3P2T1 LOAD UPPER LIMIT OF P2
    11218   03 019DC    B96219E6              CLR,6    *TST3PARM,1       TEST TO SEE LIMITS AREN'T EXCEEDED
    11219   03 019DD    696019E3              BCS,6    SURPERR           IF THEY ARE BAD RTN
    11220   03 019DE    3560030A A            STW,6    :ERPARNO
    11221   03 019DF    B26019E6              LW,6     *TST3PARM,0       LOAD TYPE OF TEST
    11222   03 019E0    670C19AF              EXU      TST3P1T1,6        BRANCH TO REQUESTED TEST
    11223   03 019E1    12E019E6              LD,14    TST3PARM          RESTORE REG 14 & 15
    11224   03 019E2    E80019E7              B        *TST3EXIT         RETURN TO CALLING ROUTINE
    11225                            *
    11226                            *
    11227                            *
    11228   03 019E3    EAF00229 A   SURPERR  BAL,15   *:ERRPARM         GO AND REPORT BAD PARAMETER
    11229   03 019E4    00000326              DATA     :TST3DIR
    11230   03 019E5    E8000214 A            B        *:MONITOR         RETURN TO MONITOR
    11231                                     BOUND    8
    11232   03 019E6    00000000 A   TST3PARM DATA     0                 PARAMETER POINTER
    11233   03 019E7    00000000 A   TST3EXIT DATA     0                 RETURN ADDRESS
    11234                            *
    11235                            *                 S U R F A C E  T E S T  ( P 1 = 1 )
    11236                            *
    11237   03 019E8    35F01A02     SURFACE  STW,15   SURRTN            SAVE RETURN ADDRESS
    11238   03 019E9    224FFFFF A            LI,4     -1                INITIALIZE DDT
    11239   03 019EA    35401CC9              STW,4    #DDTP                 POINTER TO -1
    11240   03 019EB    B26419E6              LW,6     *TST3PARM,2       LOAD AND SAVE
    11241   03 019EC    35601BF8              STW,6    MAXERR                MAXIMUM NO. OF RETRIES ON ERROR
    11242   03 019ED    6AF01CB5     SURFACE2 BAL,15   #DDTICMT          UPDATE DDT POINTER
    11243   03 019EE    E8001A02              B        *SURRTN           IF ALL DEVICES TEST RETURN
    11244   03 019EF    B25219E6              LW,5     *TST3PARM,1       LOAD CONTENTS OF P2 INTO REG 5
    11245   03 019F0    670A19B1              EXU      TST3P2T1,5        BRANCH TO REQUESTED TEST
    11246   03 019F1    680019ED              B        SURFACE2          GO TEST NEXT DEVICE
    11247                            *
    11248   03 019F2    EAF0021C A   NOPAT    BAL,15   *:PRINT           GO TO PRINT ROUTINE
    11249   03 019F3    000019F5              DATA     NOPATTN           ADDRESS OF MESSAGE
    11250   03 019F4    E8001A02              B        *SURRTN           EXIT FROM THE SURFACE TEST
    11251                            *
    11252                            *
    11253                            *
    11254                            *
    11255   03 019F5    33D5D640 A   NOPATTN  TEXTC    'NO PATTERN WRITTEN, DO TST3,1,1  TO WRITE A PATTERN'
            03 019F6    D7C1E3E3 A
            03 019F7    C5D9D540 A
            03 019F8    E6D9C9E3 A
            03 019F9    E3C5D56B A
            03 019FA    40C4D640 A
            03 019FB    E3E2E3F3 A
            03 019FC    6BF16BF1 A
            03 019FD    4040E3D6 A
            03 019FE    40E6D9C9 A
            03 019FF    E3C540C1 A
            03 01A00    40D7C1E3 A
            03 01A01    E3C5D9D5 A
    11256   03 01A02    00000000 A   SURRTN   DATA     0
    11257   03 01A03    00000000 A   SURFACE3 DATA     0
    11258                            *
    11259                            *                 W R I T E  O N L Y
    11260                            *
    11261   03 01A04    22D00000 A   WRTONLY  LI,13    0                 NO READ VERIFICATION
    11262   03 01A05    22E00001 A            LI,14    X'01'             WRITE ORDER
    11263   03 01A06    35100437              STW,1    DONTREAD          SET DON'T READ FLAG             *A01
    11264   03 01A07    68001A1D              B        SURPAT            GO TO SURFACE TEST
    11265                            *
    11266                            *                 R E A D  O N L Y  ( V E R I F Y  D A T A )
    11267                            *
    11268   03 01A08    22D00001 A   REDONLY  LI,13    1                 READ VERIFICATION OF DATA
    11269   03 01A09    22E00002 A            LI,14    X'02'             READ ORDER                      *A01
    11270   03 01A0A    68001A1D              B        SURPAT            GO TO SURFACE TEST
    11271                            *
    11272                            *                 R E A D  O N L Y   ( N O  D A T A  V E R I F I C A T )
    11273                            *
    11274   03 01A0B    22D00000 A   READONLY LI,13    0                 NO READ VERIFICATION
    11275   03 01A0C    22E00002 A            LI,14    X'02'             READ ORDER                      *A01
    11276   03 01A0D    68001A1D              B        SURPAT            GO TO SURFACE TEST
    11277                            *
    11278                            *                 C H E C K W R I T E
    11279                            *
    11280   03 01A0E    22D00001 A   CHKWRITE LI,13    1                 READ VERIFICATION OF DATA
    11281   03 01A0F    22E00005 A            LI,14    X'05'             CHECKWRITE ORDER
    11282   03 01A10    68001A1D              B        SURPAT            GO TO SURFACE TEST
    11283                            *
    11284                            *                 W R I T E / R E A D  T E S T
    11285                            *                                                                   *A01
    11286                            WRTRED ;                                                            *A01
    11287   03 01A11    6AF01A04              BAL,15   WRTONLY           GO DO A WRITE
    11288   03 01A12    32E00204 A            LW,14    :P4               LOAD READ LOOP COUNT            *A01
    11289   03 01A13    35E01CA3              STW,14   READLOOP          SAVE READ LOOP COUNT            *A01
    11290                            WRTRED1 ;                                                           *A01
    11291   03 01A14    32401CCB              LW,4     #DDTBIAS
    11292   03 01A15    32581CD0              LW,5     SLOWER,4
    11293   03 01A16    35501D38              STW,5    CURRSEEK
    11294   03 01A17    6AF01A08              BAL,15   REDONLY           GO DO A READ                    *A01
    11295   03 01A18    68001A1A              B        %+2                                               *A01
    11296   03 01A19    680019F2              B        NOPAT                                             *A01
    11297   03 01A1A    33F01CA3              MTW,-1   READLOOP          UPDATE READ LOOP COUNTER        *A01
    11298   03 01A1B    682019ED              BLEZ     SURFACE2          EXIT                            *A01
    11299   03 01A1C    68001A14              B        WRTRED1           LOOP                            *A01
    11300                                     PAGE
    11301                            *
    11302                            *
    11303                            *                 S U R F A C E  T E S T I N G
    11304                            *
    11305                            *
    11306                            *
    11307                            *                 THIS ROUTINE HANDLES ALL I/O OPERATIONS TO AND
    11308                            *                 FROM THE DEVICE DURING THE SURFACE TEST.
    11309   03 01A1D    35F01BFD     SURPAT   STW,15   SURTN1            SAVE RETURN ADDRESS
    11310   03 01A1E    35E01CA0              STW,14   SURORDER          SAVE ORDER IN BYTE 3
    11311   03 01A1F    75E01A44              STB,14   OPERIOCD          SAVE BYTE IN IOCD
    11312   03 01A20    35D01BFB              STW,13   READVERY          SAVE READ VERIFY FLAG VER =1
    11313   03 01A21    33001BFB              MTW,0    READVERY          GO TEST THE READ VERIFY FLAG
    11314   03 01A22    68301A25              BEZ      SURPAT01          IF NO READ VERIFICATION OR WRITE BNH
    11315   03 01A23    33000437              MTW,0    DONTREAD          IF WRITE NOT DONE
    11316   03 01A24    E9321BFD              BNEZ     *SURTN1,1            RETURN IN ERROR
    11317                            *
    11318                            *
    11319   03 01A25    02200040 A   SURPAT01 LCI      4
    11320   03 01A26    2A601BE4              LM,6     TST3PAT
    11321   03 01A27    2B602162              STM,6    :PATID
    11322                            *
    11323                            *
    11324                            *
    11325                            *
    11326                            *
    11327                            *
    11328   03 01A28    6AF01C46              BAL,15   MEMORY            GO CALC MEMORY SIZE
    11329   03 01A29    E80019E7              B        *TST3EXIT         RTN HERE IF NO MEMORY IS AVAILABLE
    11330   03 01A2A    6AF01A2E              BAL,15   BUILDIOC          GO SET UP PARAMETERS            *A01
    11331   03 01A2B    6AF01A48              BAL,15   IOCONT            GO DO I/O                       *A01
    11332   03 01A2C    CF001D35              HIO,0    *:DEVADDR         CLEAR/RESET DEVICE              *A01
    11333   03 01A2D    E8001BFD              B        *SURTN1           GOOD RETURN                     *A01
    11334                            *                                                                   *A01
    11335                            *                                                                   *A01
    11336                            *                                                                   *A01
    11337                            BUILDIOC ;                                                          *A01
    11338   03 01A2E    32601D37              LW,6     BYTCURR           FETCH CURRENT NO. OF BYTES
    11339   03 01A2F    2560007E A            SLS,6    -2                FIND NO OF WORDS/SECTOR
    11340   03 01A30    3560215B              STW,6    :COMWCNT          SAVE PATTERN LENGTH
    11341   03 01A31    32601A46              LW,6     EXSKAIO           LOAD EXPECTED SEEK STATUS
    11342   03 01A32    35601CA9              STW,6    EXSEKAIO          EXPECTED STATUS
    11343   03 01A33    32601A47              LW,6     EXDTAIO           LOAD AND SAVE
    11344   03 01A34    35601CAA              STW,6    EXDATAIO               EXPECTED DATA AIO STATUS
    11345   03 01A35    3260240A              LW,6     L(X'FFFFC001')    LOAD RECEIVED STATUS MASK
    11346   03 01A36    35601CA8              STW,6    MASK              SET UP MASK STORAGE
    11347   03 01A37    12601A42              LD,6     SEEKIOCD          LOAD SEEK IOCD
    11348   03 01A38    15601C98              STD,6    IOCSEEK1             SEEK IOCD
    11349   03 01A39    12601A44              LD,6     OPERIOCD          LOAD DATA IOCD
    11350   03 01A3A    30601CA2              AW,6     BUFINAD           ADD BUFFER STARTING BYTE ADDR   *A01
    11351   03 01A3B    30701D37              AW,7     BYTCURR           ADD BYTE COUNT                  *A01
    11352   03 01A3C    15601C9A              STD,6    IOCDATA           SAVE DATA IOCD
    11353   03 01A3D    55121B14              STH,1    BUFINCMT,1        LOAD BUFFER INCREMENTING COUNT
    11354   03 01A3E    55121B15              STH,1    SECINCMT,1        LOAD SECTOR INCREMENT COUNT
    11355   03 01A3F    35101C03              STW,1    IOCDPNT           SET AS A TWO IOCD OPERATION
    11356   03 01A40    351019A3              STW,1    RDMPATTM          STORE WORD
    11357   03 01A41    E800000F A            B        *15                                               *A01
    11358                            *
    11359                            *
    11360                                     BOUND    8
    11361   03 01A42    03004FEA     SEEKIOCD GEN,8,24 X'03',BA(SEEKRAD)+2
    11362   03 01A43    1C000002 A            GEN,8,24 X'1C',2
    11363   03 01A44    00000000 A   OPERIOCD GEN,8,24 0,0
    11364   03 01A45    1C000000 A            GEN,8,24 X'1C',0
    11365   03 01A46    00100000 A   EXSKAIO  DATA     X'00100000'
    11366   03 01A47    00100000 A   EXDTAIO  DATA     X'00100000'
    11367                                     PAGE
    11368                            *
    11369                            *
    11370                            *
    11371   03 01A48    35F01BF3     IOCONT   STW,15   WRITTEN           SAVE RETURN ADDRESS
    11372   03 01A49    226FFFEF A            LI,6     TRACETOP-TRACEBOT
    11373   03 01A4A    22700000 A            LI,7     0
    11374   03 01A4B    357C1C1A              STW,7    TRACEBOT,6
    11375   03 01A4C    65601A4B              BIR,6    %-1
    11376   03 01A4D    22B00000 A            LI,11    0                 INITIALIZE THE FOLLOWING:
    11377   03 01A4E    35B01C04              STW,11   IOERAIO1
    11378   03 01A4F    35B01C05              STW,11   IOERAIO2
    11379   03 01A50    35B01C06              STW,11   IOERSIO1
    11380   03 01A51    35B01C07              STW,11   IOERSIO2
    11381   03 01A52    35B01BF9              STW,11   COMPERR
    11382   03 01A53    3510215C              STW,1    :COMFLAG          SET THE DON'T PRINT ON COMPARE FLAG
    11383   03 01A54    35101BF7              STW,1    ENDOPER           INTIIALIZE END OF OPERATION FLAG
    11384   03 01A55    32801BFE              LW,8     XPSDSEEK          LOAD AND
    11385   03 01A56    3580005C A            STW,8    X'5C'                 STORE XPSD FOR I/O INTERRUPT
    11386   03 01A57    32801C00              LW,8     XPSDCAL1          LOAD AND SAVE XPXD FOR
    11387   03 01A58    35800048 A            STW,8    X'48'             CALL 1 INTERRUPT
    11388   03 01A59    32801C01              LW,8     XPSDCAL2          LOAD AND SAVE XPSD FOR
    11389   03 01A5A    35800049 A            STW,8    X'49'             FOR CALL 2 INTERRUPT
    11390   03 01A5B    32801C02              LW,8     XPSDCAL3          LOAD A XPSD FOR THE CALL 3
    11391   03 01A5C    3580004A A            STW,8    X'4A'             SET UP THE LOCATION
    11392   03 01A5D    32801CA8              LW,8     MASK              LOAD RECEIVED STATUS MASK
    11393   03 01A5E    35801B55              STW,8    SURINT58          SET UP RECEIVED STATUS MASK
    11394   03 01A5F    35801B47              STW,8    SURMASK-1         SET UP RECEIVED STATUS MASK
    11395   03 01A60    32801CA9              LW,8     EXSEKAIO          SET UP THE SEEK AIO STATUS
    11396   03 01A61    35801B48              STW,8    SURMASK
    11397   03 01A62    35801B56              STW,8    SURINT59
    11398   03 01A63    32801D35              LW,8     :DEVADDR          SET UP THE SIO WITH A DEV ADDR
    11399   03 01A64    55821B12              STH,8    SURSTART,1
    11400                            *
    11401   03 01A65    32501D38              LW,5     CURRSEEK          LOAD CURRENT SEEK ADDR          *A01
    11402   03 01A66    6D000032 A            WD,0     X'32'             INHIBIT INTERRUPTS
    11403   03 01A67    35101BF4              STW,1    FAKEINTR          STORE A 1 IN FAKE AN INTERRUPT
    11404                            *
    11405   03 01A68    6E000000 A            AIO,0    0                 CLEAR ANY PENDING INTERRUPT
    11406   03 01A69    6E000000 A            AIO,0    0                 IN CASE OF A SECOND INTERRUPT PENDING
    11407   03 01A6A    22A00020 A            LI,10    X'20'             LOAD I/O INTERRUPT BIT
    11408   03 01A6B    6DA01500 A            WD,10    X'1500'           DISABLE I/O INTERRUPTS
    11409   03 01A6C    6DA01100 A            WD,10    X'1100'           DISARM I/O INTERRUPTS
    11410   03 01A6D    6DA01200 A            WD,10    X'1200'           ARM AND ENAABLE I/O INTERRUPTS
    11411                            *
    11412   03 01A6E    32701CA4              LW,7     BUFAVAIL          LOAD NO. OF BUFFERS AVAILABLE
    11413   03 01A6F    58721B14              SH,7     BUFCOUNT,1        SUBTRACT BUFFER COUNT
    11414   03 01A70    35701CA5              STW,7    BUFM1AVL          SAVE AS BUFFERS AVAILABLE MIMUS 1
    11415   03 01A71    32701D39              LW,7     SURFCEND          LOAD END ADDRESS OF SECTORS
    11416   03 01A72    58721B15              SH,7     SECTCOUT,1        SUBTRACT SECTOR COUNT
    11417   03 01A73    35701CAC              STW,7     SURM1END         SAVE AS END ADDRESS MIMUS 1
    11418   03 01A74    32401CA4              LW,4     BUFAVAIL          OTHERWISE LOAD 'BUFWORK' WITH BUFAVL
    11419   03 01A75    31101CA0              CW,1     SURORDER          IS THIS A WRITE
    11420   03 01A76    69401A87              BCS,4    SURPAT23
    11421   03 01A77    22400000 A            LI,4     0                 ZERO 'BUFWORK'
    11422                            *
    11423                            *
    11424                            *
    11425                            *
    11426                            SURPAT07 ;
    11427   03 01A78    22EC0000 A            LI,14    X'C0000'          LOAD DELAY COUNT
    11428   03 01A79    35E01BFC              STW,14   SURDELAY          SAVE DELAY COUNT
    11429                            *
    11430                            *
    11431   03 01A7A    6D000022 A   SURPAT12 WD,0     X'22'             RESET INHIBIT INTERRUPTS
    11432                            *
    11433   03 01A7B    33001BF7              MTW,0    ENDOPER           TEST FOR END OF OPERATION
    11434   03 01A7C    68301A80              BEZ      SURPAT25             IF END OF IO OPER SKIP CALL
    11435                            *
    11436   03 01A7D    33001BF4              MTW,0    FAKEINTR          TEST FAKE A INTERRUPT FLAG
    11437   03 01A7E    68301A80              BEZ      SURPAT25                IF ZERO SKIP CALL
    11438                            *
    11439   03 01A7F    06800000 A            CAL3,SURINTC2-SURINT 0       GO START IO
    11440                            *
    11441   03 01A80    20400000 A   SURPAT25 AI,4     0                 TEST 'BUFWORK' FOR ZERO
    11442   03 01A81    69201A87              BGZ      SURPAT23          IF NOT ZERO GO BUILD OR COMPARE BUF
    11443                            *
    11444   03 01A82    33001BF7              MTW,0    ENDOPER           TEST FOR END OF OPERATION
    11445   03 01A83    68301AA6              BEZ      SURPAT24          IF END OF I/O OPER EXIT         *A01
    11446                            *
    11447   03 01A84    33101BFC              MTW,1    SURDELAY          TEST FOR END OF DELAY
    11448   03 01A85    68301AA8              BEZ      SURPAT20          IF DELAY UP EXIT
    11449   03 01A86    68001A7A              B        SURPAT12
    11450                            *
    11451                            *
    11452                            SURPAT23 ;
    11453   03 01A87    3510215C              STW,1    :COMFLAG          SET PRINT INHIBIT FLAG
    11454   03 01A88    32F01CA2              LW,15    BUFINAD           LOAD ADDR PNT TO IOCD DATA PAT
    11455   03 01A89    25F0007E A            SLS,15   -2                CONVERT TO WORD ADDRESS
    11456   03 01A8A    35F02158              STW,15   :COMBFRB          SAVE BEGINNING ADDR OF PATTERN
    11457   03 01A8B    31101CA0              CW,1     SURORDER          TEST FOR A WRITE
    11458   03 01A8C    69401A94              BCS,4    PATTWRT           IF A WRITE DO A WRITE THING
    11459                            *
    11460                            *
    11461                            *
    11462                            *
    11463                            PATREAD1   ;
    11464   03 01A8D    33001BFB              MTW,0    READVERY          IF NO READ VERF BRANCH
    11465   03 01A8E    68301A99              BEZ      PATSETUP          SET UP FOR NEXT PAT
    11466   03 01A8F    6AF02036              BAL,15   :COMPARE          GO DO THE COMPARE THING
    11467   03 01A90    68001A99              B        PATSETUP          GOOD RETURN
    11468   03 01A91    05001BB8              CAL2,0   CPERROR
    11469   03 01A92    68001A78              B        SURPAT07          RTN TO LOOP
    11470   03 01A93    68001A78              B        SURPAT07          RTN TO LOOP
    11471                            *
    11472                            *
    11473   03 01A94    33001BF7     PATTWRT  MTW,0    ENDOPER           TEST END OPER FLAG
    11474   03 01A95    68301AA8              BEZ      SURPAT20               IF ZERO EXIT
    11475   03 01A96    6AF0203B              BAL,15   :PATTERN          BUILD A PATTERN
    11476   03 01A97    22F00000 A            LI,15    0                                                 *BOO
    11477   03 01A98    35F01BF9              STW,15   COMPERR                                           *BOO
    11478                            *
    11479                            PATSETUP ;
    11480   03 01A99    204FFFFF A            AI,4     -1                DECREMENT NO. OF AVAILABLE BUFFERS
    11481   03 01A9A    32F01CA2              LW,15    BUFINAD           LOAD ADDR PNT TO IOCD DATA PAT BE BT
    11482   03 01A9B    30F01D37              AW,15    BYTCURR           UPDATE DATA PATTERN POINTER
    11483   03 01A9C    31F01CA6              CW,15    MEMLSTBA          IF END OF DATA                  *A01
    11484   03 01A9D    69101A9F              BL       %+2                   PATTERN AREA
    11485   03 01A9E    32F01CA7              LW,15    BUF1LOBA          LOAD BEGAINNING ADDR OF DATA PATS
    11486   03 01A9F    35F01CA2              STW,15   BUFINAD               SAVE AS BYTE ADDRESS
    11487   03 01AA0    33101D38              MTW,1    CURRSEEK          UPDATE SECTOR ADDRESS
    11488   03 01AA1    330019A3              MTW,0    RDMPATTM
    11489   03 01AA2    69301A78              BNEZ     SURPAT07          BR. NOT EQUAL ZERO
    11490   03 01AA3    20400000 A            AI,4     0
    11491   03 01AA4    69201A87              BGZ      SURPAT23          BR. GREATER THAN ZERO
    11492   03 01AA5    68001A78              B        SURPAT07
    11493                            *
    11494                            *
    11495                            *
    11496                            *
    11497                            *
    11498   03 01AA6    20400000 A   SURPAT24 AI,4     0                 FOR LAST EECTOR IF ERROR WAS    *A01
    11499   03 01AA7    69201A87              BGZ       SURPAT23             DETECTED                    *A01
    11500   03 01AA8    22A00020 A   SURPAT20 LI,10    X'20'             LOAD I/O INTERRUPT BIT
    11501   03 01AA9    6DA01500 A            WD,10    X'1500'           DISABLE
    11502   03 01AAA    6DA01100 A            WD,10    X'1100'               AND DISARM I/O INTERRUPTS
    11503   03 01AAB    6D000022 A            WD,0     X'22'                 RESET INHIBIT INTERRUPTS
    11504   03 01AAC    32601BF7              LW,6     ENDOPER           FETCH END OF OPERATION FLAG
    11505   03 01AAD    69301AB2              BNEZ     SURPAT27          IF NOT ZERO ERROR               *A01
    11506   03 01AAE    31101CA0              CW,1     SURORDER          IS IT A WRITE                   *A01
    11507   03 01AAF    E9301BF3              BNE      *WRITTEN          RETURN TO CALLING CODE          *A01
    11508   03 01AB0    35600437              STW,6    DONTREAD          RESET THE DON'T READ FLAG       *A01
    11509   03 01AB1    E8001BF3              B        *WRITTEN          RETURN TO CALLING CODE          *A01
    11510                            *                                                                   *A01
    11511                            *                                                                   *A01
    11512                            SURPAT27 ;                                                          *A01
    11513   03 01AB2    22A00000 A            LI,10    0
    11514   03 01AB3    35A01EEC              STW,10   #MSGPTFG          RESET MSG PRINT INHIBIT FLAG
    11515   03 01AB4    35A0215C              STW,10   :COMFLAG          RESET COMPARE PRINT INHIBIT FLAG*A01
    11516   03 01AB5    32AC1ACB              LW,10    ERRWORD,6         LOAD ADDRESS OF MSG TO BE PRINTED
    11517   03 01AB6    02200030 A            LCI      3
    11518   03 01AB7    AA70000A A            LM,7     *10               LOAD MSG
    11519   03 01AB8    2B701AC9              STM,7    ERRTSTHT+5
    11520                            *
    11521   03 01AB9    EAF0021C A            BAL,15   *:PRINT           UP SPACES
    11522   03 01ABA    00001E98              DATA     #MSGERR9
    11523   03 01ABB    EAF0021C A            BAL,15   *:PRINT
    11524   03 01ABC    00001AC4              DATA     ERRTSTHT
    11525   03 01ABD    6AF01D3D              BAL,15   #MSGNOSP          OUTPUT MESSAGE WITHOUT UP SPACING
    11526   03 01ABE    E8001BF3              B        *WRITTEN          RETURN IF NOT TEST LEVEL ZERO
    11527   03 01ABF    6AF01F09              BAL,15   :TIO
    11528   03 01AC0    FFFFC000 A            DATA     X'FFFFC000'
    11529   03 01AC1    10000000 A            DATA     X'10000000'
    11530   03 01AC2    E8001BF3              B        *WRITTEN
    11531   03 01AC3    E8001BF3              B        *WRITTEN
    11532                            ERRTSTHT TEXTC        ;
    11533   03 01AC4    1FE3C5E2 A    'TESTING ABORTED:               '
            03 01AC5    E3C9D5C7 A
            03 01AC6    40C1C2D6 A
            03 01AC7    D9E3C5C4 A
            03 01AC8    7A404040 A
            03 01AC9    40404040 A
            03 01ACA    40404040 A
            03 01ACB    40404040 A
    11534                            *
    11535         03 01ACB           ERRWORD  SET      %-1
    11536   03 01ACC    00001ACE              DATA     ERRNOINT
    11537   03 01ACD    00001AD1              DATA     ERRCBR
    11538   03 01ACE    D5D640C9 A   ERRNOINT TEXT     'NO INTERRUPT'
            03 01ACF    D5E3C5D9 A
            03 01AD0    D9E4D7E3 A
    11539   03 01AD1    C3C1D57D A   ERRCBR   TEXT     'CAN''T BE RST'
            03 01AD2    E340C2C5 A
            03 01AD3    40D9E2E3 A
    11540                            *
    11541                                     PAGE
    11542                            *
    11543                            *
    11544                                     BOUND    8
    11545   03 01AD4    00000000 A   SURINT00 DATA     0,0
            03 01AD5    00000000 A
    11546   03 01AD6    00001AD8              DATA     SURINT60,7**24
            03 01AD7    07000000 A
    11547   03 01AD8    12C01AD4     SURINT60 LD,12    SURINT00          FETCH SYSTEM ENVIORNMENT
    11548   03 01AD9    15C01B00              STD,12   SURINT01          SO THAT RETURN IS POSSIBLE
    11549   03 01ADA    6ED00000 A            AIO,13   0                 ACKNOWLEDGE IOCD 1 INTERRUPT
    11550   03 01ADB    05001B3D              CAL2,0   SURINT04          GO TEST AIO STATUS
    11551                            *
    11552   03 01ADC    68001AE1              B        SURINT62          STATUS WAS OK
    11553   03 01ADD    04001C04              CAL1,0   IOERAIO1          EROR, GO ATTEMPT RECOVERY
    11554   03 01ADE    05001B59              CAL2,0   SURINT09
    11555   03 01ADF    68001AED              B        SURINT65          STATUS WAS OK
    11556   03 01AE0    6AF01584              BAL,15   TILT              SHOULD NEVER GET HERE
    11557                            *
    11558                            *
    11559                            *
    11560                            *
    11561   03 01AE1    33001BF4     SURINT62 MTW,0    FAKEINTR          IF FAKE INTERRUPT IS SET
    11562   03 01AE2    69301AED              BNEZ     SURINT65          GO SEEK AGAIN
    11563   03 01AE3    22000E4D     SURINT63 LI,0     DA(IOCDATA)       LOAD DW ADDR OF SECOND IOCD
    11564   03 01AE4    22C00000 A            LI,12    0                 LOAD A ZERO
    11565   03 01AE5    35C01C04              STW,12   IOERAIO1          ZERO I/O AIO 1 ERROR COUNT
    11566   03 01AE6    22D01B10              LI,13    SURINT02          SET UP
    11567   03 01AE7    55D21B05              STH,13   SWITCH,1          BRANCH INSTRUCHTION
    11568   03 01AE8    35301C08              STW,3    IOCPASS2          SET UP IOCD 2 PASS COUNT
    11569   03 01AE9    32C01BFF              LW,12    XPSDATA           LOAD XPSD FOR SECOND IOCD
    11570   03 01AEA    32D01CAA              LW,13    EXDATAIO          LOAD EXPECTED AIO STATUS
    11571   03 01AEB    33101C0B              MTW,1    TRACE01
    11572   03 01AEC    68001AF5              B        SURINT64          GO SAVE RESULTS
    11573                            *
    11574   03 01AED    32C01BFF     SURINT65 LW,12    XPSDATA           LOAD XPSD FOR SECOND IOCD
    11575   03 01AEE    33001C03              MTW,0    IOCDPNT           TEST TO SEE HOW MANY IOCD THERE ARE
    11576   03 01AEF    68301AF1              BEZ      %+2               IF MORE THAN 1 DON'T BRANCH
    11577   03 01AF0    32C01BFE              LW,12    XPSDSEEK          LOAD XPSD FOR IOCD 1
    11578   03 01AF1    22D01B13              LI,13    SURSTART+1        BRANCH INSTRUCTION
    11579   03 01AF2    55D21B05              STH,13   SWITCH,1          BRANCH INSTRUCTION
    11580   03 01AF3    32D01CA9              LW,13    EXSEKAIO          LOAD STATUS FOR AIO
    11581   03 01AF4    22000E4C              LI,0     DA(IOCSEEK1)      LOAD DW ADDRESS OF FIRST IOCD
    11582                            *
    11583                            *
    11584   03 01AF5    35C0005C A   SURINT64 STW,12   X'5C'             SAVE XPSD
    11585   03 01AF6    35D01B48              STW,13   SURMASK           SAVE THE EXPECTED AIO STATUS
    11586   03 01AF7    35D01B56              STW,13   SURINT59          SAVE THE EXPECTED AIO STATUS
    11587   03 01AF8    33101C0C              MTW,1    TRACE02
    11588   03 01AF9    6AC01C24              BAL,12   BUILDSK            BUILD NEW SEEK ADDR
    11589   03 01AFA    CCC01D35              SIO,12   *:DEVADDR         DO I/O TO GET THINGS STARTED
    11590   03 01AFB    74061B2F              STCF     SURINT31,3        SAVE CONDITION CODES
    11591   03 01AFC    22C00000 A   SURINT25 LI,12    0                 LOAD ZERO
    11592   03 01AFD    35C01BF5              STW,12   BUFM1FLG          ZERO THE BUFFER AVAILABLE  -1 FLAG
    11593   03 01AFE    35C01BF4              STW,12   FAKEINTR          SET FAKE AN INTERRUPT FLAG
    11594   03 01AFF    68001B16              B        SECTCOUT+1        GO CHECK I/O
    11595                                     PAGE
    11596                            *
    11597                            *
    11598                            *
    11599                                     BOUND    8
    11600   03 01B00    00000000 A   SURINT01 DATA     0,0
            03 01B01    00000000 A
    11601   03 01B02    00001B04              DATA     %+2,7**24
            03 01B03    07000000 A
    11602                            *
    11603                            *
    11604                            SURINT ;
    11605   03 01B04    6ED00000 A            AIO,13   0                 ACKNOWLEDGE I/O INTERRUPT
    11606   03 01B05    68C00000 A   SWITCH   BCR,12   0                 BRANCH IF NORMAL INTERRUPT
    11607   03 01B06    05021B3D              CAL2,0   SURINT04,1        GO TEST AIO STATUS
    11608                            *
    11609   03 01B07    68001B14              B        BUFCOUNT          RTN HERE IF NO ERROR
    11610                            *
    11611   03 01B08    04101C05              CAL1,1   IOERAIO2          GO ATTEMPT ERROR RECOVERY
    11612   03 01B09    05001B59              CAL2,0   SURINT09
    11613   03 01B0A    68001AED              B        SURINT65          GO DO IOCD 1
    11614   03 01B0B    6AF01584              BAL,15   TILT              SHOULD NEVER GET HERE
    11615                            *
    11616   03 01B0C    33101B00     SURINTC2 MTW,1    SURINT01          CALLED HERE TO GET I/O STARTED
    11617                            *                                   UPDATE RETURN LOCATION TO CALL + 1
    11618   03 01B0D    05001B59              CAL2,0   SURINT09          GO SAVE REGISTERS AND INHIBIT INTR
    11619   03 01B0E    68001AE1              B        SURINT62          GO RETURN
    11620   03 01B0F    6AF01584              BAL,15   TILT              SHOULD NEVER GET HERE
    11621                            *
    11622                            *
    11623                            *
    11624   03 01B10    32D01BF2     SURINT02 LW,13    SURINT03          LOAD NEW BYTE COUNT
    11625   03 01B11    35D01C9A              STW,13   IOCDATA           SAVE BYTE COUNT
    11626                            *                                   OTHER CODE
    11627   03 01B12    4C000000 A   SURSTART SIO,0    0                 START IT ALL GOING
    11628   03 01B13    74061B2F              STCF     SURINT31,3        SAVE THE CONDITION CODES
    11629   03 01B14    20400000 A   BUFCOUNT AI,4     0                 THIS INSTRUCTION IS MODIFIED BY
    11630                            *                                   OTHER CODE
    11631   03 01B15    20500000 A   SECTCOUT AI,5     0                 THIS INSTRUCTION IS MODIFY BY OTHER
    11632   03 01B16    31501CAC              CW,5     SURM1END          TEST FOR UPPER SECTOR LIMIT -1
    11633   03 01B17    69101B20              BL       SURINT06          IF NO GREATER CONTINUE
    11634   03 01B18    33101C14              MTW,1    TRACE10
    11635   03 01B19    22D01B13              LI,13    SURSTART+1        BRANCH INSTRUCTION
    11636   03 01B1A    55D21B05              STH,13   SWITCH,1          BRANCH INSTRUCTION
    11637   03 01B1B    31501D39              CW,5     SURFCEND          TEST FOR UPPER SECTOR LIMIT
    11638   03 01B1C    69101B20              BL       SURINT06          IF NO GREATER CONTINUE
    11639                            SURINT11 ;
    11640   03 01B1D    22C00000 A            LI,12    0                 ZERO FOR THE
    11641   03 01B1E    35C01BF7              STW,12   ENDOPER           THE END OF OPERATION FLAG
    11642   03 01B1F    0E301B00              LPSD,3   SURINT01          GO BACK TO WHERE INTERRUPTED
    11643   03 01B20    33001BF5     SURINT06 MTW,0    BUFM1FLG          TEST BUFFER AVAILABLE -1 FLAG
    11644   03 01B21    68301B27              BEZ      SURINT07          IF NOT SET CONTINUE
    11645   03 01B22    35101BF4              STW,1    FAKEINTR          SET FAKE INTERRUPT
    11646   03 01B23    6AC01C1A              BAL,12   IOCDP1            BUILD A NEW IOCD BYTE ADDRESS
    11647   03 01B24    67001B10              EXU      SURINT02          UPDATE BYTE ADDR
    11648   03 01B25    67001B11              EXU      SURINT02+1        UPDATE BYTE ADDR
    11649   03 01B26    0E301B00              LPSD,3   SURINT01          RETURN TO POINT OF INTERRUPT
    11650                            *
    11651                            *
    11652                            *
    11653   03 01B27    31401CA5     SURINT07 CW,4     BUFM1AVL          IF BUFFERS ARE AVAILABLE
    11654   03 01B28    69101B2F              BL       SURINT31          KEPT I/O GOING
    11655   03 01B29    22D01B13              LI,13    SURSTART+1        SETUP
    11656   03 01B2A    55D21B05              STH,13   SWITCH,1          BRANCH INSTRUCTION
    11657   03 01B2B    35101BF5              STW,1    BUFM1FLG          SET BUFFER FULL MIMUS -1
    11658   03 01B2C    6AC01C1A              BAL,12   IOCDP1            BUILD A NEW IOCD BYTE ADDRESS
    11659   03 01B2D    33101C13              MTW,1    TRACE09
    11660   03 01B2E    0E301B00              LPSD,3   SURINT01          RETURN TO POINT OF INTERRUPT
    11661                            *
    11662                            *
    11663   03 01B2F    02200000 A   SURINT31 LCI      0                 RESTORE CONDITION CODES
    11664   03 01B30    68C01B34              BCR,12   SURINT29          IF NOT BUSY CONTINUE
    11665   03 01B31    05001BD2              CAL2,0   NOTACCPT          CALL: IF SIO NOT ACCEPTED
    11666   03 01B32    68001B33              B        %+1               GO RETURN
    11667   03 01B33    68001AED              B        SURINT65          SHOULD NOT HAVE GOT HERE: BAD RTN
    11668                            *
    11669                            *
    11670   03 01B34    22C00000 A   SURINT29 LI,12    0                 ZERO NOT ACCEPTED COUNT FOR IOCD1
    11671   03 01B35    35C01C06              STW,12   IOERSIO1          ZERO NOT ACCEPTED COUNT FOR IOCD1
    11672   03 01B36    33F01C08              MTW,-1   IOCPASS2          HAVE IOCD 2 BEEN EXECUTED
    11673   03 01B37    69301B3A              BNEZ     SURINT30          IF SO THIS COUNT WILL GO THRU ZERO
    11674   03 01B38    35C01C05              STW,12   IOERAIO2          THEN ZERO AIO-IOCD 2 COUNT
    11675   03 01B39    35C01C07              STW,12   IOERSIO2          AND NOT ACCEPTED COUNT FOR IOCD 2
    11676                            *
    11677                            *
    11678   03 01B3A    35C01BF4     SURINT30 STW,12   FAKEINTR          RESET FAKE INTERRUPT FLAG
    11679   03 01B3B    6AC01C1A              BAL,12   IOCDP1            BUILD A NEW IOCD BYTE ADDRESS
    11680   03 01B3C    0E301B00              LPSD,3   SURINT01          RETURN
    11681                            *
    11682                            *
    11683                            *
    11684                            *
    11685   03 01B3D    6AF01F19     SURINT04 BAL,15   :AIO+1            GO TEST I/O
    11686   03 01B3E    00008002 A            DATA     X'00008002'       MASK, PRINT ERROR
    11687   03 01B3F    00000000 A   SURINTXX DATA     X'00000000'       EXPECTED CONDITION CODES DEVICE ADDR
    11688                            *
    11689                            *
    11690   03 01B40    68001B46              B        SURINT05          DEVICE ADDRESS COMPARE
    11691   03 01B41    33101C14              MTW,1    TRACE10
    11692   03 01B42    22601B45              LI,6     %+3
    11693   03 01B43    35601B68              STW,6    IOTEST
    11694   03 01B44    68001B77              B        FALSEINT
    11695   03 01B45    0E301B00              LPSD,3   SURINT01
    11696                            *
    11697                            *
    11698                            *
    11699   03 01B46    6AF01F1B     SURINT05 BAL,15   :AIO+3            GO AND TEST AIO
    11700   03 01B47    FFFFC001 A            DATA     X'FFFFC001'       MASK, PRINT ERROR
    11701   03 01B48    00100000 A   SURMASK  DATA     X'00100000'       TEST FOR CHANNEL END
    11702   03 01B49    68001B76              B        IOGOOD            TAKE STATUS GOOD EXIT BACK
    11703   03 01B4A    33101C15              MTW,1    TRACE11
    11704   03 01B4B    22700000 A            LI,7     0
    11705   03 01B4C    75761B55              STB,7    SURINT58,3        RESET PRINT INHIBIT
    11706   03 01B4D    F3021B68              MTB,0    *IOTEST,1         TEST FOR IOCD 1
    11707   03 01B4E    68301B50              BEZ      %+2               IF IOCD 1 BRANCH
    11708   03 01B4F    22700001 A            LI,7     1                 SET UP INDEX
    11709   03 01B50    327E1C04              LW,7     IOERAIO1,7        LOAD NO. OF I/O ERRORS
    11710   03 01B51    35701EEC              STW,7    #MSGPTFG          SET UP MGS PRINT FLAG PRINT IF = 0
    11711   03 01B52    6AF01D41              BAL,15   #MSGERR           GO TO MSG HEADER ROUTINE
    11712   03 01B53    75161B55              STB,1    SURINT58,3        RETURNS HERE IF NO MSG OF ANY KIND
    11713                            *                                   IS TO BE PRINTED
    11714   03 01B54    6AF01F1B     SURINT51 BAL,15   :AIO+3            GO REPORT ANY ERRORS
    11715   03 01B55    FFFFC000 A   SURINT58 DATA     X'FFFFC000'
    11716   03 01B56    00100000 A   SURINT59 DATA     X'00100000'
    11717   03 01B57    68001B76              B        IOGOOD            TAKE STATUS GOOD EXIT BACK
    11718   03 01B58    68001B75              B        IOBAD             TAKE STATUS BAD EXIT BACK
    11719                            *
    11720                            *
    11721                            *
    11722                            SURINT09 ;
    11723   03 01B59    33101C16              MTW,1    TRACE12
    11724   03 01B5A    6AF01F09              BAL,15   :TIO              TEST FOR DEVICE IN GOOD CONDITION
    11725   03 01B5B    FF00C001 A            DATA     X'FF00C001'
    11726   03 01B5C    10000000 A            DATA     X'10000000'
    11727   03 01B5D    68001B76              B        IOGOOD            RTN HERE IF DEVICE IN GOOD CONDITION
    11728   03 01B5E    6AF01F0E              BAL,15   :HIO              TRY TO RESET DEVICE
    11729   03 01B5F    FF00C001 A            DATA     X'FF00C001'
    11730   03 01B60    10000000 A            DATA     X'10000000'
    11731   03 01B61    68001B76              B        IOGOOD            RTN HERE IF DEVICE IN GOOD CONDITION
    11732   03 01B62    6AF01F09              BAL,15   :TIO              ARE THINGS GOOD YET
    11733   03 01B63    F700C001 A            DATA     X'F700C001'
    11734   03 01B64    10000000 A            DATA     X'10000000'
    11735   03 01B65    68001B76              B        IOGOOD            RTN HERE IF DEVICE IN GOOD CONDITION
    11736   03 01B66    35201BF7              STW,2    ENDOPER           SET NO TEST POSSIBLE
    11737   03 01B67    68001AA8              B        SURPAT20
    11738                            *
    11739                            *
    11740                            *
    11741                                     PAGE
    11742                            *                 ERROR RECOVERY
    11743                            *
    11744                            *                 THIS ROUTINE TAKES CARE OF INHIBITING INTERRUPTS
    11745                            *                 AND IT HANDLES ERROR NUMBERS DURING ERROR REPORTING
    11746                            *                 THIS IS A CALL 2
    11747                                     BOUND    8
    11748   03 01B68    00000000 A   IOTEST   DATA     0,0
            03 01B69    00000000 A
    11749   03 01B6A    00001B6C              DATA     %+2,7**24
            03 01B6B    07000000 A
    11750                            *
    11751   03 01B6C    022000A0 A   IOTEST1  LCI      10                SAVE REGISTERS
    11752   03 01B6D    2B601BE8              STM,6    SUR0615              L THRU 15
    11753   03 01B6E    33101C19              MTW,1    TRACE15
    11754   03 01B6F    22A00020 A            LI,10    X'20'             LOAD INTERRUPT BIT
    11755   03 01B70    6DA01100 A            WD,10    X'1100'           DISARM & DISABLE I/O INTERRUPTS
    11756   03 01B71    6D000022 A            WD,0     X'22'             ALLOW INTERRUPTS
    11757   03 01B72    B2C01B68              LW,12    *IOTEST           FETCH RTN ADDR
    11758   03 01B73    70301B68              LCF      IOTEST            RESTORE CONDITION CODES
    11759   03 01B74    E800000C A            B        *12               GO DO CALLED FOR TEST
    11760                            *
    11761                            *
    11762   03 01B75    33101B68     IOBAD    MTW,1    IOTEST            MODIFY RTN ADDR FOR ERROR RTN
    11763   03 01B76    33101B68     IOGOOD   MTW,1    IOTEST            UPDATE RTNADDR
    11764   03 01B77    22A00020 A   FALSEINT LI,10    X'20'             LOAD INTERRUPT DIT
    11765   03 01B78    6D000032 A            WD,0     X'32'             INHIBIT INTERRUPTS
    11766   03 01B79    6DA01200 A            WD,10    X'1200'           ARM & ENABLE I/O INTERRUPTS
    11767   03 01B7A    33101C11              MTW,1    TRACE07
    11768   03 01B7B    022000A0 A            LCI      10                RESTORE
    11769   03 01B7C    2A601BE8              LM,6     SUR0615           REGISTERS 6 THRU 15
    11770   03 01B7D    0E001B68              LPSD,0   IOTEST            RETURN TO MAIN LINE CODE
    11771                                     PAGE
    11772                            *                 CALL 1
    11773                            *
    11774                            *                 THIS ROUTINE HANDLES UPDATING ERROR COUNTS BY
    11775                            *                 USING THE LABEL SUPPLIED IN THE ARGUMENT FIELD
    11776                            *                 OF THE CALL TO DEFINE THE ERROR COUNTER THAT IS
    11777                            *                 TO BE UPDATED.  THIS ROUTINE BRANCH LINKS TO A
    11778                            *                 STEPPING ROUTINE IF THE MAXIMUM NO. OF RETRIES
    11779                            *                 HAVE BEEN TRIED.
    11780                            *                 INPUT PARAMETERS:
    11781                            *                    THE ARGUMENT FIELD OF THE CALL, AS THE
    11782                            *                    ERROR COUNT TO BE UPDATED
    11783                            *
    11784                            *                    MAXERR -  THE NUMBER OF RETRIES PER INDIVIDUAL
    11785                            *                              ERROR
    11786                            *
    11787                            *                 REGISTERS DISTURBED:
    11788                            *
    11789                            *                    (NONE)
    11790                            *
    11791                            *                 OUTPUT PARAMETERS:
    11792                            *                    AN UPDATED ERROR COUNT
    11793                            *
    11794                            *
    11795                            *                 CALLING FORMAT:
    11796                            *
    11797                            *                    CAL1,0  (I/O ERROR COUNT TO BE UPDATED)
    11798                            *
    11799                            *
    11800                                     BOUND    8
    11801   03 01B7E    00000000 A   SURCALL  DATA     0,0
            03 01B7F    00000000 A
    11802   03 01B80    00001B82              DATA     %+2,7**24
            03 01B81    07000000 A
    11803                            *
    11804   03 01B82    33101C17              MTW,1    TRACE13
    11805   03 01B83    B2C01B7E              LW,12    *SURCALL          FETCH RTN ADDR
    11806   03 01B84    4BC0240B              AND,12   =X'003FFFFF'      REMOVE ALL BUT THE ADDR BYTE    *A01
    11807   03 01B85    35C01BB6              STW,12   SURTEMP1          SAVE THIS RTN ADDR
    11808   03 01B86    B3101BB6              MTW,1    *SURTEMP1         UPDATE AIO ERROR COUNT
    11809   03 01B87    32C01BF8              LW,12    MAXERR            FETCH MAXIMUM ERROR COUNT
    11810   03 01B88    B1C01BB6              CW,12    *SURTEMP1         COMPARE WITH CURRENT ERROR COUNT
    11811   03 01B89    68101B8D              BGE      SURCALL1          IF GREATER OR EQUAL DON'T UPDATE
    11812   03 01B8A    6AC01B8F              BAL,12   SURDATE           STEP PROGRAM COUNTS
    11813   03 01B8B    22C00000 A            LI,12    0                 ZERO ERROR COUNT
    11814   03 01B8C    B5C01BB6              STW,12   *SURTEMP1         STORE ZERO IN THE RIGHT PLACE
    11815   03 01B8D    33101B7E     SURCALL1 MTW,1    SURCALL           STEP RETURN ADDR
    11816   03 01B8E    0E001B7E              LPSD,0   SURCALL           RETURN
    11817                            *
    11818                            *                 SURFACE TEST UPDATE ROUTINE
    11819                            *
    11820                            *                 THIS ROUTINE IS USED IN STEPPING THE PROGRAM
    11821                            *                 ONE FUNCTION AHEAD AFTER ALL EFFORTS AT RETRYING
    11822                            *                 HAVE FAILED, IT DOES THIS BY EXECUTING ALL
    11823                            *                 PROGRAM LOGIC THAT WOULD NORMALLY BEEN EXECUTED IF
    11824                            *                 AN ERROR HAD NOT OCCURRED.
    11825                            *
    11826                            *                 INPUT PARAMETER:
    11827                            *
    11828                            *                    (NONE)
    11829                            *
    11830                            *                 REGISTER DISTRURBED:
    11831                            *
    11832                            *                    (NONE)
    11833                            *
    11834                            *                 OUTPUT PARAMETERS:
    11835                            *                    UPDATED:
    11836                            *                        TRACK-SECTOR ADDRESS
    11837                            *                        POINTER  TO THE ACTIVE BUFFER
    11838                            *                        MEMORY BYTE ADDRESS OF THE ACTIVE BUFFER
    11839                            *                        NO. OF AVAILABLE BUFFERS
    11840                            *
    11841                            *                 CALLING FORMAT:
    11842                            *
    11843                            *                    BAL,15   SURDATE
    11844                            *
    11845                            *
    11846                            *
    11847                            *
    11848                            *
    11849   03 01B8F    35C01BB7     SURDATE  STW,12   SURDATE1          SAVE RTN ADDR                   *A01
    11850   03 01B90    33101C0F              MTW,1    TRACE05
    11851   03 01B91    67001B15              EXU      SECTCOUT          UPDATE SECTOR COUNT
    11852   03 01B92    67001B14              EXU      BUFCOUNT          UPDATE AVAILABLE BUFFER COUNT
    11853   03 01B93    6AC01C1A              BAL,12   IOCDP1            UPDATE
    11854   03 01B94    67001B10              EXU      SURINT02              PATTERN
    11855   03 01B95    67001B11              EXU      SURINT02+1
    11856   03 01B96    6AC01C24              BAL,12   BUILDSK           CALCULATE SEEK ADDRESS
    11857   03 01B97    B2C01B68              LW,12    *IOTEST           LOAD TEST THYE
    11858   03 01B98    52C2000C A            LH,12    12,1              SAVE HALF WORD
    11859   03 01B99    21C01BB8              CI,12    CPERROR           IF COMPARE ERROR SKIP IT
    11860   03 01B9A    68301BA7              BE       SURDATE2          IF SO SKIP
    11861   03 01B9B    32C01ED0              LW,12    HIODW
    11862   03 01B9C    25C00001 A            SLS,12   1                 FIND IOCD ADDRESS
    11863   03 01B9D    F110000C A            CB,1     *12               TEST FOR A WITE ORDER
    11864   03 01B9E    69401BA7              BCS,4    SURDATE2          IF WRITE BRANCH
    11865   03 01B9F    B2D0000C A            LW,13    *12               LOAD BYTE ADDRESS OF PATTERN
    11866   03 01BA0    53021E93              MTH,0    HIOBC,1           TEST FOR ZERO BC
    11867   03 01BA1    68301BA7              BEZ      SURDATE2                                          *A01
    11868   03 01BA2    25D0007E A            SLS,13   -2                POSITION THE WORD ADDRESS OF PATTERN
    11869   03 01BA3    32C02166              LW,12    M1                LOAD M1
    11870   03 01BA4    B5C0000D A            STW,12   *13
    11871   03 01BA5    32C02167              LW,12    M2
    11872   03 01BA6    B5C2000D A            STW,12   *13,1
    11873                            SURDATE2 ;
    11874   03 01BA7    33101C10              MTW,1    TRACE06
    11875   03 01BA8    31501D39              CW,5     SURFCEND          IS THIS THE LAST SECTOR
    11876   03 01BA9    69101BAD              BL       %+4               IF NOT CONTINUE
    11877   03 01BAA    22C00000 A            LI,12    0                 LOAD ZERO
    11878   03 01BAB    35C01BF7              STW,12   ENDOPER           ZERO END OF OPERATION FLAG
    11879   03 01BAC    68001AA8              B        SURPAT20          QUIT RIGHT NOW
    11880   03 01BAD    31401CA5              CW,4     BUFM1AVL          BUFFER AVAILABLE  -1
    11881   03 01BAE    E9101BB7              BL       *SURDATE1         IF LESS RETURN TO CALLING ROUTINE
    11882   03 01BAF    35101BF4              STW,1    FAKEINTR          SET FAKE INTERRUPT FLAG
    11883   03 01BB0    22C00020 A            LI,12    X'20'             LOAD INTERRUPT BIT              *A01
    11884   03 01BB1    6D000032 A            WD,0     X'32'                 INHIBIT INTERRUPTS          *A01
    11885   03 01BB2    6DC01200 A            WD,12    X'1200'           ARM AND ENABLE I/O INTERRUPT    *A01
    11886   03 01BB3    022000A0 A            LCI      10                RESTORE                         *A01
    11887   03 01BB4    2A601BE8              LM,6     SUR0615               REGISTERS                   *A01
    11888   03 01BB5    0E301B00              LPSD,3   SURINT01          RETURN
    11889   03 01BB6    00000000 A   SURTEMP1 DATA     0                 ADDRESS OF IO AIO ERROR COUNT
    11890   03 01BB7    00000000 A   SURDATE1 DATA     0
    11891                                     PAGE
    11892                            *                 COMPARE ERROR RECOVERY
    11893                            *
    11894                            *                 THIS ROUTINE HANDLES ERROR RECOVERY IF A
    11895                            *                 DATA COMPARISON ERROR OCCURS. IT DOES THIS
    11896                            *                 BY RESETTING THE ACTIVE BUFFER POINTER AND
    11897                            *                 TRACK-SECTOR ADDRESS SO THAT THE FAILING SECTOR
    11898                            *                 CAN BE REREAD.
    11899                            *
    11900                            *                 INPUT PARAMETERS:
    11901                            *                     (NONE)
    11902                            *
    11903                            *                 REGISTERS DISTURBED:
    11904                            *
    11905                            *                     (NONE)
    11906                            *
    11907                            *                 OUTPUT PARAMETERS:
    11908                            *
    11909                            *                     TRACK-SECTOR ADDRESS
    11910                            *                     POINTER TO THE ACTIVE BUFFER
    11911                            *                     MEMORY BYTE ADDRESS OF THE ACTIVE BUFFER
    11912                            *                     NO. OF AVAILABLE BUFFERS
    11913                            *
    11914                            *
    11915                            *                 CALLING FORMAT:
    11916                            *
    11917                            *                    B     * 12   (THE ADDRESS IN REG 12 COMES FROM
    11918                            *                                  THE ARGUMENT FIELD OF THE CALL 2)
    11919                            *
    11920   03 01BB8    32501D38     CPERROR  LW,5     CURRSEEK          SET UP CURRENT SEEK ADDR
    11921   03 01BB9    35101BF7              STW,1    ENDOPER           SET END OF OPERATION FLAG       *A01
    11922   03 01BBA    33101C18              MTW,1    TRACE14
    11923   03 01BBB    32801CA2              LW,8     BUFINAD           FETCH CURRENT BUFFER ADDR
    11924   03 01BBC    46801C9A              XW,8     IOCDATA           SAVE THE BYTE COUNT
    11925   03 01BBD    4B80240C              AND,8    L(X'FF000000')    SAVE THE ORDER
    11926   03 01BBE    66801C9A              AWM,8    IOCDATA           UPDATA TO ADD ORDER
    11927   03 01BBF    22400000 A            LI,4     0                 ZERO
    11928   03 01BC0    3540215C              STW,4    :COMFLAG          ALLOW COMPARE ERROR REPORTING
    11929   03 01BC1    32801BF9              LW,8     COMPERR           FETCH NO. OF COMPARE ERRORS
    11930   03 01BC2    35801EEC              STW,8    #MSGPTFG          SET MSG PRINT FLAG IF = 0 HEADER WILL
    11931                            *                                   WILL BE PRINTED
    11932   03 01BC3    6AF01D41              BAL,15   #MSGERR
    11933   03 01BC4    68001BC6              B        %+2               RETURNS HERE IF NO MGS IS TO PRINTED
    11934                            *
    11935                            *
    11936   03 01BC5    6AF02036              BAL,15   :COMPARE          GO COMPARE THE PATTERN AGAIN
    11937   03 01BC6    68001BC7              B        %+1               FILLER
    11938   03 01BC7    3510215C              STW,1    :COMFLAG          SET PRINT INHIBIT FLAG FOR COMPARE
    11939   03 01BC8    04001BF9              CAL1,0   COMPERR           GO CLEAN HOUSE
    11940   03 01BC9    35501D38              STW,5    CURRSEEK          SET UP CURRENT SEEK WITH UPDATED INFR
    11941   03 01BCA    35101BF4              STW,1    FAKEINTR          SET FAKE AN INTERRUPT
    11942   03 01BCB    22400000 A            LI,4     0                 ZERO BUFFERS AVAILABLE
    11943   03 01BCC    32801BFE              LW,8     XPSDSEEK          SET UP TO SEEK AGAIN
    11944   03 01BCD    3580005C A            STW,8    X'5C'             BY LOADING XPSD
    11945   03 01BCE    32801C9A              LW,8     IOCDATA           FETCH PATTERN ADDRESS
    11946   03 01BCF    4B8023FD              AND,8    =X'00FFFFFF'      REMOVE ORDER                    *A01
    11947   03 01BD0    35801CA2              STW,8    BUFINAD           SET UP BUFFER IN ADDRESS
    11948   03 01BD1    68001B76              B        IOGOOD            JUST RTN EVERY THING HAS BEEN DONE
    11949                                     PAGE
    11950                            *
    11951                            *                 SIO NOT ACCEPTED RECOVERY
    11952                            *
    11953                            *                 THIS ROUTINE HANDLES ERROR RECOVERY IF A
    11954                            *                 SIO IS NOT ACCEPTED.
    11955                            *
    11956                            *                 INPUT PARAMETERS:
    11957                            *
    11958                            *                     (NONE)
    11959                            *
    11960                            *                 REGISTERS DISTURBED:
    11961                            *
    11962                            *                     (NONE)
    11963                            *
    11964                            *                 OUTPUT PARAMETERS:
    11965                            *
    11966                            *                     (NONE)
    11967                            *
    11968                            *                 CALLING FORMAT:
    11969                            *
    11970                            *                     B    *12   (THE ADDRESS IN REG 12 COMES FROM
    11971                            *                                 THE ARGUMENT FIELD OF THE CALL 2)
    11972                            *
    11973   03 01BD2    22901C07     NOTACCPT LI,9     IOERSIO2          LOAD ADDR OF IOCD 2 ERROR COUNT
    11974   03 01BD3    22800E4D              LI,8     DA(IOCDATA)       LOAD DW ADDR OF IOCD 2
    11975   03 01BD4    31800000 A            CW,8     0                 TEST AGAINST 1 PRESENTLY IN USE
    11976   03 01BD5    68301BD7              BE       %+2                  IF NOT EQUAL
    11977   03 01BD6    22901C06              LI,9     IOERSIO1          LOAD ADDR OF IOCD 1 ERROR COUNT
    11978   03 01BD7    55921BE1              STH,9    NTACCPT1,1        SAVE IN THE CALL INST TO ERR CNT UPD
    11979   03 01BD8    B2800009 A            LW,8     *9                LOAD CURRENT COUNT
    11980   03 01BD9    35801EEC              STW,8    #MSGPTFG          USE IT TO SET MSG PRINT FLAG
    11981   03 01BDA    6AF01D41              BAL,15   #MSGERR           GO TO MSG PRINT ROUTINE
    11982   03 01BDB    68001BE1              B        NTACCPT1          RTNS HERE IF NO MSG ARE TO BE PRINTD
    11983   03 01BDC    70301B68              LCF      IOTEST            LOAD CONDITION CODES
    11984   03 01BDD    6AF01F05              BAL,15   :SIO+1            GO TO  EPORT SIO ERROR
    11985   03 01BDE    0000C000 A            DATA     X'0000C000'
    11986   03 01BDF    00000000 A            DATA     0
    11987   03 01BE0    6AF01584              BAL,15   TILT              SHOULD NEVER GET HERE
    11988   03 01BE1    04000000 A   NTACCPT1 CAL1,0   0                 GO UPDATE ERROR COUNT
    11989   03 01BE2    68001B59              B        SURINT09          GO RESET I/O
    11990                                     PAGE
    11991                            *
    11992                            *
    11993                            *                 T E M P O R A R Y  S T O R A G E  F O R  T H E
    11994                            *
    11995                            *                 S U R F A C E  T E S T
    11996                                     BOUND    8
    11997   03 01BE4    00000002 A   TST3PAT  DATA     2
    11998   03 01BE5    544B2FBA A            DATA     1414213562
    11999   03 01BE6    00000000 A            DATA     0
    12000   03 01BE7    00000000 A            DATA     0
    12001   03 01BE8                 SUR0615  RES      9                 RESERVED SPACE FOR REG 6 THRU 14
    12002   03 01BF1    00000000 A   SUR0015  DATA     0                 RESERVED FOR REG 15
    12003   03 01BF2    00000000 A   SURINT03 DATA     0                 UP DATE BYTE COUNT
    12004   03 01BF3    00000000 A   WRITTEN  DATA     0                 RETURN ADDRESS
    12005   03 01BF4    00000000 A   FAKEINTR DATA     0                 FAKE AN INTERRUPT IF = 1
    12006   03 01BF5    00000000 A   BUFM1FLG DATA     0                 BUFFER -1 FLAG
    12007   03 01BF6    00000000 A   WRITEDLY DATA     0                 WRITE DELAY COUNT
    12008   03 01BF7    00000000 A   ENDOPER  DATA     0                 END OF OPERATION FLAG
    12009   03 01BF8    00000000 A   MAXERR   DATA     0                 THE NO. OF RETRIES ON AN ERROR
    12010   03 01BF9    00000000 A   COMPERR  DATA     0                 COMPARE ERROR COUNT
    12011   03 01BFA    00000000 A   EXAIODST DATA 0                     TEMPORARY STORAGE FOR EXPECTED AIO
    12012   03 01BFB    00000000 A   READVERY DATA     0                 READ VERIFY FLAG
    12013   03 01BFC    00000000 A   SURDELAY DATA     0                 MAXIMUM DELAY BETWEEN INTERRUPTS
    12014   03 01BFD    00000000 A   SURTN1   DATA     0                 RETURN ADDRESS TO HIGHER TEST
    12015   03 01BFE    0F001AD4     XPSDSEEK XPSD,0   SURINT00          LOAD XPSD FOR FIRST IOCD
    12016   03 01BFF    0F001B00     XPSDATA  XPSD,0   SURINT01          LOAD XPSD FOR SECOND IOCD
    12017   03 01C00    0F001B7E     XPSDCAL1 XPSD,0   SURCALL           XPSD FOR CALL 1 TRAP
    12018   03 01C01    0F001B68     XPSDCAL2 XPSD,0   IOTEST            XPSD FOR THE CALL 2 TRAP
    12019   03 01C02    0F401B00     XPSDCAL3 XPSD,4   SURINT01          LOAD XPSD FOR CALL3
    12020   03 01C03    00000000 A   IOCDPNT  DATA     0                 IOCD POINTER 1 = MORE THAN IOCD
    12021   03 01C04    00000000 A   IOERAIO1 DATA     0                 I/O AIO 1 ERROR COUNT
    12022   03 01C05    00000000 A   IOERAIO2 DATA     0                 I/O AIO 2 ERROR COUNT
    12023   03 01C06    00000000 A   IOERSIO1 DATA     0                 I/O SIO 1 ERROR COUNT
    12024   03 01C07    00000000 A   IOERSIO2 DATA     0                 I/O SIO 2 ERROR COUNT
    12025   03 01C08    00000000 A   IOCPASS2 DATA     0                 IOCD PASS 2  COUNT
    12026         03 01C09           TRACETOP SET      %
    12027   03 01C09    00000000 A   TRACE    DATA     0
    12028   03 01C0A    00000000 A   TRACE00  DATA     0
    12029   03 01C0B    00000000 A   TRACE01  DATA     0
    12030   03 01C0C    00000000 A   TRACE02  DATA     0
    12031   03 01C0D    00000000 A   TRACE03  DATA     0
    12032   03 01C0E    00000000 A   TRACE04  DATA     0
    12033   03 01C0F    00000000 A   TRACE05  DATA     0
    12034   03 01C10    00000000 A   TRACE06  DATA     0
    12035   03 01C11    00000000 A   TRACE07  DATA     0
    12036   03 01C12    00000000 A   TRACE08  DATA     0
    12037   03 01C13    00000000 A   TRACE09  DATA     0
    12038   03 01C14    00000000 A   TRACE10  DATA     0
    12039   03 01C15    00000000 A   TRACE11  DATA     0
    12040   03 01C16    00000000 A   TRACE12  DATA     0
    12041   03 01C17    00000000 A   TRACE13  DATA     0
    12042   03 01C18    00000000 A   TRACE14  DATA     0
    12043   03 01C19    00000000 A   TRACE15  DATA     0
    12044         03 01C1A           TRACEBOT SET %
    12045                                     PAGE
    12046                            *
    12047                            *
    12048                            *                 I O C D + 1   R O U T I N E
    12049                            *
    12050   03 01C1A    32D01C9A     IOCDP1   LW,13    IOCDATA           LOAD FIRST WORD OF SECOND IOCD
    12051   03 01C1B    4BD023FD              AND,13   =X'00FFFFFF'      REMOVE ORDER                    *A01
    12052   03 01C1C    30D01D37              AW,13    BYTCURR           ADD THE COURRENT BYTE COUNT
    12053   03 01C1D    31D01CA6              CW,13    MEMLSTBA          COMPARE WITH THE BUF END ADDR   *A01
    12054   03 01C1E    69101C20              BL       %+2               IF LESS BRANCH
    12055   03 01C1F    32D01CA7              LW,13    BUF1LOBA          FETCH THE BUFFER STARTING ADDRESS
    12056   03 01C20    35D01BF2              STW,13   SURINT03          SAVE UP DATED BYTE COUNT
    12057   03 01C21    72D01C9A              LB,13    IOCDATA           SAVE ORDER
    12058   03 01C22    75D01BF2              STB,13   SURINT03
    12059   03 01C23    E800000C A            B        *12               BRANCH BACK TO CALLING ROUTINE
    12060                                     PAGE
    12061                            *
    12062                            *                 THIS ROUTINE CONVERTS THE TRACK/SECTOR FROM AND
    12063                            *                 ABSOLUTE SECTOR COUNT TO A TRACK/SECTOR ADDRESS.
    12064                            *
    12065   03 01C24    15601C32     BUILDSK  STD,6    BUILDSK1
    12066   03 01C25    3A601D3C              LCW,6    TCKCURR           LOAD COMPLEMENT SHIFT COUNT
    12067   03 01C26    75661C2E              STB,6    BLDSHIFT,3        SHIFT COUNT
    12068   03 01C27    22600000 A            LI,6     0
    12069   03 01C28    32700005 A            LW,7     5                 FETCH SECTOR ADDR
    12070   03 01C29    36601D36              DW,6     SECTCURR          DIVIDE BY SECTOR/TRACK
    12071   03 01C2A    A5701D3C              SLS,7    *TCKCURR          POSITION TRACK (BAND) ADDR
    12072   03 01C2B    357013FA              STW,7    SEEKRAD           SAVE TRACK (BAND) ADDR
    12073   03 01C2C    666013FA              AWM,6    SEEKRAD           ADD IN SECTOR ADDR
    12074   03 01C2D    46601C32              XW,6     BUILDSK1          SAVE SECTOR ADDR BY IT SELF
    12075   03 01C2E    25700000 A   BLDSHIFT SLS,7    0                 POSITION TRACK (BAND) ADDR
    12076   03 01C2F    46701C33              XW,7     BUILDSK1+1        SAVE IT BY IT SELF
    12077   03 01C30    E800000C A            B        *12               RETURN
    12078                                     BOUND    8
    12079   03 01C32    00000000 A   BUILDSK1 DATA     0,0
            03 01C33    00000000 A
    12080                            *
    12081                                     PAGE
    12082                            *
    12083                            *                 M E M O R Y  A L L O C A T I O N  R O U T I N E
    12084                            *
    12085                            *
    12086                            *                 THIS ROUTINE ALLOCATES MEMORY FOR INPUT/OUTPUT
    12087                            *                 AND FOR       SNAP SHOTS OF TRACK AND SECTOR
    12088                            *                 RELATED ERRORS.
    12089                            *
    12090                            *                 INPUT PARAMETERS:
    12091                            *
    12092                            *                   :MEMLAST        LAST USUABLE MEMORY LOCATION
    12093                            *                   #MSGLEVL        IF =2 MEMORY IS ALLOCATED TO SNAP
    12094                            *                                   SHOT OF ERRORS
    12095                            *
    12096                            *                 REGISTERS DISTURBED:
    12097                            *
    12098                            *                   REGISTERS 4-7
    12099                            *
    12100                            *                 OUTPUT PARAMETERS:
    12101                            *
    12102                            *                   MEMLSTBA        LAST USUABLE MEMORY BYTE ADDRESS
    12103                            *
    12104                            *                                   MEMORY FOR I/O BUFFERS
    12105                            *                                   MEMORY FOR TRACK AND SECTOR SNAP
    12106                            *                                   SHOTS IF; #MSGLEVL=2
    12107                            *                 CALLING FORMAT:
    12108                            *
    12109                            *                   BAL,15  MEMORY  GO TO MEMORY ALLOCATION ROUTINE
    12110                            *                   %               (NO MEMORY AVAILABLE FOR THE TEST)
    12111                            *                   %+1             (MEMORY IS AVAILABLE FOR THE TEST)
    12112                            *
    12113                            *
    12114                            *
    12115                            MEMORY3 ;
    12116   03 01C34    35F01C81              STW,15   MEMORY2           SAVE RETURN ADDR                *A01
    12117   03 01C35    3250022F A            LW,5     :MEMLAST          LOAD LAST AVAILABLE MEMORY ADDR
    12118   03 01C36    38500006 A            SW,5     6                 SUBTRACT LENGTH OF TABLE BUFFER
    12119   03 01C37    35501C94              STW,5    SSTABLE           SAVE IN SEEK/SENSE ADDR
    12120   03 01C38    21502418              CI,5     BUF1LO
    12121   03 01C39    68201C73              BLE      MEMORY7                                           *A01
    12122   03 01C3A    35601C95              STW,6    TABLEMAX          STORE WORD
    12123   03 01C3B    35601C97              STW,6    SECTLMT           STORE IN TO SECTLMT
    12124   03 01C3C    22000000 A            LI,0     0                 LOAD ZERO
    12125   03 01C3D    B50C1C94              STW,0    *SSTABLE,6        ZERO SEEK/SENSE BUFFER
    12126   03 01C3E    64601C3D              BDR,6    %-1
    12127   03 01C3F    B5001C94              STW,0    *SSTABLE
    12128   03 01C40    35001635              STW,0    TABINDEX          ZERO INDEX COUNT
    12129   03 01C41    35001633              STW,0    TABBIAS           ZERO TABLE BIAS
    12130   03 01C42    35001C96              STW,0    TABERROR
    12131   03 01C43    32601C95              LW,6     TABLEMAX
    12132   03 01C44    66601C95              AWM,6    TABLEMAX
    12133   03 01C45    68001C5D              B        MEMORY1
    12134                            *
    12135                            *
    12136                            *
    12137   03 01C46    35F01C81     MEMORY   STW,15   MEMORY2           SAVE RTN ADDR                   *A01
    12138   03 01C47    3250022F A            LW,5     :MEMLAST          FETCH ADDRESS OF LAST USUABLE MEMORY
    12139                            *
    12140   03 01C48    31201EED              CW,2     #MSGLEVL          IS THIS A TRACK SNAP SHOT
    12141   03 01C49    69301C5D              BNE      MEMORY1           IF NOT BRANCH
    12142   03 01C4A    35501C91              STW,5    ENDSHOT           SET UP ADDR END ADDR OF SNAP SHOT
    12143   03 01C4B    205FFFF8 A            AI,5     -TOTALS           SUBTRACT TOTAL%
    12144   03 01C4C    35501C90              STW,5    TOTLSHOT          SAVE AS STARTING ADDR TOTALS SHOT
    12145   03 01C4D    22600000 A            LI,6     0                 ZERO
    12146   03 01C4E    32701D36              LW,7     SECTCURR          LOAD CURRENT SECTORS/TRACK
    12147   03 01C4F    2570007F A            SLS,7    -1                DIVIDE BY 2
    12148   03 01C50    23600008 A            MI,6     TOTALS            CAL NO. LOCATIONS REQD FOR SECT SHOT
    12149   03 01C51    38500007 A            SW,5     7                 SUBTRACT LCTIONS REQD FOR SECT SHOT
    12150   03 01C52    35501C8F              STW,5    SECTSHOT          SAVE AS STARTING ADDR OF SECT SNAP S
    12151   03 01C53    205FFF00 A            AI,5     -256              SUBTRACT TRACK TABLE LENGTH
    12152   03 01C54    35501C8E              STW,5    TCKSHOT           SAVE AS STARTING ADDR OF TCK SNAP SH
    12153   03 01C55    21502418              CI,5     BUF1LO            IF LIMIT HAS BEEN               *A01
    12154   03 01C56    68201C73              BLE      MEMORY7               EXCEED ERROR                *A01
    12155                            *
    12156                            *
    12157   03 01C57    22700000 A            LI,7     0                 LOAD ZERO
    12158   03 01C58    B5701C8E              STW,7    *TCKSHOT          CLEAR FIRST LOCATION IN TABLE
    12159   03 01C59    32601C8E              LW,6     TCKSHOT           LOAD STARTING ADR OF TRACK SNAP SHOT
    12160   03 01C5A    3860022F A            SW,6     :MEMLAST          CALC LENGTH OF SECTR SNAP SHOT AREA
    12161   03 01C5B    B57C022F A            STW,7    *:MEMLAST,6       ZERO THIS AREA
    12162   03 01C5C    65601C5B              BIR,6    %-1               UNTIL ALL ZERO
    12163                            *
    12164                            *
    12165                            MEMORY1 ;                                                           *A01
    12166   03 01C5D    32701810              LW,7     IOBOTTOM          LOAD BOTTOM ADDR                *A01
    12167   03 01C5E    20700001 A            AI,7     1                 CREATE                          *A01
    12168   03 01C5F    2570007F A            SLS,7     -1                  DOUBLE WORD ADDR             *A01
    12169   03 01C60    25700003 A            SLS,7    3                    BYTE ADDR                    *A01
    12170   03 01C61    35701CA7              STW,7    BUF1LOBA          SAVE AS BYTE ADDR LOWER LIMIT   *A01
    12171   03 01C62    35701CA2              STW,7    BUFINAD           SAVE AS BUFFER IN BYTE ADDR     *A01
    12172   03 01C63    3300180F              MTW,0    MEMFLAG           IF ADDITIONAL MEMORY            *C01
    12173   03 01C64    69301C66              BNEZ     %+2                  USE IT ALL                   *C01
    12174   03 01C65    B2501812     MEMORY10 LW,5     *IOTOPNT          LOAD TOP ADDR                   *A01
    12175   03 01C66    25500002 A            SLS,5    2                 CREATE BYTE ADDR                *A01
    12176   03 01C67    38501CA7              SW,5     BUF1LOBA          SUBTRACT BYTE ADDR LOWER LIMIT  *A01
    12177   03 01C68    22400000 A            LI,4     0                 ZERO                            *A01
    12178   03 01C69    36401D37              DW,4     BYTCURR           DIVIDE BY BC PER SECTOR         *A01
    12179   03 01C6A    21500002 A            CI,5     2                 IF LESS THAN 2 SECTORS          *A01
    12180   03 01C6B    69101C73              BL       MEMORY7               ERROR                       *A01
    12181   03 01C6C    35501CA4              STW,5    BUFAVAIL          SAVE NO. OF BUFFERS AVAILABLE   *A01
    12182   03 01C6D    22400000 A            LI,4     0                                                 *A01
    12183   03 01C6E    37401D37              MW,4     BYTCURR           MULT BY NO. BYTES/SECTOR        *A01
    12184   03 01C6F    35501CA1              STW,5     BUFLENGT         SAVE AS BUFFER LENGTH           *A01
    12185   03 01C70    30501CA7              AW,5     BUF1LOBA          ADD BUFFER LOWER LIMIT          *A01
    12186   03 01C71    35501CA6              STW,5    MEMLSTBA                                          *A01
    12187   03 01C72    E802000F A            B        *15,1             RETURN                          *A01
    12188                            MEMORY7  ;                                                          *A01
    12189   03 01C73    B2E01EFF              LW,14    *:MSGADDR         LOAD TYPE OF DIRECTIVE
    12190   03 01C74    32F02400              LW,15    L(X'40404040')    LOAD BLANKS
    12191   03 01C75    31E00322              CW,14    :TST1DIR          TEST FOR FUNCTIONAL DIRECTIVE
    12192   03 01C76    69301C7C              BNE      MEMORY4           IF NOT BRANCH
    12193   03 01C77    32C01870              LW,12    WATCHERR          LOAD SUB-TEST NO.
    12194   03 01C78    EAF00217 A            BAL,15   *:DECC            CONVERT TO DECIMAL
    12195   03 01C79    22D06B40 A            LI,13    ', '              LOAD COMMA AND A SPACE
    12196   03 01C7A    25F00270 A            SCS,15   -16               POSITION SUB-TEST NO.
    12197   03 01C7B    55D0000F A            STH,13   15                INSERT COMMA AND SPACE
    12198                            *
    12199                            *
    12200   03 01C7C    35E01C8C     MEMORY4  STW,14   NOMEMORY+10       SETUP
    12201   03 01C7D    35F01C8D              STW,15   NOMEMORY+11            MESSAGE
    12202   03 01C7E    EAF0021C A            BAL,15   *:PRINT           REPORT NO BUFFER MEMORY AVAILABLE
    12203   03 01C7F    00001C82              DATA     NOMEMORY
    12204   03 01C80    E8001C81              B        *MEMORY2                                          *A01
    12205   03 01C81    00000000 A   MEMORY2  DATA     0                                                 *A01
    12206   03 01C82    2FD4C5D4 A   NOMEMORY TEXTC    'MEMORY SIZE NOT GREAT ENOUGH FOR TEST  TTTT, TT'
            03 01C83    D6D9E840 A
            03 01C84    E2C9E9C5 A
            03 01C85    40D5D6E3 A
            03 01C86    40C7D9C5 A
            03 01C87    C1E340C5 A
            03 01C88    D5D6E4C7 A
            03 01C89    C840C6D6 A
            03 01C8A    D940E3C5 A
            03 01C8B    E2E34040 A
            03 01C8C    E3E3E3E3 A
            03 01C8D    6B40E3E3 A
    12207         00000008           TOTALS   EQU      8
    12208   03 01C8E    00000000 A   TCKSHOT  DATA     0                 STARTING ADDR OF THE TRACK SNAP SHOT
    12209   03 01C8F    00000000 A   SECTSHOT DATA     0                 STARTING ADDR OF THE SECTR SNAP SHOT
    12210   03 01C90    00000000 A   TOTLSHOT DATA     0                 STARTING ADDR OF THE TOTLS SNAP SHOT
    12211   03 01C91    00000000 A   ENDSHOT  DATA     0                 ENDING   ADDR OF THE       SNAP SHOT
    12212   03 01C92    00000000 A   TCKLGTH  DATA     0                 LENGTH OF TRACK SNAP SHOT AREA
    12213   03 01C93    00000000 A   SECTLGTH DATA     0                 LENGTH OF SECTR SNAP SHOT AREA
    12214   03 01C94    00000000 A   SSTABLE  DATA     0                 SEEK/SENSE TABLE STARTING ADDR
    12215   03 01C95    00000000 A   TABLEMAX DATA     0                 TABLE LENGTH IN HALF WORDS
    12216   03 01C96    00000000 A   TABERROR DATA     0                 ERROR IF NOY = ZERO
    12217   03 01C97    00000000 A   SECTLMT  DATA     0                 LIMIT OF NUMBER OF SECTORS BEING
    12218                            *                                   TESTED.
    12219                                     PAGE
    12220                            *
    12221                            *        C A L L I N G  P A R A M E T E R  T A B L E
    12222                            *
    12223                            *
    12224                                     BOUND    8
    12225   03 01C98    00000000 A   IOCSEEK1 DATA     0                 IOCD (SEEK) FOR I/O OPERATIONS
    12226   03 01C99    00000000 A            DATA     0
    12227   03 01C9A    00000000 A   IOCDATA  DATA     0                 IOCD(DATA) FOR I/O OPERATIONS
    12228   03 01C9B    00000000 A            DATA     0
    12229   03 01C9C    00000000 A   IOCDAT01 DATA     0
    12230   03 01C9D    00000000 A            DATA     0
    12231   03 01C9E    00000000 A   IOCDAT02 DATA     0
    12232   03 01C9F    00000000 A            DATA     0
    12233   03 01CA0    00000000 A   SURORDER DATA     0                 ORDER FOR SURFACE TEST, IN BYTE 3
    12234   03 01CA1    00000000 A   BUFLENGT DATA     0                 LENGTH OF USUABLE DATA AREA
    12235   03 01CA2    00000000 A   BUFINAD  DATA     0                 STARTING ADDRESS OF !UFFER BEING BLT
    12236   03 01CA3    00000000 A   READLOOP DATA     0                 COUNT OF NO. READS AFTER WRITE  *A01
    12237   03 01CA4    00000000 A   BUFAVAIL DATA     0                 MAXIMUM NUMBER OF BUFFER AREAS
    12238   03 01CA5    00000000 A   BUFM1AVL DATA     0                 BUFFERS AVAILABLE MIMUS 1
    12239   03 01CA6    00000000 A   MEMLSTBA DATA     0                 LAST USUABLE BYTE ADDR
    12240   03 01CA7    00000000 A   BUF1LOBA DATA     0                 BYTE ADDR OF FIRST USUABLE MEMORY LOC
    12241   03 01CA8    00000000 A   MASK     DATA     0                 RECEIVED STATUS MASK
    12242   03 01CA9    00000000 A   EXSEKAIO DATA     0                 EXPECTED AIO STATUS
    12243   03 01CAA    00000000 A   EXDATAIO DATA     0                 EXPECTED DATA AIO STATUS
    12244   03 01CAB    00000000 A   CURRSECT DATA     0                 CURRENT SECTOR UNDER TEST
    12245   03 01CAC    00000000 A   SURM1END DATA     0                 SECTOR END MIMUS 1
    12246         03 01B14           BUFINCMT EQU      BUFCOUNT          BUFFER INCREMENT CONSTANT
    12247         03 01B15           SECINCMT EQU      SECTCOUT          SEEK INCREMENT CONSTANT
    12248                                     PAGE
    12249                            *                *** DEVICE DESCRIPTION TABLE POINTER GENERATOR ***
    12250                            *
    12251                            *                 THIS SUBROUTINE GENERATES A BIAS POINTER TO THE
    12252                            *                 DEVICE DEXDRIPTION TABLE THAT DESCRIPTION THE DEVICE
    12253                            *                 TO BE TESTED.
    12254                            *
    12255                            *                 IF THE POINTER IS TO BE INITIALIZED A -1
    12256                            *                 MUST BE STORED INTO '#DDTP' BEFORE BRANCH LINK TO
    12257                            *                 THIS SUBROUTINE.
    12258                            *
    12259                            *                 INPUT PARAMETERS:
    12260                            *
    12261                            *                   :DDTLGTH-NUMBER OF DEVICES CURRENTLY IN TABLE.
    12262                            *
    12263                            *                 REGISTER DISTURBED:
    12264                            *
    12265                            *                    (NONE)
    12266                            *
    12267                            *                 OUTPUT PARAMETERS:
    12268                            *
    12269                            *                   #DDTBIAS-THE BIAS POINTER TO THE DEVICE DISCRIPTION
    12270                            *                            TABLE.
    12271                            *                   #DDTP   -THE POINTER TO THE DEVICE DISCRIPTION
    12272                            *                            TABLE  (0 DDTP 7).
    12273                            *
    12274                            *                 CALLING FORMAT:
    12275                            *
    12276                            *                    BAL,15    (#DDTRADM)    RANDOM POINTER UPDATING
    12277                            *                              (#DDTICMT)    INCREMENT POINTER UPDATING
    12278                            *
    12279                            *                   %       -THE LAST DEVICE DISCRIBED IN THE TABLES
    12280                            *                            HAS BEEN TESTED.
    12281                            *                   %+1     -THE LAST DEVICE DISCRIBED IN THE TABLES
    12282                            *                            HAS NOT BEEN TESTED.
    12283                            *
    12284   03 01CAD    02200000 A   #DDTRADM LCI      0
    12285   03 01CAE    2B001EEE              STM,0    #DDTSAVE
    12286   03 01CAF    22E00000 A            LI,14    0                    ZERO REG 14
    12287   03 01CB0    32F01CC8              LW,15    RADSEED           LOAD THE RANDOM SEED
    12288   03 01CB1    68301CB9              BEZ      #DDT1             IF RANDOM NO. =0,USE AS IS.
    12289   03 01CB2    36E01CCA              DW,14    #DDTLGTH          FIND A REMAINDER
    12290   03 01CB3    32F0000E A            LW,15    14                   USE REMAINDER AS A RANDOM POINTER
    12291   03 01CB4    68001CB9              B        #DDT1
    12292                            *
    12293                            *
    12294   03 01CB5    02200000 A   #DDTICMT LCI      0
    12295   03 01CB6    2B001EEE              STM,0    #DDTSAVE
    12296   03 01CB7    32F01CC9              LW,15    #DDTP                FETCH OLD POINTER
    12297   03 01CB8    20F00001 A            AI,15    1                    INCREMENT TO GENERATE NEW POINTER
    12298   03 01CB9    35F01CC9     #DDT1    STW,15   #DDTP                SAVE NEW POINTER
    12299   03 01CBA    31F01CCA              CW,15    #DDTLGTH             TEST POINTER TO SEE IF
    12300   03 01CBB    68101CC5              BGE      #DDTEXIT             LIMITS HAVE BEEN EXCEEDED
    12301   03 01CBC    22E00000 A            LI,14    0                    ZERO REG 14
    12302   03 01CBD    23E0000D A            MI,14    #DDTADR2-#DDTADR1    MULTPLY SPAN BETWEEN DDT BY POINTER
    12303   03 01CBE    35F01CCB              STW,15   #DDTBIAS             SAVE AS NEW BIAS POINTER
    12304   03 01CBF    32001CCB              LW,0     #DDTBIAS
    12305   03 01CC0    20001CCC              AI,0     #DDTADR1
    12306   03 01CC1    02200090 A            LCI      #DDTADR3-#DDTADR1
    12307   03 01CC2    AA100000 A            LM,1     *0
    12308   03 01CC3    2B101D34              STM,1    TESTDEV
    12309   03 01CC4    33101EFD              MTW,1    #DDTSAVE+15
    12310   03 01CC5    02200000 A   #DDTEXIT LCI      0
    12311   03 01CC6    2A001EEE              LM,0     #DDTSAVE
    12312   03 01CC7    E800000F A            B        *15
    12313   03 01CC8    00000000 A   RADSEED  DATA     0                 RANDOM SEED FOR TEST SELECTION
    12314   03 01CC9    00000000 A   #DDTP    DATA     0                 DEVICE DISCRIPTION TABLE POINTER
    12315   03 01CCA    00000000 A   #DDTLGTH DATA     0                 DEVICE DISCRIPTION TABLE LENGTH
    12316   03 01CCB    00000000 A   #DDTBIAS DATA     0                 DEVICE DISCRIPTION TABLE BIAS
    12317                            *
    12318                            *
    12319                            *
    12320         03 01CCC           #DDTADR1 SET      %
    12321   03 01CCC    00000000 A   MODEL    DATA     0                 MODEL NO. OF THE DEVICE BEING TESTED
    12322   03 01CCD    00000000 A   TGTDEV   DATA     0                 TARGET DEVICE ADDRESS
    12323   03 01CCE    00000000 A   SECTORS  DATA     0                 NUMBER OF SECTORS PER TRACK
    12324   03 01CCF    00000000 A   BYTESECT DATA     0                 NUMBER OF BYTES PER SECTOR
    12325   03 01CD0    00000000 A   SLOWER   DATA     0                 SECTOR LOWER LIMIT (USED BY TESTS)
    12326   03 01CD1    00000000 A   SUPPER   DATA     0                 SECTOR UPPER LIMIT (USED BY TESTS)
    12327   03 01CD2    00000000 A   SSIZE    DATA     0                 NUMBER OF AVAILABLE SECTORS
    12328   03 01CD3    00000000 A   TSSTART  DATA     0                 TRACK SECTOR STARTING ADDRESS
    12329   03 01CD4    00000000 A   TCKSHIFT DATA     0                 NO. OF SHIFTS REQD TO POSITION TK AD
    12330         03 01CD5           #DDTADR3 SET      %
    12331   03 01CD5    00000000 A   SWPROT12 DATA     0                 SECTOR WRITE PROTECT LOWER LIMIT
    12332   03 01CD6    00000000 A   SWPROT34 DATA     0                 SECTOR WRITE PROTECT UPPER LIMIT
    12333   03 01CD7    00000000 A   TEMPSEK1 DATA     0                 SECTOR TEMPORARY STORAGE FOR LW LMT
    12334   03 01CD8    00000000 A   TEMPSEK2 DATA     0                 SECTOR TEMPORARY STORAGE FOR UP LMT
    12335         03 01CD9           #DDTADR2 SET      %
    12336   03 01CD9                          RES      7*(#DDTADR2-#DDTADR1)
    12337         03 01D34           TESTDEV  SET      %
    12338   03 01D34    00000000 A   MODELC   DATA     0                 CURRENT DEVICE MODEL NO.
    12339   03 01D35    00000000 A   :DEVADDR DATA     0                 CURRENT DEVICE ADDRESS
    12340   03 01D36    00000000 A   SECTCURR DATA     0                 CURRENT SECTORS/TRACK
    12341   03 01D37    00000000 A   BYTCURR  DATA     0                 CURRENT BYTES/SECTORS
    12342   03 01D38    00000000 A   CURRSEEK DATA     0
    12343   03 01D39    00000000 A   SURFCEND DATA     0                 END OF SURFACE AREA
    12344   03 01D3A    00000000 A   SSIZEC   DATA     0                 CURRENT NO. OF SECTORS
    12345   03 01D3B    00000000 A   TSSTARTC DATA     0                 CURRENT TRACK SECTOR ADDRESS
    12346   03 01D3C    00000000 A   TCKCURR  DATA     0                 CURRENT TRACK SHIFT COUNT
    12347                                     PAGE
    12348                            *                 E R R O R  R E P O R T E R
    12349                            *
    12350                            *
    12351                            *
    12352   03 01D3D    46A01EFE     #MSGNOSP XW,10    #PRINTFG          IF PRINT FLAG SET
    12353   03 01D3E    22A00000 A            LI,10    0                 SET PRINT SPACE FLAG TO ZERO
    12354   03 01D3F    46A01EFE              XW,10    #PRINTFG          ZERO PINT SPACE FLAG
    12355   03 01D40    68001D42              B        #MSGERR+1         CONTINUE
    12356                            #MSGERR ;
    12357   03 01D41    35101EFE              STW,1    #PRINTFG          SET PRINT SPACE FLAG
    12358   03 01D42    33001EEC              MTW,0    #MSGPTFG          IF HEADER PRINT FLAG IS SET     *A01
    12359   03 01D43    E932000F A            BNEZ     *15,1                 SKIP MESSAGE                *A01
    12360                            *
    12361   03 01D44    02200000 A   #MSGERR2 LCI      0                 SAVE REGISTER 0
    12362   03 01D45    2B001EEE              STM,0    #MSG00                THRU 15
    12363   03 01D46    35201580              STW,2    LOCATION          SET UP ERROR INDEX COUNT
    12364   03 01D47    32602023              LW,6     :STATUSCC         LOAD AND SAVE
    12365   03 01D48    35601DD2              STW,6    #MSGSCC           STATUS AND CONDITION CODES FROM AIO
    12366                            *
    12367                            *
    12368                            *
    12369   03 01D49    22E00023 A            LI,14    35                LOAD NO. OF BYTES IN MSG        *A01
    12370   03 01D4A    75E01E99              STB,14   #MSGERR1          SAVE INTO MSG
    12371   03 01D4B    CE801D35              TDV,8    *:DEVADDR         GO TEST FOR SYNC PATTERN MISSED
    12372   03 01D4C    4B9023FE              AND,9    =X'08000000'      SAVE ONLY SYNC PATTERN MISSED   *A01
    12373   03 01D4D    35901F02              STW,9    SYNCMISS          SAVE
    12374   03 01D4E    22800080 A            LI,8     X'80'             LOAD A FAILING TRACK BYTE
    12375   03 01D4F    32901D34              LW,9     MODELC            LOAD MODEL NUMBER
    12376   03 01D50    21907212 A            CI,9     X'7212'           COMPARE FOR HIGH SPEED
    12377   03 01D51    69301D53              BNE      %+2               IF NOT BRANCH
    12378   03 01D52    22800000 A            LI,8     0                 LOAD ZERO
    12379   03 01D53    35801F00              STW,8    #MSNSEFT          SET UP FAILING TRACK BYTE
    12380                            *
    12381                            *
    12382                            *
    12383                            *
    12384                            *
    12385                            *
    12386   03 01D54    CF801D35              HIO,8    *:DEVADDR         RESET DEV, BUT PICK UP DEV STATUS
    12387   03 01D55    15801ED0              STD,8    HIODW             SAVE THE HIO DOUBLE WORD
    12388   03 01D56    74041ED1              STCF     HIODW+1,2         SAVE CONDITON CODES
    12389   03 01D57    55921E93              STH,9    HIOBC,1           SAVE BC
    12390   03 01D58    6E000000 A            AIO,0    0
    12391   03 01D59    31201BF7              CW,2     ENDOPER           IF END OF OPERATION FLAG
    12392   03 01D5A    68301DA0              BE       #MSGERR6              =2 STATUS IS NOT GOOD
    12393                            *
    12394                            *
    12395                            *
    12396   03 01D5B    32700008 A            LW,7     8                 LOAD CURRENT COMMAND ADDR
    12397   03 01D5C    25700001 A            SLS,7    1                 CONVERT TO WORD ADDR
    12398   03 01D5D    92A00007 A            LD,10    *7                LOAD CURRENT IOCD
    12399   03 01D5E    22C00324              LI,12    :TST2DIR          LOAD RANDOM ADDR
    12400   03 01D5F    31C01EFF              CW,12    :MSGADDR          IF NOT RANDOM
    12401   03 01D60    69301D84              BNE      #MSGERR5              BRANCH
    12402   03 01D61    3300215C              MTW,0    :COMFLAG          TESTING
    12403   03 01D62    68301D78              BEZ      #MSGERR4          BR. EQUAL ZERO
    12404   03 01D63    72C0000A A            LB,12    10                LOAD ORDER
    12405   03 01D64    68301D78              BEZ      #MSGERR4          IF ORDER WAS 'STOP' BRANCH
    12406   03 01D65    21C00003 A            CI,12    3                 IF ORDER WAS
    12407   03 01D66    68301D78              BE       #MSGERR4              'SEEK' BRANCH
    12408   03 01D67    21C00004 A            CI,12    4                 IF ORDER WAS
    12409   03 01D68    68301D78              BE       #MSGERR4              'SENSE' BRANCH
    12410   03 01D69    32D0000B A            LW,13    11
    12411   03 01D6A    4BD0240D              AND,13   =X'FFFF'
    12412   03 01D6B    32C00009 A            LW,12    9
    12413   03 01D6C    4BC0240D              AND,12   =X'FFFF'
    12414   03 01D6D    38D0000C A            SW,13    12                SUBTRACT BYTE REMAINING
    12415   03 01D6E    21701C9A              CI,7     IOCDATA           TEST CURRENT COMMAND ADDRESS
    12416   03 01D6F    68301D73              BE       %+4
    12417   03 01D70    32C01C9B              LW,12    IOCDATA+1
    12418   03 01D71    4BC0240D              AND,12   =X'FFFF'
    12419   03 01D72    30D0000C A            AW,13    12                ADD BC FROM PREVIOUS IOCD
    12420   03 01D73    22C00000 A            LI,12    0                 LOAD ZERO
    12421   03 01D74    3300000D A            MTW,0    13
    12422   03 01D75    68301D77              BEZ      %+2
    12423   03 01D76    36C01D37              DW,12    BYTCURR           CALCULATE NO. OF SECTOR WRITTEN
    12424   03 01D77    3050000D A            AW,5     13                BEFORE ERROR WAS DETECTED
    12425                            #MSGERR4 ;
    12426   03 01D78    22C00324              LI,12    :TST2DIR          FETCH NO.
    12427   03 01D79    31C01EFF              CW,12    :MSGADDR          COMPARE WORDS
    12428   03 01D7A    69301D84              BNE      #MSGERR5          BR. NOT EQUAL
    12429   03 01D7B    72701E99              LB,7     #MSGERR1          FETCH BYTE
    12430   03 01D7C    20700014 A            AI,7     20                ADD BYTE COUNT OF ADDITIONAL MSG
    12431   03 01D7D    75701E99              STB,7    #MSGERR1          PLACE NEW COUNT BACK INTO THE MSG
    12432   03 01D7E    327019A2              LW,7     PASSTYPE          LOAD TYPE OF PASS
    12433   03 01D7F    12EE1ED4              LD,14    #TYPE,7           LOAD TYPE OF OPERATION
    12434   03 01D80    02200030 A            LCI      3                 LOAD
    12435   03 01D81    2AB01EAD              LM,11    #MSGER10              'OPERATION'
    12436   03 01D82    02200050 A            LCI      5                 LOAD A WORD COUNT OF 5
    12437   03 01D83    2BB01EA2              STM,11   #MSGERR1+9           INTO MESSAGE                 *A01
    12438   03 01D84    32701D34     #MSGERR5 LW,7     MODELC            LOAD MODEL NUMBER
    12439   03 01D85    21707212 A            CI,7     X'7212'           TEST FOR HIGH SPEED
    12440   03 01D86    69301D9F              BNE      #MSGERR7              IF NO DON'T LOOK FOR FAILING TCK
    12441   03 01D87    3300215C              MTW,0    :COMFLAG          TESTING ZERO
    12442   03 01D88    68301D9F              BEZ      #MSGERR7          BRANCH
    12443   03 01D89    22000F69              LI,0     DA(#MSENSE)       LOAD DW ADDR OF SENSE IOCD
    12444   03 01D8A    6AF021AD              BAL,15   :IOEXEC           GO DO A SENSE
    12445   03 01D8B    22F003E8 A            LI,15    1000              FETCH NO.
    12446   03 01D8C    64F01D8E              BDR,15   %+2               BRANCH AND DEC. REG.
    12447   03 01D8D    68001D9F              B        #MSGERR7          BRANCH
    12448   03 01D8E    CD001D35              TIO,0    *:DEVADDR         WAIT FOR SENSE TO COMPLETE
    12449   03 01D8F    69401D8C              BCS,4    %-3               BRANCH CONDITIONALLT SET
    12450   03 01D90    69801D8C              BCS,8    %-4                                               *B03
    12451   03 01D91    72C61F00              LB,12    #MSNSEFT,3        LOAD INFOR ABOUT FAILING TCK
    12452   03 01D92    EAF00216 A            BAL,15   *:BINC            CONVERT BINARY TO EBCDIC
    12453   03 01D93    35F01EB7              STW,15   #MSGER11+5        INSERT INTO MSG
    12454   03 01D94    EAF00216 A            BAL,15   *:BINC            CONVERT BINARY TO EBCDIC
    12455   03 01D95    35F01EB6              STW,15   #MSGER11+4        INSERT INTO MSG
    12456   03 01D96    72701E99              LB,7     #MSGERR1          LOAD NO. OF BYTES IN PRESENT MSG
    12457   03 01D97    20700003 A            AI,7     3                 ADD 3
    12458   03 01D98    2570007E A            SLS,7    -2                CONVERT TO A WORD COUNT
    12459   03 01D99    02200060 A            LCI      6                 LOAD 'FAILING TRACK:' MESSAGE
    12460   03 01D9A    2AA01EB2              LM,10    #MSGER11
    12461   03 01D9B    2BAE1E99              STM,10   #MSGERR1,7        STORE 'FAILING TRACK'    MESSAGE
    12462   03 01D9C    72701E99              LB,7     #MSGERR1          LOAD NO. OF BYTES IN PRESENT MSG
    12463   03 01D9D    20700018 A            AI,7     24                ADD NO. OF BYTES IN 'FAILING TCK MSG
    12464   03 01D9E    75701E99              STB,7    #MSGERR1          STORE IN MSG
    12465                            #MSGERR7  ;
    12466   03 01D9F    6AF01DD3              BAL,15   #MSGIOCD          GO CONVERT IOCD INFOR FOR OUT PVT
    12467                            #MSGERR6 ;
    12468   03 01DA0    6AC01C24              BAL,12   BUILDSK           CONVERT TO RAD TRACK(BAND)/SECTOR AD
    12469   03 01DA1    6AF01E02              BAL,15   #SEEKCVT          FORMAT TRACK(BAND)/SECTOR  INFOR
    12470   03 01DA2    31201EED              CW,2     #MSGLEVL          TEST MESSAGE LEVEL
    12471   03 01DA3    69301DAC              BNE      #MSGERR8              IF NOT =2 NEXT STEP
    12472   03 01DA4    12C01ED0              LD,12    HIODW             TEST HIO STATUS
    12473   03 01DA5    35D02023              STW,13   :STATUSCC
    12474   03 01DA6    3300215C              MTW,0    :COMFLAG          IF COMPARE ERROR
    12475   03 01DA7    68301E27              BEZ      SELECTER               GO DIRECTLY TO FORMAT ERROR
    12476   03 01DA8    6AF01F11              BAL,15   :HIO+3
    12477   03 01DA9    10BD0001 A            DATA      X'10BD0001'
    12478   03 01DAA    10000000 A            DATA     X'10000000'
    12479   03 01DAB    68001E27              B        SELECTER          GO FORMAT ERROR
    12480                            #MSGERR8 ;
    12481   03 01DAC    33001EFE              MTW,0    #PRINTFG          TEST PRINT SPACE FLAG
    12482   03 01DAD    68301DB0              BEZ      %+3             IF ZERO DON'T SPACE
    12483   03 01DAE    EAF0021C A            BAL,15   *:PRINT           OUPUT A SPACE
    12484   03 01DAF    00001E98              DATA     #MSGERR9
    12485   03 01DB0    32E01EFF              LW,14    :MSGADDR
    12486   03 01DB1    21E00322              CI,14    :TST1DIR          SKIP OVER NEXT SECTION
    12487   03 01DB2    69301DB8              BNE      %+6                                               *A01
    12488   03 01DB3    22F01DB6              LI,15    %+3               SET UP                          *A01
    12489   03 01DB4    35F01576              STW,15    TST1ERTN            RTN ADDR                     *A01
    12490   03 01DB5    68001562              B        TST1ER00          SKIP TO NEXT MESSAGE            *A01
    12491   03 01DB6    00000000 A   T1ST41ER DATA     0
    12492   03 01DB7    68001DBA              B        %+3                                               *A01
    12493   03 01DB8    EAF0021C A            BAL,15   *:PRINT
    12494   03 01DB9    00001E99              DATA     #MSGERR1
    12495   03 01DBA    22C00324              LI,12    :TST2DIR          FETCH NO.
    12496   03 01DBB    31C01EFF              CW,12    :MSGADDR          COMPARE WORDS
    12497   03 01DBC    68301DBF              BE       %+3               BR. IF EQUAL
    12498   03 01DBD    3300215C              MTW,0    :COMFLAG          TEST FOR A COMPARE TEST
    12499   03 01DBE    68301DCD              BEZ      #MSGEXIT            IF IT IS BRANCH
    12500   03 01DBF    31201BF7              CW,2     ENDOPER
    12501   03 01DC0    68301DCD              BE       #MSGEXIT          IF STATUS NOT GOOD SKIP REPORTING
    12502   03 01DC1    33001F02              MTW,0    SYNCMISS          TEST FOR SYNC PATTERN MISSED
    12503   03 01DC2    68301DC5              BEZ      %+3               IF NOT SKIP
    12504   03 01DC3    EAF0021C A            BAL,15   *:PRINT
    12505   03 01DC4    00001ECB              DATA     #MSGER13
    12506   03 01DC5    EAF0021C A            BAL,15   *:PRINT           PRINT CURRENT IOCD INFORMATION
    12507   03 01DC6    00001EB8              DATA     #MSGER12
    12508   03 01DC7    12C01ED0              LD,12    HIODW             LOAD HIO DOUBLE WORD
    12509   03 01DC8    35D02023              STW,13   :STATUSCC         SAVE STATUS AND CONDITION CODES
    12510   03 01DC9    6AF01F11              BAL,15   :HIO+3            GO REPORT ANY ERORS IF THERE IS ANY
    12511   03 01DCA    10FF0000 A            DATA     X'10FF0000'                                       *A01
    12512   03 01DCB    10000000 A            DATA     X'10000000'
    12513   03 01DCC    68001DCD              B        %+1
    12514                            #MSGEXIT ;
    12515   03 01DCD    32601DD2              LW,6     #MSGSCC           RESORE
    12516   03 01DCE    35602023              STW,6    :STATUSCC         STATUS AND CONDITION FROM AIO
    12517   03 01DCF    02200000 A            LCI      0
    12518   03 01DD0    2A001EEE              LM,0     #MSG00
    12519   03 01DD1    E802000F A            B        *15,1             GO PRINT MORE DATA
    12520                            *
    12521   03 01DD2    00000000 A   #MSGSCC  DATA     0                 STOREAGE FOR AIO AND STATUS AND CC
    12522                            *
    12523                                     PAGE
    12524                            *
    12525                            *                 *** I O C D  M E S S A G E  F O R M A T T E R ***
    12526                            *
    12527                            *                 THIS ROUTINE FORMATS THE CURRENT IOCD,
    12528                            *                 SO THAT IT MAY BE OUTPUT.
    12529                            *
    12530                            *
    12531   03 01DD3    35F01F01     #MSGIOCD STW,15   #MSGRTN           SAVE RTN
    12532   03 01DD4    52C20009 A            LH,12    9,1               LOAD CURRENT BYTE COUNT
    12533   03 01DD5    EAF00218 A            BAL,15   *:HEXC            CONVERT EBCDIC
    12534   03 01DD6    35F01EBC              STW,15   #MSGER12+4        INSERT INTO MESSAGE
    12535                            *
    12536                            *
    12537                            *
    12538   03 01DD7    25800001 A            SLS,8    1                 CONVERT CURRENT COMMAND ADDR TO WORD
    12539   03 01DD8    92A00008 A            LD,10    *8                FETCH CURRENT IOCD
    12540                            *
    12541                            *
    12542                            *
    12543   03 01DD9    22701ED4              LI,7     #STOP             LOAD THE ADDR OF THE STOP ORDER MSG
    12544   03 01DDA    7260000A A            LB,6     10
    12545   03 01DDB    68301DEF              BEZ      #MSGTYPE          IF STOP GO REPORT THE ERROR
    12546                            *
    12547                            *
    12548                            *
    12549   03 01DDC    22701EE4              LI,7     #WRTODR           LOAD THE ADDR OF THE WRITE ORDER MSG
    12550   03 01DDD    21600001 A            CI,6     1                 TEST FOR THE WRITE ORDER
    12551   03 01DDE    68301DEF              BE       #MSGTYPE          GO REPORT THE ERROR
    12552                            *
    12553                            *
    12554                            *
    12555   03 01DDF    22701EDE              LI,7     #RED02            LOAD THE ADDR OF THE READ ORDER MSG
    12556   03 01DE0    21600002 A            CI,6     2                 TEST FOR THE READ ORDER
    12557   03 01DE1    68301DEF              BE       #MSGTYPE          GO REPORT THE ERROR
    12558                            *
    12559                            *
    12560                            *
    12561   03 01DE2    22701EDC              LI,7     #RED12            LOAD THE ADDR OF THE READ ORDER MSG
    12562   03 01DE3    21600012 A            CI,6     X'12'             TEST FOR A READ ORDER
    12563   03 01DE4    68301DEF              BE       #MSGTYPE          GO REPORT THE ERROR
    12564                            *
    12565                            *
    12566                            *
    12567   03 01DE5    22701EE6             LI,7      #CHKWRT           LOAD THE ADDR OF THE CHECKWRT ORDER
    12568   03 01DE6    21600005 A            CI,6     5                 TEST FOR THE CHECKWRITE ORDER
    12569   03 01DE7    68301DEF              BE       #MSGTYPE          GO REPORT THE ERROR
    12570                            *
    12571                            *
    12572                            *
    12573   03 01DE8    22701EDA              LI,7     #SENSE            LOAD THE ADDR OF THE SENSE ORDER MSG
    12574   03 01DE9    21600004 A            CI,6     4                 TEST FOR THE SENSE ORDER
    12575   03 01DEA    68301DEF              BE       #MSGTYPE          GO REPORT THE ERROR
    12576                            *
    12577                            *
    12578                            *
    12579   03 01DEB    22701EE8              LI,7     #SEEK             LOAD THE ADDR OF THE SEEK ORDER MSG
    12580   03 01DEC    21600003 A            CI,6     3                 TEST FOR THE SEEK ORDER
    12581   03 01DED    68301DEF              BE       #MSGTYPE          IF SEEK GO PEPORT THE ERROR
    12582                            *
    12583                            *
    12584                            *
    12585   03 01DEE    22701EEA              LI,7     #NOMATCH          LOAD ADDR OF THE NO MATCH MSG
    12586                            *
    12587                            #MSGTYPE ;
    12588   03 01DEF    92600007 A            LD,6     *7                LOAD TYPE OF ORDER
    12589   03 01DF0    35601EBF              STW,6    #MSGER12+7        INSERT TYPE OF ORDER INTO
    12590   03 01DF1    35701EC0              STW,7    #MSGER12+8            THE MESSAGE
    12591                            *
    12592                            *
    12593                            *
    12594   03 01DF2    32C0000A A            LW,12    10                CURRENT BYTE ADDRESS
    12595   03 01DF3    4BC023FD              AND,12   =X'00FFFFFF'      MASK OUT ORDER                  *A01
    12596   03 01DF4    25C0007E A            SLS,12   -2                CURRENT TO WORD ADDR
    12597   03 01DF5    EAF00218 A            BAL,15   *:HEXC            CONVENT TO EBCDIC
    12598   03 01DF6    55F01EC4              STH,15   #MSGER12+12       FORMAT                          *A01
    12599   03 01DF7    25F00070 A            SLS,15   -16                   MEMORY                      *A01
    12600   03 01DF8    55F21EC3              STH,15   #MSGER12+11,1         WORD                        *A01
    12601   03 01DF9    EAF00218 A            BAL,15   *:HEXC                ADDRESS                     *A01
    12602   03 01DFA    55F01EC3              STH,15   #MSGER12+11           MESSAGE                     *A01
    12603                            *
    12604                            *
    12605                            *
    12606   03 01DFB    32C0000B A            LW,12    11                LOAD FLAGS & BYTE COUNT
    12607   03 01DFC    EAF00218 A            BAL,15   *:HEXC            CONVERT  TO  EBCDIC
    12608   03 01DFD    35F01EC9              STW,15   #MSGER12+17       BYTE COUNT                      *A01
    12609   03 01DFE    EAF00218 A            BAL,15   *:HEXC            CONVERT TO EBCDIC
    12610   03 01DFF    25F00070 A            SLS,15   -16               INSERT
    12611   03 01E00    55F21EC6              STH,15   #MSGER12+14,1         FLAGS INTO MESSAGE          *A01
    12612   03 01E01    E8001F01              B        *#MSGRTN
    12613                                     PAGE
    12614                            *                 *** S E E K  M E S S A G E  F O R M A T T E R  ***
    12615                            *                 THIS ROUTINE CONVERT TRACK (BAND) AND SECTOR
    12616                            *                 AND LOAD THEM INTO ERROR MESSAGE.
    12617                            *
    12618                            *
    12619                            *
    12620   03 01E02    02200040 A   #SEEKCVT LCI      4                 SAVE REG 12 - 15
    12621   03 01E03    2BC01E8F              STM,12   #SEEKRTN
    12622   03 01E04    22E000E3 A            LI,14    'T'               SET UP
    12623   03 01E05    32F01D34              LW,15    MODELC                FOR EITHER A
    12624   03 01E06    21F07212 A            CI,15    X'7212'           HIGH SPEED
    12625   03 01E07    69301E09              BNE      %+2                   OR A MEDIUM
    12626   03 01E08    22E000C2 A            LI,14    'B'                   SPEED
    12627   03 01E09    75E41E9F              STB,14   #MSGERR1+6,2                                      *A01
    12628   03 01E0A    75E0218C              STB,14   :COMERM6+6
    12629   03 01E0B    32C013FA              LW,12    SEEKRAD           LOAD SEEK ADDR
    12630   03 01E0C    32D01D3C              LW,13    TCKCURR           LOAD TCK SHIFT COUNT
    12631   03 01E0D    75D61E18              STB,13   #SHIFT2,3         LOAD
    12632   03 01E0E    3AD01D3C              LCW,13   TCKCURR               TO SET
    12633   03 01E0F    75D61E11              STB,13   #SHIFT1,3             UP SHIFTS
    12634   03 01E10    22D00000 A            LI,13    0
    12635   03 01E11    25C00300 A   #SHIFT1  SCD,12   0
    12636   03 01E12    35C01E96              STW,12   ERRTRACK
    12637   03 01E13    EAF00217 A            BAL,15   *:DECC            CONVERT TO DEC
    12638   03 01E14    75F41EA0              STB,15   #MSGERR1+7,2                                      *A01
    12639   03 01E15    25F00078 A            SLS,15   -8
    12640   03 01E16    55F01EA0              STH,15   #MSGERR1+7                                        *A01
    12641                            *
    12642                            *
    12643   03 01E17    22C00000 A            LI,12    0
    12644   03 01E18    25C00300 A   #SHIFT2  SCD,12   0
    12645   03 01E19    35C01E97              STW,12   ERRSCTOR
    12646   03 01E1A    EAF00217 A            BAL,15   *:DECC            CONVERT TO DEC
    12647   03 01E1B    55F21EA1              STH,15   #MSGERR1+8,1                                      *A01
    12648   03 01E1C    B2E01EFF              LW,14    *:MSGADDR         LOAD TYPE OF TEST               *A01
    12649   03 01E1D    35E01E9B              STW,14   #MSGERR1+2        INSERT INTO MSG                 *A01
    12650   03 01E1E    32C01D35              LW,12    :DEVADDR          LOAD DEV ADDR                   *A01
    12651   03 01E1F    EAF00218 A            BAL,15   *:HEXC            CONVERT TO HEX                  *A01
    12652   03 01E20    75F01E9F              STB,15   #MSGERR1+6        FORMAT                          *A01
    12653   03 01E21    25F00278 A            SCS,15   -8                    I/O                         *A01
    12654   03 01E22    4BF02404              AND,15   =X'40FFFFFF'          ADDRESS                     *A01
    12655   03 01E23    35F01E9E              STW,15   #MSGERR1+5            MESSAGE                     *A01
    12656   03 01E24    02200040 A            LCI      4                 RESTORE
    12657   03 01E25    2AC01E8F              LM,12    #SEEKRTN              REG 12 - 15
    12658   03 01E26    E800000F A            B        *15
    12659                                     PAGE
    12660                            SELECTER ;
    12661   03 01E27    228000FF A            LI,8     X'FF'
    12662   03 01E28    73061F00              MTB,0    #MSNSEFT,3        TEST FOR FAILING TRACK
    12663   03 01E29    69301E2B              BNEZ     %+2               IF 1 EXIST BRANCH
    12664   03 01E2A    75861F00              STB,8    #MSNSEFT,3            OTHERWISE SET ALL FAILING
    12665   03 01E2B    32501C32              LW,5     BUILDSK1          LOAD SECTOR INDEX
    12666   03 01E2C    22400000 A            LI,4     0                 ZERO REG 4
    12667   03 01E2D    35401E94              STW,4    SELPASS           ZERO PASS FLAG
    12668   03 01E2E    35401E95              STW,4    SELMANY           ZERO FLAG
    12669   03 01E2F    23400008 A            MI,4     TOTALS            CREATE SECTOR INDEX POINTER
    12670   03 01E30    35501F03              STW,5    SELTEMP           SAVE AS PARTIAL INDEX
    12671                            *
    12672                            *
    12673   03 01E31    52A01DD2              LH,10    #MSGSCC           LOAD AIO STATUS
    12674   03 01E32    52B01ED1              LH,11    HIODW+1           LOAD HIO STATUS
    12675   03 01E33    3300215C              MTW,0    :COMFLAG          TEST FOR A COMPARE OPERATION
    12676   03 01E34    69301E3F              BNEZ     SELECT01              IF NOT BRANCH
    12677   03 01E35    33002157              MTW,0    :COMERRT          IF NO COMP ARE ERRORS           *A01
    12678   03 01E36    68301E3F              BEZ      SELECT01              BRANCH                      *A01
    12679   03 01E37    32801D34              LW,8     MODELC            LOAD MODEL NO.
    12680   03 01E38    21807212 A            CI,8     X'7212'           TEST FOR HIGH SPEED
    12681   03 01E39    69301E3F              BNE      SELECT01              IF NOT CONTINUE
    12682   03 01E3A    22800002 A            LI,8     2
    12683   03 01E3B    4680215C              XW,8     :COMFLAG
    12684   03 01E3C    6AF02036              BAL,15   :COMPARE
    12685   03 01E3D    68001E3E              B        %+1
    12686   03 01E3E    4680215C              XW,8     :COMFLAG
    12687   03 01E3F    32401C33     SELECT01 LW,4     BUILDSK1+1        TRACK INDEX -4
    12688   03 01E40    32801D34              LW,8     MODELC            LOAD MODEL NO.
    12689   03 01E41    21807212 A            CI,8     X'7212'           TEST FOR HIGH SPEED
    12690   03 01E42    69301E44              BNE      %+2                   IF NOT CONTINUE
    12691   03 01E43    25400203 A            SCS,4    3                 IF HIGH SPEED MULTPLY BY 8
    12692   03 01E44    72961F00              LB,9     #MSNSEFT,3        LOAD FAILING TRACKS
    12693   03 01E45    68001E7C              B        SELECT12          GO TO FAILING TRACK
    12694   03 01E46    D2881C8E     SELECT02 LH,8     *TCKSHOT,4        LOAD ERROR DISCRIPTOR
    12695   03 01E47    22500000 A            LI,5     0
    12696   03 01E48    21A08000 A   SELECT03 CI,10    X'8000'           TEST FOR DATA OVERRUN
    12697   03 01E49    68401E4C              BCR,4    SELECT04              IF NONE NEXT TEST
    12698   03 01E4A    6AF01E86              BAL,15   SELECTUP          GO SET UP DATA OVERRUN BIT
    12699   03 01E4B    00008000 A            DATA     X'8000'
    12700                            *
    12701                            *
    12702                            *
    12703   03 01E4C    20500001 A   SELECT04 AI,5     1                 INCREMENT SECTOR INDEX
    12704   03 01E4D    21A02000 A            CI,10    X'2000'           TEST FOR SECTOR UNAVAILABLE
    12705   03 01E4E    68401E51              BCR,4    SELECT05              IF NOT NEXT TEST
    12706   03 01E4F    6AF01E86              BAL,15   SELECTUP          GO SET UP SECTOR UNAVAILABLE
    12707   03 01E50    00004000 A            DATA     X'4000'
    12708                            *
    12709                            *
    12710                            *
    12711   03 01E51    20500001 A   SELECT05 AI,5     1                 INCREMENT SECTOR INDEX
    12712   03 01E52    33001F02              MTW,0    SYNCMISS          TEST FOR SYNC PATTERN MISSED
    12713   03 01E53    68301E56              BEZ      SELECT06              IF NOT NEXT TEST
    12714   03 01E54    6AF01E86              BAL,15   SELECTUP          GO SET UP SYNC PATTERN BIT
    12715   03 01E55    00002000 A            DATA     X'2000'
    12716                            *
    12717                            *
    12718                            *
    12719   03 01E56    20500001 A   SELECT06 AI,5     1                 INCREMENT SECTOR INDEX
    12720   03 01E57    21A00040 A            CI,10    X'0040'           TEST FOR TRANSMISSION ERROR
    12721   03 01E58    68401E5B              BCR,4    SELECT07              IF NONE NEXT TEST
    12722   03 01E59    6AF01E86              BAL,15   SELECTUP          GO SET UP TRANSMISSION ERROR BIT
    12723   03 01E5A    00001000 A            DATA     X'1000'
    12724                            *
    12725                            *
    12726                            *
    12727   03 01E5B    20500001 A   SELECT07 AI,5     1                 INCREMENT SECTOR INDEX
    12728   03 01E5C    21B00800 A            CI,11    X'0800'           TEST FOR UNUSUAL END
    12729   03 01E5D    68401E60              BCR,4    SELECT08              IF NOT NEXT TEST
    12730   03 01E5E    6AF01E86              BAL,15   SELECTUP          GO SET UP UNUSUAL END BIT
    12731   03 01E5F    00000800 A            DATA     X'0800'
    12732                            *
    12733                            *
    12734                            *
    12735   03 01E60    20500001 A   SELECT08 AI,5     1                 INCREMENT SECTOR INDEX
    12736   03 01E61    3300215C              MTW,0    :COMFLAG          IF NOT COMPARE                  *A01
    12737   03 01E62    69301E67              BNEZ     SELECT09             BRANCH                       *A01
    12738   03 01E63    33002157              MTW,0    :COMERRT          TEST FOR DATA COMPARE ERROR
    12739   03 01E64    68301E67              BEZ      SELECT09              IF NONE NEXT TEST
    12740   03 01E65    6AF01E86              BAL,15   SELECTUP          GO SET UP DATA COMPARE ERROR BIT
    12741   03 01E66    00000400 A            DATA     X'0400'
    12742   03 01E67    20500001 A   SELECT09 AI,5     1                 INCREMENT SECTOR INDEX
    12743   03 01E68    3300215C              MTW,0    :COMFLAG          IF NOT COMPARE                  *A01
    12744   03 01E69    69301E76              BNEZ     SELECT10             BRANCH                       *A01
    12745   03 01E6A    3300215E              MTW,0    :COMADDR          TEST FOR COMPARE ADDRESSING ERROR
    12746   03 01E6B    68301E76              BEZ      SELECT10              IF NOT GO TEST EXIT
    12747   03 01E6C    6AF01E86              BAL,15   SELECTUP          GO SET UP COMPARE ADDRESSING ERROR
    12748   03 01E6D    00000200 A            DATA     X'200'
    12749   03 01E6E    4B80240E              AND,8    =X'FE00'          SAVE COMPARE ADDR
    12750   03 01E6F    3AF01D3C              LCW,15   TCKCURR           LOAD TRACK SHIFT
    12751   03 01E70    4BF023E6              AND,15   =X'7F'            REMOVE EVERYTHING BUT SHIFT INFOR
    12752   03 01E71    75F61E73              STB,15   %+2,3             CONSTRUCT SHIFT INSTRUCTION
    12753   03 01E72    52F2215E              LH,15    :COMADDR,1        LOAD TRACK SECTOR ADDR          *A01
    12754   03 01E73    25F00000 A            SLS,15   0                 REMOVE SECTOR INFORATION
    12755   03 01E74    4BF02403              AND,15   =X'1FF'
    12756   03 01E75    3080000F A            AW,8     15                ADD TO MESSAGE
    12757   03 01E76    D5881C8E     SELECT10 STH,8    *TCKSHOT,4        SAVE ERROR DISCRIPTOR
    12758   03 01E77    20400001 A            AI,4     1                 UPDATE TRACK POINTER
    12759   03 01E78    25900001 A            SLS,9    1                 POSITION FAILING TRACK BYTE
    12760   03 01E79    33001E95              MTW,0    SELMANY           IF ERROR FOUND THIS PASS
    12761   03 01E7A    68301E7C              BEZ      %+2                   DON'T SKIP SET FLAG
    12762   03 01E7B    35101E94              STW,1    SELPASS
    12763   03 01E7C    21900080 A   SELECT12 CI,9     X'80'             TEST FOR NEXT FAILING TRACK
    12764   03 01E7D    69401E46              BCS,4    SELECT02              IF IT EXISTS GO BUILD ERROR DISC
    12765   03 01E7E    73060009 A            MTB,0    9,3               TEST FOR MORE FAILING TRACKS
    12766   03 01E7F    69301E77              BNEZ     SELECT10+1            IF ANY GO LOOP.
    12767                            SELECT11 ;
    12768   03 01E80    3510103D              STW,1    #MSGER41          SET ERROR FLAG
    12769   03 01E81    32601DD2              LW,6     #MSGSCC
    12770   03 01E82    35602023              STW,6    :STATUSCC
    12771   03 01E83    02200000 A            LCI      0                 RESTORE
    12772   03 01E84    2A001EEE              LM,0     #MSG00                ALL REGISTERS
    12773   03 01E85    E800000F A            B        *15               RETURN
    12774                            *
    12775                            *
    12776                            *
    12777   03 01E86    32601F03     SELECTUP LW,6     SELTEMP           LOAD PARTIAL INDEX
    12778   03 01E87    30600005 A            AW,6     5                 ADD ADDITIONAL INDEX
    12779   03 01E88    C980000F A            OR,8     *15               SET ERROR BIT IN ERROR DISCRIPTOR
    12780   03 01E89    33001E94              MTW,0    SELPASS
    12781   03 01E8A    E932000F A            BNEZ     *15,1
    12782   03 01E8B    35101E95              STW,1    SELMANY
    12783   03 01E8C    D31C1C8F              MTH,1    *SECTSHOT,6       UPDATE TYPE OF ERROR FOR THIS SECTOR
    12784   03 01E8D    D31A1C90              MTH,1    *TOTLSHOT,5       UPDATE TOTAL OF THIS ERROR
    12785   03 01E8E    E802000F A            B        *15,1             RETURN
    12786                            *
    12787                            *
    12788                            *
    12789   03 01E8F                 #SEEKRTN RES      4
    12790   03 01E93    00000000 A   HIOBC    DATA     0                 BC FROM HIO
    12791   03 01E94    00000000 A   SELPASS  DATA     0
    12792   03 01E95    00000000 A   SELMANY  DATA     0
    12793   03 01E96    00000000 A   ERRTRACK DATA     0
    12794   03 01E97    00000000 A   ERRSCTOR DATA     0
    12795   03 01E98    01404040 A   #MSGERR9 TEXTC    ' '
    12796                            #MSGERR1 TEXTC       ;
    12797                             'ERROR: AAAA I/O ADR XXXX T=DDD S=DD                            ',;*A01
    12798   03 01E99    4EC5D9D9 A    '               '                                                  *A01
            03 01E9A    D6D97A40 A
            03 01E9B    C1C1C1C1 A
            03 01E9C    40C961D6 A
            03 01E9D    40C1C4D9 A
            03 01E9E    40E7E7E7 A
            03 01E9F    E740E37E A
            03 01EA0    C4C4C440 A
            03 01EA1    E27EC4C4 A
            03 01EA2    40404040 A
            03 01EA3    40404040 A
            03 01EA4    40404040 A
            03 01EA5    40404040 A
            03 01EA6    40404040 A
            03 01EA7    40404040 A
            03 01EA8    40404040 A
            03 01EA9    40404040 A
            03 01EAA    40404040 A
            03 01EAB    40404040 A
            03 01EAC    40404040 A
    12799                            #MSGER10 TEXT      ;
    12800   03 01EAD    40D6D7C5 A    ' OPERATION: TTTTTTTT'
            03 01EAE    D9C1E3C9 A
            03 01EAF    D6D57A40 A
            03 01EB0    E3E3E3E3 A
            03 01EB1    E3E3E3E3 A
    12801                            #MSGER11 TEXT      ;
    12802   03 01EB2    40C6C1C9 A    ' FAILING TRACK: TTTTTTTT'
            03 01EB3    D3C9D5C7 A
            03 01EB4    40E3D9C1 A
            03 01EB5    C3D27A40 A
            03 01EB6    E3E3E3E3 A
            03 01EB7    E3E3E3E3 A
    12803                            #MSGER12 TEXTC     ;
    12804                                'CURRENT: BC =X''XXXX'', IOCD(TTTTTTTT, ',;
    12805   03 01EB8    49C3E4D9 A    'MWA=X''XXXXXX'',FLG=X''XX'',BC= X''XXXX'')'                       *A01
            03 01EB9    D9C5D5E3 A
            03 01EBA    7A40C2C3 A
            03 01EBB    407EE77D A
            03 01EBC    E7E7E7E7 A
            03 01EBD    7D6B40C9 A
            03 01EBE    D6C3C44D A
            03 01EBF    E3E3E3E3 A
            03 01EC0    E3E3E3E3 A
            03 01EC1    6B40D4E6 A
            03 01EC2    C17EE77D A
            03 01EC3    E7E7E7E7 A
            03 01EC4    E7E77D6B A
            03 01EC5    C6D3C77E A
            03 01EC6    E77DE7E7 A
            03 01EC7    7D6BC2C3 A
            03 01EC8    7E40E77D A
            03 01EC9    E7E7E7E7 A
            03 01ECA    7D5D4040 A
    12806                            #MSGER13 TEXTC    ;
    12807   03 01ECB    13E2E8D5 A    'SYNC PATTERN MISSED'
            03 01ECC    C340D7C1 A
            03 01ECD    E3E3C5D9 A
            03 01ECE    D540D4C9 A
            03 01ECF    E2E2C5C4 A
    12808                                     BOUND    8
    12809   03 01ED0    00000000 A   HIODW    DATA     0,0
            03 01ED1    00000000 A
    12810   03 01ED2    04007C00     #MSENSE  GEN,8,24 4,BA(#MSNSEFT)
    12811   03 01ED3    00000004 A            GEN,8,24 0,4
    12812                                     BOUND    8
    12813         03 01ED4           #TYPE    EQU      %
    12814   03 01ED4    E2E3D6D7 A   #STOP    TEXT     'STOP    '
            03 01ED5    40404040 A
    12815   03 01ED6    E2D2C3C3 A            TEXT     'SKCCWRT '
            03 01ED7    E6D9E340 A
    12816   03 01ED8    E2D2C3C3 A            TEXT     'SKCCRD12'
            03 01ED9    D9C4F1F2 A
    12817   03 01EDA    E2C5D5E2 A   #SENSE   TEXT     'SENSE   '
            03 01EDB    C5404040 A
    12818   03 01EDC    D9C5C1C4 A   #RED12   TEXT     'READ 12 '
            03 01EDD    40F1F240 A
    12819   03 01EDE    D9C5C1C4 A   #RED02   TEXT     'READ 02 '
            03 01EDF    40F0F240 A
    12820   03 01EE0    E6D9E3C4 A            TEXT     'WRTDCWRT'
            03 01EE1    C3E6D9E3 A
    12821   03 01EE2    D9C5C4C4 A            TEXT     'REDDCRED'
            03 01EE3    C3D9C5C4 A
    12822   03 01EE4    E6D9C9E3 A   #WRTODR  TEXT     'WRITE   '
            03 01EE5    C5404040 A
    12823   03 01EE6    C3C8C5C3 A   #CHKWRT  TEXT     'CHECKWRT'
            03 01EE7    D2E6D9E3 A
    12824   03 01EE8    E2C5C5D2 A   #SEEK    TEXT     'SEEK    '
            03 01EE9    40404040 A
    12825   03 01EEA    C2C1C440 A   #NOMATCH TEXT     'BAD ORDR'
            03 01EEB    D6D9C4D9 A
    12826   03 01EEC    00000000 A   #MSGPTFG DATA     0                 MSG HEADER PRINT FLAG: PRINT IF = 0
    12827   03 01EED    00000000 A   #MSGLEVL DATA     0                 MGS LEVEL OF PRINTED MSG
    12828   03 01EEE                 #MSG00   RES      16
    12829   03 01EFE    00000000 A   #PRINTFG DATA     0                 PRINT SPACE FLAG
    12830   03 01EFF    00000000 A   :MSGADDR DATA     0
    12831   03 01F00    00000000 A   #MSNSEFT DATA     0                 SENSE INFOR FROM HIGH SPEED RAD
    12832   03 01F01    00000000 A   #MSGRTN  DATA     0                 RTN FROM IOCD CONVERTER
    12833   03 01F02    00000000 A   SYNCMISS DATA     0                 SYNC MISSED =1 IF SYNC PATTERN MISSD
    12834   03 01F03    00000000 A   SELTEMP  DATA     0
    12835                                     PAGE
    12836                            *
    12837                            *                *** ISSUE SIO, TIO, HIO, TDV, AIO ***
    12838                            *
    12839                            * THE ISSUE SUBROUTINE ISSUES AN SIO, TIO, HIO, TDV, OR AIO TO
    12840                            *  SPECIFIED DEVICE.  STATUS MASK IS COMPARED WITH RETURNED DEVICE
    12841                            *   STATUS, CONDITION CODES.  ERROR CONDITIONS ARE PRINTED.
    12842                            *
    12843                            *       INPUT PARAMETERS:
    12844                            *
    12845                            *
    12846                            *
    12847                            *               <<CALLING SEQUENCE >>
    12848                            *
    12849                            *        BAL,15   (NAME OF SEQUENCE DESIRED; :SIO  :TIO  :HIO :TDV,:AIO)
    12850                            *        DATA     (MASK 0=MASK OUT BIT POSITION, 1=SAVE BIT POSITION
    12851                            *       *              FOR BIT POSITIONS 0-17
    12852                            *       *              BIT POSITION 30 = COMPARE DEV-ADDR <AIO ONLY>
    12853                            *       *              BIT POSITION 31 = IF 1 INHIBIT PRINTING)
    12854                            *        DATA     (EXPECTED STATUS BIT POSITIONS 0-15
    12855                            *       *         (EXPECTED CONDITION CODES 16,17)
    12856                            *        B        (RETURNS HERE IF NO ERROR)
    12857                            *                 (RETURNS HERE IF THERE WAS AN ERROR)
    12858                            *
    12859                            *
    12860                            *
    12861                            *       REGISTERS DISTURBED:
    12862                            *
    12863                            *                 14
    12864                            *
    12865                            *       OUTPUT PARAMETERS:
    12866                            *
    12867                            *         NORMAL EXIT-RETURN ADDRESS
    12868                            *
    12869                            *                 I S S U E  S I O
    12870                            *
    12871   03 01F04    CCC01D35     :SIO     SIO,12   *:DEVADDR         ISSUE SIO
    12872   03 01F05    35D02023              STW,13   :STATUSCC         SAVE STATUS
    12873   03 01F06    74042023              STCF     :STATUSCC,2       SAVE CONDITION CODES
    12874   03 01F07    22E00000 A   :SIO1    LI,14    0                 LOAD TYPE OF OPERATION
    12875   03 01F08    68001F1D              B        :STATEST          GO TEST STATUS & CONDITION CODES
    12876                            *
    12877                            *                 I S S U E  T I O
    12878                            *
    12879   03 01F09    CDC01D35     :TIO     TIO,12   *:DEVADDR         ISSUE TIO
    12880   03 01F0A    35D02023              STW,13   :STATUSCC         SAVE STATUS
    12881   03 01F0B    74042023              STCF     :STATUSCC,2       SAVE CONDITION CODES
    12882   03 01F0C    22E00001 A   :TIO1    LI,14    1                 LOAD TYPE OF OPERATION
    12883   03 01F0D    68001F1D              B        :STATEST          GO TEST STATUS & CONDITION CODES
    12884                            *
    12885                            *                 I S S U E  H I O
    12886                            *
    12887   03 01F0E    CFC01D35     :HIO     HIO,12   *:DEVADDR         ISSUE HIO
    12888   03 01F0F    35D02023              STW,13   :STATUSCC         SAVE STATUS
    12889   03 01F10    74042023              STCF     :STATUSCC,2       SAVE CONDITION CODES
    12890   03 01F11    22E00002 A   :HIO1    LI,14    2                 LOAD TYPE OF OPERATION
    12891   03 01F12    68001F1D              B        :STATEST          GO TEST STATUS & CONDITION CODES
    12892                            *
    12893                            *                 I S S U E  T D V
    12894                            *
    12895   03 01F13    CEC01D35     :TDV     TDV,12   *:DEVADDR         ISSUE TDV
    12896   03 01F14    35D02023              STW,13   :STATUSCC         SAVE STATUS
    12897   03 01F15    74042023              STCF     :STATUSCC,2       SAVE CONDITION CODES
    12898   03 01F16    22E00003 A   :TDV1    LI,14    3                 LOAD TYPE OF OPERATION
    12899   03 01F17    68001F1D              B        :STATEST          GO TEST STATUS & CONDITION CODES
    12900                            *
    12901                            *                 I S S U E  A I O
    12902                            *
    12903   03 01F18    6ED00000 A   :AIO     AIO,13   0                 ISSUE AIO
    12904   03 01F19    35D02023              STW,13   :STATUSCC         SAVE STATUS
    12905   03 01F1A    74042023              STCF     :STATUSCC,2       SAVE CONDITION CODES
    12906   03 01F1B    22E00004 A   :AIO1    LI,14    4                 LOAD TYPE OF OPERATION
    12907   03 01F1C    68001F1D              B        :STATEST          GO TEST STATUS & CONDITION CODES
    12908                            *
    12909                            *
    12910                            *                 T E S T  F O R  A N Y  E R R O R S
    12911                            *
    12912                            *
    12913   03 01F1D    35E02022     :STATEST STW,14   :TYPE             SAVE TYPE OF I/O OPERATION
    12914   03 01F1E    35F02021              STW,15   :IORTN
    12915   03 01F1F    B2E02021              LW,14    *:IORTN           FETCH MASK
    12916   03 01F20    B2F22021              LW,15    *:IORTN,1         FETCH EXPECTED STATUS
    12917   03 01F21    4BE0240F              AND,14   L(X'FFFFC000')    MASK OUT; PRINT INHIBIT & DEV AD BIT
    12918   03 01F22    4BF0000E A            AND,15   14                MASK EXPECTED STATUS
    12919   03 01F23    4BE02023              AND,14   :STATUSCC         MASK RECEIVED STATUS TO MASK
    12920   03 01F24    31E0000F A            CW,14    15                COMPARE RECEIVED AND EXPECTED STATUS
    12921   03 01F25    69301F2C              BNE      :CCTEST           IF ERROR GO TEST CONDITION CODES
    12922   03 01F26    B1202021              CW,2     *:IORTN           IS THIS A TEST OF DEV ADDR
    12923   03 01F27    E8442021              BAZ      *:IORTN,2         IF NOT RETURN
    12924   03 01F28    32E0000D A            LW,14    13                LOAD RECEIVED STATUS
    12925   03 01F29    4BE023E0              AND,14   =X'1FFF'          MASKOUT ALL BUT DEVICE ADDR BITS*A01
    12926   03 01F2A    31E01D35              CW,14    :DEVADDR          COMPARE WITH EXPECTED DEV ADDR
    12927   03 01F2B    E8342021              BE       *:IORTN,2         IF EQUAL RETURN
    12928                            *
    12929                            *
    12930                            *
    12931   03 01F2C    B1102021     :CCTEST  CW,1     *:IORTN           TEST PRINT INHIBIT BIT
    12932   03 01F2D    E9462021              BANZ     *:IORTN,3         IF SET TAKE ERROR RETURN
    12933   03 01F2E    15402018              STD,4    :REG0405          SAVE REGISTERS 4 & 5
    12934   03 01F2F    15C0201C              STD,12   :REG1213          SAVE REGISTERS 12 & 13
    12935   03 01F30    32C01D35              LW,12    :DEVADDR          LOAD EXPECTED DEVICE ADDRESS
    12936   03 01F31    EAF00218 A            BAL,15   *:HEXC            CONVERT EBCDIC
    12937   03 01F32    35F01FF9              STW,15   :DAERM+6          SAVE IN DEVICE ADDR ERROR MESS. *A01
    12938   03 01F33    70342023              LCF      :STATUSCC,2       LOAD CONDITION CODES
    12939   03 01F34    32402022              LW,4     :TYPE             LOAD TYPE OF I/O OPERATION
    12940   03 01F35    22500000 A            LI,5     0                 ZERO CC3,4
    12941   03 01F36    68C01F44              BCR,12   :DEVADER          CC1,2 = 0,0
    12942   03 01F37    68801F3A              BCR,8    :CCERR1           CC1,2 = 0,1
    12943   03 01F38    68401F3F              BCR,4    :CCERR2           CC1,2 = 1,0
    12944   03 01F39    68001F54              B        :CCERR3           CC1,2 = 1,1
    12945                            *
    12946                            *                 C C 1 , 2  =  0 , 1
    12947                            *
    12948   03 01F3A    32581F96     :CCERR1  LW,5     :ERRADR1,4        LOAD ADDRESS OF MSG
    12949   03 01F3B    35501F3D              STW,5    %+2               SAVE ADDRESS OF MSG
    12950   03 01F3C    EAF0021C A            BAL,15   *:PRINT           PRINT MSG
    12951   03 01F3D    00000000 A            DATA     0
    12952   03 01F3E    68001F44              B        :DEVADER          GO TO TEST DEV ADDR
    12953                            *
    12954                            *                 C C 1 , 2  =  1 , 0
    12955                            *
    12956   03 01F3F    32581F9B     :CCERR2  LW,5     :ERRADR2,4        LOAD ADDRESS OF MSG
    12957   03 01F40    35501F42              STW,5    %+2               SAVE ADDRESS OF MSG
    12958   03 01F41    EAF0021C A            BAL,15   *:PRINT           PRINT MSG
    12959   03 01F42    00000000 A            DATA     0
    12960   03 01F43    68001F51              B        :DEVEXIT          GO TO ERROR EXIT
    12961                            *
    12962                            *                 R E P O R T  D E V - A D D R  I F  I T  E X I S T S
    12963                            *
    12964   03 01F44    21400004 A   :DEVADER CI,4     4                 TEST FOR AIO
    12965   03 01F45    69301F5E              BNE      :STATERR              IF NOT,GO TEST STATUS
    12966   03 01F46    32C0000D A            LW,12    13                LOAD DEVICE ADDRESS
    12967   03 01F47    4BC023E0              AND,12   =X'1FFF'          MASK OUT DEVICE ADDR BITS       *A01
    12968   03 01F48    31C01D35              CW,12    :DEVADDR          IS IT = TO EXPECTED ADDRESS
    12969   03 01F49    68301F5E              BE       :STATERR              GO TO TEST STATUS
    12970   03 01F4A    EAF00218 A            BAL,15   *:HEXC            CONVERT TO EBCDIC
    12971   03 01F4B    75F01FFC              STB,15   :DAERM+9                                          *A01
    12972   03 01F4C    25F00078 A            SLS,15   -8                POSITION MSB'S                  *A01
    12973   03 01F4D    4BF02404              AND,15   =X'40FFFFFF'                                      *A01
    12974   03 01F4E    35F01FFB              STW,15   :DAERM+8          SAVE IN DEVICE ERROR MESSAGE    *A01
    12975   03 01F4F    EAF0021C A            BAL,15   *:PRINT           PRINTOUT DEVICE ADDRESS ERROR
    12976   03 01F50    00001FF3              DATA     :DAERM            MESSAGE
    12977   03 01F51    12402018     :DEVEXIT LD,4     :REG0405          RESTORE REG 4 & 5
    12978   03 01F52    12C0201C              LD,12    :REG1213          RESTORE REG 12 & 13
    12979   03 01F53    E8062021              B        *:IORTN,3         TAKE ERROR RETURN
    12980                            *
    12981                            *                 C C 1, 2  =  1 , 1
    12982                            *
    12983   03 01F54    32581FA0     :CCERR3  LW,5     :ERRADR3,4        LOAD ERROR MSG ADDRESS
    12984   03 01F55    35501F5C              STW,5    :CCPRINT          SAVE ADDRESS OF MESSAGE TO BE PRINTED
    12985   03 01F56    22500004 A            LI,5     4                 LOAD INDEX
    12986   03 01F57    21400004 A            CI,4     4                 IS THIS AN AIO
    12987   03 01F58    68301F5B              BE       %+3               IF SO DON'T ADD DEVICE ADDRESS
    12988   03 01F59    32C01FF9              LW,12    :DAERM+6          LOAD A CONVERTED DEV ADDR
    12989   03 01F5A    B5CA1F5C              STW,12   *:CCPRINT,5       SAVE DEVICE ADDRESS
    12990   03 01F5B    EAF0021C A            BAL,15   *:PRINT           PRINT ERROR
    12991   03 01F5C    00000000 A   :CCPRINT DATA     0
    12992   03 01F5D    68001F51              B        :DEVEXIT          TAKE ERROR EXIT
    12993                            *
    12994                            *                 R E P O R T  S T A T U S  E R R O R  I F  P R E S E NT
    12995                            *
    12996   03 01F5E    B2E02021     :STATERR LW,14    *:IORTN           FETCH MASK
    12997   03 01F5F    B2F22021              LW,15    *:IORTN,1         FETCH EXPECTED STATUS
    12998   03 01F60    4BE02410              AND,14   L(X'FFFF0000')    SAVE ONLY STATUS
    12999   03 01F61    4BF0000E A            AND,15   14                MASK TO EXPECTED CONDITIONS
    13000   03 01F62    4BE02023              AND,14   :STATUSCC         MASK RECEIVED STATUS TO MASK
    13001   03 01F63    31E0000F A            CW,14    15                ARE THEY EQUAL
    13002   03 01F64    68301F51              BE       :DEVEXIT              IF TAKE ERROR EXIT
    13003   03 01F65    32582012              LW,5     :STATTYP,4        LOAD TYPE OF OPERATION
    13004   03 01F66    46501FFD              XW,5     :STATEM1          SAVE TYPE OF OPERATION AND FETCH BC
    13005   03 01F67    72500005 A            LB,5     5                 POSITION BYTE COUNT
    13006   03 01F68    75501FFD              STB,5    :STATEM1          SAVE MESSAGE BYTE COUNT
    13007   03 01F69    EAF0021C A            BAL,15   *:PRINT           PRINT STATUS ERROR HEADER MSG
    13008   03 01F6A    00001FFD              DATA     :STATEM1
    13009   03 01F6B    1560201A              STD,6    :REG0607          SAVE REGISTER 6 & 7
    13010                            *
    13011   03 01F6C    22600002 A            LI,6     2                 LOAD POINTER
    13012   03 01F6D    B2702021              LW,7     *:IORTN           LOAD MASK
    13013   03 01F6E    B2C22021              LW,12    *:IORTN,1         LOAD EXPECTED STATUS
    13014   03 01F6F    68001F71              B        %+2               GO TO STATUS MESSAGE BUILDING
    13015                            *
    13016                            *
    13017   03 01F70    32C02023     :STATER1 LW,12    :STATUSCC         LOAD RECEIVED STATUS
    13018   03 01F71    25700074 A            SLS,7    -12
    13019   03 01F72    25C00074 A            SLS,12   -12               POSITION CC AND STATUS
    13020   03 01F73    6AF01F87              BAL,15   :BINCOVT          GO TO CONVERT CC
    13021   03 01F74    25F00070 A            SLS,15   -16               POSITION CC
    13022   03 01F75    55F2200F              STH,15   :STATEM2+8,1      STORE CC IN MSG
    13023   03 01F76    22500012 A            LI,5     18                MSG BYTE INDEX=18
    13024   03 01F77    22400004 A            LI,4     4                 MINOR INDEX=4
    13025   03 01F78    6AF01F87              BAL,15   :BINCOVT          CONVERT BINARY TO EBCDIC MASKED
    13026   03 01F79    75FA200A              STB,15   :STATEM2+3,5      STATUS BIT TO ERROR MSG
    13027   03 01F7A    205FFFFF A            AI,5     -1                BYTE INDEX-1
    13028   03 01F7B    25F00078 A            SLS,15   -8                ADJUST CONVERTED STATUS BITS
    13029   03 01F7C    64401F79              BDR,4    %-3               MINOR INDEX-1 NOT ZERO
    13030   03 01F7D    64501F77              BDR,5    %-6               BYTE INDEX-1 NOT ZERO
    13031   03 01F7E    325C200F              LW,5     :EXPOBS-1,6       LOAD EITHER 'OBS' OR 'EXP' MSG
    13032   03 01F7F    46502007              XW,5     :STATEM2          SAVE TYPE OF OPERATION & FETCH MG BC
    13033   03 01F80    72500005 A            LB,5     5                 POSITION MSG BYTE COUNT
    13034   03 01F81    75502007              STB,5    :STATEM2          SAVE MESSAGE BYTE COUNT
    13035   03 01F82    EAF0021C A            BAL,15   *:PRINT           GO PRINT OUT MSG
    13036   03 01F83    00002007              DATA     :STATEM2
    13037   03 01F84    64601F70              BDR,6    :STATER1          IS THERE ANY MSG LEFT
    13038   03 01F85    1260201A              LD,6     :REG0607          RESTORE REGISTER 6 & 7
    13039   03 01F86    68001F51              B        :DEVEXIT          TAKE ERROR EXIT
    13040                            *
    13041                            *
    13042                            *
    13043   03 01F87    1540201E     :BINCOVT STD,4    :BIN0405          SAVE REGISTERS 4 & 5
    13044   03 01F88    35F02020              STW,15   :BINRTN           SAVE REGISTER  15
    13045   03 01F89    EAF00216 A            BAL,15   *:BINC            GO CONVERT BINARY TO EBCDIC
    13046   03 01F8A    680C1F8A              B        %,6               IF IT IS EXPECT MASK
    13047   03 01F8B    68001F94              B        :BINEXIT          IF IT IS RECEIVED EXIT
    13048   03 01F8C    22400003 A   :BINCOT1 LI,4     3                 LOAD INCREMENT POINTER
    13049   03 01F8D    225000E7 A            LI,5     'X'               LOAD A 'X'
    13050   03 01F8E    2570027F A   :BINCOT2 SCS,7    -1                TEST A BIT
    13051   03 01F8F    33000007 A            MTW,0    7                 TEST FOR NEGATIVE
    13052   03 01F90    69101F92              BLZ      %+2               IF NEGATIVE,DON'T ADD 'X'
    13053   03 01F91    7558000F A            STB,5    15,4              STORE 'X'
    13054   03 01F92    204FFFFF A            AI,4     -1                INCREMENT STORAGE POINTER
    13055   03 01F93    68101F8E              BGEZ     :BINCOT2          GO TO TEST NEXT BYTE
    13056   03 01F94    1240201E     :BINEXIT LD,4     :BIN0405          RESTORE REGISTER 4 & 5
    13057   03 01F95    E8002020              B        *:BINRTN          RETURN
    13058   03 01F96    00001FA5     :ERRADR1 DATA     :CCERM1           ERROR ADDRESS 1-F
    13059   03 01F97    00001FAA              DATA     :CCERM2
    13060   03 01F98    00001FB0              DATA     :CCERM3
    13061   03 01F99    00001FB6              DATA     :CCERM4
    13062   03 01F9A    00001FC0              DATA     :CCERM5
    13063   03 01F9B    00001FC5     :ERRADR2 DATA     :CCERM6
    13064   03 01F9C    00001FC9              DATA     :CCERM7
    13065   03 01F9D    00001FCD              DATA     :CCERM8
    13066   03 01F9E    00001FD1              DATA     :CCERM9
    13067   03 01F9F    00001FD5              DATA     :CCERMA
    13068   03 01FA0    00001FD9     :ERRADR3 DATA     :CCERMB
    13069   03 01FA1    00001FDE              DATA     :CCERMC
    13070   03 01FA2    00001FE3              DATA     :CCERMD
    13071   03 01FA3    00001FE8              DATA     :CCERME
    13072   03 01FA4    00001FED              DATA     :CCERMF
    13073   03 01FA5    10E2C9D6 A   :CCERM1  TEXTC    'SIO-NOT ACCEPTED'
            03 01FA6    60D5D6E3 A
            03 01FA7    40C1C3C3 A
            03 01FA8    C5D7E3C5 A
            03 01FA9    C4404040 A
    13074   03 01FAA    14E3C9D6 A   :CCERM2  TEXTC    'TIO-SIO NOT POSSIBLE'
            03 01FAB    60E2C9D6 A
            03 01FAC    40D5D6E3 A
            03 01FAD    40D7D6E2 A
            03 01FAE    E2C9C2D3 A
            03 01FAF    C5404040 A
    13075   03 01FB0    14C8C9D6 A   :CCERM3  TEXTC    'HIO-DEV BUSY AT HALT'
            03 01FB1    60C4C5E5 A
            03 01FB2    40C2E4E2 A
            03 01FB3    E840C1E3 A
            03 01FB4    40C8C1D3 A
            03 01FB5    E3404040 A
    13076   03 01FB6    25E3C4E5 A   :CCERM4  TEXTC    'TDV-DEV DEPENDENT CONDITION CC1,2= 01'
            03 01FB7    60C4C5E5 A
            03 01FB8    40C4C5D7 A
            03 01FB9    C5D5C4C5 A
            03 01FBA    D5E340C3 A
            03 01FBB    D6D5C4C9 A
            03 01FBC    E3C9D6D5 A
            03 01FBD    40C3C3F1 A
            03 01FBE    6BF27E40 A
            03 01FBF    F0F14040 A
    13077   03 01FC0    10C1C9D6 A   :CCERM5  TEXTC    'AIO-UE INTERRUPT'
            03 01FC1    60E4C540 A
            03 01FC2    C9D5E3C5 A
            03 01FC3    D9D9E4D7 A
            03 01FC4    E3404040 A
    13078   03 01FC5    0DE2C9D6 A   :CCERM6  TEXTC    'SIO-BUSY SIOP'
            03 01FC6    60C2E4E2 A
            03 01FC7    E840E2C9 A
            03 01FC8    D6D74040 A
    13079   03 01FC9    0DE3C9D6 A   :CCERM7  TEXTC    'TIO-BUSY SIOP'
            03 01FCA    60C2E4E2 A
            03 01FCB    E840E2C9 A
            03 01FCC    D6D74040 A
    13080   03 01FCD    0CC8C9D6 A   :CCERM8  TEXTC    'HIO-CC1,2=10'
            03 01FCE    60C3C3F1 A
            03 01FCF    6BF27EF1 A
            03 01FD0    F0404040 A
    13081   03 01FD1    0DE3C4E5 A   :CCERM9  TEXTC    'TDV-BUSY SIOP'
            03 01FD2    60C2E4E2 A
            03 01FD3    E840E2C9 A
            03 01FD4    D6D74040 A
    13082   03 01FD5    0CC1C9D6 A   :CCERMA  TEXTC    'AIO-CC1,2=10'
            03 01FD6    60C3C3F1 A
            03 01FD7    6BF27EF1 A
            03 01FD8    F0404040 A
    13083   03 01FD9    13E2C9D6 A   :CCERMB  TEXTC    'SIO-NO AR-DEV  XXXX'
            03 01FDA    60D5D640 A
            03 01FDB    C1D960C4 A
            03 01FDC    C5E54040 A
            03 01FDD    E7E7E7E7 A
    13084   03 01FDE    13E3C9D6 A   :CCERMC  TEXTC    'TIO-NO AR-DEV  XXXX'
            03 01FDF    60D5D640 A
            03 01FE0    C1D960C4 A
            03 01FE1    C5E54040 A
            03 01FE2    E7E7E7E7 A
    13085   03 01FE3    13C8C9D6 A   :CCERMD  TEXTC    'HIO-NO AR-DEV  XXXX'
            03 01FE4    60D5D640 A
            03 01FE5    C1D960C4 A
            03 01FE6    C5E54040 A
            03 01FE7    E7E7E7E7 A
    13086   03 01FE8    13E3C4E5 A   :CCERME  TEXTC    'TDV-NO AR-DEV  XXXX'
            03 01FE9    60D5D640 A
            03 01FEA    C1D960C4 A
            03 01FEB    C5E54040 A
            03 01FEC    E7E7E7E7 A
    13087   03 01FED    16C1C9D6 A   :CCERMF  TEXTC    'AIO-NO INTERRUPT RECOG'
            03 01FEE    60D5D640 A
            03 01FEF    C9D5E3C5 A
            03 01FF0    D9D9E4D7 A
            03 01FF1    E340D9C5 A
            03 01FF2    C3D6C740 A
    13088   03 01FF3    24C1C9D6 A   :DAERM   TEXTC    'AIO-I/O ADR ERROR: EXP XXXX REC XXXX'            *A01
            03 01FF4    60C961D6 A
            03 01FF5    40C1C4D9 A
            03 01FF6    40C5D9D9 A
            03 01FF7    D6D97A40 A
            03 01FF8    C5E7D740 A
            03 01FF9    E7E7E7E7 A
            03 01FFA    40D9C5C3 A
            03 01FFB    40E7E7E7 A
            03 01FFC    E7404040 A
    13089   03 01FFD    24404040 A   :STATEM1 TEXTC    '           0123 4567 8901 2345 CC1,2'
            03 01FFE    40404040 A
            03 01FFF    40404040 A
            03 02000    F0F1F2F3 A
            03 02001    40F4F5F6 A
            03 02002    F740F8F9 A
            03 02003    F0F140F2 A
            03 02004    F3F4F540 A
            03 02005    C3C3F16B A
            03 02006    F2404040 A
    13090   03 02007    23404040 A   :STATEM2 TEXTC    '    STATUS XXXX XXXX XXXX XXXX   XX'
            03 02008    40E2E3C1 A
            03 02009    E3E4E240 A
            03 0200A    E7E7E7E7 A
            03 0200B    40E7E7E7 A
            03 0200C    E740E7E7 A
            03 0200D    E7E740E7 A
            03 0200E    E7E7E740 A
            03 0200F    4040E7E7 A
    13091   03 02010    40D6C2E2 A   :EXPOBS  TEXT     ' OBS'
    13092   03 02011    40C5E7D7 A            TEXT     ' EXP'
    13093   03 02012    40E2C9D6 A   :STATTYP TEXT     ' SIO',' TIO',' HIO',' TDV',' AIO'
            03 02013    40E3C9D6 A
            03 02014    40C8C9D6 A
            03 02015    40E3C4E5 A
            03 02016    40C1C9D6 A
    13094                                     BOUND    8
    13095   03 02018    00000000 A   :REG0405 DATA     0,0               STORAGE FOR REGS  4 &  5
            03 02019    00000000 A
    13096   03 0201A    00000000 A   :REG0607 DATA     0,0               STORAGE FOR REG 6 & 7
            03 0201B    00000000 A
    13097   03 0201C    00000000 A   :REG1213 DATA     0,0               STORAGE FOR REGS 12 & 13
            03 0201D    00000000 A
    13098   03 0201E    00000000 A   :BIN0405 DATA     0,0
            03 0201F    00000000 A
    13099   03 02020    00000000 A   :BINRTN  DATA     0
    13100   03 02021    00000000 A   :IORTN   DATA     0                 STORAGE FOR REG  15
    13101   03 02022    00000000 A   :TYPE    DATA     0                 ISSUE TYPE
    13102                            :STATUSCC  ;
    13103   03 02023    00000000 A            DATA     0                 RECEVIED STATUS AND CONDITION CODES
    13104                                     PAGE
    13105                            *
    13106                            *        MODIFIED PSEUDORANDOM NUMBER GENERATOR
    13107                            *
    13108                            *                 THE ALGORITHM
    13109                            *
    13110                            *        THE CALCULATION OF THE NEXT NUMBER X(N+1) DEPENDS ON THE
    13111                            *                 PREVIOUS NUMBER X(N) AND THE VALUE OF TWO INTERNAL
    13112                            *                 COUNTERS M1 AND M2.  THE TWO COUNTERS ARE CHANGED
    13113                            *                 BY UNITY EACH TIME A RANDOM NUMBER IS GENERATED, THE
    13114                            *                 ONE COUNTER INCREASING AND THE OTHER DECREASING.
    13115                            *
    13116                            *                 THE PROCEDURE
    13117                            *
    13118                            *        X(N+1) = M1 (+) M2 (+) M(X(N)), WHERE (+)=EXCLUSIVE OR
    13119                            *
    13120                            *        OPTION-1, USES INTERNAL VALUES OF M1, M2 AND X.  RESULTS
    13121                            *                 FOUND IN REGISTER-14.
    13122                            *
    13123                            *        OPTION-1 CALLING SEQUENCE
    13124                            *
    13125                            *        BAL,15   :RANDOMX
    13126                            *
    13127                            *        OPTION-2, USES INTERNAL VALUES OF M1 AND M2.  USER PROVIDES
    13128                            *                 SEED IN REGISTER-14.  RESULT IN REGISTER-14.
    13129                            *
    13130                            *        OPTION-2 CALLING SEQUENCE
    13131                            *
    13132                            *        LW,14    :SEED             SEED IN REGISTER-14.
    13133                            *        BAL,15   :RANDOM
    13134                            *
    13135                            *        OPTION-3, USER PROVIDES M1,M2 AND X.  RESULT IN REGISTER-14.
    13136                            *
    13137                            *        OPTION-3 CALLING SEQUENCE
    13138                            *
    13139                            *        LW,12    :M1               M1 = VALUE OF COUNTER 1
    13140                            *        LW,13    :M2               M2 = VALUE OF COUNTER 2
    13141                            *        LW,14    :SEED             SEED = RANDOM NUMBER SEED
    13142                            *        BAL,15   :RANDOMY
    13143                            *
    13144                            *
    13145   03 02024    35C02032     :RANDOMY STW,12   :M1               OPTION-3 ENTRY
    13146   03 02025    35D02033              STW,13   :M2               SAVE PARAMETERS
    13147                            *
    13148   03 02026    35E02034     :RANDOM  STW,14   :SEED             OPTION-2 ENTRY
    13149                            *
    13150   03 02027    33102032     :RANDOMX MTW,1    :M1               OPTION-1 ENTRY
    13151   03 02028    6830202A              BCR,3    %+2               TEST, M1 + 1 = 0
    13152   03 02029    33F02033              MTW,-1   :M2               NO, M2 = M2 - 1
    13153   03 0202A    32E02034              LW,14    :SEED
    13154   03 0202B    25E0020D A            SCS,14   13                GENERATE M(SEED) BY ARITHMETIC MEANS
    13155   03 0202C    30E02035              AW,14    :K                ADD CONSTANT :K
    13156   03 0202D    48E02032              EOR,14   :M1               M(SEED) (+) M1, WHERE (+) = EOR
    13157   03 0202E    48E02033              EOR,14   :M2               M(SEED) (+) M1 (+) M2
    13158   03 0202F    35E02034              STW,14   :SEED             SEED = M(SEED) (+) M1 (+) M2
    13159   03 02030    E800000F A            B        *15
    13160                            *
    13161                            *
    13162                            *
    13163                            *
    13164                                     BOUND    8
    13165   03 02032    12B9B0A1 A   :M1      DATA     314159265         PI - PRE-SET M1 VALUE
    13166   03 02033    1033C4D7 A   :M2      DATA     271828183         E - PRE-SET M2 VALUE
    13167   03 02034    544B2FBA A   :SEED    DATA     1414213562        SQRT(2) - PRE-SET SEED VALUE
    13168   03 02035    22679CB1 A   :K       DATA     577215665         GAMMA - CONSTANT
    13169                                     PAGE
    13170                            *
    13171                            *                   *** C O M P A R E ***
    13172                            *
    13173                            * THE COMPARE SUBROUTINE COMPARES TWO BUFFER AREAS A WORD AT A
    13174                            *  TIME. AN ERROR COUNT IS GENERATED WHEN UNEQUAL COMPARES ARE
    13175                            *   SENSED. UNEQUAL WORDS ARE PRINTED. ERROR EXIT IF ONE OR MORE
    13176                            *    UNEQUAL COMPARES SENSED.
    13177                            *
    13178                            *       INPUT PARAMETERS:
    13179                            *
    13180                            *           REG 15  -RETURN ADDRESS
    13181                            *           :COMWCNT-NUMBER OF WORDS TO BE COMPARED
    13182                            *           :COMBFRA-EXPECTED BUFFER ADDRESS
    13183                            *           :COMBFRB-OBSERVED BUFFER ADDRESS
    13184                            *           :COMFLAG-ERROR PRINTOUT INHIBIT FLAG (INHIBIT IF <>0)
    13185                            *                    (REGISTERS 8 THRU 11 CAN BE USED AS BUFFERS)
    13186                            *
    13187                            *       REGISTERS DISTURBED:
    13188                            *
    13189                            *           (NONE)
    13190                            *
    13191                            *       OUTPUT PARAMETERS:
    13192                            *
    13193                            *           NORMAL EXIT-RETURN ADDRESS
    13194                            *           ERROR EXIT -RETURN ADDRESS +1
    13195                            *           :COMERRT   -COUNT OF COMPARE ERRORS
    13196                            *
    13197   03 02036    22700000 A   :COMPARE LI,7     0                 ZERO                            *A01
    13198   03 02037    35702157              STW,7    :COMERRT             COMPARE ERROR COUNT          *A01
    13199   03 02038    3570215E              STW,7    :COMADDR          ADDRESS IN ERROR                *A01
    13200   03 02039    35701F00              STW,7    #MSNSEFT          FAILING TRACK                   *A01
    13201   03 0203A    6800203C              B        :PATTERN+1        GO SET UP                       *A01
    13202                            *                                                                   *A01
    13203                            *                                                                   *A01
    13204                                     PAGE
    13205                            *                *** PATTERN SPREAD ***
    13206                            *
    13207                            * THE PATTERN SPREAD SUBROUTINE SPREADS A WORD PATTERN ACCORDING TO
    13208                            *  THE TYPE SPECIFIED.
    13209                            *
    13210                            *             TYPE 0 - SPREAD WORD PATTERN
    13211                            *             TYPE 1 - SPREAD AND INCREMENT WORD PATTERN
    13212                            *             TYPE 2 - SPREAD RANDOM PATTERN
    13213                            *             TYPE 3 - SPREAD CONTENTS OF SPECIFIED ADDRESS
    13214                            *             TYPE 4 - SPREAD 3-WORD PATTERN
    13215                            *
    13216                            *       INPUT PARAMETERS:
    13217                            *
    13218                            *           :PATID  - PATTERN IDENTIFICATION (3 WORDS)
    13219                            *                     WORD 1 - TYPE (0-4)
    13220                            *                     WORD 2 - PATTERN (TYPE 0,1)
    13221                            *                              RANDOM GENERATOR SEED (TYPE 2)
    13222                            *                              WA(PATTERN) (TYPE 3,4)
    13223                            *                     WORD 3 - UNUSED (TYPE 0,2,3,4)
    13224                            *                              INCREMENT (TYPE 1)
    13225                            *
    13226                            *           :PATWC  - PATTERN WORD COUNT
    13227                            *           :PATBFR - WA(BUFFER)
    13228                            *
    13229                            *       REGISTERS DISTURBED:
    13230                            *
    13231                            *           (NONE)
    13232                            *
    13233                            *       OUTPUT PARAMETERS:
    13234                            *
    13235                            *           (NONE)
    13236                            *
    13237   03 0203B    22700006 A   :PATTERN LI,7     :COMEND-:COMROUT                                  *A01
    13238   03 0203C    30702162              AW,7     :PATID            ADD NO. OF PAT. TO BE EXECUTED  *A01
    13239   03 0203D    21700018 A            CI,7     4*(:COMEND-:COMROUT)    IF TO BIG                 *A01
    13240   03 0203E    68202040              BLE      %+2                                               *A01
    13241   03 0203F    6AF01584              BAL,15   TILT                                              *A01
    13242   03 02040    35F0215D              STW,15   :COMPXT           SAVE RTN ADR                    *A01
    13243   03 02041    3A60215B              LCW,6    :COMWCNT          LOAD NO. OF WORD IN PATTERN     *A01
    13244   03 02042    31102158              CW,1     :COMBFRB          TEST FOR DOUBLE WORD BOUNDARY   *A01
    13245   03 02043    69402048              BCS,4    %+5                  IF NOT BRANCH                *A01
    13246   03 02044    3110215B              CW,1     :COMWCNT          TEST FOR DOUBLEWORD             *A01
    13247   03 02045    69402048              BCS,4    %+3                                               *A01
    13248   03 02046    2070000C A            AI,7     2*(:COMEND-:COMROUT)                              *A01
    13249   03 02047    2560047F A            SAS,6    -1                                                *A01
    13250   03 02048    32F02158              LW,15    :COMBFRB          LOAD START ADDR OF PATTERN      *A01
    13251   03 02049    30F0215B              AW,15    :COMWCNT          ADD LENGTH OF PATTERN           *A01
    13252   03 0204A    35F02159              STW,15   :BUFTOP           SAVE AS TOP OF PATTERN          *A01
    13253   03 0204B    32E02163              LW,14    :PATID+1          LOAD PATTERN SEED               *A01
    13254   03 0204C    32F02163              LW,15    :PATID+1          LOAD PATTERN SEED               *A01
    13255   03 0204D    327E204F              LW,7     :COMROUT,7                                        *A01
    13256   03 0204E    E8000007 A            B        *7                GO DO TEST                      *A01
    13257                            *                                                                   *A01
    13258                            *                                                                   *A01
    13259                            *                                                                   *A01
    13260         03 0204F           :COMROUT SET      %                                                 *A01
    13261   03 0204F    000020A9              DATA     :COM00Y                                           *A01
    13262   03 02050    000020AB              DATA     :COM01Z                                           *A01
    13263   03 02051    000020B3              DATA     :COM02                                            *A01
    13264   03 02052    000020A7              DATA     :COM03W                                           *A01
    13265   03 02053    000020F7              DATA     :COM04                                            *A01
    13266   03 02054    000020F8              DATA     :COM05                                            *A01
    13267         03 02055           :COMEND  SET      %                                                 *A01
    13268   03 02055    0000206D              DATA     :PAT0W                                            *A01
    13269   03 02056    0000206F              DATA     :PAT1W                                            *A01
    13270   03 02057    00002074              DATA     :PAT2                                             *A01
    13271   03 02058    0000206C              DATA     :PAT3W                                            *A01
    13272   03 02059    0000209A              DATA     :PAT4                                             *A01
    13273   03 0205A    0000209B              DATA     :PAT5                                             *A01
    13274   03 0205B    000020F2              DATA     :COM00            COMPARE FIXED PATTERN           *A01
    13275   03 0205C    000020AB              DATA     :COM01Z           COMPARE INCREMENTING PATTERN    *A01
    13276   03 0205D    000020B3              DATA     :COM02            COMPARE RANDOM PATTERN          *A01
    13277   03 0205E    000020F0              DATA     :COM03            COMPARE SEEK ADDRESS PATTERN    *A01
    13278   03 0205F    000020F7              DATA     :COM04                                            *A01
    13279   03 02060    000020F8              DATA     :COM05            COMPARE SHIFTY PATTERN          *A01
    13280   03 02061    00002097              DATA     :PAT0             BUILD FIXED PATTERN             *A01
    13281   03 02062    0000206F              DATA     :PAT1W            BUILD INCREMENTING PATTERN      *A01
    13282   03 02063    00002074              DATA     :PAT2             BUILD RANDOM PATTERN            *A01
    13283   03 02064    00002096              DATA     :PAT3             BUILD SEEK ADDRESS PATTERN      *A01
    13284   03 02065    0000209A              DATA     :PAT4                                             *A01
    13285   03 02066    0000209B              DATA     :PAT5             BUILD SHIFTY PATTERN            *A01
    13286                            *                                                                   *A01
    13287                            *                 SPREAD INCREMENTING PATTERN                       *A01
    13288                            *                                                                   *A01
    13289   03 02067    30F02164     :PAT1    AW,15    :PATID+2          ADD INCREMENTAL CONSTANT        *A01
    13290   03 02068    95EC2159              STD,14   *:BUFTOP,6        STORE VALUE                     *A01
    13291   03 02069    30E02164              AW,14    :PATID+2          ADD INCREMENTAL CONSTANT        *A01
    13292   03 0206A    65602067              BIR,6    :PAT1             LOOP                            *A01
    13293   03 0206B    E800215D              B        *:COMPXT          RTN TO CALLING ROUTINE          *A01
    13294                            *                                                                   *A01
    13295                            *                                                                   *A01
    13296   03 0206C    6AF02147     :PAT3W   BAL,15   SEEKTRUE          GO GET SEEK ADDR                *A01
    13297   03 0206D    22F00000 A   :PAT0W   LI,15    0                 ZERO                            *A01
    13298   03 0206E    35F02164              STW,15   :PATID+2             INCREMENT COUNT              *A01
    13299   03 0206F    3A60215B     :PAT1W   LCW,6    :COMWCNT          SAVE RESULTS                    *A01
    13300   03 02070    B5EC2159              STW,14   *:BUFTOP,6                                        *A01
    13301   03 02071    30E02164              AW,14    :PATID+2          UPDATE PATTERN                  *A01
    13302   03 02072    65602070              BIR,6    %-2               COUNTINUE                       *A01
    13303   03 02073    E800215D              B        *:COMPXT          EXIT                            *A01
    13304                            *                                                                   *A01
    13305                            *                 BUILD RANDOM PATTERN                              *A01
    13306                            *                                                                   *A01
    13307                            :PAT2 ;                                                             *A01
    13308   03 02074    32702166              LW,7      M1               LOAD PI                         *A01
    13309   03 02075    15702160              STD,7    :PK               SET RANDOM CONSTANT             *A01
    13310   03 02076    32702158              LW,7     :COMBFRB          LOAD BUFFER STARTING ADDR       *A01
    13311   03 02077    38700006 A            SW,7     6                 FIND START OF 2ND HALF OF BUFF. *A01
    13312   03 02078    3570215A              STW,7    :COMIDPT          SET UP                          *A01
    13313   03 02079    21600001 A            CI,6     1                 TEST OF LSB = 1                 *A01
    13314   03 0207A    68402084              BCR,4    :PAT2HS           GO TO HIGH SPEED ROUTINE        *A01
    13315                            *                                                                   *A01
    13316   03 0207B    B5EC215A     RDPAT1   STW,14   *:COMIDPT,6       SAVE RANDOM NO.                 *A01
    13317   03 0207C    48E023F6              EOR,14   =-1               TAKE ONES COMPLEMENT            *A01
    13318   03 0207D    B5EC2159              STW,14   *:BUFTOP,6        SAVE ONES COMPLEMENT RANDOM NO. *A01
    13319   03 0207E    25E00007 A            SLS,14   7                 CALCULATE                       *A01
    13320   03 0207F    B8EC2159              SW,14    *:BUFTOP,6            NEW                         *A01
    13321   03 02080    46E02160              XW,14    :PK                   RANDOM                      *A01
    13322   03 02081    30E02160              AW,14    :PK                   NO.                         *A01
    13323   03 02082    6560207B              BIR,6    RDPAT1            LOOP                            *A01
    13324   03 02083    68002090              B        RDPAT2            GO SET UP SEEK ADDR             *A01
    13325   03 02084    2560047F A   :PAT2HS  SAS,6    -1                CALCULATE DOUBLEWORD INDEX      *A01
    13326   03 02085    30F02160              AW,15    :PK               MAKE IT TRULY RANDOM            *A01
    13327   03 02086    95EC215A     :PAT2HS1 STD,14   *:COMIDPT,6       SAVE RANDOM DOUBLEWORD          *A01
    13328   03 02087    48E023F6              EOR,14   =-1               TAKE ONES COMPLEMENT            *A01
    13329   03 02088    48F023F6              EOR,15   =-1               TAKE ONES COMPLEMENT            *A01
    13330   03 02089    95EC2159              STD,14   *:BUFTOP,6        SAVE RAND COMPLEMENT DOUBLEWORD *A01
    13331   03 0208A    25E00107 A            SLD,14   7                 POSITION NO.                    *A01
    13332   03 0208B    98EC2159              SD,14    *:BUFTOP,6        CALCULATE                       *A01
    13333   03 0208C    46E02160              XW,14    :PK                   NEW                         *A01
    13334   03 0208D    46F02161              XW,15    :PK+1                 RANDOM                      *A01
    13335   03 0208E    10E02160              AD,14    :PK                   NUMBER                      *A01
    13336   03 0208F    65602086              BIR,6    :PAT2HS1          LOOP                            *A01
    13337   03 02090    35E02163     RDPAT2   STW,14   :PATID+1          SAVE RANDOM SEED                *A01
    13338   03 02091    6AF02147              BAL,15   SEEKTRUE          GO CALCULATE TRUE SEEK ADDR     *A01
    13339   03 02092    B5E42158              STW,14   *:COMBFRB,2       INSERT IT INTO THE PATTERN      *A01
    13340   03 02093    48E023F6              EOR,14   =-1               TAKE ONES COMPLEMENT            *A01
    13341   03 02094    B5E4215A              STW,14   *:COMIDPT,2       INSERT IT INTO THE PATTERN      *A01
    13342   03 02095    E800215D              B        *:COMPXT          RTN TO CALLING ROUTINE          *A01
    13343                            *                                                                   *A01
    13344                            *                 BUILD SEEK ADDRESS PATTERN                        *A01
    13345                            *                                                                   *A01
    13346   03 02096    6AF02147     :PAT3    BAL,15   SEEKTRUE          CONVERT TO TRUE SEEK ADDR       *A01
    13347   03 02097    95EC2159     :PAT0    STD,14   *:BUFTOP,6        STORE VALUE IN PATTERN          *A01
    13348   03 02098    65602097              BIR,6    :PAT0             LOOP                            *A01
    13349   03 02099    E800215D              B        *:COMPXT          RTN TO CALLING ROUTINE          *A01
    13350                            *                                                                   *A01
    13351                            *                 NON-ALLOWED PATTERN                               *A01
    13352                            *                                                                   *A01
    13353   03 0209A    6AF01584     :PAT4    BAL,15   TILT                                              *A01
    13354                            *                                                                   *A01
    13355                            *                 BUILD SHIFTY PATTERN                              *A01
    13356                            *                                                                   *A01
    13357   03 0209B    3A60215B     :PAT5    LCW,6    :COMWCNT                                          *A01
    13358   03 0209C    B5EC2159              STW,14   *:BUFTOP,6        STORE VALUE IN PATTERN          *A01
    13359   03 0209D    A5E02164              SCS,14   *:PATID+2         POSITION FOR NEW PATTERN        *A01
    13360   03 0209E    6560209C              BIR,6    %-2               LOOP                            *A01
    13361   03 0209F    E800215D              B        *:COMPXT          RTN TO CALLING ROUTINE          *A01
    13362                            *                                                                   *A01
    13363                            *                 COMPARE INCREMENTING PATTERN                      *A01
    13364                            *                                                                   *A01
    13365                            *                                                                   *A01
    13366                            *                                                                   *A01
    13367   03 020A0    30F02164     :COM01   AW,15    :PATID+2          ADD INCREMENTAL CONSTANT        *A01
    13368   03 020A1    91EC2159              CD,14    *:BUFTOP,6        COMPARE PATTERN                 *A01
    13369   03 020A2    683020A4              BE       %+2               IF GOOD CONTINUE                *A01
    13370   03 020A3    680020AB              B        :COM01Z              OTHERWISE ERROR EXIT         *A01
    13371   03 020A4    30E02164              AW,14    :PATID+2          ADD INCREMENTAL CONSTANT        *A01
    13372   03 020A5    656020A0              BIR,6    :COM01            LOOP                            *A01
    13373   03 020A6    680020E6              B        :COMRTN           GO CHECK FOR ERRORS             *A01
    13374                            *                                                                   *A01
    13375                            *                                                                   *A01
    13376   03 020A7    6AF02147     :COM03W  BAL,15   SEEKTRUE          GO GET SEEK ADDRESS             *A01
    13377   03 020A8    35E02163              STW,14   :PATID+1                                          *A01
    13378   03 020A9    22F00000 A   :COM00Y  LI,15    0                 ZERO                            *A01
    13379   03 020AA    35F02164              STW,15   :PATID+2             INCREMENTIAL CONSTANT        *A01
    13380   03 020AB    3A60215B     :COM01Z  LCW,6    :COMWCNT          LOAD WORD COUNT                 *A01
    13381   03 020AC    32E02163              LW,14    :PATID+1          SET UP SEED AGAIN               *A01
    13382                            *                                                                   *A01
    13383                            *                                                                   *A01
    13384   03 020AD    B1EC2159     :COM01X  CW,14    *:BUFTOP,6        COMPARE PATTERN                 *A01
    13385   03 020AE    683020B0              BE       %+2               IF GOOD CONTINUE                *A01
    13386   03 020AF    6AF020FF              BAL,15   :COM1             GO REPORT ERROR                 *A01
    13387   03 020B0    30E02164              AW,14    :PATID+2          ADD INCREMENTING CONSTANT       *A01
    13388   03 020B1    656020AD              BIR,6    :COM01X           LOOP                            *A01
    13389   03 020B2    680020E6              B        :COMRTN           GO CHECK FOR ERRORS             *A01
    13390                            *                                                                   *A01
    13391                            *                 COMPARE RANDOM PATTERN                            *A01
    13392                            *                                                                   *A01
    13393   03 020B3    3AF00006 A   :COM02   LCW,15   6                 LOAD PATTERN COUNT              *A01
    13394   03 020B4    21F00001 A            CI,15    1                                                 *A01
    13395   03 020B5    694020D8              BCS,4    :COM021                                           *A01
    13396   03 020B6    25F0007F A            SLS,15   -1                                                *A01
    13397   03 020B7    22E00000 A            LI,14    0                 ZERO UP PART OF DOUBLEWORD      *A01
    13398   03 020B8    90EC2159              AD,14    *:BUFTOP,6        ADD FROM PATTERN                *A01
    13399   03 020B9    656020B8              BIR,6    %-1               LOOP                            *A01
    13400   03 020BA    693020D8              BNEZ     :COM021           IF NOT ZERO,ERROR               *A01
    13401                            *                                                                   *A01
    13402                            *                 TEST SEEK ADDRESS FROM RANDOM PATTERN             *A01
    13403                            *                                                                   *A01
    13404   03 020BB    6AF02147     COM02ADR BAL,15   SEEKTRUE          CONVRT TO DEV. TRACK/SECTOR ADDR*A01
    13405   03 020BC    B1E42158              CW,14    *:COMBFRB,2       COMPARE WITH T-S FROM PATTERN   *A01
    13406   03 020BD    E830215D              BE       *:COMPXT            IF = RTN TO CALLING ROUTINE   *A01
    13407   03 020BE    B2C42158              LW,12    *:COMBFRB,2       LOAD ADDRESS                    *A01
    13408   03 020BF    35C0215E              STW,12   :COMADDR          SAVE THEM                       *A01
    13409   03 020C0    3300215C              MTW,0    :COMFLAG          TEST PRINT INHIBIT FLAG         *A01
    13410   03 020C1    E932215D              BNEZ     *:COMPXT,1            IF SET EXIT                 *A01
    13411   03 020C2    4BC0240D              AND,12   =X'FFFF'          REMOVE DEVICE ADDR              *A01
    13412   03 020C3    3A601D3C              LCW,6    TCKCURR           LOAD SHIFT COUNT                *A01
    13413   03 020C4    4B602411              AND,6    =X'17F'           SET UP A SHIFT DOUBLE RIGHT     *A01
    13414   03 020C5    A5C00006 A            SCD,12   *6                POSITION TRACK/BAND INFORMATION *A01
    13415   03 020C6    EAF00217 A            BAL,15   *:DECC            CONVERT TO DEC                  *A01
    13416   03 020C7    75F0218D              STB,15   :COMERM6+7        SAVE                            *A01
    13417   03 020C8    25F00278 A            SCS,15   -8                    TRACK/BAND                  *A01
    13418   03 020C9    55F2218C              STH,15   :COMERM6+6,1          INFORMATION IN MSG          *A01
    13419   03 020CA    22C00000 A            LI,12    0                 ZERO                            *A01
    13420   03 020CB    32601D3C              LW,6     TCKCURR           LOAD SHIFT COUNT                *A01
    13421   03 020CC    756620CD              STB,6    %+1,3             SAVE SHIFT COUNT                *A01
    13422   03 020CD    25C00300 A            SCD,12   0                 POSITION SECTOR                 *A01
    13423   03 020CE    EAF00217 A            BAL,15   *:DECC                                            *A01
    13424   03 020CF    55F0218E              STH,15   :COMERM6+8        SAVE SECTOR INFORMATION         *A01
    13425   03 020D0    52C0215E              LH,12    :COMADDR          LOAD DEV ADDR                   *A01
    13426   03 020D1    EAF00218 A            BAL,15   *:HEXC            CONVERT TO HEX                  *A01
    13427   03 020D2    55F02189              STH,15   :COMERM6+3        SAVE                            *A01
    13428   03 020D3    25F00070 A            SLS,15   -16                  I/O ADDRESS                  *A01
    13429   03 020D4    55F22188              STH,15   :COMERM6+2,1          IN MSG                      *A01
    13430   03 020D5    EAF0021C A            BAL,15   *:PRINT               REPORT                      *A01
    13431   03 020D6    00002186              DATA     :COMERM6              MSG                         *A01
    13432   03 020D7    E802215D              B        *:COMPXT,1        RTN TO CALLING ROUTING          *A01
    13433                            *                                                                   *A01
    13434                            *                                                                   *A01
    13435                            *                                                                   *A01
    13436   03 020D8    3A60215B     :COM021  LCW,6    :COMWCNT          LOAD WORD COUNT                 *A01
    13437   03 020D9    2560047F A            SAS,6    -1                DIVIDE BY 2                     *A01
    13438   03 020DA    32E02159              LW,14    :BUFTOP           LOAD STARTING ADDR OF PATTERN   *A01
    13439   03 020DB    35E0215A              STW,14   :COMIDPT          SAVE AS TOP OF BUFFER           *A01
    13440   03 020DC    30E00006 A            AW,14    6                 ADD DOUBLE WORD COUNT           *A01
    13441   03 020DD    35E02159              STW,14   :BUFTOP           SAVE 2ND HALF BUFFER ADDR       *A01
    13442   03 020DE    B2EC215A     :COM02V  LW,14    *:COMIDPT,6       LOAD ONES COMPLEMENT WORD       *A01
    13443   03 020DF    48E023F6              EOR,14   =-1               TAKE ONES COMPLEMENT            *A01
    13444   03 020E0    B1EC2159              CW,14    *:BUFTOP,6        TEST AGAINST FIRST HALF OF PATT.*A01
    13445   03 020E1    683020E3              BE       %+2               IF EQUAL CONTINUE               *A01
    13446   03 020E2    6AF020FF              BAL,15   :COM1             GO REPORT ERROR                 *A01
    13447   03 020E3    656020DE              BIR,6    :COM02V           LOOP                            *A01
    13448   03 020E4    33002157              MTW,0    :COMERRT                                          *A01
    13449   03 020E5    683020BB              BEZ      COM02ADR                                          *A01
    13450                            :COMRTN  ;                                                          *A01
    13451   03 020E6    3300215C              MTW,0    :COMFLAG                                          *A01
    13452   03 020E7    E930215D              BNEZ     *:COMPXT                                          *A01
    13453   03 020E8    32C02157              LW,12    :COMERRT          LOAD TOTAL NO. OF COMPARE ERRORS*A01
    13454   03 020E9    31C02156              CW,12    :COMPLIM          IF IT DOESN'T EXCEED            *A01
    13455   03 020EA    E820215D              BLE      *:COMPXT              LIMIT: EXIT                 *A01
    13456   03 020EB    EAF00217 A            BAL,15   *:DECC                OTHERWISE                   *A01
    13457   03 020EC    35F0219B              STW,15   :COMERM7+9            FORMAT MSG                  *A01
    13458   03 020ED    EAF0021C A            BAL,15   *:PRINT               AND REPORT IT               *A01
    13459   03 020EE    00002192              DATA     :COMERM7                                          *A01
    13460   03 020EF    E800215D              B        *:COMPXT          RETURN TO CALLING ROUTINE       *A01
    13461                            *                                                                   *A01
    13462                            *                 COMPARE SEEK ADDRESS PATTERN                      *A01
    13463                            *                                                                   *A01
    13464   03 020F0    6AF02147     :COM03   BAL,15   SEEKTRUE          CONVERT TO DEV SEEK ADDR        *A01
    13465   03 020F1    35E02163              STW,14   :PATID+1                                          *B03
    13466                            *                                                                   *A01
    13467                            *                 COMPARE FIXED PATTERN                             *A01
    13468                            *                                                                   *A01
    13469                            :COM00 ;                                                            *A01
    13470   03 020F2    91EC2159              CD,14    *:BUFTOP,6        COMPARE PATTERN                 *A01
    13471   03 020F3    683020F5              BE       %+2               IF GOOD BRANCH                  *A01
    13472   03 020F4    680020A9              B        :COM00Y           TAKE ERROR EXIT                 *A01
    13473   03 020F5    656020F2              BIR,6    %-3               LOOP                            *A01
    13474   03 020F6    680020E6              B        :COMRTN           GO CHECK FOR ERRORS             *A01
    13475                            *                                                                   *A01
    13476                            *                 NON-ALLOWED COMPARE                               *A01
    13477                            *                                                                   *A01
    13478   03 020F7    6AF01584     :COM04   BAL,15   TILT                                              *A01
    13479                            *                                                                   *A01
    13480                            *                 COMPARE SHIFTY PATTERN                            *A01
    13481   03 020F8    3A60215B     :COM05   LCW,6    :COMWCNT          LOAD WORD COUNT                 *A01
    13482   03 020F9    B1EC2159              CW,14    *:BUFTOP,6        TEST WORD                       *A01
    13483   03 020FA    683020FC              BE       %+2                   IF EQUAL CONTINUE           *A01
    13484   03 020FB    6AF020FF              BAL,15   :COM1             GO REPORT ERROR                 *A01
    13485   03 020FC    A5E02164              SCS,14   *:PATID+2         SHIFT PATTERN                   *A01
    13486   03 020FD    656020F9              BIR,6    :COM05+1          LOOP                            *A01
    13487   03 020FE    680020E6              B        :COMRTN           GO CHECK FOR ERRORS             *A01
    13488   03 020FF    15E02152     :COM1    STD,14   :COMSAVE          SAVE EXPECTED WORD & RTN        *A01
    13489   03 02100    92E02158              LD,14    *:COMBFRB         LOAD FIRST 2 WORDS FROM PATTERN *A01
    13490   03 02101    11E02166              CD,14    M1                TEST AGAINST SKIP PATTERN DW    *A01
    13491   03 02102    E830215D              BE       *:COMPXT              IF = EXIT                   *A01
    13492                            *                                                                   *A01
    13493                            *                                                                   *A01
    13494                            *                                                                   *A01
    13495   03 02103    33002157              MTW,0    :COMERRT          LOAD ERROR COUNT                *A01
    13496   03 02104    69302106              BNEZ     %+2               IF NOT=0 SKIP SETTING ERR EXIT  *A01
    13497   03 02105    3310215D              MTW,1    :COMPXT           SET ERROR EXIT                  *A01
    13498   03 02106    33102157              MTW,1    :COMERRT          UPDATE ERROR COUNT              *A01
    13499   03 02107    3110215C              CW,1     :COMFLAG          TEST PRINT INHIBIT FLAG         *A01
    13500   03 02108    68302126              BE       :COM2EXT          IF =1 EXIT                      *A01
    13501   03 02109    6910213C              BL       :COM93            IF > GO CHECK BIT POSITION      *A01
    13502   03 0210A    32C02157              LW,12    :COMERRT          LOAD TOTAL NO. OF COMPARE ERRORS*A01
    13503   03 0210B    31C02156              CW,12    :COMPLIM          IF IT DOES EXCEED               *A01
    13504   03 0210C    69202126              BG       :COM2EXT              LIMIT: SKIP ERROR REPORTING *A01
    13505   03 0210D    32C02158              LW,12    :COMBFRB          LOAD BUFFER ADDR                *A01
    13506   03 0210E    31102157              CW,1     :COMERRT          TEST ERROR COUNT                *A01
    13507   03 0210F    69302119              BNE      :COM2             IF NOT =1, SKIP PRINTING HEADER *A01
    13508   03 02110    EAF00218 A            BAL,15   *:HEXC            GO CONVERT BUFFER ADDR          *A01
    13509   03 02111    55F02178              STH,15   :COMERM3+16       SAVE PARTIAL BUFFER ADDR        *A01
    13510   03 02112    25F00070 A            SLS,15   -16                                               *A01
    13511   03 02113    55F22177              STH,15   :COMERM3+15,1                                     *A01
    13512   03 02114    EAF00218 A            BAL,15   *:HEXC                                            *A01
    13513   03 02115    55F02177              STH,15   :COMERM3+15                                       *A01
    13514   03 02116    EAF0021C A            BAL,15   *:PRINT           GO PRINT BUFFER ADDR            *A01
    13515   03 02117    00002168              DATA     :COMERM3                                          *A01
    13516   03 02118    6800211B              B        :COM2+2           SKIP SPACE                      *A01
    13517                            *                                                                   *A01
    13518                            *                                                                   *A01
    13519   03 02119    EAF0021C A   :COM2    BAL,15   *:PRINT           PRINT A SPACE                   *A01
    13520   03 0211A    00001577              DATA     SPACE                                             *A01
    13521   03 0211B    32C02159              LW,12    :BUFTOP           LOAD TOP OF A BUFFER            *A01
    13522   03 0211C    38C02158              SW,12    :COMBFRB          FIND BUFFER LENGTH              *A01
    13523   03 0211D    30C00006 A            AW,12    6                 FIND WORD COUNT                 *A01
    13524   03 0211E    EAF00218 A            BAL,15   *:HEXC            GO CONVERT IF TO HEX            *A01
    13525   03 0211F    35F02185              STW,15   :COMERM4+12       SAVE RESULTS                    *A01
    13526                            *                                                                   *A01
    13527                            *                                                                   *A01
    13528   03 02120    327023EC              LW,7     =X'33C5E7D7'      LOAD BYTE COUNT AND 'EXP'       *A01
    13529   03 02121    32C02152              LW,12    :COMSAVE          LOAD EXPECTED DATA              *A01
    13530   03 02122    6AE02128              BAL,14   :COM4             GO CONVERT TO BINARY            *A01
    13531                            *                                                                   *A01
    13532                            *                                                                   *A01
    13533   03 02123    B2CC2159              LW,12    *:BUFTOP,6        LOAD RECEIVED DATA              *A01
    13534   03 02124    32702412              LW,7     =X'2CD6C2E2'                                      *A01
    13535   03 02125    6AE02128              BAL,14   :COM4             GO CONVERT TO BINARY            *A01
    13536                            :COM2EXT ;                                                          *A01
    13537   03 02126    32E02152              LW,14    :COMSAVE          RESTORE                         *A01
    13538   03 02127    E8002153              B        *:COMSAVE+1       EXIT                            *A01
    13539                            *                                                                   *A01
    13540                            *                                                                   *A01
    13541   03 02128    35702179     :COM4    STW,7    :COMERM4          SAVE TYPE OF MSG                *A01
    13542   03 02129    35602154              STW,6    :COMSAVE+2        SAVE REG 6 & 7                  *A01
    13543   03 0212A    2260002C A            LI,6     44                LOAD NO. OF BYTES IN MSG        *A01
    13544   03 0212B    22700004 A   :COM41   LI,7     4                 LOAD NO. OF BYTES PER GROUP     *A01
    13545   03 0212C    EAF00216 A            BAL,15   *:BINC            GO CONVERT BITS TO BINARY       *A01
    13546   03 0212D    75FC2179              STB,15   :COMERM4,6        INSERT INTO MSG                 *A01
    13547   03 0212E    25F00078 A            SLS,15   -8                POSITION BITS                   *A01
    13548   03 0212F    206FFFFF A            AI,6     -1                KICK COUNT                      *A01
    13549   03 02130    6470212D              BDR,7    %-3               LOOP BACK                       *A01
    13550   03 02131    206FFFFF A            AI,6     -1                KICK MSG BYTE POINTER           *A01
    13551   03 02132    21600005 A            CI,6     5                 TEST FOR END                    *A01
    13552   03 02133    6920212B              BG       :COM41               IF NOT LOOP                  *A01
    13553   03 02134    32602154              LW,6     :COMSAVE+2        RESTORE REG 6 & 7               *A01
    13554   03 02135    EAF0021C A            BAL,15   *:PRINT           GO PRINT                        *A01
    13555   03 02136    00002179              DATA     :COMERM4                                          *A01
    13556   03 02137    E800000E A            B        *14               RTN                             *A01
    13557                            *                                                                   *A01
    13558   03 02138    35702179     :COM4EXT STW,7    :COMERM4          SAVE TYPE OF MSG                *BOO
    13559   03 02139    35602154              STW,6    :COMSAVE+2        SAVE REG 6                      *BOO
    13560   03 0213A    22600018 A            LI,6     24                LOAD NO OF BYTES IN MSG         *BOO
    13561   03 0213B    6800212B              B        :COM41            B: BUILD AND PRINT A LINE       *BOO
    13562                            *                                                                   *A01
    13563                            *                                                                   *A01
    13564                            *                                                                   *A01
    13565                            *                                                                   *A01
    13566   03 0213C    32E02152     :COM93   LW,14    :COMSAVE          LOAD EXP WORD                   *A01
    13567   03 0213D    22700080 A            LI,7     X'80'             LOAD BIT TEST                   *A01
    13568   03 0213E    22F0000F A            LI,15    X'F'              LOAD MASK                       *A01
    13569   03 0213F    33000007 A   :COM92   MTW,0    7                 TEST FOR END                    *A01
    13570   03 02140    68302126              BEZ      :COM2EXT              IF END EXIT                 *A01
    13571   03 02141    25F0027C A            SCS,15   -4                POSITION BYTES                  *A01
    13572   03 02142    C5EC2159              CS,14    *:BUFTOP,6        TEST BYTES                      *A01
    13573   03 02143    68302145              BE       %+2               IF SET BRANCH                   *A01
    13574   03 02144    47701F00              STS,7    #MSNSEFT          SET BIT                         *A01
    13575   03 02145    2570007F A            SLS,7    -1                POSITION BIT                    *A01
    13576   03 02146    6800213F              B        :COM92            LOOP                            *A01
    13577                            *                                                                   *A01
    13578                            *                                                                   *A01
    13579                            *                                                                   *A01
    13580   03 02147    35F02154     SEEKTRUE STW,15   :COMSAVE+2        SAVE RTN ADDR                   *A01
    13581   03 02148    22E00000 A            LI,14    0                 ZERO                            *A01
    13582   03 02149    32F01D38              LW,15    CURRSEEK          LOAD TRACK-SECTOR               *A01
    13583   03 0214A    36E01D36              DW,14    SECTCURR          DIVIDE                          *A01
    13584   03 0214B    A5F01D3C              SLS,15   *TCKCURR          POSITION                        *A01
    13585   03 0214C    30E0000F A            AW,14    15                                                *A01
    13586   03 0214D    32F01D35              LW,15    :DEVADDR          FETCH DEV ADDR                  *A01
    13587   03 0214E    55F0000E A            STH,15   14                                                *A01
    13588   03 0214F    35E0000F A            STW,14   15                PUT TRACK-SECTOR IN 15          *A01
    13589   03 02150    E8002154              B        *:COMSAVE+2       EXIT                            *A01
    13590                                     BOUND    8                                                 *A01
    13591   03 02152    00000000 A   :COMSAVE DATA     0                 TEMPORARY STORAGE               *A01
    13592   03 02153    00000000 A            DATA     0                 TEMPORARY STORAGE               *A01
    13593   03 02154    00000000 A            DATA     0                 TEMPORARY STORAGE               *A01
    13594   03 02155    00000000 A            DATA     0                 TEMPORARY STORAGE               *A01
    13595   03 02156    00000001 A   :COMPLIM DATA     1                 LIMIT FOR MSG REPORT OF COMP ERR*A01
    13596   03 02157    00000000 A   :COMERRT DATA     0                 NO. OF ERRORS DURING COMPARE    *A01
    13597   03 02158    00000000 A   :COMBFRB DATA     0                 ADDR OF FIRST LOCATION IN BUFFER*A01
    13598   03 02159    00000000 A   :BUFTOP  DATA     0                 ADDR OF LAST LOCATION IN BUFFER *A01
    13599   03 0215A    00000000 A   :COMIDPT DATA     0                 ADDR OF MIDDLE LOC. IN BUFFER   *A01
    13600   03 0215B    00000000 A   :COMWCNT DATA     0                 NO. OF WORDS IN BUFFER          *A01
    13601   03 0215C    00000000 A   :COMFLAG DATA     0                 PRINT INHIBIT IF = 1            *A01
    13602   03 0215D    00000000 A   :COMPXT  DATA     0                 EXIT FROM COMPARE               *A01
    13603   03 0215E    00000000 A   :COMADDR DATA     0                 DEV, TRACK(BAND),SECTOR ADDR    *A01
    13604                                     BOUND    8                                                 *A01
    13605   03 02160    00000000 A   :PK      DATA     0                 RANDOM NO. FOR RANDOM           *A01
    13606   03 02161    00000000 A   :PK1     DATA     0                   NO. GENERATION                *A01
    13607   03 02162    00000000 A   :PATID   DATA     0                 PATTERN TYPE                    *A01
    13608   03 02163    00000000 A            DATA     0                 PATTERN SEED                    *A01
    13609   03 02164    00000000 A            DATA     0                 PATTERN INCREMENT CONSTANT      *A01
    13610   03 02165    00000000 A            DATA     0                                                 *A01
    13611   03 02166    12B9B0A1 A   M1       DATA     314159265         PI                              *A01
    13612   03 02167    1033C4D7 A   M2       DATA     271828183         E                               *A01
    13613         03 0215B           :PATWC   EQU      :COMWCNT                                          *A01
    13614         03 02158           :PATBFR  EQU      :COMBFRB                                          *A01
    13615                            :COMERM3 TEXTC     ;                                                *A01
    13616                             '     0123 4567 8901 2345 6789 0123 4567 8901 ',;                  *A01
    13617   03 02168    41404040 A    'WD CNT BF ADR XXXXXX'                                             *A01
            03 02169    4040F0F1 A
            03 0216A    F2F340F4 A
            03 0216B    F5F6F740 A
            03 0216C    F8F9F0F1 A
            03 0216D    40F2F3F4 A
            03 0216E    F540F6F7 A
            03 0216F    F8F940F0 A
            03 02170    F1F2F340 A
            03 02171    F4F5F6F7 A
            03 02172    40F8F9F0 A
            03 02173    F140E6C4 A
            03 02174    40C3D5E3 A
            03 02175    40C2C640 A
            03 02176    C1C4D940 A
            03 02177    E7E7E7E7 A
            03 02178    E7E74040 A
    13618                            :COMERM4 TEXTC     ;                                                *A01
    13619   03 02179    33C5E7D7 A       'EXP                                                '           *A01
            03 0217A    40404040 A
            03 0217B    40404040 A
            03 0217C    40404040 A
            03 0217D    40404040 A
            03 0217E    40404040 A
            03 0217F    40404040 A
            03 02180    40404040 A
            03 02181    40404040 A
            03 02182    40404040 A
            03 02183    40404040 A
            03 02184    40404040 A
            03 02185    40404040 A
    13620                            :COMERM6 TEXTC     ;                                                *A01
    13621   03 02186    2EC961D6 A    'I/O ADR  XXXX SEEK ADR T=DDD S=DD FROM PATTERN'                   *A01
            03 02187    40C1C4D9 A
            03 02188    4040E7E7 A
            03 02189    E7E740E2 A
            03 0218A    C5C5D240 A
            03 0218B    C1C4D940 A
            03 0218C    E37EC4C4 A
            03 0218D    C440E27E A
            03 0218E    C4C440C6 A
            03 0218F    D9D6D440 A
            03 02190    D7C1E3E3 A
            03 02191    C5D9D540 A
    13622                            :COMERM7 TEXTC    ;                                                 *A01
    13623   03 02192    27C3D6D4 A    'COMPARE ERRORS WERE LIMITED: TOTAL DDDD'                          *A01
            03 02193    D7C1D9C5 A
            03 02194    40C5D9D9 A
            03 02195    D6D9E240 A
            03 02196    E6C5D9C5 A
            03 02197    40D3C9D4 A
            03 02198    C9E3C5C4 A
            03 02199    7A40E3D6 A
            03 0219A    E3C1D340 A
            03 0219B    C4C4C4C4 A
    13624                                     PAGE
    13625                            *
    13626                            *                 *** CLEAR BUFFER ***
    13627                            *
    13628                            * THE CLEAR BUFFER SUBROUTINE CLEARS A SPECIFIED BUFFER AREA.
    13629                            *  BUFFER SIZE SPECIFIED IN NUMBER OF WORDS.
    13630                            *
    13631                            *       INPUT PARAMETERS:
    13632                            *
    13633                            *           REG 15  -RETURN ADDRESS
    13634                            *           :CLRADDR-WA(BUFFER)
    13635                            *           :CLRSIZE-BUFFER WORD SIZE
    13636                            *
    13637                            *       REGISTERS DISTURBED:
    13638                            *
    13639                            *           (NONE)
    13640                            *
    13641                            *       OUTPUT PARAMETERS:
    13642                            *
    13643                            *           (NONE)
    13644                            *
    13645   03 0219C    154021AA     :CLEAR   STD,R4   :CLRSAVE          SAVE REGISTERS 4-6
    13646   03 0219D    356021AC              STW,R6   :CLRSAVE+2
    13647   03 0219E    325021A7              LW,R5    :CLRADDR          BUFFER ADDRESS
    13648   03 0219F    305021A8              AW,R5    :CLRSIZE          BUFFER ADDR + BUFFER SIZE
    13649   03 021A0    3A4021A8              LCW,R4   :CLRSIZE          -(BUFFER SIZE)
    13650   03 021A1    22600000 A            LI,R6    0
    13651   03 021A2    B5680005 A            STW,R6   *R5,R4            0 TO BUFFER
    13652   03 021A3    654021A2              BIR,R4   %-1               COUNT NOT 0
    13653   03 021A4    124021AA              LD,R4    :CLRSAVE          RESTORE REGISTERS 4-6
    13654   03 021A5    326021AC              LW,R6    :CLRSAVE+2
    13655   03 021A6    E800000F A            B        *R15              EXIT
    13656                            *
    13657   03 021A7    00000000 A   :CLRADDR DATA     0                 BUFFER ADDRESS
    13658   03 021A8    00000000 A   :CLRSIZE DATA     0                 BUFFER SIZE
    13659                                     BOUND    8
    13660   03 021AA                 :CLRSAVE RES      3                 REGISTERS 4-6
    13661                                     PAGE
    13662                            *
    13663                            *               *** IO EXECUTE ***
    13664                            *
    13665                            * THE IO EXECUTE SUBROUTINE ISSUES A TIO, SIO TO SPECIFIED DEVICE.
    13666                            *  THE SUBROUTINE LOOPS UPON DETECTION OF STATUS OR CC ERROR.
    13667                            *
    13668                            *       INPUT PARAMETERS:
    13669                            *
    13670                            *         REG 0   -DA(IOCD)
    13671                            *         REG 15  -RETURN ADDRESS
    13672                            *         :DEVADDR-DEVICE ADDRESS
    13673                            *
    13674                            *       REGISTERS DISTURBED:
    13675                            *
    13676                            *         (NONE)
    13677                            *
    13678                            *       OUTPUT PARAMETERS:
    13679                            *
    13680                            *         REG 12-SIO COMMAND ADDRESS
    13681                            *         REG 13-SIO DEVICE STATUS, BYTE COUNT
    13682                            *
    13683                            *       WAIT CONDITION-PROGRAM ENTERS WAIT STATE (1) AFTER UNSUCCESSFUL
    13684                            *                      HIO, IO RESET, TIO SEQUENCE OR (2) IF DEVICE
    13685                            *                      MANUAL CONDITION IS DETECTED.
    13686                            *
    13687   03 021AD    354021FA     :IOEXEC  STW,R4   :IOSAVE           SAVE REGISTERS 4,11,14,15
    13688   03 021AE    35B021FB              STW,R11  :IOSAVE+1
    13689   03 021AF    15E021FC              STD,R14  :IOSAVE+2
    13690   03 021B0    6AF01F09     :IOEXEC1 BAL,R15  :TIO              ISSUE TIO
    13691   03 021B1    F600C001 A            DATA     X'F600C001'       STATUS MASK
    13692   03 021B2    10000000 A            DATA     X'10000000'       EXPECTED STATUS
    13693   03 021B3    680021B5              B        %+2
    13694   03 021B4    680021CB              B        :IOERR1           TIO STATUS ERROR
    13695   03 021B5    4BD02413              AND,R13  =X'10000000'      MASK DEV STATUS FOR AUTO TEST
    13696   03 021B6    683021F2              BCR,3    :IOERR2           DEVICE MANUAL ERROR
    13697   03 021B7    6AF01F04              BAL,R15  :SIO              ISSUE SIO
    13698   03 021B8    F600C001 A            DATA     X'F600C001'       STATUS MASK
    13699   03 021B9    10000000 A            DATA     X'10000000'       EXPECTED STATUS
    13700   03 021BA    680021C7              B        :IOERR6           BRANCH
    13701   03 021BB    330014F4              MTW,0    :FUNFLAG          TESTING ZERO
    13702   03 021BC    693021C1              BNEZ     %+5               BRANCH EQUAL NOT ZERO
    13703   03 021BD    32F02266              LW,15    :ERRORT#          FETCH ERROR NO.
    13704   03 021BE    35F021C0              STW,15   %+2               STORE ERROR NO.
    13705   03 021BF    6AF01556              BAL,15   TST1ERMG          REPORT ERROR
    13706   03 021C0    00000000 A            DATA     0                 ERROR NO.
    13707   03 021C1    351014F4              STW,1    :FUNFLAG
    13708   03 021C2    6AF01F07              BAL,15   :SIO+3            SIO SUBR.
    13709   03 021C3    F600C000 A            DATA     X'F600C000'       STATUS MASKING
    13710   03 021C4    10000000 A            DATA     X'10000000'       EXPECTED STATUS
    13711   03 021C5    680021C7              B        :IOERR6           BRANCH
    13712   03 021C6    680021B0              B        :IOEXEC1          BRANCH
    13713   03 021C7    324021FA     :IOERR6  LW,R4    :IOSAVE           FETCH WORD
    13714   03 021C8    32B021FB              LW,R11   :IOSAVE+1
    13715   03 021C9    12E021FC              LD,R14   :IOSAVE+2
    13716   03 021CA    E800000F A            B        *R15              EXIT
    13717                            *                                   TIO STATUS ERROR
    13718   03 021CB    6AF01F0E     :IOERR1  BAL,R15  :HIO              ISSUE HIO
    13719   03 021CC    10000001 A            DATA     X'10000001'       STATUS MASK
    13720   03 021CD    10000000 A            DATA     X'10000000'       EXPECTED STATUS
    13721   03 021CE    680021B0              B        :IOEXEC1          HIO STATUS ERROR-LOOP TO ISSUE TIO
    13722   03 021CF    330014F4              MTW,0    :FUNFLAG          TESTING ZERO
    13723   03 021D0    693021D5              BNEZ     %+5
    13724   03 021D1    32F02266              LW,15    :ERRORT#          FETCH ERROR NO.
    13725   03 021D2    35F021D4              STW,15   %+2               STORE WORD
    13726   03 021D3    6AF01556              BAL,15   TST1ERMG          REPORT ERROR
    13727   03 021D4    00000000 A            DATA     0                 ERROR NO.
    13728   03 021D5    351014F4              STW,1    :FUNFLAG          STORE 1 INTO FUNFLAG
    13729   03 021D6    6AF01F11              BAL,15   :HIO+3            HIO
    13730   03 021D7    1000C000 A            DATA     X'1000C000'       MASKING STATUS
    13731   03 021D8    10000000 A            DATA     X'10000000'       EXP. STATUS
    13732   03 021D9    680021B0              B        :IOEXEC1          BRANCH TO SUBR.
    13733   03 021DA    6D000042 A            WD,0     X'42'             IO RESET
    13734   03 021DB    22401388 A            LI,4     5000              FETCH NO.
    13735   03 021DC    644021DC              BDR,4    %                 BRANCH DEC. REG
    13736   03 021DD    6D000042 A            WD,0     X'42'
    13737   03 021DE    22401388 A            LI,4     5000              FETCH NO.
    13738   03 021DF    644021DF              BDR,4    %                 BRANCH DEC. REG.
    13739   03 021E0    6AF01F09              BAL,R15  :TIO              ISSUE TIO
    13740   03 021E1    F600C001 A            DATA     X'F600C001'       STATUS MASK
    13741   03 021E2    10000000 A            DATA     X'10000000'       EXPECTED STATUS
    13742   03 021E3    680021B0              B        :IOEXEC1          LOOP TO ISSUE TIO
    13743   03 021E4    330014F4              MTW,0    :FUNFLAG          TESTING ZERO
    13744   03 021E5    693021EA              BNEZ     %+5               BRANCH
    13745   03 021E6    32F02266              LW,15    :ERRORT#          FETCH WORD
    13746   03 021E7    35F021E9              STW,15   %+2               STORE ERROR NO.
    13747   03 021E8    6AF01556              BAL,15   TST1ERMG          REPORT ERROR
    13748   03 021E9    00000000 A            DATA     0                 ERROR NO.
    13749   03 021EA    351014F4              STW,1    :FUNFLAG          STORE 1 INTO FUNFLAG
    13750   03 021EB    6AF01F0C              BAL,15   :TIO+3            TIO SUBR.
    13751   03 021EC    F600C000 A            DATA     X'F600C000'       STATUS MASKING
    13752   03 021ED    10000000 A            DATA     X'10000000'       EXPECTED STATUS
    13753   03 021EE    680021B0              B        :IOEXEC1          BRANCH
    13754                            *                                   ENTER WAIT STATE
    13755   03 021EF    EAF0022B A   :IOERR1A WAITPROC :IOERM1           'CLEAR WAIT TO CONTINUE'        *C01
            03 021F0    000021FE
    13756   03 021F1    680021B0              B        :IOEXEC1          LOOP TO ISSUE TIO
    13757                            *                                   DEVICE MANUAL ERROR
    13758   03 021F2    32C01D35     :IOERR2  LW,R12   :DEVADDR          DEVICE ADDRESS
    13759   03 021F3    EAF00218 A            BAL,R15  *:HEXC            CONVERT TO HEXADECIMAL IN EBCDIC
    13760   03 021F4    35F02205              STW,R15  :IOERM2+1         DEV ADDR TO MSG
    13761   03 021F5    22C00040 A            LI,R12   X'40'             SUPPRESS LEADING 0 OF DEV ADDR
    13762   03 021F6    75C02205              STB,R12  :IOERM2+1
    13763   03 021F7    EAF0021C A            BAL,R15  *:PRINT           PRINT ERROR MSG
    13764   03 021F8    00002204              DATA     :IOERM2
    13765   03 021F9    680021EF              B        :IOERR1A          GO TO WAIT
    13766                            *
    13767                                     BOUND    8
    13768   03 021FA                 :IOSAVE  RES      4                 REGISTERS 4,11,14,15
    13769   03 021FE    16C3D3C5 A   :IOERM1  TEXTC    'CLEAR WAIT TO CONTINUE'
            03 021FF    C1D940E6 A
            03 02200    C1C9E340 A
            03 02201    E3D640C3 A
            03 02202    D6D5E3C9 A
            03 02203    D5E4C540 A
    13770   03 02204    0EC4C5E5 A   :IOERM2  TEXTC    'DEV XXX MANUAL'
            03 02205    40E7E7E7 A
            03 02206    40D4C1D5 A
            03 02207    E4C1D340 A
    13771                                     PAGE
    13772                            *
    13773                            *                 *** ERROR ROUTINE ***
    13774                            * THIS SUBROUTINE ACCEPTS A STRING OF BYTES, EACH OF WHICH IDENTIFIES
    13775                            * THE STATUS TYPE (BITS 0 - 3), THE BIT TEST (BIT 4) AND THE STATUS
    13776                            * MASK (BITS 5 - 7). THE TESTS WILL BE PERFORMED IN THE SEQUENCE OF THE
    13777                            * BYTE STRING, WITH EACH TEST CHECKING A SPECIFIC STATUS BIT FOR THE
    13778                            * TRUE OR FALSE CONDITION. A ZERO BYTE   WILL INDICATE THE END OF THE
    13779                            * BYTE STRING. AFTER THE BIT TESTS, THE REMAINING BITS OF THE STATUS
    13780                            * PREVIOUSLY SELECTED WILL BE TESTED.
    13781                            *
    13782                            * THE BYTE HAS THE FOLLOWING FORMAT:
    13783                            *
    13784                            * BITS 0 - 3                 BIT 4    BITS 5 - 7
    13785                            * ----------                 -----    ----------
    13786                            * 0 NOT ALLOWED              0 FALSE  0 MASK X'80', BYT   -, COM2<COM1
    13787                            * 1 TIO STATUS               1 TRUE   1 MASK X'40', BYT = 0, COM2=COM1
    13788                            * 2 OPERATIONAL STATUS (TIO)   TEST   2 MASK X'20', BYT  +1, COM2=COM1+1
    13789                            * 3 HIO STATUS                        3 MASK X'10', BYT  +2, COM2=COM1+2
    13790                            * 4 TDV STATUS                        4 MASK X'08', BYT  +3, COM2=COM1+3
    13791                            * 5 SIO STATUS                        5 MASK X'04', BYT  +4, COM2=COM1+4
    13792                            * 6 AIO STATUS                        6 MASK X'02', BYT  +5, COM2=COM1+5
    13793                            * 7 INTERRUPT STATUS (AIO)            7 MASK X'01', BYT  +6, COM2=COM1+6
    13794                            * 8 BYTE 8 OF SENSE DATA
    13795                            * 9 NOT ASSIGNED
    13796                            * A NOT ASSIGNED
    13797                            * B NOT ASSIGNED
    13798                            * C NOT ASSIGNED
    13799                            * D NOT ASSIGNED
    13800                            * E BYTE COUNT TEST (TIO)
    13801                            * F COMMAND ADDR TEST (TIO)
    13802                            *
    13803                            *
    13804                            * SUBROUTINES ARE PROVIDED TO STORE STATUS INFORMATION INTO A TABLE.
    13805                            * IF THE TIO, HIO, TDV, OSB, BYTE CNT, OR COMMAND ADR HAS NOT BEEN
    13806                            * STORED IN THE TABLE, THE ERROR ROUTINE  SR WILL ISSUE THE APPROPRIATE
    13807                            * I/O INSTRUCTION AND STORE THE STATUS BEFORE TESTING COMMENCES.
    13808                            *
    13809                            * CALLING SEQUENCE: BAL,15 :ERRORT
    13810                            *                   DATA   BA(TSEQNNN)
    13811                            * NORMAL EXIT:      B      (CONTINUE TEST)
    13812                            * ERROR  EXIT:             (IDENTIFY SUBTEST)
    13813                            *
    13814                            * REGISTERS DISTURBED: NONE (R1 = 1, R2 = 2, R3 = 3)
    13815                            *
    13816                            * VARIABLES REQUIRED: STATUS IN SAVE TABLE
    13817                            *                     STARTING COMMAND ADR
    13818                            *
    13819                            * OTHER SUBROUTINES: CLEAR STATUS SAVE TABLE (:SAVECLR)
    13820                            *                    STORE STATUS IN SAVE TABLE (:SAVETIO,:SAVEHIO,
    13821                            *                    :SAVETDV,:SAVESIO,:SAVEAIO,:SAVESSA,SAVESSB,:TIO,
    13822                            *                    :TDV,:HIO)
    13823                            *
    13824                            *
    13825                            * THE FOLLOWING EQUATE STATEMENTS ASSIGN LABELS TO BYTE VALUES
    13826                            *
    13827                            TIOF0,TIOF1,TIOF2,TIOF3,TIOF4,TIOF5,TIOF6,TIOF7  :TSEQEQU  X'10'
    13828                            TIOT0,TIOT1,TIOT2,TIOT3,TIOT4,TIOT5,TIOT6,TIOT7  :TSEQEQU  X'18'
    13829                            OSBF0,OSBF1,OSBF2,OSBF3,OSBF4,OSBF5,OSBF6,OSBF7  :TSEQEQU  X'20'
    13830                            OSBT0,OSBT1,OSBT2,OSBT3,OSBT4,OSBT5,OSBT6,OSBT7  :TSEQEQU  X'28'
    13831                            HIOF0,HIOF1,HIOF2,HIOF3,HIOF4,HIOF5,HIOF6,HIOF7  :TSEQEQU  X'30'
    13832                            HIOT0,HIOT1,HIOT2,HIOT3,HIOT4,HIOT5,HIOT6,HIOT7  :TSEQEQU  X'38'
    13833                            TDVF0,TDVF1,TDVF2,TDVF3,TDVF4,TDVF5,TDVF6,TDVF7  :TSEQEQU  X'40'
    13834                            TDVT0,TDVT1,TDVT2,TDVT3,TDVT4,TDVT5,TDVT6,TDVT7  :TSEQEQU  X'48'
    13835                            SIOF0,SIOF1,SIOF2,SIOF3,SIOF4,SIOF5,SIOF6,SIOF7  :TSEQEQU  X'50'
    13836                            SIOT0,SIOT1,SIOT2,SIOT3,SIOT4,SIOT5,SIOT6,SIOT7  :TSEQEQU  X'58'
    13837                            AIOF0,AIOF1,AIOF2,AIOF3,AIOF4,AIOF5,AIOF6,AIOF7  :TSEQEQU  X'60'
    13838                            AIOT0,AIOT1,AIOT2,AIOT3,AIOT4,AIOT5,AIOT6,AIOT7  :TSEQEQU  X'68'
    13839                            ISBF0,ISBF1,ISBF2,ISBF3,ISBF4,ISBF5,ISBF6,ISBF7  :TSEQEQU  X'70'
    13840                            ISBT0,ISBT1,ISBT2,ISBT3,ISBT4,ISBT5,ISBT6,ISBT7  :TSEQEQU  X'78'
    13841                            SBAF0,SBAF1,SBAF2,SBAF3,SBAF4,SBAF5,SBAF6,SBAF7  :TSEQEQU  X'80'
    13842                            SBAT0,SBAT1,SBAT2,SBAT3,SBAT4,SBAT5,SBAT6,SBAT7  :TSEQEQU  X'88'
    13843                            BYTN0,BYT00,BYT01,BYT02,BYT03,BYT04,BYT05,BYT06  :TSEQEQU  X'E0'
    13844                            COMNG,COM00,COM01,COM02,COM03,COM04,COM05,COM06  :TSEQEQU  X'F0'
    13845                            *
    13846   03 02208    02200000 A   :ERRORT  LCI      0
    13847   03 02209    2B0022D7              STM,0    :ERRTMP1          SAVE ALL REGISTERS
    13848   03 0220A    B250000F A            LW,5     *15               FETCH BYTE ADDR
    13849   03 0220B    22000000 A            LI,0     0
    13850   03 0220C    350022EB              STW,0    :ERRTFLG          STORE WORD
    13851   03 0220D    726A0000 A   :ERRT0   LB,6     0,5               FETCH BYTE
    13852   03 0220E    683022A5              BCR,3    :ERRT13           BRANCH: BYTE = 0
    13853   03 0220F    22700000 A            LI,7     0
    13854   03 02210    2560037C A            SCD,6    -4                BITS 0 - 3 RIGHT JUSTIFIED
    13855   03 02211    356022E8              STW,6    :ERRTMP3          SAVE INDEX
    13856   03 02212    21600009 A            CI,6     9
    13857   03 02213    69102219              BCS,1    :ERRT1            B: RANGE OF INDEX 1 - 8
    13858   03 02214    2160000D A            CI,6     13
    13859   03 02215    6920226C              BCS,2    :ERRT11           BRANCH: RANGE OF INDEX 14 - 15
    13860   03 02216    EAF0022B A            WAITPROC WAITMSG1          WAIT                            *C01
            03 02217    000023DA
    13861   03 02218    68002216              B        %-2               PROGRAM ERRORS
    13862                            *
    13863   03 02219    328C23C4     :ERRT1   LW,8     :SAVETAB,6        FETCH STATUS
    13864   03 0221A    6910223D              BCS,1    :ERRT6            BRANCH: STATUS IN TABLE
    13865   03 0221B    21600005 A            CI,6     5
    13866   03 0221C    69102220              BCS,1    :ERRT2            BRANCH: RANGE OF INDEX 1 - 4
    13867   03 0221D    EAF0022B A            WAITPROC WAITMSG1          WAIT                            *C01
            03 0221E    000023DA
    13868   03 0221F    6800221D              B        %-2               PROGRAM ERROR                   *C01
    13869   03 02220    21600003 A   :ERRT2   CI,6     3
    13870   03 02221    69302229              BCS,3    :ERRT3            BRANCH: NOT HIO TEST
    13871   03 02222    6AF01F0E              BAL,15   :HIO              ISSUE HIO AND TEST CC1
    13872   03 02223    00008000 A            DATA     X'00008000',0
            03 02224    00000000 A
    13873   03 02225    68002227              B        %+2
    13874   03 02226    68002269              B        :ERRT10           BRANCH: NO ADDR RECOG OR BUSY SIOP
    13875   03 02227    6AF0239A              BAL,15   :SAVEHIO          STORE HIO STATUS IN TABLE
    13876   03 02228    68002219              B        :ERRT1            FETCH STATUS
    13877                            *
    13878   03 02229    21600004 A   :ERRT3   CI,6     4
    13879   03 0222A    69302232              BCS,3    :ERRT4            BRANCH: NOT TDV TEST
    13880   03 0222B    6AF01F13              BAL,15   :TDV              ISSUE TDV AND TEST CC1
    13881   03 0222C    00008000 A            DATA     X'00008000',0
            03 0222D    00000000 A
    13882   03 0222E    68002230              B        %+2
    13883   03 0222F    68002269              B        :ERRT10           BRANCH: NO ADDR RECOG OR BUSY SIOP
    13884   03 02230    6AF0239F              BAL,15   :SAVETDV          STORE TDV STATUS
    13885   03 02231    68002219              B        :ERRT1            FETCH STATUS
    13886                            *
    13887   03 02232    6AF02234     :ERRT4   BAL,15   :ERRT5            ISSUE TIO AND STORE STATUS
    13888   03 02233    68002219              B        :ERRT1
    13889                            *
    13890   03 02234    35F0223C     :ERRT5   STW,15   :ERRT5X           SAVE EXIT ADDR
    13891   03 02235    6AF01F09              BAL,15   :TIO              ISSUE TIO AND TEST CC1
    13892   03 02236    00008000 A            DATA     X'00008000',0
            03 02237    00000000 A
    13893   03 02238    6800223A              B        %+2
    13894   03 02239    68002269              B        :ERRT10           BRANCH: NO ADDR RECOG OR BUSY SIOP
    13895   03 0223A    6AF0238C              BAL,15   :SAVETIO          STORE TIO STATUS, OSB, BYT, COM
    13896   03 0223B    E800223C              B        *:ERRT5X          EXIT                    IN TABLE
    13897   03 0223C    00000000 A   :ERRT5X  DATA     0                 EXIT ADDR
    13898                            *
    13899   03 0223D    22600000 A   :ERRT6   LI,6     0
    13900   03 0223E    25600301 A            SCD,6    1                 FETCH BIT 4
    13901   03 0223F    356022E7              STW,6    :ERRTMP2          SAVE TRUE/FALSE TEST FLAG
    13902   03 02240    22600000 A            LI,6     0
    13903   03 02241    25600303 A            SCD,6    3                 FETCH BITS 5 - 7
    13904   03 02242    35602375              STW,6    :ERRBITS
    13905   03 02243    729C22E9              LB,9     :ERRTMSK,6        FETCH MASK
    13906   03 02244    49800009 A            OR,8     9                 UPDATE CURRENT MASK
    13907   03 02245    71920008 A            CB,9     8,1               COMPARE MASK TO STATUS
    13908   03 02246    6940224A              BCS,4    :ERRT7            BRANCH: MATCH BETWEEN STATUS & MASK
    13909   03 02247    330022E7              MTW,0    :ERRTMP2          TEST TRUE/FALSE FLAG
    13910   03 02248    6830224D              BCR,3    :ERRT8            BRANCH: FALSE TEST SUCCESSFUL
    13911   03 02249    68002251              B        :ERRT9            BRANCH: TRUE  TEST UNSUCCESSFUL
    13912                            *
    13913   03 0224A    330022E7     :ERRT7   MTW,0    :ERRTMP2          TEST TRUE/FALSE FLAG
    13914   03 0224B    68302251              BCR,3    :ERRT9            BRANCH: FALSE TEST UNSUCCESSFUL
    13915   03 0224C    6800224D              B        :ERRT8            BRANCH: TRUE  TEST SUCCESSFUL
    13916                            *
    13917   03 0224D    326022E8     :ERRT8   LW,6     :ERRTMP3          FETCH INDEX
    13918   03 0224E    358C23C4              STW,8    :SAVETAB,6        SAVE STATUS IN TABLE
    13919   03 0224F    33100005 A   :ERRT8A  MTW,1    5                 INCREMENT BYTE ADDR
    13920   03 02250    6800220D              B        :ERRT0            TEST NEXT BYTE
    13921                            *
    13922   03 02251    326022E8     :ERRT9   LW,6     :ERRTMP3          FETCH INDEX
    13923   03 02252    358C23C4              STW,8    :SAVETAB,6        SAVE STATUS IN TABLE
    13924   03 02253    326022E8     :ERRT9A  LW,6     :ERRTMP3          FETCH INDEX
    13925   03 02254    327C22EC              LW,7     :ERRTYPE,6        FETCH WORD CORRESP. TO INDEX
    13926   03 02255    35702363              STW,7    :ERRTMG1+1        STORE IN OUTPUT FORMAT
    13927   03 02256    327C236C              LW,7     :ERRTTB,6         FETCH INDEX FROM INDEX TABLE
    13928   03 02257    32602375              LW,6     :ERRBITS          FETCH BIT SELECTED
    13929   03 02258    928C0007 A            LD,8     *7,6              FETCH DOUBLEWORD ERROR MESSAGE
    13930   03 02259    15802366              STD,8    :ERRTMG1+4        STORE DOUBLEWORD TO OUTPUT FORMAT
    13931   03 0225A    206000F0 A            AI,6     X'F0'             CHANGE HEX TO EBCDIC
    13932   03 0225B    75622365              STB,6    :ERRTMG1+3,1      STORE BIT NUMBER IN OUTPUT FORMAT
    13933   03 0225C    326022E7              LW,6     :ERRTMP2          FETCH TRUE OR FALSE BIT
    13934   03 0225D    206000F0 A            AI,6     X'F0'             CHANGE TO EBCDIC
    13935   03 0225E    75642369              STB,6    :ERRTMG1+7,2      STORE T/F BIT IN OUTPUT FORMAT
    13936   03 0225F    326022E7              LW,6     :ERRTMP2
    13937   03 02260    48600001 A            EOR,6    1                 COMPLEMENT T/F BIT
    13938   03 02261    206000F0 A            AI,6     X'F0'             CHANGE TO EBCDIC
    13939   03 02262    7560236B              STB,6    :ERRTMG1+9,0      STORE COMPLEMENTED T/F BIT
    13940   03 02263    330014F4              MTW,0    :FUNFLAG
    13941   03 02264    69302267              BNEZ     %+3
    13942   03 02265    6AF01556              BAL,15   TST1ERMG
    13943   03 02266    00000000 A   :ERRORT# DATA     0
    13944   03 02267    EAF0021C A            BAL,15   *:PRINT
    13945   03 02268    00002362              DATA     :ERRTMG1
    13946                            *
    13947   03 02269    331022EB     :ERRT10  MTW,1    :ERRTFLG          INCR. ERROR TALLY
    13948   03 0226A    351014F4              STW,1    :FUNFLAG          STORE WORD
    13949   03 0226B    6800224F              B        :ERRT8A
    13950                            *
    13951   03 0226C    328C23C4     :ERRT11  LW,8     :SAVETAB,6        FETCH STATUS
    13952   03 0226D    6910226F              BCS,1    %+2               BRANCH: STATUS IN TABLE
    13953   03 0226E    6AF02234              BAL,15   :ERRT5            ISSUE TIO AND STORE STATUS
    13954   03 0226F    4B80240D              AND,8    =X'FFFF'          BITS 16 - 31
    13955   03 02270    52820008 A            LH,8     8,1
    13956   03 02271    2160000E A            CI,6     14
    13957   03 02272    693022A2              BCS,3    :ERRT12           BRANCH: COMMAND ADDR TEST
    13958   03 02273    25600304 A   :ERRT11A SCD,6    4                 FETCH BITS 4 - 7
    13959   03 02274    4B602414              AND,6    =X'7'
    13960   03 02275    69302279              BCS,3    :ERRT11B          BRANCH: NOT EQUAL TO ZERO
    13961   03 02276    33000008 A            MTW,0    8                 TEST BYTE COUNT OR COMMAND DIFF
    13962   03 02277    6910224F              BCS,1    :ERRT8A           BRANCH: NEGATIVE TEST SUCCESSFUL
    13963   03 02278    68002286              B        :ERRT91A          B: NEGATIVE TEST NOT SUCCESSFUL
    13964   03 02279    33F00006 A   :ERRT11B MTW,-1   6                 SUBTRACT 1 FROM BITS 5 - 7
    13965   03 0227A    31600008 A            CW,6     8                 COMPARE R8 TO TEST VALUE
    13966   03 0227B    6830224F              BCR,3    :ERRT8A           BRANCH:      TEST SUCCESSFUL
    13967                            *                                   TEST NOT SUCCESSFUL
    13968   03 0227C    327022E8     :ERRT92A LW,7     :ERRTMP3          FETCH INDEX
    13969   03 0227D    2170000E A            CI,7     14                BYTE COUNT  OR COMMAND ADDRESS
    13970   03 0227E    68302283              BCR,3    :ERRT92C          BRANCH IF EQUAL TO
    13971   03 0227F    329023D8              LW,9    :SAVCOM1           FETCH ORIG COMMAND ADDRESS
    13972   03 02280    30900006 A            AW,9     6                 SAVCOM1 + 1
    13973   03 02281    3590000C A            STW,9    12                STORE IN R12
    13974   03 02282    6800228C              B        :ERRT92B          BRANCH
    13975   03 02283    30602415     :ERRT92C AW,6     =X'F0F0F0F0'      CONVERT INDEX TO EBCDIC
    13976   03 02284    3560000F A            STW,6    15                STORE  IN R15
    13977   03 02285    68002290              B        :ERRT91C          BRANCH
    13978   03 02286    327022E8     :ERRT91A LW,7     :ERRTMP3          FETCH INDEX
    13979   03 02287    2170000E A            CI,7     14                BYTE COUNT  OR  COMMAND ADDRESS
    13980   03 02288    6830228F              BCR,3    :ERRT91B          BRANCH IF EQUAL TO
    13981   03 02289    329023D8              LW,9    :SAVCOM1           FETCH ORIG COMMAND ADRS.
    13982   03 0228A    38900001 A            SW,9     1                 SUBTRACT 1 FROM SAVCOM1
    13983   03 0228B    3590000C A            STW,9    12                STORE IN R12
    13984   03 0228C    EAF00218 A   :ERRT92B BAL,15   *:HEXC            CONVERT TO EBCDIC
    13985   03 0228D    12A02382              LD,10    :ERRTCAM          FETCH COMMAND ADDRESS ID
    13986   03 0228E    68002291              B        %+3               BRANCH
    13987   03 0228F    32F0237F     :ERRT91B LW,15    :ERRTNEG          FETCH EXPECTED NEGATIVE WORD
    13988   03 02290    12A02380     :ERRT91C LD,10    :ERRTBCM          FETCH BYTE COUNT ID
    13989   03 02291    35A02377              STW,10   :ERRTMG2+1        STORE  ID
    13990   03 02292    35B02378              STW,11   :ERRTMG2+2                  IN MESSAGE
    13991   03 02293    35F0237B              STW,15   :ERRTMG2+5        STORE R15 IN MESSAGE
    13992   03 02294    326022E8              LW,6     :ERRTMP3          FETCH INDEX
    13993   03 02295    32CC23C4              LW,12    :SAVETAB,6        LOAD BYTE COUNT OR COMMAND ADR
    13994   03 02296    EAF00218 A            BAL,15   *:HEXC            CONVERT INTO EBCDIC
    13995   03 02297    35F0237E              STW,15   :ERRTMG2+8        STORE R15 IN MESSAGE
    13996   03 02298    330014F4              MTW,0    :FUNFLAG
    13997   03 02299    6930229E              BNEZ     %+5
    13998   03 0229A    32F02266              LW,15    :ERRORT#
    13999   03 0229B    35F0229D              STW,15   %+2
    14000   03 0229C    6AF01556              BAL,15   TST1ERMG
    14001   03 0229D    00000000 A            DATA     0
    14002   03 0229E    EAF0021C A            BAL,15   *:PRINT           BRANCH TO PRINT ROUTINE
    14003   03 0229F    00002376              DATA     :ERRTMG2
    14004   03 022A0    351014F4              STW,1    :FUNFLAG          STORE WORD
    14005   03 022A1    68002269              B        :ERRT10           B: TEST NEXT BIT
    14006                            *
    14007   03 022A2    329023D8     :ERRT12  LW,9     :SAVCOM1          FETCH ORIGINAL COMMAND ADDR
    14008   03 022A3    38800009 A            SW,8     9                 FIND DIFFERENCE OF COMMAND ADDRESSES
    14009   03 022A4    68002273              B        :ERRT11A
    14010                            *
    14011   03 022A5    224FFFF7 A   :ERRT13  LI,4     -9                SET INDEX
    14012   03 022A6    328823CE              LW,8     :SAVETAB+10,4     FETCH STATUS
    14013   03 022A7    681022B6              BCR,1    :ERRT14           BRANCH: NO STATUS
    14014   03 022A8    72960008 A            LB,9     8,3               FETCH CURRENT MASK
    14015   03 022A9    683022B6              BCR,3    :ERRT14           BRANCH: STATUS NOT PREVIOUSLY TESTED
    14016   03 022AA    22A00000 A            LI,10    0
    14017   03 022AB    75A00008 A            STB,10   8                 RESET STATUS FLAG
    14018   03 022AC    358823CE              STW,8    :SAVETAB+10,4     RESTORE WORD IN TABLE
    14019   03 022AD    22A000FF A            LI,10    X'FF'
    14020   03 022AE    4890000A A            EOR,9    10                COMPLEMENT CURRENT MASK
    14021   03 022AF    72A40008 A            LB,10    8,2               FETCH STANDARD MASK
    14022   03 022B0    4B90000A A            AND,9    10                STATUS COMPARE MASK FOR REMAINING
    14023   03 022B1    72A20008 A            LB,10    8,1               FETCH STATUS BYTE              BITS
    14024   03 022B2    4BA00009 A            AND,10   9                 TEST STATUS
    14025   03 022B3    693022BC              BCS,3    :ERRT15           BRANCH: STATUS IN ERROR
    14026   03 022B4    330022EB              MTW,0    :ERRTFLG           TEST ERROR FLAG
    14027   03 022B5    693022BC              BNEZ     :ERRT15           BRANCH: PRINT STATUS
    14028   03 022B6    654022A6     :ERRT14  BIR,4    :ERRT13+1         BRANCH: TEST NEXT STATUS
    14029   03 022B7    02200000 A            LCI      0
    14030   03 022B8    2A0022D7              LM,0     :ERRTMP1          RESTORE REGISTERS
    14031   03 022B9    330022EB              MTW,0    :ERRTFLG          TEST ERROR FLAG
    14032   03 022BA    E832000F A            BCR,3    *15,1             NORMAL EXIT
    14033   03 022BB    E804000F A            B        *15,2             ERROR EXIT
    14034                            *
    14035   03 022BC    32C822F6     :ERRT15  LW,12    :ERRTYPE+10,4       FETCH STATUS TYPE
    14036   03 022BD    35C022F6              STW,12   :ERRTM1+1         STORE SATUS ID
    14037   03 022BE    330014F4              MTW,0    :FUNFLAG
    14038   03 022BF    693022C4              BNEZ     %+5
    14039   03 022C0    32F02266              LW,15    :ERRORT#
    14040   03 022C1    35F022C3              STW,15   %+2
    14041   03 022C2    6AF01556              BAL,15   TST1ERMG
    14042   03 022C3    00000000 A            DATA     0
    14043   03 022C4    EAF0021C A            BAL,15   *:PRINT           PRINT LINE 1
    14044   03 022C5    000022F5              DATA     :ERRTM1           MSG = '   TIO 01234567'
    14045   03 022C6    351014F4              STW,1    :FUNFLAG          STORE WORD
    14046   03 022C7    72C20008 A            LB,12    8,1               FETCH STATUS BYTE
    14047   03 022C8    EAF00216 A            BAL,15   *:BINC            CONVERT FOUR BYTES
    14048   03 022C9    35F022FC              STW,15   :ERRTM2+3         STORE IN MSG AREA
    14049   03 022CA    EAF00216 A            BAL,15   *:BINC            CONVERT FOUR BYTES
    14050   03 022CB    35F022FB              STW,15   :ERRTM2+2         STORE IN MSG AREA
    14051   03 022CC    EAF0021C A            BAL,15   *:PRINT           PRINT LINE 2
    14052   03 022CD    000022F9              DATA     :ERRTM2           MSG = 'STATUS BBBBBBBB'
    14053   03 022CE    72C60009 A            LB,12    9,3               FETCH MASK
    14054   03 022CF    EAF00216 A            BAL,15   *:BINC            CONVERT FOUR BYTES
    14055   03 022D0    35F02300              STW,15   :ERRTM3+3         STORE IN MSG AREA
    14056   03 022D1    EAF00216 A            BAL,15   *:BINC            CONVERT FOUR BYTES
    14057   03 022D2    35F022FF              STW,15   :ERRTM3+2         STORE IN MSG AREA
    14058   03 022D3    EAF0021C A            BAL,15   *:PRINT           PRINT LINE 3
    14059   03 022D4    000022FD              DATA     :ERRTM3           MSG = '  MASK MMMMMMMM'
    14060   03 022D5    331022EB              MTW,1    :ERRTFLG          INCR ERROR TALLY
    14061   03 022D6    680022B6              B        :ERRT14
    14062                            *
    14063   03 022D7                 :ERRTMP1 RES      16                REGISTER SAVE AREA
    14064   03 022E7    00000000 A   :ERRTMP2 DATA     0                 TRUE/FALSE TEST FLAG
    14065   03 022E8    00000000 A   :ERRTMP3 DATA     0                 INDEX
    14066   03 022E9    80402010 A   :ERRTMSK GEN,8,8,8,8  X'80',X'40',X'20',X'10'   TEST
    14067   03 022EA    08040201 A            GEN,8,8,8,8  X'08',X'04',X'02',X'01'     MASKS
    14068   03 022EB    00000000 A   :ERRTFLG DATA     0
    14069   03 022EC    00000000 A   :ERRTYPE DATA  0,'TIO ','OSB ','HIO ','TDV ','SIO ','AIO ','ISB ','SB8 '
            03 022ED    E3C9D640 A
            03 022EE    D6E2C240 A
            03 022EF    C8C9D640 A
            03 022F0    E3C4E540 A
            03 022F1    E2C9D640 A
            03 022F2    C1C9D640 A
            03 022F3    C9E2C240 A
            03 022F4    E2C2F840 A
    14070   03 022F5    0F404040 A   :ERRTM1  TEXTC    '   XXX 01234567' STATUS
            03 022F6    E7E7E740 A
            03 022F7    F0F1F2F3 A
            03 022F8    F4F5F6F7 A
    14071   03 022F9    0FE2E3C1 A   :ERRTM2  TEXTC    'STATUS BBBBBBBB'
            03 022FA    E3E4E240 A
            03 022FB    C2C2C2C2 A
            03 022FC    C2C2C2C2 A
    14072   03 022FD    0F4040D4 A   :ERRTM3  TEXTC    '  MASK MMMMMMMM'   MSGS
            03 022FE    C1E2D240 A
            03 022FF    D4D4D4D4 A
            03 02300    D4D4D4D4 A
    14073                                     BOUND    8
    14074   03 02302    C9D5E340 A   :ERRTTBA TEXT     'INT PEND'        BIT 0
            03 02303    D7C5D5C4 A
    14075   03 02304    D5D6E340 A            TEXT     'NOT OP ?'        BIT 1   TIO
            03 02305    D6D7406F A
    14076   03 02306    E4D5C1E5 A            TEXT     'UNAVAIL?'        BIT 2
            03 02307    C1C9D36F A
    14077   03 02308    4040C1E4 A            TEXT     '  AUTO  '        BIT 3     SIO                (1)
            03 02309    E3D64040 A
    14078   03 0230A    404040E4 A            TEXT     '   UE   '        BIT 4                        (3)
            03 0230B    C5404040 A
    14079   03 0230C    D5D6E340 A            TEXT     'NOT OP ?'        BIT 5       HIO              (5)
            03 0230D    D6D7406F A
    14080   03 0230E    E4D5C1E5 A            TEXT     'UNAVAIL?'        BIT 6
            03 0230F    C1C9D36F A
    14081   03 02310    D5D6E340 A            TEXT     'NOT USED'        BIT 7         STATUS
            03 02311    E4E2C5C4 A
    14082   03 02312    C9D5C340 A   :ERRTTBB TEXT     'INC LEN '        BIT 0
            03 02313    D3C5D540 A
    14083   03 02314    E3D9C1D5 A            TEXT     'TRANSM  '        BIT 1
            03 02315    E2D44040 A
    14084   03 02316    E3D9C1D5 A            TEXT     'TRANSMEM'        BIT 2   OPERATIONAL
            03 02317    E2D4C5D4 A
    14085   03 02318    D4C5D440 A            TEXT     'MEM ADR '        BIT 3
            03 02319    C1C4D940 A
    14086   03 0231A    C9D6D740 A            TEXT     'IOP MEM '        BIT 4     STATUS BYTE (OSB)
            03 0231B    D4C5D440 A
    14087   03 0231C    C9D6D740 A            TEXT     'IOP CONT'        BIT 5                        (2)
            03 0231D    C3D6D5E3 A
    14088   03 0231E    C9D6D740 A            TEXT     'IOP HALT'        BIT 6
            03 0231F    C8C1D3E3 A
    14089   03 02320    E2C9D6D7 A            TEXT     'SIOPBUSY'        BIT 7
            03 02321    C2E4E2E8 A
    14090   03 02322    D6E5C5D9 A   :ERRTTBC TEXT     'OVERRUN '        BIT 0
            03 02323    D9E4D540 A
    14091   03 02324    D5D6E340 A            TEXT     'NOT USED'        BIT1
            03 02325    E4E2C5C4 A
    14092   03 02326    E2C5C340 A            TEXT     'SEC UNVL'        BIT 2  TDV
            03 02327    E4D5E5D3 A
    14093   03 02328    E6D9E340 A            TEXT     'WRT PV'          BIT 3
            03 02329    D7E54040 A
    14094   03 0232A    E2E8D5C3 A            TEXT     'SYNC MSD'        BIT 4
            03 0232B    40D4E2C4 A
    14095   03 0232C    D5D6E340 A            TEXT     'NOT USED'        BIT5
            03 0232D    E4E2C5C4 A
    14096   03 0232E    D5D6E340 A            TEXT     'NOT USED'        BIT6
            03 0232F    E4E2C5C4 A
    14097   03 02330    D5D6E340 A            TEXT     'NOT USED'        BIT7
            03 02331    E4E2C5C4 A
    14098   03 02332    D6E5C5D9 A   :ERRTTBD TEXT     'OVERRUN '        BIT 0
            03 02333    D9E4D540 A
    14099   03 02334    D5D6E340 A            TEXT     'NOT USED'        BIT 1
            03 02335    E4E2C5C4 A
    14100   03 02336    E2C5C340 A            TEXT     'SEC UNVL'        BIT 2 AIO
            03 02337    E4D5E5D3 A
    14101   03 02338    E6D9E340 A            TEXT     'WRT PV'          BIT 3
            03 02339    D7E54040 A
    14102   03 0233A    D5D6E340 A            TEXT     'NOT USED'        BIT 4     STATUS             (6)
            03 0233B    E4E2C5C4 A
    14103   03 0233C    D5D6E340 A            TEXT     'NOT USED'        BIT5
            03 0233D    E4E2C5C4 A
    14104   03 0233E    D5D6E340 A            TEXT     'NOT USED'        BIT6
            03 0233F    E4E2C5C4 A
    14105   03 02340    D5D6E340 A            TEXT     'NOT USED'        BIT 7
            03 02341    E4E2C5C4 A
    14106   03 02342    C9D5C340 A   :ERRTTBE TEXT     'INC LEN '        BIT 0
            03 02343    D3C5D540 A
    14107   03 02344    E3D9C1D5 A            TEXT     'TRANSM  '        BIT 1
            03 02345    E2D44040 A
    14108   03 02346    E9C2C340 A            TEXT     'ZBC INT '        BIT 2   INTERRUPT
            03 02347    C9D5E340 A
    14109   03 02348    40C3C540 A            TEXT     ' CE INT '        BIT 3
            03 02349    C9D5E340 A
    14110   03 0234A    40E4C540 A            TEXT     ' UE INT '        BIT 4     STATUS BYTE (ISB)  (7)
            03 0234B    C9D5E340 A
    14111   03 0234C    D5D6E340 A            TEXT     'NOT USED'        BIT 5
            03 0234D    E4E2C5C4 A
    14112   03 0234E    D5D6E340 A            TEXT     'NOT USED'        BIT 6
            03 0234F    E4E2C5C4 A
    14113   03 02350    D5D6E340 A            TEXT     'NOT USED'        BIT 7
            03 02351    E4E2C5C4 A
    14114   03 02352    C440D7C1 A   :ERRTTBF TEXT     'D PAR E '        BIT 0
            03 02353    D940C540 A
    14115   03 02354    C3C8D2E6 A            TEXT     'CHKWRT E'        BIT 1
            03 02355    D9E340C5 A
    14116   03 02356    E2C5C3E3 A            TEXT     'SECT COM'        BIT 2   SENSE
            03 02357    40C3D6D4 A
    14117   03 02358    C8C5C1C4 A            TEXT     'HEAD COM'        BIT 3
            03 02359    40C3D6D4 A
    14118   03 0235A    C3E8D340 A            TEXT     'CYL COM '        BIT 4     BYTE  8            (8)
            03 0235B    C3D6D440 A
    14119   03 0235C    C8C440C1 A            TEXT     'HD ADR E'        BIT 5
            03 0235D    C4D940C5 A
    14120   03 0235E    D5D6E340 A            TEXT     'NOT USED'        BIT 6
            03 0235F    E4E2C5C4 A
    14121   03 02360    D5D6E340 A            TEXT     'NOT USED'        BIT 7
            03 02361    E4E2C5C4 A
    14122   03 02362    24404040 A   :ERRTMG1 TEXTC    '   XXX BIT  X (XXXXXXXX) EXP X OBS X'
            03 02363    E7E7E740 A
            03 02364    C2C9E340 A
            03 02365    40E7404D A
            03 02366    E7E7E7E7 A
            03 02367    E7E7E7E7 A
            03 02368    5D40C5E7 A
            03 02369    D740E740 A
            03 0236A    D6C2E240 A
            03 0236B    E7404040 A
    14123   03 0236C    00000000 A   :ERRTTB  DATA     0,:ERRTTBA,:ERRTTBB,:ERRTTBA,:ERRTTBC,:ERRTTBA
            03 0236D    00002302
            03 0236E    00002312
            03 0236F    00002302
            03 02370    00002322
            03 02371    00002302
    14124   03 02372    00002332              DATA     :ERRTTBD,:ERRTTBE,:ERRTTBF
            03 02373    00002342
            03 02374    00002352
    14125   03 02375    00000000 A   :ERRBITS DATA     0
    14126   03 02376    23404040 A   :ERRTMG2 TEXTC    '   XXXXXXX - EXP.  XXXX  OBS.  XXXX'
            03 02377    E7E7E7E7 A
            03 02378    E7E7E740 A
            03 02379    6040C5E7 A
            03 0237A    D74B4040 A
            03 0237B    E7E7E7E7 A
            03 0237C    4040D6C2 A
            03 0237D    E24B4040 A
            03 0237E    E7E7E7E7 A
    14127   03 0237F    40D5C5C7 A   :ERRTNEG TEXT     ' NEG'
    14128                                     BOUND    8
    14129   03 02380    C2E8E340 A   :ERRTBCM TEXT     'BYT CNT '        BYTE COUNT MESSAGE
            03 02381    C3D5E340 A
    14130   03 02382    C3D6D440 A   :ERRTCAM TEXT     'COM ADR '        COMMAND ADDRESS MESSAGE
            03 02383    C1C4D940 A
    14131                            *
    14132                            *                 *** SAVECLR                                ***
    14133                            *                 *** SAVETIO, -HIO,-TDV,-SIO,-AIO,-SSA,-SSB ***
    14134                            *                     ROUTINES
    14135                            *
    14136                            * THE SUBROUTINES CLEAR THE STATUS SAVE TABLE ('SAVETAB') AND STORE
    14137                            * THE SELECTED STATUS IN THE CELL.
    14138                            *
    14139                            * CALLING SEQUENCE: BAL,15  :SAVE---
    14140                            * NORMAL EXIT:      ---     ---
    14141                            *
    14142                            * REGISTERS DISTURBED: NONE (R1 = 1, R2 = 2, R3 = 3)
    14143                            *
    14144                            * VARIABLES REQUIRED: R13 - IOSTATUS AND BYTE COUNT
    14145                            *                     R12 - CURRENT COMMAND ADDR
    14146                            *
    14147                            * OTHER SUBROUTINES: NONE
    14148                            *
    14149                            *
    14150   03 02384    154023D4     :SAVECLR STD,4    :SAVETMP          SAVE R4 AND R5
    14151   03 02385    224FFFE0 A            LI,4     -32               INDEX
    14152   03 02386    22500000 A            LI,5     0                 0
    14153   03 02387    555823D4              STH,5    :SAVETAB+16,4     CLEAR FLAG AND CURRENT STATUS
    14154   03 02388    65402389              BIR,4    %+1               INCR R4
    14155   03 02389    65402387              BIR,4    %-2               LOOP
    14156   03 0238A    124023D4              LD,4     :SAVETMP          RESTORE R4 AND R5
    14157   03 0238B    E800000F A            B        *15               EXIT
    14158                            *
    14159   03 0238C    154023D4     :SAVETIO STD,4    :SAVETMP          SAVE R4 AND R5
    14160   03 0238D    35D023D6              STW,13   :SAVETMP+2       SAVE STATUS
    14161   03 0238E    224023C5              LI,4     WA(:SAVETAB+1)    INDEX - TIO STATUS
    14162   03 0238F    6A5023BC              BAL,5    :SAVEALL          STORE STATUS
    14163   03 02390    224023C6              LI,4     WA(:SAVETAB+2)    INDEX - OSB
    14164   03 02391    6A5023BC              BAL,5    :SAVEALL          STORE STATUS
    14165   03 02392    32D023D6              LW,13    :SAVETMP+2        FETCH STATUS
    14166   03 02393    55D223D2              STH,13   :SAVETAB+14,1     STORE BYTE COUNT
    14167   03 02394    225FFFFF A            LI,5     -1
    14168   03 02395    755023D2              STB,5    :SAVETAB+14,0     SET FLAG
    14169   03 02396    55C223D3              STH,12   :SAVETAB+15,1     STORE CURRENT COMMAND ADDR
    14170   03 02397    755023D3              STB,5    :SAVETAB+15,0     SET FLAG
    14171   03 02398    124023D4              LD,4     :SAVETMP          RESTORE R4 AND R5
    14172   03 02399    E800000F A            B        *15               EXIT
    14173                            *
    14174   03 0239A    154023D4     :SAVEHIO STD,4    :SAVETMP          SAVE R4 AND R5
    14175   03 0239B    224023C7              LI,4     WA(:SAVETAB+3)    INDEX - HIO STATUS
    14176   03 0239C    6A5023BC              BAL,5    :SAVEALL          STORE STATUS
    14177   03 0239D    124023D4              LD,4     :SAVETMP          RESTORE R4 AND R5
    14178   03 0239E    E800000F A            B        *15               EXIT
    14179   03 0239F    154023D4     :SAVETDV STD,4    :SAVETMP          SAVE R4 AND R5
    14180   03 023A0    224023C8              LI,4     WA(:SAVETAB+4)    INDEX - TDV STATUS
    14181   03 023A1    6A5023BC              BAL,5    :SAVEALL          STORE STATUS
    14182   03 023A2    124023D4              LD,4     :SAVETMP          RESTORE R4 AND R5
    14183   03 023A3    E800000F A            B        *15               EXIT
    14184                            *
    14185   03 023A4    154023D4     :SAVESIO STD,4    :SAVETMP          SAVE R4 AND R5
    14186   03 023A5    224023C9              LI,4     WA(:SAVETAB+5)    INDEX - SIO
    14187   03 023A6    6A5023BC              BAL,5    :SAVEALL          STORE STATUS
    14188   03 023A7    124023D4              LD,4     :SAVETMP          RESTORE R4 AND R5
    14189   03 023A8    E800000F A            B        *15               EXIT
    14190                            *
    14191   03 023A9    154023D4     :SAVEAIO STD,4    :SAVETMP          SAVE R4 AND R5
    14192   03 023AA    35D023D6              STW,13   :SAVETMP+2        SAVE STATUS
    14193   03 023AB    224023CA              LI,4      WA(:SAVETAB+6)   INDEX - AIO
    14194   03 023AC    6A5023BC              BAL,5    :SAVEALL          STORE STATUS
    14195   03 023AD    224023CB              LI,4      WA(:SAVETAB+7)   INDEX - ISB
    14196   03 023AE    6A5023BC              BAL,5    :SAVEALL          STORE STATUS
    14197   03 023AF    32D023D6              LW,13    :SAVETMP+2        FETCH STATUS
    14198   03 023B0    124023D4              LD,4     :SAVETMP          RESTORE R4 AND R5
    14199   03 023B1    E800000F A            B        *15               EXIT
    14200                            *
    14201   03 023B2    154023D4     :SAVESSA STD,4    :SAVETMP          SAVE R4 AND R5
    14202   03 023B3    224023CC              LI,4     WA(:SAVETAB+8)    SAVE STATUS
    14203   03 023B4    6A5023BC              BAL,5    :SAVEALL          RESTORE R4 AND R5
    14204   03 023B5    124023D4              LD,4     :SAVETMP          RESTORE R4 AND R5
    14205   03 023B6    E800000F A            B        *15               EXIT
    14206                            *
    14207   03 023B7    154023D4     :SAVESSB STD,4    :SAVETMP          SAVE R4 AND R5
    14208   03 023B8    224023CD              LI,4     WA(:SAVETAB+9)    SAVE STATUS
    14209   03 023B9    6A5023BC              BAL,5    :SAVEALL          RESTORE R4 AND R5
    14210   03 023BA    124023D4              LD,4     :SAVETMP          RESTORE R4 AND R5
    14211   03 023BB    E800000F A            B        *15               EXIT
    14212                            *
    14213   03 023BC    355023D7     :SAVEALL STW,5    :SAVETMP+3        SAVE EXIT ADDR
    14214   03 023BD    22500000 A            LI,5     0
    14215   03 023BE    F5560004 A            STB,5    *4,3              CLEAR CURRENT STATUS MASK
    14216   03 023BF    25D00208 A            SCS,13   +8
    14217   03 023C0    F5D20004 A            STB,13   *4,1              STORE CURRENT STATUS
    14218   03 023C1    225FFFFF A            LI,5     -1
    14219   03 023C2    F5500004 A            STB,5    *4,0              STORE FLAG
    14220   03 023C3    E80023D7              B        *:SAVETMP+3        EXIT
    14221                            *
    14222                                     BOUND    8
    14223         03 023C4           :SAVETAB EQU      %
    14224   03 023C4    00000000 A            DATA     0                 UNDEFINED                    0
    14225   03 023C5    0000EF00 A            DATA     X'0000EF00'       TIO STATUS                   1
    14226   03 023C6    0000FF00 A            DATA     X'0000FF00'       OSB STATUS                   2
    14227   03 023C7    0000EF00 A            DATA     X'0000EF00'       HIO STATUS                   3
    14228   03 023C8    0000FB00 A            DATA     X'0000FB00'       TDV STATUS                     4
    14229   03 023C9    0000EF00 A            DATA     X'0000EF00'       SIO STATUS                   5
    14230   03 023CA    0000FF00 A            DATA     X'0000FF00'       AIO STATUS                   6
    14231   03 023CB    0000FF00 A            DATA     X'0000FF00'       ISB STATUS                   7
    14232   03 023CC    0000FB00 A            DATA     X'0000FB00'       SBA STATUS                   8
    14233   03 023CD    0000FF00 A            DATA     X'0000FF00'       SBB STATUS                   9
    14234   03 023CE    00000000 A            DATA     0,0,0,0           NOT ASSIGNED                 10 - 13
            03 023CF    00000000 A
            03 023D0    00000000 A
            03 023D1    00000000 A
    14235   03 023D2    00000000 A            DATA     0,0               BYTE COUNT, COMMAND ADR      14 - 15
            03 023D3    00000000 A
    14236   03 023D4    00000000 A   :SAVETMP DATA     0,0,0,0           4 TEMP LOC
            03 023D5    00000000 A
            03 023D6    00000000 A
            03 023D7    00000000 A
    14237   03 023D8    00000000 A   :SAVCOM1 DATA     0                 ORIGINAL COMMAND ADDR
    14238   03 023D9    00002416              DATA    ='END'                                             *A01
    14239   03 023DA    0DD7D9D6 A   WAITMSG1 TEXTC    'PROGRAM ERROR'
            03 023DB    C7D9C1D4 A
            03 023DC    40C5D9D9 A
            03 023DD    D6D94040 A
    14240                            *
    14241                            BUFFEND  END                                                        *C01
            03 023DE    00002501 02
            03 023DF    19FFFFFF A
            03 023E0    00001FFF A
            03 023E1    1840E2D2 A
            03 023E2    18E3C4E5 A
            03 023E3    18E2C5D5 A
            03 023E4    101DFFFF A
            03 023E5    00B7FFFF A
            03 023E6    0000007F A
            03 023E7    00007FFF A
            03 023E8    80000000 A
            03 023E9    04040404 A
            03 023EA    00010202 A
            03 023EB    FF000102 A
            03 023EC    33C5E7D7 A
            03 023ED    2C40D9C4 A
            03 023EE    01020303 A
            03 023EF    00010203 A
            03 023F0    0000037F A
            03 023F1    FFFFFFFE A
            03 023F2    55555555 A
            03 023F3    55AA55AA A
            03 023F4    AA55AAAA A
            03 023F5    55AA5555 A
            03 023F6    FFFFFFFF A
            03 023F7    FFEFFFFF A
            03 023F8    7F7F7F7F A
            03 023F9    FFFFFF7F A
            03 023FA    197FFFFF A
            03 023FB    FF7FFFFF A
            03 023FC    8C000001 A
            03 023FD    00FFFFFF A
            03 023FE    08000000 A
            03 023FF    00000003 A
            03 02400    40404040 A
            03 02401    FFFFFFF0 A
            03 02402    0000000F A
            03 02403    000001FF A
            03 02404    40FFFFFF A
            03 02405    23404040 A
            03 02406    404040F0 A
            03 02407    404CF1D2 A
            03 02408    7FFFFFFF A
            03 02409    FFEFC001 A
            03 0240A    FFFFC001 A
            03 0240B    003FFFFF A
            03 0240C    FF000000 A
            03 0240D    0000FFFF A
            03 0240E    0000FE00 A
            03 0240F    FFFFC000 A
            03 02410    FFFF0000 A
            03 02411    0000017F A
            03 02412    2CD6C2E2 A
            03 02413    10000000 A
            03 02414    00000007 A
            03 02415    F0F0F0F0 A
            03 02416    00C5D5C4 A

  CONTROL SECTION SUMMARY: 01 00308   PT 0     02 02732   PT 0     03 02417   PT 0
  * NO UNDEFINED SYMBOLS
  *    ERROR SEVERITY LEVEL: 0
  * NO ERROR LINES
1 C00   21:22 JUN 20,'83    SIGMA 5-9 COMPREHENSIVE RAD TEST 705730-11/51C02 06/25/73             PAGE    4
A  AIOF0           8920/:TSEQ   8968/:TSEQ   8971/:TSEQ   8979/:TSEQ   8986/:TSEQ   8991/:TSEQ   8998/:TSEQ
      9006/:TSEQ   9012/:TSEQ   9022/:TSEQ   9033/:TSEQ   9038/:TSEQ   9044/:TSEQ   9050/:TSEQ   9058/:TSEQ
      9238/:TSEQ  13837-:TSEQEQU
   AIOF1          13837-:TSEQEQU
   AIOF2           8968/:TSEQ   8971/:TSEQ   8979/:TSEQ   8986/:TSEQ   8991/:TSEQ   8998/:TSEQ   9006/:TSEQ
      9012/:TSEQ   9022/:TSEQ   9033/:TSEQ   9038/:TSEQ   9044/:TSEQ   9050/:TSEQ   9058/:TSEQ   9238/:TSEQ
     13837-:TSEQEQU
   AIOF3           8920/:TSEQ   8968/:TSEQ   8971/:TSEQ   8979/:TSEQ   8986/:TSEQ   8998/:TSEQ   9006/:TSEQ
      9012/:TSEQ   9022/:TSEQ   9033/:TSEQ   9038/:TSEQ   9044/:TSEQ   9050/:TSEQ   9058/:TSEQ   9238/:TSEQ
     13837-:TSEQEQU
   AIOF4          13837-:TSEQEQU
   AIOF5          13837-:TSEQEQU
   AIOF6          13837-:TSEQEQU
   AIOF7          13837-:TSEQEQU
   AIOT0           9063/:TSEQ  13838-:TSEQEQU
   AIOT1          13838-:TSEQEQU
   AIOT2           8920/:TSEQ  13838-:TSEQEQU
   AIOT3           8991/:TSEQ  13838-:TSEQEQU
   AIOT4          13838-:TSEQEQU
   AIOT5          13838-:TSEQEQU
   AIOT6          13838-:TSEQEQU
   AIOT7          13838-:TSEQEQU
   AI6             2860/LW      2970-AI
   ASECTMLT        2152-ASECT
   ASECTPIT        2208-ASECT
   BLDSHIFT       12067/STB    12075-SLS
   BSIPSEEK        9176/DATA    9236-:TSEQ   9282/DATA
   BSIPWRT         9120/DATA    9121/DATA    9219/DATA    9238-:TSEQ
   BSIP1010        3965/DATA    4009/DATA    8837-:TSEQ
   BSIP1030        4036/DATA    8839-:TSEQ
   BSIP1040        4063/DATA    8841-:TSEQ
   BSIP1110        4112/DATA    8848-:TSEQ
   BSIP1120        4157/DATA    8850-:TSEQ
   BSIP1130        4186/DATA    8852-:TSEQ
   BSIP1210        4246/DATA    4322/DATA    4348/DATA    8861-:TSEQ
   BSIP1220        4293/DATA    8864-:TSEQ
   BSIP1230        8867-:TSEQ
   BSIP1310        4401/DATA    4452/DATA    8875-:TSEQ
   BSIP1330        4475/DATA    8878-:TSEQ
   BSIP1340        4498/DATA    8881-:TSEQ
   BSIP1410        4557/DATA    8887-:TSEQ
   BSIP1420        4609/DATA    8890-:TSEQ
   BSIP1430        4632/DATA    8893-:TSEQ
   BSIP1510        4692/DATA    8900-:TSEQ
   BSIP1520        4744/DATA    8903-:TSEQ
   BSIP1530        4767/DATA    4790/DATA    8906-:TSEQ
   BSIP1710        4926/DATA    4956/DATA    4981/DATA    8917-:TSEQ
   BSIP2210        5517/DATA    5538/DATA    6795/LI      8920-:TSEQ
   BSIP2310        5571/DATA    5615/DATA    8925-:TSEQ
   BSIP2400        5665/DATA    8928-:TSEQ
   BSIP2500        5730/DATA    5744/DATA    8932-:TSEQ
   BSIP2600        5832/DATA    5855/DATA    8936-:TSEQ
   BSIP2710        5945/DATA    8940-:TSEQ
   BSIP2720        5956/DATA    8944-:TSEQ
   BSIP2800        6056/DATA    6068/DATA    6080/DATA    8948-:TSEQ
   BSIP2840        6091/DATA    8952-:TSEQ
   BSIP2910        6141/DATA    8956-:TSEQ
   BSIP3010        6252/DATA    8960-:TSEQ
   BSIP3030        6268/DATA    8964-:TSEQ
   BSIP3110        6355/DATA    6429/DATA    8968-:TSEQ
   BSIP3120        6402/DATA    6456/DATA    8971-:TSEQ
   BSIP3210        6505/DATA    8618/DATA    8979-:TSEQ
   BSIP3310        6570/DATA    8986-:TSEQ
   BSIP3430        6792/LI      8991-:TSEQ
   BSIP3510        6885/DATA    8995-:TSEQ
   BSIP3520        6925/DATA    8998-:TSEQ
   BSIP3620        6981/DATA    9006-:TSEQ
   BSIP3720        7043/DATA    9012-:TSEQ
   BSIP3820        7129/DATA    9016-:TSEQ
   BSIP3920        7253/DATA    7290/DATA    7328/DATA    7363/DATA    7386/DATA    9022-:TSEQ
   BSIP4020        7457/DATA    7531/DATA    9028-:TSEQ
   BSIP4040        7530/DATA    9032-:TSEQ
   BSIP4320        7836/DATA    9033-:TSEQ
   BSIP4420        7899/DATA    7963/DATA    9038-:TSEQ
   BSIP4520        8067/DATA    8143/DATA    9044-:TSEQ
   BSIP4620        8248/DATA    9050-:TSEQ
   BSIP4720        8308/DATA    9058-:TSEQ
   BSIP4810        8353/DATA    8375/DATA    9063-:TSEQ
   BSIP4910        8481/DATA    8482/DATA    9069-:TSEQ
   BSNPSEEK        9177/DATA    9237-:TSEQ   9283/DATA
   BSNPWRT         9220/DATA    9239-:TSEQ
   BSNP1010        3966/DATA    4010/DATA    4037/DATA    4064/DATA    8843-:TSEQ
   BSNP1110        4113/DATA    8854-:TSEQ
   BSNP1120        4158/DATA    8856-:TSEQ
   BSNP1130        4187/DATA    8858-:TSEQ
   BSNP1210        4247/DATA    4323/DATA    4349/DATA    8870-:TSEQ
   BSNP1220        4294/DATA    8873-:TSEQ
   BSNP1310        4402/DATA    4453/DATA    4476/DATA    4499/DATA    8884-:TSEQ
   BSNP1410        4558/DATA    8896-:TSEQ
   BSNP1420        4610/DATA    4633/DATA    8897-:TSEQ
   BSNP1510        4693/DATA    4768/DATA    4791/DATA    8909-:TSEQ
   BSNP1520        4745/DATA    8911-:TSEQ
   BSNP1620        4853/DATA    8914-:TSEQ
   BSNP1640        4895/DATA    8916-:TSEQ
   BSNP1710        4927/DATA    4957/DATA    4982/DATA    8919-:TSEQ
   BSNP2210        5518/DATA    5539/DATA    6796/LI      8922-:TSEQ
   BSNP2310        5572/DATA    5616/DATA    8926-:TSEQ
   BSNP2400        5666/DATA    8930-:TSEQ
   BSNP2500        5731/DATA    5745/DATA    8934-:TSEQ
   BSNP2600        5833/DATA    5856/DATA    8938-:TSEQ
   BSNP2710        5946/DATA    8942-:TSEQ
   BSNP2720        5957/DATA    8946-:TSEQ
   BSNP2800        6057/DATA    6069/DATA    6081/DATA    8950-:TSEQ
   BSNP2840        6092/DATA    8954-:TSEQ
   BSNP2910        6142/DATA    8958-:TSEQ
   BSNP3010        6253/DATA    8962-:TSEQ
   BSNP3030        6269/DATA    8966-:TSEQ
   BSNP3110        6356/DATA    6403/DATA    6430/DATA    6457/DATA    8974-:TSEQ
   BSNP3210        6506/DATA    8619/DATA    8982-:TSEQ
   BSNP3310        6571/DATA    8989-:TSEQ
   BSNP3430        6793/LI      8993-:TSEQ
   BSNP3510        6886/DATA    9000-:TSEQ
   BSNP3520        6926/DATA    9003-:TSEQ
   BSNP3620        6982/DATA    9008-:TSEQ
   BSNP3720        7044/DATA    9014-:TSEQ
   BSNP3820        7130/DATA    9018-:TSEQ
   BSNP3920        7254/DATA    7291/DATA    7329/DATA    7364/DATA    7387/DATA    9025-:TSEQ
   BSNP4020        7458/DATA    9030-:TSEQ
   BSNP4320        7837/DATA    9035-:TSEQ
   BSNP4420        7900/DATA    7964/DATA    9041-:TSEQ
   BSNP4520        8068/DATA    8144/DATA    9047-:TSEQ
   BSNP4620        8249/DATA    9054-:TSEQ
   BSNP4720        8309/DATA    9061-:TSEQ
   BSNP4810        8354/DATA    8376/DATA    9065-:TSEQ
   BUFAVAIL       10775/LW     10806/STW    10858/LW     10886/LW     10918/LW     10953/LW     10976/LW
     10997/LW     11019/LW     11035/LW     11412/LW     11418/LW     12181/STW    12237-DATA
   BUFCOUNT       11413/SH     11609/B      11629-AI     11852/EXU    12246/EQU
   BUFFEND            2/EQU    14241-END
   BUFINAD        10817/STW    10856/AW     10881/AW     10910/AW     10936/AW     10947/STW    10973/AW
     10994/AW     11016/AW     11350/AW     11454/LW     11481/LW     11486/STW    11923/LW     11947/STW
     12171/STW    12235-DATA
   BUFINCMT       10860/STH    10888/STH    10919/STH    10977/STH    10999/STH    11037/STH    11353/STH
     12246-EQU
   BUFLENGT       10813/STW    10882/AW     10911/AW     10974/AW     10995/AW     12184/STW    12234-DATA
   BUFM1AVL       11414/STW    11653/CW     11880/CW     12238-DATA
   BUFM1FLG       11592/STW    11643/MTW    11657/STW    12006-DATA
   BUF1LO             2-EQU     2883/LI      3293/LI      3469/LI      3946/LI      3961/STW     3983/LW
      4003/STW     4030/STW     4057/STW     4094/LI      4108/STW     4134/LW      4152/STW     4180/STW
      4225/LI      4242/STW     4266/LW      4289/STW     4316/STW     4342/STW     4384/LI      4421/LW
      4428/STW     4535/LI      4577/LW      4584/STW     4670/LI      4712/LW      4719/STW     5050/STW
      5055/STW     5062/CW      5064/CW      5077/LW      5080/LW      5710/LI      5813/LI      5841/STW
      5897/GEN     5898/GEN     5925/STW     5965/LI      5997/LI      6130/LI      6136/STW     6279/LI
      6327/LI      6485/LI      6560/LI      6630/LI      6868/LI      7112/LI      7284/STW     7322/STW
      7443/LI      7498/LI      8062/STW     8105/LW      8107/STW     8124/STW     8176/LW      8179/STW
      8207/LI      8269/LI      8388/LI      8601/LI      8648/GEN     8650/GEN     8654/GEN     8656/GEN
      8658/GEN     8660/GEN     8663/GEN     8665/GEN     8667/GEN     8672/GEN     8674/GEN     8676/GEN
      8678/GEN     8682/GEN     8684/GEN     8686/GEN     8688/GEN     8692/GEN     8694/GEN     8696/GEN
      8698/GEN     8700/GEN     8702/GEN     8704/GEN     8718/GEN     8720/GEN     8724/GEN     8729/GEN
      8734/GEN     8737/GEN     8740/GEN     8743/GEN     8752/GEN     8755/GEN     8758/GEN     8761/GEN
      8764/GEN     8766/GEN     8768/GEN     8770/GEN     8772/GEN     8776/GEN     8780/GEN     8782/GEN
      8785/GEN     8789/GEN     8792/GEN     8797/GEN     8800/GEN     8804/GEN     8807/GEN     8810/GEN
      8813/GEN     8817/GEN     8821/GEN     8824/GEN     8827/GEN     8829/GEN     9230/GEN     9957/STW
      9980/STW     9995/STB     9999/STW    10002/DATA   10050/LI     10520/DATA   10523/DATA   12120/CI
     12153/CI
   BUF1LOBA       10789/AW     10791/SW     10816/STW    10946/STW    11485/LW     12055/LW     12170/STW
     12176/SW     12185/AW     12240-DATA
   BUILDIOC       10738/BAL    11330/BAL    11337-LW
   BUILDSK         2855/BAL     5242/BAL     5284/BAL     5296/BAL     5307/BAL     5317/BAL     5367/BAL
      6649/BAL     6667/BAL     6713/BAL     6729/BAL     6749/BAL     6804/BAL     6877/BAL     8475/BAL
     11588/BAL    11856/BAL    12065-STD    12467/BAL
   BUILDSK1       12065/STD    12074/XW     12076/XW     12079-DATA   12665/LW     12687/LW
   BYTCURR         2880/LW      3289/LW      3465/LW      3551/LW      3744/LW      3942/LW      4091/LW
      4222/LW      4381/LW      4532/LW      4667/LW      5929/LW      5940/CW      5962/LW      6050/LW
      6062/LW      6074/LW      6126/LW      6183/LW      6231/LW      6243/LW      6277/LW      6323/LW
      6332/LW      6335/AW      6482/LW      6532/CW      6556/LW      6563/AW      6595/CW      6626/LW
      6864/LW      6890/CW      6920/LW      6995/CW      7036/LW      7053/LW      7054/AW      7107/LW
      7248/LW      7432/LW      7439/LW      7501/LW      7830/AW      7847/LW      7848/AW      7890/LW
      8025/LW      8209/LW      8271/LW      8391/LW      8443/LW      8585/LW      8632/LW      9211/LW
     10440/LW     10781/MW     10786/DW     10788/MW     10802/DW     10812/MW     11024/MW     11028/AW
     11337/LW     11351/AW     11482/AW     12052/AW     12178/DW     12183/MW     12341-DATA   12423/DW
   BYTEND          2445-SET     2573/LW
   BYTENO1         9638/STW     9640/DATA    9672-TEXTC
   BYTESECT        2574/STW    12324-DATA
   BYTESTAT        2437-EQU
   BYTN0          13843-:TSEQEQU
   BYT00           8837/:TSEQ   8839/:TSEQ   8841/:TSEQ   8843/:TSEQ   8848/:TSEQ   8850/:TSEQ   8852/:TSEQ
      8854/:TSEQ   8856/:TSEQ   8858/:TSEQ   8875/:TSEQ   8878/:TSEQ   8881/:TSEQ   8884/:TSEQ   8887/:TSEQ
      8890/:TSEQ   8893/:TSEQ   8896/:TSEQ   8897/:TSEQ   8917/:TSEQ   8919/:TSEQ   8928/:TSEQ   8930/:TSEQ
      8932/:TSEQ   8934/:TSEQ   8936/:TSEQ   8938/:TSEQ   8940/:TSEQ   8942/:TSEQ   8944/:TSEQ   8946/:TSEQ
      8948/:TSEQ   8950/:TSEQ   8956/:TSEQ   8958/:TSEQ   8960/:TSEQ   8962/:TSEQ   8964/:TSEQ   8966/:TSEQ
      8968/:TSEQ   8971/:TSEQ   8974/:TSEQ   8979/:TSEQ   8982/:TSEQ   8986/:TSEQ   8989/:TSEQ   8998/:TSEQ
      9003/:TSEQ   9006/:TSEQ   9008/:TSEQ   9012/:TSEQ   9014/:TSEQ   9016/:TSEQ   9018/:TSEQ   9022/:TSEQ
      9025/:TSEQ   9028/:TSEQ   9030/:TSEQ   9033/:TSEQ   9035/:TSEQ   9038/:TSEQ   9041/:TSEQ   9236/:TSEQ
      9237/:TSEQ   9238/:TSEQ   9239/:TSEQ  13843-:TSEQEQU
   BYT01           8861/:TSEQ   8864/:TSEQ   8867/:TSEQ   8870/:TSEQ   8873/:TSEQ   8900/:TSEQ   8903/:TSEQ
      8906/:TSEQ   8909/:TSEQ   8911/:TSEQ  13843-:TSEQEQU
   BYT02          13843-:TSEQEQU
   BYT03           8952/:TSEQ   8954/:TSEQ  13843-:TSEQEQU
   BYT04          13843-:TSEQEQU
   BYT05          13843-:TSEQEQU
   BYT06          13843-:TSEQEQU
   CAPACITY        2427-SET     6801/CW
   CAPEND          2435-SET     2572/LW
   CDELAY          2866/STW     2969-DATA    9410/LW
   CHKWRITE       11161/BAL    11280-LI
   CODE            2047-CNAME
   COMNG          13844-:TSEQEQU
   COMPERR        11381/STW    11477/STW    11929/LW     11939/CAL1   12010-DATA
   COM00          13844-:TSEQEQU
   COM01          13844-:TSEQEQU
   COM02          13844-:TSEQEQU
   COM02ADR       13404-BAL    13449/BEZ
   COM03          13844-:TSEQEQU
   COM04          13844-:TSEQEQU
   COM05          13844-:TSEQEQU
   COM06          13844-:TSEQEQU
   COTRBUSY        9445/DATA    9669-TEXTC
   COUNT38         7087/STW     7169/MTW     7170/LW      7195-DATA    8587/STW     8629/CW      8633/CW
      8637/AW      8638/STW
   CPERROR        11468/CAL2   11859/CI     11920-LW
   CSECTDIC        2265-CSECT
   CURRSECT       12244-DATA
   CURRSEEK        2851/MTW     2853/MTW     2854/LW      5241/LW      5291/STW     5295/SW      5306/LW
      6648/LW      6659/STW     6666/LW      6724/STW     6726/SW      6744/AWM     6748/LW      6761/AWM
      6892/LW      6898/STW     7174/LW      7742/STW     9804/LW     10821/SW     10825/AW     10826/STW
     11293/STW    11401/LW     11487/MTW    11920/LW     11940/STW    12342-DATA   13582/LW
   CYCLE           2704/STW    10673/STW    10708/MTW    10723/MTW    11063-DATA
   DATAADDR         361-DATA
   DATAPERR       10300/BCS    10308-BAL
   DATAP1         10305/STM    10312-DATA   11177/LM
   DATAP2         10313-DATA
   DATAP3         10314-DATA
   DATAP4         10315-DATA
   DEVBUSY         9476/DATA    9668-TEXTC
   DONTREAD        2361/STW     2473/STW     2663-DATA    2711/STW     7571/STW     7637/STW     7702/STW
     10294/STW    10388/STW    10603/STW    10688/STW    10709/STW    10712/STW    11263/STW    11315/MTW
     11508/STW
   DPM             1949/GOTO    2133-EQU
   ENDOPER         2363/STW     2867/STW    11383/STW    11433/MTW    11444/MTW    11473/MTW    11504/LW
     11641/STW    11736/STW    11878/STW    11921/STW    12008-DATA   12391/CW     12500/CW
   ENDSHOT        12142/STW    12211-DATA
   ERRCBR         11537/DATA   11539-TEXT
   ERRNOINT       11536/DATA   11538-TEXT
   ERRSCTOR       12645/STW    12794-DATA
   ERRTRACK       12636/STW    12793-DATA
   ERRTSTHT       11519/STM    11524/DATA   11532-TEXTC
   ERRWORD        11516/LW     11535-SET
   EXAIODST       12011-DATA
   EXDATAIO       10862/STW    10956/STW    10980/STW    11001/STW    11344/STW    11570/LW     12243-DATA
   EXDTAIO        10891/LW     10916/LW     10955/LW     10979/LW     11000/LW     11343/LW     11366-DATA
   EXSEKAIO       10892/STW    10917/STW    11342/STW    11395/LW     11580/LW     12242-DATA
   EXSKAIO        11341/LW     11365-DATA
   FAKEINTR       11403/STW    11436/MTW    11561/MTW    11593/STW    11645/STW    11678/STW    11882/STW
     11941/STW    12005-DATA
   FALSEINT       11694/B      11764-LI
   FIRSTLOC       10461/CW     10470/LW     10478/LW     10523-DATA
   FNDEXIT         6863/STW     6891/BL*     6901/B*      6904-DATA
   FNDGTRK         6838/BAL     6859-LW      6952/BAL     7013/BAL     7089/BAL     7211/BAL     7408/BAL
      7801/BAL     7869/BAL     8027/BAL     8568/BAL
   FNDGTRKX        6863-STW
   FNDGTRK1        6877-BAL     6900/BL
   FUCTEXIT        2897-B       2980/BEZ     2981/BLEZ    3011/B       3039/B       3058/BEZ     3083/BCR
      3086/B       3105/B       3136/BCS     3140/B       3148/B       3149/B       3168/B       3199/BCS
      3203/B       3212/B       3231/B       3262/BCS     3266/B       3274/B       3275/B       3349/BCS
      3442/B       3452/B       3534/BEZ     3535/B       3713/BEZ     3714/B       3925/BEZ     3926/B
      4065/B       4070/B       4090/BE      4188/B       4193/B       4217/BNEZ    4221/BE      4350/B
      4355/B       4500/B       4506/B       4527/BE      4634/B       4640/B       4792/B       4798/B
      4817/BNEZ    4820/BE      4875/B       4900/BEZ     4905/B       5002/BCS     5068/B       5131/B
      5161/B       5166/B       5173/B       5239/B       5301/BLEZ    5304/B       5327/B       5332/B
      5470/B       5477/B       5479/BEZ     5482/B       5533/BE      5540/B       5546/B       5631/BEZ
      5635/B       5679/B       5771/B       5880/B       5988/B       6098/B       6203/B       6275/B
      6458/B       6465/B       6534/B       6597/B       6625/B       6662/BGE     6665/B       6727/BLEZ
      6734/BLEZ    6737/B       6802/BNE     6812/B       6817/B       6846/B       6927/B       6934/B
      6959/B       6997/B       7020/B       7057/B       7098/B       7168/B       7186/B       7192/B
      7218/B       7388/B       7394/B       7415/B       7542/BLEZ    7677/BEZ     7685/B       7774/BEZ
      7783/B       7808/B       7851/B       7876/B       7982/BNE     8002/B       8035/B       8184/B
      8250/B       8255/B       8310/B       8315/B       8338/BGE     8377/B       8382/B       8385/LI
      8454/BGE     8547/BNEZ    8575/B       8634/BNE     9136/BNE     9139/BE
   FUCTINT         9651-DATA    9656/LPSD    9673/XPSD
   FUCTINT1        9652/DATA    9654-LW
   HEADER          9813/DATA    9835-TEXTC
   HIOBC          11866/MTH    12389/STH    12790-DATA
   HIODW          11861/LW     12387/STD    12388/STCF   12472/LD     12508/LD     12674/LH     12809-DATA
   HIOF0          13831-:TSEQEQU
   HIOF1          13831-:TSEQEQU
   HIOF2          13831-:TSEQEQU
   HIOF3          13831-:TSEQEQU
   HIOF4          13831-:TSEQEQU
   HIOF5          13831-:TSEQEQU
   HIOF6          13831-:TSEQEQU
   HIOF7          13831-:TSEQEQU
   HIOT0          13832-:TSEQEQU
   HIOT1           9050/:TSEQ   9054/:TSEQ   9058/:TSEQ   9061/:TSEQ  13832-:TSEQEQU
   HIOT2           9050/:TSEQ   9054/:TSEQ   9058/:TSEQ   9061/:TSEQ  13832-:TSEQEQU
   HIOT3          13832-:TSEQEQU
   HIOT4          13832-:TSEQEQU
   HIOT5           9050/:TSEQ   9054/:TSEQ   9058/:TSEQ   9061/:TSEQ  13832-:TSEQEQU
   HIOT6           9050/:TSEQ   9054/:TSEQ   9058/:TSEQ   9061/:TSEQ  13832-:TSEQEQU
   HIOT7          13832-:TSEQEQU
   I               1964-SET     1966/GEN     1966/GEN     1966/GEN     1966/GEN     1967-SET     1967/SET
      8733-DO      8734/GEN
   INITERR         2480/BL      2482/BG      2502/B       2514/B       2530/BL      2532/BG      2540/B
      2546-STW
   INITEXIT        2527/BGE     2553-LI
   INITPAR         2539/BAL     2561-AI
   INITPAR1        2565/BE      2571-STW
   INITRTN         2470/STW     2557/B*      2660-DATA
   INITSIZE        2645-SW     10398/B
   INIT0           2486-LI
   INIT000         2494/BEZ     2501/BE      2505-STW
   INIT0000        2496/BE      2499/BE      2504-LI
   INIT04          2508/BEZ     2512/BLE     2518-STW
   INIT05          2513-LI      2534/BE
   INIT1           2524-AI
   INIT2           2525-AI      2543/B
   INIT3           2537-LW
   INIT4           2478/STH     2526-CI      2586/CH
   INTEXFG         9361/STW     9371/STW     9379/XW      9381/XW      9383/STW     9486/MTW     9660-DATA
   INTEXT1         2549/B       2556-STW
   INTRFLAG        3628/STW     3635/MTW     3680/STW     3697/STW     3707/MTW     3722/STW     3727-DATA
      3804/STW     3823/MTW     3825/MTW
   INVDEV          2518/STW     2533/CW      2661-DATA    3057/LW
   IOBAD          11718/B      11762-MTW
   IOBOTTOM       10520-DATA   12165/LW
   IOCDATA        10857/STD    10883/STD    10912/STD    10944/STD    10975/STD    10996/STD    11017/STD
     11018/STD    11025/AWM    11029/AWM    11030/AWM    11034/AWM    11352/STD    11563/LI     11625/STW
     11924/XW     11926/AWM    11945/LW     11974/LI     12050/LW     12057/LB     12227-DATA   12415/CI
     12417/LW
   IOCDAT01       12229-DATA
   IOCDAT02       12231-DATA
   IOCDPNT        10890/STW    10915/STW    11355/STW    11575/MTW    12020-DATA
   IOCDP1         11646/BAL    11658/BAL    11679/BAL    11853/BAL    12050-LW
   IOCDS          10749/LI     10752/EXU    10832-SET
   IOCDSKMD        9174/DATA    9228-GEN
   IOCDSNMD        5122/STH     5148/LI      9277/STH     9280/DATA    9296-GEN
   IOCDS1         10749/LI     10848-SET
   IOCDTEST        9118/DATA    9129-GEN
   IOCDWRT         7435/STH     7472/LH      7502/SH      7540/LH      7543/STH     8589/STH     8607/STH
      9212/STH     9217/DATA    9230-GEN
   IOCD00         10853/LD     10869-GEN
   IOCD01         10880/LD     10897-GEN
   IOCD02         10909/LD     10924-GEN
   IOCD03         10935/LD     10961-GEN
   IOCD04         10972/LD     10983-GEN
   IOCD05         10993/LD     11004-GEN
   IOCD06         11015/LD     11040-GEN
   IOCD0610        3290/STH     3298/LI      3371/CH      3466/STH     3481/LI      3510/CH      8648-GEN
   IOCD07         11049/LD     11053-GEN
   IOCD0810        3553/STH     3554/LI      3746/STH     3747/LI      8650-GEN
   IOCD10         10884/LD     10899-GEN    10913/LD
   IOCD1010        3963/DATA    8654-GEN
   IOCD1020        4007/DATA    8656-GEN
   IOCD1030        4034/DATA    8658-GEN
   IOCD1040        4061/DATA    8660-GEN
   IOCD1110        4110/DATA    8663-GEN
   IOCD1120        4155/DATA    8665-GEN
   IOCD1130        4184/DATA    8667-GEN
   IOCD1210        4244/DATA    8672-GEN
   IOCD1220        4291/DATA    8674-GEN
   IOCD1230        4320/DATA    8676-GEN
   IOCD1240        4346/DATA    8678-GEN
   IOCD1310        4377/STH     4399/DATA    8682-GEN
   IOCD1320        4378/STH     4450/DATA    8684-GEN
   IOCD1330        4379/STH     4473/DATA    8686-GEN
   IOCD1340        4380/STH     4496/DATA    8688-GEN
   IOCD1410        4529/STH     4555/DATA    8692-GEN
   IOCD1420        4530/STH     4607/DATA    8694-GEN
   IOCD1430        4531/STH     4630/DATA    8696-GEN
   IOCD1510        4663/STH     4690/DATA    8698-GEN
   IOCD1520        4664/STH     4742/DATA    8700-GEN
   IOCD1530        4665/STH     4765/DATA    8702-GEN
   IOCD1540        4666/STH     4788/DATA    8704-GEN
   IOCD1610        4823/LI      8706-GEN
   IOCD1710        4924/DATA    4954/DATA    8708-GEN
   IOCD1730        4979/DATA    8711-GEN
   IOCD2210        5515/DATA    5536/DATA    8714-GEN
   IOCD2310        5569/DATA    5581/CI      8716-GEN
   IOCD2311        5593/CI      8718-GEN
   IOCD2312        8720-GEN     8722/GEN     8726/GEN
   IOCD2313        8722-GEN
   IOCD2320        5613/DATA    5625/CI      8724-GEN
   IOCD2321        8726-GEN
   IOCD2400        5657/STB     5660/STH     5662/DATA    5672/MTW     5673/LH      5676/CB      5680/STB
      8729-GEN
   IOCD2500        5726/STB     5740/STB     5781/DATA    5783/DATA    5784/DATA    5785/DATA    8732-EQU
   IOCD2510        5782/DATA    8740-GEN
   IOCD2520        5786/DATA    8743-GEN
   IOCD2620        5825/STW     5830/DATA    8746-GEN
   IOCD2630        5849/STW     5851/STB     5853/DATA    8749-GEN
   IOCD2700        5928/STH     5936/MTW     5943/DATA    5954/DATA    8752-GEN
   IOCD2810        6051/STH     6054/DATA    6063/AWM     6066/DATA    8755-GEN
   IOCD2830        6075/STH     6078/DATA    6086/AWM     6089/DATA    8758-GEN
   IOCD2910        6127/STH     6139/DATA    6185/LI      8761-GEN
   IOCD3000        6244/STH     6250/DATA    6266/DATA    8764-GEN
   IOCD3110        6333/STH     6353/DATA    8766-GEN
   IOCD3120        6334/STH     6400/DATA    8768-GEN
   IOCD3130        6336/STH     6427/DATA    8770-GEN
   IOCD3140        6337/STH     6454/DATA    8772-GEN
   IOCD3210        6481/STH     6503/DATA    6529/LH      6531/STH     8776-GEN
   IOCD3310        6564/STH     6568/DATA    6590/LH      6593/STH     8780-GEN
   IOCD3430        6627/STH     6808/DATA    8782-GEN
   IOCD3510        6865/STH     6883/DATA    8785-GEN
   IOCD3520        6921/STH     6923/DATA    8789-GEN
   IOCD3620        6976/STH     6979/DATA    6993/LH      8792-GEN
   IOCD3720        7038/STH     7041/DATA    7051/LH      8797-GEN
   IOCD3820        7108/STH     7127/DATA    8800-GEN
   IOCD3920        7249/STH     7251/DATA    7288/DATA    7326/DATA    7361/DATA    7384/DATA    8804-GEN
   IOCD4020        7433/STH     7455/DATA    7528/DATA    8807-GEN
   IOCD4320        7831/STH     7834/DATA    7844/LH      7846/STH     8810-GEN
   IOCD4420        7891/STH     7897/DATA    7961/DATA    8813-GEN
   IOCD4520        8026/STH     8065/DATA    8141/DATA    8817-GEN
   IOCD4620        8210/STH     8218/LI      8246/DATA    8821-GEN
   IOCD4720        8272/STH     8280/LI      8306/DATA    8824-GEN
   IOCD4911        8444/STH     8479/DATA    8827-GEN
   IOCD5020        8593/STH     8606/LW      8616/DATA    8626/MTW     8628/LH      8635/STH     8636/MTW
      8829-GEN
   IOCONT         10729/BAL    11331/BAL    11371-STW
   IOCPASS2       11568/STW    11672/MTW    12025-DATA
   IOCSEEK1       10885/STD    10914/STD    11348/STD    11581/LI     12225-DATA
   IOERAIO1       11377/STW    11553/CAL1   11565/STW    11709/LW     12021-DATA
   IOERAIO2       11378/STW    11611/CAL1   11674/STW    12022-DATA
   IOERSIO1       11379/STW    11671/STW    11977/LI     12023-DATA
   IOERSIO2       11380/STW    11675/STW    11973/LI     12024-DATA
   IOGOOD         11702/B      11717/B      11727/B      11731/B      11735/B      11763-MTW    11948/B
   IOTEST         11693/STW    11706/MTB*   11748-DATA   11757/LW*    11758/LCF    11762/MTW    11763/MTW
     11770/LPSD   11857/LW*    11983/LCF    12018/XPSD
   IOTEST1        11751-LCI
   IOTOP          10437/LI     10521-DATA
   IOTOPNT        10522-DATA   12174/LW*
   ISBF0           8837/:TSEQ   8839/:TSEQ   8841/:TSEQ   8875/:TSEQ   8878/:TSEQ   8881/:TSEQ   8917/:TSEQ
      8928/:TSEQ   8932/:TSEQ   8936/:TSEQ   8944/:TSEQ   8956/:TSEQ   8960/:TSEQ   8964/:TSEQ   8968/:TSEQ
      8971/:TSEQ   8998/:TSEQ   9022/:TSEQ   9038/:TSEQ   9044/:TSEQ   9050/:TSEQ   9058/:TSEQ
     13839-:TSEQEQU
   ISBF1           8837/:TSEQ   8839/:TSEQ   8841/:TSEQ   8848/:TSEQ   8850/:TSEQ   8852/:TSEQ   8861/:TSEQ
      8864/:TSEQ   8867/:TSEQ   8875/:TSEQ   8878/:TSEQ   8881/:TSEQ   8887/:TSEQ   8890/:TSEQ   8893/:TSEQ
      8900/:TSEQ   8903/:TSEQ   8906/:TSEQ   8917/:TSEQ   8925/:TSEQ   8928/:TSEQ   8932/:TSEQ   8936/:TSEQ
      8940/:TSEQ   8944/:TSEQ   8956/:TSEQ   8964/:TSEQ   8968/:TSEQ   8971/:TSEQ   8979/:TSEQ   8986/:TSEQ
      9022/:TSEQ   9038/:TSEQ   9050/:TSEQ   9058/:TSEQ  13839-:TSEQEQU
   ISBF2           8841/:TSEQ   8848/:TSEQ   8850/:TSEQ   8852/:TSEQ   8861/:TSEQ   8864/:TSEQ   8867/:TSEQ
      8875/:TSEQ   8881/:TSEQ   8887/:TSEQ   8890/:TSEQ   8893/:TSEQ   8900/:TSEQ   8903/:TSEQ   8906/:TSEQ
      9050/:TSEQ   9058/:TSEQ  13839-:TSEQEQU
   ISBF3           8837/:TSEQ   8839/:TSEQ   8848/:TSEQ   8850/:TSEQ   8864/:TSEQ   8867/:TSEQ   8875/:TSEQ
      8878/:TSEQ   8887/:TSEQ   8890/:TSEQ   8903/:TSEQ   8906/:TSEQ   9050/:TSEQ   9058/:TSEQ   9063/:TSEQ
     13839-:TSEQEQU
   ISBF4           8837/:TSEQ   8839/:TSEQ   8841/:TSEQ   8848/:TSEQ   8850/:TSEQ   8852/:TSEQ   8861/:TSEQ
      8864/:TSEQ   8867/:TSEQ   8875/:TSEQ   8878/:TSEQ   8881/:TSEQ   8887/:TSEQ   8890/:TSEQ   8893/:TSEQ
      8900/:TSEQ   8906/:TSEQ   8917/:TSEQ   8928/:TSEQ   8932/:TSEQ   8936/:TSEQ   8940/:TSEQ   8944/:TSEQ
      8956/:TSEQ   8964/:TSEQ   8968/:TSEQ   8971/:TSEQ   9022/:TSEQ   9038/:TSEQ   9050/:TSEQ   9058/:TSEQ
     13839-:TSEQEQU
   ISBF5          13839-:TSEQEQU
   ISBF6          13839-:TSEQEQU
   ISBF7          13839-:TSEQEQU
   ISBT0           8848/:TSEQ   8850/:TSEQ   8852/:TSEQ   8861/:TSEQ   8864/:TSEQ   8867/:TSEQ   8887/:TSEQ
      8890/:TSEQ   8893/:TSEQ   8900/:TSEQ   8903/:TSEQ   8906/:TSEQ   8940/:TSEQ   8979/:TSEQ   8986/:TSEQ
      9006/:TSEQ   9012/:TSEQ  13840-:TSEQEQU
   ISBT1           8948/:TSEQ   8952/:TSEQ   8960/:TSEQ   9044/:TSEQ   9063/:TSEQ  13840-:TSEQEQU
   ISBT2           8839/:TSEQ   8878/:TSEQ   8971/:TSEQ   8998/:TSEQ   9006/:TSEQ   9012/:TSEQ
     13840-:TSEQEQU
   ISBT3           8841/:TSEQ   8852/:TSEQ   8861/:TSEQ   8881/:TSEQ   8893/:TSEQ   8900/:TSEQ   8917/:TSEQ
      8928/:TSEQ   8932/:TSEQ   8936/:TSEQ   8940/:TSEQ   8944/:TSEQ   8948/:TSEQ   8952/:TSEQ   8956/:TSEQ
      8960/:TSEQ   8964/:TSEQ   8979/:TSEQ   8986/:TSEQ   9022/:TSEQ   9038/:TSEQ  13840-:TSEQEQU
   ISBT4           8903/:TSEQ   8920/:TSEQ   8948/:TSEQ   8952/:TSEQ   8960/:TSEQ   8979/:TSEQ   8986/:TSEQ
      8991/:TSEQ   9044/:TSEQ   9063/:TSEQ  13840-:TSEQEQU
   ISBT5          13840-:TSEQEQU
   ISBT6          13840-:TSEQEQU
   ISBT7          13840-:TSEQEQU
   ITHDLR          2878/LI     10602-STW    10697/LI     11185/LI
   ITHM2          10606/STB    10608/DATA   10628-TEXTC
   ITHM3          10613/STH    10615/DATA   10629-TEXTC
   ITHM4          10618/STW    10620/DATA   10630-TEXTC
   ITHRST          2875/STW    10621/LW     10626-DATA   10696/STW    11184/STW
   ITHSAVE        10602/STW    10622/B*     10627-DATA
   ITHSUBT         2877/STW    10611/LW     10625-DATA
   ITHTEST         2713/STW     2876/STW    10571/LW     10604/LW     10609/CW     10624-DATA   10694/STW
     11182/STW
   L               2856/LW      5221/LW      5223/LW      5348/LW      5350/LW      6873/AND     9956/LW
     10863/LW     11022/AND    11031/LW     11345/LW     11925/AND    12190/LW     12917/AND    12998/AND
   LIMT             419/DATA    2277/:PROCDIC            10541-STW
   LINE           10083/STW    10133/MTW    10139/MTW    10261-DATA
   LM1TADDR         419-DATA
   LOCATION        2864/STW     9413/STW     9632/STW     9825/LW      9837-DATA   12363/STW
   LSEEKTEP        7729/STW     7733/LW      7741/STW     7748/LW      7785-DATA
   MASK           10864/STW    11346/STW    11392/LW     12241-DATA
   MAXERR          7572/STW     7634/STW     7703/STW    11241/STW    11809/LW     12009-DATA
   MAXSECT        10779/STW    10819/SW     11069-DATA
   MEM            10480/STW    10482/STH    10487/STH    10489/STH    10491/STH    10494/STH    10496/STH
     10498/STH    10501/STW    10503/STH    10508/STB    10512/DATA   10516-TEXTC
   MEMADDR          398-DATA
   MEMERROR       10444/BG     10457/BG     10462/BL     10464/BG     10470-LW
   MEMFLAG        10474/STM    10519-DATA   12172/MTW
   MEMLSTBA       10790/STW    10814/LW     11483/CW     12053/CW     12186/STW    12239-DATA
   MEMOK          10459/B      10466/B      10473-LCI
   MEMORY          2819/BAL    10773/BAL    11328/BAL    12137-STW
   MEMORY1        12133/B      12141/BNE    12165-LW
   MEMORY10       12174-LW
   MEMORY2         8386/STW    12115/STW    12137/STW    12204/B*     12205-DATA
   MEMORY3         5130/BAL     5238/BAL     5303/BAL     6624/BAL     6664/BAL     6736/BAL    12115-STW
   MEMORY4        12192/BNE    12200-STW
   MEMORY7         8405/BGE    12121/BLE    12154/BLE    12180/BL     12188-LW
   MEMY           10510/DATA   10514-TEXTC
   MEM1           10439/B      10449-LW
   MEM2           10438-BAL    10445/B
   MENORMAL       10452/BG     10461-CW
   MODEL           2571/STW     2620/LW      2849/LM      5211/LM      6615/LM      7577/LM      7606/LM
      7642/LM      7670/LM      7713/LM     12321-DATA
   MODELC          2850/STM     4087/LW      4219/LW      4373/LW      4524/LW      4659/LW      4818/LW
      5119/CW      5212/STM     5277/CW      5530/LW      6616/STM     6704/CW      6778/LW      6789/LW
      7578/STM     7607/STM     7643/STM     7671/STM     7714/STM     7918/LW      7980/LW      8057/LW
      8077/LW      8120/LW      8151/LW      8335/LW      8451/LW      9137/LW      9274/CW      9716/CW
     10039/LW     10940/CW     12338-DATA   12375/LW     12438/LW     12623/LW     12679/LW     12688/LW
   MODELEND        2425-SET     2563/LI      2564/CW      6783/CI
   MODELNO         2417-SET     2563/LI      6780/CW      6783/CI
   MSGBAND         9718/LD      9757-TEXT
   MSGTRACK        9714/LD      9756-TEXT
   MSGT1T19        9719/STH     9720/STW     9728/STH     9730/STM     9734/STH     9736/STB     9740/STB
      9742/STH     9744/DATA    9752-TEXTC
   M1             11869/LW     13307/LW     13490/CD     13611-DATA
   M2             11871/LW     13612-DATA
   NEW             1949/GOTO    1954-SET
   NOMEMORY       12200/STW    12201/STW    12203/DATA   12206-TEXTC
   NOP             2059/LW      2062-NOP
   NOPAT          11248-BAL    11296/B
   NOPATTN        11249/DATA   11255-TEXTC
   NOTACCPT       11665/CAL2   11973-LI
   NOXINTR         9507/DATA    9670-TEXTC
   NTACCPT1       11978/STH    11982/B      11988-CAL1
   OCTAL          10263-DATA
   OLD             1949/GOTO    1950-SET
   OPERIOCD       11311/STB    11349/LD     11363-GEN
   OSBF0           8837/:TSEQ   8839/:TSEQ   8841/:TSEQ   8843/:TSEQ   8875/:TSEQ   8878/:TSEQ   8881/:TSEQ
      8884/:TSEQ   8946/:TSEQ   8968/:TSEQ   8971/:TSEQ   8974/:TSEQ   8998/:TSEQ   9003/:TSEQ   9022/:TSEQ
      9025/:TSEQ   9032/:TSEQ   9038/:TSEQ   9038/:TSEQ   9041/:TSEQ   9044/:TSEQ   9047/:TSEQ
     13829-:TSEQEQU
   OSBF1           8837/:TSEQ   8839/:TSEQ   8841/:TSEQ   8843/:TSEQ   8848/:TSEQ   8850/:TSEQ   8852/:TSEQ
      8854/:TSEQ   8856/:TSEQ   8858/:TSEQ   8861/:TSEQ   8864/:TSEQ   8867/:TSEQ   8870/:TSEQ   8873/:TSEQ
      8875/:TSEQ   8878/:TSEQ   8881/:TSEQ   8884/:TSEQ   8887/:TSEQ   8890/:TSEQ   8893/:TSEQ   8896/:TSEQ
      8897/:TSEQ   8900/:TSEQ   8903/:TSEQ   8906/:TSEQ   8909/:TSEQ   8911/:TSEQ   8920/:TSEQ   8922/:TSEQ
      8925/:TSEQ   8926/:TSEQ   8968/:TSEQ   8971/:TSEQ   8974/:TSEQ   8979/:TSEQ   8982/:TSEQ   8986/:TSEQ
      8989/:TSEQ   8991/:TSEQ   8993/:TSEQ   9022/:TSEQ   9025/:TSEQ   9032/:TSEQ   9041/:TSEQ
     13829-:TSEQEQU
   OSBF2          13829-:TSEQEQU
   OSBF3          13829-:TSEQEQU
   OSBF4          13829-:TSEQEQU
   OSBF5          13829-:TSEQEQU
   OSBF6           8917/:TSEQ   8919/:TSEQ   8928/:TSEQ   8930/:TSEQ   8932/:TSEQ   8934/:TSEQ   8936/:TSEQ
      8938/:TSEQ   8940/:TSEQ   8944/:TSEQ   8956/:TSEQ   8958/:TSEQ   8964/:TSEQ   8966/:TSEQ
     13829-:TSEQEQU
   OSBF7          13829-:TSEQEQU
   OSBT0           8848/:TSEQ   8850/:TSEQ   8852/:TSEQ   8854/:TSEQ   8856/:TSEQ   8858/:TSEQ   8861/:TSEQ
      8864/:TSEQ   8867/:TSEQ   8870/:TSEQ   8873/:TSEQ   8887/:TSEQ   8890/:TSEQ   8893/:TSEQ   8896/:TSEQ
      8897/:TSEQ   8900/:TSEQ   8903/:TSEQ   8906/:TSEQ   8909/:TSEQ   8911/:TSEQ   8940/:TSEQ   8942/:TSEQ
      8979/:TSEQ   8982/:TSEQ   8986/:TSEQ   8989/:TSEQ   9006/:TSEQ   9008/:TSEQ   9012/:TSEQ   9014/:TSEQ
      9033/:TSEQ   9035/:TSEQ  13830-:TSEQEQU
   OSBT1           8948/:TSEQ   8952/:TSEQ   8960/:TSEQ   9044/:TSEQ   9047/:TSEQ   9063/:TSEQ   9065/:TSEQ
     13830-:TSEQEQU
   OSBT2          13830-:TSEQEQU
   OSBT3          13830-:TSEQEQU
   OSBT4          13830-:TSEQEQU
   OSBT5          13830-:TSEQEQU
   OSBT6           8850/:TSEQ   8856/:TSEQ   8864/:TSEQ   8873/:TSEQ   8890/:TSEQ   8897/:TSEQ   8903/:TSEQ
      8911/:TSEQ   8948/:TSEQ   8950/:TSEQ   8952/:TSEQ   8954/:TSEQ   8960/:TSEQ   8962/:TSEQ   8979/:TSEQ
      8982/:TSEQ   8986/:TSEQ   8989/:TSEQ   9044/:TSEQ   9047/:TSEQ   9063/:TSEQ   9065/:TSEQ
     13830-:TSEQEQU
   OSBT7          13830-:TSEQEQU
   PAGE            1940/OPEN    1941-CNAME
   PASSTYPE       10751/STW    11070-DATA   12432/LW
   PATREAD1       11463-MTW
   PATSETUP       11465/BEZ    11467/B      11479-AI
   PATTWRT        11458/BCS    11473-MTW
   PRINT           2052-BAL     2058/BDR
   RADSEED        10702/STW    10762/LW     10764/STW    10792/LW     10823/LW     12287/LW     12313-DATA
   RDMPATTM       10889/STW    11013/STW    11071-DATA   11356/STW    11488/MTW
   RDPAT1         13316-STW    13323/BIR
   RDPAT2         13324/B      13337-STW
   READLOOP       11289/STW    11297/MTW    12236-DATA
   READONLY       11160/BAL    11274-LI
   READVERY       10740/STW    11312/STW    11313/MTW    11463/MTW    12012-DATA
   READ02         10843/BAL    10990-MTW
   READ12         10841/BAL    10968-MTW
   REDDRED        10847/BAL    11047-MTW
   REDONLY         7610/BAL     7674/BAL     7771/BAL    11159/BAL    11268-LI     11294/BAL
   REV             2030-CNAME
   REVBRNCH        2060/STW     2346-EQU
   REVCOUNT        2027-SET     2032/DO      2036-SET     2036/SET     2041/GEN     2347/DO
   REVEND          2037/DO      2129-REV
   REVISION        2506/STW     2662-DATA    9135/CW
   REVISON         2049/LW      2050/LW      2073-REV
   REVPRINT        2049-LW      2350/BAL
   REVSTART        2028-SET     2033-SET     2040/ORG
   RTRACEBOT      10676/LI     10678/STW    11085-SET
   RTRACEL50      10761/MTW    11074-DATA
   RTRACEL51      10798/MTW    11075-DATA
   RTRACEL52      10807/MTW    11076-DATA
   RTRACETOP      10676/LI     11072-SET
   RTRACE00       10854/MTW    11077-DATA
   RTRACE01       10877/MTW    11078-DATA
   RTRACE02       10906/MTW    11079-DATA
   RTRACE03       10931/MTW    11080-DATA
   RTRACE04       10968/MTW    11081-DATA
   RTRACE05       10990/MTW    11082-DATA
   RTRACE06       11011/MTW    11083-DATA
   RTRACE07       11047/MTW    11084-DATA
   S:UFV              1/EQU        2/EQU
   SAVEBIAS        6719/STW     6738/LW      6818-DATA
   SBAF0          13841-:TSEQEQU
   SBAF1          13841-:TSEQEQU
   SBAF2          13841-:TSEQEQU
   SBAF3          13841-:TSEQEQU
   SBAF4          13841-:TSEQEQU
   SBAF5          13841-:TSEQEQU
   SBAF6          13841-:TSEQEQU
   SBAF7          13841-:TSEQEQU
   SBAT0          13842-:TSEQEQU
   SBAT1          13842-:TSEQEQU
   SBAT2          13842-:TSEQEQU
   SBAT3          13842-:TSEQEQU
   SBAT4          13842-:TSEQEQU
   SBAT5          13842-:TSEQEQU
   SBAT6          13842-:TSEQEQU
   SBAT7          13842-:TSEQEQU
   SECINCMT       10859/STH    10887/STH    10920/STH    10954/STH    10978/STH    10998/STH    11036/STH
     11354/STH    12247-EQU
   SECTCOUT       11416/SH     11594/B      11631-AI     11851/EXU    12247/EQU
   SECTCURR        2831/DW      5128/LW      5235/LW      5290/MW      5319/AW      5366/MW      5455/AW
      5501/LW      5511/LW      6623/LW      6646/LW      6658/MW      6660/AW      6721/MW      6723/AW
      6743/LCW     6760/LW      6893/AW      6895/DW      6897/MW      7175/AW      7726/DW      7728/MW
      7737/SW      8462/MW      8549/AW      9748/MW     10058/DW     10198/CW     12070/DW     12146/LW
     12340-DATA   13583/DW
   SECTDLAY        2832/STW     2968-DATA    9393/LW      9654/LW
   SECTLGTH       12213-DATA
   SECTLMT         5313/STW     6741/STW     9919/CW     12123/STW    12217-DATA
   SECTORA        10231/DATA   10260-TEXTC
   SECTORD        10229/DATA   10259-TEXTC
   SECTORE        10227/DATA   10258-TEXTC
   SECTORO        10219/DATA   10254-TEXTC
   SECTOROC       10215/DATA   10250-TEXTC
   SECTORP        10223/DATA   10256-TEXTC
   SECTORS         2577/STW     2619/MW      2632/MW      2652/DW     10349/LW     10360/MW     10369/MW
     12323-DATA
   SECTORT        10225/DATA   10257-TEXTC
   SECTORU        10221/DATA   10255-TEXTC
   SECTORZ        10217/DATA   10252-TEXTC
   SECTRACK        2447-SET
   SECTREND        2455-SET     2576/LW
   SECTSHOT       10161/LW     12150/STW    12209-DATA   12783/MTH*
   SEEK             382/DATA    2275/:PROCDIC            10342-LI
   SEEKADD          382-DATA
   SEEKERR        10351/BL     10354/BL     10367/B      10376/B      10383/BEZ    10385/B      10402-BAL
   SEEKIOCD       11347/LD     11361-GEN
   SEEKRAD         5035/STW     5287/LW      5297/LW      5308/LW      5357/LW      5513/STW     5534/STW
      5923/STW     6049/STW     6132/STW     6242/STW     6652/LW      6714/LW      6730/LW      8450/LW
      8463/STW     8706/GEN     8714/GEN     8716/GEN     9228/GEN     9234-DATA   10899/GEN    11361/GEN
     12072/STW    12073/AWM    12629/LW
   SEEKSAVE       10346/B      10386-LI
   SEEKTRUE       13296/BAL    13338/BAL    13346/BAL    13376/BAL    13404/BAL    13464/BAL    13580-STW
   SEEK1          10345-BAL    10380/BL
   SEEK2          10365/BGE    10368-LW
   SEEK3          10374/BLE    10377-STW
   SEEK4          10389-BAL    10391/LI
   SELCTOUT        7616/BAL     7680/BAL     7777/BAL    10032-STW
   SELCTRTN       10032/STW    10232/B*     10262-DATA
   SELCT51        10084-LD     10138/BL
   SELCT52        10052/STW    10068/STW*   10070/STB*   10076/STW*   10078/STW*   10080/STW*   10134/STD*
     10140/BEZ    10142-DATA
   SELCT53        10086/BEZ    10134-STD
   SELCT60        10066-LW     10145/BL
   SELCT70        10088/BCR    10094-CI
   SELCT71        10095/BCR    10101-CI
   SELCT72        10102/BCR    10108-CI
   SELCT73        10109/BCR    10115-CI
   SELCT74        10116/BCR    10122-CI
   SELCT75        10123/BCR    10129-CI
   SELCT76        10130/BCR    10133-MTW
   SELCT81        10172/BEZ    10176/BGE    10181/BNEZ   10184/BNEZ   10186-STW
   SELCT82        10170-LW     10190/BLE
   SELCT83        10162-LW     10199/BL
   SELCT85        10168-LI     10208/B
   SELCT87        10201/BNEZ   10212-BAL
   SELCT89        10053/STW    10160/STW*   10167/STW*   10186/STW*   10194-DATA   10205/STH*   10206/STW*
   SELECTER       12475/BEZ    12479/B      12660-LI
   SELECTUP       12698/BAL    12706/BAL    12714/BAL    12722/BAL    12730/BAL    12740/BAL    12747/BAL
     12777-LW
   SELECT01       12676/BNEZ   12678/BEZ    12681/BNE    12687-LW
   SELECT02       12694-LH     12764/BCS
   SELECT03       12696-CI
   SELECT04       12697/BCR    12703-AI
   SELECT05       12705/BCR    12711-AI
   SELECT06       12713/BEZ    12719-AI
   SELECT07       12721/BCR    12727-AI
   SELECT08       12729/BCR    12735-AI
   SELECT09       12737/BNEZ   12739/BEZ    12742-AI
   SELECT10       12744/BNEZ   12746/BEZ    12757-STH    12766/BNEZ
   SELECT11       12767-STW
   SELECT12       12693/B      12763-CI
   SELECT90       10035/DATA   10236-TEXTC
   SELECT91       10045/STH    10046/STW    10047/STB    10049/DATA   10239-TEXTC
   SELECT93       10055/DATA   10241-TEXTC
   SELECT94       10151/DATA   10243-TEXTC
   SELECT95       10084/LD     10249-TEXT
   SELECT96       10155/DATA   10245-TEXTC
   SELECT97       10204/LD     10248-TEXT
   SELMANY        12668/STW    12760/MTW    12782/STW    12792-DATA
   SELPASS        12667/STW    12762/STW    12780/MTW    12791-DATA
   SELTEMP        12670/STW    12777/LW     12834-DATA
   SENSE          10839/BAL    10931-MTW
   SIOF0          13835-:TSEQEQU
   SIOF1          13835-:TSEQEQU
   SIOF2          13835-:TSEQEQU
   SIOF3          13835-:TSEQEQU
   SIOF4          13835-:TSEQEQU
   SIOF5          13835-:TSEQEQU
   SIOF6          13835-:TSEQEQU
   SIOF7          13835-:TSEQEQU
   SIOP            2505/STW     2664-DATA    4215/MTW     4816/MTW
   SIOT0          13836-:TSEQEQU
   SIOT1          13836-:TSEQEQU
   SIOT2          13836-:TSEQEQU
   SIOT3          13836-:TSEQEQU
   SIOT4          13836-:TSEQEQU
   SIOT5          13836-:TSEQEQU
   SIOT6          13836-:TSEQEQU
   SIOT7          13836-:TSEQEQU
   SKCCWRT        10835/BAL    10877-MTW
   SKCRD02        10837/BAL    10906-MTW
   SKDIRNO        10348/STW    10352/AWM    10366/STW    10375/STW    10381/STW    10384/STW    10406-EQU
   SLOWER          2628/STW     5283/LW      6712/LW      6861/LW      7735/CW      7738/CW      7740/LW
     10397/STW    11292/LW     12325-DATA
   SPACE           5084/DATA    6007/DATA    9819/DATA    9833-TEXTC  10147/DATA   10213/DATA   13520/DATA
   SSIZE           2646/STW    12327-DATA
   SSIZEC         10768/LW     12344-DATA
   SSTABLE         9892/MTH*    9910/MTH*    9930/CH*     9971/LH*    12119/STW    12125/STW*   12127/STW*
     12214-DATA
   STOP           10833/BAL    10853-LD
   STOPAIO        10861/LW     10871-DATA
   SUPPER          2640/STW     7725/LW      7730/CW     10396/STW    12326-DATA
   SURCALL        11801-DATA   11805/LW*    11815/MTW    11816/LPSD   12017/XPSD
   SURCALL1       11811/BGE    11815-MTW
   SURDATE        11812/BAL    11849-STW
   SURDATE1       11849/STW    11881/BL*    11890-DATA
   SURDATE2       11860/BE     11864/BCS    11867/BEZ    11873-MTW
   SURDELAY       11428/STW    11447/MTW    12013-DATA
   SURFACE        11152/BAL    11237-STW
   SURFACE2       11242-BAL    11246/B      11298/BLEZ
   SURFACE3       11257-DATA
   SURFCEND        5292/LW      5456/CW      6661/CW      6725/LW      6899/CW      7176/CW      7734/STW
      8550/CW     10057/LW     10818/LW     10828/STW    11415/LW     11637/CW     11875/CW     12343-DATA
   SURINT         11439/CAL3   11604-AIO
   SURINTC2       11439/CAL3   11616-MTW
   SURINTXX       11687-DATA
   SURINT00       11545-DATA   11547/LD     12015/XPSD
   SURINT01       11548/STD    11600-DATA   11616/MTW    11642/LPSD   11649/LPSD   11660/LPSD   11680/LPSD
     11695/LPSD   11888/LPSD   12016/XPSD   12019/XPSD
   SURINT02       11566/LI     11624-LW     11647/EXU    11648/EXU    11854/EXU    11855/EXU
   SURINT03       11624/LW     12003-DATA   12056/STW    12058/STB
   SURINT04       11550/CAL2   11607/CAL2   11685-BAL
   SURINT05       11690/B      11699-BAL
   SURINT06       11633/BL     11638/BL     11643-MTW
   SURINT07       11644/BEZ    11653-CW
   SURINT09       11554/CAL2   11612/CAL2   11618/CAL2   11722-MTW    11989/B
   SURINT11       11639-LI
   SURINT25       11591-LI
   SURINT29       11664/BCR    11670-LI
   SURINT30       11673/BNEZ   11678-STW
   SURINT31       11590/STCF   11628/STCF   11654/BL     11663-LCI
   SURINT51       11714-BAL
   SURINT58       11393/STW    11705/STB    11712/STB    11715-DATA
   SURINT59       11397/STW    11586/STW    11716-DATA
   SURINT60       11546/DATA   11547-LD
   SURINT62       11552/B      11561-MTW    11619/B
   SURINT63       11563-LI
   SURINT64       11572/B      11584-STW
   SURINT65       11555/B      11562/BNEZ   11574-LW     11613/B      11667/B
   SURMASK        11394/STW    11396/STW    11585/STW    11701-DATA
   SURM1END       11417/STW    11632/CW     12245-DATA
   SURORDER       10855/STW    10879/STW    10908/STW    10934/STW    10971/STW    10992/STW    11014/STW
     11050/STW    11310/STW    11419/CW     11457/CW     11506/CW     12233-DATA
   SURPAT         11264/B      11270/B      11276/B      11282/B      11309-STW
   SURPAT01       11314/BEZ    11319-LCI
   SURPAT07       11426-LI     11469/B      11470/B      11489/BNEZ   11492/B
   SURPAT12       11431-WD     11449/B
   SURPAT20       11448/BEZ    11474/BEZ    11500-LI     11737/B      11879/B
   SURPAT23       11420/BCS    11442/BGZ    11452-STW    11491/BGZ    11499/BGZ
   SURPAT24       11445/BEZ    11498-AI
   SURPAT25       11434/BEZ    11437/BEZ    11441-AI
   SURPAT27       11505/BNEZ   11512-LI
   SURPERR        11212/BCS    11219/BCS    11228-BAL
   SURRTN          7580/STW     7609/STW     7645/STW     7673/STW     7710/STW     7765/STW    11237/STW
     11243/B*     11250/B*     11256-DATA
   SURSTART       11399/STH    11578/LI     11627-SIO    11635/LI     11655/LI
   SURTEMP1       11807/STW    11808/MTW*   11810/CW*    11814/STW*   11889-DATA
   SURTN1         11309/STW    11316/BNEZ*  11333/B*     12014-DATA
   SUR0015        12002-DATA
   SUR0615        11752/STM    11769/LM     11887/LM     12001-RES
   SWITCH         11567/STH    11579/STH    11606-BCR    11636/STH    11656/STH
   SWPROT12        2629/STW    10359/LW     10364/CW     12331-DATA
   SWPROT34        2641/STW    10368/LW     10373/CW     12332-DATA
   SYNCMISS       12373/STW    12502/MTW    12712/MTW    12833-DATA
   TABBIAS         5115/STW     5311/STW     6739/STW     9911/CW      9929/LW      9959/LW      9961/LW
      9965/LW     10027-DATA   12129/STW
   TABCOUNT        9964/STW     9968/CW      9981/MTW     9986/CW     10030-DATA
   TABDLY4         9985/BGE     9991-LW
   TABDPLY         9928/BNEZ    9931/BNE     9937-STW
   TABDPLY1        5107/STW     5208/STW     5274/STW     6612/STW     6701/STW     9942-DATA
   TABDPLY2        9940/BNEZ    9953-BAL
   TABDPLY3        9968-CW      9987/BG     10004/B
   TABERROR        9896/STW     9913/MTW     9921/MTW     9927/MTW    12130/STW    12216-DATA
   TABINDEX        9898/MTW     9899/CW      9915/MTW     9916/CW     10029-DATA   12128/STW
   TABLEMAX        9889/CW      9907/CW     12122/STW    12131/LW     12132/AWM    12215-DATA
   TABLE001        5111/LD      5216/LD      6620/LD     10014-TEXT
   TABLE002        5275/LD      6702/LD     10016-TEXT   10044/LD
   TABLE003        5279/LD      6706/LD     10018-TEXT   10038/LD
   TABLE010        5109/LM     10020-TEXT
   TABLE011        5214/LM     10022-TEXT
   TABLE012        6618/LM     10024-TEXT
   TABLE100        5110/STM     5215/STM     6619/STM     9944/DATA   10005-TEXTC
   TABLE101        5112/STH     5113/STW     5217/STH     5218/STW     5280/STH     5281/STW     6621/STH
      6622/STW     6707/STH     6708/STW     9947/STB     9949/DATA   10008-TEXTC
   TABLE102        9951/DATA   10011-TEXTC
   TABPASS         5116/STW     5220/STW     5294/STW     6645/STW     6710/STW     9939/MTW     9945/STW
     10026-DATA
   TABRTN          9887/STW     9905/STW     9970/BLE*   10028-DATA
   TABUILD         5256/BAL     5326/BAL     6682/BAL     6762/BAL     9905-STW
   TABUILDS        5160/BAL     9887-STW
   TABUILD1        9930-CH      9934/BL
   TABUILD2        9900/BLE     9917/BLE     9927-MTW
   TCKCURR         5250/SW      5253/LW      5285/LCW     5305/LCW     5323/LCW     5358/LCW     5499/LCW
      6650/LCW     6677/SW      6679/LW      6716/LCW     6756/LCW     8455/LCW    12066/LCW    12071/SLS*
     12346-DATA   12630/LW     12632/LCW    12750/LCW    13412/LCW    13420/LW     13584/SLS*
   TCKLGTH        12212-DATA
   TCKSFT01        2457-SET
   TCKSFT02        2465-SET     2579/LW
   TCKSHIFT        2580/STW     2649/LW     12329-DATA
   TCKSHOT        10085/LH*    12152/STW    12158/STW*   12159/LW     12208-DATA   12694/LH*    12757/STH*
   TCKUNVH         5382/STW     9762-DATA
   TCKUNVL         5353/STW     5383/MTW     5385/STW     5387/MTW     5392/DATA    5464/MTW     5469/DATA
      8446/STW     9723/LI      9761-DATA
   TCKWPVH         5434/STW     8528/STW     9766-DATA
   TCKWPVH1        5408/STW     8493/STW     9764-DATA
   TCKWPVL         5355/STW     5435/MTW     5437/STW     5439/MTW     5444/DATA    5478/MTW     8448/STW
      8529/MTW     8531/STW     8533/MTW     8538/DATA    9765-DATA
   TCKWPVL1        5354/STW     5409/MTW     5411/STW     5413/MTW     5418/DATA    5471/MTW     5476/DATA
      8447/STW     8494/MTW     8496/STW     8498/MTW     8503/DATA    9763-DATA
   TDVF0           8922/:TSEQ   8974/:TSEQ   8982/:TSEQ   8989/:TSEQ   8993/:TSEQ   9003/:TSEQ   9008/:TSEQ
      9014/:TSEQ   9025/:TSEQ   9035/:TSEQ   9041/:TSEQ   9047/:TSEQ   9054/:TSEQ   9061/:TSEQ   9239/:TSEQ
     13833-:TSEQEQU
   TDVF1          13833-:TSEQEQU
   TDVF2           8974/:TSEQ   8982/:TSEQ   8989/:TSEQ   8993/:TSEQ   9003/:TSEQ   9008/:TSEQ   9014/:TSEQ
      9025/:TSEQ   9035/:TSEQ   9041/:TSEQ   9047/:TSEQ   9054/:TSEQ   9061/:TSEQ   9239/:TSEQ
     13833-:TSEQEQU
   TDVF3           8922/:TSEQ   8974/:TSEQ   8982/:TSEQ   8989/:TSEQ   9003/:TSEQ   9008/:TSEQ   9014/:TSEQ
      9025/:TSEQ   9035/:TSEQ   9041/:TSEQ   9047/:TSEQ   9054/:TSEQ   9061/:TSEQ   9239/:TSEQ
     13833-:TSEQEQU
   TDVF4          13833-:TSEQEQU
   TDVF5          13833-:TSEQEQU
   TDVF6          13833-:TSEQEQU
   TDVF7          13833-:TSEQEQU
   TDVT0           9065/:TSEQ  13834-:TSEQEQU
   TDVT1          13834-:TSEQEQU
   TDVT2           8922/:TSEQ  13834-:TSEQEQU
   TDVT3           8993/:TSEQ  13834-:TSEQEQU
   TDVT4          13834-:TSEQEQU
   TDVT5          13834-:TSEQEQU
   TDVT6          13834-:TSEQEQU
   TDVT7          13834-:TSEQEQU
   TEMPSEK1       10377/STW    10395/LW     12333-DATA
   TEMPSEK2       10378/STW    10394/LW     12334-DATA
   TESTDEV        12308/STM    12337-SET
   TESTMODE        2364/MTW     9108/STW     9110/STW     9133-DATA
   TEXTADR         2051/STW     2053-DATA
   TGTDEV          2538/STW     3015/LW     12322-DATA
   TILT            2542/BAL     6785/BAL     9845-LW      9891/BAL     9909/BAL    11556/BAL    11614/BAL
     11620/BAL    11987/BAL    13241/BAL    13353/BAL    13478/BAL
   TILT1           9847/STW     9849/DATA    9853-TEXTC
   TIOF0          13827-:TSEQEQU
   TIOF1           8916/:TSEQ  13827-:TSEQEQU
   TIOF2           8916/:TSEQ  13827-:TSEQEQU
   TIOF3          13827-:TSEQEQU
   TIOF4           8837/:TSEQ   8839/:TSEQ   8841/:TSEQ   8843/:TSEQ   8848/:TSEQ   8852/:TSEQ   8854/:TSEQ
      8858/:TSEQ   8861/:TSEQ   8867/:TSEQ   8870/:TSEQ   8875/:TSEQ   8878/:TSEQ   8881/:TSEQ   8884/:TSEQ
      8887/:TSEQ   8893/:TSEQ   8896/:TSEQ   8900/:TSEQ   8906/:TSEQ   8909/:TSEQ   8917/:TSEQ   8919/:TSEQ
      8928/:TSEQ   8930/:TSEQ   8932/:TSEQ   8934/:TSEQ   8936/:TSEQ   8938/:TSEQ   8940/:TSEQ   8942/:TSEQ
      8944/:TSEQ   8946/:TSEQ   8956/:TSEQ   8958/:TSEQ   8964/:TSEQ   8966/:TSEQ   8968/:TSEQ   8971/:TSEQ
      8974/:TSEQ   9022/:TSEQ   9025/:TSEQ   9032/:TSEQ   9038/:TSEQ   9041/:TSEQ   9050/:TSEQ   9054/:TSEQ
      9058/:TSEQ   9061/:TSEQ  13827-:TSEQEQU
   TIOF5           8916/:TSEQ  13827-:TSEQEQU
   TIOF6           8916/:TSEQ  13827-:TSEQEQU
   TIOF7          13827-:TSEQEQU
   TIOINST         2971-TIO     8339/LW
   TIOT0          13828-:TSEQEQU
   TIOT1           8914/:TSEQ  13828-:TSEQEQU
   TIOT2           8914/:TSEQ  13828-:TSEQEQU
   TIOT3          13828-:TSEQEQU
   TIOT4           8920/:TSEQ   8922/:TSEQ   8925/:TSEQ   8926/:TSEQ   8948/:TSEQ   8950/:TSEQ   8952/:TSEQ
      8954/:TSEQ   8960/:TSEQ   8962/:TSEQ   8991/:TSEQ   8993/:TSEQ   9044/:TSEQ   9047/:TSEQ   9063/:TSEQ
      9065/:TSEQ  13828-:TSEQEQU
   TIOT5           8914/:TSEQ  13828-:TSEQEQU
   TIOT6           8914/:TSEQ  13828-:TSEQEQU
   TIOT7          13828-:TSEQEQU
   TMB             4922/STW     4944/STW     4966/LW      4999/LW      5003/STW     8708/GEN     8711/GEN
      9111/STW     9129/GEN     9131-DATA
   TOTALS         12143/AI     12148/MI     12207-EQU    12669/MI
   TOTLSHOT       10203/LW     12144/STW    12210-DATA   12784/MTH*
   TRACE          12027-DATA
   TRACEBOT       11372/LI     11374/STW    12044-SET
   TRACETOP       11372/LI     12026-SET
   TRACE00        12028-DATA
   TRACE01        11571/MTW    12029-DATA
   TRACE02        11587/MTW    12030-DATA
   TRACE03        12031-DATA
   TRACE04        12032-DATA
   TRACE05        11850/MTW    12033-DATA
   TRACE06        11873/MTW    12034-DATA
   TRACE07        11767/MTW    12035-DATA
   TRACE08        12036-DATA
   TRACE09        11659/MTW    12037-DATA
   TRACE10        11634/MTW    11691/MTW    12038-DATA
   TRACE11        11703/MTW    12039-DATA
   TRACE12        11722/MTW    12040-DATA
   TRACE13        11804/MTW    12041-DATA
   TRACE14        11922/MTW    12042-DATA
   TRACE15        11753/MTW    12043-DATA
   TSPREAD        10808/STW    10827/AW     11068-DATA
   TSSTART         2655/STW    12328-DATA
   TSSTARTC        3960/LW      3984/CW      4002/LW      4029/LW      4056/LW      4107/LW      4135/CW
      4151/LW      4179/LW      4241/LW      4267/CW      4288/LW      4315/LW      4341/LW     12345-DATA
   TST0             262/DATA    2270/:PROCDIC             2694-STW     2715/B       2718/B
   TST0ADDR         262-DATA
   TST0BCH         2890/EXU     2980-BEZ
   TST0FLAG        2749/STW     2760/STW     2888/LW      2975-DATA
   TST1             286/DATA    2271/:PROCDIC             2748-LI      2755/B
   TST1ADDR         286-DATA    2132/USECT
   TST1DVFG        2840/STW     2976-DATA    9800/XW
   TST1END         2765/LI      2776/CI      2789/CI      2966-EQU
   TST1ERMG        3037/BAL     3070/BAL     3084/BAL     3115/BAL     3126/BAL     3143/BAL     3178/BAL
      3189/BAL     3206/BAL     3241/BAL     3252/BAL     3269/BAL     3326/BAL     3338/BAL     3356/BAL
      3373/BAL     3390/BAL     3407/BAL     3421/BAL     3443/BAL     3499/BAL     3512/BAL     3526/BAL
      3570/BAL     3588/BAL     3599/BAL     3612/BAL     3637/BAL     3653/BAL     3666/BAL     3687/BAL
      3709/BAL     3763/BAL     3781/BAL     3792/BAL     3811/BAL     3844/BAL     3860/BAL     3874/BAL
      3889/BAL     3902/BAL     3920/BAL     3986/BAL     4128/BAL     4269/BAL     4424/BAL     4431/BAL
      4580/BAL     4587/BAL     4715/BAL     4722/BAL     4838/BAL     4880/BAL     4933/BAL     4962/BAL
      4974/BAL     4987/BAL     5069/BAL     5168/BAL     5389/BAL     5415/BAL     5441/BAL     5466/BAL
      5473/BAL     5480/BAL     5585/BAL     5595/BAL     5628/BAL     5753/BAL     5866/BAL     5994/BAL
      6162/BAL     6177/BAL     6193/BAL     6204/BAL     6379/BAL     6524/BAL     6582/BAL     6840/BAL
      6954/BAL     7015/BAL     7092/BAL     7183/BAL     7213/BAL     7410/BAL     7482/BAL     7511/BAL
      7614/BAL     7678/BAL     7775/BAL     7803/BAL     7871/BAL     7930/BAL     7991/BAL     8030/BAL
      8096/BAL     8160/BAL     8231/BAL     8291/BAL     8500/BAL     8535/BAL     8570/BAL     9442/BAL
      9473/BAL     9504/BAL     9535/BAL     9580/BAL     9605/BAL     9798-STW     9941/BAL    13705/BAL
     13726/BAL    13747/BAL    13942/BAL    14000/BAL    14041/BAL
   TST1ERM5        9803/STW     9816/LW      9836-DATA
   TST1ERTN        9798/STW     9820/LW*     9831/B*      9832-DATA    9838/LH     12489/STW
   TST1ER00        9811-BAL    12490/B
   TST1ER01        9801/BEZ     9818-BAL
   TST1ER02        9820-LW
   TST1ER03        9827-BAL
   TST1ER04        9826/EXU     9838-LH
   TST1MSG1        9822/STH     9824/STH     9828/STW     9830/DATA    9834-TEXTC
   TST1PERR        2777/BG      2790/BG      2799-BAL
   TST1PONT        2839/STW     2899/LW      2907/MTW     2908/LW      2974-DATA    3295/LW
   TST1RTN         2761/STW     2816/B*      2820/B*      2973-DATA
   TST1START       2765/LI      2776/CI      2789/CI      2889/MTW     2894/LW      2912-EQU
   TST1TEST        2803/STD     2837/LW      2909/CW      2978-DATA
   TST100          2697/BAL     2752/BAL     2760-STW
   TST1001         2770/BEZ     2795/BGE     2803-STD
   TST102          2807-LI
   TST103          2813-HIO     2910/BG
   TST104          2837-LW
   TST105          2843-LI      2902/B       2911/B
   TST106          2874/LI      2897/B       2907-MTW
   TST1115         4127/B       4134-LW
   TST1115A        4128-BAL     4136/BNE
   TST2             307/DATA    2272/:PROCDIC            10669-STW    10684/B      10687/B
   TST2ADDR         307-DATA
   TST2DATA        2868/LW      7625/LM      7705/LM     10700/LM     11056-DATA
   TST2LEV2        2709/BAL    10682/BAL    10693-STW    10695/LI
   TST2LEV3       10710/BAL    10720-STW
   TST2LEV4       10728/BAL    10734-STW
   TST2LEV5       10737/BAL    10760-STW    10772/BEZ    10800/BEZ
   TST2LOOP       10723-MTW    10730/B
   TST2PAR         2706/STW    10675/STW    10703/STW    10704/LI     10713/STW    10714/LI     11060-DATA
   TST2RTN1       10693/STW    10716/B*     10774/B*     11064-DATA
   TST2RTN2       10720/STW    10724/BEZ*   11065-DATA
   TST2RTN3       10734/STW    10754/B*     11066-DATA
   TST2RTN4       10760/STW    10829/B*     11067-DATA
   TST3             322/DATA    2273/:PROCDIC            11174-LI     11183/LI
   TST3ADDR         322-DATA
   TST3EXIT        7602/STW     7666/STW     7766/STW    11224/B*     11233-DATA   11329/B*
   TST3PARM       11205/STD    11211/CLR*   11218/CLR*   11221/LW*    11223/LD     11232-DATA   11240/LW*
     11244/LW*
   TST3PAT         7567/STW     7568/STW     7626/STM     7706/STM    10701/STM    11181/STM    11190/CW
     11194/MTW    11320/LM     11997-DATA
   TST3P1T1       11150-SET    11210/LI     11222/EXU
   TST3P1T2       11153-SET    11210/LI
   TST3P2T1       11156-SET    11217/LI     11245/EXU
   TST3P2T2       11162-SET    11217/LI
   TST3P3T1       11163-SET
   TST3P3T2       11165-SET
   TST3P4T1       11168-SET
   TST3P4T2       11171-SET
   TST3RAND       10705/BAL    10715/BAL    11195/BAL    11205-STD
   TST32          11187-STW    11197/B      11200/B
   T1ERFLAG        2865/STW     2972-DATA    3328/MTW     3340/MTW     3363/MTW     3375/MTW     3397/MTW
      3409/MTW     3427/MTW     3428/MTW     3501/MTW     3514/MTW     3532/MTW     3533/MTW     3576/MTW
      3590/MTW     3601/MTW     3618/MTW     3639/MTW     3655/MTW     3672/MTW     3689/MTW     3711/MTW
      3712/MTW     3769/MTW     3783/MTW     3794/MTW     3813/MTW     3846/MTW     3862/MTW     3880/MTW
      3891/MTW     3908/MTW     3922/MTW     3923/MTW     4815/STW     4840/MTW     4855/MTW     4857/MTW
      4871/STW     4882/MTW     4897/MTW     4899/MTW     4921/STW     4929/MTW     4935/MTW     4936/MTW
      4943/STW     4959/MTW     4964/MTW     4976/MTW     4984/MTW     4989/MTW     4991/MTW     4994/STW
      5567/STW     5574/MTW     5587/MTW     5597/MTW     5598/MTW     5611/STW     5618/MTW     5627/MTW
      5630/MTW     9712/STW
   T1INTX          3840/LI      3844-BAL
   T1INT08         3720-DATA    3723/LPSD    3726/XPSD
   T1INT09         3821-DATA    3832/STW     3833/LPSD    3842/STW     3843/LPSD    3929/XPSD
   T1INT094        3824/BNEZ    3840-LI
   T1INT095        3831/LI      3853-LI
   T1INT096        3859/BCR     3870-BAL
   T1INT097        3873/B       3887-LCF
   T1INT098        3888/BCS     3898-BAL
   T1STDYLP        3004/STW     3008/MTW     3041-DATA
   T1STINTR        3022-DATA    3029/LPSD    3040/XPSD
   T1STMOD3        4919/BAL     5030/BAL     5654/BAL     5696/BAL     5802/BAL     5918/BAL     6045/BAL
      6119/BAL     6230/BAL     9135-CW
   T1STXPSD        2995/LW      3040-XPSD
   T1ST01          2914/DATA    2995-LW
   T1ST0105        3005-LI      3009/BLZ
   T1ST0117        3028/BLZ     3036-BAL
   T1ST0119        3010/BAL     3012-LI      3036/BAL
   T1ST0120        3026-MTW
   T1ST02          2915/DATA    3057-LW      3074/B
   T1ST0211        3062/STCF    3069/BCS     3082-LCI
   T1ST03          2916/DATA    3100-HIO
   T1ST0310        3113-LCF
   T1ST0311        3114/BCR     3124-LCF
   T1ST0312        3125/BCR     3135-LCF
   T1ST04          2917/DATA    3163-TIO
   T1ST0410        3176-LCF
   T1ST0411        3177/BCR     3187-LCF
   T1ST0412        3188/BCR     3198-LCF
   T1ST05          2918/DATA    3226-TDV
   T1ST0510        3239-LCF
   T1ST0511        3240/BCR     3250-LCF
   T1ST0512        3251/BCR     3261-LCF
   T1ST06          2919/DATA    3289-LW      3432/B       3451/B
   T1ST0610        3324-LCF
   T1ST0611        3325/BCR     3336-LCF
   T1ST0612        3337/BCR     3348-LCF
   T1ST0613        3353/B       3371-CH
   T1ST0614        3372/BE      3376-STW
   T1ST0615        3384-BAL
   T1ST0616        3387/B       3404-STW
   T1ST0617        3406/BCR     3417-BAL
   T1ST0618        3420/B       3428-MTW
   T1ST0619        3429/BEZ     3439-BAL
   T1ST07          2920/DATA    3465-LW
   T1ST0710        3497-LCF
   T1ST0711        3498/BCR     3509-LH
   T1ST0712        3511/BE      3522-BAL
   T1ST0713        3525/B       3533-MTW
   T1ST08          2921/DATA    3551-LW
   T1ST0810        3566-BAL
   T1ST0811        3569/B       3584-BAL
   T1ST0812        3587/B       3597-LCF
   T1ST0813        3598/BCS     3608-BAL
   T1ST0814        3611/B       3625-LW
   T1ST0815        3636/BNEZ    3646-TDV
   T1ST0816        3650/B       3652/BCR     3662-BAL
   T1ST0817        3665/B       3679-LI
   T1ST0818        3686/B       3696-LI
   T1ST0819        3708/BEZ     3712-MTW
   T1ST09          2922/DATA    3744-LW
   T1ST0910        3759-BAL
   T1ST0911        3762/B       3777-BAL
   T1ST0912        3780/B       3790-LCF
   T1ST0913        3791/BCS     3801-LW
   T1ST0919        3901/B       3914-TIO
   T1ST0920        3814/B       3919/B       3923-MTW
   T1ST10          2923/DATA    3942-LW      3972/B       3990/B
   T1ST1010        3960-LW
   T1ST1015        3967/B       3980-BAL
   T1ST1020        3985/BE      4002-LW      4016/B
   T1ST1030        4011/B       4029-LW      4042/B
   T1ST1040        4038/B       4056-LW      4069/B
   T1ST11          2924/DATA    4087-LW      4118/B       4132/B
   T1ST1110        4107-LW
   T1ST1115        4114/B       4126-BAL
   T1ST1120        4133/B       4137/B       4151-LW      4164/B
   T1ST1130        4159/B       4179-LW      4192/B
   T1ST12          2925/DATA    4215-MTW     4254/B       4273/B
   T1ST1210        4241-LW
   T1ST1215        4248/B       4263-BAL
   T1ST1220        4268/BE      4288-LW      4300/B
   T1ST1230        4295/B       4315-LW      4328/B
   T1ST1240        4324/B       4341-LW      4354/B
   T1ST13          2926/DATA    4371-LI      4408/B       4435/B
   T1ST1310        4398-BAL
   T1ST1315        4403/B       4421-LW
   T1ST1316        4423/BNE     4427-LW
   T1ST1317        4426/B       4433-BAL
   T1ST1320        4430/B       4449-BAL     4459/B
   T1ST1330        4454/B       4472-BAL     4482/B
   T1ST1340        4477/B       4495-BAL     4505/B
   T1ST14          2927/DATA    4524-LW      4564/B       4591/B
   T1ST1410        4554-BAL
   T1ST1415        4559/B       4577-LW
   T1ST1416        4579/BNE     4583-LW
   T1ST1417        4582/B       4589-BAL
   T1ST1420        4586/B       4605-BAL     4616/B
   T1ST1430        4611/B       4629-BAL     4639/B
   T1ST15          2928/DATA    4657-LI      4699/B       4726/B
   T1ST1510        4689-BAL
   T1ST1515        4694/B       4712-LW
   T1ST1516        4714/BNE     4718-LW
   T1ST1517        4717/B       4724-BAL
   T1ST1520        4721/B       4740-BAL     4751/B
   T1ST1530        4746/B       4764-BAL     4774/B
   T1ST1540        4769/B       4787-BAL     4797/B
   T1ST16          2929/DATA    4814-LI      4862/B       4904/B
   T1ST1610        4836-LCF
   T1ST1620        4837/BCS     4848-LI
   T1ST1625        4854/B       4857-MTW
   T1ST1630        4858/BEZ     4869-LI
   T1ST1640        4879/BCR     4890-LI
   T1ST1645        4896/B       4899-MTW
   T1ST17          2930/DATA    4919-BAL
   T1ST1710        4920-LI      4940/B
   T1ST172E        4946/STW     4955-DATA    4997/B       5004/MTW     5010/B
   T1ST1720        4937/BEZ     4942-LI
   T1ST173E        4948/STW     4963-DATA    5005/MTW
   T1ST174E        4950/STW     4980-DATA    5006/MTW
   T1ST1740        4968/BNE     4973/BCS     4978-BAL
   T1ST175E        4952/STW     4988-DATA    5007/MTW
   T1ST1780        4992/BEZ     4999-LW      5009/BCS
   T1ST18          2931/DATA    5030-BAL     5088/B
   T1ST18HD        5072/DATA    5093-TEXTC
   T1ST18SV        5041/STB     5045/LW      5091-DATA
   T1ST18TA        5034/LW      5061/LW      5074/LW      5092-DATA
   T1ST18X         5033/STW     5049/LW      5054/LW      5056/MTW     5057/LW      5090-DATA
   T1ST1800        5034-LW      5059/BL
   T1ST1825        5063/BNE     5065/BNE     5069-BAL     5089/B
   T1ST1830        5074-LW      5085/BIR
   T1ST19          2932/DATA    5106-LI      5172/B
   T1ST19IP        5179/DATA    5185-AIO
   T1ST19IT        5178-DATA    5187/LPSD    5191/XPSD
   T1ST19LP        5152/STW     5154/MTW     5186/MTW     5192-DATA
   T1ST19RP        5391/BAL     5417/BAL     5443/BAL     5468/BAL     5475/BAL     8502/BAL     8537/BAL
      9711-STW
   T1ST19RT        9711/STW     9731/LW*     9750/B*      9751-DATA
   T1ST19XP        5123/LW      5191-XPSD
   T1ST1910        5128-LW      5165/B
   T1ST1911        5148-LI      5162/B
   T1ST1912        5158/B       5168-BAL
   T1ST20          2933/DATA    5207-LI
   T1ST2010        5235-LW      5261/B
   T1ST2011        5242-BAL     5258/B
   T1ST2020        5257/B       5273-LI
   T1ST2021        5315-LW      5328/B
   T1ST2022        5302-LI      5331/B
   T1ST21          2934/DATA    5346-STW
   T1ST21XF        5363/STW     5396/MTW     5422/MTW     5448/MTW     5452/MTW     5458/STW     5485-DATA
      8459/STW     8507/MTW     8521/MTW     8542/MTW     8546/MTW     8552/STW
   T1ST2108        5356-LI      5397/BEZ     5423/BEZ     5449/BEZ
   T1ST2109        5358-LCW     5395/B       5421/B       5447/B
   T1ST2110        5367-BAL     5457/BL
   T1ST2111        5381/B       5387-MTW     5462/B
   T1ST2120        5386/B       5388/BEZ     5404-BAL
   T1ST2121        5407/B       5413-MTW
   T1ST2130        5412/B       5414/BEZ     5431-MTW
   T1ST2131        5454-AI
   T1ST2132        5433/BGEZ    5439-MTW
   T1ST2140        5438/B       5440/BEZ     5452-MTW
   T1ST2150        5453/BNEZ    5464-MTW
   T1ST22          2935/DATA    5497-MTW     5523/B
   T1ST2210        5511-LW
   T1ST2220        5504/BNEZ    5519/B       5530-LW      5545/B
   T1ST23          2936/DATA    5566-LI      5602/B
   T1ST2311        5573/B       5580-HIO
   T1ST2312        5583/BNE     5593-CI
   T1ST2313        5594/BE      5598-MTW
   T1ST2320        5599/BEZ     5610-LI      5634/B
   T1ST2321        5617/B       5624-HIO
   T1ST2323        5626/BE      5630-MTW
   T1ST24          2937/DATA    5654-BAL
   T1ST24E         5659/STW     5663-DATA    5670/B       5671/MTW     5675/BL
   T1ST2400        5659-STW     5682/B
   T1ST25          2938/DATA    5696-BAL
   T1ST25AR        5738/LW      5784-DATA
   T1ST25AW        5724/LW      5781-DATA
   T1ST25TP        5716/LW      5778-DATA
   T1ST25TT        5715/LB      5780-DATA
   T1ST25XM        5700/STW     5723/LW      5737/LW      5766/MTW     5767/LW      5776-DATA
   T1ST25XP        5714/STW     5762/MTW     5763/LW      5777-DATA
   T1ST2500        5700-STW
   T1ST2501        5714-STW     5765/BL      5775/B
   T1ST2502        5722-BAL     5761/B
   T1ST2503        5752/B       5762-MTW
   T1ST251E        5702/STW     5729-DATA    5735/B       5772/MTW
   T1ST252E        5704/STW     5743-DATA    5749/B       5773/MTW
   T1ST253E        5706/STW     5754-DATA    5774/MTW
   T1ST26          2939/DATA    5802-BAL
   T1ST26BR        5847/LB      5894-DATA
   T1ST26BW        5823/LB      5893-DATA
   T1ST26CR        5850/LB      5895-DATA
   T1ST26PC        5839/LB      5891-DATA
   T1ST26PR        5843/LB      5892-DATA
   T1ST26PT        5820/LW      5840/LW      5844/LW      5885-DATA
   T1ST26PW        5819/LB      5890-DATA
   T1ST26R         5846/LW      5898-GEN
   T1ST26W         5822/LW      5897-GEN
   T1ST26X         5806/STW     5818/LW      5838/LW      5842/LW      5875/MTW     5876/LW      5896-DATA
   T1ST2601        5818-LW      5874/B       5884/B
   T1ST262E        5808/STW     5831-DATA    5837/B       5881/MTW
   T1ST263E        5810/STW     5854-DATA    5860/B       5882/MTW
   T1ST264E        5812/STW     5867-DATA    5883/MTW
   T1ST2650        5865/B       5875-MTW
   T1ST27          2940/DATA    5918-BAL
   T1ST27PA        5932/LD      6026-DATA
   T1ST27PB        5934/LD      6027-DATA
   T1ST27PC        5935/STD     5968/LW      5973/LW      6028-DATA
   T1ST27R5        5993/STW     5996/LW      6029-DATA
   T1ST27SR        5990/STW     6021/B*      6024-DATA
   T1ST27X         5922/STW     5938/LW      5951/MTW     5964/STW     5967/LCW     6009/AW      6023-DATA
   T1ST270A        5921-LI      5986/B
   T1ST2700        5936-MTW     5950/B       5952/B       5961/B
   T1ST2720        5941/BE      5953-BAL
   T1ST2721        5973-LW      5981/BIR
   T1ST2722        5977-AW
   T1ST2725        5971/BAL     5976/BAL     5990-STW
   T1ST2730        5992/BNEZ    6006-BAL
   T1ST28          2941/DATA    6045-BAL
   T1ST2810        6052-BAL     6061/B
   T1ST2820        6064-BAL     6073/B
   T1ST2830        6076-BAL     6085/B
   T1ST2840        6087-BAL     6096/B
   T1ST29          2942/DATA    6119-BAL
   T1ST29TA        6135/LW      6208-DATA
   T1ST29TE        6156/LW      6209-DATA
   T1ST29TO        6150/STB     6157/CW      6160/LI      6210-DATA
   T1ST29X         6125/STW     6134/LW      6149/LW      6153/MTW     6207-DATA
   T1ST2900        6122-LI      6168/B
   T1ST2910        6133-BAL     6146/B       6154/B
   T1ST2935        6158/BE      6169-BAL     6181/B       6197/B
   T1ST2940        6176/BCR     6182-LI
   T1ST2945        6195-BAL     6206/B
   T1ST30          2943/DATA    6230-BAL
   T1ST30PA        6234/LD      6300-DATA
   T1ST30PB        6236/LD      6302-DATA
   T1ST30PC        6237/STD     6282/LW      6285/LW      6304-DATA
   T1ST30SP        6248/BAL     6264/BAL     6277-LW
   T1ST30TP        6293/LW      6305-DATA
   T1ST30X         6241/STW     6259/MTW     6260/LW      6292/LW      6298-DATA
   T1ST301E        6246/STW     6251-DATA    6258/MTW
   T1ST3010        6247-BAL     6257/B       6262/BL
   T1ST3030        6263-BAL     6273/B
   T1ST31          2944/DATA    6323-LW      6362/B       6383/B
   T1ST3110        6352-BAL
   T1ST3115        6357/B       6377-BAL
   T1ST3117        6381-BAL
   T1ST3120        6378/B       6398-BAL     6409/B
   T1ST3130        6404/B       6425-BAL     6436/B
   T1ST3140        6431/B       6452-BAL     6464/B
   T1ST32          2945/DATA    6479-LI
   T1ST32A         6487-BAL     6512/B       6528/B       6533/BL
   T1ST3210        6502-BAL
   T1ST3215        6507/B       6521-BAL
   T1ST3216        6523/B       6529-LH
   T1ST33          2946/DATA    6556-LW
   T1ST33A         6565-BAL     6577/B       6586/B       6596/BL
   T1ST3310        6567-BAL
   T1ST3315        6572/B       6580-BAL
   T1ST3316        6581/B       6590-LH
   T1ST34          2947/DATA    6611-LI
   T1ST34SV        5129/STW     5236/STW     5240/LW      5299/STW     5312/AW      5315/LW      6647/STW
      6670/LW      6672/LW      6732/STW     6740/AW      6742/LW      6746/LW      6752/LW      9664-DATA
   T1ST3410        6644-LI
   T1ST3411        6672-LW      6684/B
   T1ST3412        6663-LI      6687/B
   T1ST3415        6671/B       6674-BAL
   T1ST3420        6683/B       6700-LI
   T1ST3421        6752-LW
   T1ST3423        6746-LW      6764/B
   T1ST3424        6735-LI      6767/B
   T1ST3425        6745/B       6754-BAL
   T1ST343D        6797/STW     6798/STW     6810-DATA
   T1ST3430        6763/B       6778-LW      6816/B
   T1ST3431        6780-CW      6784/BL
   T1ST3432        6781/BE      6789-LW
   T1ST35          2948/DATA    6836-LI      6845/B
   T1ST3511        6874/B       6898-STW
   T1ST3516        6862/STW     6884-DATA
   T1ST3520        6839/B       6919-BAL     6933/B
   T1ST36          2949/DATA    6950-LI      6958/B
   T1ST3620        6953/B       6975-LI
   T1ST3621        6976-STH     6992/B       6996/BL
   T1ST3622        6987/B       6993-LH
   T1ST37          2950/DATA    7011-LI      7019/B
   T1ST3720        7014/B       7036-LW
   T1ST3721        7038-STH     7050/B       7056/BL
   T1ST3722        7045/B       7051-LH
   T1ST38          2951/DATA    7085-LI      7097/B       7191/B
   T1ST3801        7089-BAL     7177/BL
   T1ST3802        7092-BAL     7178/B
   T1ST3820        7090/B       7107-LW
   T1ST3821        7120-BAL     7136/B
   T1ST3830        7131/B       7166-STW
   T1ST3831        7173/BGE     7181-LI
   T1ST39          2952/DATA    7207-LI      7217/B
   T1ST3920        7212/B       7241-LI
   T1ST3921        7244-BAL     7260/B
   T1ST3930        7255/B       7280-BAL     7297/B
   T1ST3940        7292/B       7318-BAL     7335/B
   T1ST3950        7330/B       7356-LI
   T1ST3951        7358-BAL     7370/B
   T1ST3960        7365/B       7379-LW
   T1ST3961        7381-BAL     7393/B
   T1ST40          2953/DATA    7406-LI      7414/B
   T1ST4020        7439-LW      7464/B       7488/B       7517/B       7536/B       7544/B
   T1ST4021        7430/LI      7452-BAL
   T1ST4022        7409/B       7430-LI
   T1ST4025        7459/B       7472-LH
   T1ST4035        7477/B       7485/B       7495-LI
   T1ST4040        7506/B       7514/B       7527-BAL
   T1ST4042        7532/B       7540-LH
   T1ST41          2954/DATA    7564-EQU
   T1ST41ER        7574/STW     7600/STW     7639/STW     7664/STW     7708/STW     7763/STW    12491-DATA
   T1ST411X        7644/LI      7650-BAL
   T1ST411Y        7665/LI      7672/LI      7681-BAL
   T1ST4110        7613/BEZ     7623-EQU     7653/B
   T1ST4111        7649/BEZ     7661-LI      7684/B
   T1ST418X        7579/LI      7586-EQU
   T1ST418Y        7601/LI      7608/LI      7618-EQU
   T1ST4180        7565-EQU     7589/B
   T1ST4181        7584/BEZ     7596-EQU     7621/B
   T1ST42          2955/DATA    7699-LI
   T1ST421W        7764/LI      7780-BAL
   T1ST421Z        7709/LI      7731/BNE     7738-CW      7751/B
   T1ST4211        7736/BLE     7760-LI      7782/B
   T1ST4213        7711-LW
   T1ST4214        7732-LW      7746/BEZ     7752/B
   T1ST43          2956/DATA    7799-LI      7807/B
   T1ST4320        7802/B       7829-LI
   T1ST4321        7832-BAL     7843/B       7850/BL
   T1ST4322        7838/B       7844-LH
   T1ST44          2957/DATA    7867-LI      7875/B
   T1ST4420        7870/B       7888-LI
   T1ST4421        7892-BAL     7906/B       7940/B
   T1ST4430        7901/B       7918-LW
   T1ST4431        7926-LB      7935/BLE
   T1ST4440        7920/BNE     7953-LI      7970/B       8001/B
   T1ST4450        7965/B       7980-LW
   T1ST4451        7987-LB      7996/BLE
   T1ST45          2958/DATA    8021-LW      8034/B
   T1ST4520        8028/B       8046-LI
   T1ST4521        8063-BAL     8074/B       8104/B       8112/BLE
   T1ST4522        8052/STW     8066-DATA    8110/MTW
   T1ST4527        8069/B       8077-LW
   T1ST4530        8093-AND
   T1ST4539        8079/BNE     8094/BNEZ    8105-LW
   T1ST4540        8139-BAL     8150/B       8166/B       8183/BLE
   T1ST4541        8145/B       8151-LW
   T1ST4542        8126/STW     8142-DATA    8180/MTW
   T1ST4543        8154-BAL
   T1ST4551        8153/BNE     8158/BNEZ    8176-LW
   T1ST46          2959/DATA    8204-LI
   T1ST4601        8216-HIO     8236/B       8254/B
   T1ST4610        8228-HIO
   T1ST4620        8229/BCS     8244-BAL
   T1ST47          2960/DATA    8266-LI
   T1ST4701        8278-HIO     8296/B       8314/B
   T1ST4710        8288-HIO
   T1ST4720        8289/BCS     8304-BAL
   T1ST48          2961/DATA    8335-LW      8359/B
   T1ST48IC        8408-AI      8414/BLE
   T1ST48ID        8342/BAL     8368/BAL     8385-LI
   T1ST4813        8343/STW     8351-DATA
   T1ST4820        8355/B       8367-LI      8381/B
   T1ST4823        8369/STW     8373-DATA
   T1ST49          2962/DATA    8441-STW
   T1ST4908        8449-LI      8508/BEZ     8543/BEZ
   T1ST4909        8451-LW      8506/B       8541/B
   T1ST4910        8475-BAL     8486/B       8551/BL
   T1ST4911        8492/B       8498-MTW     8556/B
   T1ST4912        8483/B       8488-BAL
   T1ST4920        8497/B       8499/BEZ     8521-MTW
   T1ST4921        8527/BGEZ    8533-MTW
   T1ST4930        8532/B       8534/BEZ     8546-MTW
   T1ST50          2963/DATA    8567-LI      8574/B
   T1ST502X        8605-BAL
   T1ST5021        8609/LI      8613-BAL     8625/B
   T1ST5022        8569/B       8585-LW
   T1ST5024        8606-LW      8630/BL      8639/B
   T1ST5025        8620/B       8626-MTW
   UNVABLE         9727/LM      9759-TEXT
   UNXINTR         9611/DATA    9671-TEXTC
   WAITMSG1       13860/WAITPROC            13867/WAITPROC            14239-TEXTC
   WAITPROC        1947-CNAME
   WAITPRO1        1953/GOTO    1957-PEND
   WATCHERR        2368/STW     2872/STW     3296/STW     3307/MTW     3313/MTW     9115/AW      9170/LW
      9213/LW      9269/LW     10631-DATA   12193/LW
   WHDOGRTN        2339/STW     2376/B*     10632-DATA
   WRITEDLY       12007-DATA
   WRITTEN        11371/STW    11507/BNE*   11509/B*     11526/B*     11530/B*     11531/B*     12004-DATA
   WRTDWRT        10845/BAL    11011-MTW
   WRTDWRT1       11016-AW     11051/B
   WRTONLY         7581/BAL     7646/BAL     7743/BAL    11158/BAL    11261-LI     11286/BAL
   WRTPTD          9722/LM      9758-TEXT
   WRTRED         11157/BAL    11286-BAL
   WRTRED1        11290-LW     11299/B
   X               1950/SET
   XPSDATA        11569/LW     11574/LW     12016-XPSD
   XPSDCAL1       11386/LW     12017-XPSD
   XPSDCAL2       11388/LW     12018-XPSD
   XPSDCAL3       11390/LW     12019-XPSD
   XPSDFUCT        9411/LW      9673-XPSD
   XPSDSEEK       11384/LW     11577/LW     11943/LW     12015-XPSD
   XPSDT108        3625/LW      3726-XPSD
   XPSDT109        3801/LW      3929-XPSD
   :AIO            3827/BAL     3870/BAL     3876/BAL     3898/BAL     3904/BAL     9521/BAL     9540/BAL
      9566/BAL     9585/BAL    11685/BAL    11699/BAL    11714/BAL    12903-AIO
   :AIO1          12906-LI
   :BCDC           2162-EQU     2592/BAL*    2597/BAL*
   :BINC           2164-EQU    12452/BAL*   12454/BAL*   13045/BAL*   13545/BAL*   14047/BAL*   14049/BAL*
     14054/BAL*   14056/BAL*
   :BINCOT1       13048-LI
   :BINCOT2       13050-SCS    13055/BGEZ
   :BINCOVT       13020/BAL    13025/BAL    13043-STD
   :BINEXIT       13047/B      13056-LD
   :BINRTN        13044/STW    13057/B*     13099-DATA
   :BIN0405       13043/STD    13056/LD     13098-DATA
   :BUFTOP        13252/STW    13290/STD*   13300/STW*   13318/STW*   13320/SW*    13330/STD*   13332/SD*
     13347/STD*   13358/STW*   13368/CD*    13384/CW*    13398/AD*    13438/LW     13441/STW    13444/CW*
     13469/CD*    13482/CW*    13521/LW     13533/LW*    13572/CS*    13598-DATA
   :CATALOG        2329-EQU
   :CCERMA        13067/DATA   13082-TEXTC
   :CCERMB        13068/DATA   13083-TEXTC
   :CCERMC        13069/DATA   13084-TEXTC
   :CCERMD        13070/DATA   13085-TEXTC
   :CCERME        13071/DATA   13086-TEXTC
   :CCERMF        13072/DATA   13087-TEXTC
   :CCERM1        13058/DATA   13073-TEXTC
   :CCERM2        13059/DATA   13074-TEXTC
   :CCERM3        13060/DATA   13075-TEXTC
   :CCERM4        13061/DATA   13076-TEXTC
   :CCERM5        13062/DATA   13077-TEXTC
   :CCERM6        13063/DATA   13078-TEXTC
   :CCERM7        13064/DATA   13079-TEXTC
   :CCERM8        13065/DATA   13080-TEXTC
   :CCERM9        13066/DATA   13081-TEXTC
   :CCERR1        12942/BCR    12948-LW
   :CCERR2        12943/BCR    12956-LW
   :CCERR3        12944/B      12983-LW
   :CCPRINT       12984/STW    12989/STW*   12991-DATA
   :CCTEST        12921/BNE    12931-CW
   :CDB            2296/GEN     2296/GEN     2317-EQU     2477/LH      2481/CI      2489/LH      2493/LW
      2507/LW      2528/LW      2562/LW      2585/LW
   :CDBEND         2296/GEN     2325-EQU     2481/CI
   :CDBM           2296/GEN     2305-EQU
   :CDBMEND        2296/GEN     2315-EQU
   :CDT            2215/DATA    2216/DATA    2295-EQU
   :CDTEND         2216/DATA    2297-EQU
   :CLEAR          5736/BAL     6133/BAL     7123/BAL     7453/BAL    13645-STD
   :CLRADDR        5712/STW     6131/STW     7114/STW     7445/STW    13647/LW     13657-DATA
   :CLRSAVE       13645/STD    13646/STW    13653/LD     13654/LW     13660-RES
   :CLRSIZE        5709/STW     6129/STW     7110/STW     7441/STW    13648/AW     13649/LCW    13658-DATA
   :COMADDR       12745/MTW    12753/LH     13199/STW    13408/STW    13425/LH     13603-DATA
   :COMBFRB       11456/STW    13244/CW     13250/LW     13310/LW     13339/STW*   13405/CW*    13407/LW*
     13489/LD*    13505/LW     13522/SW     13597-DATA   13614/EQU
   :COMEND        13237/LI     13239/CI     13248/AI     13267-SET
   :COMERM3        5999/STH     6001/STH     6003/STH     6005/DATA   13509/STH    13511/STH    13513/STH
     13515/DATA   13615-TEXTC
   :COMERM4        6011/STW    13525/STW    13541/STW    13546/STB    13555/DATA   13558/STW    13618-TEXTC
   :COMERM6       12628/STB    13416/STB    13418/STH    13424/STH    13427/STH    13429/STH    13431/DATA
     13620-TEXTC
   :COMERM7       13457/STW    13459/DATA   13622-TEXTC
   :COMERRT        5927/STW     5982/MTW     5991/MTW     6020/MTW    12677/MTW    12738/MTW    13198/STW
     13448/MTW    13453/LW     13495/MTW    13498/MTW    13502/LW     13506/CW     13596-DATA
   :COMFLAG        2873/STW     5750/STW     5756/STW     5863/STW     5869/STW     6123/STW     7166/STW
      7182/STW     7475/STW     7481/STW     7497/STW     7510/STW    11382/STW    11452/STW    11515/STW
     11928/STW    11938/STW    12402/MTW    12441/MTW    12474/MTW    12498/MTW    12675/MTW    12683/XW
     12686/XW     12736/MTW    12743/MTW    13409/MTW    13450/MTW    13499/CW     13601-DATA
   :COMIDPT       13312/STW    13316/STW*   13327/STD*   13341/STW*   13439/STW    13442/LW*    13599-DATA
   :COMPARE        3980/BAL     4126/BAL     4263/BAL     4429/BAL     4585/BAL     4720/BAL     5751/BAL
      5757/BAL     5864/BAL     5870/BAL     6164/BAL     6377/BAL     6521/BAL     6580/BAL     7167/BAL
      7185/BAL     7476/BAL     7484/BAL     7505/BAL     7513/BAL    11466/BAL    11936/BAL    12684/BAL
     13197-LI
   :COMPLIM       10553/STW    13454/CW     13503/CW     13595-DATA
   :COMPXT        13242/STW    13293/B*     13303/B*     13342/B*     13349/B*     13361/B*     13406/BE*
     13410/BNEZ*  13432/B*     13452/BNEZ*  13455/BLE*   13460/B*     13491/BE*    13497/MTW    13602-DATA
   :COMROUT       13237/LI     13239/CI     13248/AI     13255/LW     13260-SET
   :COMRTN        13373/B      13389/B      13450-MTW    13474/B      13487/B
   :COMSAVE       13488/STD    13529/LW     13536/LW     13538/B*     13542/STW    13553/LW     13559/STW
     13566/LW     13580/STW    13589/B*     13591-DATA
   :COMWCNT       10957/STW    11340/STW    13243/LCW    13246/CW     13251/AW     13299/LCW    13357/LCW
     13380/LCW    13436/LCW    13481/LCW    13600-DATA   13613/EQU
   :COM00         13274/DATA   13469-CD
   :COM00Y        13261/DATA   13378-LI     13472/B
   :COM01         13367-AW     13372/BIR
   :COM01X        13384-CW     13388/BIR
   :COM01Z        13262/DATA   13275/DATA   13370/B      13380-LCW
   :COM02         13263/DATA   13276/DATA   13393-LCW
   :COM02V        13442-LW     13447/BIR
   :COM021        13395/BCS    13400/BNEZ   13436-LCW
   :COM03         13277/DATA   13464-BAL
   :COM03W        13264/DATA   13376-BAL
   :COM04         13265/DATA   13278/DATA   13478-BAL
   :COM05         13266/DATA   13279/DATA   13481-LCW    13486/BIR
   :COM1          13386/BAL    13446/BAL    13484/BAL    13488-STD
   :COM2          13507/BNE    13516/B      13519-BAL
   :COM2EXT       13500/BE     13504/BG     13536-LW     13570/BEZ
   :COM4           6014/BAL     6018/BAL    13530/BAL    13535/BAL    13541-STW
   :COM4EXT        5076/BAL     5079/BAL     5082/BAL    13558-STW
   :COM41         13544-LI     13552/BG     13561/B
   :COM92         13569-MTW    13576/B
   :COM93         13501/BL     13566-LW
   :CURBCNT        2168-EQU
   :DAERM         12937/STW    12971/STB    12974/STW    12976/DATA   12988/LW     13088-TEXTC
   :DATA            361/DATA    2274/:PROCDIC            10294-STW
   :DATADIR        2274-:PROCDIC            10309/DATA
   :DECC           2165-EQU     9733/BAL*    9739/BAL*    9821/BAL*    9972/BAL*   10067/BAL*   10073/BAL*
     10091/BAL*   10164/BAL*   10177/BAL*   10575/BAL*   10577/BAL*   10612/BAL*   12194/BAL*   12637/BAL*
     12646/BAL*   13415/BAL*   13423/BAL*   13456/BAL*
   :DEVADDR        2371/MTW     2373/HIO*    2813/HIO*    2971/TIO*    3001/STW     3016/STW     3025/HIO*
      3026/MTW     3027/MTW     3059/STW     3061/HIO*    3100/HIO*    3101/HIO*    3163/TIO*    3226/TDV*
      3299/SIO*    3308/TDV*    3314/HIO*    3482/SIO*    3485/SIO*    3490/HIO*    3555/SIO*    3558/TIO*
      3646/TDV*    3681/HIO*    3682/TIO*    3748/SIO*    3751/TIO*    3914/TIO*    3969/HIO*    4013/HIO*
      4039/HIO*    4066/HIO*    4115/HIO*    4161/HIO*    4189/HIO*    4251/HIO*    4297/HIO*    4325/HIO*
      4351/HIO*    4405/HIO*    4456/HIO*    4479/HIO*    4502/HIO*    4561/HIO*    4613/HIO*    4636/HIO*
      4696/HIO*    4748/HIO*    4771/HIO*    4794/HIO*    4824/SIO*    4859/HIO*    4901/HIO*    4931/TDV*
      4960/TDV*    4970/TDV*    4985/TDV*    5039/TDV*    5044/TDV*    5153/SIO*    5520/HIO*    5541/HIO*
      5580/HIO*    5624/HIO*    6147/TDV*    6173/TDV*    6186/SIO*    6189/TDV*    6359/HIO*    6406/HIO*
      6433/HIO*    6461/HIO*    6509/HIO*    6574/HIO*    6813/HIO*    6842/HIO*    6888/TIO*    6930/HIO*
      6989/HIO*    7047/HIO*    7133/HIO*    7188/HIO*    7257/HIO*    7294/HIO*    7332/HIO*    7367/HIO*
      7390/HIO*    7461/HIO*    7479/HIO*    7508/HIO*    7533/HIO*    7840/HIO*    7903/HIO*    7937/HIO*
      7967/HIO*    7998/HIO*    8071/HIO*    8098/HIO*    8147/HIO*    8163/HIO*    8216/HIO*    8219/SIO*
      8228/HIO*    8233/HIO*    8251/HIO*    8278/HIO*    8281/SIO*    8288/HIO*    8293/HIO*    8311/HIO*
      8356/HIO*    8378/HIO*    8622/HIO*    9123/HIO*    9179/HIO*    9222/HIO*    9285/HIO*   10616/LW
     10951/LW     11332/HIO*   11398/LW     11589/SIO*   12339-DATA   12371/TDV*   12386/HIO*   12448/TIO*
     12650/LW     12871/SIO*   12879/TIO*   12887/HIO*   12895/TDV*   12926/CW     12935/LW     12968/CW
     13586/LW     13758/LW
   :DEVADER       12941/BCR    12952/B      12964-CI
   :DEVEXIT       12960/B      12977-LD     12992/B      13002/BE     13039/B
   :DIC            2212/DATA    2213/DATA    2267-EQU
   :DICEND         2213/DATA    2279-EQU     2295/EQU
   :DICILEN        2185-EQU
   :DICINDX        2184-EQU
   :DIRNAME        2220-EQU
   :DUMP           2160-EQU
   :ERPARNO        2222-EQU     2546/STW     2774/STW     2787/STW    10296/STW    10301/STW    10406/EQU
     10541/STW    11208/STW    11215/STW    11220/STW
   :ERRADR1       12948/LW     13058-DATA
   :ERRADR2       12956/LW     13063-DATA
   :ERRADR3       12983/LW     13068-DATA
   :ERRBITS       13904/STW    13928/LW     14125-DATA
   :ERROR          2169-EQU
   :ERRORT         4852/BAL     4894/BAL     9512/BAL     9551/BAL     9616/BAL     9624/BAL    13846-LCI
   :ERRORT#        4849/STW     4891/STW     9389/STW     9428/STW    13703/LW     13724/LW     13745/LW
     13943-DATA   13998/LW     14039/LW
   :ERRPARM        2182-EQU     2799/BAL*   10308/BAL*   10402/BAL*   10547/BAL*   11228/BAL*
   :ERRTBCM       13988/LD     14129-TEXT
   :ERRTCAM       13985/LD     14130-TEXT
   :ERRTFLG       13850/STW    13947/MTW    14026/MTW    14031/MTW    14060/MTW    14068-DATA
   :ERRTMG1       13926/STW    13930/STD    13932/STB    13935/STB    13939/STB    13945/DATA   14122-TEXTC
   :ERRTMG2       13989/STW    13990/STW    13991/STW    13995/STW    14003/DATA   14126-TEXTC
   :ERRTMP1       13847/STM    14030/LM     14063-RES
   :ERRTMP2       13901/STW    13909/MTW    13913/MTW    13933/LW     13936/LW     14064-DATA
   :ERRTMP3       13855/STW    13917/LW     13922/LW     13924/LW     13968/LW     13978/LW     13992/LW
     14065-DATA
   :ERRTMSK       13905/LB     14066-GEN
   :ERRTM1        14036/STW    14044/DATA   14070-TEXTC
   :ERRTM2        14048/STW    14050/STW    14052/DATA   14071-TEXTC
   :ERRTM3        14055/STW    14057/STW    14059/DATA   14072-TEXTC
   :ERRTNEG       13987/LW     14127-TEXT
   :ERRTTB        13927/LW     14123-DATA
   :ERRTTBA       14074-TEXT   14123/DATA   14123/DATA   14123/DATA
   :ERRTTBB       14082-TEXT   14123/DATA
   :ERRTTBC       14090-TEXT   14123/DATA
   :ERRTTBD       14098-TEXT   14124/DATA
   :ERRTTBE       14106-TEXT   14124/DATA
   :ERRTTBF       14114-TEXT   14124/DATA
   :ERRTYPE       13925/LW     14035/LW     14069-DATA
   :ERRT0         13851-LB     13920/B
   :ERRT1         13857/BCS    13863-LW     13876/B      13885/B      13888/B
   :ERRT10        13874/B      13883/B      13894/B      13947-MTW    14005/B
   :ERRT11        13859/BCS    13951-LW
   :ERRT11A       13958-SCD    14009/B
   :ERRT11B       13960/BCS    13964-MTW
   :ERRT12        13957/BCS    14007-LW
   :ERRT13        13852/BCR    14011-LI     14028/BIR
   :ERRT14        14013/BCR    14015/BCR    14028-BIR    14061/B
   :ERRT15        14025/BCS    14027/BNEZ   14035-LW
   :ERRT2         13866/BCS    13869-CI
   :ERRT3         13870/BCS    13878-CI
   :ERRT4         13879/BCS    13887-BAL
   :ERRT5         13887/BAL    13890-STW    13953/BAL
   :ERRT5X        13890/STW    13896/B*     13897-DATA
   :ERRT6         13864/BCS    13899-LI
   :ERRT7         13908/BCS    13913-MTW
   :ERRT8         13910/BCR    13915/B      13917-LW
   :ERRT8A        13919-MTW    13949/B      13962/BCS    13966/BCR
   :ERRT9         13911/B      13914/BCR    13922-LW
   :ERRT9A        13924-LW
   :ERRT91A       13963/B      13978-LW
   :ERRT91B       13980/BCR    13987-LW
   :ERRT91C       13977/B      13988-LD
   :ERRT92A       13968-LW
   :ERRT92B       13974/B      13984-BAL
   :ERRT92C       13970/BCR    13975-AW
   :EXPOBS        13031/LW     13091-TEXT
   :FAIOMSK        2859/STW     5224/STW     5351/STW     8023/STW     8349/STW     9548/AND     9593/AND
      9663-DATA
   :FCTNXINT       7527/BAL     8245/BAL     8305/BAL     9366-LCI
   :FCTXINT        9356-LCI
   :FTIOMSK        2857/STW     5222/STW     5349/STW     8347/STW     9481/AND     9662-DATA
   :FUCTEST        3962/BAL     4006/BAL     4033/BAL     4060/BAL     4109/BAL     4154/BAL     4183/BAL
      4243/BAL     4290/BAL     4319/BAL     4345/BAL     4398/BAL     4449/BAL     4472/BAL     4495/BAL
      4554/BAL     4605/BAL     4629/BAL     4689/BAL     4740/BAL     4764/BAL     4787/BAL     4923/BAL
      4953/BAL     4978/BAL     5514/BAL     5535/BAL     5568/BAL     5612/BAL     5661/BAL     5727/BAL
      5741/BAL     5829/BAL     5852/BAL     5942/BAL     5953/BAL     6053/BAL     6065/BAL     6077/BAL
      6088/BAL     6138/BAL     6249/BAL     6265/BAL     6352/BAL     6399/BAL     6426/BAL     6453/BAL
      6502/BAL     6567/BAL     6807/BAL     6882/BAL     6922/BAL     6978/BAL     7040/BAL     7126/BAL
      7250/BAL     7287/BAL     7325/BAL     7360/BAL     7383/BAL     7454/BAL     7833/BAL     7896/BAL
      7960/BAL     8064/BAL     8140/BAL     8350/BAL     8372/BAL     8478/BAL     8615/BAL     9117/BAL
      9173/BAL     9216/BAL     9279/BAL     9378-B
   :FUCTIN         2861/STW     8340/STW     9422-AI
   :FUNCT00        9462/B       9480-LW
   :FUNCT01        9487/BEZ     9561-MTW
   :FUNCT02        9493/BLZ     9521-BAL
   :FUNCT03        9562/BGEZ    9623-STW
   :FUNCT04        9569/B       9588/B       9593-AND
   :FUNCT05        9524/B       9543/B       9548-AND
   :FUNCT09        9362/B       9373/B       9411-LW
   :FUNCT10        9436/B       9449-SLS
   :FUNCT11        9467/BNEZ    9475-BAL
   :FUNCT12        9498/BNEZ    9506-BAL
   :FUNCT13        9529/BNEZ    9540-BAL
   :FUNCT14        9574/BNEZ    9585-BAL
   :FUNCT15        9599/BNEZ    9610-BAL
   :FUNEX          9634/BEZ     9641-LCI
   :FUNEXIT        9515/B       9544/B       9553/B       9555/B       9589/B       9619/B       9626/B
      9628-AIO
   :FUNFLAG        4851/STW     4893/STW     9359/STW     9370/STW     9387/STW     9440/STW     9466/MTW
      9471/STW     9497/MTW     9502/STW     9528/MTW     9533/STW     9554/STW     9573/MTW     9578/STW
      9598/MTW     9603/STW     9627/STW     9633/MTW     9645/AW      9661-DATA   13701/MTW    13707/STW
     13722/MTW    13728/STW    13743/MTW    13749/STW    13940/MTW    13948/STW    13996/MTW    14004/STW
     14037/MTW    14045/STW
   :FUNSAVE        9357/STM     9368/STM     9385/STM     9427/LM*     9635/LW*     9643/LM      9659-RES
      9839/LH
   :HEXC           2166-EQU     5998/BAL*    6002/BAL*    6010/BAL*    9637/BAL*    9827/BAL*    9846/BAL*
      9992/BAL*   10479/BAL*   10481/BAL*   10486/BAL*   10490/BAL*   10493/BAL*   10497/BAL*   10500/BAL*
     10502/BAL*   10572/BAL*   10605/BAL*   10617/BAL*   12533/BAL*   12597/BAL*   12601/BAL*   12607/BAL*
     12609/BAL*   12651/BAL*   12936/BAL*   12970/BAL*   13426/BAL*   13508/BAL*   13512/BAL*   13524/BAL*
     13759/BAL*   13984/BAL*   13994/BAL*
   :HIO            3102/BAL     3137/BAL     3145/BAL     3417/BAL     3423/BAL    11728/BAL    12476/BAL
     12510/BAL    12887-HIO    13718/BAL    13729/BAL    13871/BAL
   :HIO1          12890-LI
   :INITIAL        2218/DATA    2470-STW
   :IOERM1        13755/WAITPROC            13769-TEXTC
   :IOERM2        13760/STW    13762/STB    13764/DATA   13770-TEXTC
   :IOERR1        13694/B      13718-BAL
   :IOERR1A       13755-WAITPROC            13765/B
   :IOERR2        13696/BCR    13758-LW
   :IOERR6        13700/B      13711/B      13713-LW
   :IOEXEC         9407/BAL    12444/BAL    13687-STW
   :IOEXEC1       13690-BAL    13712/B      13721/B      13732/B      13742/B      13753/B      13756/B
   :IORTN         12914/STW    12915/LW*    12916/LW*    12922/CW*    12923/BAZ*   12927/BE*    12931/CW*
     12932/BANZ*  12979/B*     12996/LW*    12997/LW*    13012/LW*    13013/LW*    13100-DATA
   :IOSAVE        13687/STW    13688/STW    13689/STD    13713/LW     13714/LW     13715/LD     13768-RES
   :K             13155/AW     13168-DATA
   :KSRADR         2178-EQU
   :LIMTDIR        2277-:PROCDIC            10548/DATA
   :LIM1          10544/BE     10550-LW
   :LIM2          10546/BE     10555-LW
   :LOADDIR        2190-EQU
   :LOADIN         2176-EQU
   :L1M0          10547-BAL
   :MACHINE        2179-EQU     2827/LW      9401/LW
   :MEM             398/DATA    2276/:PROCDIC            10431-LI
   :MEMDIR         2276-:PROCDIC
   :MEMLAST        2187-EQU     8404/CW     10433/LW     10435/LW     10471/LW     10522/DATA   10524/DATA
     12117/LW     12138/LW     12160/SW     12161/STW*
   :MEMLST        10524-DATA
   :MEMSIZE        2186-EQU    10456/CW     10499/LW     10505/CW
   :MLT            1955/BAL*    2155-EQU     2156/EQU     2157/EQU     2158/EQU     2159/EQU     2160/EQU
      2161/EQU     2162/EQU     2163/EQU     2164/EQU     2165/EQU     2166/EQU     2167/EQU     2168/EQU
      2169/EQU     2170/EQU     2171/EQU     2172/EQU     2173/EQU     2174/EQU     2175/EQU     2176/EQU
      2177/EQU     2178/EQU     2179/EQU     2180/EQU     2181/EQU     2182/EQU     2183/EQU     2184/EQU
      2185/EQU     2186/EQU     2187/EQU     2188/EQU     2189/EQU     2190/EQU     2191/EQU     2192/EQU
   :MLTEND         2192-EQU     2196/EQU
   :MLTEND1        2198-EQU
   :MLT1END        2196-EQU
   :MONIOBF        2188-EQU
   :MONITOR        2163-EQU     2719/B*      2756/B*      2801/B*      9850/B*     10306/B*     10310/B*
     10390/B*     10404/B*     10476/BNE*   10513/B*     10549/B*     10554/B*     10559/B*     10689/B*
     11201/B*     11230/B*
   :MONPBF         2189-EQU
   :MONWAIT        2172-EQU
   :MRECOVR        2173-EQU
   :MSGADDR        2359/CW      2763/STW    10707/STW    11207/STW    12188/LW*    12400/CW     12427/CW
     12485/LW     12496/CW     12648/LW*    12830-DATA
   :MSGIN          2175-EQU
   :MSGOUT         2174-EQU
   :M1            13145/STW    13150/MTW    13156/EOR    13165-DATA
   :M2            13146/STW    13152/MTW    13157/EOR    13166-DATA
   :PASSC          2714/BAL    10563-STW    10683/BAL    11196/BAL
   :PASSCNT       10558/STW    10582/CW     10589-DATA
   :PASSCUR        2694/STW    10567/LW     10574/LW     10581/LW     10584/MTW    10590-DATA   10669/STW
     11187/STW
   :PASSC1        10565/BLEZ   10570/BCS    10581-LW
   :PASSMSG       10573/STB    10576/STW    10578/STW    10580/DATA   10592-TEXTC
   :PASSPFL       10556/STW    10564/MTW    10568/DW     10587-DATA
   :PASSRTN       10563/STW    10583/BGE*   10585/B*     10591-DATA
   :PATBFR         2884/STW     3294/STW     3470/STW     3947/STW     4095/STW     4226/STW     4385/STW
      4536/STW     4671/STW     5711/STW     5814/STW     6161/STW     6328/STW     6486/STW     6561/STW
      6631/STW     6869/STW     7113/STW     7444/STW     7500/STW     8208/STW     8270/STW     8602/STW
     13614-EQU
   :PATID          2869/STD     4422/CW      4427/LW      4578/CW      4583/LW      4713/CW      4718/LW
      5717/STD     5721/STW     5815/STW     5817/STW     5821/STW     5845/STW     6124/STW     6159/STW
      6633/STD     6871/STD     7116/STW     7119/STD     7210/STW     7243/STD     7357/STD     7380/STW
      7448/STD     7496/STD     7889/STD     7955/STD     8047/STD     8114/STW     8206/STD     8268/STD
      8599/STD    10741/STW    10958/STW    11321/STM    13238/AW     13253/LW     13254/LW     13289/AW
     13291/AW     13298/STW    13301/AW     13337/STW    13359/SCS*   13367/AW     13371/AW     13377/STW
     13379/STW    13381/LW     13387/AW     13465/STW    13485/SCS*   13607-DATA
   :PATTERN        2885/BAL     3297/BAL     3471/BAL     3948/BAL     4096/BAL     4227/BAL     4387/BAL
      4538/BAL     4673/BAL     5722/BAL     5828/BAL     6330/BAL     6488/BAL     6566/BAL     6634/BAL
      6879/BAL     7121/BAL     7245/BAL     7282/BAL     7320/BAL     7359/BAL     7382/BAL     7450/BAL
      7893/BAL     7957/BAL     8049/BAL     8116/BAL     8214/BAL     8276/BAL     8605/BAL    11475/BAL
     13201/B      13237-LI
   :PATWC          2882/STW     3292/STW     3468/STW     3945/STW     4093/STW     4224/STW     4383/STW
      4534/STW     4669/STW     5708/STW     5827/STW     5862/STW     6155/STW     6326/STW     6484/STW
      6559/STW     6629/STW     6867/STW     7111/STW     7442/STW     7474/STW     7499/AW      7504/STW
      8212/STW     8274/STW     8591/STW    13613-EQU
   :PAT0          13280/DATA   13347-STD    13348/BIR
   :PAT0W         13268/DATA   13297-LI
   :PAT1          13289-AW     13292/BIR
   :PAT1W         13269/DATA   13281/DATA   13299-LCW
   :PAT2          13270/DATA   13282/DATA   13307-LW
   :PAT2HS        13314/BCR    13325-SAS
   :PAT2HS1       13327-STD    13336/BIR
   :PAT3          13283/DATA   13346-BAL
   :PAT3W         13271/DATA   13296-BAL
   :PAT4          13272/DATA   13284/DATA   13353-BAL
   :PAT5          13273/DATA   13285/DATA   13357-LCW
   :PITEND         2230-EQU     2231/DO      2239/EQU
   :PITLAST        2229-EQU     2231/DO      2237/EQU
   :PITX           2237-EQU
   :PITY           2239-EQU
   :PIT0           2210-DATA    2230/EQU
   :PIT1           2211-DATA
   :PIT10          2221-DATA    2222/EQU
   :PIT11          2223-DATA
   :PIT12          2224-DATA    2548/STW     2554/STW
   :PIT13          2225-DATA
   :PIT14          2226-DATA
   :PIT15          2227-DATA    2362/STW     2879/STW    10698/STW    11186/STW
   :PIT2           2212-DATA
   :PIT3           2213-DATA
   :PIT4           2214-DATA
   :PIT5           2215-DATA
   :PIT6           2216-DATA
   :PIT7           2217-DATA
   :PIT8           2218-DATA
   :PIT9           2219-DATA    2220/EQU
   :PK            13309/STD    13321/XW     13322/AW     13326/AW     13333/XW     13334/XW     13335/AD
     13605-DATA
   :PK1           13606-DATA
   :PRINT          2052/BAL*    2170-EQU     5071/BAL*    5083/BAL*    6004/BAL*    6006/BAL*    9444/BAL*
      9475/BAL*    9506/BAL*    9610/BAL*    9639/BAL*    9743/BAL*    9811/BAL*    9814/BAL*    9818/BAL*
      9829/BAL*    9848/BAL*    9943/BAL*    9948/BAL*    9950/BAL*    9953/BAL*   10001/BAL*   10034/BAL*
     10048/BAL*   10054/BAL*   10141/BAL*   10146/BAL*   10150/BAL*   10154/BAL*   10193/BAL*   10212/BAL*
     10214/BAL*   10216/BAL*   10218/BAL*   10220/BAL*   10222/BAL*   10224/BAL*   10226/BAL*   10228/BAL*
     10230/BAL*   10509/BAL*   10511/BAL*   10579/BAL*   10607/BAL*   10614/BAL*   10619/BAL*   11248/BAL*
     11521/BAL*   11523/BAL*   12202/BAL*   12483/BAL*   12493/BAL*   12504/BAL*   12506/BAL*   12950/BAL*
     12958/BAL*   12975/BAL*   12990/BAL*   13007/BAL*   13035/BAL*   13430/BAL*   13458/BAL*   13514/BAL*
     13519/BAL*   13554/BAL*   13763/BAL*   13944/BAL*   14002/BAL*   14043/BAL*   14051/BAL*   14058/BAL*
   :PROCDIC        1991-CNAME
   :PROGID         2211/DATA    2332-EQU
   :PSW            2161-EQU
   :P1             2156-EQU     2701/LW      2750/LW     10299/CLR    10303/LM     10355/LW     10442/AW
     10449/LW     10451/CW     10543/CW     10545/CW     10670/LW     11174/LI
   :P2             2157-EQU     2705/LW      2751/LW     10350/CW     10361/AW     10443/CW     10450/LW
     10550/LW     10555/LW     10674/LW     11178/CW     11192/CW
   :P3             2158-EQU    10356/LW     10557/LW
   :P4             2159-EQU    10353/CW     10370/AW     11288/LW
   :RANDOM        10763/BAL    13148-STW
   :RANDOMX       13150-MTW
   :RANDOMY       13145-STW
   :RECOVER        2214/DATA    2339-STW     2472/BAL
   :REG0405       12933/STD    12977/LD     13095-DATA
   :REG0607       13009/STD    13038/LD     13096-DATA
   :REG1213       12934/STD    12978/LD     13097-DATA
   :RELBIAS        2180-EQU
   :REMOTE         2191-EQU     2471/BAL
   :RLOADER        2181-EQU
   :RSTEST         2366/BAL     5067/BAL     5678/BAL     5770/BAL     5879/BAL     5987/BAL     6097/BAL
      6169/BAL     6202/BAL     6274/BAL     9107-LI
   :SAVCOM1       13971/LW     13981/LW     14007/LW     14237-DATA
   :SAVEAIO        9549/BAL     9594/BAL    14191-STD
   :SAVEALL       14162/BAL    14164/BAL    14176/BAL    14181/BAL    14187/BAL    14194/BAL    14196/BAL
     14203/BAL    14209/BAL    14213-STW
   :SAVECLR        2374/BAL    14150-STD
   :SAVEHIO        8230/BAL     8244/BAL     8290/BAL     8304/BAL    13875/BAL    14174-STD
   :SAVESIO       14185-STD
   :SAVESSA       14201-STD
   :SAVESSB       14207-STD
   :SAVETAB       13863/LW     13918/STW    13923/STW    13951/LW     13993/LW     14012/LW     14018/STW
     14153/STH    14161/LI     14163/LI     14166/STH    14168/STB    14169/STH    14170/STB    14175/LI
     14180/LI     14186/LI     14193/LI     14195/LI     14202/LI     14208/LI     14223-EQU
   :SAVETDV       13884/BAL    14179-STD
   :SAVETIO        4831/BAL     4876/BAL     9482/BAL    13895/BAL    14159-STD
   :SAVETMP       14150/STD    14156/LD     14159/STD    14160/STW    14165/LW     14171/LD     14174/STD
     14177/LD     14179/STD    14182/LD     14185/STD    14188/LD     14191/STD    14192/STW    14197/LW
     14198/LD     14201/STD    14204/LD     14207/STD    14210/LD     14213/STW    14220/B*     14236-DATA
   :SEED          10747/LW     13148/STW    13153/LW     13158/STW    13167-DATA
   :SEEKDIR        2275-:PROCDIC            10403/DATA
   :SEEKEXT        9169/STW     9178/B*      9183/B*      9232-DATA
   :SEEKMD2        9173-BAL     9182/B
   :SEEKMOD        4386/BAL     4537/BAL     4672/BAL     5036/BAL     5243/BAL     5318/BAL     5374/BAL
      5937/BAL     6052/BAL     6064/BAL     6076/BAL     6087/BAL     6137/BAL     6172/BAL     6247/BAL
      6263/BAL     6329/BAL     6398/BAL     6425/BAL     6452/BAL     6487/BAL     6565/BAL     6668/BAL
      6750/BAL     6805/BAL     6878/BAL     6881/BAL     6919/BAL     6977/BAL     7039/BAL     7120/BAL
      7124/BAL     7244/BAL     7247/BAL     7280/BAL     7286/BAL     7318/BAL     7324/BAL     7358/BAL
      7381/BAL     7449/BAL     7452/BAL     7832/BAL     7892/BAL     7895/BAL     7956/BAL     7959/BAL
      8048/BAL     8063/BAL     8115/BAL     8139/BAL     8213/BAL     8217/BAL     8275/BAL     8279/BAL
      8344/BAL     8370/BAL     8476/BAL     8608/BAL     8613/BAL     9169-STW
   :SENSE          2171-EQU     2716/BAL*    2753/BAL*    2900/BAL*    3072/BAL*    3430/BAL*    3449/BAL*
      3970/BAL*    3988/BAL*    4014/BAL*    4040/BAL*    4067/BAL*    4116/BAL*    4130/BAL*    4162/BAL*
      4190/BAL*    4252/BAL*    4271/BAL*    4298/BAL*    4326/BAL*    4352/BAL*    4406/BAL*    4433/BAL*
      4457/BAL*    4480/BAL*    4503/BAL*    4562/BAL*    4589/BAL*    4614/BAL*    4637/BAL*    4697/BAL*
      4724/BAL*    4749/BAL*    4772/BAL*    4795/BAL*    4860/BAL*    4902/BAL*    4938/BAL*    4995/BAL*
      5086/BAL*    5163/BAL*    5170/BAL*    5259/BAL*    5329/BAL*    5393/BAL*    5419/BAL*    5445/BAL*
      5521/BAL*    5543/BAL*    5600/BAL*    5632/BAL*    5668/BAL*    5733/BAL*    5747/BAL*    5759/BAL*
      5835/BAL*    5858/BAL*    5872/BAL*    5948/BAL*    5959/BAL*    5984/BAL*    6059/BAL*    6071/BAL*
      6083/BAL*    6094/BAL*    6144/BAL*    6166/BAL*    6179/BAL*    6195/BAL*    6255/BAL*    6271/BAL*
      6360/BAL*    6381/BAL*    6407/BAL*    6434/BAL*    6462/BAL*    6510/BAL*    6526/BAL*    6575/BAL*
      6584/BAL*    6685/BAL*    6765/BAL*    6814/BAL*    6843/BAL*    6931/BAL*    6956/BAL*    6990/BAL*
      7017/BAL*    7048/BAL*    7095/BAL*    7134/BAL*    7189/BAL*    7215/BAL*    7258/BAL*    7295/BAL*
      7333/BAL*    7368/BAL*    7391/BAL*    7412/BAL*    7462/BAL*    7486/BAL*    7515/BAL*    7534/BAL*
      7587/BAL*    7619/BAL*    7650/BAL*    7681/BAL*    7749/BAL*    7780/BAL*    7805/BAL*    7841/BAL*
      7873/BAL*    7904/BAL*    7938/BAL*    7968/BAL*    7999/BAL*    8032/BAL*    8072/BAL*    8099/BAL*
      8148/BAL*    8164/BAL*    8234/BAL*    8252/BAL*    8294/BAL*    8312/BAL*    8357/BAL*    8379/BAL*
      8484/BAL*    8504/BAL*    8539/BAL*    8572/BAL*    8623/BAL*    9124/BAL*    9180/BAL*    9223/BAL*
      9286/BAL*   10685/BAL*   11198/BAL*
   :SENSEMOD       5051/BAL     5246/BAL     5320/BAL     5376/BAL     6674/BAL     6754/BAL     7922/BAL
      7983/BAL     8080/BAL     8154/BAL     8524/BAL     9267-STD
   :SETEST         5038/BAL     5043/BAL     5656/BAL     5698/BAL     5804/BAL     5920/BAL     6047/BAL
      6121/BAL     6171/BAL     6239/BAL     9110-STW
   :SIO            3300/BAL     3350/BAL     3359/BAL     3486/BAL     3522/BAL     3528/BAL    11984/BAL
     12871-SIO    13697/BAL    13708/BAL
   :SIO1          12874-LI
   :SKERRNO        9172/STW     9175-DATA
   :SNSERNO        9271/STW     9281-DATA
   :SNSMD2         9279-BAL     9288/B
   :SNSSAVE        9267/STD     9278/LW      9284/B*      9289/B*      9294-DATA
   :SNSWORD        5052/LH      5159/LB      5248/LB      5321/LH      5431/MTW     5461/STW     6675/LB
      6715/STH     6755/LH      7926/LB      7987/LB      8082/LB      8156/LB      8526/MTW     8555/STW
      9296/GEN     9298-DATA
   :STATEM1       13004/XW     13006/STB    13008/DATA   13089-TEXTC
   :STATEM2       13022/STH    13026/STB    13032/XW     13034/STB    13036/DATA   13090-TEXTC
   :STATERR       12965/BNE    12969/BE     12996-LW
   :STATER1       13017-LW     13037/BDR
   :STATEST       12875/B      12883/B      12891/B      12899/B      12907/B      12913-STW
   :STATTYP       13003/LW     13093-TEXT
   :STATUSCC       3113/LCF     3124/LCF     3135/LCF     3176/LCF     3187/LCF     3198/LCF     3239/LCF
      3250/LCF     3261/LCF     3324/LCF     3336/LCF     3348/LCF     3376/STW     3404/STW     3405/LCF
      3497/LCF     3597/LCF     3651/LCF     3790/LCF     3858/LCF     3887/LCF     4836/LCF     4878/LCF
      5460/STW     8554/STW    12364/LW     12473/STW    12509/STW    12516/STW    12770/STW    12872/STW
     12873/STCF   12880/STW    12881/STCF   12888/STW    12889/STCF   12896/STW    12897/STCF   12904/STW
     12905/STCF   12919/AND    12938/LCF    13000/AND    13017/LW     13102-DATA
   :TDV            3228/BAL     3263/BAL     3271/BAL     3384/BAL     3393/BAL     3647/BAL     3662/BAL
      3668/BAL     5378/BAL     5404/BAL     8488/BAL    12895-TDV    13880/BAL
   :TDV1          12898-LI
   :TIO            3165/BAL     3200/BAL     3208/BAL     3439/BAL     3445/BAL     3566/BAL     3572/BAL
      3584/BAL     3608/BAL     3614/BAL     3683/BAL     3759/BAL     3765/BAL     3777/BAL     3916/BAL
      4825/BAL     4872/BAL     9433/BAL     9459/BAL    11527/BAL    11724/BAL    11732/BAL    12879-TIO
     13690/BAL    13739/BAL    13750/BAL    13891/BAL
   :TIO1          12882-LI
   :TSEQ           1961-CNAME
   :TSEQEQU        1974-CNAME
   :TSTEXT         9112/STW     9122/B*      9127/B*      9132-DATA
   :TSTMDNO        9116/STW     9119-DATA
   :TSTMD2         9117-BAL     9126/B
   :TST0DIR        2270-:PROCDIC
   :TST1DIR        2271-:PROCDIC             2762/LI      2800/DATA   12191/CW     12486/CI
   :TST2DIR        2272-:PROCDIC            10706/LI     12399/LI     12425/LI     12495/LI
   :TST3DIR        2273-:PROCDIC             2358/LI     11206/LI     11229/DATA
   :TYPE          12913/STW    12939/LW     13101-DATA
   :TYPRINT        2177-EQU
   :WAIT           2183-EQU
   :WRTERNO        9215/STW     9218-DATA
   :WRTEXT         7431/STW     8610/STW     9210/STW     9221/B*      9226/B*      9233-DATA
   :WRTMD2         9216-BAL     9225/B
   :WRTMOD         6673/BAL     6753/BAL     6806/BAL     6880/BAL     7122/BAL     7246/BAL     7285/BAL
      7323/BAL     7894/BAL     7958/BAL     8050/BAL     8117/BAL     8215/BAL     8277/BAL     9210-STW
   :WRTMOD1        7451/BAL     8611/BAL     9213-LW
   :1BYTEIN        2167-EQU
   #CHKWRT        12567/LI     12823-TEXT
   #DDTADR1        2848/LCI     5210/LCI     6614/LCI     7576/LCI     7605/LCI     7641/LCI     7669/LCI
      7712/LCI    12302/MI     12305/AI     12306/LCI    12320-SET    12336/RES
   #DDTADR2       12302/MI     12335-SET    12336/RES
   #DDTADR3        2848/LCI     5210/LCI     6614/LCI     7576/LCI     7605/LCI     7641/LCI     7669/LCI
      7712/LCI    12306/LCI    12330-SET
   #DDTBIAS        2520/STW     2537/LW      2847/LW      3014/LW      5209/LW      5282/LW      6613/LW
      6711/LW      6859/LW      7575/LW      7604/LW      7640/LW      7668/LW      7711/LW      7732/LW
      7747/LW     10347/LW     10392/LW     11290/LW     12303/STW    12304/LW     12316-DATA
   #DDTEXIT       12300/BGE    12310-LCI
   #DDTICMT        2541/BAL     2815/BAL     7769/BAL    10345/BAL    10389/BAL    10438/BAL    11242/BAL
     12294-LCI
   #DDTLGTH        2522/STW     2556/STW    12289/DW     12299/CW     12315-DATA
   #DDTP           2519/STW     2555/LW      2809/STW     7768/MTW    10344/STW    10387/STW    10432/STW
     11239/STW    12296/LW     12298/STW    12314-DATA
   #DDTRADM       10735/BAL    12284-LCI
   #DDTSAVE           1-EQU    12285/STM    12295/STM    12309/MTW    12311/LM
   #DDT1          12288/BEZ    12291/B      12298-STW
   #MSENSE        12443/LI     12810-GEN
   #MSGERR        11711/BAL    11932/BAL    11981/BAL    12355/B      12356-STW
   #MSGERR1        9810/STB     9815/DATA   12370/STB    12429/LB     12431/STB    12437/STM    12456/LB
     12461/STM    12462/LB     12464/STB    12494/DATA   12627/STB    12638/STB    12640/STH    12647/STH
     12649/STW    12652/STB    12655/STW    12796-TEXTC
   #MSGERR2       12361-LCI
   #MSGERR4       12403/BEZ    12405/BEZ    12407/BE     12409/BE     12425-LI
   #MSGERR5       12401/BNE    12428/BNE    12438-LW
   #MSGERR6       12392/BE     12467-BAL
   #MSGERR7       12440/BNE    12442/BEZ    12447/B      12465-BAL
   #MSGERR8       12471/BNE    12480-MTW
   #MSGERR9        9954/DATA   11522/DATA   12484/DATA   12795-TEXTC
   #MSGER10       12435/LM     12799-TEXT
   #MSGER11       12453/STW    12455/STW    12460/LM     12801-TEXT
   #MSGER12       12507/DATA   12534/STW    12589/STW    12590/STW    12598/STH    12600/STH    12602/STH
     12608/STW    12611/STH    12803-TEXTC
   #MSGER13       12505/DATA   12806-TEXTC
   #MSGER41        2863/STW     5346/STW     5497/MTW     7570/STW     7583/MTW     7598/STW     7612/MTW
      7636/STW     7648/MTW     7662/STW     7676/MTW     7700/STW     7745/MTW     7761/STW     7773/MTW
      7784-DATA    8441/STW     9713/STW     9807/MTW     9937/STW    12767/STW
   #MSGEXIT       12499/BEZ    12501/BE     12514-LW
   #MSGIOCD       12465/BAL    12531-STW
   #MSGLEVL        2708/STW     2818/STW     7569/STW     7603/STW     7635/STW     7667/STW     7701/STW
      7767/STW    10681/STW    11189/STW    12140/CW     12470/CW     12827-DATA
   #MSGNOSP       11525/BAL    12352-XW
   #MSGPTFG       11514/STW    11710/STW    11930/STW    11980/STW    12358/MTW    12826-DATA
   #MSGRTN        12531/STW    12612/B*     12832-DATA
   #MSGSCC        12365/STW    12514/LW     12521-DATA   12673/LH     12769/LW
   #MSGTYPE       12545/BEZ    12551/BE     12557/BE     12563/BE     12569/BE     12575/BE     12581/BE
     12587-LD
   #MSG00             1/EQU     9840/LH     12362/STM    12518/LM     12772/LM     12828-RES
   #MSNSEFT       12379/STW    12451/LB     12662/MTB    12664/STB    12692/LB     12810/GEN    12831-DATA
     13200/STW    13574/STS
   #NOMATCH       12585/LI     12825-TEXT
   #PRINTFG       12352/XW     12354/XW     12356/STW    12480/MTW    12829-DATA
   #RED02         12555/LI     12819-TEXT
   #RED12         12561/LI     12818-TEXT
   #SEEK          12579/LI     12824-TEXT
   #SEEKCVT        9805/BAL    12469/BAL    12620-LCI
   #SEEKRTN       12621/STM    12657/LM     12789-RES
   #SENSE         12573/LI     12817-TEXT
   #SHIFT1        12633/STB    12635-SCD
   #SHIFT2        12631/STB    12644-SCD
   #STOP          12543/LI     12814-TEXT
   #TYPE          12433/LD     12813-EQU
   #WRTODR        12549/LI     12822-TEXT
