1 C00   19:34 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   19:34 JUN 20,'83    T-SERIES COMPREHENSIVE CARD EQUIPMENT DIAGNOSTIC 960-00XX-1B          PAGE    2
A       1         TEXT               VERSION  EQU      C'1B'
        2                                     TITLE    'T-SERIES COMPREHENSIVE CARD',;
1 C00   19:34 JUN 20,'83    T-SERIES COMPREHENSIVE CARD EQUIPMENT DIAGNOSTIC 960-00XX-1B          PAGE    3
A       3                                              ' EQUIPMENT DIAGNOSTIC 960-00XX-',VERSION
        4                                     PCC

        6                                     SYSTEM   SIG7FDP

        8         02 01F74           BUFFER   EQU      S:UFV(USERPROG)+102
        9         02 01F96           BUFFER1  EQU      S:UFV(USERPROG)+136
       10         02 01FEA           BUFFER2  EQU      S:UFV(USERPROG)+220
       11         02 01F96           TABLE1   EQU      BUFFER1
       12         02 01F96           TST3TBL  EQU      BUFFER1

       14         02 01C3A           TST35MSG EQU      S:UFV(EXECMSG)
       15         02 0105A           T12BYTE  EQU      S:UFV(TST1EXP)
       16         02 0105A           T14ROW   EQU      S:UFV(TST1EXP)
       17         02 0105A           T15SKP   EQU      S:UFV(TST1EXP)

       19   01 00300                          ORG      X'300'
            01 00300
       20                            *
       21                            *
       22                            *
       23                            * CATALOG NO. 706169
       24                            * -----------
       25                            * MANUAL:     901756
       26                            * -------
       27                            *
       28                            *
       29                            * PROGRAM OBJECTIVES
       30                            * ------------------ THE OBJECTIVES OF THE CCE DIAGNOSTIC PROGRAM ARE
       31                            * TO DETECT SOLID LOGIC FAILURES OCCURRING IN ALL STANDARD CARD
       32                            * PUNCH AND READER EQUIPMENT, EXERCISE THE CONTROLLERS AND MECHANISMS
       33                            * IN A PSEUDO-RANDOM MANNER TO DETECT INTERMITTENT CONTROLLER AND/OR
       34                            * MECHANISM FAILURES, AND PROVIDE UTILITY FUNCTIONS TO AID THE
       35                            * OPERATOR IN MECHANISM ADJUSTMENTS AND EQUIPMENT VERIFICATION.
       36                            *
       37                            * PROGRAM MODIFICATIONS
       38                            * ---------------------
       39                            * REVISION A04 (07/28/72) CHANGED TST3 TO PRECLUDE INTERFERENCE     *A04
       40                            * PROBLEMS BETWEEN TST1,TST2,TST3.                                  *A04
       41                            *
       42                            * REVISION A03 (4/20/72) CHANGES IN TST1 FOR CARD READER TO STACK   *A03
       43                            * IN NORMAL STACKER                                                   03
       44                            * REVISION A02 (11/27/71) CHANGES MADE TO INCLUDE THE USE OF        *A02
       45                            * REMOTE DIAGNOSTIC PROGRAM MONITOR FOR THIS PROGRAM                *A02
       46                            *
       47                            * OPERATING REQUIREMENTS AND SPECIFICATIONS
       48                            * -----------------------------------------
       49                            *
       50                            * REQUIRED EQUIPMENT
       51                            *
       52                            *                    SIGMA 5-9 WITH A MINIMUM OF 16K OF MEMORY.
       53                            *                    CARD READER, PAPER-TAPE READER OR MAGNETIC TAPE
       54                            *                    UNIT FOR PROGRAM INPUT.
       55                            *                    KEYBOARD PRINTER OR LINE PRINTER FOR MESSAGE OUTPUT
       56                            *                    KEYBOARD PRINTER FOR DIRECTIVE INPUT
       57                            *                    CARD READER (MODEL NO. 7120, 7121, 7122, 7140)
       58                            *                    AND/OR CARD PUNCH (MODEL NO. 7160-1, 7160-2, 7165).
       59                            *
       60                            * OPTIONAL EQUIPMENT
       61                            *
       62                            * PROGRAM PREREQUISITES
       63                            *                    NONE
       64                            *
       65                            * CORE STORAGE
       66                            *                    FIRST 16 K OF MEMORY
       67                            * RUN TIME
       68                            *                    FUNCTIONAL TESTS: 3.5 MINUTES FOR ONE SUCCESSFUL
       69                            *                                      PASS
       70                            *                    RANDOM EXERCISER:  60 SECONDS FOR ONE SUCCESSFUL
       71                            *                                      PASS
       72                            *                    UTILITY TESTS:    RUN TIME IS A FUNCTION OF THE
       73                            *                                      UTILITY TEST PERFORMED
       74                            *
       75                            * PROGRAM MEDIA
       76                            *                    80-COLUMN CARDS, 8-LEVEL PAPER TAPE OR MAG. TAPE
       77                            *
       78                            * SOURCE LANGUAGE
       79                            *                    SIGMA 5/7 METASYMBOL
       80                            *                                                                   *A02
       81                            * TEST DECK          FOR CARD READER ONLY SYSTEMS, A TEST DECK MAY  *A02
       82                            *                    BE OBTAINED FROM THE SOFTWARE LIBRARY.         *A02
       83                            *                                                                   *A02
       84                            *
       85                            *                    THE TEST DECK (NO.706169-74A) CONSISTS OF THE  *A02
       86                            *                    FOLLOWING CARDS.                               *A02
       87                            *                    1. CHECKERBOARD DECK         USE FOR  TST1,41  *A02
       88                            *                    2. 50 CARD TEST DECK                  TST1,49  *A02
       89                            *                    3. INVALID EBCDIC-CODED CARD          TST1,50  *A02
       90                            *                    4. MODE SWITCHING CARD                TST1,51  *A02
       91                            *                    5. 500 RANDOM DATA CARDS              TST2     *A02
       92                            *                      (THE RANDOM DATA WORDS ARE NOT COMPATIBLE    *A02
       93                            *                      WITH CARDS GENERATED BY THE SIGMA 2/3        *A02
       94                            *                      PROGRAM).
       95                            *                                                                   *A02
       96                            *                    BLANK CARDS REQUIRED FOR TST1 ARE NOT INCLUDED *A02
       97                            *                                                                   *A02
       98                            *
       99                            * LOADING PROCEDURES
      100                            * ------------------
      101                            *                    LOADING PROCEDURE IS DEFINED IN DIAGNOSTIC PROGRAM
      102                            *                    MONITOR MANUAL NO. 901649.
      103                            *
      104                            *                    A SUCCESSFUL LOAD OPERATION IS INDICATED BY THE
      105                            *                    TITLE PRINTOUT OF THIS TEST PROGRAM.
      106                            *
      107                            * OPERATING PROCEDURES
      108                            * ------------------
      109                            *
      110                            * CONTROL OPTIONS
      111                            *                    PROGRAM CONTROL OPTIONS ARE SELECTED WITH THE
      112                            *                    PROCESSOR CONTROL PANEL SENSE SWITCHES 1,3,4
      113                            *                    (SENSE SWITCH 2 IS UNUSED)
      114                            *                    (0 - OFF , 1 - ON)
      115                            *   SSW1     SSW3
      116                            * POSITION POSITION           OPTION
      117                            *
      118                            *  0 OR 1     0      THE PROGRAM COMES TO A WAIT AFTER ERROR PRINTOUT(S)
      119                            *                    DURING EXECUTION OF FUNCTIONAL TESTS (TST1) AND
      120                            *                    AFTER COMPLETION OF THE SELECTED TESTS.CLEARING THE
      121                            *                    WAIT CAUSES PROGRAM LOOPING ON THE ERROR OR THE
      122                            *                    SELECTED TEST. INCREMENTING THE PROGRAM ADDRESS(PCP
      123                            *                    INSTRUCTION ADDRESS INCREMENT) AFTER THE WAIT INSTR.
      124                            *                    CAUSES THE PROGRAM TO CONTINUE WITHOUT LOOPING.
      125                            *
      126                            *    0        1      THE PROGRAM CONTINUES WITHOUT WAIT OR WITHOUT
      127                            *                    FUNCTIONAL TEST ERROR LOOPING.
      128                            *
      129                            *    1        1      THE PROGRAM PRINTS THE ERROR MESSAGE(S) AND LOOPS
      130                            *                    (WITHOUT WAITING) ON THE ERROR PRODUCING INSTRUCTION
      131                            *                    SEQUENCE. THE PROGRAM ALSO LOOPS (WITHOUT WAIT) ON
      132                            *                    THE SELECTED TEST.
      133                            *
      134                            *   SSW4
      135                            * POSITION
      136                            *
      137                            *    0               THE PROGRAM PRINTS ALL MESSAGES.
      138                            *
      139                            *    1               THE PROGRAM INHIBITS ALL MESSAGE PRINTOUTS.
      140                            *                    DPM MESSAGES CANNOT BE SUPPRESSED.
      141                            *
      142                            *
      143                            * TABLE OF DIRECTIVES
      144                            *
      145                            * THE DATA STATEMENT FOLLOWING EACH DIRECTIVE NAME PRODUCES A
      146                            * MEMORY ADDRESS IN THE MEMORY-CONTENTS-COLUMN WHICH CAN BE USED TO
      147                            * LOCATE THE PROGRAM CODING FOR THE DIRECTIVE. THE CODING FOR EACH
      148                            * DIRECTIVE IS PRECEDED BY A DESCRIPTION OF THE DIRECTIVE AND ITS
      149                            * PARAMETERS.
      150                            *
      151                            * MNEMONICS          DESCRIPTION
      152                            *
      153                            * >> SYST <<         THE DIRECTIVE DESCRIBES THE SYSTEM ENVIRONMENT
      154                            *                    THE PROGRAM MAINTAINS DATA ON TWO DEVICES
      155                            *                    SIMULTANEOUSLY: A CARD PUNCH AND A CARD READER.
      156                            *                    THE SYST DIRECTIVE IS USED TO ALTER THAT DATA.
      157                            *
      158                            *                    PARAMETERS: D1-DEVICE MODEL NUMBER
      159                            *                    ----------- X2-REVISION NUMBER OF CONTROLLER
      160                            *                                X3-DEVICE ADDRESS
      161                            *
      162                            *                                SYST,D1,X2,X3
      163                            *
      164                            *
      165                            *                    VARIATIONS:
      166                            *                    -----------
      167                            *                                SYST: A SYST DIRECTIVE FOR A CARD
      168                            *                                PUNCH OR READER WITH A DEVICE ADDRESS
      169                            *                                OF 'FFFFFFFF' WILL ENSURE THAT NO TEST
      170                            *                                WILL BE ATTEMPTED FOR THAT DEVICE
      171                            *                                (TO BE USED FOR SYSTEMS WITHOUT EITHER
      172                            *                                 A CARD PUNCH OR CARD READER).
      173                            *
      174                            *
      175                            *                    EXAMPLE:    SYST,7160,0,4
      176                            *                    --------
      177                            *                                A MODEL 7160 CARD PUNCH IS PRESENT
      178                            *                                AT DEVICE ADDRESS '4'.
      179                            *
      180                            *                    EXAMPLE:    SYST,7160,2,4
      181                            *                    --------    SYST,7140,0,3
      182                            *                                A MODEL 7160 CARD PUNCH WITH A MODIFIED
      183                            *                                CONTROLLER IS PRESENT AT DEVICE ADDRESS
      184                            *                                '4' AND A MODEL 7140 CARD READER IS
      185                            *                                PRESENT AT DEVICE ADDRESS '3'.
      186                            *
      187                            *                    EXAMPLE:    SYST,7160,0,FFFFFFFF
      188                            *                    --------    SYST,7121,0,3
      189                            *
      190                            *                                NO PUNCH IS PRESENT ON THE SYSTEM AND
      191                            *                                THERE IS A MODEL 7121 CARD READER AT
      192                            *                                DEVICE ADDRESS '3'.
      193                            *
      194                            *
      195                            * >> TST0 <<         THE DIRECTIVE SELECTS THE COMPREHENSIVE TEST
      196                            *                    CONSISTING OF THE FUNCTIONAL TESTS(SUBTESTS 1-52)
      197   01 00300    0000039F 02  TST0ADDR DATA TST0   AND THE RANDOM EXERCISER TEST
      198                            *
      199                            *                    PARAMETERS: NONE
      200                            *                    ----------
      201                            *
      202                            *                    TEST VARIATIONS:
      203                            *                    ----------------
      204                            *                             (1) THE FUNCTIONAL TEST WILL BE RUN ON
      205                            *                                 THE DEVICE SPECIFIED IN THE MOST RECENT
      206                            *                                 'SYST' DIRECTIVE (IN SEQUENCE,
      207                            *                                 SUBTEST 1 THRU 52).
      208                            *
      209                            *                             (2) THE RANDOM EXERCISOR WILL ATTEMPT
      210                            *                                 TO SIMULTANEOUSLY PUNCH AND READ
      211                            *                                 CARDS. THE CARD COUNT AND RETRY ON
      212                            *                                 ERROR PARAMETERS ARE INITIALIZED TO
      213                            *                                 750 AND 2 RESPECTIVELY. IF A FAILURE
      214                            *                                 IS ENCOUNTERED, AN ERROR MESSAGE IS
      215                            *                                 PRINTED AND THE EXERCISING CONTINUES.
      216                            *
      217                            *                             (3) TO AVOID EXERCISING A CARD PUNCH OR
      218                            *                                 READER, ENTER A SYST DIRECTIVE FOR A
      219                            *                                 PUNCH OR READER WITH AN ADDRESS OF
      220                            *                                 'FFFFFFFF'.
      221                            *
      222                            *                    EXAMPLE:    SYST,7121,0,FFFFFFFF
      223                            *                    --------    SYST,7165,0,4
      224                            *                                TST0
      225                            *
      226                            *                             (1) THE FUNCTIONAL TEST WILL BE RUN ON
      227                            *                                 THE MODEL 7165 CARD PUNCH AT ADDRESS
      228                            *                                 4 (IN SEQUENCE, SUBTEST 1 THRU 52).
      229                            *
      230                            *                             (2) THE RANDOM EXERCISOR WILL BE RUN ONLY
      231                            *                                 ON THE MODEL 7165 CARD PUNCH. 750
      232                            *                                 CARDS WILL BE PUNCHED WITH AN ERROR
      233                            *                                 RETRY COUNT OF 2.
      234                            *
      235                            *
      236                            * >> TST1 <<         THE DIRECTIVE SELECTS THE ENTIRE FUNCTIONAL
      237                            *                    TEST (NO PARAMETERS ENTERED) OR SELECTS ONE
      238   01 00301    000003C1 02  TST1ADDR DATA TST1   OR  MORE CONTIGUOUS FUNCTIONAL SUBTESTS.
      239                            *                    THIS TEST WILL BE RUN ONLY ON THE DEVICE
      240                            *                    SPECIFIED IN THE MOST RECENT SYST DIRECTIVE.
      241                            *
      242                            *                    PARAMETERS: D1-FIRST FUNCTIONAL SUBTEST
      243                            *                    ----------- D2-LAST FUNCTIONAL SUBTEST
      244                            *
      245                            *                                WHERE 0 < D1 <= D2 <= 52
      246                            *
      247                            *                                TST1,D1,D2
      248                            *
      249                            *
      250                            *                    EXAMPLE:    SYST,7122,0,3
      251                            *                    --------    TST1
      252                            *
      253                            *                                RUN ALL FUNCTIONAL SUBTESTS THAT APPLY
      254                            *                                TO A MODEL 7122 CARD READER ON THE
      255                            *                                DEVICE AT ADDRESS '3'.
      256                            *
      257                            *                    EXAMPLE:    SYST,7122,0,3
      258                            *                    --------    SYST,7165,0,5
      259                            *                                TST1,40,40
      260                            *
      261                            *                                EXECUTE FUNCTIONAL SUBTEST 40 ON THE
      262                            *                                MODEL 7165 CARD PUNCH AT DEVICE
      263                            *                                ADDRESS '5'.
      264                            *
      265                            *                    EXAMPLE:    TST1,46,46
      266                            *                    --------
      267                            *                                EXECUTE FUNCTIONAL SUBTEST 46 ON THE
      268                            *                                DEVICE SPECIFIED IN THE MOST RECENT
      269                            *                                SYST DIRECTIVE. SINCE SUBTEST 46
      270                            *                                APPLIES ONLY TO A MODEL 7165 CARD
      271                            *                                PUNCH, THE MOST RECENT SYST DIRECTIVE
      272                            *                                SHOULD HAVE BEEN FOR THAT MODEL
      273                            *                                CARD PUNCH.
      274                            *
      275                            *
      276                            *
      277                            * >> TST2 <<         THIS DIRECTIVE SELECTS THE RANDOM EXERCISOR TEST,
      278                            *                    WHICH EXERCISES EITHER OR BOTH THE PUNCH AND READER
      279                            *                    DEVICES SPECIFIED IN THE MOST RECENT SYST
      280                            *                    DIRECTIVES. BINARY AND EBCDIC CARDS WITH RANDOM
      281                            *                    PATTERNS ARE RANDOMLY INTERMIXED WHEN PUNCHING.
      282                            *                    THESE SAME CARDS CAN BE READ IN ANY ORDER.
      283                            *                    EXERCISING FOR ANY DEVICE CAN BE TERMINATED BY
      284                            *                    PLACING THAT DEVICE IN 'MANUAL' MODE.
      285                            *
      286                            *
      287                            *
      288   01 00302    000010A8 02  TST2ADDR DATA TST2   PARAMETERS: D1-NUMBER OF CARDS TO BE PUNCHED.
      289                            *                    -----------     (0 <= D1 < 32,768)
      290                            *                                D2-NUMBER OF PUNCH RETRIES.
      291                            *                                    (0 <= D2 <= 99)
      292                            *
      293                            *                                TST2,D1,D2
      294                            *
      295                            *
      296                            *                    TEST VARIATIONS:
      297                            *                    ----------------
      298                            *                                LIMT: THE LIMIT DIRECTIVE LIMITS
      299                            *                                THE RANGE OF THE RANDOM DELAYS
      300                            *                                INTRODUCED BETWEEN SUCCESSIVE CARD
      301                            *                                OPERATIONS.
      302                            *                                SYST: A SYST DIRECTIVE FOR A CARD
      303                            *                                PUNCH OR READER WITH A DEVICE ADDRESS
      304                            *                                OF 'FFFFFFFF' WILL EXCLUDE THAT DEVICE
      305                            *                                FROM THIS TEST.
      306                            *
      307                            *                    EXAMPLE:    TST2,2000,1
      308                            *                    --------
      309                            *                                THE RANDOM EXERCISER WILL PUNCH 2000
      310                            *                                CARDS AND/OR READ AND VERIFY ALL CARDS
      311                            *                                IN THE CARD READER.
      312                            *
      313                            * >> TST3 <<         THIS DIRECTIVE SELECTS ONE OF THE FOLLOWING
      314                            *                    UTILITY TESTS:
      315                            *
      316                            *                    TST3,0      PUNCH OR READ EBCDIC CARDS
      317                            *                                (PATTERN PUNCHED AND VERIFIED IS THAT
      318                            *                                 SPECIFIED BY THE MOST RECENT DATA
      319                            *                                 DIRECTIVE).
      320                            *                    TST3,1      PUNCH OR READ BINARY CARDS
      321                            *                                (PATTERN PUNCHED AND VERIFIED IS THAT
      322                            *                                 SPECIFIED BY THE MOST RECENT DATA
      323                            *                                 DIRECTIVE).
      324                            *                    TST3,2      USING A VALID DEVICE ORDER SPECIFIED BY
      325                            *                                THE OPERATOR, PUNCH OR READ CARDS.
      326                            *                                (THE PATTERN PUNCHED AND VERIFIED IS
      327                            *                                 DEPENDENT ON THE ORDER SPECIFIED).
      328                            *                    TST3,3      PUNCH CARD MATRIX. CARDS ARE PUNCHED
      329                            *                                WITH THE PUNCHED POSITIONS SELECTED
      330                            *                                BY SPECIFYING THE ROW NUMBER AND
      331                            *                                COLUMN. A ROW NUMBER OF 13 WILL CAUSE
      332                            *                                THE PUNCHING OF ALL ROWS; A COLUMN
      333                            *                                ENTRY OF 0 WILL CAUSE PUNCHING OF
      334                            *                                ALL COLUMNS.
      335                            *                    TST3,4      PUNCH/READER SPEED TEST. THE SPEED OF
      336                            *                                THE PUNCH OR READER IS DETERMINED BY
      337                            *                                PUNCHING OR READING 31 CARDS AND
      338                            *                                AVERAGING THE SPEED OVER 1 MINUTE.
      339                            *                    TST3,5      PUNCH/READ THEN DELAY. BINARY CARDS
      340                            *                                WITH RANDOM PATTERNS ARE PUNCHED;
      341                            *                                NO VERIFICATION IS PERFORMED ON A
      342                            *                                READ OPERATION. THE NUMBER OF CARDS
      343                            *                                PUNCHED/READ, AND THE FOLLOWING DELAY
      344                            *                                ARE SPECIFIED BY THE OPERATOR.
      345                            *                    TST3,6      PUNCH/READ FUNCTIONAL SUBTEST DECKS
      346                            *                                ALL OR INDIVIDUAL FUNCTIONAL SUBTEST
      347                            *                                DECKS CAN BE PUNCHED AND VERIFIED.
      348                            *                    TST3,7      PUNCH/READ SHIFTING PATTERN.
      349                            *                                WHEN PUNCHING, A 12-BIT OPERATOR
      350                            *                                SPECIFIED PATTERN FOR COLUMN 1 IS
      351                            *                                CIRCULARLY SHIFTED THROUGHOUT THE
      352                            *                                BINARY CARD. READ VERIFICATION OF
      353                            *                                THESE CARDS IS PROVIDED.
      354                            *
      355                            *
      356                            *                    TEST VARIATIONS:
      357                            *                    ----------------
      358                            *                                SYST: THE UTILITY TESTS ASSUME THAT
      359                            *                                SYST DIRECTIVES FOR THE DEVICES TO BE
      360                            *                                EXERCISED HAVE PREVIOUSLY BEEN
      361                            *                                ENTERED BY THE OPERATOR.
      362                            *                                SENSE SWITCHES: THE FOLLOWING SENSE
      363                            *                                SWITCH OPTIONS APPLY TO ALL TST3 TESTS:
      364                            *                                   SSW3 RESET - WAIT AT END OF TEST
      365                            *                                   SSW1 SET   - LOOP ON TEST
      366                            *                                   SSW1 RESET - END TESTING
      367                            *
      368                            *
      369   01 00303    000012A6 02  TST3ADDR DATA TST3   PARAMETERS: D1-UTILITY TEST SELECTION
      370   01 00304    000012C4 02  TST30ADR DATA TST30  ----------- H2=1, PUNCH ; H2=2, READ
      371   01 00305    00001336 02  TST31ADR DATA TST31              H3-DEFINED BY THE UTILITY TEST SELECTED
      372   01 00306    00001361 02  TST32ADR DATA TST32              H4-DEFINED BY THE UTILITY TEST SELECTED
      373   01 00307    0000139B 02  TST33ADR DATA TST33
      374   01 00308    000013EC 02  TST34ADR DATA TST34              D1 = 0  PUNCH/READ EBCDIC CARDS
      375   01 00309    0000143D 02  TST35ADR DATA TST35                 H2 = 1  PUNCH
      376   01 0030A    0000145D 02  TST36ADR DATA TST36                 H2 = 2  READ
      377   01 0030B    000014CA 02  TST37ADR DATA TST37              D1 = 1  PUNCH/READ BINARY CARDS
      378                            *                                   H2 = 1  PUNCH
      379                            *                                   H2 = 2  READ
      380                            *                                D1 = 2  PUNCH/READ CARDS
      381                            *                                   H2 = 1  PUNCH
      382                            *                                   H2 = 2  READ
      383                            *                                   H3 = ORDER
      384                            *                                D1 = 3  PUNCH CARD MATRIX
      385                            *                                   H2 = X COORDINATE (ROW)
      386                            *                                        (H2 = 10 NOT ALLOWED)
      387                            *                                   H2 = 0  PUNCH ROW 0
      388                            *                                   H2 = 1  PUNCH ROW 1
      389                            *                                   .    .
      390                            *                                   H2 = 12 PUNCH ROW 12
      391                            *                                   H2 = 13 PUNCH ALL ROWS
      392                            *                                   H3 = Y COORDINATE (COLUMN)
      393                            *                                   H3 = 0  PUNCH ALL COLUMNS
      394                            *                                   H3 = 1  PUNCH COLUMN 1
      395                            *                                   .    .
      396                            *                                   H3 = 80 PUNCH COLUMN 80
      397                            *                                D1 = 4  PUNCH/READER SPEED TEST
      398                            *                                   H2 = 1  PUNCH
      399                            *                                   H2 = 2  READ
      400                            *                                D1 = 5  PUNCH/READ THEN DELAY
      401                            *                                   H2 = 1  PUNCH
      402                            *                                   H2 = 2  READ
      403                            *                                   H3 = NUMBER OF CARDS
      404                            *                                   H4 = AMOUNT OF DELAY
      405                            *                                        IN MILLISECONDS
      406                            *                                D1 = 6  PUNCH/READ FUNCTIONAL TEST DECK
      407                            *                                   H2 = 1  PUNCH
      408                            *                                   H2 = 2  READ
      409                            *                                   H3 =  0 ALL DECKS
      410                            *                                   H3 = 40 CHECKERBOARD DECK
      411                            *                                   H3 = 48 50-CARD TEST DECK
      412                            *                                   H3 = 50 INVALID EBCDIC-CODED CARD
      413                            *                                   H3 = 51 MODE SWITCHING CARD
      414                            *                                D1 = 7  PUNCH/READ SHIFTING PATTERN
      415                            *                                   H2 = 1  PUNCH
      416                            *                                   H2 = 2  READ
      417                            *                                   H3 = 12 BIT PATTERN TO BE SHIFTED
      418                            *                                        THROUGHOUT THE CARD(PUNCH ONLY)
      419                            *
      420                            *                    EXAMPLES:   TST3,0,1
      421                            *                    ---------
      422                            *                                PUNCH EBCDIC CARDS USING THE
      423                            *                                PATTERN SPECIFIED BY THE MOST RECENT
      424                            *                                'DATA' DIRECTIVE.
      425                            *
      426                            *                                TST3,2,1,4D
      427                            *                                IF THE CARD PUNCH LAST SPECIFIED IN A
      428                            *                                SYST DIRECTIVE WAS A MODEL 7165, PUNCH
      429                            *                                AN EBCDIC CARD WITH THE PATTERN
      430                            *                                SPECIFIED BY THE MOST RECENT DATA
      431                            *                                DIRECTIVE
      432                            *
      433                            *                                TST3,3,1,52
      434                            *                                PUNCH CARDS WITH A SINGLE PUNCH IN
      435                            *                                ROW 1 OF COLUMN 52.
      436                            *
      437                            *                                TST3,3,13,5
      438                            *
      439                            *                                PUNCH CARDS WITH PUNCHES IN ALL
      440                            *                                ROWS OF COLUMN 5.
      441                            *
      442                            *                                TST3,4,2
      443                            *                                PERFORM A SPEED TEST ON THE LAST CARD
      444                            *                                READER SPECIFIED IN A SYST DIRECTIVE
      445                            *
      446                            *                                TST3,5,1,10,10000
      447                            *                                PUNCH 10 CARDS THEN DELAY 10 SECONDS.
      448                            *                                REPEAT IF SSW1 SET.
      449                            *
      450                            *                                TST3,6,1,0
      451                            *                                PUNCH ALL FUNCTIONAL SUBTEST DECKS
      452                            *
      453                            *                                TST3,6,2,48
      454                            *                                READ AND VERIFY THE 50-CARD TEST DECK
      455                            *
      456                            *                                TST3,7,1,001
      457                            *                                PUNCH A BINARY CARD WHERE THE BIT
      458                            *                                PATTERN OF COLUMN 1 (X'001') IS SHIFTED
      459                            *                                BY 1 THROUGHOUT SUCCESSIVE COLUMNS OF
      460                            *                                THE CARD(COL.2=X'002',COL.3=X'004',..)
      461                            *
      462                            * >> DATA <<         THE DIRECTIVE SELECTS A PATTERN TYPE TO BE USED
      463                            *                    DURING THE UTILITY TESTS (TST3,0 AND TST3,1 ONLY).
      464   01 0030C    000015A0 02  DATAADDR DATA :DATA
      465                            *                    PARAMETERS: D1 = 0  SPECIFY FIXED PATTERN
      466                            *                    -----------         D2 = 8-CHARACTER HEX PATTERN
      467                            *                                             BINARY: CHARS 3-5=ODD COL
      468                            *                                                     CHARS 6-8=EVEN COL
      469                            *                                             EBCDIC: CHARS 5,6=ODD COL
      470                            *                                                     CHARS 7,8=EVEN COL
      471                            *
      472                            *                                D1 = 1  SPECIFY INCREMENTING PATTERN
      473                            *                                        D2 = 8-CHARACTER HEX PATTERN
      474                            *                                             BINARY: CHARS 6-8=STARTING
      475                            *                                                               CHAR.
      476                            *                                             EBCDIC: CHARS 7,8=STARTING
      477                            *                                                               CHAR.
      478                            *                                        D3 = 8-CHARACTER HEX INCREMENT
      479                            *                                             BINARY: CHARS 6-8=INCREMNT
      480                            *                                             EBCDIC: CHARS 7,8=INCREMNT
      481                            *                                D1 = 2  SPECIFY RANDOM PATTERN
      482                            *                                        D2 = 8-CHARACTER HEX RANDOM
      483                            *                                             NUMBER SEED.
      484                            *
      485                            *                    EXAMPLE:
      486                            *                    --------
      487                            *                            DATA,0,555AAA
      488                            *
      489                            *                            PUNCH BINARY CHECKERBOARD PATTERN
      490                            *
      491                            *
      492                            *
      493                            * >> LIMT <<         THE DIRECTIVE LIMITS SPECIFIC OPERATIONS
      494                            *                    DURING THE EXECUTION OF THE TEST PROGRAM.
      495   01 0030D    000015C4 02  LIMTADDR DATA :LIMIT
      496                            *                    PARAMETERS: D1=1 COMPARE ERROR PRINTOUT LIMIT
      497                            *                    -----------      D2 NUMBER OF COMPARE ERRORS
      498                            *                                     TO BE REPORTED.
      499                            *
      500                            *                                D1=2 TST2 RANDOM DELAY LIMIT
      501                            *
      502                            *                                     D2 LOWER LIMIT IN MILLISECONDS
      503                            *                                     D3 HIGH  LIMIT IN MILLISECONDS
      504                            *
      505                            *                    EXAMPLE:    LIMT,1,10
      506                            *                    --------
      507                            *                                REPORT UP TO 10 DATA COMPARE
      508                            *                                     ERRORS.
      509                            *
      510                            *                                LIMT,2,50,100
      511                            *
      512                            *                               LIMIT THE TST2 RANDOM  DELAY TIME TO
      513                            *                               BETWEEN 50 AND 100 MSEC.
      514                            *
      515                            * OPERATION MODES
      516                            * ---------------    PROGRAM-OPERATOR COMMUNICATION IS ACCOMPLISHED
      517                            *                    USING THE INPUT/OUTPUT DEVICES SPECIFIED BY
      518                            *                    THE OPERATOR.
      519                            *
      520                            *                    DIRECTIVES ARE ENTERED AND TESTS ARE INITIATED
      521                            *                    THRU THE MESSAGE INPUT DEVICE (MID).
      522                            *
      523                            *                    THE PROGRAM OUTPUTS MESSAGES THRU THE MESSAGE
      524                            *                    OUTPUT DEVICE (MOD).
      525                            *
      526                            *                    (REFER TO DPM DIRECTIVES 'MID' AND 'MOD').
      527                            *
      528                            * START-RESTART PROCEDURE
      529                            *
      530                            * START              AFTER THE PROGRAM IS SUCCESSFULLY LOADED AND THE
      531                            *                    PROGRAM IDENTIFICATION IS PRINTED, THE OPERATOR
      532                            *                    MAY SPECIFY ANY TEST DIRECTIVE (TST0,TST1,TST2,
      533                            *                    OR TST3), UTILITY DIRECTIVE (DATA,LIMT),
      534                            *                    OR THE ENVIRONMENTAL DIRECTIVE (SYST).
      535                            *
      536                            * RESTART            RESTART OR RECOVERY MAY BE ACHIEVED BY THE
      537                            *                    FOLLOWING PROCEDURE:
      538                            *
      539                            *                    1. PRESSING THE CONTROL PANEL INTERRUPT SWITCH.
      540                            *
      541                            *                    2. A. PLACING THE COMPUTE SWITCH ON THE PCP TO IDLE
      542                            *                       B. PRESSING THE SYSTEM RESET SWITCH ON THE PCP
      543                            *                       C. PLACING THE COMPUTE SWITCH ON THE PCP TO RUN.
      544                            *
      545                            *                            ***  NOTE  ***
      546                            *                    PROCEDURE 2 SHOULD NORMALLY BE USED IN ORDER
      547                            *                    TO INSURE THE RESETTING OF CONTROLLER TEST
      548                            *                    MODE LOGIC.
      549                            *
      550                            * TERMINATION INDICATION
      551                            *
      552                            *                    THE TERMINATION OF A DIRECTIVE IS INDICATED BY
      553                            *                    CONTROL BEING RETURNED TO THE MESSAGE INPUT DEVICE.
      554                            *
      555                            * SUCCESS-FAILURE INDICATIONS
      556                            * ----------------------------
      557                            *
      558                            *
      559                            * WAITS              THE PROGRAM COMES TO A WAIT CONDITION:
      560                            *
      561                            *                    1. AFTER ERROR MESSAGE PRINTOUT DURING THE
      562                            *                       EXECUTION OF FUNCTIONAL TESTS (SSW3 = 0).
      563                            *
      564                            *                    2. AFTER THE COMPLETION OF A TEST (SSW3 = 0).
      565                            *
      566                            *
      567                            *
      568                            * LOOPS              THE PROGRAM LOOPS ON AN INSTRUCTION SEQUENCE
      569                            *                    PRODUCING AN ERROR DURING FUNCTIONAL TEST
      570                            *                    EXECUTION (SS1=1,SS3=1) OR AT THE COMPLETION
      571                            *                    OF A TEST (SS1=1,SS3=1). THE PROGRAM ALSO
      572                            *                    LOOPS ON THE COMPLETION OF THE RANDOM EXERCISER
      573                            *                    OR THE SELECTED UTILITY TEST.
      574                            *
      575                            * MESSAGE PRINTOUT   1. FUNCTIONAL TEST
      576                            *
      577                            *                       THE STANDARD ERROR MESSAGES
      578                            *
      579                            *                           ERR NO.DDDD LOC.XXXX
      580                            *
      581                            *                       ARE DEFINED IN THE FAULT INDEX (DDDD = INDEX).
      582                            *
      583                            *                       ALL OTHER MESSAGES PRECEDING THE STANDARD
      584                            *                       ERROR MESSAGE ARE SELF-EXPLANATORY.
      585                            *
      586                            *                    2. RANDOM EXERCISER AND UTILITY TESTS.
      587                            *
      588                            *                       ALL MESSAGES ARE SELF-EXPLANATORY.
      589                            *
      590                            *                    3. DPM ERROR MESSAGE ARE DEFINED IN THE
      591                            *                       DPM MANUAL.
      592                            *
      593                            * PROGRAM TEST DESCRIPTION
      594                            * ------------------------
      595                            *
      596                            *                    THE FOLLOWING IS A DESCRIPTION OF THE TESTS
      597                            *                    CONTAINED IN THE COMPREHENSIVE CARD EQUIPMENT
      598                            *                    (CCE) TEST PROGRAM.
      599                            *
      600                            * COMPREHENSIVE TEST (TST0)
      601                            *                    THE COMPREHENSIVE TEST CONSISTS OF THE FUNCTIONAL
      602                            *                    TEST AND THE RANDOM EXERCISER TEST.
      603                            *
      604                            * FUNCTIONAL TEST (TST1)
      605                            *                    THE FUNCTIONAL TEST PERFORMS A SYSTEMATIC TEST OF
      606                            *                    ALL LOGIC FUNCTIONS OF THE FOLLOWING CARD
      607                            *                    PUNCH/READER CONTROLLERS: 7160-1,7160-2,7165
      608                            *                    AND 7120,7121,7122,7140, RESPECTIVELY.  THE
      609                            *                    CONTROLLER UNDER TEST AT ANY TIME WILL BE THAT
      610                            *                    CONTROLLER SPECIFIED BY THE MOST RECENT
      611                            *                    'SYST' DIRECTIVE.  THE FUNCTIONAL TEST CONSISTS
      612                            *                    OF A NUMBER OF SUBTESTS WHICH MAY BE SELECTED
      613                            *                    INDIVIDUALLY OR IN GROUPS.
      614                            *
      615                            *                    WHEN A FAULT HAS BEEN DETECTED, AUTOMATIC ERROR
      616                            *                    LOOPING THRU SENSE SWITCH CONTROL IS IMPLEMENTED
      617                            *                    WHENEVER POSSIBLE.
      618                            *
      619                            *                    FOR A DESCRIPTION OF INDIVIDUAL SUBTESTS, REFER TO
      620                            *                    THE FAULT INDEX SECTION OF THE PROGRAM LISTING.
      621                            *                    EACH FAULT INDEX DESCRIPTION GROUP IS PRECEDED BY
      622                            *                    A SUBTEST DESCRIPTION.
      623                            *
      624                            * RANDOM EXERCISER TEST (TST2)
      625                            *                    THE RANDOM EXERCISER TEST EXERCISES IN A
      626                            *                    PSEUDO-RANDOM MANNER, EITHER OR BOTH THE PUNCH AND
      627                            *                    READER DEVICES SPECIFIED IN THE MOST RECENT
      628                            *                    SYST DIRECTIVES TO DETECT INTERMITTENT LOGIC
      629                            *                    AND/OR MECHANICAL FAILURES. WHEN A DETECTABLE
      630                            *                    ERROR OCCURS, AN ERROR MESSAGE IS OUTPUT AND
      631                            *                    THE EXERCISING CONTINUES.
      632                            *
      633                            * UTILITY TEST ROUTINES (TST3)
      634                            *                    THE UTILITY TEST CONSISTS OF A GROUP OF TESTS
      635                            *                    DESIGNED TO AID THE OPERATOR IN MECHANISM
      636                            *                    ADJUSTMENTS AND EQUIPMENT VERIFICATION.
      637                            *
      638                            * 0. PUNCH/READ EBCDIC CARDS
      639                            *                    PUNCHES/READS EBCDIC CARDS WITH THE PATTERN
      640                            *                    SPECIFIED BY THE DATA DIRECTIVE.
      641                            *
      642                            * 1. PUNCH/READ BINARY CARDS
      643                            *                    PUNCHES/READS BINARY CARDS WITH THE PATTERN
      644                            *                    SPECIFIED BY THE DATA DIRECTIVE.
      645                            *
      646                            * 2. PUNCH/READ CARDS
      647                            *                    USING THE VALID ORDER SPECIFIED BY THE OPERATOR,
      648                            *                    PUNCH OR READ CARDS.
      649                            *
      650                            * 3. PUNCH MATRIX
      651                            *                    PUNCHES A SPECIFIED SINGLE PUNCH POSITION, ALL
      652                            *                    ROWS OF A SPECIFIED COLUMN, ALL COLUMNS OF A
      653                            *                    SPECIFIED  ROW  OR ALL POSITIONS (LACING).
      654                            *
      655                            * 4. PUNCH/READER SPEED TEST
      656                            *                    PUNCHES OR READS 31 CARDS AND AVERAGES THE
      657                            *                    PUNCH OR READ TIME OVER ONE MINUTE TO
      658                            *                    DETERMINE THE SPEED.
      659                            *
      660                            * 5. PUNCH/READ THEN DELAY
      661                            *                    REPEATEDLY PUNCH OR READ A SPECIFIED NUMBER
      662                            *                    OF CARDS, DELAY A SPECIFIED AMOUNT OF TIME,
      663                            *                    AND REPEAT THE PROCESS UNTIL TERMINATED BY
      664                            *                    THE OPERATOR.
      665                            *
      666                            * 6. PUNCH/READ FUNCTIONAL SUBTEST DECKS
      667                            *                    PUNCH/READ THE FUNCTIONAL SUBTEST DECKS
      668                            *                    (CHECKERBOARD DECK, 50 CARD TEST DECK,
      669                            *                     INVALID EBCDIC CODE CARD, AND THE
      670                            *                     MODE SWITCHING CARD).
      671                            *
      672                            * 7. PUNCH/READ SHIFTING PATTERN
      673                            *                    PUNCHES A 12-BIT SHIFTED PATTERN SPECIFIED
      674                            *                    BY THE OPERATOR, OR READ/VERIFIES THE SAME.
      675                            *
      676                            *        *** TEST/DEVICE REFERENCE TABLE ***
      677                            *
      678                            *----------------------------------------------------------------*
      679                            *        *              DEVICE MODEL NUMBERS              * NOT  *
      680                            *  TEST  *7160-1*7160-2* 7165 * 7120 * 7121 * 7122 * 7140 * USED *
      681                            *        *      *      *      *      *      *      *      *      *
      682                            *----------------------------------------------------------------*
      683                            *        *      '      '      '      '      '      '      '      *
      684                            *  TST0  *   X  '   X  '   X  '   X  '   X  '   X  '   X  '      *
      685                            *        *      '      '      '      '      '      '      '      *
      686                            *  TST1  *      '      '      '      '      '      '      '      *
      687                            *    1   *   X  '   X  '   X  '   X  '   X  '   X  '   X  '      *
      688                            *    2   *   X  '   X  '   X  '   X  '   X  '   X  '   X  '      *
      689                            *    3   *      '   X  '      '      '      '      '      '      *
      690                            *    4   *   X  '   X  '   X  '   X  '   X  '   X  '   X  '      *
      691                            *    5   *   X  '   X  '   X  '   X  '   X  '   X  '   X  '      *
      692                            *    6   *      '   X  '      '      '      '      '      '      *
      693                            *    7   *      '      '      '      '      '      '      '   X  *
      694                            *    8   *      '      '      '      '      '      '      '   X  *
      695                            *    9   *      '   X  '      '      '      '      '      '      *
      696                            *   10   *   X  '   X  '      '      '      '      '      '      *
      697                            *   11   *      '   X  '      '      '      '      '      '      *
      698                            *   12   *      '   X  '      '      '      '      '      '      *
      699                            *   13   *      '   X  '      '      '      '      '      '      *
      700                            *   14   *      '   X  '      '      '      '      '      '      *
      701                            *   15   *      '   X  '      '      '      '      '      '      *
      702                            *   16   *      '      '      '      '      '      '      '   X  *
      703                            *   17   *      '      '      '      '      '      '      '   X  *
      704                            *   18   *      '   X  '      '      '      '      '      '      *
      705                            *   19   *      '   X  '      '      '      '      '      '      *
      706                            *   20   *      '      '      '      '      '      '      '   X  *
      707                            *   21   *      '      '      '      '      '      '      '   X  *
      708                            *   22   *      '   X  '      '      '      '      '      '      *
      709                            *   23   *      '   X  '      '      '      '      '      '      *
      710                            *   24   *      '   X  '      '      '      '      '      '      *
      711                            *   25   *      '      '      '      '      '      '      '   X  *
      712                            *   26   *      '      '      '      '      '      '      '   X  *
      713                            *   27   *      '   X  '      '      '      '      '      '      *
      714                            *   28   *      '   X  '      '      '      '      '      '      *
      715                            *   29   *      '   X  '      '      '      '      '      '      *
      716                            *   30   *      '      '      '      '      '      '      '   X  *
      717                            *   31   *      '      '      '      '      '      '      '   X  *
      718                            *   32   *      '      '      '      '      '      '      '   X  *
      719                            *   33   *      '   X  '      '      '      '      '      '      *
      720                            *   34   *      '   X  '      '      '      '      '      '      *
      721                            *   35   *      '      '      '      '      '      '      '   X  *
      722                            *   36   *   X  '   X  '   X  '   X  '   X  '   X  '   X  '      *
      723                            *   37   *      '      '   X  '   X  '   X  '   X  '   X  '      *
      724                            *   38   *   X  '   X  '   X  '   X  '   X  '   X  '   X  '      *
      725                            *   39   *      '      '      '      '      '      '      '   X  *
      726                            *   40   *   X  '   X  '   X  '      '      '      '      '      *
      727                            *   41   *      '      '      '   X  '   X  '   X  '   X  '      *
      728                            *   42   *      '      '      '      '      '      '      '      *
      729                            *   43   *   X  '   X  '   X  '      '      '      '      '      *
      730                            *   44   *   X  '   X  '   X  '      '      '      '      '      *
      731                            *   45   *   X  '   X  '   X  '      '      '      '      '      *
      732                            *   46   *      '      '   X  '      '      '      '      '      *
      733                            *   47   *      '      '      '      '      '      '      '   X  *
      734                            *   48   *   X  '   X  '   X  '      '      '      '      '      *
      735                            *   49   *      '      '      '   X  '   X  '   X  '   X  '      *
      736                            *   50   *      '      '      '   X  '   X  '   X  '   X  '      *
      737                            *   51   *      '      '      '   X  '   X  '   X  '   X  '      *
      738                            *   52   *   X  '      '      '      '      '      '      '      *  *A01
      739                            *        *      '      '      '      '      '      '      '      *
      740                            *        *-------------------------------------------------------*
      741                            *        *      *      *      *      *      *      *      *      *
      742                            *  TST2  *   X  '   X  '   X  '   X  '   X  '   X  '   X  '      *
      743                            *        *      *      *      *      *      *      *      *      *
      744                            *        *-------------------------------------------------------*
      745                            *  TST3  *      *      *      *      *      *      *      *      *
      746                            *        *      '      '      '      '      '      '      '      *
      747                            *    0   *   X  '   X  '   X  '   X  '   X  '   X  '   X  '      *
      748                            *    1   *   X  '   X  '   X  '   X  '   X  '   X  '   X  '      *
      749                            *    2   *   X  '   X  '   X  '   X  '   X  '   X  '   X  '      *
      750                            *    3   *   X  '   X  '   X  '      '      '      '      '      *
      751                            *    4   *   X  '   X  '   X  '   X  '   X  '   X  '   X  '      *
      752                            *    5   *   X  '   X  '   X  '   X  '   X  '   X  '   X  '      *
      753                            *    6   *   X  '   X  '   X  '   X  '   X  '   X  '   X  '      *
      754                            *    7   *   X  '   X  '   X  '   X  '   X  '   X  '   X  '      *
      755                            *        *      '      '      '      '      '      '      '      *
      756                            *        *      *      *      *      *      *      *      *      *
      757                            *----------------------------------------------------------------*
      758                            *
      759                            *
      760                            *                        ***************
      761                            *                        *             *
      762                            *                        * FAULT INDEX *
      763                            *                        *             *
      764                            *                        ***************
      765                            *
      766                            *
      767                            * FAULT INDEX DESCRIPTION - FUNCTIONAL SUBTESTS
      768                            * ---------------------------------------------
      769                            * THE FAULT INDEX CONTAINS A BRIEF DESCRIPTION OF EACH FUNCTIONAL
      770                            * SUBTEST AND A LIST OF ASSOCIATED ERROR NUMBERS WITH A BRIEF
      771                            * DESCRIPTION OF EACH ERROR. THE SUBTESTS AND ERROR NUMBERS ARE ARRANGED
      772                            * IN ASCENDING SEQUENCE. THE DESCRIPTION OF SUBTEST NN IS NUMBERED NN00.
      773                            * THE FIRST TWO DIGITS OF THE ERROR NUMBER CORRESPONDS TO THE ASSOCIATED
      774                            * SUBTEST; THE LAST TWO NUMBERS CORRESPOND TO THE INDIVIDUAL ERRORS
      775                            * WITHIN THE SUBTEST.
      776                            *
      777                            * FUNCTIONAL SUBTEST DESCRIPTION
      778                            * ------------------------------
      779                            *
      780                            * THE FUNCTIONAL SUBTEST DESCRIPTIONS PRESENTED IN THE FAULT INDEX ARE
      781                            * PRESENTED TO DEFINE THE CURRENT OPERATION BEING PERFORMED FOR EACH
      782                            * SUBTEST AND TO AID IN DEFINING THE NATURE OF THE FAILURE.
      783                            *
      784                            * DESCRIPTIVE ERROR MESSAGES
      785                            * ---------------------------
      786                            * ERROR MESSAGES MAY BE PRECEDED BY DESCRIPTIVE MESSAGES WHICH QUALIFY
      787                            * THE ERROR AND AID IN FAILURE ISOLATION.
      788                            *
      789                            *
      790                            * 0100 TST1,1 HIO,TIO,TDV AND AIO INSTRUCTION RECOGNITION. HIO,TIO
      791                            *      ------ -------------------------------------------- TDV AND
      792                            *      AIO INSTRUCTIONS ARE ISSUED AND CONDITION CODES, STATUS TESTED.
      793                            *
      794                            * 0101 HIO INSTR. COND. CODES OR STATUS ERROR.
      795                            *
      796                            * 0102 TIO INSTR. COND. CODES OR STATUS ERROR.
      797                            *
      798                            * 0103 TDV INSTR. COND. CODES OR STATUS ERROR.
      799                            *
      800                            * 0104 AIO INSTR. COND. CODE ERROR. EXPECTED NO INTERRUPT RECOGNITION.
      801                            *
      802                            * 0200 TST1,2 SIO INVALID ORDER TEST. AN SIO IS ISSUED WITH AN INVALID
      803                            *      ------ ----------------------- ORDER AND THE CONTROLLER IS
      804                            *      TESTED FOR UE STATUS.
      805                            *
      806                            * 0201 SIO CONDITION CODES INDICATE SIO NOT ACCEPTED.
      807                            *      CARD PUNCH (ORDER = X'02').
      808                            *
      809                            * 0202 SIO STATUS ERROR FOR INVALID ORDER.
      810                            *      CARD PUNCH (ORDER = X'02').
      811                            *
      812                            * 0203 TIO STATUS INDICATES CONTR. REMAINS BUSY AFTER INVALID ORDER.
      813                            *      CARD PUNCH (ORDER = X'02').
      814                            *
      815                            * 0204 TIO STATUS ERROR AFTER INVALID ORDER. EXPECTED UE STATUS
      816                            *      AND CONTR. READY. CARD PUNCH (ORDER = X'02').
      817                            *
      818                            * 0205 TERMINAL BYTE COUNT NOT THE SAME AS STARTING BYTE COUNT
      819                            *      FOR INVALID ORDER. EXPECTED TERM. BC = 120.
      820                            *      CARD PUNCH (ORDER = X'02').
      821                            *
      822                            * 0211 SIO CONDITION CODES INDICATE SIO NOT ACCEPTED.
      823                            *      CARD READER (ORDER = X'01').
      824                            *
      825                            * 0212 SIO STATUS ERROR FOR INVALID ORDER.
      826                            *      CARD READER (ORDER = X'01').
      827                            *
      828                            * 0213 TIO STATUS INDICATES CONTR. REMAINS BUSY AFTER INVALID ORDER.
      829                            *      CARD READER (ORDER = X'01').
      830                            *
      831                            * 0214 TIO STATUS ERROR AFTER INVALID ORDER. EXPECTED UE STATUS
      832                            *      AND CONTR. READY. CARD READER (ORDER = X'01').
      833                            *
      834                            * 0215 TERMINAL BYTE COUNT NOT THE SAME AS STARTING BYTE COUNT      *A01
      835                            *      FOR INVALID ORDER. EXPECTED TERM. BC = 120.
      836                            *      CARD READER (ORDER = X'01').
      837                            * 0221 SIO CONDITION CODES INDICATE SIO NOT ACCEPTED.
      838                            *      CARD READER (ORDER = X'03').
      839                            *
      840                            * 0222 SIO STATUS ERROR FOR INVALID ORDER.
      841                            *      CARD READER (ORDER = X'03').
      842                            *
      843                            * 0223 TIO STATUS INDICATES CONTR. REMAINS BUSY AFTER INVALID ORDER.
      844                            *      CARD READER (ORDER = X'03').
      845                            *
      846                            * 0224 TIO STATUS ERROR AFTER INVALID ORDER. EXPECTED UE STATUS
      847                            *      AND CONTR. READY. CARD READER (ORDER = X'03').
      848                            *
      849                            * 0225 TERMINAL BYTE COUNT NOT THE SAME AS STARTING BYTE COUNT
      850                            *      FOR INVALID ORDER. EXPECTED TERM. BC = 120.
      851                            *      CARD READER (ORDER = X'03').
      852                            *
      853                            * 0231 SIO CONDITION CODES INDICATE SIO NOT ACCEPTED.
      854                            *      CARD READER (ORDER = X'42').
      855                            *
      856                            * 0232 SIO STATUS ERROR FOR INVALID ORDER.
      857                            *      CARD READER (ORDER = X'42').
      858                            *
      859                            * 0233 TIO STATUS INDICATES CONTR. REMAINS BUSY AFTER INVALID ORDER.
      860                            *      CARD READER (ORDER = X'42').
      861                            *
      862                            * 0234 TIO STATUS ERROR AFTER INVALID ORDER. EXPECTED UE STATUS
      863                            *      AND CONTR. READY. CARD READER (ORDER = X'42').
      864                            *
      865                            * 0235 TERMINAL BYTE COUNT NOT THE SAME AS STARTING BYTE COUNT
      866                            *      FOR INVALID ORDER. EXPECTED TERM. BC = 120.
      867                            *      CARD READER (ORDER = X'42').
      868                            *
      869                            * 0241 SIO CONDITION CODES INDICATE SIO NOT ACCEPTED.
      870                            *      CARD READER (ORDER = X'86').
      871                            *
      872                            * 0242 SIO STATUS ERROR FOR INVALID ORDER.
      873                            *      CARD READER (ORDER = X'86').
      874                            *
      875                            * 0243 TIO STATUS INDICATES CONTR. REMAINS BUSY AFTER INVALID ORDER.
      876                            *      CARD READER (ORDER = X'86').
      877                            *
      878                            * 0244 TIO STATUS ERROR AFTER INVALID ORDER. EXPECTED UE STATUS
      879                            *      AND CONTR. READY. CARD READER (ORDER = X'86').
      880                            *
      881                            * 0245 TERMINAL BYTE COUNT NOT THE SAME AS STARTING BYTE COUNT
      882                            *      FOR INVALID ORDER. EXPECTED TERM. BC = 120.
      883                            *      CARD READER (ORDER = X'86').
      884                            *                                                                   *A01
      885                            * 0250 READ CHECK VERIFICATION. THE READ CHECK FLAG SHOULD BE SET   *A01
      886                            *      BY THE INVALID ORDER (MODELS 7160-1 AND 7160-2).             *A01
      887                            *
      888                            *
      889                            * 0300 TST1,3 TEST MODE SELECTION. SIO ISSUED TO SELECT AND RESET
      890                            *      ------ -------------------- CONTROLLER TEST MODE. TDV IS USED
      891                            *      TO VERIFY TEST MODE (CC2=1 - TEST MODE).
      892                            *
      893                            * 0301 SIO INSTR. COND. CODE OR STATUS ERROR.
      894                            *
      895                            * 0302 TIO INSTR. INDICATES CONTR. BUSY BEYOND NORMAL TERMINATION TIME
      896                            *      FOR SELECT TEST MODE ORDER (X'13').
      897                            *
      898                            * 0303 TIO INDICATES UE FOR SELECT TEST MODE ORDER.
      899                            *
      900                            * 0304 TIO INDICATES STATUS ERROR FOR SELECT TEST MODE ORDER.
      901                            *
      902                            * 0305 TEST MODE BYTE NOT TAKEN BY CONTR.
      903                            *
      904                            * 0306 CONTR PERFORMED DATA IN INSTEAD OF DATA OUT FOR TEST MODE ORDER
      905                            *
      906                            * 0307 TDV COND. CODES 1,2 NOT EQUAL 01 FOLLOWING TEST MODE ORDER.
      907                            *
      908                            * 0308 SIO COND. CODE OR STATUS ERROR WHILE CONTR. IN TEST MODE.
      909                            *
      910                            * 0309 TIO INDICATES COND. CODE OR STATUS ERROR FOLLOWING TEST MODE
      911                            *      ORDER TO RESET TEST MODE.
      912                            *
      913                            * 0310 TDV COND. CODE OR STATUS ERROR FOLLOWING TEST MODE ORDER TO
      914                            *      RESET TEST MODE.
      915                            * 0400 TST1,4 INTERRUPT GENERATION TEST. THE FOLLOWING ORDERS
      916                            *      ------ -------------------------- ARE ISSUED FOR A 7160-2
      917                            *      CONTROLLER: X'13' (DATA BYTE = 00), AND X'02' IN ORDER TO
      918                            *      TEST THE ICE, IZC, AND IUE INTERRUPT GENERATION. AIO AND
      919                            *      HIO INSTR'S ARE USED TO TEST THE INTERRUPT CLEARING.
      920                            *
      921                            * 0401 TIO INDICATES IP STATUS NOT PRESENT AFTER X'13' ORDER
      922                            *      WITH ICE FLAG SET IN THE IOCD.
      923                            *
      924                            * 0402 TIO INDICATES COND. CODE OR STATUS ERROR AFTER X'13' ORDER
      925                            *      WITH ICE FLAG SET.
      926                            *
      927                            * 0403 AIO INSTR. COND. CODE, STATUS OR DEVICE ADDRESS ERROR
      928                            *      FOLLOWING A X'13' ORDER RAISING IP.
      929                            *
      930                            * 0404 HIO INSTR DID NOT RESET IP IN CONTROLLER.
      931                            *
      932                            * 0405 TIO INDICATES IP NOT SET BY X'13' ORDER WITH IZC
      933                            *      FLAG SET IN THE IOCD.
      934                            *
      935                            * 0406 TIO INDICATES COND. CODE OR STATUS ERROR AFTER X'13'
      936                            *      ORDER WITH IZC FLAG SET IN THE IOCD.
      937                            *
      938                            * 0407 AIO INSTR. COND. CODE, STATUS OR DEVICE ADDRESS ERROR
      939                            *      AFTER A X'13' ORDER WITH IZC FLAG SET IN THE IOCD.
      940                            *
      941                            * 0408 AIO OR HIO INSTR. DID NOT RESET IP IN CONTROLLER.
      942                            *
      943                            * 0409 TIO INDICATES INVALID ORDER WITH IUE FLAG
      944                            *      DID NOT SET IP IN THE CONTROLLER.
      945                            *
      946                            * 0410 TIO INDICATES COND. CODE OR STATUS ERROR AFTER INVALID
      947                            *      ORDER WITH IUE FLAG SET IN IOCD. EXPECTED UE AND IP.
      948                            *
      949                            * 0411 AIO INSTR. COND. CODE, STATUS OR DEVICE ERROR AFTER
      950                            *      INVALID ORDER WITH IUE FLAG SET IN THE IOCD.
      951                            *
      952                            * 0412 TIO INDICATES STATUS ERROR AFTER AIO OR HIO INSTRUCTION
      953                            *      TO CLEAR IP.
      954                            *
      955                            * 0413 TIO INDICATES HIO OR AIO INSTR. DID NOT RESET IP IN CONTR.
      956                            *
      957                            * 0414 AIO INSTR. DID NOT RESET IP IN THE CONTROLLER.
      958                            *
      959                            * 0420 'INTERRUPT PENDING' NOT REPORTED BY THE MODEL 7160-1 PUNCH.
      960                            *
      961                            * 0421 AIO STATUS ERROR DETECTED (7160-1). EXPECTING 'INTERRUPT
      962                            *      PENDING' AND 'UNUSUAL END' INDICATIONS. REFER TO PRINTOUT FOR
      963                            *      OBSERVED STATUS.
      964                            *
      965                            * 0422 TIO STATUS ERROR DETECTED (7160-1). AIO DID NOT RESET
      966                            *      'INTERRUPT PENDING' IN THE CONTROLLER.
      967                            *
      968                            * 0430 'INTERRUPT PENDING' NOT REPORTED BY THE MODEL 7165 PUNCH.
      969                            *
      970                            * 0431 AIO STATUS ERROR DETECTED (7165). EXPECTING 'INTERRUPT
      971                            *      PENDING' AND 'UNUSUAL END' INDICATIONS. REFER TO PRINTOUT FOR
      972                            *      OBSERVED STATUS.
      973                            *
      974                            * 0432 TIO STATUS ERROR DETECTED (READER). AIO DID NOT RESET
      975                            *      'INTERRUPT PENDING' IN THE CONTROLLER.
      976                            *
      977                            * 0440 'INTERRUPT PENDING' NOT REPORTED BY CARD READER.
      978                            *
      979                            *
      980                            * 0441 AIO STATUS ERROR DETECTED (READER). EXPECTING 'INTERRUPT
      981                            *      PENDING' AND 'UNUSUAL END' INDICATIONS. REFER TO PRINTOUT FOR
      982                            *      OBSERVED STATUS.
      983                            *
      984                            * 0442 TIO STATUS ERROR DETECTED (7165). AIO DID NOT RESET          *A01
      985                            *      'INTERRUPT PENDING' IN THE CONTROLLER.
      986                            *
      987                            * 0500 TST1,5 IO INTERRUPT GENERATION. USING AN INVALID ORDER,
      988                            *      ------ ------------------------ VERIFY THAT THE PUNCH/READER
      989                            *      CAN GENERATE 'CHANNEL END' AND 'UNUSUAL END' INTERRUPTS.
      990                            *
      991                            * 0501 INTERRUPT NOT RECEIVED BY THE CPU.
      992                            *
      993                            * 0502 TIO STATUS ERROR AFTER CPU RECEIVED AN INTERRUPT FROM CONTR.
      994                            *
      995                            * 0503 AIO COND. CODE, STATUS OR DEVICE ADDRESS ERROR AFTER
      996                            *      ICE INTERRUPT RECEIVED BY THE CPU.
      997                            *
      998                            * 0504 TIO INDICATES HIO DID NOT RESET IP IN THE CONTROLLER.
      999                            *
     1000                            * 0505 AIO COND. CODE, STATUS OR DEVICE ADDRESS ERROR AFTER
     1001                            *      IZC INTERRUPT RECEIVED BY THE CPU.
     1002                            *
     1003                            * 0506 TIO INDICATES HIO DID NOT RESET IP IN THE CONTR.
     1004                            *
     1005                            * 0507 AIO COND. CODE, STATUS OR DEVICE ADDRESS ERROR AFTER
     1006                            *      IUE INTERRUPT RECEIVED BY THE CPU.
     1007                            *
     1008                            * 0508 TIO INDICATES HIO DID NOT RESET IP IN THE CONTR.
     1009                            *
     1010                            * 0510 TIMEOUT OCCURRED - NO INTERRUPT RECEIVED.
     1011                            *
     1012                            * 0511 STATUS ERROR DETECTED AFTER INTERRUPT RECEIVED. REFER TO
     1013                            *      PRINTOUT FOR EXPECTED AND OBSERVED STATUS.
     1014                            *
     1015                            *
     1016                            * 0600 TST1,6 COMMAND CHAINING. TWO TEST MODE ORDERS ARE COMMAND
     1017                            *      ------ ----------------- CHAINED AND CHAINING VERIFIED.
     1018                            *      INVALID ORDER COMMAND CHAINED TO TEST MODE ORDER IS TESTED FOR
     1019                            *      COMMAND CHAIN TERMINATION AFTER INVALID ORDER.
     1020                            *
     1021                            * 0601 TIO INDICATES CONTR. BUSY BEYOND NORMAL TERMINATION TIME FOR
     1022                            *      COMMAND CHAIN OPERATION.
     1023                            *
     1024                            * 0602 TIO INDICATES STATUS ERROR DURING COMMAND CHAINING.
     1025                            *
     1026                            * 0603 TIO INDICATES OPERATIONAL STATUS ERROR DURING COMMAND CHAINING
     1027                            *
     1028                            * 0604 BYTE COUNT NOT 0 FOLLOWING COMMAND CHAINING
     1029                            *
     1030                            * 0605 TIO INDICATES COMMAND CHAINING DID NOT TERMINATE WITH THE
     1031                            *      SECOND IOCD.
     1032                            *
     1033                            * 0606 CONTR. BUSY WITH INVALID ORDER
     1034                            *
     1035                            * 0607 TIO INDICATES UE NOT GENERATED BY CONTR. FOR INVALID ORDER.
     1036                            *
     1037                            * 0608 TIO INDICATES STATUS ERROR FOR INVALID ORDER COMMAND CHAINED
     1038                            *      TO TEST MODE ORDER.
     1039                            *
     1040                            * 0609 TERMINAL BYTE COUNT NOT 1 FOR INVALID ORDER COMMAND CHAINED
     1041                            *      TO TEST MODE ORDER.
     1042                            *
     1043                            * 0610 COMMAND CHAINING NOT TERMINATED BY UE OF INVALID ORDER.
     1044                            *
     1045                            * 0900 TST1,9 MOTOR SPEED (TEST MODE). A BINARY ORDER IS ISSUED IN
     1046                            *      ------ ------------------------ TEST MODE AND TDV STATUS TESTED
     1047                            *      TO INSURE PUNCH MOTOR SPEED INDICATOR IS SET.
     1048                            *
     1049                            * 0901 TEST MODE SELECTION ERROR. EXPECTED TDV CC1,2=01.
     1050                            *
     1051                            * 0902 SIO STATUS ERROR FOR BINARY ORDER.
     1052                            *
     1053                            * 0903 TIO INDICATES CONTR. BUSY WITH BINARY ORDER BEYOND
     1054                            *      NORMAL TERMINATION TIME. MOTOR SPEED INDICATOR IS SET.
     1055                            *
     1056                            * 0904 TIO INDICATES STATUS ERROR FOR BINARY ORDER.
     1057                            *
     1058                            * 0905 TDV SET 3 INDICATES MOTOR SPEED INDICATOR NOT SET FOLLOWING
     1059                            *      A BINARY ORDER.
     1060                            *
     1061                            * 0906 TDV SET 3 INDICATES MOTOR SPEED INDICATOR NOT SET DURING
     1062                            *      A BINARY ORDER.
     1063                            *
     1064                            * 1000 TST1,10 STOP AND INTERRUPT. A STOP AND INTERRUPT (X'80') ORDER
     1065                            *      ------- ------------------- IS ISSUED AND INTERRUPT GENERATION
     1066                            *      IS VERIFIED.
     1067                            *
     1068                            * 1001 INTERRUPT NOT GENERATED BY CONTR. FOR STOP AND INTERRUPT ORDER.
     1069                            *
     1070                            * 1003 TIO COND. CODE OR STATUS ERROR AFTER INTERRUPT RECEIVED.
     1071                            *
     1072                            * 1004 AIO COND. CODE, STATUS OR DEVICE ADDRESS ERROR FOR INTERRUPT
     1073                            *      OF THE STOP AND INTERRUPT ORDER.
     1074                            *
     1075                            * 1005 TIO INDICATES STATUS ERROR AFTER AIO CLEARED THE INTERRUPT.
     1076                            *
     1077                            * 1100 TST1,11 VALID ORDERS (TEST MODE). THE FOLLOWING VALID ORDERS
     1078                            *      ------- ------------------------- ARE ISSUED IN TEST MODE WITH
     1079                            *      A BYTE COUNT OF ONE: X'00',X'01',X'15',X'0D',X'11',X'15',X'19',
     1080                            *      X'1D'. CORRECT TERMINATION OF EACH ORDER IS VERIFIED.
     1081                            *
     1082                            * 1101 TEST MODE SELECTION ERROR. EXPECTED TDV CC1,2=01.
     1083                            *
     1084                            * 1102 SIO STATUS ERROR FOR VALID ORDER.
     1085                            *
     1086                            * 1103 TIO INDICATES STATUS ERROR AFTER VALID ORDER.
     1087                            *
     1088                            * 1104 TIO INDICATES CONTR. BUSY WITH VALID ORDER BEYOND NORMAL
     1089                            *      TERMINATION TIME.
     1090                            *
     1091                            * 1200 TST1,12 ONE-BYTE DATA BUFFER (TEST MODE). A BINARY ORDER IS
     1092                            *      ------- --------------------------------- ISSUED IN TEST MODE
     1093                            *      TO TRANSFER ONE BYTE (X'00' THRU X'FF') TO THE CONTR. ONE-BYTE
     1094                            *      BUFFER. TDV SET 4 IS USED TO VERIFY THE BUFFER CONTENTS.
     1095                            *
     1096                            * 1201 TEST MODE SELECTION ERROR.  EXPECTED TDV CC1,2=01.
     1097                            *
     1098                            * 1202 TIO INDICATES CONTR. BUSY WITH BINARY ORDER BEYOND NORMAL
     1099                            *      TERMINATION TIME.
     1100                            *
     1101                            * 1203 TIO INDICATES UE FOR BINARY ORDER.
     1102                            *
     1103                            * 1204 TIO INDICATES STATUS ERROR FOR BINARY ORDER.
     1104                            *
     1105                            * 1205 TIO INDICATES OPERATIONAL STATUS ERROR FOR BINARY ORDER.
     1106                            *
     1107                            * 1207 TERMINAL BYTE COUNT INCORRECT. EXPECTED  0, RECEIVED 1.
     1108                            *
     1109                            * 1208 DATA BUFFER CONTENTS NOT CORRECT FOR BINARY ORDER. SEE
     1110                            *      PRINTOUT.
     1111                            *
     1112                            * 1300 TST1,13 PUNCH ORDER COMPLETION/CHAINING MODIFIER (TEST MODE).
     1113                            *      ------- -----------------------------------------------------
     1114                            *      A BINARY ORDER IS ISSUED IN TEST MODE WITH BYTE COUNT = 120.
     1115                            *      TEST IS MADE THAT ALL BYTES ARE TRANSFERRED AND THE CHAINING
     1116                            *      MODIFIER SET.
     1117                            *
     1118                            * 1301 TEST MODE SELECTION ERROR. EXPECTED TDV CC1,2=01.
     1119                            *
     1120                            * 1305 TIO INDICATES CONTR. BUSY BEYOND NORMAL TERMINATION TIME FOR
     1121                            *      A BINARY ORDER WITH BYTE COUNT OF 120.
     1122                            *
     1123                            * 1306 TIO INDICATES UE FOR BINARY ORDER WITH BYTE COUNT OF 120.
     1124                            *
     1125                            * 1307 TIO INDICATES STATUS ERROR FOR BINARY ORDER.
     1126                            *
     1127                            * 1308 TERMINAL BYTE COUNT NOT 0 FOR BINARY ORDER WITH STARTING
     1128                            *      BYTE COUNT OF 120.
     1129                            *
     1130                            * 1309 OPERATIONAL STATUS ERROR FOR A BINARY ORDER.
     1131                            *
     1132                            * 1311 CHAINING MODIFIER NOT SET.
     1133                            *
     1134                            * 1400 TST1,14 ROW COUNTER (TEST MODE). A BINARY ORDER IS ISSUED IN
     1135                            *      ------- ------------------------ TEST MODE AND TDV SET 2 IS
     1136                            *      USED TO VERIFY THE ROW COUNTER INCREMENTS FROM CARD ROW 1
     1137                            *      (X'0') TO CARD ROW 15 (X'E').
     1138                            *
     1139                            * 1401 TEST MODE SELECTION ERROR. EXPECTED TDV CC1,2=01.
     1140                            *
     1141                            * 1402 TDV SET 2 INDICATES ROW COUNTER DID NOT RESET TO ROW 1 (X'0')
     1142                            *      AFTER THE BINARY ORDER. SEC PRINTOUT.
     1143                            *
     1144                            * 1403 TDV SET 2 INDICATES ROW COUNTER DID NOT INCREMENT CORRECTLY.
     1145                            *      SEE PRINTOUT.
     1146                            *
     1147                            * 1404 TIO INDICATES STATUS ERROR FOR BINARY ORDER.
     1148                            *
     1149                            *
     1150                            * 1500 TST1,15 SKIP COUNTER (TEST MODE). BINARY ORDERS ARE ISSUED TO
     1151                            *      ------- ------------------------- TEST THE BINARY SKIP COUNTER.
     1152                            *      TDV SET 2 IS USED TO VERIFY THAT THE 2-BIT SKIP COUNTER ASSUMES
     1153                            *      THE FOLLOWING STATES IN SEQUENCE: BINARY 10,11AND 00.
     1154                            *
     1155                            * 1501 TEST MODE SELECTION ERROR. EXPECTED TDV CC1,2=01.
     1156                            *
     1157                            * 1502 TDV SET 2 INDICATES THE SKIP COUNTER DID NOT INCREMENT
     1158                            *      CORRECTLY  (10 TO 11 TO 00 TO ETC.) AFTER THE BINARY ORDER.
     1159                            *
     1160                            * 1503 TIO INDICATES STATUS ERROR FOR BINARY ORDER WITH BYTE COUNT = 1
     1161                            *
     1162                            * 1800 TST1,18 BINARY DECODE (TEST MODE ). A SERIES OF BINARY ORDERS
     1163                            *      ------- --------------------------- ARE ISSUED WITH DATA BYTES
     1164                            *      OF X'00',X'01',X'02',X'04',... AND TDV SET 2 IS USED TO VERIFY
     1165                            *      THE BINARY DECODE OUTPUT (DATAB) FOR EACH ROW TIME.
     1166                            *
     1167                            * 1801 TEST MODE SELECTION ERROR. EXPECTED TDV CC1,2=01.
     1168                            *
     1169                            * 1802 SIO STATUS ERROR FOR BINARY ORDER.
     1170                            *
     1171                            * 1803 TIO INDICATES CONTR. BUSY BEYOND NORMAL TIME FOR ONE ROW.
     1172                            *
     1173                            * 1804 TDV SET 2 INDICATES ROW COUNTER DID NOT INCREMENT CORRECTLY. *A01
     1174                            *                                                                   *A01
     1175                            * 1805 TDV SET 2 INDICATES ROW COUNTER DID NOT INCREMENT CORRECTLY.
     1176                            *
     1177                            * 1806 TDV SET 2 INDICATES BINARY DECODE OUTPUT (DATAB) INCORRECT.
     1178                            *
     1179                            * 1900 TST1,19 EBCDIC DECODE (TEST MODE). A SERIES OF EBCDIC ORDERS
     1180                            *      ------- -------------------------- ARE ISSUED WITH ALL EBCDIC
     1181                            *      BYTES. TDV SET 2 IS USED TO DETERMINE THE EBCDIC DECODE OUTPUT
     1182                            *      FOR EACH CHARACTER AND ROW. EBCDIC DECODE IS ACCUMULATED AND
     1183                            *      VERIFIED AT THE CONCLUSION.
     1184                            *
     1185                            * 1901 TEST MODE SELECTION ERROR. EXPECTED TDV CC1,2=01.
     1186                            *
     1187                            * 1902 SIO STATUS ERROR FOR EBCDIC ORDER WITH BYTE COUNT = 80.
     1188                            *
     1189                            * 1903 TIO INDICATES CONTR. BUSY BEYOND NORMAL TERMINATION TIME
     1190                            *      FOR EBCDIC ORDER WITH BYTE COUNT = 80.
     1191                            *
     1192                            * 1905 TDV SET 2 INDICATES ROW COUNTER INCREMENTED INCORRECTLY.
     1193                            *
     1194                            * 1906 EBCDIC DECODE ERROR. SEE PRINTOUT.
     1195                            *
     1196                            * 2200 TST1,22 PUNCH REGISTER/READ REGISTER - SHIFTING (TEST MODE).
     1197                            *      ------- ----------------------------------------------------
     1198                            *      AN EBCDIC ORDER IS ISSUED WITH X'40' BYTES AND TDV SET 3 IS
     1199                            *      USED TO VERIFY THAT THE EBCDIC DECODE OUTPUT (0  FOR X'40')
     1200                            *      IS SHIFTED THROUGH THE PUNCH REGISTER AND THROUGH THE READ
     1201                            *      REGISTER. THE TEST IS REPEATED WITH X'00' BYTES (ROW PUNCHES
     1202                            *      T0981) TO VERIFY THAT A 1 BIT IS SHIFTED TO THE READ REGISTER
     1203                            *
     1204                            * 2201 TEST MODE SELECTION ERROR.   EXPECTED TDV CC1,2=01.
     1205                            *
     1206                            * 2202 CHANNEL END INTERRUPT NOT RECEIVED FOR THE EBCDIC ORDER
     1207                            *      WITH BYTE  COUNT  = 80.
     1208                            *
     1209                            * 2203 STATUS ERROR FOR EBCDIC ORDER. SEE PRINTOUT.
     1210                            *
     1211                            * 2204 TDV SET 3 INDICATES THE 1 BIT WAS NOT SHIFTED THRU TO THE
     1212                            *      READ REGISTER COLUMN 1 POSITION.
     1213                            *
     1214                            * 2205 TDV SET 3 INDICATES THE 0 BIT WAS NOT SHIFTED THRU TO THE
     1215                            *      READ REGISTER COLUMN 1 POSITION.
     1216                            *
     1217                            * 2300 TST1,23 INCORRECT LENGTH (TEST MODE). BINARY ORDERS WITH BYTE
     1218                            *      ------- ----------------------------- COUNTS OF 119 AND 121
     1219                            *      AND EBCDIC ORDERS WITH BYTE COUNTS OF 79 AND 81 ARE ISSUED TO
     1220                            *      VERIFY THE INCORRECT LENGTH REPORTING.
     1221                            *
     1222                            * 2301 TEST MODE SELECTION ERROR. EXPECTED TDV CC1,2=01.
     1223                            *
     1224                            * 2302 CHANNEL END INTERRUPT NOT RECEIVED.
     1225                            *
     1226                            * 2303 STATUS ERROR AFTER EBCDIC OR BINARY ORDER.
     1227                            *
     1228                            * 2304 IL STATUS NOT REPORTED.
     1229                            *
     1230                            * 2400 TST1,24 SENSE ORDER (TEST MODE). SENSE ORDERS ARE ISSUED WITH
     1231                            *      ------- ------------------------ BYTE COUNTS OF 1 TO 80 IN
     1232                            *      ORDER TO VERIFY THE CONTR. ABILITY TO TRANSFER THE 80-BIT READ
     1233                            *      REGISTER DATA TO THE CPU.
     1234                            *
     1235                            * 2401 TEST MODE SELECTION ERROR. EXPECTED TDV CC1,2=01.
     1236                            *
     1237                            * 2402 SIO STATUS ERROR FOR SENSE   (X'04')ORDER.
     1238                            *
     1239                            * 2403 TIO INDICATES CONTR. BUSY AFTER NORMAL TERMINATION TIME FOR
     1240                            *      SENSE ORDER.
     1241                            *
     1242                            * 2404 STATUS ERROR FOR SENSE ORDER.
     1243                            *
     1244                            * 2700 TST1,27 PUNCH REGISTER/READ  REGISTER - 0'S AND 1'S (TEST MODE)
     1245                            *      ------- -------------------------------------------------------
     1246                            *      A SERIES OF EBCDIC ORDERS ARE ISSUED WITH X'40' BYTES AND SENSE
     1247                            *      ORDERS USED TO VERIFY THAN ALL 0'S ARE TRANSFERED TO THE
     1248                            *      READ REGISTER FOR ALL ROW TIMES. THE TEST IS REPEATED TO
     1249                            *      VERIFY ALL 1'S ARE TRANSFERRED FOR ALL ROW TIMES.
     1250                            *
     1251                            * 2701 TEST MODE SELECTION ERROR. EXPECTED TDV CC1,2=01.
     1252                            *
     1253                            * 2702 TIO STATUS ERROR FOR EBCDIC ORDER.
     1254                            *
     1255                            * 2703 TIO STATUS ERROR FOR SENSE ORDER.
     1256                            *
     1257                            * 2704 READ REGISTER NOT ALL 0'S FOR EBCDIC ORDER WITH X'40'BYTES.
     1258                            *      SEE PRINTOUT.
     1259                            * 2705 READ REGISTER NOT ALL 1'S FOR EBCDIC ORDER. SEE PRINTOUT.
     1260                            *
     1261                            * 2800 TST1,28 PUNCH REGISTER/READ REGISTER-  RANDOM BITS  (TEST MODE)
     1262                            *      ------- -------------------------------------------------------
     1263                            *      A SERIES OF BINARY ORDERS ARE ISSUED TO TRANSFER ALTERNATING
     1264                            *      1'S AND O'S AND RANDOM BITS TO THE PUNCH AND READ REGISTERS.
     1265                            *      SENSE ORDERS ARE USED TO VERIFY THE READ REGISTER CONTENTS.
     1266                            *
     1267                            * 2801 TEST MODE SELECTION ERROR. EXPECTED TDV CC1,2 =01.
     1268                            *
     1269                            * 2802 SIO STATUS ERROR FOR BINARY ORDER.
     1270                            *
     1271                            * 2803 TIO STATUS ERROR FOR BINARY ORDER.
     1272                            *
     1273                            * 2804 TIO STATUS ERROR FOR SENSE ORDER.
     1274                            *
     1275                            * 2805 READ REGISTER CONTENTS INCORRECT. SEE PRINTOUT.
     1276                            *
     1277                            * 2900 TST1,29 PUNCH REGISTER/READ REGISTER - RANDOM BITS (TEST MODE)
     1278                            *      ------- -------------------------------------------------------
     1279                            *      A SERIES OF EBCDIC ORDERS ARE ISSUED TO TRANSFER RANDOM BITS
     1280                            *      TO THE PUNCH AND READ REGISTERS. SENSE ORDERS ARE USED TO
     1281                            *      VERIFY THE READ REGISTER CONTENTS.
     1282                            *
     1283                            * 2901 TEST MODE SELECTION ERROR. EXPECT TDV CC1,2 =01.
     1284                            *
     1285                            * 2902 SIO STATUS ERROR FOR EBCDIC ORDER.
     1286                            *
     1287                            * 2903 TIO INDICATES STATUS ERROR FOR EBCDIC ORDER.
     1288                            *
     1289                            * 2904 TIO INDICATES STATUS ERROR FOR SENSE ORDER.
     1290                            *
     1291                            * 2905 READ REGISTER CONTENTS INCORRECT. SEE PRINTOUT.
     1292                            *
     1293                            * 3300 TST1,33 READ VERIFICATION REGISTERS A,B - INCREMENTING (TEST
     1294                            *      ------- ------------------------------------------------- MODE).
     1295                            *      AN EBCDIC ORDER IS ISSUED TO TRANSFER X'40' BYTES. TDV   -----
     1296                            *      SET3 IS USED TO VERIFY THAT  READ VERIF.REG.B CONTAINS ALL 1'S
     1297                            *      (THE 1'S COMPLEMENT OF READ VERIF.REG.A AFTER IT HAS RECEIVED NO
     1298                            *      EBCDIC DECODE 1 BITS). THE TEST IS REPEATED USING DATA BYTES
     1299                            *      PRODUCING READ VERIF. REG. B OUTPUTS OF X'E'THRU X'0'.
     1300                            *
     1301                            * 3301 TEST MODE SELECTION ERROR. EXPECTED TDV CC1,2=01.
     1302                            *
     1303                            * 3302 TIO INDICATES STATUS ERROR FOR EBCDIC ORDER.
     1304                            *
     1305                            * 3303 TDV SET 3 INDICATES READ VERIFICATION REGISTER B CONTENTS
     1306                            *      IS INCORRECT. SEE PRINTOUT.
     1307                            *
     1308                            * 3400 TST1,34 READ VERIFICATION  (TEST MODE). EBCDIC ORDERS ARE
     1309                            *                                               ISSUED WITH VARYING
     1310                            *      PATTERNS PRODUCING EBCDIC DECODE OUTPUTS OF 0 THRU 15. TDV
     1311                            *      SET 3 AND  1 ARE USED TO VERIFY THE READ VERIF. REG B
     1312                            *      CONTENTS AND THE READ VERIFICATION INDICATOR.
     1313                            *
     1314                            * 3401 TEST MODE SELECTION ERROR. EXPECTED TDV CC1,2 =01.
     1315                            *
     1316                            * 3402 TIO INDICATES STATUS ERROR FOR EBCDIC ORDER.
     1317                            *
     1318                            * 3403 TIO INDICATES STATUS ERROR FOR 2ND EBCDIC ORDER.
     1319                            *
     1320                            * 3404 TDV SET 3 INDICATES READ VERIF.REG. B NOT X'F' AFTER
     1321                            *      BEING DECREMENTED DURING 2ND EBCDIC ORDER.
     1322                            *
     1323                            * 3405 TDV SET1 INDICATES READ VERIFICATION ERROR INDICATOR SET.
     1324                            *
     1325                            * 3600 TST1,36 CARD FEED TEST #1.  VERIFY THAT THE DEVICE CAN
     1326                            *      ------- ------------------  CORRECTLY FEED A BLANK CARD.
     1327                            *
     1328                            * 3601 UNSUCCESSFUL ATTEMPT TO READ AN EBCDIC BLANK CARD.
     1329                            *      SEE PRINTOUT FOR EXPECTED AND OBSERVED STATUS.
     1330                            *
     1331                            * 3602 NONZERO INFORMATION WAS RECEIVED FROM THE CARD.
     1332                            *      INFORMATION SHOULD HAVE BEEN ALL BLANKS (X'40').
     1333                            *
     1334                            * 3603 UNSUCCESSFUL ATTEMPT TO PUNCH AN EBCDIC BLANK CARD.
     1335                            *      SEE PRINTOUT FOR EXPECTED AND OBSERVED STATUS.
     1336                            *
     1337                            * 3605 UNSUCCESSFUL ATTEMPT TO READ A BLANK BINARY CARD.
     1338                            *      SEE PRINTOUT FOR EXPECTED AND OBSERVED STATUS.
     1339                            *
     1340                            * 3606 NONZERO INFORMATION WAS RECEIVED FROM THE CARD.
     1341                            *      INFORMATION SHOULD HAVE BEEN ALL BLANKS (X'40').
     1342                            *
     1343                            * 3607 UNSUCCESSFUL ATTEMPT TO PUNCH A BINARY BLANK CARD.
     1344                            *      SEE PRINTOUT FOR EXPECTED AND OBSERVED STATUS.
     1345                            *
     1346                            * 3700 TST1,37 INCORRECT LENGTH. VERIFIES THAT THE DEVICE CAN
     1347                            *      ------- ----------------- CORRECTLY RESPOND TO PUNCH/READ
     1348                            *      ORDERS WITH THE FOLLOWING BYTE COUNTS: 79,81,119,121.
     1349                            *
     1350                            * 3701 TIMEOUT ON PUNCH/READ OPERATION. TIO INDICATED THAT SIO
     1351                            *      STILL NOT CURRENTLY POSSIBLE. BYTE COUNT = 79.
     1352                            *
     1353                            * 3702 STATUS ERROR DETECTED ON PUNCH/READ OPERATION. REFER TO
     1354                            *      PRINTOUT FOR EXPECTED AND OBSERVED STATUS. BYTE COUNT = 79.
     1355                            *
     1356                            * 3703 TIMEOUT ON PUNCH/READ OPERATION. TIO INDICATED THAT SIO
     1357                            *      STILL NOT CURRENTLY POSSIBLE. BYTE COUNT = 81.
     1358                            *
     1359                            * 3704 STATUS ERROR DETECTED ON PUNCH/READ OPERATION. REFER TO
     1360                            *      PRINTOUT FOR EXPECTED AND OBSERVED STATUS. BYTE COUNT = 81.
     1361                            *
     1362                            * 3705 TIMEOUT ON PUNCH/READ OPERATION. TIO INDICATED THAT SIO
     1363                            *      STILL NOT CURRENTLY POSSIBLE. BYTE COUNT = 119.
     1364                            *
     1365                            * 3706 STATUS ERROR DETECTED ON PUNCH/READ OPERATION. REFER TO
     1366                            *      PRINTOUT FOR EXPECTED AND OBSERVED STATUS. BYTE COUNT = 119.
     1367                            *
     1368                            * 3707 TIMEOUT ON PUNCH/READ OPERATION. TIO INDICATED THAT SIO
     1369                            *      STILL NOT CURRENTLY POSSIBLE. BYTE COUNT = 121.
     1370                            *
     1371                            * 3708 STATUS ERROR DETECTED ON PUNCH/READ OPERATION. REFER TO
     1372                            *      PRINTOUT FOR EXPECTED AND OBSERVED STATUS. BYTE COUNT = 121.
     1373                            *
     1374                            *
     1375                            * 3800 TST1,38 PUNCH BLANK CARDS. A SERIES OF 10 BINARY ORDERS ARE  *A01
     1376                            *      ------- ------------------ ISSUED TO PUNCH 10 BLANK CARDS,   *A01
     1377                            *      OR A SERIES OF 12 BINARY ORDERS ARE ISSUED TO READ 12 CARDS. *A01
     1378                            *                                                                   *A01
     1379                            * 3801 STATUS ERROR DETECTED ON PUNCH/READ OPERATION. REFER TO      *A01
     1380                            *      PRINTOUT FOR EXPECTED AND OBSERVED STATUS.                   *A01
     1381                            *                                                                   *A01
     1382                            * 3802 AIO STATUS ERROR ON PUNCH/READ OPERATION. REFER TO PRINTOUT  *A01
     1383                            *      FOR EXPECTED AND OBSERVED STATUS.                            *A01
     1384                            *                                                                   *A01
     1385                            * 3803 TIO STATUS ERROR. CONTROLLER REMAINED BUSY AFTER OPERATION.  *A01
     1386                            *
     1387                            *
     1388                            *
     1389                            * 4000 TST1,40 CHECKERBOARD PATTERN. A SERIES OF 10 CARDS ARE PUNCHED
     1390                            *      ------- --------------------- WITH A DOUBLE CHECKERBOARD
     1391                            *      PATTERN. VISUAL VERIFICATION IS OPTIONAL.
     1392                            *
     1393                            * 4001 IO INTERRUPT NOT RECEIVED FOR BINARY ORDER.
     1394                            *
     1395                            * 4002 PUNCH STATUS ERROR FOR BINARY ORDER PUNCHING CHECKERBOARD
     1396                            *      PATTERN.
     1397                            *
     1398                            * 4100 TST1,41 VERIFY DOUBLE CHECKERBOARD PATTERN. READ/VERIFY
     1399                            *      ------- ----------------------------------- DOUBLE
     1400                            *      CHECKERBOARD PATTERN (DECK OF 10 CARDS).
     1401                            *
     1402                            * 4101 TIMEOUT ON READ OPERATION. REFER TO PRINTOUT FOR
     1403                            *      EXPECTED AND OBSERVED STATUS.
     1404                            *
     1405                            * 4102 INCORRECT DATA ENTERED BY CARD READER. REFER TO
     1406                            *      PRINTOUT FOR FAILING COLUMNS.
     1407                            *
     1408                            * 4300 TST1,43 READ BRUSHES-COLUMN PUNCHING. A SERIES OF 80 CARDS ARE
     1409                            *      ------- ----------------------------- PUNCHED  WITH  EACH
     1410                            *      COLUMN READ BRUSH TESTED BY MOVING THE  COLUMN  BEING PUNCHED
     1411                            *      FROM COL  1 TO COL 80.  ALL ROWS ARE  PUNCHED. VISUAL
     1412                            *      VERIFICATION IS OPTIONAL.
     1413                            * 4301 SIO STATUS ERROR FOR BINARY ORDER.
     1414                            *
     1415                            * 4302 TIO INDICATES STATUS OR TERMINAL BYTE COUNT ERROR.
     1416                            *
     1417                            * 4303 TDV INDICATES READ CHECK ERROR FOR INDICATED COLUMN. SEE
     1418                            *      PRINTOUT.
     1419                            *
     1420                            * 4400 TST1,44 READ BRUSHES-ROW PUNCHING. A SERIES OF 12 CARDS ARE
     1421                            *      ------- -------------------------  PUNCHED WITH EACH COLUMN
     1422                            *      READ BRUSH TESTED BY MOVING THE ROWS BEING PUNCHED FROM ROW
     1423                            *      9 THRU ROW  12. VISUAL VERIFICATION IS OPTIONAL.
     1424                            *
     1425                            * 4401 SIO STATUS ERROR FOR BINARY ORDER.
     1426                            *
     1427                            * 4402 TIO STATUS OR TERMINAL BYTE COUNT ERROR FOR BINARY ORDER.
     1428                            *
     1429                            * 4403 TDV INDICATES READ CHECK ERROR.
     1430                            *
     1431                            * 4500 TST1,45 READ CHECK-EBCDIC PUNCHING. A SERIES OF 10 EBCDIC
     1432                            *      ------- --------------------------- CARDS ARE PUNCHED WITH
     1433                            *      RANDOM PATTERNS. READ CHECK IS VERIFIED.
     1434                            *
     1435                            * 4501 STATUS ERROR DETECTED AFTER BINARY PUNCH OPERATION.
     1436                            *      REFER TO PRINTOUT FOR EXPECTED AND OBSERVED STATUS.
     1437                            *
     1438                            * 4600 TST1,46 INTERRUPT AT DATA TRANSMISSION COMPLETE. VERIFY THAT
     1439                            *      ------- ---------------------------------------- FOR A MODEL
     1440                            *      7165 CARD PUNCH, THE FOLLOWING ORDERS GENERATE AN INTERRUPT
     1441                            *      AT DATA TRANSMISSION COMPLETE:
     1442                            *      (X'45',X'4D',X'55',X'5D',X'41',X'49',X'51',X'59').
     1443                            *
     1444                            * 4601 TIMEOUT OCCURRED - NO INTERRUPT RECEIVED (ORDER = X'45').
     1445                            *
     1446                            * 4602 AIO/TIO STATUS ERROR DETECTED (ORDER = X'45').
     1447                            *      REFER TO PRINTOUT FOR EXPECTED AND OBSERVED STATUS.
     1448                            *
     1449                            * 4603 TIMEOUT OCCURRED - NO INTERRUPT RECEIVED (ORDER = X'4D').
     1450                            *
     1451                            * 4604 AIO/TIO STATUS ERROR DETECTED (ORDER = X'4D').
     1452                            *      REFER TO PRINTOUT FOR EXPECTED AND OBSERVED STATUS.
     1453                            *
     1454                            * 4605 TIMEOUT OCCURRED - NO INTERRUPT RECEIVED (ORDER = X'55').
     1455                            *
     1456                            * 4606 AIO/TIO STATUS ERROR DETECTED (ORDER = X'55').
     1457                            *      REFER TO PRINTOUT FOR EXPECTED AND OBSERVED STATUS.
     1458                            *
     1459                            * 4607 TIMEOUT OCCURRED - NO INTERRUPT RECEIVED (ORDER = X'5D').
     1460                            *
     1461                            * 4608 AIO/TIO STATUS ERROR DETECTED (ORDER = X'5D').
     1462                            *      REFER TO PRINTOUT FOR EXPECTED AND OBSERVED STATUS.
     1463                            *
     1464                            * 4609 TIMEOUT OCCURRED - NO INTERRUPT RECEIVED (ORDER = X'41').
     1465                            *
     1466                            * 4610 AIO/TIO STATUS ERROR DETECTED (ORDER = X'41').
     1467                            *      REFER TO PRINTOUT FOR EXPECTED AND OBSERVED STATUS.
     1468                            *
     1469                            * 4611 TIMEOUT OCCURRED - NO INTERRUPT RECEIVED (ORDER = X'49').
     1470                            *
     1471                            * 4612 AIO/TIO STATUS ERROR DETECTED (ORDER = X'49').
     1472                            *      REFER TO PRINTOUT FOR EXPECTED AND OBSERVED STATUS.
     1473                            *
     1474                            * 4613 TIMEOUT OCCURRED - NO INTERRUPT RECEIVED (ORDER = X'51').
     1475                            *
     1476                            * 4614 AIO/TIO STATUS ERROR DETECTED (ORDER = X'51').
     1477                            *      REFER TO PRINTOUT FOR EXPECTED AND OBSERVED STATUS.
     1478                            *
     1479                            * 4615 TIMEOUT OCCURRED - NO INTERRUPT RECEIVED (ORDER = X'59').
     1480                            *
     1481                            * 4616 AIO/TIO STATUS ERROR DETECTED (ORDER = X'59').
     1482                            *      REFER TO PRINTOUT FOR EXPECTED AND OBSERVED STATUS.
     1483                            *
     1484                            * 4800 TST1,48 PUNCH 50-CARD DECK.  25 BINARY CARDS FOLLOWED BY 25
     1485                            *      ------- -------------------  EBCDIC CARDS ARE PUNCHED WITH
     1486                            *      PATTERN WHICH ALLOW FOR VISUAL VERIFICATION.
     1487                            *
     1488                            * 4801 PUNCH STATUS ERROR.
     1489                            *
     1490                            * 4900 TST1,49 READ 50-CARD DECK. THE 50-CARD DECK PUNCHED BY TST1,48
     1491                            *      ------- ------------------ IS VERIFIED.
     1492                            *
     1493                            * 4901 READ STATUS ERROR AND/OR PATTERN ERROR DETECTED ON PUNCHED
     1494                            *      CARD. SEE  PRINTOUT.
     1495                            *
     1496                            * 5000 TST1,50 TRANSMISSION ERROR TEST (READER). A PREPUNCHED
     1497                            *      ------- ---------------------------------
     1498                            *      INVALID-CODED EBCDIC CARD IS USED TO TEST THE INVALID
     1499                            *      EBCDIC CODE LOGIC OF THE CARD READER.
     1500                            *
     1501                            * 5001 UNSUCCESSFUL ATTEMPT TO READ THE CARD. INTERRUPT NOT
     1502                            *      RECEIVED FROM THE DEVICE.
     1503                            *
     1504                            * 5002 READ STATUS ERROR DETECTED. REFER TO PRINTOUT FOR
     1505                            *      EXPECTED AND OBSERVED STATUS.
     1506                            *
     1507                            * 5003 NONZERO DATA WAS ENTERED INTO THE INPUT BUFFER.
     1508                            *      ALL DATA READ FROM THE CARD SHOULD HAVE BEEN ZERO.
     1509                            *
     1510                            * 5100 TST1,51 AUTOMATIC MODE SWITCHING TEST (READER). A PREPUNCHED
     1511                            *      ------- ---------------------------------------
     1512                            *      MODE-SWITCHING CARD IS USED TO TEST THE ABILITY OF THE
     1513                            *      CARD READER TO AUTOMATICALLY SWITCH FROM AUTOMATIC TO
     1514                            *      BINARY MODE WHEN ROWS 1 & 2 OF COLUMN 1 CONTAIN HOLES.
     1515                            *
     1516                            * 5101 TIMEOUT. TIO COND. CODES INDICATE THAT THE DEVICE DID NOT
     1517                            *      RETURN TO THE 'READY' STATE AFTER FEEDING A CARD.
     1518                            *
     1519                            * 5102 TIO STATUS ERROR DETECTED. REFER TO PRINTOUT FOR
     1520                            *      EXPECTED AND OBSERVED STATUS.
     1521                            *
     1522                            * 5103 ERROR DETECTED IN OBSERVED DATA. REFER TO PRINTOUT FOR
     1523                            *      FAILING COLUMNS.
     1524                            *
     1525                            * 5200 TST1,52 TRANSMISSION ERROR TEST (PUNCH). ANY PREPUNCHED
     1526                            *      ------- --------------------------------
     1527                            *      CARD IS USED TO TEST THE ABILITY OF THE PUNCH TO DETECT
     1528                            *      EXTRANEOUS PUNCHES.
     1529                            *
     1530                            * 5201 UNSUCCESSFUL ATTEMPT TO PUNCH THE CARD. INTERRUPT NOT
     1531                            *      RECEIVED FROM THE DEVICE.
     1532                            *
     1533                            * 5202 PUNCH STATUS ERROR DETECTED. REFER TO THE PRINTOUT FOR
     1534                            *      EXPECTED AND OBSERVED STATUS.
     1535                            *
     1536                            * FUNCTIONAL TEST CARD REQUIREMENTS (SSW1=0,SSW3=1)
     1537                            *
     1538                            *   CARDS PUNCHED:
     1539                            *   --------------
     1540                            *
     1541                            *                    SUBTEST     NUMBER     PATTERN
     1542                            *
     1543                            *     MODEL 7160        36          2        BLANK
     1544                            *                       38         10        BLANK(COMMAND CHAINED) *A01
     1545                            *                       40         10        DOUBLE CHECKERBOARD
     1546                            *                       43         80        ALL ROWS OF A COLUMN
     1547                            *                       44         12        ALL COLUMNS OF A ROW
     1548                            *                       45         10        RANDOM
     1549                            *                       48         50        STANDARD TEST DECK
     1550                            *                       52          2        OPERATOR LOADS A PREPUNCHED
     1551                            *                                             DECK INTO THE PUNCH
     1552                            *
     1553                            *     MODEL 7165        36          2        BLANK
     1554                            *                       37          4        BLANK
     1555                            *                       38         10        BLANK(COMMAND CHAINED) *A01
     1556                            *                       40         10        DOUBLE CHECKERBOARD
     1557                            *                       43         80        ALL ROWS OF A COLUMN
     1558                            *                       44         12        ALL COLUMNS OF A ROW
     1559                            *                       45         10        RANDOM
     1560                            *                       46          8        RANDOM (4 OFFSET STACKED)
     1561                            *                       48         50        STANDARD TEST DECK
     1562                            *
     1563                            *   CARDS READ (ALL MODELS):
     1564                            *   ------------------------
     1565                            *
     1566                            *                    SUBTEST     NUMBER     PATTERN
     1567                            *
     1568                            *                       36          2        BLANK
     1569                            *                       37          4        BLANK
     1570                            *                       38         12        BLANK (COMMAND CHAINED)
     1571                            *                       41         10        DOUBLE CHECKERBOARD
     1572                            *                       49         50        50-CARD TEST DECK
     1573                            *                       50          1        INVALID-CODED EBCDIC CARD
     1574                            *                       51          1        MODE SWITCHING CARD
     1575                            *
     1576                            *
     1577                            *
     1578                            * DEVICE ORDERS:
     1579                            * --------------
     1580                            *
     1581                            *   CARD PUNCH ORDERS:
     1582                            *   ------------------
     1583                            *
     1584                            *    MODEL 7160 (EBCDIC)
     1585                            *    ----------
     1586                            *    X'05'  STACK CARD IN NORMAL STACKER.
     1587                            *    X'0D'  IF NO ERROR, STACK CARD IN NORMAL STACKER - ON ERROR,
     1588                            *           STACK CARD IN ALTERNATE STACKER.
     1589                            *    X'15'  STACK CARD IN ALTERNATE STACKER.
     1590                            *    X'1D'  STACK CARD IN ALTERNATE STACKER.
     1591                            *
     1592                            *    MODEL 7160 (BINARY)
     1593                            *    ----------
     1594                            *    X'01'  STACK CARD IN NORMAL STACKER.
     1595                            *    X'09'  IF NO ERROR, STACK CARD IN NORMAL STACKER - ON ERROR,
     1596                            *           STACK CARD IN ALTERNATE STACKER.
     1597                            *    X'11'  STACK CARD IN ALTERNATE STACKER.
     1598                            *    X'19'  STACK CARD IN ALTERNATE STACKER.
     1599                            *
     1600                            *    MODEL 7165 (EBCDIC)
     1601                            *    ----------
     1602                            *    X'05'  STACK CARD NORMALLY.
     1603                            *    X'45'  STACK CARD NORMALLY AND
     1604                            *           INTERRUPT AT DATA TRANSMISSION COMPLETE.
     1605                            *    X'0D'  OFFSET STACK ON ERROR.
     1606                            *    X'4D'  OFFSET STACK ON ERROR AND
     1607                            *           INTERRUPT AT DATA TRANSMISSION COMPLETE.
     1608                            *    X'15'  OFFSET STACK.
     1609                            *    X'1D'  OFFSET STACK.
     1610                            *    X'55'  OFFSET STACK AND
     1611                            *           INTERRUPT AT DATA TRANSMISSION COMPLETE.
     1612                            *    X'5D'  OFFSET STACK AND
     1613                            *           INTERRUPT AT DATA TRANSMISSION COMPLETE.
     1614                            *
     1615                            *    MODEL 7165 (BINARY)
     1616                            *    ----------
     1617                            *    X'01'  STACK CARD NORMALLY.
     1618                            *    X'41'  STACK CARD NORMALLY AND
     1619                            *           INTERRUPT AT DATA TRANSMISSION COMPLETE.
     1620                            *    X'09'  OFFSET STACK ON ERROR.
     1621                            *    X'49'  OFFSET STACK ON ERROR AND
     1622                            *           INTERRUPT AT DATA TRANSMISSION COMPLETE.
     1623                            *    X'11'  OFFSET STACK.
     1624                            *    X'19'  OFFSET STACK.
     1625                            *    X'51'  OFFSET STACK AND
     1626                            *           INTERRUPT AT DATA TRANSMISSION COMPLETE.
     1627                            *    X'59'  OFFSET STACK AND
     1628                            *           INTERRUPT AT DATA TRANSMISSION COMPLETE.
     1629                            *
     1630                            *   CARD READER ORDERS:
     1631                            *   -------------------
     1632                            *
     1633                            *    MODEL 7120 (EBCDIC)                    MODEL 7140 (EBCDIC)
     1634                            *    ----------                             ----------
     1635                            *
     1636                            *    X'06'  STACK CARD IN                   STACK CARD IN
     1637                            *           NORMAL STACKER.                 NORMAL STACKER.
     1638                            *    X'16'  STACK CARD IN                   STACK CARD IN
     1639                            *           ALTERNATE STACKER 1.            ALTERNATE STACKER.
     1640                            *    X'36'  STACK CARD IN                   STACK CARD IN
     1641                            *           ALTERNATE STACKER 2.            NORMAL STACKER.
     1642                            *    X'0E'  IF NO VALIDITY ERROR OR         IF NO VALIDITY ERROR OR
     1643                            *           DATA OVERRUN OCCURS,            DATA OVERRUN OCCURS,
     1644                            *           STACK CARD IN NORMAL            STACK CARD IN NORMAL
     1645                            *           STACKER; IF VALIDITY ERROR      STACKER; IF VALIDITY ERROR
     1646                            *           OR DATA OVERRUN OCCURS,         OR DATA OVERRUN OCCURS,
     1647                            *           STACK CARD IN ALTERNATE         STACK CARD IN ALTERNATE
     1648                            *           STACKER 2.                      STACKER.
     1649                            *    X'1E'  IF NO VALIDITY ERROR OR         IF NO VALIDITY ERROR OR
     1650                            *           DATA OVERRUN OCCURS,            DATA OVERRUN OCCURS,
     1651                            *           STACK CARD IN ALTERNATE         STACK CARD IN NORMAL
     1652                            *           STACKER 1; IF VALIDITY          STACKER; IF VALIDITY ERROR
     1653                            *           ERROR OR DATA OVERRUN           OR DATA OVERRUN OCCURS,
     1654                            *           OCCURS, STACK CARD IN           STACK CARD IN ALTERNATE
     1655                            *           ALTERNATE STACKER 2.            STACKER.
     1656                            *    X'3E'  STACK CARD IN ALTERNATE         STACK CARD IN NORMAL
     1657                            *           STACKER 2.                      STACKER.
     1658                            *
     1659                            *    NOTE:  MODEL'S 7121 AND 7122 ACCEPT ALL THE ABOVE ORDERS,
     1660                            *           BUT OFFER NO ALTERNATE STACKING.
     1661                            *
     1662                            *    MODEL 7120 (BINARY)                    MODEL 7140 (BINARY)
     1663                            *    ----------                             ----------
     1664                            *    X'02'  STACK CARD IN                   STACK CARD IN
     1665                            *           NORMAL STACKER.                 NORMAL STACKER.
     1666                            *    X'12'  STACK CARD IN                   STACK CARD IN
     1667                            *           ALTERNATE STACKER 1.            ALTERNATE STACKER.
     1668                            *    X'32'  STACK CARD IN                   STACK CARD IN
     1669                            *           ALTERNATE STACKER 2.            ALTERNATE STACKER.
     1670                            *    X'0A'  IF NO DATA OVERRUN OCCURS,      IF NO DATA OVERRUN OCCURS,
     1671                            *           STACK CARD IN NORMAL            STACK CARD IN NORMAL
     1672                            *           STACKER; IF DATA OVERRUN        STACKER; IF DATA OVERRUN
     1673                            *           OCCURS, STACK CARD IN           OCCURS, STACK CARD IN
     1674                            *           ALTERNATE STACKER 2.            ALTERNATE STACKER.
     1675                            *    X'1A'  IF NO DATA OVERRUN OCCURS,      IF NO DATA OVERRUN OCCURS,
     1676                            *           STACK CARD IN ALTERNATE         STACK CARD IN NORMAL
     1677                            *           STACKER 1; IF DATA OVERRUN      STACKER; IF DATA OVERRUN
     1678                            *           OCCURS,STACK CARD IN            OCCURS,STACK CARD IN
     1679                            *           ALTERNATE STACKER 2.            ALTERNATE STACKER.
     1680                            *    X'3A'  STACK CARD IN ALTERNATE         STACK CARD IN NORMAL
     1681                            *           STACKER 2.                      STACKER.
     1682                            *
     1683                            *    NOTE:  MODEL'S 7121 AND 7122 ACCEPT ALL THE ABOVE ORDERS,
     1684                            *           BUT OFFER NO ALTERNATE STACKING.
     1685                            *
     1686                            * STATUS BITS FOR I/O INSTRUCTIONS.
     1687                            * ---------------------------------
     1688                            *
     1689                            *       DEVICE           OPERATIONAL
     1690                            *    STATUS BYTE         STATUS BYTE     SIGNIFICANCE FOR
     1691                            * 0 1 2 3   4 5 6 7   0 1 2 3   4 5 6 7  SIO,HIO, AND TIO       TDV
     1692                            * -----------------   -----------------  ----------------  -------------
     1693                            *
     1694                            * 1 - - -   - - - -   - - - -   - - - -  DEV INTR PENDING  DATA OVERRUN
     1695                            * - 0 0 -   - - - -   - - - -   - - - -  DEV READY               *
     1696                            * - 0 1 -   - - - -   - - - -   - - - -  DEV NOT OPER            *
     1697                            * - 1 0 -   - - - -   - - - -   - - - -  DEV UNAVAILABLE         *
     1698                            * - 1 1 -   - - - -   - - - -   - - - -  DEV BUSY                *
     1699                            * - - - 0   - - - -   - - - -   - - - -  DEV MANUAL           UNIQUE
     1700                            * - - - 1   - - - -   - - - -   - - - -  DEV AUTOMATIC        TO THE
     1701                            *                                                             DEVICE
     1702                            * - - - -   1 - - -   - - - -   - - - -  DEV UNUSUAL END      AND THE
     1703                            * - - - -   - 0 0 -   - - - -   - - - -  DEV CNTR READY       DEVICE
     1704                            * - - - -   - 0 1 -   - - - -   - - - -  DEV CNTR NO OPER      CNTR
     1705                            * - - - -   - 1 0 -   - - - -   - - - -  DEV CNTR UNAVAIL        *
     1706                            * - - - -   - 1 1 -   - - - -   - - - -  DEV CNTR BUSY           *
     1707                            * - - - -   - - - 0   - - - -   - - - -  UNASSIGNED              *
     1708                            *
     1709                            * - - - -   - - - -   1 - - -   - - - -  INCORRECT LENGTH        /
     1710                            * - - - -   - - - -   - 1 - -   - - - -  TRANS DATA ERROR        /
     1711                            * - - - -   - - - -   - - 1 -   - - - -  TRANS MEM ERROR       SAME
     1712                            * - - - -   - - - -   - - - 1   - - - -  MEM ADDR ERROR       AS FOR
     1713                            *                                                              SIO,
     1714                            * - - - -   - - - -   - - - -   1 - - -  IOP MEM ERROR         HIO,
     1715                            * - - - -   - - - -   - - - -   - 1 - -  IOP CONTL ERROR       TIO
     1716                            * - - - -   - - - -   - - - -   - - 1 -  IOP HALT                /
     1717                            * - - - -   - - - -   - - - -   - - - 1  SELECTOR IOP BUSY       /
     1718                            *
     1719                            *
     1720                            *       DEVICE           OPERATIONAL
     1721                            *    STATUS BYTE         STATUS BYTE     SIGNIFICANCE FOR
     1722                            * 0 1 2 3   4 5 6 7   0 1 2 3   4 5 6 7        AIO
     1723                            * -----------------   -----------------  ----------------
     1724                            *
     1725                            * 1 - - -   - - - -   - - - -   - - - -  DATA OVERRUN
     1726                            * - 1 - -   - - - -   - - - -   - - - -         *
     1727                            * - - 1 -   - - - -   - - - -   - - - -         *
     1728                            * - - - 1   - - - -   - - - -   - - - -         *
     1729                            *                                        UNIQUE TO THE DEVICE AND
     1730                            * - - - -   1 - - -   - - - -   - - - -  DEVICE CONTROLLER
     1731                            * - - - -   - 1 - -   - - - -   - - - -         *
     1732                            * - - - -   - - 1 -   - - - -   - - - -         *
     1733                            * - - - -   - - - 1   - - - -   - - - -         *
     1734                            *
     1735                            * - - - -   - - - -   1 - - -   - - - -  INCORRECT LENGTH
     1736                            * - - - -   - - - -   - 1 - -   - - - -  TRANS DATA ERROR
     1737                            * - - - -   - - - -   - - 1 -   - - - -  ZERO BC INTERRUPT
     1738                            * - - - -   - - - -   - - - 1   - - - -  CHANNEL END INTERRUPT
     1739                            *
     1740                            * - - - -   - - - -   - - - -   1 - - -  UNUSUAL END INTERRUPT
     1741                            * - - - -   - - - -   - - - -   - 1 - -  UNASSIGNED
     1742                            * - - - -   - - - -   - - - -   - - 1 -  UNASSIGNED
     1743                            * - - - -   - - - -   - - - -   - - - 1  UNASSIGNED
     1744                            *
     1745                            *
     1746                            * TDV DEVICE STATUS BITS:
     1747                            * -----------------------
     1748                            *
     1749                            *   MODEL 7160-1 CARD PUNCH
     1750                            *                  BIT  DESCRIPTION
     1751                            *                   0   DATA OVERRUN
     1752                            *                   1   UNASSIGNED
     1753                            *                   2   READ CHECK
     1754                            *                   3   PARITY ERROR
     1755                            *                   4   ROW 15 TIME
     1756                            *                   5   TEST SWITCH
     1757                            *                   6-7 UNASSIGNED
     1758                            *
     1759                            *
     1760                            *   MODEL 7160-2 CARD PUNCH
     1761                            * TDV SET 1 - NORMAL TDV STATUS     TDV SET 2 - ROW,SKIP,DECODE
     1762                            *   BIT 0  DATA OVERRUN               BIT 0  ROW COUNTER   RCTD  (MSB)
     1763                            *   BIT 1  (UNUSED)                   BIT 1                RCTC
     1764                            *   BIT 2  READ CHECK                 BIT 2                RCTB
     1765                            *   BIT 3  PARITY ERROR               BIT 3                RCTA  (LSB)
     1766                            *   BIT 4  ROW 15 TIME                BIT 4  SKIP COUNTER  SCTA
     1767                            *   BIT 5  TEST SWITCH                BIT 5                SCTB
     1768                            *   BIT 6  (UNUSED)                   BIT 6  BINARY DECODE DATAB
     1769                            *   BIT 7  (UNUSED)                   BIT 7  EBCDIC DECODE DATAE
     1770                            *
     1771                            * TDV SET 3 - PUNCH/READ/VERIF.     TDV SET 4 - DATA BUFFER
     1772                            *   BIT 0  PUNCH REGISTER  PRO1       BIT 0  DATA BUFFER DB0 (MSB)
     1773                            *   BIT 1  READ REGISTER   RR01       BIT 1              DB1
     1774                            *   BIT 2  READ VERIF.BUF  RVCB4      BIT 2              DB2
     1775                            *   BIT 3                  RVCB3      BIT 3              DB3
     1776                            *   BIT 4                  RVCB2      BIT 4              DB4
     1777                            *   BIT 5                  RVCB1      BIT 5              DB5
     1778                            *   BIT 6  MOTOR SPEED     MOTSP      BIT 6              DB6
     1779                            *   BIT 7  CHAINING MOD.              BIT 7              DB7 (LSB)
     1780                            *
     1781                            *   MODEL 7165 CARD PUNCH
     1782                            *                  BIT  DESCRIPTION
     1783                            *                   0   DATA OVERRUN
     1784                            *                   1   UNASSIGNED
     1785                            *                   2   PUNCH ERROR
     1786                            *                   3-7 UNASSIGNED
     1787                            *
     1788                            *   CARD READERS
     1789                            *                  BIT  DESCRIPTION
     1790                            *                   0   DATA OVERRUN
     1791                            *                   1-7 UNASSIGNED
     1792                            *
     1793                            *
     1794                            * AIO DEVICE STATUS BITS
     1795                            * ----------------------
     1796                            *
     1797                            *   MODEL 7160-1 CARD PUNCH
     1798                            *                  BIT  DESCRIPTION
     1799                            *                   0   DATA OVERRUN
     1800                            *                   1-6 UNASSIGNED
     1801                            *                   7   STOP ORDER INTERRUPT
     1802                            *
     1803                            *   MODEL 7165 CARD PUNCH
     1804                            *                  BIT  DESCRIPTION
     1805                            *                   0   DATA OVERRUN
     1806                            *                   1-7 UNASSIGNED
     1807                            *
     1808                            *   CARD READERS
     1809                            *                  BIT  DESCRIPTION
     1810                            *                   0   DATA OVERRUN
     1811                            *                   1-7 UNASSIGNED
     1812                            *
     1813                            *
     1814         00000000           R0       EQU      0
     1815         00000001           R1       EQU      1
     1816         00000002           R2       EQU      2
     1817         00000003           R3       EQU      3
     1818         00000004           R4       EQU      4
     1819         00000005           R5       EQU      5
     1820         00000006           R6       EQU      6
     1821         00000007           R7       EQU      7
     1822         00000008           R8       EQU      8
     1823         00000009           R9       EQU      9
     1824         0000000A           R10      EQU      X'A'
     1825         0000000B           R11      EQU      X'B'
     1826         0000000C           R12      EQU      X'C'
     1827         0000000D           R13      EQU      X'D'
     1828         0000000E           R14      EQU      X'E'
     1829         0000000F           R15      EQU      X'F'
     1830   01 00200                          ORG      X'200'
            01 00200
     1831                            *
     1832                            * PROCEDURE
     1833                            *
     1834         00000000           :TSEQ    CNAME
     1835                                     PROC
     1836                            LF       EQU      %
     1837                            I        SET 1
     1838                                     DO       NUM(AF)/4+1
     1839                                     GEN,8,8,8,8  AF(I),AF(I+1),AF(I+2),AF(I+3)
     1840                            I        SET      I+4
     1841                                     FIN
     1842                                     PEND
     1843                            *
     1844                            *
     1845                            *        PROCEDURE
     1846                            *
     1847         00000000           :TSEQEQU CNAME
     1848                                     PROC
     1849                            LF(1)    EQU      AF(1)
     1850                            LF(2)    EQU      AF(1)+1
     1851                            LF(3)    EQU      AF(1)+2
     1852                            LF(4)    EQU      AF(1)+3
     1853                            LF(5)    EQU      AF(1)+4
     1854                            LF(6)    EQU      AF(1)+5
     1855                            LF(7)    EQU      AF(1)+6
     1856                            LF(8)    EQU      AF(1)+7
     1857                                     PEND
     1858                            *                                                                   *A02
     1859                            * PROCEDURE FOR GENERATING NEW OR OLD VERSION OF THIS PROGRAM       *A02
     1860                            *                                                                   *A02
     1861         00000000           WAITPROC CNAME                                                      *A02
     1862                                     PROC                                                       *A02
     1863                                     GOTO,DPM OLD,NEW                                           *A02
     1864                            OLD      SET X                                                      *A02
     1865                            LF       WAIT     %                 OLD VERSION                     *A02
     1866                                     B        %+1                                               *A02
     1867                                     GOTO     WAITPRO1                                          *A02
     1868                            NEW      SET 1                                                      *A02
     1869                            LF       BAL,15   *:MLT+43          NEW VERSION                     *A02
     1870                                     DATA     AF(1)                                             *A02
     1871                            WAITPRO1 PEND                                                       *A02
     1872                            *
     1873                            *  PROCEDURES
     1874                            *  ----------
     1875                            *
     1876                            *  PROCEDURE  FOR GENERATING DICTONARY DOUBLE WORDS
     1877                            *
     1878         00000000           :PROCDIC CNAME
     1879                                     PROC
     1880                            LF       GEN,32,3,3,3,3,4,16  AF(1),ABSVAL(AF(2)),ABSVAL(AF(3)),;
     1881                                                          ABSVAL(AF(4)),ABSVAL(AF(5)),;
     1882                                                          ABSVAL(AF(6)),ABSVAL(AF(7))
     1883                                     PEND
     1884                            *
     1885                            ************************************************************************
     1886                            ************************************************************************
     1887                            **       TO FACILITATE THE TYPING OUT OF CHANGES MADE TO
     1888                            **       THIS PROGRAM A PROCEDURE CALLED BY 'REV' IS USED.
     1889                            **
     1890                            **       METHOD:
     1891                            **                1. USE 'REV' AS A COMMAND, IT OPERATES
     1892                            **                 SIMILAR TO A TEXTC DIRECTIVE.
     1893                            **                2. A LABEL OF '' REVISION '' MUST BE USED
     1894                            **                 WITH THE FIRST CALL OF '' REV ''.
     1895                            **                3. A LABEL OR '' REVEND '' MUST BE USED
     1896                            **                 WITH THE LAST CALL OF '' REV ''.
     1897                            **
     1898                            **       WHEN USED CORRECTLY, '' REV '' WILL GENERATE ALL OF THE
     1899                            **       NECESSARY CODE TO TYPE THE REVISIONS MADE.
     1900                            **
     1901                            **       EXAMPLE:
     1902                            **
     1903                            **         CSECT
     1904                            **         ORG     X'(A LOCATION PAST THE LAST LITERAL)'
     1905                            **REVISION REV     'REVISION XXX'
     1906                            **REVEND   REV     'NO CHANGES TO THE OPERATING PROCEDURES'
     1907                            **         USECT       (PREVIOUSLY DEFINED LABEL)
     1908                            **
     1909                            ** NOTE: THIS PROCEDURE GENERATES 2 MORE LITERALS
     1910                            ************************************************************************
     1911                            ************************************************************************
     1912         00000000           REVCOUNT SET      0
     1913         00000000           REVSTART SET      0
     1914                            *
     1915         00000000           REV      CNAME
     1916                                     PROC
     1917                                     DO       REVCOUNT=0
     1918                            REVSTART SET      %
     1919                            LF       RES      1
     1920                                     FIN
     1921                            REVCOUNT SET      REVCOUNT+1
     1922                                     DO       SCOR(LF,REVEND)
     1923                                     TEXTC    AF
     1924                                     CODE
     1925                                     ORG      REVSTART
     1926                                     GEN,32   REVCOUNT
     1927                                     ELSE
     1928                                     TEXTC    AF
     1929                                     FIN
     1930                                     PEND
     1931                            *
     1932         00000000           CODE     CNAME
     1933                                     PROC
     1934                            REVPRINT LW,3     REVISION
     1935                                     LW,4     =REVISION+1
     1936                                     STW,4    TEXTADR
     1937                            PRINT    BAL,15   *:PRINT
     1938                            TEXTADR  DATA     0
     1939                                     LB,5     *4
     1940                                     AI,5     4
     1941                                     SLS,5    -2
     1942                                     AW,4     5
     1943                                     BDR,3    PRINT-1
     1944                                     LW,4     NOP
     1945                                     STW,4    REVBRNCH
     1946                                     B        *%-1
     1947                            NOP      NOP
     1948                                     PEND
     1949                            ************************************************************************
     1950                            ************************************************************************
     1951                            **                REVISIONS GO HERE
     1952                            ************************************************************************
     1953                            ************************************************************************
     1954   01 02E00                          ORG      X'2E00'
            01 02E00
     1955   01 02E01    2BE3D640 A   REVISION REV      'TO INHIBIT PRINTOUT OF THIS MESSAGE,SET SS4'
            01 02E02    C9D5C8C9 A
            01 02E03    C2C9E340 A
            01 02E04    D7D9C9D5 A
            01 02E05    E3D6E4E3 A
            01 02E06    40D6C640 A
            01 02E07    E3C8C9E2 A
            01 02E08    40D4C5E2 A
            01 02E09    E2C1C7C5 A
            01 02E0A    6BE2C5E3 A
            01 02E0B    40E2E2F4 A
     1956   01 02E0C    21E3C8C5 A            REV      'THE PROGRAM MAINTAINS DATA ON TWO'
            01 02E0D    40D7D9D6 A
            01 02E0E    C7D9C1D4 A
            01 02E0F    40D4C1C9 A
            01 02E10    D5E3C1C9 A
            01 02E11    D5E240C4 A
            01 02E12    C1E3C140 A
            01 02E13    D6D540E3 A
            01 02E14    E6D64040 A
     1957   01 02E15    24C4C5E5 A            REV      'DEVICES SIMULTANEOUSLY: A CARD PUNCH'
            01 02E16    C9C3C5E2 A
            01 02E17    40E2C9D4 A
            01 02E18    E4D3E3C1 A
            01 02E19    D5C5D6E4 A
            01 02E1A    E2D3E87A A
            01 02E1B    40C140C3 A
            01 02E1C    C1D9C440 A
            01 02E1D    D7E4D5C3 A
            01 02E1E    C8404040 A
     1958   01 02E1F    1FC1D5C4 A            REV      'AND A CARD READER. THIS DATA IS'
            01 02E20    40C140C3 A
            01 02E21    C1D9C440 A
            01 02E22    D9C5C1C4 A
            01 02E23    C5D94B40 A
            01 02E24    E3C8C9E2 A
            01 02E25    40C4C1E3 A
            01 02E26    C140C9E2 A
     1959   01 02E27    1EC1D3E3 A            REV      'ALTERED BY THE SYST DIRECTIVE.'
            01 02E28    C5D9C5C4 A
            01 02E29    40C2E840 A
            01 02E2A    E3C8C540 A
            01 02E2B    E2E8E2E3 A
            01 02E2C    40C4C9D9 A
            01 02E2D    C5C3E3C9 A
            01 02E2E    E5C54B40 A
     1960   01 02E2F    0EE2E8E2 A            REV      'SYST DIRECTIVE'
            01 02E30    E340C4C9 A
            01 02E31    D9C5C3E3 A
            01 02E32    C9E5C540 A
     1961   01 02E33    07C6D6D9 A            REV      'FORMAT:'
            01 02E34    D4C1E37A A
     1962   01 02E35    1C40E2E8 A            REV      ' SYST,MODEL,REVISION,ADDRESS'
            01 02E36    E2E36BD4 A
            01 02E37    D6C4C5D3 A
            01 02E38    6BD9C5E5 A
            01 02E39    C9E2C9D6 A
            01 02E3A    D56BC1C4 A
            01 02E3B    C4D9C5E2 A
            01 02E3C    E2404040 A
     1963   01 02E3D    23E3D640 A            REV      'TO AVOID EXERCISING A DEVICE, ENTER'
            01 02E3E    C1E5D6C9 A
            01 02E3F    C440C5E7 A
            01 02E40    C5D9C3C9 A
            01 02E41    E2C9D5C7 A
            01 02E42    40C140C4 A
            01 02E43    C5E5C9C3 A
            01 02E44    C56B40C5 A
            01 02E45    D5E3C5D9 A
     1964   01 02E46    20C140E2 A            REV      'A SYST DIRECTIVE WITH AN ADDRESS'
            01 02E47    E8E2E340 A
            01 02E48    C4C9D9C5 A
            01 02E49    C3E3C9E5 A
            01 02E4A    C540E6C9 A
            01 02E4B    E3C840C1 A
            01 02E4C    D540C1C4 A
            01 02E4D    C4D9C5E2 A
            01 02E4E    E2404040 A
     1965   01 02E4F    0DD6C640 A            REV      'OF -FFFFFFFF-'
            01 02E50    60C6C6C6 A
            01 02E51    C6C6C6C6 A
            01 02E52    C6604040 A
     1966   01 02E53    13C1D7D7 A            REV      'APPLICABLE DEVICES:'
            01 02E54    D3C9C3C1 A
            01 02E55    C2D3C540 A
            01 02E56    C4C5E5C9 A
            01 02E57    C3C5E27A A
     1967   01 02E58    0E40C3C1 A            REV      ' CARD PUNCHES:'
            01 02E59    D9C440D7 A
            01 02E5A    E4D5C3C8 A
            01 02E5B    C5E27A40 A
     1968   01 02E5C    164040F7 A            REV      '  7160-1, 7160-2, 7165'
            01 02E5D    F1F6F060 A
            01 02E5E    F16B40F7 A
            01 02E5F    F1F6F060 A
            01 02E60    F26B40F7 A
            01 02E61    F1F6F540 A
     1969   01 02E62    0E40C3C1 A            REV      ' CARD READERS:'
            01 02E63    D9C440D9 A
            01 02E64    C5C1C4C5 A
            01 02E65    D9E27A40 A
     1970   01 02E66    184040F7 A            REV      '  7120, 7121, 7122, 7140'                        *A01
            01 02E67    F1F2F06B A
            01 02E68    40F7F1F2 A
            01 02E69    F16B40F7 A
            01 02E6A    F1F2F26B A
            01 02E6B    40F7F1F4 A
            01 02E6C    F0404040 A
     1971   01 02E6D    0DD9C5E5 A            REV      'REVISION A04:'                                   *A04
            01 02E6E    C9E2C9D6 A
            01 02E6F    D540C1F0 A
            01 02E70    F47A4040 A
     1972   01 02E71    2EC3C8C1 A            REV      'CHANGED TST3 TO PRECLUDE INTERFERENCE PROBLEMS'  *A04
            01 02E72    D5C7C5C4 A
            01 02E73    40E3E2E3 A
            01 02E74    F340E3D6 A
            01 02E75    40D7D9C5 A
            01 02E76    C3D3E4C4 A
            01 02E77    C540C9D5 A
            01 02E78    E3C5D9C6 A
            01 02E79    C5D9C5D5 A
            01 02E7A    C3C540D7 A
            01 02E7B    D9D6C2D3 A
            01 02E7C    C5D4E240 A
     1973   01 02E7D    17C2C5E3 A            REV      'BETWEEN TST1,TST2,TST3.'                         *A04
            01 02E7E    E6C5C5D5 A
            01 02E7F    40E3E2E3 A
            01 02E80    F16BE3E2 A
            01 02E81    E3F26BE3 A
            01 02E82    E2E3F34B A
     1974   01 02E83    0DD9C5E5 A            REV      'REVISION A03:'                                   *A03
            01 02E84    C9E2C9D6 A
            01 02E85    D540C1F0 A
            01 02E86    F37A4040 A
     1975   01 02E87    2BC3C8C1 A            REV      'CHANGED IN TST1 FOR CARD READER TO STACK IN'     *A03
            01 02E88    D5C7C5C4 A
            01 02E89    40C9D540 A
            01 02E8A    E3E2E3F1 A
            01 02E8B    40C6D6D9 A
            01 02E8C    40C3C1D9 A
            01 02E8D    C440D9C5 A
            01 02E8E    C1C4C5D9 A
            01 02E8F    40E3D640 A
            01 02E90    E2E3C1C3 A
            01 02E91    D240C9D5 A
     1976   01 02E92    0ED5D6D9 A            REV      'NORMAL STACKER'                                  *A03
            01 02E93    D4C1D340 A
            01 02E94    E2E3C1C3 A
            01 02E95    D2C5D940 A
     1977   01 02E96    2FD9C5E5 A            REV      'REVISION A02 (11/27/71) CHANGES MADE TO INCLUDE' *A02
            01 02E97    C9E2C9D6 A
            01 02E98    D540C1F0 A
            01 02E99    F2404DF1 A
            01 02E9A    F161F2F7 A
            01 02E9B    61F7F15D A
            01 02E9C    40C3C8C1 A
            01 02E9D    D5C7C5E2 A
            01 02E9E    40D4C1C4 A
            01 02E9F    C540E3D6 A
            01 02EA0    40C9D5C3 A
            01 02EA1    D3E4C4C5 A
     1978   01 02EA2    2CE3C8C5 A            REV      'THE USE OF REMOTE DIAGNOSTIC PROGRAM MONITOR'    *A02
            01 02EA3    40E4E2C5 A
            01 02EA4    40D6C640 A
            01 02EA5    D9C5D4D6 A
            01 02EA6    E3C540C4 A
            01 02EA7    C9C1C7D5 A
            01 02EA8    D6E2E3C9 A
            01 02EA9    C340D7D9 A
            01 02EAA    D6C7D9C1 A
            01 02EAB    D440D4D6 A
            01 02EAC    D5C9E3D6 A
            01 02EAD    D9404040 A
     1979   01 02EAE    10C6D6D9 A            REV      'FOR THIS PROGRAM'                                *A02
            01 02EAF    40E3C8C9 A
            01 02EB0    E240D7D9 A
            01 02EB1    D6C7D9C1 A
            01 02EB2    D4404040 A
     1980   01 02EB3    01404040 A   REVEND   REV      ' '                                               *A02
            01 02EB4    32302E00
            01 02EB5    32401EDE 02
            01 02EB6    35402EB8
            01 02EB7    EAF0021C A
            01 02EB8    00000000 A
            01 02EB9    F2500004 A
            01 02EBA    20500004 A
            01 02EBB    2550007E A
            01 02EBC    30400005 A
            01 02EBD    64302EB6
            01 02EBE    32402EC1
            01 02EBF    35400395 02
            01 02EC0    E8002EBF
            01 02EC1    02000000 A
            01 02E00    0000001A A
     1981         00000002           DPM      EQU      2                                                 *A02
     1982                            *
     1983                            *  MONITOR LINK TABLE
     1984                            *  ------------------
     1985                            *                     THIS TABLE IS LOADED BY THE MONITOR FOR THE
     1986                            *  PURPOSE OF ESTABLISHING COMMUNICATIONS BETWEEN THE TEST PROGRAM AND
     1987                            *  THE MONITOR (DPM).
     1988                            *
     1989   00 00000                 ASECTMLT ASECT
     1990   00 00200                          ORG      X'200'
            00 00200
     1991                            *
     1992         00 00200           :MLT     EQU      %                 ABSOLUTE RECOVERY LOCATION
     1993         00 00201           :P1      EQU      :MLT+1            DIRECTIVE PARAMETER 1
     1994         00 00202           :P2      EQU      :MLT+2            DIRECTIVE PARAMETER 2
     1995         00 00203           :P3      EQU      :MLT+3            DIRECTIVE PARAMETER 3
     1996         00 00204           :P4      EQU      :MLT+4            DIRECTIVE PARAMETER 4
     1997         00 0020F           :DUMP    EQU      :MLT+15           ADDR OF MEMORY DUMP ROUTINE
     1998         00 00211           :PSW     EQU      :MLT+17           PARAMETER STATUS WORD
     1999         00 00213           :BCDC    EQU      :MLT+19           ADDR OF BCD FORMAT CONVERSION
     2000         00 00214           :MONITOR EQU      :MLT+20           DIRECTIVE RETURN ADDRESS
     2001                            *                                                                   *A01
     2002         00 00216           :BINC    EQU      :MLT+22           ADDR OF BINARY FORMAT CONVERSION R
     2003         00 00217           :DECC    EQU      :MLT+23           ADDR OF DECIMAL FORMAT CONVERSION
     2004         00 00218           :HEXC    EQU      :MLT+24           ADDR OF HEXADEC FORMAT CONVERSION
     2005         00 00219           :1BYTEIN EQU      :MLT+25           ADDR OF 1 BYTE INPUT ROUTINE
     2006         00 0021A           :CURBCNT EQU      :MLT+26           CURRENT BYTE COUNT
     2007         00 0021B           :ERROR   EQU      :MLT+27           ADDR OF ERROR REPORT ROUTINE
     2008         00 0021C           :PRINT   EQU      :MLT+28           ADDR OF MESSAGE PRINT ROUTINE
     2009         00 0021D           :SENSE   EQU      :MLT+29           ADDR OF SENSE SWITCH 1,3 TESTS
     2010         00 0021E           :MONWAIT EQU      :MLT+30           MONITOR WAIT
     2011         00 0021F           :MRECOVR EQU      :MLT+31           BRANCH TO ABSOLUTE RECOVERY LOCATION
     2012         00 00220           :MSGOUT  EQU      :MLT+32           MSG OUTPUT DEVICE, TYPE AND ADDR
     2013         00 00221           :MSGIN   EQU      :MLT+33           MSG INPUT DEVICE, TYPE AND ADDR
     2014         00 00222           :LOADIN  EQU      :MLT+34           ADDR OF INITIAL LOADING DEVICE
     2015         00 00223           :TYPRINT EQU      :MLT+35           TELETYPE PRINT ROUTINE          *A01
     2016         00 00224           :KSRADR  EQU      :MLT+36           KEYBOARD/PRINTER DEVICE ADDR X'001
     2017         00 00225           :MACHINE EQU      :MLT+37           MACHINE TYPE CODE
     2018         00 00226           :RELBIAS EQU      :MLT+38           RELOCATION BIAS OF DPM          *A01
     2019         00 00227           :RLOADER EQU      :MLT+39           ADDR OF RESIDENT LOADER
     2020                            *                                                                   *A01
     2021         00 00229           :PREPORT EQU      :MLT+41           ADDR OF PARAMETER ERROR REPORT
     2022         00 0022A           :QSENSE  EQU      :MLT+42             QUICK SENSE                   *A02
     2023         00 0022B           :WAIT    EQU      :MLT+43           WAIT SUBROUTINE                 *A02
     2024         00 0022C           :DICINDX EQU      :MLT+44           ADDR OF DICTIONARY INDEX
     2025         00 0022D           :DICILEN EQU      :MLT+45           LENGTH OF DICTIONARY INDEX
     2026         00 0022E           :MEMSIZE EQU      :MLT+46           SYSTEM MEMORY SIZE
     2027         00 0022F           :MEMLAST EQU      :MLT+47           ADDR OF LAST USABLE MEMORY LOCATIO
     2028         00 00230           :MONIOBF EQU      :MLT+48           ADDR OF MONITOR IO BUFFER
     2029         00 00231           :MONPBF  EQU      :MLT+49           40-WORD PARAMETER BUFFER        *A01
     2030         00 00237           :REMOTE  EQU      :MLT+55           CONNECT REMOTE ROUTINE          *A02
     2031         00 00240           :MLTEND  EQU      :MLT+64           LAST LOCATION OF MONITOR LINK TABL
     2032                            *
     2033                            *  PROGRAM INTERFACE TABLE
     2034                            *  -----------------------
     2035                            *                          THIS TABLE IS LOADED BY THE TEST PROGRAM FOR
     2036                            *  THE PURPOSE OF ESTABLISHING COMMUNICATIONS BETWEEN THE MONITOR (DPM)
     2037                            *  AND THE USER PROGRAM.
     2038                            *
     2039   00 00000                 ASECTPIT ASECT
     2040   00 00300                          ORG      X'300'
            00 00300
     2041   00 00300    00000000 A   :PIT0    DATA     0                                                 *A01
     2042   00 00301    00001ECB 02  :PIT1    DATA     :PROGID           ADDR OF PROGRAM ID MESSAGE.
     2043   00 00302    00000320 02  :PIT2    DATA     :DIC              ADDR OF DIRECTIVE DICTIONARY
     2044   00 00303    0000000C A   :PIT3    DATA     :DICEND-:DIC      LENGTH OF DIRECTIVE DICTIONARY
     2045   00 00304    00000391 02  :PIT4    DATA     :RECOVER          ADDR OF ABSOLUTE RECOVERY ROUTINE
     2046   00 00305    0000032C 02  :PIT5    DATA     :CDT              ADDR OF CONTEXT DISCRIPTION TABLE
     2047   00 00306    00000002 A   :PIT6    DATA     :CDTEND-:CDT      LENGTH OF CONTEXT DESCRIPTION TABLE
     2048   00 00307    00000000 A   :PIT7    DATA     0
     2049   00 00308    00000365 02  :PIT8    DATA     :INITIAL          ADDR OF INITIALIZER ROUTINE
     2050   00 00309    00000000 A   :PIT9    DATA     0                 LAST MODEL NUMBER STORED IN CDB
     2051   00 0030A    00000000 A   :PIT10   DATA     0                 PARAMETER NUMBER, PARAMETER IN ERROR
     2052   00 0030B    00000000 A   :PIT11   DATA     0                 ADDR OF MSG TO BE PRINTED AFTER INIT
     2053   00 0030C    00000000 A   :PIT12   DATA     0                 RUN FLAG, RUN PROG IF FLAG = -1
     2054   00 0030D    00000000 A            DATA     0
     2055   00 0030E    00000000 A            DATA     0
     2056   00 0030F    00000000 A   :PIT15   DATA     0                 INTERRUPT/TRAP HANDLER ADDRESS
     2057         00 00310           :PITLAST EQU      %
     2058         00 0031B           :PITEND  EQU      :PIT0+27
     2059         0000000B                    DO       :PITEND-:PITLAST  CLEAR LOCATIONS UP TO PIT27
     2060   00 00310    00000000 A            DATA     0
     2061                                     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
     2062   00 0031B    00002312 02  :PIT27   DATA     USERPROG+1028     END OF USER IO AREA
     2063   00 0031C    00000000 A            DATA     0,0,0,0
            00 0031D    00000000 A
            00 0031E    00000000 A
            00 0031F    00000000 A
     2064                            *
     2065                            *  DIRECTIVE DICTIONARY
     2066                            *  --------------------
     2067                            *                        THIS TABLE SUPPLIES THE MONITOR WITH
     2068                            *  INFORMATION ABOUT EACH DIRECTIVE AVAILABLE IN THE TEST PROGRAM.
     2069                            *  EACH DICTIONARY ENTRY CONSISTS OF 2 WORDS (64 BITS) WHICH ARE
     2070                            *  DEFINED AS FOLLOWS:
     2071                            *
     2072                            *  BITS 00 THRU 31  4 BYTE MNEMONIC IDENTIFIER IN EBCDIC
     2073                            *  BITS 32 THRU 34  TYPE OF CONVERSION FOR PARAMETER 1.
     2074                            *  BITS 35 THRU 37  TYPE OF CONVERSION FOR PARAMETER 2.
     2075                            *  BITS 38 THRU 40  TYPE OF CONVERSION FOR PARAMETER 3.
     2076                            *  BITS 41 THRU 43  TYPE OF CONVERSION FOR PARAMETER 4.
     2077                            *  BITS 44 THRU 47  NOT ASSIGNED; MUST BE EQUAL TO ZERO
     2078                            *  BITS 48 THRU 63  ROUTINE ADDRESS
     2079                            *
     2080                            *  TYPE OF PARAMETER CONVERSION
     2081                            *
     2082                            *  000   HEXADECIMAL CONVERSION
     2083                            *  001   DECIMAL CONVERSION TO BINARY
     2084                            *  002   ALPHANUMERIC
     2085                            *  007   UNASSIGNED
     2086                            *
     2087   02 00000                 CSECTDIC CSECT
     2088   02 00320                          ORG      X'320'
            02 00320
     2089         02 00320           :DIC     EQU      %
     2090   02 00320    E3E2E3F0 A            :PROCDIC 'TST0',7,7,7,7,0,TST0      COMPREHENSIVE
                        FFF0039F
     2091   02 00322    E3E2E3F1 A            :PROCDIC 'TST1',1,1,7,7,0,TST1      FUNCTIONAL TEST
                        27F003C1
     2092   02 00324    E3E2E3F2 A            :PROCDIC 'TST2',1,1,7,7,0,TST2     RANDOM EXERCISER
                        27F010A8
     2093   02 00326    E3E2E3F3 A            :PROCDIC 'TST3',1,0,0,0,0,TST3     UTILITY TESTS
                        200012A6
     2094   02 00328    C4C1E3C1 A            :PROCDIC 'DATA',1,0,0,0,0,:DATA     DATA DIRECTIVE
                        200015A0
     2095   02 0032A    D3C9D4E3 A            :PROCDIC 'LIMT',1,1,1,7,0,:LIMIT    LIMIT DIRECTIVE
                        24F015C4
     2096                            *
     2097         02 0032C           :DICEND  EQU      %
     2098                            *
     2099                            *
     2100                            *  CONTEXT DESCRIPTION TABLE
     2101                            *  -------------------------
     2102                            *                             THE CONTEXT DESCRIPTION TABLE ALLOWS
     2103                            *  THE MONITOR TO PASS-ON ENVIRONMENTAL INFORMATION FROM THE 'SYST'
     2104                            *  DIRECTIVE TO THE TEST PROGRAM. NORMALLY ONLY ONE ENTRY WILL BE
     2105                            *  REQUIRED. EACH CONTEXT DESCRIPTION TABLE ENTRY CONSISTS OF 2 WORDS
     2106                            *  (64 BITS) WHICH ARE DEFINED AS FOLLOWS:
     2107                            *
     2108                            *  BITS 00 THRU 08  LENGTH OF CONTEXT DATA BLOCK
     2109                            *  BITS 09 THRU 27  NOT ASSIGNED; MUST BE EQUAL TO ZERO
     2110                            *  BITS 28 THRU 31  NUMBER OF DEVICE MODEL NUMBERS
     2111                            *  BITS 32 THRU 61  ADDR OF CONTEXT DATA BLOCK
     2112                            *
     2113         02 0032C           :CDT     EQU      :DICEND
     2114   02 0032C    01800006 N            GEN,9,19,4,32 :CDBEND-:CDB,0,:CDBMEND-:CDBM,:CDB
                        00000334
     2115         02 0032E           :CDTEND  EQU      %
     2116                            *
     2117                            *
     2118                            *  CONTEXT DATA BLOCK
     2119                            *  ------------------
     2120                            *                      THE CONTEXT DATA BLOCK CONTAINS ENVIRONMENTAL
     2121                            *  INFORMATION FOR THE TEST PROGRAM.
     2122                            *
     2123         02 0032E           :CDBM    EQU      %
     2124   02 0032E    00001BE4 A            DATA     7140              MODEL 7140 CARD READER
     2125   02 0032F    00001BD2 A            DATA     7122              MODEL 7122 CARD READER
     2126   02 00330    00001BD1 A            DATA     7121              MODEL 7121 CARD READER
     2127   02 00331    00001BD0 A            DATA     7120              MODEL 7120 CARD READER
     2128   02 00332    00001BFD A            DATA     7165              MODEL 7165 CARD PUNCH
     2129   02 00333    00001BF8 A            DATA     7160              MODEL 7160 CARD PUNCH
     2130         02 00334           :CDBMEND EQU      %
     2131                            *
     2132         02 00334           :CDB     EQU      %
     2133   02 00334    00031BF8 A            GEN,16,16 3,7160           PARAMETER COUNT, MODEL NUMBER
     2134   02 00335    00000000 A            DATA     0                 REVISION NUMBER
     2135   02 00336    00000004 A            DATA     4                 DEVICE ADDRESS
     2136                            *
     2137         02 00337           :CDBEND  EQU      %
     2138                            *
     2139                            *
     2140                            *
     2141         02 00337           :CATALOG EQU      %                 PROGRAM CATALOG NUMBER
     2142   02 00337    000AC54E A            DATA     705870
     2143                            *
     2144                            *
     2145                            *        *** CURRENT PUNCH ENVIRONMENT ***
     2146                            *
     2147   02 00338    00001BF8 A   PUNCHMOD DATA     7160              PUNCH MODEL NUMBER
     2148   02 00339    00000000 A   PUNCHREV DATA     0                 PUNCH REVISION LEVEL
     2149   02 0033A    00000004 A   PUNCHADR DATA     4                 PUNCH DEVICE ADDRESS
     2150                            *
     2151                            *        *** CURRENT READER ENVIRONMENT ***
     2152                            *
     2153   02 0033B    00001BD1 A   READRMOD DATA     7121              READER MODEL NUMBER
     2154   02 0033C    00000000 A   READRREV DATA     0                 READER REVISION LEVEL
     2155   02 0033D    00000003 A   READRADR DATA     3                 READER DEVICE ADDRESS

     2157   02 0033E    5051525B A   TSEQ1    :TSEQ    SIOF0,SIOF1,SIOF2,SIOT3,SIOF5,SIOF6,SIOF7
            02 0033F    55565700 A
     2158   02 00340    1011121B A   TSEQ2    :TSEQ    TIOF0,TIOF1,TIOF2,TIOT3,TIOF4,TIOF5,TIOF6,TIOF7
            02 00341    14151617 A
            02 00342    00000000 A
     2159   02 00343    21222324 A   TSEQ3    :TSEQ          OSBF1,OSBF2,OSBF3,OSBF4,OSBF5,OSBF6,OSBF7
            02 00344    25262700 A
     2160   02 00345    10191A1B A   TSEQ4    :TSEQ    TIOF0,TIOT1,TIOT2,TIOT3,TIOF4,TIOT5,TIOT6,TIOF7
            02 00346    141D1E17 A
            02 00347    00000000 A
     2161   02 00348    1011121B A   TSEQ5    :TSEQ    TIOF0,TIOF1,TIOF2,TIOT3,TIOF4,TIOF5,TIOF6,TIOF7,BYT00
            02 00349    14151617 A
            02 0034A    E1000000 A
     2162   02 0034B    28212223 A   TSEQ6    :TSEQ    OSBT0,OSBF1,OSBF2,OSBF3,OSBF4,OSBF5,OSBF6,OSBF7
            02 0034C    24252627 A
            02 0034D    00000000 A
     2163                            TSEQ7    :TSEQ    TIOF0,TIOF1,TIOF2,TIOT3,TIOF4,TIOF5,TIOF6,TIOF7,;
     2164   02 0034E    1011121B A                     OSBF0,OSBF1,OSBF2,OSBF3,OSBF4,OSBF5,OSBF6,OSBF7,BYT00
            02 0034F    14151617 A
            02 00350    20212223 A
            02 00351    24252627 A
            02 00352    E1000000 A
     2165   02 00353    40414243 A   TSEQ8    :TSEQ    TDVF0,TDVF1,TDVF2,TDVF3,TDVF5,TDVF6,TDVF7
            02 00354    45464700 A
     2166   02 00355    1011121B A   TSEQ9    :TSEQ    TIOF0,TIOF1,TIOF2,TIOT3,TIOF5,TIOF6,TIOF7
            02 00356    15161700 A
     2167                            TSEQ10   :TSEQ    TIOF0,TIOF1,TIOF2,TIOT3,TIOF4,TIOF5,TIOF6,TIOF7,;
     2168                                              OSBF0,OSBF1,OSBF2,OSBF3,OSBF4,OSBF5,OSBF6,OSBF7,;
     2169   02 00357    1011121B A                     TDVF0,TDVF1,TDVF3,TDVF4,TDVF5,TDVF6,TDVF7,BYT00
            02 00358    14151617 A
            02 00359    20212223 A
            02 0035A    24252627 A
            02 0035B    40414344 A
            02 0035C    454647E1 A
            02 0035D    00000000 A
     2170                            TSEQ11   :TSEQ    TIOF0,TIOF1,TIOF2,TIOT3,TIOF4,TIOF5,TIOF6,TIOF7,;
     2171                                              OSBF1,OSBF2,OSBF3,OSBF4,OSBF5,OSBF6,OSBF7,;
     2172   02 0035E    1011121B A                     BYT00
            02 0035F    14151617 A
            02 00360    21222324 A
            02 00361    252627E1 A
            02 00362    00000000 A
     2173   02 00363    00000000 A   TST1X1   DATA     0
     2174   02 00364    00000000 A   TST1X2   DATA     0
     2175                            *
     2176                            *
     2177                            *        *** INITIAL - INITIALIZATION ROUTINE ***
     2178                            *
     2179                            * THIS ROUTINE IS ACCESSED BY THE MONITOR AFTER LOADING THE TEST
     2180                            * PROGRAM AND WHENEVER A SYST DIRECTIVE IS EXECUTED BY THE USER.
     2181                            *
     2182   02 00365    35F0038E     :INITIAL STW,15   INITRADR          SAVE RETURN ADDRESS
     2183   02 00366    6AF00237 A            BAL,15   :REMOTE           CONNECT REMOTE                  *A02
     2184   02 00367    6AF00391              BAL,15   :RECOVER          PERFORM RECOVERY PROCEDURE
     2185   02 00368    02200030 A            LCI      3                 LOAD INPUT DATA INTO
     2186   02 00369    2AA00334              LM,10    :CDB                R10 THRU R12
     2187   02 0036A    5130000A A            CH,3     10,0              NO. OF PARAMETERS = 3 ?
     2188   02 0036B    6830036F              BE       INITB             B: YES
     2189   02 0036C    3530030A A            STW,3    :PIT10            SET PARAMETER IN ERROR = 3
     2190   02 0036D    3500030C A   INITA    STW,0    :PIT12            RESET RUN FLAG
     2191   02 0036E    6800038D              B        INITRTN           GO TO RETURN
     2192   02 0036F    52A2000A A   INITB    LH,10    10,1              ELIMINATE NO. OF PARAMETERS
     2193   02 00370    22700006 A            LI,7     6                 SET R7 = 6
     2194   02 00371    31AE032D              CW,10    :CDBM-1,7         C: MODEL NO. TABLE ENTRY
     2195   02 00372    68300376              BE       %+4               B: MATCH FOUND
     2196   02 00373    64700371              BDR,7    %-2               B: NOT ALL TABLE ENTRIES CHECKED
     2197   02 00374    3510030A A            STW,1    :PIT10            SET PARAMETER IN ERROR = 1
     2198   02 00375    6800036D              B        INITA             GO RESET RUN FLAG
     2199   02 00376    21700006 A            CI,7     6                 IS THIS A 7160 PUNCH ?
     2200   02 00377    6930037A              BNE      %+3               B: NO
     2201   02 00378    21B00002 A            CI,11    2                 IS IT AN 02 ?
     2202   02 00379    6930037B              BNE      %+2               B: NO
     2203   02 0037A    207FFFFF A            AI,7     -1                SUBTRACT 1 FROM R7
     2204   02 0037B    31C01EA3              CW,12    KM1               HAS -1 BEEN ENTERED
     2205   02 0037C    68300381              BE       INITC             B: YES - NO DEV ON SYSTEM
     2206   02 0037D    21C00080 A            CI,12    X'80'             TEST FOR SINGLE UNIT DEV ADR
     2207   02 0037E    6940036C              BCS,4    INITA-1           B: NOT A SINGLE UNIT DEV ADR
     2208   02 0037F    21C01B7F A            CI,12    X'1B7F'           TEST FOR MAX ALLOWABLE
     2209   02 00380    6920036C              BG       INITA-1           B: DEV ADR > MAX ALLOWABLE
     2210   02 00381    22600000 A   INITC    LI,6     0                 SET R6 = 0
     2211   02 00382    21700004 A            CI,7     4                 IS THIS A CARD PUNCH ?
     2212   02 00383    68100385              BGE      %+2               B: YES
     2213   02 00384    22600003 A            LI,6     3                 SET R6 = 3
     2214   02 00385    02200030 A            LCI      3
     2215   02 00386    2BAC0338              STM,10   PUNCHMOD,6        STORE PUNCH/READER ENVIRONMENT
     2216   02 00387    3560038F              STW,6    CURREPTR          SAVE CURRENT ENVIRONMENT POINTER
     2217   02 00388    22800001 A            LI,8     1                 SET R8 = 1
     2218   02 00389    A5800007 A            SLS,8    *7                SHIFT LEFT
     2219   02 0038A    35800390              STW,8    DEVPTR            SAVE DEVICE POINTER
     2220   02 0038B    22FFFFFF A            LI,15    -1
     2221   02 0038C    35F0030C A            STW,15   :PIT12            SET RUN FLAG
     2222   02 0038D    E800038E     INITRTN  B        *INITRADR         RETURN
     2223   02 0038E    00000000 A   INITRADR DATA     0                 INITIALIZER RETURN ADDRESS
     2224                            *
     2225   02 0038F    00000000 A   CURREPTR DATA     0                 CURRENT ENVIRONMENT POINTER
     2226   02 00390    00000000 A   DEVPTR   DATA     0                 DEVICE POINTER
     2227                            *
     2228                            *                                                                      *
     2229                            *            *** RECOVER - RECOVERY ROUTINE  ***                       *
     2230                            *                                                                      *
     2231                            *  THE RECOVER ROUTINE RE-INITIALIZES PROGRAM PARAMETERS WHEN THE PCP  *
     2232                            *  INTERRUPT SWITCH IS DEPRESSED.                                      *
     2233                            *                                                                      *
     2234   02 00391    12201E48     :RECOVER LD,2     PSTACKR           INITIALIZE PUBLIC
     2235   02 00392    15201E4A              STD,2    PSTACK              'PUSH-DOWN' STACK
     2236   02 00393    09F01E4A              PSW,15   PSTACK            SAVE RETURN ADDRESS IN STACK
     2237   02 00394    6AF018D1              BAL,15   :INTD             DISARM I/O INTERRUPT
     2238                            *
     2239         02 00395           REVBRNCH EQU      %
     2240         00000000                    DO       REVCOUNT=0
     2241                        *S*          NOP
     2242                                     ELSE
     2243   02 00395    6AF02EB4 01           BAL,15   REVPRINT
     2244                                     FIN
     2245                            *
     2246   02 00396    22000000 A            LI,0     0                 SET R0 = 0
     2247   02 00397    22100001 A            LI,1     1                 SET R1 = 1
     2248   02 00398    22200002 A            LI,2     2                 SET R2 = 2
     2249   02 00399    22300003 A            LI,3     3                 SET R3 = 3
     2250   02 0039A    6D000022 A            WD,0     X'22'             RESET I/O INTERRUPT INHIBIT
     2251   02 0039B    6AF01756              BAL,15   :DELAYD           DISARM COUNTER 4 INTERRUPTS
     2252   02 0039C    6AF0183B              BAL,15   :SAVECLR          CLEAR ERROR REPORT TABLE
     2253   02 0039D    08F01E4A     POP      PLW,15   PSTACK            POP STACK INTO R15
     2254   02 0039E    E800000F A            B        *15               RETURN
     2255                            *
     2256                            *                                                                      *
     2257                            *            *** TST0 - FUNCTIONAL TEST AND RANDOM EXERCISER ***       *
     2258                            *                                                                      *
     2259                            *  THIS DIRECTIVE ALLOWS THE USER TO SPECIFY THE EXECUTION OF THE      *
     2260                            *  FUNCTIONAL TEST, FOLLOWED  IMMEDIATELY BY THE RANDOM EXERCISER.     *
     2261                            *                                                                      *
     2262                            *  P1 THRU P4 ARE NOT USED                                             *
     2263                            *                                                                      *
     2264   02 0039F    22E00000 A   TST0     LI,14    0
     2265   02 003A0    35E003B9              STW,14   TSTFLAG           SET FLAG TO TST0
     2266   02 003A1    35100201 A            STW,1    :P1               STARTING SUBTEST = 1
     2267   02 003A2    22E00034 A            LI,14    52
     2268   02 003A3    35E00202 A            STW,14   :P2               ENDING SUBTEST = 52
     2269   02 003A4    680003C2              B        TST1ALT           PERFORM  TST1
     2270   02 003A5    22E002EE A   TST0A    LI,14    750
     2271   02 003A6    35E00201 A            STW,14   :P1               CARD COUNT = 750
     2272   02 003A7    35200202 A            STW,2    :P2               RETRY COUNT = 2
     2273   02 003A8    6AF0106F              BAL,15   DEVTEST           TEST FOR TYPE OF DEVICE
     2274   02 003A9    680003B4              B        TST0B-1           B: CARD READER
     2275   02 003AA    680003B4              B        TST0B-1           MODEL 7165
     2276   02 003AB    680003AC              B        %+1               B: MODEL 7160-1
     2277   02 003AC    EAF0021C A            BAL,15   *:PRINT           PRINT:
     2278   02 003AD    000003BA              DATA     TST0MSG             'LOAD BLANK CARDS INTO PUNCH'
     2279   02 003AE    3510021A A            STW,1    :CURBCNT
     2280   02 003AF    EAF00219 A            BAL,15   *:1BYTEIN         INPUT CHARACTER
     2281   02 003B0    680003B2              B        %+2               ERROR EXIT                      *A02
     2282   02 003B1    680010A9              B        TST2ALT           NO ERROR                        *A02
     2283   02 003B2    EAF0022B A            WAITPROC WAITMSG2          ERROR HAS OCCURRED              *A02
            02 003B3    00001EC6
     2284   02 003B4    680010A9              B        TST2ALT           PERFORM TST2
     2285   02 003B5    EAF0021D A   TST0B    BAL,15   *:SENSE           TEST SSW 1,3
     2286   02 003B6    2E0003B6              WAIT     %                 WAIT
     2287   02 003B7    6800039F              B        TST0              LOOP
     2288   02 003B8    E8000214 A            B        *:MONITOR         RETURN TO MONITOR
     2289                            *
     2290   02 003B9    00000000 A   TSTFLAG  DATA     0                 TEST DIRECTIVE FLAG
     2291   02 003BA    1BD3D6C1 A   TST0MSG  TEXTC    'LOAD BLANK CARDS INTO PUNCH'
            02 003BB    C440C2D3 A
            02 003BC    C1D5D240 A
            02 003BD    C3C1D9C4 A
            02 003BE    E240C9D5 A
            02 003BF    E3D640D7 A
            02 003C0    E4D5C3C8 A
     2292                            *                                                                      *
     2293                            *            *** TST1 - FUNCTIONAL TEST ***                            *
     2294                            *                                                                      *
     2295                            *  THIS DIRECTIVE ALLOWS THE USER TO SELECT ONE OR MORE CONTIGUOUS     *
     2296                            *  FUNCTIONAL SUBTESTS BY SPECIFYING IN PARAMETERS P1 AND P2           *
     2297                            *  THE STARTING AND ENDING SUBTEST NUMBERS:                            *
     2298                            *                                                                      *
     2299                            *     P1 = 1 THRU 49                                                   *
     2300                            *     P2 = 1 THRU 49  (WHERE 1<=P1<=P2<=49)                            *
     2301                            *                                                                      *
     2302                            *     NO OTHER VALUES OF P1 AND P2 ARE ALLOWED. IF P1 AND P2 ARE NOT   *
     2303                            *     SPECIFIED, SUBTESTS 1 THRU 48 WILL BE PERFORMED.                 *
     2304                            *                                                                      *
     2305                            *     PARAMETERS P3 AND P4 ARE NOT USED.                               *
     2306                            *                                                                      *
     2307                            *                                                                      *
     2308   02 003C1    351003B9     TST1     STW,1    TSTFLAG           SET TEST FLAG TO TST1
     2309   02 003C2    32C00201 A   TST1ALT  LW,12    :P1               STARTING SUBTEST
     2310   02 003C3    35200426              STW,2    TST1SEF           RESET SINGLE ENTRY FLAG
     2311   02 003C4    683003D6              BEZ      TST102            B: STARTING SUBTEST NOT SPECIFIED
     2312   02 003C5    21C00034 A            CI,12    52                TEST FOR LIMIT
     2313   02 003C6    682003CB              BLE      %+5               B: STARTING SUBTEST <= 49
     2314   02 003C7    3510030A A   TST101   STW,1    :PIT10            P1 IN ERROR: P1>49
     2315   02 003C8    EAF00229 A            BAL,15   *:PREPORT         REPORT
     2316   02 003C9    00000322              DATA     :DIC+2            'TST1'
     2317   02 003CA    E8000214 A            B        *:MONITOR         RETURN TO MONITOR
     2318   02 003CB    31C00202 A            CW,12    :P2               STARTING SUBTEST: ENDING SUBTEST
     2319   02 003CC    692003C7              BG       TST101            B: P1 > P2
     2320   02 003CD    693003CF              BNE      %+2               B: NOT SINGLE ENTRY
     2321   02 003CE    35100426              STW,1    TST1SEF           SET SINGLE ENTRY FLAG
     2322   02 003CF    32D00202 A            LW,13    :P2               ENDING SUBTEST
     2323   02 003D0    21D00034 A            CI,13    52                TEST FOR LIMIT
     2324   02 003D1    682003D4              BLE      %+3               B: ENDING SUBTEST <=52
     2325   02 003D2    3520030A A            STW,2    :PIT10            P2 IN ERROR: P2 > 52
     2326   02 003D3    680003C8              B        TST101+1          GO TO REPORT
     2327   02 003D4    15C00424              STD,12   TST1LMT           SAVE STARTING/ENDING SUBTESTS
     2328   02 003D5    680003DB              B        TST103            GO TO PROCESS
     2329   02 003D6    31C00202 A   TST102   CW,12    :P2               TEST FOR P2 = 0
     2330   02 003D7    693003C7              BNE      TST101            B: P2 IN ERROR: P1=0,P2 > 0
     2331   02 003D8    35100424              STW,1    TST1LMT           SET STARTING SUBTEST = 1
     2332   02 003D9    22E00034 A            LI,14    52
     2333   02 003DA    35E00425              STW,14   TST1LMT+1         SET ENDING SUBTEST = 48
     2334   02 003DB    32E00336     TST103   LW,14    :CDB+2
     2335   02 003DC    31E01EA3              CW,14    KM1               IS DEVICE THERE
     2336   02 003DD    693003E6              BNE      TST1030           B: YES
     2337   02 003DE    3130038F              CW,3     CURREPTR          IS IT A READER
     2338   02 003DF    683003E3              BE       %+4               B: YES
     2339   02 003E0    EAF0021C A            BAL,15   *:PRINT           PRINT:
     2340   02 003E1    00001278              DATA     T2MSG8              'NO PUNCH DEFINED'
     2341   02 003E2    E8000214 A            B        *:MONITOR         RETURN TO MONITOR
     2342   02 003E3    EAF0021C A            BAL,15   *:PRINT           PRINT:
     2343   02 003E4    0000127D              DATA     T2MSG9              'NO READER DEFINED'
     2344   02 003E5    E8000214 A            B        *:MONITOR         RETURN TO MONITOR
     2345   02 003E6    35E0172A     TST1030  STW,14   :DEVADDR          ESTABLISH DEVICE ADDRESS
     2346   02 003E7    31E0033A              CW,14    PUNCHADR          IS THIS A PUNCH
     2347   02 003E8    693003EB              BNE      %+3               B: NO
     2348   02 003E9    22E00000 A            LI,14    0                 SET ENVIRONMENT PTR TO PUNCH
     2349   02 003EA    680003EC              B        %+2
     2350   02 003EB    22E00003 A            LI,14    3                 SET ENVIRONMENT PTR TO READER
     2351   02 003EC    35E0038F              STW,14   CURREPTR
     2352   02 003ED    32E01763     TST104   LW,14    :DELMTW
     2353   02 003EE    35E00055 A            STW,14   X'55'             CTR4 HANDL TO LOC.
     2354   02 003EF    32E01762              LW,14    :DELXPSD
     2355   02 003F0    35E0005B A            STW,14   X'5B'             CTR4=0 HANDL TO LOC
     2356   02 003F1    6AF018D1              BAL,15   :INTD             DISARM IO INTER
     2357   02 003F2    6AF0183B              BAL,15   :SAVECLR          CLEAR STATUS TABLE
     2358   02 003F3    32E01D64              LW,14    TST1XPSD          TST1 IO INTER HANDLER
     2359   02 003F4    35E0005C A            STW,14   X'5C'             XPSD TO LOC.
     2360   02 003F5    22000000 A            LI,0     0                 R0 = 0
     2361   02 003F6    22100001 A            LI,1     1                 R1 = 1
     2362   02 003F7    22200002 A            LI,2     2                 R2 = 2
     2363   02 003F8    22300003 A            LI,3     3                 R3 = 3
     2364   02 003F9    35001D65              STW,0    TST1ERF           RESET TST1 ERROR FLAG
     2365   02 003FA    35001958              STW,0    COMSCOLN          RESET COM SYNC                  *A01
     2366   02 003FB    32400424              LW,4     TST1LMT           CURRENT SUBTEST
     2367   02 003FC    35401BEB              STW,4    ITHSUBT           SUBTEST NUMBER
     2368   02 003FD    21400001 A            CI,4     1                 IS THIS SUBTEST 1
     2369   02 003FE    68300400              BE       %+2               B: YES
     2370   02 003FF    CFC0172A              HIO,12   *:DEVADDR         ISSUE HIO TO DEVICE
     2371   02 00400    35101BEA              STW,1    ITHTEST           TEST1
     2372   02 00401    22E01BD6              LI,14    ITHDLR            HANDLER ADDRESS
     2373   02 00402    35E0030F A            STW,14   :PIT15            SAVE
     2374   02 00403    22E003DB              LI,14    TST103
     2375   02 00404    35E01BEC              STW,14   ITHRST            RESTART ADDR
     2376   02 00405    32E80426              LW,14    TST1G-1,4         LOAD SUBTEST DATA
     2377   02 00406    72D0000E A            LB,13    14,0              LOAD R13 WITH DEVICE MASK
     2378   02 00407    52E2000E A            LH,14    14,1              SAVE ONLY ADDRESS
     2379   02 00408    6830040E              BEZ      TST105            B: IF SUBTEST NOT IMPLEMENTED
     2380   02 00409    4BD00390              AND,13   DEVPTR            DOES THIS SUBTEST APPLY ?
     2381   02 0040A    6830040E              BEZ      TST105            B: NO
     2382   02 0040B    32A0038F              LW,10    CURREPTR          R10 = CURRENT ENVIRONMENT POINTER
     2383   02 0040C    32B00390              LW,11    DEVPTR            R11 = DEVICE POINTER
     2384   02 0040D    EAF0000E A            BAL,15   *14               GO TO FUNCTIONAL SUBTEST
     2385                            *
     2386                            *        RETURN FROM FUNCTIONAL SUBTEST HERE.
     2387   02 0040E    33100424     TST105   MTW,1    TST1LMT           RETURN FROM SUBTEST; SUBTEST +1
     2388   02 0040F    32E00424              LW,14    TST1LMT
     2389   02 00410    31E00425              CW,14    TST1LMT+1         TEST FOR LAST SUBTEST
     2390   02 00411    682003DB              BLE      TST103            NOT LAST - LOOP
     2391   02 00412    311003B9              CW,1     TSTFLAG           TEST FOR 'TST1'
     2392   02 00413    693003A5              BNE      TST0A             NOT TST1 - GO TO TST0
     2393   02 00414    EAF0021D A            BAL,15   *:SENSE           TEST SSW 1,3
     2394   02 00415    2E000415              WAIT     %                 WAIT
     2395   02 00416    680003C2              B        TST1ALT           LOOP
     2396   02 00417    3130038F              CW,3     CURREPTR          WAS THIS A READER
     2397   02 00418    E8300214 A            BE       *:MONITOR         B: YES - RETURN TO MONITOR
     2398   02 00419    32F01BEB              LW,15    ITHSUBT                                           *A01
     2399   02 0041A    21F00028 A            CI,15    40                                                *A01
     2400   02 0041B    E9100214 A            BL       *:MONITOR                                         *A01
     2401   02 0041C    21F00034 A            CI,15    52                IF SUBTEST 52 - SKIP            *A01
     2402   02 0041D    E8300214 A            BE       *:MONITOR                                         *A01
     2403   02 0041E    6AF01DDC              BAL,15   PBLANK            PUNCH BLANK CARD (7160 ONLY)
     2404   02 0041F    E8000214 A            B        *:MONITOR         B: NO ERRORS
     2405   02 00420    EAF0021C A            BAL,15   *:PRINT           PRINT:
     2406   02 00421    00001482              DATA     TST3EM1             'BLANK END CARD ERROR'
     2407   02 00422    E8000214 A            B        *:MONITOR         RETURN TO MONITOR
     2408                            *
     2409         02 0040E           EXIT     EQU      TST105
     2410                                     BOUND    8
     2411   02 00424    00000000 A   TST1LMT  DATA     0,0
            02 00425    00000000 A
     2412         00000000           TST17    EQU      0
     2413         00000000           TST18    EQU      0
     2414         00000000           TST116   EQU      0
     2415         00000000           TST117   EQU      0
     2416         00000000           TST120   EQU      0
     2417         00000000           TST121   EQU      0
     2418         00000000           TST125   EQU      0
     2419         00000000           TST126   EQU      0
     2420         00000000           TST130   EQU      0
     2421         00000000           TST131   EQU      0
     2422         00000000           TST132   EQU      0
     2423         00000000           TST135   EQU      0
     2424         00000000           TST142   EQU      0
     2425         00000000           TST147   EQU      0
     2426   02 00426    00000000 A   TST1SEF  DATA     0                 SINGLE ENTRY FLAG
     2427                            *
     2428   02 00427    7F00045B     TST1G    GEN,8,24  X'7F',TST11
     2429   02 00428    7F00047B              GEN,8,24  X'7F',TST12
     2430   02 00429    200004D4              GEN,8,24  X'20',TST13
     2431   02 0042A    7F000532              GEN,8,24  X'7F',TST14
     2432   02 0042B    7F0005E6              GEN,8,24  X'7F',TST15
     2433   02 0042C    20000689              GEN,8,24  X'20',TST16
     2434   02 0042D    00000000 A            GEN,8,24  X'00',TST17
     2435   02 0042E    00000000 A            GEN,8,24  X'00',TST18
     2436   02 0042F    200006D8              GEN,8,24  X'20',TST19
     2437   02 00430    6000070B              GEN,8,24  X'60',TST110
     2438   02 00431    20000745              GEN,8,24  X'20',TST111
     2439   02 00432    20000775              GEN,8,24  X'20',TST112
     2440   02 00433    200007B5              GEN,8,24  X'20',TST113
     2441   02 00434    200007EA              GEN,8,24  X'20',TST114
     2442   02 00435    20000819              GEN,8,24  X'20',TST115
     2443   02 00436    00000000 A            GEN,8,24  X'00',TST116
     2444   02 00437    00000000 A            GEN,8,24  X'00',TST117
     2445   02 00438    20000845              GEN,8,24  X'20',TST118
     2446   02 00439    200008B7              GEN,8,24  X'20',TST119
     2447   02 0043A    00000000 A            GEN,8,24  X'00',TST120
     2448   02 0043B    00000000 A            GEN,8,24  X'00',TST121
     2449   02 0043C    2000093A              GEN,8,24  X'20',TST122
     2450   02 0043D    2000096D              GEN,8,24  X'20',TST123
     2451   02 0043E    200009A2              GEN,8,24  X'20',TST124
     2452   02 0043F    00000000 A            GEN,8,24  X'00',TST125
     2453   02 00440    00000000 A            GEN,8,24  X'00',TST126
     2454   02 00441    200009CB              GEN,8,24  X'20',TST127
     2455   02 00442    20000A17              GEN,8,24  X'20',TST128
     2456   02 00443    20000A63              GEN,8,24  X'20',TST129
     2457   02 00444    00000000 A            GEN,8,24  X'00',TST130
     2458   02 00445    00000000 A            GEN,8,24  X'00',TST131
     2459   02 00446    00000000 A            GEN,8,24  X'00',TST132
     2460   02 00447    20000AA2              GEN,8,24  X'20',TST133
     2461   02 00448    20000ADA              GEN,8,24  X'20',TST134
     2462   02 00449    00000000 A            GEN,8,24  X'00',TST135
     2463   02 0044A    7F000B1C              GEN,8,24  X'7F',TST136
     2464   02 0044B    1F000B54              GEN,8,24  X'1F',TST137
     2465   02 0044C    7F000BA5              GEN,8,24  X'7F',TST138
     2466   02 0044D    00000BFF              GEN,8,24  X'00',TST139
     2467   02 0044E    70000C4B              GEN,8,24  X'70',TST140
     2468   02 0044F    0F000C72              GEN,8,24  X'0F',TST141
     2469   02 00450    00000000 A            GEN,8,24  X'00',TST142
     2470   02 00451    70000CA3              GEN,8,24  X'70',TST143
     2471   02 00452    70000CE2              GEN,8,24  X'70',TST144
     2472   02 00453    70000D17              GEN,8,24  X'70',TST145
     2473   02 00454    10000D2C              GEN,8,24  X'10',TST146
     2474   02 00455    00000000 A            GEN,8,24  X'00',TST147
     2475   02 00456    70000D84              GEN,8,24  X'70',TST148
     2476   02 00457    0F000E74              GEN,8,24  X'0F',TST149
     2477   02 00458    0F000EC2              GEN,8,24  X'0F',TST150
     2478   02 00459    0F000EFD              GEN,8,24  X'0F',TST151
     2479   02 0045A    40000F35              GEN,8,24  X'40',TST152                                     *A01
     2480                            *
     2481                            *                 *** T S T 1 , 0 1 ***
     2482                            *
     2483   02 0045B    CFC0172A     TST11    HIO,12   *:DEVADDR         ISSUE HIO
     2484   02 0045C    6AF015EF              BAL,15   :HIO              ISSUE HIO
     2485   02 0045D    9700C000 A            DATA     X'9700C000'       STATUS MASK
     2486   02 0045E    10000000 A            DATA     X'10000000'       EXPECTED STATUS
     2487   02 0045F    68000463              B        T1M01
     2488   02 00460    EAF0021B A            BAL,15   *:ERROR           REPORT ERROR
     2489   02 00461    00000065 A            DATA     101               *** ERROR 101 ***
     2490   02 00462    68000477              B        T1M04
     2491   02 00463    6AF015EA     T1M01    BAL,15   :TIO              ISSUE TIO
     2492   02 00464    FF00C000 A            DATA     X'FF00C000'       STATUS MASK
     2493   02 00465    10000000 A            DATA     X'10000000'       EXPECTED STATUS
     2494   02 00466    6800046A              B        T1M02
     2495   02 00467    EAF0021B A            BAL,15   *:ERROR           REPORT ERROR
     2496   02 00468    00000066 A            DATA     102               *** ERROR 102 ***
     2497   02 00469    68000477              B        T1M04
     2498   02 0046A    6AF015F4     T1M02    BAL,15   :TDV              ISSUE TDV
     2499   02 0046B    F700C000 A            DATA     X'F700C000'       STATUS MASK
     2500   02 0046C    00000000 A            DATA     0                 EXPECTED MASK
     2501   02 0046D    68000471              B        T1M03
     2502   02 0046E    EAF0021B A            BAL,15   *:ERROR           REPORT ERROR
     2503   02 0046F    00000067 A            DATA     103               *** ERROR 103 ***
     2504   02 00470    68000477              B        T1M04
     2505   02 00471    6AF015F9     T1M03    BAL,15   :AIO              ISSUE AIO
     2506   02 00472    0000C000 A            DATA     X'0000C000'       STATUS MASK
     2507   02 00473    0000C000 A            DATA     X'0000C000'       EXPECTED STATUS
     2508   02 00474    6800040E              B        EXIT              GO TO EXIT
     2509   02 00475    EAF0021B A            BAL,15   *:ERROR           REPORT ERROR
     2510   02 00476    00000068 A            DATA     104               *** ERROR 104 ***
     2511   02 00477    EAF0021D A   T1M04    BAL,15   *:SENSE           TEST SSW1,3
     2512   02 00478    2E000478              WAIT     %                 WAIT
     2513   02 00479    6800045B              B        TST11             LOOP
     2514   02 0047A    6800040E              B        EXIT              GO TO EXIT
     2515   02 0047B    3130038F     TST12    CW,3     CURREPTR          IS THIS A CARD READER ?
     2516   02 0047C    68300484              BE       TST12CR           B: YES
     2517   02 0047D    6AF0107A              BAL,15   CLRBUF            CLEAR (BUFFER)
     2518   02 0047E    6AF0105D              BAL,15   TST1R1            SET UP PUNCH IOCD'S
     2519   02 0047F    75200FAA              STB,2    IOCD17            LOAD INVALID ORDER
     2520   02 00480    220007D5              LI,0     DA(IOCD17)
     2521   02 00481    6AF00494              BAL,15   TST12T            PERFORM TEST
     2522   02 00482    000000C9 A            DATA     201               *** ERRORS 201 - 205 ***
     2523   02 00483    6800040E              B        EXIT              RETURN
     2524   02 00484    220007F5     TST12CR  LI,0     DA(IOCD28)        SET UP READER IOCD
     2525   02 00485    75100FEA              STB,1    IOCD28            LOAD INVALID ORDER
     2526   02 00486    6AF00494              BAL,15   TST12T            PERFORM TEST
     2527   02 00487    000000D3 A            DATA     211               *** ERRORS 211-215 ***
     2528   02 00488    75300FEA              STB,3    IOCD28            LOAD INVALID ORDER
     2529   02 00489    6AF00494              BAL,15   TST12T            PERFORM TEST
     2530   02 0048A    000000DD A            DATA     221               *** ERRORS 221 - 225 ***
     2531   02 0048B    22F00042 A            LI,15    X'42'
     2532   02 0048C    75F00FEC              STB,15   IOCD29            LOAD INVALID ORDER
     2533   02 0048D    6AF00494              BAL,15   TST12T            PERFORM TEST
     2534   02 0048E    000000E7 A            DATA     231               *** ERRORS 231 - 235 ***
     2535   02 0048F    22F00086 A            LI,15    X'86'
     2536   02 00490    75F00FEC              STB,15   IOCD29            LOAD INVALID ORDER
     2537   02 00491    6AF00494              BAL,15   TST12T            PERFORM TEST
     2538   02 00492    000000F1 A            DATA     241               *** ERRORS 241 - 245 ***
     2539   02 00493    6800040E              B        EXIT              RETURN
     2540   02 00494    B2E0000F A   TST12T   LW,14    *15               LOAD ERROR NUMBER
     2541   02 00495    20F00001 A            AI,15    1                 INCR RETURN ADDRESS
     2542   02 00496    09F01E4A              PSW,15   PSTACK            SAVE RETURN ADDRESS IN STACK
     2543   02 00497    35E004A8              STW,14   TST12TE1
     2544   02 00498    20E00001 A            AI,14    1
     2545   02 00499    35E004AB              STW,14   TST12TE2
     2546   02 0049A    20E00001 A            AI,14    1
     2547   02 0049B    35E004C3              STW,14   TST12TE3
     2548   02 0049C    20E00001 A            AI,14    1
     2549   02 0049D    35E004C6              STW,14   TST12TE4
     2550   02 0049E    20E00001 A            AI,14    1
     2551   02 0049F    35E004CC              STW,14   TST12TE5
     2552   02 004A0    6AF015E5     TST12TS  BAL,15   :SIO              ISSUE SIO
     2553   02 004A1    FF00C000 A            DATA     X'FF00C000'                                       *A01
     2554   02 004A2    10000000 A            DATA     X'10000000'
     2555   02 004A3    680004AD              B        TST12T1
     2556   02 004A4    CFC0172A              HIO,12   *:DEVADDR         ISSUE AN HIO
     2557   02 004A5    70341701              LCF      :STATUSCC,2       LOAD CONDITION CODES
     2558   02 004A6    68C004AA              BCR,12   TST12TE2-1        B: CC1,2 = 0,0
     2559   02 004A7    EAF0021B A            BAL,15   *:ERROR
     2560   02 004A8    00000000 A   TST12TE1 DATA     0                 *** ERROR 02X1 ***
     2561   02 004A9    680004CD              B        TST12TE5+1        GO TEST SENSE SWITCHES
     2562   02 004AA    EAF0021B A            BAL,15   *:ERROR
     2563   02 004AB    00000000 A   TST12TE2 DATA     0                 *** ERROR 02-2 ***
     2564   02 004AC    680004CD              B        TST12TE5+1        GO TEST SENSE SWITCHES
     2565                            *
     2566   02 004AD    22400021 A   TST12T1  LI,4     33
     2567   02 004AE    644004AE              BDR,4    %                 DELAY 50 MICROSECONDS
     2568   02 004AF    3130038F              CW,3     CURREPTR          IS THIS A PUNCH                 *A01
     2569   02 004B0    683004BA              BE       TST12T3           B: NO                           *A01
     2570   02 004B1    22F01BF8 A            LI,15    7160              TEST FOR MODEL 7160 PUNCH       *A01
     2571   02 004B2    31F00338              CW,15    PUNCHMOD          IF NOT - SKIP                   *A01
     2572   02 004B3    693004BA              BNE      TST12T3           B: MODEL 7165                   *A01
     2573   02 004B4    6AF015F4              BAL,15   :TDV              ISSUE A TDV                     *A01
     2574   02 004B5    2000C000 A            DATA     X'2000C000'       TEST FOR A                      *A01
     2575   02 004B6    20000000 A            DATA     X'20000000'         READ CHECK                    *A01
     2576   02 004B7    680004BA              B        TST12T3           B: READ CHECK SET BY INV ORDER  *A01
     2577   02 004B8    EAF0021B A            BAL,15   *:ERROR                                           *A01
     2578   02 004B9    000000FA A            DATA     0250              *** ERROR 0250 ***              *A01
     2579                            TST12T3  ;                                                          *A01
     2580   02 004BA    6AF015EA              BAL,15   :TIO              ISSUE A TIO
     2581   02 004BB    FFBFC000 A            DATA     X'FFBFC000'
     2582   02 004BC    18000000 A            DATA     X'18000000'
     2583   02 004BD    680004C8              B        TST12T2           B: NO ERRORS
     2584   02 004BE    72E01701              LB,14    :STATUSCC         IO STATUS
     2585   02 004BF    21E00006 A            CI,14    X'06'             IS THE CONTROLLER BUSY ?
     2586   02 004C0    684004C5              BCR,4    TST12TE4-1        B: NO
     2587   02 004C1    CFC0172A              HIO,12   *:DEVADDR         ISSUE AN HIO
     2588   02 004C2    EAF0021B A            BAL,15   *:ERROR
     2589   02 004C3    00000000 A   TST12TE3 DATA     0                 *** ERROR 02-3 ***
     2590   02 004C4    680004CD              B        TST12TE5+1        GO TEST SENSE SWITCHES
     2591                            *
     2592   02 004C5    EAF0021B A            BAL,15   *:ERROR
     2593   02 004C6    00000000 A   TST12TE4 DATA     0                 *** ERROR 02-4 ***
     2594   02 004C7    680004CD              B        TST12TE5+1        GO TEST SENSE SWITCHES
     2595                            *
     2596   02 004C8    72E61701     TST12T2  LB,14    :STATUSCC,3       FETCH BYTE COUNT
     2597   02 004C9    21E00078 A            CI,14    120               BC = 120 ?
     2598   02 004CA    683004D0              BE       TST12TR           RETURN
     2599   02 004CB    EAF0021B A            BAL,15   *:ERROR
     2600   02 004CC    00000000 A   TST12TE5 DATA     0                 *** ERROR 02-5 ***
     2601   02 004CD    EAF0021D A            BAL,15   *:SENSE           GO TEST SENSE SWITCHES
     2602   02 004CE    2E0004CE              WAIT     %                 SSW 3 RESET - WAIT
     2603   02 004CF    680004D2              B        %+3               SSW 1 SET   - LOOP ON ERROR
     2604   02 004D0    CFC0172A     TST12TR  HIO,12   *:DEVADDR         ISSUE AN HIO
     2605   02 004D1    6800039D              B        POP               RETURN
     2606   02 004D2    CFC0172A              HIO,12   *:DEVADDR         ISSUE AN HIO
     2607   02 004D3    680004A0              B        TST12TS
     2608                            *
     2609                            *
     2610   02 004D4    75101CC9     TST13    STB,1    TMBYTE            SAVE TEST MODE BYTE
     2611   02 004D5    7510105A              STB,1    TST1EXP           SAVE EXPECTED TEST MODE
     2612   02 004D6    CFC0172A     T3M01    HIO,12   *:DEVADDR         ISSUE HIO
     2613   02 004D7    22000E66              LI,0     DA(IOCDTMS)
     2614   02 004D8    6AF015E5              BAL,15   :SIO              ISSUE SIO
     2615   02 004D9    F600C000 A            DATA     X'F600C000'       STATUS MASK
     2616   02 004DA    10000000 A            DATA     X'10000000'       EXPECTED STATUS
     2617   02 004DB    680004E0              B        T3M02             NO ERRORS
     2618   02 004DC    CFC0172A              HIO,12   *:DEVADDR         ISSUE HIO
     2619   02 004DD    EAF0021B A            BAL,15   *:ERROR
     2620   02 004DE    0000012D A            DATA     301               *** ERROR 301 ***
     2621   02 004DF    6800052E              B        T3M12
     2622                            *
     2623   02 004E0    32401059     T3M02    LW,4     DELYTMS           DELAY
     2624   02 004E1    644004E1              BDR,4    %
     2625   02 004E2    6AF015EA              BAL,15   :TIO              ISSUE TIO
     2626   02 004E3    FF7FC000 A            DATA     X'FF7FC000'       MASK
     2627   02 004E4    10000000 A            DATA     X'10000000'       EXPECTED MASK
     2628   02 004E5    680004FA              B        T3M05             NO ERRORS
     2629   02 004E6    72E01701              LB,14    :STATUSCC         FETCH TIO DEV STATUS
     2630   02 004E7    21E00006 A            CI,14    X'06'             IS CONTR BUSY
     2631   02 004E8    684004ED              BCR,4    T3M03             B: CONTR NOT BUSY
     2632   02 004E9    CFC0172A              HIO,12   *:DEVADDR         ISSUE HIO
     2633   02 004EA    EAF0021B A            BAL,15   *:ERROR
     2634   02 004EB    0000012E A            DATA     302               *** ERROR 302 ***
     2635   02 004EC    6800052E              B        T3M12
     2636                            *
     2637   02 004ED    72E01701     T3M03    LB,14    :STATUSCC         TIO STATUS
     2638   02 004EE    21E00008 A            CI,14    X'08'             IS  DEVICE UNUSUAL END
     2639   02 004EF    684004F7              BCR,4    T3M04             B: NO, REPORT ERROR
     2640   02 004F0    6AF015F4              BAL,15   :TDV              ISSUE TDV
     2641   02 004F1    10000000 A            DATA     X'10000000'       MASK
     2642   02 004F2    00000000 A            DATA     0
     2643   02 004F3    680004F4              B        %+1
     2644   02 004F4    EAF0021B A            BAL,15   *:ERROR
     2645   02 004F5    0000012F A            DATA     303               *** ERROR 303 ***
     2646   02 004F6    6800052E              B        T3M12
     2647                            *
     2648   02 004F7    EAF0021B A   T3M04    BAL,15   *:ERROR
     2649   02 004F8    00000130 A            DATA     304               *** ERROR 304 ***
     2650   02 004F9    6800052E              B        T3M12
     2651                            *
     2652   02 004FA    72E61701     T3M05    LB,14    :STATUSCC,3       BYTE COUNT
     2653   02 004FB    683004FF              BEZ      T3M06             B: BYTE COUNT EQUAL 0
     2654   02 004FC    EAF0021B A            BAL,15   *:ERROR
     2655   02 004FD    00000131 A            DATA     305               *** ERROR 305 ***
     2656   02 004FE    6800052E              B        T3M12
     2657                            *
     2658   02 004FF    72E01CC9     T3M06    LB,14    TMBYTE            TEST MODE BYTE
     2659   02 00500    71E0105A              CB,14    TST1EXP           TMBYTE:EXPECTED
     2660   02 00501    68300505              BE       T3M07             B: EQUAL
     2661   02 00502    EAF0021B A            BAL,15   *:ERROR
     2662   02 00503    00000132 A            DATA     306               *** ERROR 306 ***
     2663   02 00504    6800052E              B        T3M12
     2664                            *
     2665   02 00505    CEC0172A     T3M07    TDV,12   *:DEVADDR         ISSUE TDV
     2666   02 00506    69800508              BCS,8    %+2               B: CC1 = 1
     2667   02 00507    6940050B              BCS,4    T3M08             B: CC1,2 = 01
     2668   02 00508    EAF0021B A            BAL,15   *:ERROR
     2669   02 00509    00000133 A            DATA     307               *** ERROR 307 ***
     2670   02 0050A    6800052E              B        T3M12
     2671                            *
     2672   02 0050B    22000E67     T3M08    LI,0     DA(IOCDTMR)       LOAD IOCD
     2673   02 0050C    6AF015E5              BAL,15   :SIO              ISSUE SIO
     2674   02 0050D    F600C000 A            DATA     X'F600C000'
     2675   02 0050E    10000000 A            DATA     X'10000000'
     2676   02 0050F    68000513              B        T3M09             NO ERRORS
     2677   02 00510    EAF0021B A            BAL,15   *:ERROR
     2678   02 00511    00000134 A            DATA     308               *** ERROR 308 ***
     2679   02 00512    6800052E              B        T3M12
     2680                            *
     2681   02 00513    32401059     T3M09    LW,4     DELYTMS           DELAY
     2682   02 00514    64400514              BDR,4    %
     2683   02 00515    6AF015EA              BAL,15   :TIO              ISSUE TIO
     2684   02 00516    FF7FC000 A            DATA     X'FF7FC000'       MASK
     2685   02 00517    10000000 A            DATA     X'10000000'
     2686   02 00518    68000520              B        T3M10             NO ERRORS
     2687   02 00519    6AF015F4              BAL,15   :TDV              ISSUE TDV
     2688   02 0051A    10000000 A            DATA     X'10000000'       MASK
     2689   02 0051B    00000000 A            DATA     0
     2690   02 0051C    6800051D              B        %+1
     2691   02 0051D    EAF0021B A            BAL,15   *:ERROR
     2692   02 0051E    00000135 A            DATA     309               *** ERROR 309 ***
     2693   02 0051F    6800052E              B        T3M12
     2694                            *
     2695   02 00520    6AF015F4     T3M10    BAL,15   :TDV              ISSUE TDV
     2696   02 00521    1000C000 A            DATA     X'1000C000'       MASK
     2697   02 00522    00000000 A            DATA     0
     2698   02 00523    68000527              B        T3M11             CC1,2=00
     2699   02 00524    EAF0021B A            BAL,15   *:ERROR
     2700   02 00525    00000136 A            DATA     310               *** ERROR 310 ***
     2701   02 00526    6800052E              B        T3M12
     2702                            *
     2703   02 00527    72E01CC9     T3M11    LB,14    TMBYTE            TEST MODE BYTE
     2704   02 00528    25E00001 A            SLS,14   1                 SHIFT LOGICAL LEFT 1 BIT POSITION
     2705   02 00529    21E00100 A            CI,14    X'100'            TMBYTE:X'100'
     2706   02 0052A    6940040E              BCS,4    EXIT              B: ALL BIT POSITIONS TESTED
     2707   02 0052B    75E01CC9              STB,14   TMBYTE            SAVE
     2708   02 0052C    75E0105A              STB,14   TST1EXP           SAVE EXPECTED BYTE
     2709   02 0052D    680004D6              B        T3M01             LOOP
     2710   02 0052E    EAF0021D A   T3M12    BAL,15   *:SENSE
     2711   02 0052F    2E00052F              WAIT     %
     2712   02 00530    680004D6              B        T3M01             LOOP
     2713   02 00531    68000527              B        T3M11             NEXT TEST MODE BYTE
     2714                            *
     2715   02 00532    6AF0106F     TST14    BAL,15   DEVTEST           TEST FOR TYPE OF DEVICE
     2716   02 00533    680005BB              B        TST14CR           B: CARD READER
     2717   02 00534    680005B6              B        TST1465           B: MODEL 7165
     2718   02 00535    680005B2              B        TST14601          B: MODEL 7160-1
     2719   02 00536    22E00000 A            LI,14    0                    MODEL 7160-2
     2720   02 00537    35E00363              STW,14   TST1X1            RESET INDEX
     2721   02 00538    75E01CC9              STB,14   TMBYTE            RESET TEST MODE
     2722   02 00539    CFC0172A     T4M01    HIO,12   *:DEVADDR         ISSUE HIO
     2723   02 0053A    22E00010 A            LI,14    X'10'             IOCD FLAG (ICE)
     2724   02 0053B    75E00F87              STB,14   IOCD2+1           SAVE
     2725   02 0053C    220007C3              LI,0     DA(IOCD2)
     2726   02 0053D    6AF01702              BAL,15   :IOEXEC           EXECUTE IO
     2727   02 0053E    324005E5              LW,4     T4DELAY           LOAD DELAY CONSTANT             *A01
     2728   02 0053F    6440053F              BDR,4    %
     2729   02 00540    6AF015EA              BAL,15   :TIO              ISSUE TIO
     2730   02 00541    FF7FC000 A            DATA     X'FF7FC000'       MASK
     2731   02 00542    90004000 A            DATA     X'90004000'
     2732   02 00543    6800054C              B        T4M03             NO ERRORS
     2733   02 00544    32D0000D A            LW,13    13                TIO STATUS
     2734   02 00545    69100549              BLZ      T4M02             B: INTERRUPT PENDING
     2735   02 00546    EAF0021B A            BAL,15   *:ERROR
     2736   02 00547    00000191 A            DATA     401               *** ERROR 401 ***
     2737   02 00548    680005AE              B        T4M17
     2738                            *
     2739   02 00549    EAF0021B A   T4M02    BAL,15   *:ERROR
     2740   02 0054A    00000192 A            DATA     402               *** ERROR 402 ***
     2741   02 0054B    680005AE              B        T4M17
     2742                            *
     2743   02 0054C    32E00363     T4M03    LW,14    TST1X1            IS INDEX SET?
     2744   02 0054D    69300555              BNEZ     T4M04             B: YES
     2745   02 0054E    6AF015F9              BAL,15   :AIO              ISSUE AIO
     2746   02 0054F    FF7FC002 A            DATA     X'FF7FC002'       MASK
     2747   02 00550    00100000 A            DATA     X'00100000'
     2748   02 00551    68000556              B        T4M05             NO ERRORS
     2749   02 00552    EAF0021B A            BAL,15   *:ERROR
     2750   02 00553    00000193 A            DATA     403               *** ERROR 403 ***
     2751   02 00554    680005AE              B        T4M17
     2752                            *
     2753   02 00555    CFC0172A     T4M04    HIO,12   *:DEVADDR         ISSUE HIO
     2754   02 00556    6AF015EA     T4M05    BAL,15   :TIO              ISSUE TIO
     2755   02 00557    FF7FC000 A            DATA     X'FF7FC000'       MASK
     2756   02 00558    10000000 A            DATA     X'10000000'
     2757   02 00559    68000562              B        T4M07             NO ERRORS
     2758   02 0055A    32E00363              LW,14    TST1X1            IS INDEX SET?
     2759   02 0055B    6930055F              BNEZ     T4M06             B: YES
     2760   02 0055C    EAF0021B A            BAL,15   *:ERROR
     2761   02 0055D    0000019E A            DATA     414               *** ERROR 414 ***
     2762   02 0055E    680005AE              B        T4M17
     2763                            *
     2764   02 0055F    EAF0021B A   T4M06    BAL,15   *:ERROR
     2765   02 00560    00000194 A            DATA     404               *** ERROR 404 ***
     2766   02 00561    680005AE              B        T4M17
     2767                            *
     2768   02 00562    22E00040 A   T4M07    LI,14    X'40'             IOCD FLAG (IZC)
     2769   02 00563    75E00F87              STB,14   IOCD2+1           SAVE
     2770   02 00564    220007C3              LI,0     DA(IOCD2)
     2771   02 00565    6AF01702              BAL,15   :IOEXEC           EXECUTE IO
     2772   02 00566    324005E5              LW,4     T4DELAY           LOAD DELAY CONSTANT             *A01
     2773   02 00567    64400567              BDR,4    %
     2774   02 00568    6AF015EA              BAL,15   :TIO              ISSUE TIO
     2775   02 00569    FF7FC000 A            DATA     X'FF7FC000'       MASK
     2776   02 0056A    90004000 A            DATA     X'90004000'
     2777   02 0056B    68000574              B        T4M09             NO ERRORS
     2778   02 0056C    32D0000D A            LW,13    13                TIO STATUS
     2779   02 0056D    69100571              BLZ      T4M08             B: INTERRUPT PENDING
     2780   02 0056E    EAF0021B A            BAL,15   *:ERROR
     2781   02 0056F    00000195 A            DATA     405               *** ERROR 405 ***
     2782   02 00570    680005AE              B        T4M17
     2783                            *
     2784   02 00571    EAF0021B A   T4M08    BAL,15   *:ERROR
     2785   02 00572    00000196 A            DATA     406               *** ERROR 406 ***
     2786   02 00573    680005AE              B        T4M17
     2787                            *
     2788   02 00574    32E00363     T4M09    LW,14    TST1X1            IS INDEX SET?
     2789   02 00575    6930057D              BNEZ     T4M10             B: YES
     2790   02 00576    6AF015F9              BAL,15   :AIO              ISSUE AIO
     2791   02 00577    FF7FC002 A            DATA     X'FF7FC002'       MASK
     2792   02 00578    00200000 A            DATA     X'00200000'
     2793   02 00579    6800057E              B        T4M101            NO ERRORS
     2794   02 0057A    EAF0021B A            BAL,15   *:ERROR
     2795   02 0057B    00000197 A            DATA     407               *** ERROR 407 ***
     2796   02 0057C    680005AE              B        T4M17
     2797                            *
     2798   02 0057D    CFC0172A     T4M10    HIO,12   *:DEVADDR         ISSUE HIO
     2799   02 0057E    6AF015EA     T4M101   BAL,15   :TIO              ISSUE TIO
     2800   02 0057F    FF7FC000 A            DATA     X'FF7FC000'       MASK
     2801   02 00580    10000000 A            DATA     X'10000000'
     2802   02 00581    68000585              B        T4M11             NO ERRORS
     2803   02 00582    EAF0021B A            BAL,15   *:ERROR
     2804   02 00583    00000198 A            DATA     408               *** ERROR 408 ***
     2805   02 00584    680005AE              B        T4M17
     2806                            *
     2807   02 00585    220007C4     T4M11    LI,0     DA(IOCD3)
     2808   02 00586    6AF01702              BAL,15   :IOEXEC           EXECUTE IO
     2809   02 00587    324005E5              LW,4     T4DELAY           LOAD DELAY CONSTANT             *A01
     2810   02 00588    64400588              BDR,4    %
     2811   02 00589    6AF015EA              BAL,15   :TIO              ISSUE TIO
     2812   02 0058A    FF7FC000 A            DATA     X'FF7FC000'       MASK
     2813   02 0058B    98404000 A            DATA     X'98404000'       STATUS                          *A01
     2814   02 0058C    68000595              B        T4M13             NO ERRORS
     2815   02 0058D    32D0000D A            LW,13    13                TIO STATUS
     2816   02 0058E    69100592              BLZ      T4M12             B: INTERRUPT PENDING
     2817   02 0058F    EAF0021B A            BAL,15   *:ERROR
     2818   02 00590    00000199 A            DATA     409               *** ERROR 409 ***
     2819   02 00591    680005AE              B        T4M17
     2820                            *
     2821   02 00592    EAF0021B A   T4M12    BAL,15   *:ERROR
     2822   02 00593    0000019A A            DATA     410               *** ERROR 410 ***
     2823   02 00594    680005AE              B        T4M17
     2824                            *
     2825   02 00595    32E00363     T4M13    LW,14    TST1X1            IS INDEX SET?
     2826   02 00596    693005A2              BNEZ     T4M14             YES
     2827   02 00597    6AF015F9              BAL,15   :AIO              ISSUE AIO
     2828   02 00598    FF7FC002 A            DATA     X'FF7FC002'       MASK
     2829   02 00599    20484000 A            DATA     X'20484000'       STATUS                          *A01
     2830   02 0059A    680005A3              B        T4M141            OK
     2831   02 0059B    EAF0021B A            BAL,15   *:ERROR
     2832   02 0059C    0000019B A            DATA     411               *** ERROR 411 ***
     2833   02 0059D    680005AE              B        T4M17
     2834                            *
     2835   02 0059E    31100363     T4M15    CW,1     TST1X1            IS INDEX SET
     2836   02 0059F    6830040E              BE       EXIT              B: YES, GO TO EXIT
     2837   02 005A0    33100363              MTW,1    TST1X1            SET INDEX
     2838   02 005A1    68000539              B        T4M01             REPEAT
     2839   02 005A2    CFC0172A     T4M14    HIO,12   *:DEVADDR         ISSUE HIO
     2840   02 005A3    6AF015EA     T4M141   BAL,15   :TIO              ISSUE TIO
     2841   02 005A4    F77FC000 A            DATA     X'F77FC000'       MASK
     2842   02 005A5    10400000 A            DATA     X'10400000'       STATUS                          *A01
     2843   02 005A6    6800059E              B        T4M15             NO ERRORS
     2844   02 005A7    31D01EDF              CW,13    =X'80000000'      TEST FOR IP STATUS
     2845   02 005A8    694005AC              BCS,4    T4M16             IP NOT RESET
     2846   02 005A9    EAF0021B A            BAL,15   *:ERROR
     2847   02 005AA    0000019C A            DATA     412               *** ERROR 412 ***
     2848   02 005AB    680005AE              B        T4M17
     2849                            *
     2850   02 005AC    EAF0021B A   T4M16    BAL,15   *:ERROR
     2851   02 005AD    0000019D A            DATA     413               *** ERROR 413 ***
     2852   02 005AE    EAF0021D A   T4M17    BAL,15   *:SENSE
     2853   02 005AF    2E0005AF              WAIT     %
     2854   02 005B0    68000539              B        T4M01             LOOP
     2855   02 005B1    6800059E              B        T4M15             LOOP
     2856                            *
     2857   02 005B2    220007EF     TST14601 LI,0     DA(IOCD24)        SET UP MODEL 7160-1 IOCD
     2858   02 005B3    6AF005C0              BAL,15   TST14T            PERFORM TEST
     2859   02 005B4    000001A4 A            DATA     420               *** ERRORS 420-422 ***
     2860   02 005B5    6800040E              B        EXIT              EXIT
     2861                            *
     2862   02 005B6    220007F2     TST1465  LI,0     DA(IOCD25)        SET UP MODEL 7165 IOCD
     2863   02 005B7    75200FE4              STB,2    IOCD25            LOAD INVALID ORDER
     2864   02 005B8    6AF005C0              BAL,15   TST14T            PERFORM TEST
     2865   02 005B9    000001AE A            DATA     430               *** ERRORS 430-432 ***
     2866   02 005BA    6800040E              B        EXIT              EXIT
     2867                            *
     2868   02 005BB    220007F2     TST14CR  LI,0     DA(IOCD25)        SET UP READER IOCD
     2869   02 005BC    75100FE4              STB,1    IOCD25            LOAD INVALID ORDER
     2870   02 005BD    6AF005C0              BAL,15   TST14T            PERFORM TEST
     2871   02 005BE    000001B8 A            DATA     440               *** ERRORS 440-442 ***
     2872   02 005BF    6800040E              B        EXIT              EXIT
     2873                            *
     2874   02 005C0    B2E0000F A   TST14T   LW,14    *15               R14 = ERROR NUMBER
     2875   02 005C1    35E005CE              STW,14   T4E00
     2876   02 005C2    20E00001 A            AI,14    1
     2877   02 005C3    35E005D7              STW,14   T4E01
     2878   02 005C4    20E00001 A            AI,14    1
     2879   02 005C5    35E005E0              STW,14   T4E02             STORE ERROR NUMBERS
     2880   02 005C6    6AF01702     T4N01    BAL,15   :IOEXEC           ISSUE AN SIO
     2881   02 005C7    32F01059              LW,15    DELYTMS
     2882   02 005C8    64F005C8              BDR,15   %                 DELAY
     2883   02 005C9    6AF015EA              BAL,15   :TIO              ISSUE A TIO
     2884   02 005CA    FFBFC000 A            DATA     X'FFBFC000'       TEST FOR
     2885   02 005CB    98004000 A            DATA     X'98004000'        INTERRUPT PENDING
     2886   02 005CC    680005D2              B        T4N02             B: NO ERRORS
     2887   02 005CD    EAF0021B A            BAL,15   *:ERROR
     2888   02 005CE    00000000 A   T4E00    DATA     0                 *** ERROR 04-0 ***
     2889   02 005CF    EAF0021D A            BAL,15   *:SENSE           GO TEST SENSE SWITCHES
     2890   02 005D0    2E0005D0              WAIT     %                 SSW 3 RESET - WAIT
     2891   02 005D1    680005C6              B        T4N01             SSW 1 SET   - LOOP ON ERROR
     2892                            *                                   SSW 1 RESET - CONTINUE
     2893   02 005D2    6AF015F9     T4N02    BAL,15   :AIO              ISSUE AN AIO
     2894   02 005D3    DFBFC002 A            DATA     X'DFBFC002'       TEST FOR                        *A01
     2895   02 005D4    00084000 A            DATA     X'00084000'         UNUSUAL END INTERRUPT
     2896   02 005D5    680005DB              B        T4N03             B: NO ERRORS
     2897   02 005D6    EAF0021B A            BAL,15   *:ERROR
     2898   02 005D7    00000000 A   T4E01    DATA     0                 *** ERROR 04-1 ***
     2899   02 005D8    EAF0021D A            BAL,15   *:SENSE           GO TEST SENSE SWITCHES
     2900   02 005D9    2E0005D9              WAIT     %                 SSW 3 RESET - WAIT
     2901   02 005DA    680005D2              B        T4N02             SSW 1 SET   - LOOP ON AIO
     2902                            *                                   SSW 1 RESET - CONTINUE
     2903   02 005DB    6AF015EA     T4N03    BAL,15   :TIO              ISSUE A TIO
     2904   02 005DC    FFBFC000 A            DATA     X'FFBFC000'       TEST FOR
     2905   02 005DD    18000000 A            DATA     X'18000000'         DEVICE AUTOMATIC AND UE
     2906   02 005DE    6800040E              B        EXIT              B: RETURN TO FTM
     2907   02 005DF    EAF0021B A            BAL,15   *:ERROR
     2908   02 005E0    00000000 A   T4E02    DATA     0                 *** ERROR 04-2 ***
     2909   02 005E1    EAF0021D A            BAL,15   *:SENSE           GO TEST SENSE SWITCHES
     2910   02 005E2    2E0005E2              WAIT     %                 SSW 3 RESET - WAIT
     2911   02 005E3    680005DB              B        T4N03             SSW 1 SET   - LOOP ON TIO
     2912   02 005E4    6800040E              B        EXIT              SSW 1 RESET - RETURN TO FTM
     2913   02 005E5    00100000 A   T4DELAY  DATA     X'00100000'                                       *A01
     2914                            *                                                                   *A01
     2915   02 005E6    32E0065E     TST15    LW,14    T5XPSD1           SET UP
     2916   02 005E7    35E0005C A            STW,14   X'5C'               INTERRUPT HANDLER
     2917   02 005E8    6AF0106F              BAL,15   DEVTEST           TEST FOR TYPE OF DEVICE
     2918   02 005E9    68000668              B        TST15CR           B: CARD READER
     2919   02 005EA    6800066A              B        TST15601          B: MODEL 7165
     2920   02 005EB    6800066A              B        TST15601          B: MODEL 7160-1
     2921   02 005EC    32E0065D              LW,14    T5XPSD               MODEL 7160-2
     2922   02 005ED    35E0005C A            STW,14   X'5C'             SET UP INTERRUPT HANDLER
     2923   02 005EE    22A00000 A            LI,10    0
     2924   02 005EF    35A00363              STW,10   TST1X1            RESET INDEXES
     2925   02 005F0    35A00364              STW,10   TST1X2
     2926   02 005F1    75A01CC9              STB,10   TMBYTE            RESET TEST MODE BYTE
     2927   02 005F2    22E00013 A   T5M01    LI,14    X'13'
     2928   02 005F3    75E00F8A              STB,14   IOCD4             SAVE
     2929   02 005F4    22E00010 A            LI,14    X'10'
     2930   02 005F5    75E00F8B              STB,14   IOCD4+1           SAVE
     2931   02 005F6    220007C5     T5M02    LI,0     DA(IOCD4)
     2932   02 005F7    6AF01702              BAL,15   :IOEXEC           RESET TEST MODE
     2933   02 005F8    6AF018CB              BAL,15   :INTAE            ARM/ENABLE TO INTERRUPT
     2934   02 005F9    32401059              LW,4     DELYTMS           DELAY
     2935   02 005FA    644005FA              BDR,4    %                 DELAY
     2936   02 005FB    31101764              CW,1     :INTRECF          TEST INTERRUPT RECEIVED FLAG
     2937   02 005FC    68300601              BE       T5M03             SET - INTER REC'D
     2938   02 005FD    6AF018D1              BAL,15   :INTD
     2939   02 005FE    EAF0021B A            BAL,15   *:ERROR
     2940   02 005FF    000001F5 A            DATA     501               *** ERROR 501 ***
     2941   02 00600    68000615              B        T5M06
     2942                            *
     2943   02 00601    6AF018D1     T5M03    BAL,15   :INTD             DISARM IO INTERRUPT
     2944   02 00602    31100363              CW,1     TST1X1            TEST INDEX (AIO-HIO FLAG)
     2945   02 00603    68300606              BE       T5M04             SET
     2946   02 00604    35100363              STW,1    TST1X1            SET INDEX
     2947   02 00605    680005F6              B        T5M02
     2948   02 00606    35A00363     T5M04    STW,10   TST1X1            RESET INDEX
     2949   02 00607    33100364              MTW,1    TST1X2            INCR INDEX (INTERRUPT TYPE)
     2950   02 00608    31100364              CW,1     TST1X2            TEST TYPE
     2951   02 00609    6910060F              BL       T5M05             INDEX >1
     2952   02 0060A    22E00013 A            LI,14    X'13'
     2953   02 0060B    75E00F8A              STB,14   IOCD4             TEST MODE ORDER
     2954   02 0060C    22E00040 A            LI,14    X'40'
     2955   02 0060D    75E00F8B              STB,14   IOCD4+1           IZC FLAG TO IOCD
     2956   02 0060E    680005F6              B        T5M02             GO TO ISSUE SIO
     2957   02 0060F    31200364     T5M05    CW,2     TST1X2            TEST INDEX
     2958   02 00610    6910061D              BL       T5M08             INDEX >2
     2959   02 00611    75200F8A              STB,2    IOCD4             INVALID ORDER X'02'
     2960   02 00612    22E00004 A            LI,14    X'04'
     2961   02 00613    75E00F8B              STB,14   IOCD4+1           IUE FLAG TO IOCD
     2962   02 00614    680005F6              B        T5M02             LOOP TO ISSUE SIO
     2963                            *
     2964   02 00615    EAF0021D A   T5M06    BAL,15   *:SENSE
     2965   02 00616    2E000616              WAIT     %
     2966   02 00617    6800061A              B        T5M07
     2967   02 00618    CFC0172A              HIO,12   *:DEVADDR         ISSUE HIO
     2968   02 00619    6800061D              B        T5M08             EXIT
     2969   02 0061A    CFC0172A     T5M07    HIO,12   *:DEVADDR         ISSUE HIO
     2970   02 0061B    6ED00000 A            AIO,13   0                 ISSUE AIO
     2971   02 0061C    680005F2              B        T5M01             LOOP
     2972   02 0061D    6ED00000 A   T5M08    AIO,13   0                 ISSUE AIO TO CLEAR IOP
     2973   02 0061E    6800040E              B        EXIT              EXIT
     2974                            *
     2975   02 0061F    6AF015EA     T5INTR   BAL,15   :TIO              ISSUE TIO (TEST FOR IP)
     2976   02 00620    903FC000 A            DATA     X'903FC000'       MASK                            *A01
     2977   02 00621    90404000 A            DATA     X'90404000'       STATUS                          *A01
     2978   02 00622    68000626              B        T5INTR01          OK
     2979   02 00623    EAF0021B A            BAL,15   *:ERROR
     2980   02 00624    000001F6 A            DATA     502               *** ERROR 502 ***
     2981   02 00625    6800065B              B        T5INTR07
     2982                            *
     2983   02 00626    31100364     T5INTR01 CW,1     TST1X2            TEST INDEX TYPE
     2984   02 00627    6910064B              BL       T5INTR05          NOT ICE
     2985   02 00628    6830063A              BE       T5INTR03          IZC
     2986   02 00629    32E00363              LW,14    TST1X1            TEST INSTR. TYPE TO ISSUE
     2987   02 0062A    69300632              BNEZ     T5INTR02          GO TO ISSUE HIO
     2988   02 0062B    6AF015F9              BAL,15   :AIO              ISSUE AIO
     2989   02 0062C    FF7FC002 A            DATA     X'FF7FC002'       MASK
     2990   02 0062D    00100000 A            DATA     X'00100000'       STATUS
     2991   02 0062E    6800065B              B        T5INTR07          OK
     2992   02 0062F    EAF0021B A            BAL,15   *:ERROR
     2993   02 00630    000001F7 A            DATA     503               *** ERROR 503 ***
     2994   02 00631    6800065B              B        T5INTR07
     2995                            *
     2996   02 00632    CFC0172A     T5INTR02 HIO,12   *:DEVADDR         ISSUE HIO TO RESET IP
     2997   02 00633    6AF015EA              BAL,15   :TIO              ISSUE TIO (TEST FOR NO IP)
     2998   02 00634    FF7FC000 A            DATA     X'FF7FC000'       MASK
     2999   02 00635    10000000 A            DATA     X'10000000'       STATUS
     3000   02 00636    6800065B              B        T5INTR07
     3001   02 00637    EAF0021B A            BAL,15   *:ERROR
     3002   02 00638    000001F8 A            DATA     504               *** ERROR 504 ***
     3003   02 00639    6800065B              B        T5INTR07
     3004                            *
     3005   02 0063A    32E00363     T5INTR03 LW,14    TST1X1            TEST INSTR. TYPE TO ISSUE
     3006   02 0063B    69300643              BNEZ     T5INTR04          ISSUE HIO
     3007   02 0063C    6AF015F9              BAL,15   :AIO              ISSUE AIO
     3008   02 0063D    FF7FC002 A            DATA     X'FF7FC002'       MASK
     3009   02 0063E    00200000 A            DATA     X'00200000'       STATUS
     3010   02 0063F    6800065B              B        T5INTR07          OK
     3011   02 00640    EAF0021B A            BAL,15   *:ERROR
     3012   02 00641    000001F9 A            DATA     505               *** ERROR 505 ***
     3013   02 00642    6800065B              B        T5INTR07
     3014                            *
     3015   02 00643    CFC0172A     T5INTR04 HIO,12   *:DEVADDR         ISSUE HIO
     3016   02 00644    6AF015EA              BAL,15   :TIO              ISSUE TIO
     3017   02 00645    FF7FC000 A            DATA     X'FF7FC000'       MASK
     3018   02 00646    10000000 A            DATA     X'10000000'       STATUS
     3019   02 00647    6800065B              B        T5INTR07          OK
     3020   02 00648    EAF0021B A            BAL,15   *:ERROR
     3021   02 00649    000001FA A            DATA     506               *** ERROR 506 ***
     3022   02 0064A    6800065B              B        T5INTR07
     3023                            *
     3024   02 0064B    32E00363     T5INTR05 LW,14    TST1X1             INSTR TYPE
     3025   02 0064C    69300654              BNEZ     T5INTR06          ISSUE HIO
     3026   02 0064D    6AF015F9              BAL,15   :AIO              ISSUE AIO
     3027   02 0064E    FF7FC002 A            DATA     X'FF7FC002'       MASK
     3028   02 0064F    20484000 A            DATA     X'20484000'       STATUS                          *A01
     3029   02 00650    6800065B              B        T5INTR07          OK
     3030   02 00651    EAF0021B A            BAL,15   *:ERROR
     3031   02 00652    000001FB A            DATA     507               *** ERROR 507 ***
     3032   02 00653    6800065B              B        T5INTR07
     3033                            *
     3034   02 00654    CFC0172A     T5INTR06 HIO,12   *:DEVADDR         ISSUE HIO
     3035   02 00655    6AF015EA              BAL,15   :TIO              ISSUE TIO
     3036   02 00656    FF7FC000 A            DATA     X'FF7FC000'       MASK
     3037   02 00657    10400000 A            DATA     X'10400000'       STATUS                          *A01
     3038   02 00658    6800065B              B        T5INTR07          OK
     3039   02 00659    EAF0021B A            BAL,15   *:ERROR
     3040   02 0065A    000001FC A            DATA     508               *** ERROR 508 ***
     3041                            *
     3042   02 0065B    35101764     T5INTR07 STW,1    :INTRECF          SET FLAG
     3043   02 0065C    0E200660              LPSD,2   T5PSD             EXIT
     3044                            *
     3045   02 0065D    0F000660     T5XPSD   XPSD,0   T5PSD
     3046   02 0065E    0F000664     T5XPSD1  XPSD,0   T5PSD1
     3047                                     BOUND    8
     3048   02 00660    00000000 A   T5PSD    DATA     0,0
            02 00661    00000000 A
     3049   02 00662    0000061F              DATA     T5INTR,0
            02 00663    00000000 A
     3050   02 00664    00000000 A   T5PSD1   DATA     0,0
            02 00665    00000000 A
     3051   02 00666    0000067B              DATA     T5INT1,0
            02 00667    00000000 A
     3052   02 00668    7510103A     TST15CR  STB,1    IOCD39            LOAD ILLEGAL ORDER
     3053   02 00669    6800066B              B        %+2
     3054   02 0066A    7520103A     TST15601 STB,2    IOCD39            LOAD ILLEGAL ORDER
     3055   02 0066B    6AF0107A              BAL,15   CLRBUF            CLEAR (BUFFER)
     3056   02 0066C    2200081D              LI,0     DA(IOCD39)        SET UP MODEL 7160-1 IOCD
     3057   02 0066D    6AF01DA1     T5N01    BAL,15   DRVR1             PERFORM TEST
     3058   02 0066E    68000676              B        T5N02             - SUCCESSFUL
     3059   02 0066F    EAF0021B A            BAL,15   *:ERROR
     3060   02 00670    000001FF A            DATA     511               *** ERROR 511 ***
     3061   02 00671    CFC0172A              HIO,12   *:DEVADDR         ISSUE AN HIO
     3062   02 00672    EAF0021D A   T5SW     BAL,15   *:SENSE           GO TEST SENSE SWITCHES
     3063   02 00673    2E000673              WAIT     %                 SSW 3 RESET - WAIT
     3064   02 00674    6800066D              B        T5N01             SSW 1 SET   - LOOP ON TEST
     3065   02 00675    6800040E              B        EXIT              SSW 1 RESET - RETURN TO FTM
     3066                            *
     3067   02 00676    32F01D65     T5N02    LW,15    TST1ERF           TEST FOR ERRORS
     3068   02 00677    6830040E              BEZ      EXIT              B: NO ERRORS - EXIT
     3069   02 00678    EAF0021B A            BAL,15   *:ERROR
     3070   02 00679    000001FE A            DATA     510               *** ERROR 510 ***
     3071   02 0067A    68000672              B        T5SW              GO TEST SENSE SWITCHES
     3072                            *
     3073   02 0067B    35101764     T5INT1   STW,1    :INTRECF          SET INTERRUPT RECEIVED FLAG
     3074   02 0067C    22F00000 A            LI,15    0
     3075   02 0067D    35F01D65              STW,15   TST1ERF           RESET TST1 ERROR FLAG
     3076   02 0067E    6AF015F9              BAL,15   :AIO              ISSUE AN AIO
     3077   02 0067F    DFB7C002 A            DATA     X'DFB7C002'       TEST FOR                        *A01
     3078   02 00680    00104000 A            DATA     X'00104000'         'CHANNEL END' INTERRUPT
     3079   02 00681    68000683              B        %+2               B: NO ERRORS
     3080   02 00682    35101D65              STW,1    TST1ERF           SET TST1 ERROR FLAG
     3081   02 00683    6AF015EA              BAL,15   :TIO              ISSUE A TIO
     3082   02 00684    FFBFC000 A            DATA     X'FFBFC000'       TEST FOR
     3083   02 00685    18000000 A            DATA     X'18000000'         'DEVICE AUTO'
     3084   02 00686    68000688              B        %+2               B: NO ERRORS
     3085   02 00687    35101D65              STW,1    TST1ERF           SET TST1 ERROR FLAG
     3086   02 00688    0E200664              LPSD,2   T5PSD1            RETURN
     3087   02 00689    75101CC9     TST16    STB,1    TMBYTE            SET TEST MODE TO X'01'
     3088   02 0068A    22A00000 A            LI,10    0
     3089   02 0068B    CFC0172A     T6M01    HIO,12   *:DEVADDR         ISSUE HIO
     3090   02 0068C    22E00013 A            LI,14    X'13'
     3091   02 0068D    75E00F8C              STB,14   IOCD5             TEST MODE ORDER TO IOCD
     3092   02 0068E    220007C6              LI,0     DA(IOCD5)
     3093   02 0068F    6AF01702              BAL,15   :IOEXEC           SELECT TM CC RESET TM
     3094   02 00690    32401059              LW,4     DELYTMS
     3095   02 00691    25400001 A            SLS,4    1                  X 2
     3096   02 00692    64400692              BDR,4    %                 DELAY
     3097   02 00693    6AF015EA              BAL,15   :TIO              ISSUE TIO,TEST STATUS
     3098   02 00694    FF7FC000 A            DATA     X'FF7FC000'       MASK
     3099   02 00695    10000000 A            DATA     X'10000000'       STATUS
     3100   02 00696    680006A6              B        T6M04             OK
     3101   02 00697    72E0000D A            LB,14    13
     3102   02 00698    21E00006 A            CI,14    X'06'             TEST FOR CONTR BUSY
     3103   02 00699    6840069E              BCR,4    T6M02             NOT BUSY
     3104   02 0069A    CFC0172A              HIO,12   *:DEVADDR         BUSY - ISSUE HIO
     3105   02 0069B    EAF0021B A            BAL,15   *:ERROR
     3106   02 0069C    00000259 A            DATA     601               *** ERROR 601 ***
     3107   02 0069D    680006AF              B        T6M06
     3108   02 0069E    31D01EE0     T6M02    CW,13    =X'EF000000'      TEST FOR CONTR ERROR
     3109   02 0069F    684006A3              BCR,4    T6M03             IOP ERROR
     3110   02 006A0    EAF0021B A            BAL,15   *:ERROR
     3111   02 006A1    0000025A A            DATA     602               *** ERROR 602 ***
     3112   02 006A2    680006AF              B        T6M06
     3113   02 006A3    EAF0021B A   T6M03    BAL,15   *:ERROR
     3114   02 006A4    0000025B A            DATA     603               *** ERROR 603 ***
     3115   02 006A5    680006AF              B        T6M06
     3116   02 006A6    72E61701     T6M04    LB,14    :STATUSCC,3       BYTE COUNT
     3117   02 006A7    683006AB              BEZ      T6M05             BC=0
     3118   02 006A8    EAF0021B A            BAL,15   *:ERROR
     3119   02 006A9    0000025C A            DATA     604               *** ERROR 604 ***
     3120   02 006AA    680006AF              B        T6M06
     3121   02 006AB    21C007C7     T6M05    CI,12    DA(IOCD5+2)       TEST FOR 2ND IOCD
     3122   02 006AC    683006B2              BE       T6M07             CC TAKEN PLACE
     3123   02 006AD    EAF0021B A            BAL,15   *:ERROR
     3124   02 006AE    0000025D A            DATA     605               *** ERROR 605 ***
     3125   02 006AF    EAF0021D A   T6M06    BAL,15   *:SENSE
     3126   02 006B0    2E0006B0              WAIT     %
     3127   02 006B1    6800068B              B        T6M01             LOOP
     3128                            *
     3129   02 006B2    CFC0172A     T6M07    HIO,12   *:DEVADDR         ISSUE HIO
     3130   02 006B3    75200F8C              STB,2    IOCD5             INVALID ORDER TO IOCD
     3131   02 006B4    220007C6              LI,0     DA(IOCD5)
     3132   02 006B5    6AF01702              BAL,15   :IOEXEC           INVALID ORDER CC RESET TM ORDER
     3133   02 006B6    32401059              LW,4     DELYTMS           DELAY
     3134   02 006B7    644006B7              BDR,4    %                 DELAY
     3135   02 006B8    6AF015EA              BAL,15   :TIO              ISSUE TIO, TEST STATUS
     3136   02 006B9    FF7FC000 A            DATA     X'FF7FC000'       MASK
     3137   02 006BA    18400000 A            DATA     X'18400000'       STATUS                          *A01
     3138   02 006BB    680006CB              B        T6M10             OK
     3139   02 006BC    72E0000D A            LB,14    13
     3140   02 006BD    21E00006 A            CI,14    X'06'
     3141   02 006BE    684006C3              BCR,4    T6M08             CONTR NOT BUSY
     3142   02 006BF    CFC0172A              HIO,12   *:DEVADDR         BUSY- ISSUE HIO
     3143   02 006C0    EAF0021B A            BAL,15   *:ERROR
     3144   02 006C1    0000025E A            DATA     606               *** ERROR 606 ***
     3145   02 006C2    680006D4              B        T6M12
     3146   02 006C3    31D01EE1     T6M08    CW,13    =X'08000000'      TEST FOR UE STATUS
     3147   02 006C4    694006C8              BCS,4    T6M09             UE PRESENT
     3148   02 006C5    EAF0021B A            BAL,15   *:ERROR
     3149   02 006C6    0000025F A            DATA     607               *** ERROR 607 ***
     3150   02 006C7    680006D4              B        T6M12
     3151   02 006C8    EAF0021B A   T6M09    BAL,15   *:ERROR
     3152   02 006C9    00000260 A            DATA     608               *** ERROR 608 ***
     3153   02 006CA    680006D4              B        T6M12
     3154                            *
     3155   02 006CB    71161701     T6M10    CB,1     :STATUSCC,3       BYTE COUNT
     3156   02 006CC    683006D0              BE       T6M11             BYTE COUNT NOT REDUCED
     3157   02 006CD    EAF0021B A            BAL,15   *:ERROR
     3158   02 006CE    00000261 A            DATA     609               *** ERROR 609 ***
     3159   02 006CF    680006D4              B        T6M12
     3160                            *
     3161   02 006D0    21C007C6     T6M11    CI,12    DA(IOCD5)         TEST FOR 1ST IOCD
     3162   02 006D1    6830040E              BE       EXIT              OK -EXIT
     3163   02 006D2    EAF0021B A            BAL,15   *:ERROR
     3164   02 006D3    00000262 A            DATA     610               *** ERROR 610 ***
     3165   02 006D4    EAF0021D A   T6M12    BAL,15   *:SENSE
     3166   02 006D5    2E0006D5              WAIT     %
     3167   02 006D6    6800068B              B        T6M01              LOOP
     3168   02 006D7    6800040E              B        EXIT              EXIT
     3169   02 006D8    75301CC9     TST19    STB,3    TMBYTE            TDV SET 3
     3170   02 006D9    6AF01CAB              BAL,15   SELTM             SELECT TM
     3171   02 006DA    CFC0172A     T9M01    HIO,12   *:DEVADDR         ISSUE HIO
     3172   02 006DB    220007C8              LI,0     DA(IOCD6)
     3173   02 006DC    CCC0172A              SIO,12   *:DEVADDR         ISSUE BINARY ORDER
     3174   02 006DD    6AF0185B              BAL,15   :SAVESIO          SAVE SIO STATUS
     3175   02 006DE    6AF01765              BAL,15   :ERRORT           TEST SIO STATUS
     3176   02 006DF    00000CF8              DATA     BA(T9SEQ1)        TEST SEQ
     3177   02 006E0    680006E6              B        T9M02             NO ERROR
     3178   02 006E1    EAF0021B A            BAL,15   *:ERROR           REPORT ERROR
     3179   02 006E2    00000386 A            DATA     902               *** ERROR 902 ***
     3180   02 006E3    EAF0021D A            BAL,15   *:SENSE           TEST SSW 1,3
     3181   02 006E4    2E0006E4              WAIT     %                 WAIT
     3182   02 006E5    680006DA              B        T9M01             LOOP
     3183                            *                                   CONTINUE
     3184   02 006E6    32E01054     T9M02    LW,14    DTM               DELAY TIME
     3185   02 006E7    6AF01745              BAL,15   :DELAY            DELAY
     3186   02 006E8    680006E9              B        %+1
     3187   02 006E9    6AF01765              BAL,15   :ERRORT           TEST TIO STATUS
     3188   02 006EA    00000D54              DATA     BA(T9SEQ2)        TEST SEQ
     3189   02 006EB    680006FE              B        T9M05             NO ERROR
     3190   02 006EC    7240000D A            LB,4     13                DEV STATUS
     3191   02 006ED    21400006 A            CI,4     X'06'             TEST FOR BUSY
     3192   02 006EE    694006F2              BCS,4    T9M03             BUSY
     3193   02 006EF    EAF0021B A            BAL,15   *:ERROR
     3194   02 006F0    00000388 A            DATA     904               *** ERROR 904 ***
     3195   02 006F1    68000703              B        T9M06
     3196   02 006F2    CEC0172A     T9M03    TDV,12   *:DEVADDR         ISSUE TDV
     3197   02 006F3    31D01EE2              CW,13    =X'02000000'      TEST FOR MOTOR SPEED INDICATOR SET
     3198   02 006F4    694006FB              BCS,4    T9M04             SET
     3199   02 006F5    6AF01765              BAL,15   :ERRORT           DISPLAY TDV STATUS
     3200   02 006F6    00001C28              DATA     BA(T9SEQ3)        TEST SEQ
     3201   02 006F7    680006F8              B        %+1
     3202   02 006F8    EAF0021B A            BAL,15   *:ERROR
     3203   02 006F9    0000038A A            DATA     906               *** ERROR 906 ***
     3204   02 006FA    68000703              B        T9M06
     3205                            *
     3206   02 006FB    EAF0021B A   T9M04    BAL,15   *:ERROR
     3207   02 006FC    00000387 A            DATA     903               *** ERROR 903 ***
     3208   02 006FD    68000703              B        T9M06
     3209   02 006FE    6AF01765     T9M05    BAL,15   :ERRORT           TEST TDV STATUS
     3210   02 006FF    00001C28              DATA     BA(T9SEQ3)        TEST SEQ
     3211   02 00700    68000706              B        T9M07             OK
     3212   02 00701    EAF0021B A            BAL,15   *:ERROR
     3213   02 00702    00000389 A            DATA     905               *** ERROR 905 ***
     3214   02 00703    EAF0021D A   T9M06    BAL,15   *:SENSE
     3215   02 00704    2E000704              WAIT     %
     3216   02 00705    680006DA              B        T9M01             LOOP
     3217   02 00706    6AF01CBD     T9M07    BAL,15   RESTM             RESET TM
     3218   02 00707    2241F000 A            LI,4     X'1F000'
     3219   02 00708    64400708              BDR,4    %                 DELAY
     3220   02 00709    6800040E              B        EXIT              EXIT
     3221         02 0033E           T9SEQ1   EQU      TSEQ1
     3222         02 00355           T9SEQ2   EQU      TSEQ9
     3223   02 0070A    4E000000 A   T9SEQ3   :TSEQ    TDVT6
     3224                            *
     3225   02 0070B    32400744     TST110   LW,4     T10XPSD
     3226   02 0070C    3540005C A            STW,4    X'5C'             INTER XPSD TO LOC.
     3227   02 0070D    6EC00000 A   T10M01   AIO,12   0                 ISSUE AIO
     3228   02 0070E    CFC0172A              HIO,12   *:DEVADDR         ISSUE HIO
     3229   02 0070F    22400000 A            LI,4     0
     3230   02 00710    35400363              STW,4    T10ERR            RESET ERR FLAG
     3231   02 00711    220007E0              LI,0     DA(IOCD22)
     3232   02 00712    CCC0172A              SIO,12   *:DEVADDR         ISSUE SIO - STOP AND INTERRUPT
     3233   02 00713    6AF018CB              BAL,15   :INTAE            ARM/ENABLE IO INTERRUPT
     3234   02 00714    32401059              LW,4     DELYTMS
     3235   02 00715    64400715              BDR,4    %                 DELAY
     3236   02 00716    32401764              LW,4     :INTRECF          TEST FOR INTERRUPT REC'D
     3237   02 00717    69300722              BNEZ     T10M03            REC'D
     3238   02 00718    6AF018D1              BAL,15   :INTD             DISARM IO INTERRUPT
     3239   02 00719    6AF01765              BAL,15   :ERRORT           DISPLAY TIO STATUS
     3240   02 0071A    00000D00              DATA     BA(T10SEQ1)
     3241   02 0071B    6800071C              B        %+1
     3242   02 0071C    EAF0021B A            BAL,15   *:ERROR
     3243   02 0071D    000003E9 A            DATA     1001              *** ERROR 1001 ***
     3244   02 0071E    EAF0021D A   T10M02   BAL,15   *:SENSE
     3245   02 0071F    2E00071F              WAIT     %
     3246   02 00720    6800070D              B        T10M01            LOOP
     3247   02 00721    68000725              B        T10M04            CONTINUE
     3248   02 00722    6AF018D1     T10M03   BAL,15   :INTD             DISARM IO INTERRUPT
     3249   02 00723    32500363              LW,5     T10ERR            TEST INTERRUPT HANDLER ERR FLAG
     3250   02 00724    6930071E              BNEZ     T10M02            SET
     3251   02 00725    CFC0172A     T10M04   HIO,12   *:DEVADDR         ISSUE HIO
     3252   02 00726    6EC00000 A            AIO,12   0                 ISSUE AIO
     3253   02 00727    6800040E              B        EXIT              EXIT
     3254                            *
     3255   02 00728    6AF015EA     T10INTR  BAL,15   :TIO              TEST TIO STATUS FOR IP
     3256   02 00729    FF7FC000 A            DATA     X'FF7FC000'       MASK
     3257   02 0072A    90004000 A            DATA     X'90004000'       EXP STATUS
     3258   02 0072B    6800072F              B        T10INTR1          OK
     3259   02 0072C    EAF0021B A            BAL,15   *:ERROR
     3260   02 0072D    000003EB A            DATA     1003              *** ERROR 1003 ***
     3261   02 0072E    35100363              STW,1    T10ERR            SET ERR FLAG
     3262   02 0072F    6AF015F9     T10INTR1 BAL,15   :AIO              ISSUE AIO,TEST STATUS FOR STOP INTER
     3263   02 00730    FF7FC002 A            DATA     X'FF7FC002'       MASK
     3264   02 00731    01000000 A            DATA     X'01000000'       EXP STATUS
     3265   02 00732    68000736              B        T10INTR2          OK
     3266   02 00733    EAF0021B A            BAL,15   *:ERROR
     3267   02 00734    000003EC A            DATA     1004              *** ERROR 1004 ***
     3268   02 00735    35100363              STW,1    T10ERR            SET ERR FLAG
     3269   02 00736    6AF015EA     T10INTR2 BAL,15   :TIO              TEST TIO STATUS FOR IP RESET
     3270   02 00737    FFFFC000 A            DATA     X'FFFFC000'       MASK
     3271   02 00738    10000000 A            DATA     X'10000000'       EXP STATUS
     3272   02 00739    6800073D              B        T10INTR3          OK
     3273   02 0073A    EAF0021B A            BAL,15   *:ERROR
     3274   02 0073B    000003ED A            DATA     1005              *** ERROR 1005 ***
     3275   02 0073C    35100363              STW,1    T10ERR            SET ERR FLAG
     3276   02 0073D    35101764     T10INTR3 STW,1    :INTRECF          SET INTER REC'D FLAG
     3277   02 0073E    0E200740              LPSD,2   T10PSD            EXIT HANDLER
     3278         02 00363           T10ERR   EQU      TST1X1
     3279         02 00340           T10SEQ1  EQU      TSEQ2
     3280                                     BOUND    8
     3281   02 00740    00000000 A   T10PSD   DATA     0,0
            02 00741    00000000 A
     3282   02 00742    00000728              DATA     T10INTR,0
            02 00743    00000000 A
     3283   02 00744    0F000740     T10XPSD  XPSD,0   T10PSD
     3284                            *
     3285   02 00745    22500000 A   TST111   LI,5     0
     3286   02 00746    726A1E8D     T11M01   LB,6     ORDERTBL,5        SELECT ORDER
     3287   02 00747    75600F84              STB,6    IOCD1             ENTER INTO IOCD
     3288   02 00748    CFC0172A              HIO,12   *:DEVADDR         ISSUE HIO
     3289   02 00749    75101CC9              STB,1    TMBYTE
     3290   02 0074A    6AF01CAB              BAL,15   SELTM             SELECT TM
     3291   02 0074B    220007C2              LI,0     DA(IOCD1)
     3292   02 0074C    CCC0172A              SIO,12   *:DEVADDR         ISSUE SIO - VARYING PUNCH ORDER
     3293   02 0074D    6AF0185B              BAL,15   :SAVESIO          SAVE STATUS
     3294   02 0074E    6AF01765              BAL,15   :ERRORT           TEST SIO STATUS
     3295   02 0074F    00000CF8              DATA     BA(T11SEQ1)       TEST SEQ
     3296   02 00750    68000756              B        T11M02            OK
     3297   02 00751    EAF0021B A            BAL,15   *:ERROR
     3298   02 00752    0000044E A            DATA     1102              *** ERROR 1102 ***
     3299   02 00753    EAF0021D A            BAL,15   *:SENSE
     3300   02 00754    2E000754              WAIT     %
     3301   02 00755    68000745              B        TST111             LOOP
     3302                            *
     3303   02 00756    32E01054     T11M02   LW,14    DTM
     3304   02 00757    6AF01745              BAL,15   :DELAY            DELAY
     3305   02 00758    68000759              B        %+1
     3306   02 00759    21500000 A            CI,5     0                  STOP ORDER
     3307   02 0075A    6930075F              BNE      T11M021           NO
     3308   02 0075B    6AF01765              BAL,15   :ERRORT            TEST TIO STATUS
     3309   02 0075C    00000D54              DATA     BA(T11SEQ3)       TEST SEQ
     3310   02 0075D    6800076D              B        T11M05            OK
     3311   02 0075E    68000762              B        T11M022           ERROR
     3312   02 0075F    6AF01765     T11M021  BAL,15   :ERRORT            TEST TIO STATUS, BYTE COUNT
     3313   02 00760    00001DC8              DATA     BA(T11SEQ2)       TEST SEQ
     3314   02 00761    6800076D              B        T11M05            OK
     3315   02 00762    7240000D A   T11M022  LB,4     13
     3316   02 00763    21400006 A            CI,4     X'06'             TEST FOR BUSY
     3317   02 00764    69400768              BCS,4    T11M03            BUSY
     3318   02 00765    EAF0021B A            BAL,15   *:ERROR
     3319   02 00766    0000044F A            DATA     1103              *** ERROR 1103 ***
     3320   02 00767    6800076A              B        T11M04
     3321   02 00768    EAF0021B A   T11M03   BAL,15   *:ERROR
     3322   02 00769    00000450 A            DATA     1104              *** ERROR 1104 ***
     3323   02 0076A    EAF0021D A   T11M04   BAL,15   *:SENSE
     3324   02 0076B    2E00076B              WAIT     %
     3325   02 0076C    68000745              B        TST111            LOOP
     3326   02 0076D    20500001 A   T11M05   AI,5     1                 INDEX +1
     3327   02 0076E    21500009 A            CI,5     9                 LAST ORDER
     3328   02 0076F    69100746              BL       T11M01            NOT -LOOP
     3329   02 00770    6AF01CBD              BAL,15   RESTM             RESET TM
     3330   02 00771    6800040E              B        EXIT              EXIT
     3331         02 0033E           T11SEQ1  EQU      TSEQ1
     3332   02 00772    1011121B A   T11SEQ2  :TSEQ    TIOF0,TIOF1,TIOF2,TIOT3,TIOF5,TIOF6,TIOF7,BYT00
            02 00773    151617E1 A
            02 00774    00000000 A
     3333         02 00355           T11SEQ3  EQU      TSEQ9
     3334                            *
     3335   02 00775    22400000 A   TST112   LI,4     0
     3336   02 00776    7540105A              STB,4    T12BYTE           DATA BYTE
     3337   02 00777    7240105A     T12M01   LB,4     T12BYTE
     3338   02 00778    75401F74              STB,4    BUFFER            DATA BYTE TO BUFFER
     3339   02 00779    22500000 A            LI,5     0
     3340   02 0077A    35500363              STW,5    T12ERR            RESET ERROR FLAG
     3341   02 0077B    CFC0172A              HIO,12   *:DEVADDR         ISSUE HIO
     3342   02 0077C    75201CC9              STB,2    TMBYTE            TDV SET 4
     3343   02 0077D    6AF01CAB              BAL,15   SELTM             SELECT TM
     3344   02 0077E    220007C8              LI,0     DA(IOCD6)
     3345   02 0077F    CCC0172A              SIO,12   *:DEVADDR         ISSUE SIO - BINARY, ONE BYTE
     3346   02 00780    32E01054              LW,14    DTM
     3347   02 00781    6AF01745              BAL,15   :DELAY            DELAY
     3348   02 00782    68000783              B        %+1
     3349   02 00783    6AF01765              BAL,15   :ERRORT           TEST TIO STATUS
     3350   02 00784    00000D00              DATA     BA(T12SEQ1)       TEST SEQ
     3351   02 00785    68000794              B        T12M03            OK
     3352   02 00786    35100363              STW,1    T12ERR            SET ERR FLAG
     3353   02 00787    7240000D A            LB,4     13                DEV STATUS
     3354   02 00788    21400006 A            CI,4     X'06'             TEST FOR BUSY
     3355   02 00789    6840078D              BCR,4    T12M02            NOT BUSY
     3356   02 0078A    EAF0021B A            BAL,15   *:ERROR
     3357   02 0078B    000004B2 A            DATA     1202              *** ERROR 1202 ***
     3358   02 0078C    680007AB              B        T12M08
     3359   02 0078D    31D01EE1     T12M02   CW,13    =X'08000000'      TEST FOR UE
     3360   02 0078E    68400792              BCR,4    T12M021           NO UE
     3361   02 0078F    EAF0021B A            BAL,15   *:ERROR
     3362   02 00790    000004B3 A            DATA     1203              *** ERROR 1203 ***
     3363   02 00791    68000794              B        T12M03
     3364   02 00792    EAF0021B A   T12M021  BAL,15   *:ERROR
     3365   02 00793    000004B4 A            DATA     1204              *** ERROR 1204 ***
     3366   02 00794    6AF01765     T12M03   BAL,15   :ERRORT           TEST OPER STATUS
     3367   02 00795    00000D0C              DATA     BA(T12SEQ2)       TEST SEQ
     3368   02 00796    6800079B              B        T12M05            OK
     3369   02 00797    35100363              STW,1    T12ERR            SET ERR FLAG
     3370   02 00798    EAF0021B A            BAL,15   *:ERROR
     3371   02 00799    000004B5 A            DATA     1205              *** ERROR 1205 ***
     3372   02 0079A    6800079B              B        T12M05
     3373   02 0079B    5242000D A   T12M05   LH,4     13,1              TERMINAL BYTE COUNT
     3374   02 0079C    683007A0              BEZ      T12M06            BC=0
     3375   02 0079D    EAF0021B A            BAL,15   *:ERROR
     3376   02 0079E    000004B7 A            DATA     1207              *** ERROR 1207 ***
     3377   02 0079F    680007AB              B        T12M08
     3378                            *
     3379   02 007A0    CEC0172A     T12M06   TDV,12   *:DEVADDR         ISSUE TDV TO FETCH CONTR DATA BFR
     3380   02 007A1    72B0105A              LB,11    T12BYTE           EXP BYTE
     3381   02 007A2    71B0000D A            CB,11    13                COMPARE
     3382   02 007A3    683007A9              BE       T12M07            EQUAL
     3383   02 007A4    22A000FF A            LI,10    X'FF'             MASK
     3384   02 007A5    6AF01D66              BAL,15   TDVDISP           DISPLAY EXP,OBS BYTE
     3385   02 007A6    35100363              STW,1    T12ERR            SET ERR FLAG
     3386   02 007A7    EAF0021B A            BAL,15   *:ERROR
     3387   02 007A8    000004B8 A            DATA     1208              *** ERROR 1208 ***
     3388   02 007A9    32400363     T12M07   LW,4     T12ERR            TEST ERR FLAG
     3389   02 007AA    683007AE              BEZ      T12M09            RESET (NO ERRORS)
     3390   02 007AB    EAF0021D A   T12M08   BAL,15   *:SENSE
     3391   02 007AC    2E0007AC              WAIT     %
     3392   02 007AD    68000777              B        T12M01
     3393                            *
     3394   02 007AE    7240105A     T12M09   LB,4     T12BYTE           BYTE
     3395   02 007AF    20400001 A            AI,4     1                 BYTE +X'01'
     3396   02 007B0    7540105A              STB,4    T12BYTE           SAVE
     3397   02 007B1    21400100 A            CI,4     X'100'            TEST FOR COMPLETION
     3398   02 007B2    68400777              BCR,4    T12M01            NOT  FINISHED -LOOP
     3399   02 007B3    6AF01CBD              BAL,15   RESTM             RESET TM
     3400   02 007B4    6800040E              B        EXIT              EXIT
     3401         02 00340           T12SEQ1  EQU      TSEQ2
     3402         02 00343           T12SEQ2  EQU      TSEQ3
     3403         02 00363           T12ERR   EQU      TST1X1
     3404                            *
     3405   02 007B5    75301CC9     TST113   STB,3    TMBYTE            TDV SET 3
     3406   02 007B6    6AF01CAB              BAL,15   SELTM             SELECT TM
     3407   02 007B7    6AF0107A              BAL,15   CLRBUF            CLEAR PUNCH BUFFER
     3408   02 007B8    CFC0172A     T13M01   HIO,12   *:DEVADDR         ISSUE HIO
     3409   02 007B9    22500000 A            LI,5     0
     3410   02 007BA    35500363              STW,5    T13ERR            RESET ERROR FLAG
     3411   02 007BB    220007C9              LI,0     DA(IOCD7)
     3412   02 007BC    CCC0172A              SIO,12   *:DEVADDR         ISSUE SIO -BINARY , 120 BYTES
     3413   02 007BD    32E01055              LW,14    DTMP
     3414   02 007BE    6AF01745              BAL,15   :DELAY            DELAY 183 MSEC
     3415   02 007BF    680007C0              B        %+1
     3416   02 007C0    6AF01765              BAL,15   :ERRORT           TEST TIO STATUS
     3417   02 007C1    00000D00              DATA     BA(T13SEQ3)
     3418   02 007C2    680007D1              B        T13M04            OK
     3419   02 007C3    35100363              STW,1    T13ERR            SET ERROR FLAG
     3420   02 007C4    7240000D A            LB,4     13                DEV STATUS
     3421   02 007C5    21400006 A            CI,4     X'06'             TEST FOR BUSY
     3422   02 007C6    684007CA              BCR,4    T13M02            READY
     3423   02 007C7    EAF0021B A            BAL,15   *:ERROR
     3424   02 007C8    00000519 A            DATA     1305              *** ERROR 1305 ***
     3425   02 007C9    680007E4              B        T13M09
     3426   02 007CA    31D01EE1     T13M02   CW,13    =X'08000000'      TEST FOR UE
     3427   02 007CB    684007CF              BCR,4    T13M03            NO UE
     3428   02 007CC    EAF0021B A            BAL,15   *:ERROR
     3429   02 007CD    0000051A A            DATA     1306              *** ERROR 1306 ***
     3430   02 007CE    680007D1              B        T13M04
     3431   02 007CF    EAF0021B A   T13M03   BAL,15   *:ERROR
     3432   02 007D0    0000051B A            DATA     1307              *** ERROR 1307 ***
     3433   02 007D1    5242000D A   T13M04   LH,4     13,1              TERMINAL BYTE COUNT
     3434   02 007D2    683007D6              BEZ      T13M05            B.C.= 0
     3435   02 007D3    35100363              STW,1    T13ERR            SET ERROR FLAG
     3436   02 007D4    EAF0021B A            BAL,15   *:ERROR
     3437   02 007D5    0000051C A            DATA     1308              *** ERROR 1308 ***
     3438   02 007D6    6AF01765     T13M05   BAL,15   :ERRORT           TEST OPER STATUS
     3439   02 007D7    00000D0C              DATA     BA(T13SEQ4)       TEST SEQ
     3440   02 007D8    680007DC              B        T13M07            OK
     3441   02 007D9    EAF0021B A            BAL,15   *:ERROR
     3442   02 007DA    0000051D A            DATA     1309              *** ERROR 1309 ***
     3443   02 007DB    680007DC              B        T13M07
     3444   02 007DC    6AF01765     T13M07   BAL,15   :ERRORT           TEST TDV SET 3 FOR CHAIN MOD.
     3445   02 007DD    00001FA4              DATA     BA(T13SEQ5)       TEST SEQ
     3446   02 007DE    680007E2              B        T13M08            CHAIN MOD. SET
     3447   02 007DF    35100363              STW,1    T13ERR            SET ERROR FLAG
     3448   02 007E0    EAF0021B A            BAL,15   *:ERROR
     3449   02 007E1    0000051F A            DATA     1311              *** ERROR 1311 ***
     3450   02 007E2    32400363     T13M08   LW,4     T13ERR            ERROR FLAG
     3451   02 007E3    683007E7              BEZ      T13M10            NO ERRORS
     3452   02 007E4    EAF0021D A   T13M09   BAL,15   *:SENSE
     3453   02 007E5    2E0007E5              WAIT     %
     3454   02 007E6    680007B5              B        TST113            LOOP
     3455   02 007E7    6AF01CBD     T13M10   BAL,15   RESTM             RESET TEST MODE
     3456   02 007E8    6800040E              B        EXIT              EXIT
     3457         02 00340           T13SEQ3  EQU      TSEQ2
     3458         02 00343           T13SEQ4  EQU      TSEQ3
     3459   02 007E9    4F000000 A   T13SEQ5  :TSEQ    TDVT7
     3460         02 00363           T13ERR   EQU      TST1X1
     3461                            *
     3462   02 007EA    75101CC9     TST114   STB,1    TMBYTE            TDV SET 2
     3463   02 007EB    6AF01CAB              BAL,15   SELTM             SELECT TEST MODE
     3464   02 007EC    220007C8              LI,0     DA(IOCD6)
     3465   02 007ED    CCC0172A              SIO,12   *:DEVADDR         ISSUE SIO - BINARY, BC=1
     3466   02 007EE    224000FF A            LI,4     X'FF'
     3467   02 007EF    644007EF              BDR,4    %                 DELAY
     3468   02 007F0    22500000 A   T14M01   LI,5     0
     3469   02 007F1    3550105A              STW,5    T14ROW            RESET EXPECTED ROW VALUE TO X'0'
     3470   02 007F2    CEC0172A              TDV,12   *:DEVADDR         ISSUE TDV
     3471   02 007F3    7240000D A            LB,4     13                FORM ROW COUNTER VALUE
     3472   02 007F4    2540007C A            SLS,4    -4
     3473   02 007F5    3140105A              CW,4     T14ROW            COMPARE TO EXPECTED X'0'
     3474   02 007F6    683007FE              BE       T14M02            OK  (ROW COUNTER RESET TO X'0')
     3475   02 007F7    22A000F0 A            LI,10    X'F0'             MASK
     3476   02 007F8    32B0105A              LW,11    T14ROW            EXP 4 BITS
     3477   02 007F9    25B00004 A            SLS,11   4                 ADJUST
     3478   02 007FA    6AF01D66              BAL,15   TDVDISP           DISPLAY TDV STATUS
     3479   02 007FB    EAF0021B A            BAL,15   *:ERROR
     3480   02 007FC    0000057A A            DATA     1402              *** ERROR 1402 ***
     3481   02 007FD    68000814              B        T14M04
     3482   02 007FE    6610105A     T14M02   AWM,1    T14ROW            ROW COUNT + 1
     3483   02 007FF    32401056              LW,4     DTMRT             MAX TIME BETWEEN ROW CHANGES
     3484   02 00800    CEC0172A              TDV,12   *:DEVADDR         ISSUE TDV
     3485   02 00801    7250000D A            LB,5     13
     3486   02 00802    2550007C A            SLS,5    -4
     3487   02 00803    3150105A              CW,5     T14ROW            TEST FOR ROW CHANGE
     3488   02 00804    6830080D              BE       T14M03            EQUAL
     3489   02 00805    64400800              BDR,4    %-5               DECR TIME - LOOP
     3490   02 00806    22A000F0 A            LI,10    X'F0'             MASK
     3491   02 00807    32B0105A              LW,11    T14ROW            EXP 4 BITS
     3492   02 00808    25B00004 A            SLS,11   4                 ADJUST
     3493   02 00809    6AF01D66              BAL,15   TDVDISP           TIMEOUT- DISPLAY ROW COUNTER
     3494   02 0080A    EAF0021B A            BAL,15   *:ERROR
     3495   02 0080B    0000057B A            DATA     1403              *** ERROR 1403 ***
     3496   02 0080C    68000814              B        T14M04
     3497   02 0080D    2150000E A   T14M03   CI,5     X'E'              TEST FOR ROW 15 (X'E'
     3498   02 0080E    693007FE              BNE      T14M02            NOT ROW 15 -LOOP
     3499   02 0080F    6AF01765              BAL,15   :ERRORT           TEST TIO STATUS FOR READY
     3500   02 00810    00000D00              DATA     BA(T14SEQ1)       TEST SEQ
     3501   02 00811    68000817              B        T14M05            OK
     3502   02 00812    EAF0021B A            BAL,15   *:ERROR
     3503   02 00813    0000057C A            DATA     1404              *** ERROR 1404 ***
     3504   02 00814    EAF0021D A   T14M04   BAL,15   *:SENSE
     3505   02 00815    2E000815              WAIT     %
     3506   02 00816    680007EA              B        TST114
     3507   02 00817    6AF01CBD     T14M05   BAL,15   RESTM             RESET TEST MODE
     3508   02 00818    6800040E              B        EXIT              EXIT
     3509         02 00340           T14SEQ1  EQU      TSEQ2
     3510                            *
     3511   02 00819    75101CC9     TST115   STB,1    TMBYTE            TDV SET 2
     3512   02 0081A    6AF01CAB              BAL,15   SELTM             SELECT TEST MODE
     3513   02 0081B    3520105A              STW,2    T15SKP            INIT EXP SKIP VALUE TO 10
     3514   02 0081C    3240105A              LW,4     T15SKP
     3515   02 0081D    55120F97     T15M01   STH,1    IOCD9+1,1         SAVE AS BYTE COUNT
     3516   02 0081E    220007CB     T15M02   LI,0     DA(IOCD9)
     3517   02 0081F    CCC0172A              SIO,12   *:DEVADDR         ISSUE SIO - BINARY, BC=1
     3518   02 00820    32401056              LW,4     DTMRT             MAX DELAY TIME
     3519   02 00821    CDC0172A              TIO,12   *:DEVADDR         ISSUE TIO
     3520   02 00822    68C00824              BCR,12   %+2               CONTR READY
     3521   02 00823    64400821              BDR,4    %-2               BUSY-DECR TIME, LOOP
     3522   02 00824    6AF01765              BAL,15   :ERRORT           TEST TIO STATUS
     3523   02 00825    00000D00              DATA     BA(T15SEQ1)       TEST SEQ
     3524   02 00826    6800082A              B        T15M03            OK
     3525   02 00827    EAF0021B A            BAL,15   *:ERROR
     3526   02 00828    000005DF A            DATA     1503              *** ERROR 1503 ***
     3527   02 00829    68000840              B        T15M05
     3528   02 0082A    CEC0172A     T15M03   TDV,12   *:DEVADDR         ISSUE TDV
     3529   02 0082B    7250000D A            LB,5     13
     3530   02 0082C    2550007E A            SLS,5    -2
     3531   02 0082D    4B500003 A            AND,5    3                 MASK
     3532   02 0082E    3150105A              CW,5     T15SKP            COMPARE TO EXP SKIP VALUE
     3533   02 0082F    68300837              BE       T15M04            OK
     3534   02 00830    22A0000C A            LI,10    X'0C'             MASK
     3535   02 00831    32B0105A              LW,11    T15SKP            EXPECTED BALUE
     3536   02 00832    25B00002 A            SLS,11   2
     3537   02 00833    6AF01D66              BAL,15   TDVDISP           DISPLAY EXP, OBS SKIP CTR VALUES
     3538   02 00834    EAF0021B A            BAL,15   *:ERROR
     3539   02 00835    000005DE A            DATA     1502              *** ERROR 1502 ***
     3540   02 00836    68000840              B        T15M05
     3541   02 00837    3240105A     T15M04   LW,4     T15SKP            TEST EXP SKIP FOR 00
     3542   02 00838    68300843              BEZ      T15M07            COMPLETED
     3543   02 00839    3120105A              CW,2     T15SKP            SKIP=10
     3544   02 0083A    6930083D              BNE      %+3               NO
     3545   02 0083B    3530105A              STW,3    T15SKP            SET SKIP TO 11
     3546   02 0083C    6800081E              B        T15M02            LOOP
     3547   02 0083D    22400000 A            LI,4     0
     3548   02 0083E    3540105A              STW,4    T15SKP            SET SKIP TO 00
     3549   02 0083F    6800081E              B        T15M02            LOOP
     3550   02 00840    EAF0021D A   T15M05   BAL,15   *:SENSE
     3551   02 00841    2E000841              WAIT     %
     3552   02 00842    68000819              B        TST115            LOOP
     3553                            *
     3554   02 00843    6AF01CBD     T15M07   BAL,15   RESTM             RESET TM
     3555   02 00844    6800040E              B        EXIT              EXIT
     3556         02 00340           T15SEQ1  EQU      TSEQ2
     3557                            *
     3558   02 00845    55120F97     TST118   STH,1    IOCD9+1,1         BYTE COUNT = 1
     3559   02 00846    22400000 A            LI,4     0
     3560   02 00847    35401F74              STW,4    BUFFER            DATA BYTE = X'00'
     3561   02 00848    224008A7              LI,4     T18TBR
     3562   02 00849    354008A3              STW,4    T18BASE           SAVE ROW BASE ADDR
     3563   02 0084A    22400000 A   T18M01   LI,4     0
     3564   02 0084B    35400363              STW,4    T18COUNT          INIT ROW COUNT
     3565   02 0084C    32401059     T18M020  LW,4     DELYTMS
     3566   02 0084D    CDC0172A              TIO,12   *:DEVADDR         ISSUE TIO
     3567   02 0084E    68C00856              BCR,12   T18M022           CONTR READY
     3568   02 0084F    6440084D              BDR,4    %-2               DECR TIME - LOOP
     3569   02 00850    6AF01765              BAL,15   :ERRORT           REPORT STATUS
     3570   02 00851    00000D20              DATA     BA(T18SEQ2)       TEST SEQ
     3571   02 00852    68000853              B        %+1
     3572   02 00853    EAF0021B A            BAL,15   *:ERROR
     3573   02 00854    0000070D A            DATA     1805              *** ERROR 1805 ***
     3574   02 00855    6800089C              B        T18M17
     3575   02 00856    75101CC9     T18M022  STB,1    TMBYTE            TDV SET 2
     3576   02 00857    6AF01CAB              BAL,15   SELTM             SELECT TM
     3577   02 00858    32401059              LW,4     DELYTMS           DELAY TIME
     3578   02 00859    CEC0172A     T18M023  TDV,12   *:DEVADDR         ISSUE TDV
     3579   02 0085A    7250000D A            LB,5     13                STATUS
     3580   02 0085B    2550007C A            SLS,5    -4                ISOLATE ROW COUNTER
     3581   02 0085C    31500363              CW,5     T18COUNT          REQ'D ROW
     3582   02 0085D    68300866              BE       T18M03
     3583   02 0085E    64400859              BDR,4    %-5               NO-DECR TIME, LOOP
     3584   02 0085F    22A000F0 A            LI,10    X'F0'             MASK
     3585   02 00860    32B00363              LW,11    T18COUNT          EXP ROW COUNT
     3586   02 00861    25B00004 A            SLS,11   4                 ADJUST
     3587   02 00862    6AF01D66              BAL,15   TDVDISP           DISPLAY ROW COUNTER
     3588   02 00863    EAF0021B A            BAL,15   *:ERROR
     3589   02 00864    0000070C A            DATA     1804              *** ERROR 1804 ***
     3590   02 00865    6800089C              B        T18M17
     3591   02 00866    220007CB     T18M03   LI,0     DA(IOCD9)
     3592   02 00867    CCC0172A              SIO,12   *:DEVADDR         ISSUE SIO- BINARY, VARIABLE BYTE CNT
     3593   02 00868    6AF0185B              BAL,15   :SAVESIO          SAVE SIO STATUS
     3594   02 00869    6AF01765              BAL,15   :ERRORT           TEST SIO STATUS
     3595   02 0086A    00000CF8              DATA     BA(T18SEQ1)       TEST SEQ
     3596   02 0086B    6800086F              B        T18M04            OK
     3597   02 0086C    EAF0021B A            BAL,15   *:ERROR
     3598   02 0086D    0000070A A            DATA     1802              *** ERROR 1802 ***
     3599   02 0086E    6800089C              B        T18M17
     3600   02 0086F    32E01056     T18M04   LW,14    DTMRT             ONE ROW DELAY
     3601   02 00870    CDC0172A              TIO,12   *:DEVADDR         ISSUE TIO
     3602   02 00871    4BD01E9D              AND,13   KFFF              MASK BC
     3603   02 00872    68400877              BCR,4    T18M07            BYTE COUNT = 0
     3604   02 00873    64E00870              BDR,14   %-3               LOOP
     3605   02 00874    EAF0021B A            BAL,15   *:ERROR
     3606   02 00875    0000070B A            DATA     1803              *** ERROR 1803 ***
     3607   02 00876    6800089C              B        T18M17
     3608   02 00877    32401F74     T18M07   LW,4     BUFFER            PATTERN
     3609   02 00878    68300884              BEZ      T18M082           X'00' BYTES
     3610   02 00879    52420F97              LH,4     IOCD9+1,1         BYTE COUNT
     3611   02 0087A    324808A3              LW,4     T18BC1-1,4        1 BIT POINTER
     3612                            *                                                                   *A01
     3613   02 0087B    B25808A3              LW,5     *T18BASE,4        1 BIT ROW
     3614   02 0087C    31500363              CW,5     T18COUNT          THIS ROW = 1 BIT
     3615   02 0087D    69300884              BNE      T18M082           TEST FOR 0 BIT DECODE OUTPUT    *A01
     3616   02 0087E    6AF01765     T18M080  BAL,15   :ERRORT           TEST TDV SET 2 FOR BIN DECODE = 1
     3617   02 0087F    00002288              DATA     BA(T18SEQ4)       TEST SEQ
     3618   02 00880    68000888              B        T18M09            OK
     3619   02 00881    EAF0021B A   T18M081  BAL,15   *:ERROR
     3620   02 00882    0000070E A            DATA     1806              *** ERROR 1806 ***
     3621   02 00883    6800089C              B        T18M17
     3622   02 00884    6AF01765     T18M082  BAL,15   :ERRORT           TEST TDV SET 2 FOR BIN DECODE = 0
     3623   02 00885    00002284              DATA     BA(T18SEQ3)       TEST SEQ
     3624   02 00886    68000888              B        %+2               OK
     3625   02 00887    68000881              B        T18M081           GO REPORT ERROR #
     3626   02 00888    66100363     T18M09   AWM,1    T18COUNT          ROW COUNT + 1
     3627   02 00889    32E00363              LW,14    T18COUNT
     3628   02 0088A    21E0000C A            CI,14    12                TEST FOR ROW 12 TIME
     3629   02 0088B    6910084C              BL       T18M020           NOT - LOOP                      *A01
     3630   02 0088C    66100F97              AWM,1    IOCD9+1           BYTE COUNT + 1                  *A01
     3631   02 0088D    32400F97              LW,4     IOCD9+1                                           *A01
     3632   02 0088E    21400003 A            CI,4     3                 LAST
     3633   02 0088F    6820084A              BLE      T18M01            NO-LOOP
     3634   02 00890    35100F97              STW,1    IOCD9+1           BYTE COUNT TO 1                 *A01
     3635   02 00891    32401F74              LW,4     BUFFER            FETCH BYTES
     3636   02 00892    68300899              BEZ      T18M10            X'00' BYTES
     3637   02 00893    25400001 A            SLS,4    1
     3638   02 00894    21400100 A            CI,4     X'100'            LAST
     3639   02 00895    6940089F              BCS,4    T18M16            YES
     3640   02 00896    661008A3              AWM,1    T18BASE           INCR BASE ADDR
     3641   02 00897    35401F74              STW,4    BUFFER            SAVE NEW BYTES
     3642   02 00898    6800084A              B        T18M01            LOOP
     3643   02 00899    32E01EE3     T18M10   LW,14    =X'01010101'      X'01' BYTES
     3644   02 0089A    35E01F74              STW,14   BUFFER            SAVE                            *A01
     3645   02 0089B    6800084A              B        T18M01            LOOP
     3646   02 0089C    EAF0021D A   T18M17   BAL,15   *:SENSE           GO TEST SENSE SWITCHES
     3647   02 0089D    2E00089D              WAIT     %                 SSW 3 RESET - WAIT
     3648   02 0089E    68000845              B        TST118            SSW 1 SET   - LOOP ON TEST
     3649   02 0089F    6AF01CBD     T18M16   BAL,15   RESTM             SSW 1 RESET - EXIT
     3650   02 008A0    6800040E              B        EXIT
     3651                            *
     3652         02 00363           T18COUNT EQU      TST1X1
     3653         02 0033E           T18SEQ1  EQU      TSEQ1
     3654         02 00348           T18SEQ2  EQU      TSEQ5
     3655   02 008A1    46000000 A   T18SEQ3  :TSEQ    TDVF6
     3656   02 008A2    4E000000 A   T18SEQ4  :TSEQ    TDVT6
     3657   02 008A3    00000000 A   T18BASE  DATA     0
     3658   02 008A4    00000004 A   T18BC1   DATA     4,8,0
            02 008A5    00000008 A
            02 008A6    00000000 A
     3659   02 008A7    00000000 A   T18TBR   DATA     0,1,2,3,4,5,6,7,8,9,10,11,0,1,2,3
            02 008A8    00000001 A
            02 008A9    00000002 A
            02 008AA    00000003 A
            02 008AB    00000004 A
            02 008AC    00000005 A
            02 008AD    00000006 A
            02 008AE    00000007 A
            02 008AF    00000008 A
            02 008B0    00000009 A
            02 008B1    0000000A A
            02 008B2    0000000B A
            02 008B3    00000000 A
            02 008B4    00000001 A
            02 008B5    00000002 A
            02 008B6    00000003 A
     3660                            *
     3661   02 008B7    22400000 A   TST119   LI,4     0
     3662   02 008B8    3540091F              STW,4    T19ERF            RESET ERROR FLAG
     3663   02 008B9    35400363              STW,4    T19COUNT          ROW COUNT
     3664   02 008BA    35400364              STW,4    T19BYTE           BYTE
     3665   02 008BB    22500100 A            LI,5     256               INDEX
     3666   02 008BC    354A1FE9              STW,4    BUFFER2-1,5       CLEAR OBSERVED AREA
     3667   02 008BD    645008BC              BDR,5    %-1               LOOP
     3668   02 008BE    CFC0172A     T19M02   HIO,12   *:DEVADDR         ISSUE HIO
     3669   02 008BF    75101CC9              STB,1    TMBYTE            TDV SET 2
     3670   02 008C0    6AF01CAB              BAL,15   SELTM             SELECT TM
     3671   02 008C1    32400364              LW,4     T19BYTE           BYTE
     3672   02 008C2    75401F74              STB,4    BUFFER            SAVE IN BUFFER
     3673   02 008C3    220007CA     T19M03   LI,0     DA(IOCD8)
     3674   02 008C4    CCC0172A              SIO,12   *:DEVADDR         ISSUE SIO - EBCDIC ,BYTE COUNT =1
     3675   02 008C5    68C008CD              BCR,12   T19M04            SIO ACCEPTED
     3676   02 008C6    6AF0185B              BAL,15   :SAVESIO          SAVE SIO STATUS
     3677   02 008C7    6AF01765              BAL,15   :ERRORT           TEST SIO STATUS
     3678   02 008C8    00000CF8              DATA     BA(T19SEQ1)       TEST SEQ
     3679   02 008C9    680008CA              B        %+1
     3680   02 008CA    EAF0021B A            BAL,15   *:ERROR
     3681   02 008CB    0000076E A            DATA     1902              *** ERROR 1902 ***
     3682   02 008CC    68000915              B        T19M08
     3683                            *
     3684   02 008CD    32E01056     T19M04   LW,14    DTMRT             MAX ROW DELAY TIME
     3685   02 008CE    CDC0172A              TIO,12   *:DEVADDR         ISSUE TIO
     3686   02 008CF    3240000D A            LW,4     13                FETCH BYTE COUNT
     3687   02 008D0    4B401E9D              AND,4    KFFF              BC=0
     3688   02 008D1    684008D6              BCR,4    T19M06            YES
     3689   02 008D2    64E008CE              BDR,14   %-4               NO
     3690   02 008D3    EAF0021B A            BAL,15   *:ERROR
     3691   02 008D4    0000076F A            DATA     1903              *** ERROR 1903 ***
     3692   02 008D5    68000915              B        T19M08
     3693                            *
     3694   02 008D6    CEC0172A     T19M06   TDV,12   *:DEVADDR         ISSUE TDV
     3695   02 008D7    7240000D A            LB,4     13                ROW COUNTER, EBCDIC OUTPUT
     3696   02 008D8    2540007C A            SLS,4    -4                ADJUST
     3697   02 008D9    31400363              CW,4     T19COUNT          TEST FOR CORRECT  ROW COUNTER VALUE
     3698   02 008DA    683008E2              BE       T19M07            OK
     3699   02 008DB    22A01E9A              LI,10    KF0               MASK
     3700   02 008DC    32B00363              LW,11    T19COUNT          EXP 4 BITS
     3701   02 008DD    25B00004 A            SLS,11   4                 ADJUST
     3702   02 008DE    6AF01D66              BAL,15   TDVDISP           DISPLAU TDV STATUS
     3703   02 008DF    EAF0021B A            BAL,15   *:ERROR
     3704   02 008E0    00000771 A            DATA     1905              *** ERROR 1905 ***
     3705   02 008E1    68000915              B        T19M08
     3706   02 008E2    7250000D A   T19M07   LB,5     13                EBCDIC OUTPUT
     3707   02 008E3    4B500001 A            AND,5    1                 MASK EBCDIC DECODE OUTPUT
     3708   02 008E4    A5500363              SLS,5    *T19COUNT         ADJUST
     3709   02 008E5    32600364              LW,6     T19BYTE           INDEX = BYTE
     3710   02 008E6    495C1FEA              OR,5     BUFFER2,6         MERGE TO FORM OBS 12 BITS
     3711   02 008E7    355C1FEA              STW,5    BUFFER2,6         SAVE
     3712   02 008E8    66100363              AWM,1    T19COUNT          INCR ROW COUNT
     3713   02 008E9    32400363              LW,4     T19COUNT
     3714   02 008EA    2140000C A            CI,4     12                ROW 12
     3715   02 008EB    691008C3              BL       T19M03            NOT ROW 12-LOOP
     3716   02 008EC    22400000 A            LI,4     0
     3717   02 008ED    35400363              STW,4    T19COUNT          INITIALIZE,ROW COUNT
     3718   02 008EE    66100364              AWM,1    T19BYTE           BYTE + X'01'
     3719   02 008EF    32400364              LW,4     T19BYTE
     3720   02 008F0    21400100 A            CI,4     X'100'            TEST FOR COMPLETION
     3721   02 008F1    684008BE              BCR,4    T19M02            NOT COMPLETE  -LOOP
     3722   02 008F2    224FFF00 A            LI,4     -256              INDEX
     3723   02 008F3    32581BB1              LW,5     ETBL+256,4        EXPECTED 12 BITS
     3724   02 008F4    4B501E9D              AND,5    KFFF              MASK
     3725   02 008F5    315820EA              CW,5     BUFFER2+256,4     COMPARE TO OBS 12-BIT DECODE OUTPUT
     3726   02 008F6    693008F9              BNE      T19M071           UNEQUAL
     3727   02 008F7    654008F3     T19M070  BIR,4    %-4               LOOP
     3728   02 008F8    68000911              B        T19M072           FINISHED
     3729   02 008F9    EAF0021C A   T19M071  BAL,15   *:PRINT
     3730   02 008FA    00000920              DATA     T19MSG1           HDR
     3731   02 008FB    22C00100 A            LI,12    256
     3732   02 008FC    30C00004 A            AW,12    4                 HEX BYTE
     3733   02 008FD    EAF00218 A            BAL,15   *:HEXC            CONVERT FOR MSG
     3734   02 008FE    55F00928              STH,15   T19MSG2+3         SAVE IN MSG
     3735   02 008FF    EAF0021C A            BAL,15   *:PRINT
     3736   02 00900    00000925              DATA     T19MSG2           HDR
     3737   02 00901    22700003 A            LI,7     3                 INDEX
     3738   02 00902    32C00005 A            LW,12    5                 EXP 12 BITS
     3739   02 00903    EAF00216 A            BAL,15   *:BINC            CONVERT 4 BITS
     3740   02 00904    35FE092F              STW,15   T19MSG3+3,7       SAVE IN MSG
     3741   02 00905    64700903              BDR,7    %-2               LOOP FOR 3 SETS
     3742   02 00906    EAF0021C A            BAL,15   *:PRINT
     3743   02 00907    0000092C              DATA     T19MSG3           EXP
     3744   02 00908    32C820EA              LW,12    BUFFER2+256,4     OBS 12 BITS
     3745   02 00909    22700003 A            LI,7     3                 INDEX
     3746   02 0090A    EAF00216 A            BAL,15   *:BINC            CONVERT FOR MSG
     3747   02 0090B    35FE0936              STW,15   T19MSG4+3,7       SAVE IN MSG
     3748   02 0090C    6470090A              BDR,7    %-2               LOOP FOR 3 SETS
     3749   02 0090D    EAF0021C A            BAL,15   *:PRINT
     3750   02 0090E    00000933              DATA     T19MSG4           OBS
     3751   02 0090F    3510091F              STW,1    T19ERF            SET ERROR FLAG
     3752   02 00910    680008F7              B        T19M070           LOOP
     3753   02 00911    3240091F     T19M072  LW,4     T19ERF            TEST ERROR FLAG
     3754   02 00912    68300918              BEZ      T19M09            RESET - GO TO EXIT
     3755   02 00913    EAF0021B A            BAL,15   *:ERROR
     3756   02 00914    00000772 A            DATA     1906              *** ERROR 1906 ***
     3757   02 00915    EAF0021D A   T19M08   BAL,15   *:SENSE
     3758   02 00916    2E000916              WAIT     %
     3759   02 00917    6800091A              B        %+3
     3760   02 00918    6AF01CBD     T19M09   BAL,15   RESTM             RESET TM
     3761   02 00919    6800040E              B        EXIT              EXIT
     3762   02 0091A    CFC0172A              HIO,12   *:DEVADDR         ISSUE HIO
     3763   02 0091B    32E01054              LW,14    DTM
     3764   02 0091C    6AF01745              BAL,15   :DELAY            DELAY
     3765   02 0091D    6800091E              B        %+1
     3766   02 0091E    680008B7              B        TST119            LOOP
     3767         02 00363           T19COUNT EQU      TST1X1
     3768         02 00364           T19BYTE  EQU      TST1X2
     3769         02 0033E           T19SEQ1  EQU      TSEQ1
     3770   02 0091F    00000000 A   T19ERF   DATA     0
     3771   02 00920    13C5C2C3 A   T19MSG1  TEXTC    'EBCDIC DECODE ERROR'
            02 00921    C4C9C340 A
            02 00922    C4C5C3D6 A
            02 00923    C4C540C5 A
            02 00924    D9D9D6D9 A
     3772   02 00925    1BC8C5E7 A   T19MSG2  TEXTC    'HEX BYTE   XX  TE0123456789'
            02 00926    40C2E8E3 A
            02 00927    C5404040 A
            02 00928    E7E74040 A
            02 00929    E3C5F0F1 A
            02 0092A    F2F3F4F5 A
            02 0092B    F6F7F8F9 A
     3773   02 0092C    1BC5E7D7 A   T19MSG3  TEXTC    'EXP EBCDIC                 '
            02 0092D    40C5C2C3 A
            02 0092E    C4C9C340 A
            02 0092F    40404040 A
            02 00930    40404040 A
            02 00931    40404040 A
            02 00932    40404040 A
     3774   02 00933    1BD6C2E2 A   T19MSG4  TEXTC    'OBS EBCDIC                 '
            02 00934    40C5C2C3 A
            02 00935    C4C9C340 A
            02 00936    40404040 A
            02 00937    40404040 A
            02 00938    40404040 A
            02 00939    40404040 A
     3775   02 0093A    3250105B     TST122   LW,5     EBLANK
     3776   02 0093B    35500363              STW,5    T22INDX           INITIALIZE BYTES TO X'40'
     3777   02 0093C    32600363     T22M01   LW,6     T22INDX
     3778   02 0093D    22500014 A            LI,5     20
     3779   02 0093E    356A1F73              STW,6    BUFFER-1,5        BUILD PATTERN
     3780   02 0093F    6450093E              BDR,5    %-1
     3781   02 00940    CFC0172A     T22M02   HIO,12   *:DEVADDR         ISSUE HIO
     3782   02 00941    75301CC9              STB,3    TMBYTE            TDV SET 3
     3783   02 00942    6AF01CAB              BAL,15   SELTM             SELECT TM
     3784   02 00943    220007CD              LI,0     DA(IOCD11)
     3785   02 00944    CCC0172A              SIO,12   *:DEVADDR         ISSUE SIO -EBCDIC, BYTE COUNT = 80
     3786   02 00945    6AF018CB              BAL,15   :INTAE            ARM/ENABLE IO INTERRUPT
     3787   02 00946    32E01054              LW,14    DTM
     3788   02 00947    6AF01745              BAL,15   :DELAY            DELAY
     3789   02 00948    6800094D              B        T22M03            INTER. REC'D
     3790   02 00949    6AF018D1              BAL,15   :INTD             TIMEOUT -DISARM IO INTER
     3791   02 0094A    EAF0021B A            BAL,15   *:ERROR
     3792   02 0094B    0000089A A            DATA     2202              *** ERROR 2202 ***
     3793   02 0094C    68000960              B        T22M06
     3794   02 0094D    6AF018D1     T22M03   BAL,15   :INTD             DISARM IO INTERRUPT
     3795   02 0094E    32401D65              LW,4     TST1ERF           TEST IO INTER HANDLER ERR FLAG
     3796   02 0094F    68300953              BEZ      T22M04            NO ERROR
     3797   02 00950    EAF0021B A            BAL,15   *:ERROR
     3798   02 00951    0000089B A            DATA     2203              *** ERROR 2203 ***
     3799   02 00952    68000960              B        T22M06
     3800   02 00953    32600363     T22M04   LW,6     T22INDX           BYTES
     3801   02 00954    6910095B              BLZ      T22M05             X'FF' BYTES
     3802   02 00955    6AF01765              BAL,15   :ERRORT           TEST FOR READ REG BIT 1 = 0
     3803   02 00956    000025AC              DATA     BA(T22SEQ1)       TEST SEQ
     3804   02 00957    68000964              B        T22M07            OK
     3805   02 00958    EAF0021B A            BAL,15   *:ERROR
     3806   02 00959    0000089D A            DATA     2205              *** ERROR 2205 ***
     3807   02 0095A    68000960              B        T22M06
     3808   02 0095B    6AF01765     T22M05   BAL,15   :ERRORT           TEST FOR READ REG BIT 1 = 1
     3809   02 0095C    000025B0              DATA     BA(T22SEQ2)       TEST SEQ
     3810   02 0095D    68000964              B        T22M07            OK
     3811   02 0095E    EAF0021B A            BAL,15   *:ERROR
     3812   02 0095F    0000089C A            DATA     2204              *** ERROR 2204 ***
     3813   02 00960    EAF0021D A   T22M06   BAL,15   *:SENSE
     3814   02 00961    2E000961              WAIT     %
     3815   02 00962    6800093A              B        TST122             LOOP
     3816                            *
     3817   02 00963    CFC0172A              HIO,12   *:DEVADDR         ISSUE HIO
     3818   02 00964    32400363     T22M07   LW,4     T22INDX           BYTE
     3819   02 00965    69100969              BLZ      T22M08            X'FF' - GO TO EXIT
     3820   02 00966    224FFFFF A            LI,4     -1
     3821   02 00967    35400363              STW,4    T22INDX           SET BYTES TO X'FF'
     3822   02 00968    6800093C              B        T22M01            LOOP
     3823   02 00969    6AF01CBD     T22M08   BAL,15   RESTM             RESET TM
     3824   02 0096A    6800040E              B        EXIT              EXIT
     3825                            *
     3826         02 00363           T22INDX  EQU      TST1X1
     3827   02 0096B    41000000 A   T22SEQ1  :TSEQ    TDVF1
     3828   02 0096C    49000000 A   T22SEQ2  :TSEQ    TDVT1
     3829                            *
     3830   02 0096D    22400000 A   TST123   LI,4     0                 INIT ORDER, BYTE COUNT INDEX
     3831   02 0096E    35400364              STW,4    T23INDX1          SAVE COUNT
     3832   02 0096F    6AF0107A              BAL,15   CLRBUF            CLEAR (BUFFER)
     3833   02 00970    CFC0172A     T23M01   HIO,12   *:DEVADDR         ISSUE AN HIO
     3834   02 00971    75301CC9              STB,3    TMBYTE            TDV SET 3
     3835   02 00972    6AF01CAB              BAL,15   SELTM             SELECT TM
     3836   02 00973    32400364              LW,4     T23INDX1
     3837   02 00974    1268099A              LD,6     T23INDX,4         FETCH ORDER, BYTE COUNT         *A01
     3838   02 00975    75600F9C              STB,6    IOCD12            SAVE ORDER
     3839   02 00976    55720F9D              STH,7    IOCD12+1,1        SAVE BYTE COUNT
     3840   02 00977    220007CE              LI,0     DA(IOCD12)
     3841   02 00978    CCC0172A              SIO,12   *:DEVADDR         ISSUE AN SIO
     3842   02 00979    6AF018CB              BAL,15   :INTAE            ARM & ENABLE IO INTERRUPTS
     3843   02 0097A    32E01054              LW,14    DTM
     3844   02 0097B    6AF01745              BAL,15   :DELAY            DELAY
     3845   02 0097C    68000981              B        T23M02            INTERRUPT REC'D
     3846   02 0097D    6AF018D1              BAL,15   :INTD             DISARM IO INTERRUPTS
     3847   02 0097E    EAF0021B A            BAL,15   *:ERROR
     3848   02 0097F    000008FE A            DATA     2302              *** ERROR 2302 ***
     3849   02 00980    6800098E              B        T23M04
     3850   02 00981    6AF018D1     T23M02   BAL,15   :INTD             DISARM IO INTERRUPTS
     3851   02 00982    32501D65              LW,5     TST1ERF           TEST TST1 ERROR FLAG
     3852   02 00983    69300989              BNEZ     T23M021           SET - ERROR
     3853   02 00984    6AF01765              BAL,15   :ERRORT           TEST OPERATIONAL STATUS FOR IL
     3854   02 00985    00000D2C              DATA     BA(T23SEQ1)       TEST SEQ
     3855   02 00986    68000992              B        T23M05            OK
     3856   02 00987    31D01EE4              CW,13    =X'00800000'      IL PRESENT
     3857   02 00988    6840098C              BCR,4    T23M03            NO
     3858   02 00989    EAF0021B A   T23M021  BAL,15   *:ERROR
     3859   02 0098A    000008FF A            DATA     2303              *** ERROR 2303 ***
     3860   02 0098B    6800098E              B        T23M04
     3861   02 0098C    EAF0021B A   T23M03   BAL,15   *:ERROR
     3862   02 0098D    00000900 A            DATA     2304              *** ERROR 2304 ***
     3863   02 0098E    EAF0021D A   T23M04   BAL,15   *:SENSE           GO TEST SENSE SWITCHES
     3864   02 0098F    2E00098F              WAIT     %                 SSW 3 RESET - WAIT
     3865   02 00990    6800096D              B        TST123            SSW 1 SET   - LOOP ON TEST
     3866   02 00991    68000996              B        T23M06            GO TO EXIT
     3867   02 00992    66100364     T23M05   AWM,1    T23INDX1          INCR COUNT
     3868   02 00993    32400364              LW,4     T23INDX1
     3869   02 00994    21400004 A            CI,4     4
     3870   02 00995    69100970              BL       T23M01            NOT COMPLETE - LOOP
     3871   02 00996    6AF018D1     T23M06   BAL,15   :INTD             DISARM IO INTERRUPTS
     3872   02 00997    6AF01CBD              BAL,15   RESTM             RESET TEST MODE
     3873   02 00998    6800040E              B        EXIT              EXIT
     3874         02 0034B           T23SEQ1  EQU      TSEQ6
     3875         02 00364           T23INDX1 EQU      TST1X2
     3876                                     BOUND    8
     3877   02 0099A    00000001 A   T23INDX  DATA     1,119
            02 0099B    00000077 A
     3878   02 0099C    00000001 A            DATA     1,121
            02 0099D    00000079 A
     3879   02 0099E    00000005 A            DATA     5,79
            02 0099F    0000004F A
     3880   02 009A0    00000005 A            DATA     5,81
            02 009A1    00000051 A
     3881                            *
     3882   02 009A2    35100363     TST124   STW,1    T24INDX           INITIALIZE BYTE COUNT
     3883   02 009A3    32400363     T24M01   LW,4     T24INDX
     3884   02 009A4    55420F9F              STH,4    IOCD13+1,1        SAVE BYTE COUNT
     3885   02 009A5    75301CC9              STB,3    TMBYTE            TDV SET 3
     3886   02 009A6    6AF01CAB              BAL,15   SELTM             SELECT TM
     3887   02 009A7    CFC0172A              HIO,12   *:DEVADDR         ISSUE HIO
     3888   02 009A8    220007CF              LI,0     DA(IOCD13)
     3889   02 009A9    CCC0172A              SIO,12   *:DEVADDR         ISSUE SIO-SENSE, VARIABLE BC
     3890   02 009AA    68C009B4              BCR,12   T24M03            SIO ACCEPTED
     3891   02 009AB    6AF0185B              BAL,15   :SAVESIO          SAVE STATUS
     3892   02 009AC    6AF01765              BAL,15   :ERRORT           TEST STATUS
     3893   02 009AD    00000CF8              DATA     BA(T24SEQ1)       TEST SEQ
     3894   02 009AE    680009AF              B        %+1
     3895   02 009AF    EAF0021B A            BAL,15   *:ERROR
     3896   02 009B0    00000962 A            DATA     2402              *** ERROR 2402 ***
     3897   02 009B1    EAF0021D A            BAL,15   *:SENSE
     3898   02 009B2    2E0009B2              WAIT     %
     3899   02 009B3    680009A2              B        TST124             LOOP
     3900                            *
     3901   02 009B4    32E01054     T24M03   LW,14    DTM
     3902   02 009B5    6AF01745              BAL,15   :DELAY            DELAY
     3903   02 009B6    680009B7              B        %+1
     3904   02 009B7    6AF01765              BAL,15   :ERRORT           TEST TIO,OSB,BYTE COUNT
     3905   02 009B8    00000D78              DATA     BA(T24SEQ2)       TEST SEQ
     3906   02 009B9    680009C5              B        T24M06            OK
     3907   02 009BA    31D01EE5              CW,13    =X'06000000'      TEST FOR CONTR BUSY
     3908   02 009BB    684009BF              BCR,4    T24M04            READY
     3909   02 009BC    EAF0021B A            BAL,15   *:ERROR
     3910   02 009BD    00000963 A            DATA     2403              *** ERROR 2403 ***
     3911   02 009BE    680009C1              B        T24M05
     3912   02 009BF    EAF0021B A   T24M04   BAL,15   *:ERROR
     3913   02 009C0    00000964 A            DATA     2404              *** ERROR 2404 ***
     3914   02 009C1    EAF0021D A   T24M05   BAL,15   *:SENSE
     3915   02 009C2    2E0009C2              WAIT     %
     3916   02 009C3    680009A2              B        TST124            LOOP
     3917                            *
     3918   02 009C4    CFC0172A              HIO,12   *:DEVADDR         ISSUE HIO
     3919   02 009C5    66100363     T24M06   AWM,1    T24INDX           BYTE COUNT +1
     3920   02 009C6    32400363              LW,4     T24INDX
     3921   02 009C7    21400051 A            CI,4     81                COMPLETED ?
     3922   02 009C8    682009A3              BLE      T24M01            NOT COMPLETE - LOOP
     3923   02 009C9    6AF01CBD              BAL,15   RESTM             RESET TM
     3924   02 009CA    6800040E              B        EXIT              EXIT
     3925                            *
     3926         02 00363           T24INDX  EQU      TST1X1
     3927         02 0033E           T24SEQ1  EQU      TSEQ1
     3928         02 0035E           T24SEQ2  EQU      TSEQ11
     3929                            *
     3930   02 009CB    35100363     TST127   STW,1    T27INDX1          INIT ROW COUNT
     3931   02 009CC    22700000 A            LI,7     0
     3932   02 009CD    35700364              STW,7    T27INDX2          INITIALIZE 0 - 1 DECISION
     3933   02 009CE    6AF01091              BAL,15   EBKBUF            SET (BUFFER) = X'40404040'
     3934   02 009CF    CFC0172A              HIO,12   *:DEVADDR
     3935   02 009D0    32500364     T27M021  LW,5     T27INDX2          FETCH 0-1 DECISION INDEX
     3936   02 009D1    683009D9              BEZ      T27M04            0'S TO BE TESTED
     3937   02 009D2    32400363              LW,4     T27INDX1          FETCH ROW COUNT
     3938   02 009D3    72680A13              LB,6     T27BYTE,4         FETCH BYTE
     3939   02 009D4    22700014 A            LI,7     20
     3940   02 009D5    75640006 A            STB,6    6,2
     3941   02 009D6    55600006 A            STH,6    6
     3942   02 009D7    356E1F73              STW,6    BUFFER-1,7        BUILD PATTERN
     3943   02 009D8    647009D7              BDR,7    %-1
     3944   02 009D9    75101CC9     T27M04   STB,1    TMBYTE            TDV SET 2
     3945   02 009DA    6AF01CAB              BAL,15   SELTM             SELECT TM
     3946   02 009DB    220007D0     T27M041  LI,0     DA(IOCD14)
     3947   02 009DC    CCC0172A              SIO,12   *:DEVADDR         ISSUE SIO - EBCDIC, BYTE COUNT =80
     3948   02 009DD    CDC0172A              TIO,12   *:DEVADDR         TEST FOR READY
     3949   02 009DE    69C009DD              BCS,12   %-1               NOT-LOOP
     3950   02 009DF    CEC0172A              TDV,12   *:DEVADDR         ISSUE TDV
     3951   02 009E0    7240000D A            LB,4     13                FETCH ROW
     3952   02 009E1    2540007C A            SLS,4    -4                ISOLATE
     3953   02 009E2    30400001 A            AW,4     1                 INCR
     3954   02 009E3    31400363              CW,4     T27INDX1          REQ'D ROW ?
     3955   02 009E4    691009DB              BL       T27M041           NO-LOOP
     3956   02 009E5    6AF01765              BAL,15   :ERRORT           TEST STATUS
     3957   02 009E6    00000D38              DATA     BA(T27SEQ1)       TEST SEQ
     3958   02 009E7    680009EB              B        T27M05            OK
     3959   02 009E8    EAF0021B A            BAL,15   *:ERROR
     3960   02 009E9    00000A8E A            DATA     2702              *** ERROR 2702 ***
     3961   02 009EA    68000A04              B        T27M08
     3962                            *
     3963   02 009EB    220007D1     T27M05   LI,0     DA(IOCD15)
     3964   02 009EC    CCC0172A              SIO,12   *:DEVADDR         ISSUE SIO - SENSE, BYTE COUNT = 81
     3965   02 009ED    CDC0172A              TIO,12   *:DEVADDR         TEST FOR READY
     3966   02 009EE    69C009ED              BCS,12   %-1               BUSY
     3967   02 009EF    6AF01765              BAL,15   :ERRORT           TEST STATUS
     3968   02 009F0    00000D78              DATA     BA(T27SEQ2)       TEST SEQ
     3969   02 009F1    680009F5              B        T27M06            OK
     3970   02 009F2    EAF0021B A            BAL,15   *:ERROR
     3971   02 009F3    00000A8F A            DATA     2703              *** ERROR 2703 ***
     3972   02 009F4    68000A04              B        T27M08
     3973                            *
     3974   02 009F5    22601FEA     T27M06   LI,6     BUFFER2           READ BFR ADDR
     3975   02 009F6    6AF01D36              BAL,15   MERGEB            MERGE READ BITS
     3976   02 009F7    32500364              LW,5     T27INDX2          TEST 0-1 DECISION INDEX
     3977   02 009F8    693009FF              BNEZ     T27M07            1 BITS EXPECTED
     3978   02 009F9    35201D35              STW,2    COMPO             SET EBCDIC FLAG
     3979   02 009FA    6AF01CD0              BAL,15   COMPREG           TEST FOR ALL 0'S
     3980   02 009FB    68000A08              B        T27M09            OK
     3981   02 009FC    EAF0021B A            BAL,15   *:ERROR
     3982   02 009FD    00000A90 A            DATA     2704              *** ERROR 2704 ***
     3983   02 009FE    68000A04              B        T27M08
     3984                            *
     3985   02 009FF    35201D35     T27M07   STW,2    COMPO             SET EBCDIC FLAG
     3986   02 00A00    6AF01CD0              BAL,15   COMPREG           TEST FOR ALL 1'S
     3987   02 00A01    68000A08              B        T27M09            OK
     3988   02 00A02    EAF0021B A            BAL,15   *:ERROR
     3989   02 00A03    00000A91 A            DATA     2705              *** ERROR 2705 ***
     3990   02 00A04    EAF0021D A   T27M08   BAL,15   *:SENSE
     3991   02 00A05    2E000A05              WAIT     %
     3992   02 00A06    680009CB              B        TST127            LOOP
     3993   02 00A07    68000A11              B        T27M10            GO TO EXIT
     3994                            *
     3995   02 00A08    66100363     T27M09   AWM,1    T27INDX1          INCR ROW COUNT
     3996   02 00A09    32400363              LW,4     T27INDX1          ROW COUNT
     3997   02 00A0A    2140000C A            CI,4     12                LAST ?
     3998   02 00A0B    691009D9              BL       T27M04            NOT-LOOP
     3999   02 00A0C    32500364              LW,5     T27INDX2          TEST 0-1 DECISION
     4000   02 00A0D    69300A11              BNEZ     T27M10            1 - COMPLETE
     4001   02 00A0E    66100364              AWM,1    T27INDX2          SET TO 1
     4002   02 00A0F    35100363              STW,1    T27INDX1          INIT ROW COUNT
     4003   02 00A10    680009D0              B        T27M021           LOOP
     4004   02 00A11    6AF01CBD     T27M10   BAL,15   RESTM             RESET TM
     4005   02 00A12    6800040E              B        EXIT              EXIT
     4006                            *
     4007         02 0034E           T27SEQ1  EQU      TSEQ7
     4008         02 0035E           T27SEQ2  EQU      TSEQ11
     4009         02 00363           T27INDX1 EQU      TST1X1
     4010         02 00364           T27INDX2 EQU      TST1X2
     4011   02 00A13    00       A   T27BYTE  DATA,1   0,0,8,7,6,5,4,3,2,1,0,11,10
            02 00A13 1  00       A
            02 00A13 2  08       A
            02 00A13 3  07       A
            02 00A14    06       A
            02 00A14 1  05       A
            02 00A14 2  04       A
            02 00A14 3  03       A
            02 00A15    02       A
            02 00A15 1  01       A
            02 00A15 2  00       A
            02 00A15 3  0B       A
            02 00A16    0A       A
     4012   02 00A17    35100363     TST128   STW,1    T28INDX1          INIT ROW COUNT
     4013   02 00A18    22400000 A            LI,4     0
     4014   02 00A19    35400364              STW,4    T28INDX2          CLEAR SWITCH
     4015   02 00A1A    2240001E A            LI,4     30
     4016   02 00A1B    32501EE6              LW,5     =X'AAAAAAAA'      BUILD PATTERN OF ALT.1'S ,0'S
     4017   02 00A1C    35581F73              STW,5    BUFFER-1,4
     4018   02 00A1D    64400A1C              BDR,4    %-1
     4019   02 00A1E    CFC0172A     T28M01   HIO,12   *:DEVADDR         ISSUE HIO
     4020   02 00A1F    32400364     T28M02   LW,4     T28INDX2          SWITCH
     4021   02 00A20    68300A25              BEZ      T28M03            ALTERN. 1,0 PAT'N REQ'D
     4022   02 00A21    22500028 A            LI,5     40
     4023   02 00A22    6AF018DA              BAL,15   :RANDOMX          BUILD RANDOM PAT'N
     4024   02 00A23    35EA1F73              STW,14   BUFFER-1,5
     4025   02 00A24    64500A22              BDR,5    %-2
     4026   02 00A25    75101CC9     T28M03   STB,1    TMBYTE            TDV SET 2
     4027   02 00A26    6AF01CAB              BAL,15   SELTM             SELECT TM
     4028   02 00A27    220007C9     T28M031  LI,0     DA(IOCD7)
     4029   02 00A28    CCC0172A              SIO,12   *:DEVADDR         ISSUE SIO - BINARY, BYTE COUNT =120
     4030   02 00A29    68C00A31              BCR,12   T28M04            SIO ACCEPTED
     4031   02 00A2A    6AF0185B     T28M032  BAL,15   :SAVESIO          SAVE STATUS
     4032   02 00A2B    6AF01765              BAL,15   :ERRORT           TEST STATUS
     4033   02 00A2C    00000CF8              DATA     BA(T28SEQ1)       TEST SEQ.
     4034   02 00A2D    68000A2E              B        %+1
     4035   02 00A2E    EAF0021B A            BAL,15   *:ERROR
     4036   02 00A2F    00000AF2 A            DATA     2802              *** ERROR 2802 ***
     4037   02 00A30    68000A5F              B        T28M09
     4038                            *
     4039   02 00A31    CDC0172A     T28M04   TIO,12   *:DEVADDR         ISSUE TIO
     4040   02 00A32    69C00A31              BCS,12   %-1               BUSY
     4041   02 00A33    31D01EE7              CW,13    =X'EFFF0000'      TEST FOR ERROR(S)
     4042   02 00A34    68400A3B              BCR,4    T28M05            OK
     4043   02 00A35    6AF01765     T28M041  BAL,15   :ERRORT           TEST TIO STATUS
     4044   02 00A36    00000D38              DATA     BA(T28SEQ2)       TEST SEQ
     4045   02 00A37    68000A38              B        %+1
     4046   02 00A38    EAF0021B A            BAL,15   *:ERROR
     4047   02 00A39    00000AF3 A            DATA     2803              *** ERROR 2803 ***
     4048   02 00A3A    68000A5F              B        T28M09
     4049                            *
     4050   02 00A3B    CEC0172A     T28M05   TDV,12   *:DEVADDR         ISSUE TDV
     4051   02 00A3C    7240000D A            LB,4     13                ROW COUNT
     4052   02 00A3D    2540007C A            SLS,4    -4                ISOLATE
     4053   02 00A3E    30400001 A            AW,4     1                 INCR
     4054   02 00A3F    31400363              CW,4     T28INDX1          REQ'D ROW?
     4055   02 00A40    69100A27              BL       T28M031           NO - LOOP
     4056   02 00A41    220007D1              LI,0     DA(IOCD15)
     4057   02 00A42    CCC0172A              SIO,12   *:DEVADDR         ISSUE SIO-SENSE, BYTE COUNT = 80
     4058   02 00A43    69C00A2A              BCS,12   T28M032           SIO NOT ACCEPTED
     4059   02 00A44    CDC0172A              TIO,12   *:DEVADDR         TEST FOR READY
     4060   02 00A45    69C00A44              BCS,12   %-1               BUSY
     4061   02 00A46    6AF01765              BAL,15   :ERRORT           TEST STATUS
     4062   02 00A47    00000D78              DATA     BA(T28SEQ3)       TEST SEQ
     4063   02 00A48    68000A4C              B        T28M06            OK
     4064   02 00A49    EAF0021B A            BAL,15   *:ERROR
     4065   02 00A4A    00000AF4 A            DATA     2804              *** ERROR 2804 ***
     4066   02 00A4B    68000A5F              B        T28M09
     4067                            *
     4068   02 00A4C    22601FEA     T28M06   LI,6     BUFFER2           READ BFR ADDR
     4069   02 00A4D    6AF01D36              BAL,15   MERGEB            MERGE READ BITS
     4070   02 00A4E    35101D35              STW,1    COMPO             SET BINARY BLAG
     4071   02 00A4F    6AF01CD0              BAL,15   COMPREG           COMPARE TO EXPECTED
     4072   02 00A50    68000A54              B        T28M07            EQUAL
     4073   02 00A51    EAF0021B A            BAL,15   *:ERROR
     4074   02 00A52    00000AF5 A            DATA     2805              *** ERROR 2805 ***
     4075   02 00A53    68000A5F              B        T28M09
     4076                            *
     4077   02 00A54    66100363     T28M07   AWM,1    T28INDX1          ROW COUNT + 1
     4078   02 00A55    32400363              LW,4     T28INDX1
     4079   02 00A56    2140000C A            CI,4     12                TEST FOR COMPLETED
     4080   02 00A57    69100A25              BL       T28M03            NOT-LOOP
     4081   02 00A58    32500364              LW,5     T28INDX2          SWITCH
     4082   02 00A59    69300A5D              BNEZ     T28M08            COMPLETE
     4083   02 00A5A    66100364              AWM,1    T28INDX2          SET SWITCH FOR RANDOM PATTERN
     4084   02 00A5B    35100363              STW,1    T28INDX1          INIT ROW COUNTER
     4085   02 00A5C    68000A1F              B        T28M02            LOOP
     4086   02 00A5D    6AF01CBD     T28M08   BAL,15   RESTM             RESET TM
     4087   02 00A5E    6800040E              B        EXIT              EXIT
     4088                            *
     4089   02 00A5F    EAF0021D A   T28M09   BAL,15   *:SENSE
     4090   02 00A60    2E000A60              WAIT     %
     4091   02 00A61    68000A17              B        TST128            LOOP
     4092   02 00A62    68000A54              B        T28M07            CONTINUE
     4093                            *
     4094         02 00363           T28INDX1 EQU      TST1X1
     4095         02 00364           T28INDX2 EQU      TST1X2
     4096         02 0033E           T28SEQ1  EQU      TSEQ1
     4097         02 0034E           T28SEQ2  EQU      TSEQ7
     4098         02 0035E           T28SEQ3  EQU      TSEQ11
     4099                            *
     4100   02 00A63    35100363     TST129   STW,1    T29INDX1          INIT ROW COUNT
     4101   02 00A64    22400014 A            LI,4     20
     4102   02 00A65    6AF018DA              BAL,15   :RANDOMX          BUILD RANDOM PAT'N
     4103   02 00A66    35E81F73              STW,14   BUFFER-1,4
     4104   02 00A67    64400A65              BDR,4    %-2
     4105   02 00A68    CFC0172A     T29M01   HIO,12   *:DEVADDR         ISSUE HIO
     4106   02 00A69    75101CC9     T29M03   STB,1    TMBYTE            TDV SET 2
     4107   02 00A6A    6AF01CAB              BAL,15   SELTM             SELECT TM
     4108   02 00A6B    220007D0     T29M031  LI,0     DA(IOCD14)
     4109   02 00A6C    CCC0172A              SIO,12   *:DEVADDR         ISSUE SIO - EBCDIC, BYTE COUNT = 80
     4110   02 00A6D    68C00A75              BCR,12   T29M04            SIO ACCEPTED
     4111   02 00A6E    6AF0185B     T29M032  BAL,15   :SAVESIO          SAVE STATUS
     4112   02 00A6F    6AF01765              BAL,15   :ERRORT           TEST STATUS
     4113   02 00A70    00000CF8              DATA     BA(T29SEQ1)       TEST SEQ
     4114   02 00A71    68000A72              B        %+1
     4115   02 00A72    EAF0021B A            BAL,15   *:ERROR
     4116   02 00A73    00000B56 A            DATA     2902              *** ERROR 2902 ***
     4117   02 00A74    68000A9E              B        T29M09
     4118                            *
     4119   02 00A75    CDC0172A     T29M04   TIO,12   *:DEVADDR         ISSUE TIO
     4120   02 00A76    69C00A75              BCS,12   %-1               BUSY
     4121   02 00A77    31D01EE7              CW,13    =X'EFFF0000'      TEST FOR ERROR(S)
     4122   02 00A78    68400A7F              BCR,4    T29M05            NO ERRORS
     4123   02 00A79    6AF01765     T29M041  BAL,15   :ERRORT           TEST STATUS
     4124   02 00A7A    00000D38              DATA     BA(T29SEQ2)       TEST SEQ
     4125   02 00A7B    68000A7C              B        %+1
     4126   02 00A7C    EAF0021B A            BAL,15   *:ERROR
     4127   02 00A7D    00000B57 A            DATA     2903              *** ERROR 2903 ***
     4128   02 00A7E    68000A9E              B        T29M09
     4129                            *
     4130   02 00A7F    CEC0172A     T29M05   TDV,12   *:DEVADDR         ISSUE TDV
     4131   02 00A80    7240000D A            LB,4     13                ROW COUNT
     4132   02 00A81    2540007C A            SLS,4    -4                ISOLATE
     4133   02 00A82    30400001 A            AW,4     1                 INCR
     4134   02 00A83    31400363              CW,4     T29INDX1          LAST ?
     4135   02 00A84    69100A6B              BL       T29M031           NO - LOOP
     4136   02 00A85    220007D1              LI,0     DA(IOCD15)
     4137   02 00A86    CCC0172A              SIO,12   *:DEVADDR         ISSUE SIO - SENSE, BYTE COUNT = 81
     4138   02 00A87    69C00A6E              BCS,12   T29M032           SIO NOT ACCEPTED
     4139   02 00A88    CDC0172A              TIO,12   *:DEVADDR         ISSUE TIO
     4140   02 00A89    69C00A88              BCS,12   %-1               BUSY
     4141   02 00A8A    6AF01765              BAL,15   :ERRORT           TEST TIO STATUS
     4142   02 00A8B    00000D78              DATA     BA(T29SEQ3)       TEST SEQ
     4143   02 00A8C    68000A90              B        T29M06            OK
     4144   02 00A8D    EAF0021B A            BAL,15   *:ERROR
     4145   02 00A8E    00000B58 A            DATA     2904              *** ERROR 2904 ***
     4146   02 00A8F    68000A9E              B        T29M09
     4147                            *
     4148   02 00A90    35201D35     T29M06   STW,2    COMPO             EBCDIC FLAG
     4149   02 00A91    22601FEA              LI,6     BUFFER2
     4150   02 00A92    6AF01D36              BAL,15   MERGEB            MERGE BITS
     4151   02 00A93    6AF01CD0              BAL,15   COMPREG           TEST 80 BITS
     4152   02 00A94    68000A98              B        T29M07            OK
     4153   02 00A95    EAF0021B A            BAL,15   *:ERROR
     4154   02 00A96    00000B59 A            DATA     2905              *** ERROR 2905 ***
     4155   02 00A97    68000A9E              B        T29M09
     4156                            *
     4157   02 00A98    66100363     T29M07   AWM,1    T29INDX1          INDEX+1
     4158   02 00A99    32400363              LW,4     T29INDX1
     4159   02 00A9A    2140000C A            CI,4     12                COMPLETED#
     4160   02 00A9B    69100A69              BL       T29M03            NOT-LOOP
     4161   02 00A9C    6AF01CBD     T29M08   BAL,15   RESTM             RESET TM
     4162   02 00A9D    6800040E              B        EXIT              EXIT
     4163                            *
     4164   02 00A9E    EAF0021D A   T29M09   BAL,15   *:SENSE
     4165   02 00A9F    2E000A9F              WAIT     %
     4166   02 00AA0    68000A63              B        TST129            LOOP
     4167   02 00AA1    68000A98              B        T29M07            CONTINUE
     4168                            *
     4169         02 00363           T29INDX1 EQU      TST1X1
     4170         02 0033E           T29SEQ1  EQU      TSEQ1
     4171         02 0034E           T29SEQ2  EQU      TSEQ7
     4172         02 0035E           T29SEQ3  EQU      TSEQ11
     4173                            *
     4174   02 00AA2    35100363     TST133   STW,1    T33INDX1          SET ROW TO ODD
     4175   02 00AA3    22600000 A            LI,6     0
     4176   02 00AA4    35600364              STW,6    T33INDX           CLEAR BIT COUNTER
     4177   02 00AA5    6AF01091              BAL,15   EBKBUF            SET (BUFFER) = X'40404040'
     4178   02 00AA6    32600364     T33M01   LW,6     T33INDX           BIT COUNTER
     4179   02 00AA7    68300AAB              BEZ      %+4               =0 - ENTER NO 1 BITS
     4180   02 00AA8    227000FF A            LI,7     X'FF'             ONE BIT
     4181   02 00AA9    757C1F74              STB,7    BUFFER,6          ENTER A 1 BIT
     4182   02 00AAA    64600AA9              BDR,6    %-1               LOOP
     4183   02 00AAB    CFC0172A     T33M02   HIO,12   *:DEVADDR         ISSUE HIO
     4184   02 00AAC    75301CC9              STB,3    TMBYTE            TDV SET 3
     4185   02 00AAD    6AF01CAB              BAL,15   SELTM             SELECT TM
     4186   02 00AAE    32B00363              LW,11    T33INDX1          FETCH ROW REQ'D
     4187   02 00AAF    220007D0              LI,0     DA(IOCD14)
     4188   02 00AB0    CCC0172A              SIO,12   *:DEVADDR         ISSUE SIO - EBCDIC, BYTE COUNT=80
     4189   02 00AB1    CDC0172A              TIO,12   *:DEVADDR         ISSUE TIO
     4190   02 00AB2    69C00AB1              BCS,12   %-1               BUSY
     4191   02 00AB3    64B00AAF              BDR,11   %-4               LOOP TO REQ'D ROW
     4192   02 00AB4    6AF01765              BAL,15   :ERRORT           TEST TIO,OSB,BYTE COUNT
     4193   02 00AB5    00000D38              DATA     BA(T33SEQ1)       TEST SEQ
     4194   02 00AB6    68000ABA              B        T33M03            OK
     4195   02 00AB7    EAF0021B A            BAL,15   *:ERROR
     4196   02 00AB8    00000CE6 A            DATA     3302              *** ERROR 3302 ***
     4197   02 00AB9    68000ACD              B        T33M031
     4198                            *
     4199   02 00ABA    CEC0172A     T33M03   TDV,12   *:DEVADDR         ISSUE TDV
     4200   02 00ABB    7240000D A            LB,4     13                FETCH READ VERIF REG B
     4201   02 00ABC    4B401E97              AND,4    K3C
     4202   02 00ABD    2540007E A            SLS,4    -2                ADJUST
     4203   02 00ABE    32500364              LW,5     T33INDX            FETCH BIT COUNT
     4204   02 00ABF    31100363              CW,1     T33INDX1          ODD ORW?
     4205   02 00AC0    68300AC2              BE       %+2               YES
     4206   02 00AC1    25500001 A            SLS,5    1                 EVEN-SHIFT FOR X2
     4207   02 00AC2    3A500005 A            LCW,5    5                 FETCH EXPECTED
     4208   02 00AC3    38500001 A            SW,5     1
     4209   02 00AC4    4B501E95              AND,5    KF                MASK EXPECTED
     4210   02 00AC5    71560004 A            CB,5     4,3               COMPARE TO OBSERVED
     4211   02 00AC6    68300AD0              BE       T33M04            EQUAL
     4212   02 00AC7    22A0003C A            LI,10    X'3C'             MASK
     4213   02 00AC8    72B60005 A            LB,11    5,3               EXP 4 BITS
     4214   02 00AC9    25B00002 A            SLS,11   2                 ADJUST
     4215   02 00ACA    6AF01D66              BAL,15   TDVDISP           DISPLAY
     4216   02 00ACB    EAF0021B A            BAL,15   *:ERROR
     4217   02 00ACC    00000CE7 A            DATA     3303              *** ERROR 3303 ***
     4218   02 00ACD    EAF0021D A   T33M031  BAL,15   *:SENSE
     4219   02 00ACE    2E000ACE              WAIT     %
     4220   02 00ACF    68000AA2              B        TST133             LOOP
     4221                            *
     4222   02 00AD0    33100364     T33M04   MTW,1    T33INDX           INCRINDEX
     4223   02 00AD1    32400364              LW,4     T33INDX
     4224   02 00AD2    21400011 A            CI,4     17                TEST FOR COMPLETION
     4225   02 00AD3    69100AA6              BL       T33M01            NOT - LOOP
     4226   02 00AD4    31100363              CW,1     T33INDX1          EVEN ROW ?
     4227   02 00AD5    69300AD8              BNE      %+3               YES - EXIT
     4228   02 00AD6    35200363              STW,2    T33INDX1          SET ROW TO EVEN
     4229   02 00AD7    68000AA3              B        TST133+1          LOOP
     4230   02 00AD8    6AF01CBD              BAL,15   RESTM             RESET TM
     4231   02 00AD9    6800040E              B        EXIT              EXIT
     4232                            *
     4233         02 00363           T33INDX1 EQU      TST1X1
     4234         02 00364           T33INDX  EQU      TST1X2
     4235         02 0034E           T33SEQ1  EQU      TSEQ7
     4236                            *
     4237   02 00ADA    22000000 A   TST134   LI,0     0
     4238   02 00ADB    35000363              STW,0    T34INDX           RESET INDEX= #BITS USED
     4239   02 00ADC    CFC0172A     T34M01   HIO,12   *:DEVADDR         ISSUE HIO
     4240   02 00ADD    6AF01091              BAL,15   EBKBUF            SET (BUFFER) = X'40404040'
     4241   02 00ADE    75301CC9     T34M02   STB,3    TMBYTE            TDV SET 3
     4242   02 00ADF    6AF01CAB              BAL,15   SELTM             SELECT TM
     4243   02 00AE0    32600363              LW,6     T34INDX           INDEX                           *A01
     4244   02 00AE1    68300AE5              BEZ      %+4               =0                              *A01
     4245   02 00AE2    227000FF A            LI,7     X'FF'             ONE BIT                         *A01
     4246   02 00AE3    757C1F74              STB,7    BUFFER,6          INSERT A 1 BIT                  *A01
     4247   02 00AE4    64600AE3              BDR,6    %-1               LOOP                            *A01
     4248   02 00AE5    220007D0              LI,0     DA(IOCD14)
     4249   02 00AE6    CCC0172A              SIO,12   *:DEVADDR         ISSUE SIO - EBCDIC, BYTE COUNT=80
     4250   02 00AE7    CDC0172A              TIO,12   *:DEVADDR         TEST FOR READY
     4251   02 00AE8    69C00AE7              BCS,12   %-1               BUSY
     4252   02 00AE9    6AF01765              BAL,15   :ERRORT           TEST STATUS
     4253   02 00AEA    00000D38              DATA     BA(T34SEQ1)       TEST SEQ
     4254   02 00AEB    68000AEF              B        T34M04            OK
     4255   02 00AEC    EAF0021B A            BAL,15   *:ERROR
     4256   02 00AED    00000D4A A            DATA     3402              *** ERROR 3402 ***
     4257   02 00AEE    68000B0F              B        T34M07
     4258                            *
     4259                            *                                                                   *A01
     4260                            *                                                                   *A01
     4261                            *                                                                   *A01
     4262                            *                                                                   *A01
     4263                            T34M04   ;                                                          *A01
     4264   02 00AEF    220007D0              LI,0     DA(IOCD14)
     4265   02 00AF0    CCC0172A              SIO,12   *:DEVADDR         ISSUE SIO - EBCDIC,BYTE COUNT = 80
     4266   02 00AF1    CDC0172A              TIO,12   *:DEVADDR         TEST FOR READY
     4267   02 00AF2    31D01E9D              CW,13    KFFF              ALL BYTES TRANSF                *A01
     4268   02 00AF3    69400AF1              BCS,4    %-2               NO-LOOP
     4269   02 00AF4    22F003E8 A            LI,15    1000                                              *A01
     4270   02 00AF5    64F00AF5              BDR,15   %                 DELAY APPROX. 2 MSEC.           *A01
     4271   02 00AF6    CEC0172A     T34M05   TDV,12   *:DEVADDR         ISSUE TDV
     4272   02 00AF7    7240000D A            LB,4     13                READ VER. REG. B
     4273   02 00AF8    4B401E97              AND,4    K3C               MASK
     4274   02 00AF9    48401E97              EOR,4    K3C               TEST FOR ALL 1'S
     4275   02 00AFA    68300B01              BEZ      T34M06            OK
     4276   02 00AFB    22A0003C A            LI,10    X'3C'             MASK
     4277   02 00AFC    22B0003C A            LI,11    X'3C'             EXP 4 BITS
     4278   02 00AFD    6AF01D66              BAL,15   TDVDISP           DISPLAY TDV STATUS
     4279   02 00AFE    EAF0021B A            BAL,15   *:ERROR
     4280   02 00AFF    00000D4C A            DATA     3404              *** ERROR 3404 ***
     4281   02 00B00    68000B0F              B        T34M07
     4282                            *
     4283   02 00B01    CDC0172A     T34M06   TIO,12   *:DEVADDR         TEST FOR COMPL
     4284   02 00B02    69C00B01              BCS,12   %-1               NOT-LOOP
     4285   02 00B03    6AF01765              BAL,15   :ERRORT           TEST TIO STATUS
     4286   02 00B04    00000D38              DATA     BA(T34SEQ1)       TEST SEQ
     4287   02 00B05    68000B09              B        T34M061           OK
     4288   02 00B06    EAF0021B A            BAL,15   *:ERROR
     4289   02 00B07    00000D4B A            DATA     3403              *** ERROR 3403 ***
     4290   02 00B08    68000B0F              B        T34M07
     4291                            *
     4292   02 00B09    6AF01CBD     T34M061  BAL,15   RESTM             RESET TM
     4293   02 00B0A    6AF01765              BAL,15   :ERRORT           TEST READ ERROR FLAG OF TDV
     4294   02 00B0B    00002C6C              DATA     BA(T34SEQ2)       TEST SEQ
     4295   02 00B0C    68000B12              B        T34M08            OK-NO READ ERROR
     4296   02 00B0D    EAF0021B A            BAL,15   *:ERROR
     4297   02 00B0E    00000D4D A            DATA     3405              *** ERROR 3405 ***
     4298   02 00B0F    EAF0021D A   T34M07   BAL,15   *:SENSE
     4299   02 00B10    2E000B10              WAIT     %
     4300   02 00B11    68000ADA              B        TST134             LOOP
     4301                            *
     4302   02 00B12    33100363     T34M08   MTW,1    T34INDX           INCR INDEX
     4303   02 00B13    32400363              LW,4     T34INDX
     4304   02 00B14    21400010 A            CI,4     16                TEST FOR COMPL.
     4305   02 00B15    69100ADE              BL       T34M02            NOT-LOOP
     4306   02 00B16    32E01054              LW,14    DTM
     4307   02 00B17    6AF01745              BAL,15   :DELAY
     4308   02 00B18    68000B19              B        %+1
     4309   02 00B19    CFC0172A              HIO,12   *:DEVADDR
     4310   02 00B1A    6800040E              B        EXIT              EXIT
     4311                            *
     4312         02 00363           T34INDX  EQU      TST1X1
     4313         02 0034E           T34SEQ1  EQU      TSEQ7
     4314   02 00B1B    42000000 A   T34SEQ2  :TSEQ    TDVF2
     4315                            *
     4316                            *
     4317   02 00B1C    22F01F74     TST136   LI,15    BUFFER
     4318   02 00B1D    35F01A05              STW,15   :CARDEXP
     4319   02 00B1E    22F01FEA              LI,15    BUFFER2
     4320   02 00B1F    35F01A06              STW,15   :CARDOBS
     4321   02 00B20    35001A07              STW,0    :CARDBF           EBCDIC CARD DISPLAY
     4322   02 00B21    6AF01091              BAL,15   EBKBUF            SET (BUFFER) = X'40404040'
     4323   02 00B22    6AF0106F              BAL,15   DEVTEST           TEST FOR TYPE OF DEVICE
     4324   02 00B23    68000B32              B        T36CRA            B: CARD READER
     4325   02 00B24    68000B28              B        %+4               B: MODEL 7165
     4326   02 00B25    68000B26              B        %+1               B: MODEL 7160-1
     4327   02 00B26    22000AAC              LI,0     DA(T3IOCD1)       EBCDIC PUNCH ORDER (7160)
     4328   02 00B27    68000B29              B        %+2
     4329   02 00B28    22000AC3              LI,0     DA(T3IOCD12)      EBCDIC PUNCH ORDER (7165)
     4330   02 00B29    6AF01DCA              BAL,15   PUNCH             PUNCH A CARD
     4331   02 00B2A    68000B3A              B        TST136B           - SUCCESSFUL
     4332   02 00B2B    EAF0021B A            BAL,15   *:ERROR
     4333   02 00B2C    00000E13 A            DATA     3603              *** ERROR 3603 ***
     4334   02 00B2D    EAF0021D A   T36ASW   BAL,15   *:SENSE           GO TEST SENSE SWITCHES
     4335   02 00B2E    2E000B2E              WAIT     %                 SSW 3 RESET - WAIT
     4336   02 00B2F    68000B1C              B        TST136            SSW 1 SET   - LOOP
     4337   02 00B30    CFC0172A              HIO,12   *:DEVADDR         ISSUE AN HIO
     4338   02 00B31    68000B3A              B        TST136B           GO TO NEXT TEST
     4339   02 00B32    6AF01DEA     T36CRA   BAL,15   RAUTO             READ AN EBCDIC CARD
     4340   02 00B33    00000E11 A            DATA     3601              *** ERROR 3601 ***
     4341   02 00B34    68000B35              B        T36A01            - SUCCESSFUL
     4342   02 00B35    6AF01959     T36A01   BAL,15   :CARDISP          TEST CONTENTS OF CARD
     4343   02 00B36    68000B3A              B        TST136B           B: NO ERRORS
     4344   02 00B37    EAF0021B A            BAL,15   *:ERROR
     4345   02 00B38    00000E12 A            DATA     3602              *** ERROR 3602 ***
     4346   02 00B39    68000B2D              B        T36ASW            GO TEST SENSE SWITCHES
     4347                            *
     4348   02 00B3A    6AF0107A     TST136B  BAL,15   CLRBUF            SET (BUFFER) = X'00000000'
     4349   02 00B3B    6AF0106F              BAL,15   DEVTEST           TEST FOR TYPE OF DEVICE
     4350   02 00B3C    68000B4B              B        T36CRB            B: CARD READER
     4351   02 00B3D    68000B41              B        %+4               B: MODEL 7165
     4352   02 00B3E    68000B3F              B        %+1               B: MODEL 7160-1
     4353   02 00B3F    22000AAF              LI,0     DA(T3IOCD2)       BINARY PUNCH ORDER (7160)
     4354   02 00B40    68000B42              B        %+2
     4355   02 00B41    22000AC4              LI,0     DA(T3IOCD13)      BINARY PUNCH ORDER (7165)
     4356   02 00B42    6AF01DCA              BAL,15   PUNCH             PUNCH A CARD
     4357   02 00B43    6800040E              B        EXIT              - SUCCESSFUL
     4358   02 00B44    EAF0021B A            BAL,15   *:ERROR
     4359   02 00B45    00000E17 A            DATA     3607              *** ERROR 3607 ***
     4360   02 00B46    EAF0021D A   T36BSW   BAL,15   *:SENSE           GO TEST SENSE SWITCHES
     4361   02 00B47    2E000B47              WAIT     %                 SSW 3 RESET - WAIT
     4362   02 00B48    68000B3A              B        TST136B           SSW 1 SET   - LOOP
     4363   02 00B49    CFC0172A              HIO,12   *:DEVADDR         SSW 1 RESET - ISSUE HIO
     4364   02 00B4A    6800040E              B        EXIT              EXIT
     4365                            *
     4366   02 00B4B    6AF01DF5     T36CRB   BAL,15   RBIN              READ A BINARY CARD
     4367   02 00B4C    00000E15 A            DATA     3605              *** ERROR 3605 ***
     4368   02 00B4D    68000B4E              B        T36B01            - SUCCESSFUL
     4369   02 00B4E    35101A07     T36B01   STW,1    :CARDBF           FORCE BINARY CARD DISPLAY
     4370   02 00B4F    6AF01959              BAL,15   :CARDISP          TEST CONTENTS OF CARD
     4371   02 00B50    6800040E              B        EXIT              B: NO ERRORS
     4372   02 00B51    EAF0021B A            BAL,15   *:ERROR
     4373   02 00B52    00000E16 A            DATA     3606              *** ERROR 3606 ***
     4374   02 00B53    68000B46              B        T36BSW            GO TEST SENSE SWITCHES
     4375                            *
     4376   02 00B54    6AF01091     TST137   BAL,15   EBKBUF            SET (BUFFER) = X'40404040'
     4377   02 00B55    22E0000E A            LI,14    X'0E'
     4378   02 00B56    22F0000A A            LI,15    X'0A'
     4379   02 00B57    3130038F              CW,3     CURREPTR          IS THIS A CARD READER
     4380   02 00B58    68300B5B              BE       %+3               B: YES
     4381   02 00B59    22E00005 A            LI,14    X'05'
     4382   02 00B5A    22F00001 A            LI,15    X'01'
     4383   02 00B5B    75E00B84              STB,14   IOCD371           LOAD EBCDIC ORDER
     4384   02 00B5C    35F00CA0              STW,15   T0                SAVE BINARY ORDER
     4385   02 00B5D    22F0004F A            LI,15    79
     4386   02 00B5E    55F20B85              STH,15   IOCD371+1,1       SET BYTE COUNT = 79
     4387   02 00B5F    220005C2              LI,0     DA(IOCD371)       READ EBCDIC CARD
     4388   02 00B60    6AF00B86              BAL,15   T37D                BYTE COUNT = 79
     4389   02 00B61    00002DE4              DATA     BA(T37SEQ1)
     4390   02 00B62    00000E75 A            DATA     3701              *** ERRORS 3701-3702 ***
     4391                            *
     4392   02 00B63    22F00051 A            LI,15    81
     4393   02 00B64    55F20B85              STH,15   IOCD371+1,1       SET BYTE COUNT = 81
     4394   02 00B65    220005C2              LI,0     DA(IOCD371)       READ EBCDIC CARD
     4395   02 00B66    6AF00B86              BAL,15   T37D                BYTE COUNT = 81
     4396   02 00B67    00002DF8              DATA     BA(T37SEQ2)
     4397   02 00B68    00000E77 A            DATA     3703              *** ERRORS 3703-3704 ***
     4398                            *
     4399   02 00B69    32F00CA0              LW,15    T0                LOAD AND STORE
     4400   02 00B6A    75F00B84              STB,15   IOCD371             BINARY ORDER
     4401   02 00B6B    6AF0107A              BAL,15   CLRBUF            CLEAR (BUFFER)
     4402   02 00B6C    22F00077 A            LI,15    119
     4403   02 00B6D    55F20B85              STH,15   IOCD371+1,1       SET BYTE COUNT = 119
     4404   02 00B6E    220005C2              LI,0     DA(IOCD371)       READ BINARY CARD
     4405   02 00B6F    6AF00B86              BAL,15   T37D                BYTE COUNT = 119
     4406   02 00B70    00002DE4              DATA     BA(T37SEQ1)
     4407   02 00B71    00000E79 A            DATA     3705              *** ERRORS 3705-3706 ***
     4408                            *
     4409   02 00B72    22F00079 A            LI,15    121
     4410   02 00B73    55F20B85              STH,15   IOCD371+1,1       SET BYTE COUNT = 121
     4411   02 00B74    220005C2              LI,0     DA(IOCD371)       READ BINARY CARD
     4412   02 00B75    6AF00B86              BAL,15   T37D                BYTE COUNT = 121
     4413   02 00B76    00002DF8              DATA     BA(T37SEQ2)
     4414   02 00B77    00000E7B A            DATA     3707              *** ERRORS 3707-3708 ***
     4415                            *
     4416   02 00B78    6800040E              B        EXIT              RETURN
     4417                            *
     4418                            *
     4419                            *
     4420                            T37SEQ1  :TSEQ    TIOF0,TIOF1,TIOF2,TIOT3,TIOF4,TIOF5,TIOF6,;
     4421   02 00B79    1011121B A            OSBT0,OSBF1,OSBF2,OSBF3,OSBF4,OSBF5,OSBF6,OSBF7,BYT00
            02 00B7A    14151628 A
            02 00B7B    21222324 A
            02 00B7C    252627E1 A
            02 00B7D    00000000 A
     4422                            T37SEQ2  :TSEQ    TIOF0,TIOF1,TIOF2,TIOT3,TIOF4,TIOF5,TIOF6,;
     4423   02 00B7E    1011121B A            OSBT0,OSBF1,OSBF2,OSBF3,OSBF4,OSBF5,OSBF6,OSBF7,BYT01
            02 00B7F    14151628 A
            02 00B80    21222324 A
            02 00B81    252627E2 A
            02 00B82    00000000 A
     4424                                     BOUND    8
     4425   02 00B84    00007DD0     IOCD371  GEN,8,24 0,BA(BUFFER)
     4426   02 00B85    0E000000 A            GEN,8,24 X'0E',0
     4427                            *
     4428                            *                 *** TST1,37 DRIVER ***
     4429                            *
     4430                            *        CALLING SEQUENCE:
     4431                            *
     4432                            *        LI,0     DA(      )
     4433                            *        BAL,15   T37D
     4434                            *        DATA     BA(      )        FOR :ERRORT ROUTINE
     4435                            *        DATA     ----              **** ERROR ---- ***
     4436                            *        ----     ----              CONTROL RETURNED HERE
     4437                            *
     4438   02 00B86    09F01E4A     T37D     PSW,15   PSTACK            SAVE RETURN ADDRESS IN STACK
     4439   02 00B87    35000BA4              STW,0    T37DC1            SAVE IOCD DW ADDRESS
     4440   02 00B88    B2E0000F A            LW,14    *15               LOAD BYTE STRING ADDRESS
     4441   02 00B89    35E00B95              STW,14   T37D2
     4442   02 00B8A    B2E2000F A            LW,14    *15,1             LOAD ERROR NUMBER
     4443   02 00B8B    35E00BA0              STW,14   T37D5
     4444   02 00B8C    20E00001 A            AI,14    1
     4445   02 00B8D    35E00B98              STW,14   T37D3
     4446   02 00B8E    B3201E4A              MTW,2    *PSTACK           ADD 2 TO RETURN ADDRESS
     4447   02 00B8F    32A01059              LW,10    DELYTMS           R10 = DELAY
     4448   02 00B90    32000BA4     T37D1    LW,0     T37DC1            LOAD IOCD DW ADDRESS
     4449   02 00B91    CCC0172A              SIO,12   *:DEVADDR         ISSUE 'SIO'
     4450   02 00B92    CDC0172A              TIO,12   *:DEVADDR         ISSUE 'TIO'
     4451   02 00B93    69400B9D              BCS,4    T37D4             TEST FOR TIMEOUT
     4452   02 00B94    6AF01765              BAL,15   :ERRORT           TEST TIO STATUS
     4453   02 00B95    00000000 A   T37D2    DATA     0
     4454   02 00B96    6800039D              B        POP               B: SUCCESSFUL
     4455   02 00B97    EAF0021B A            BAL,15   *:ERROR           REPORT ERROR
     4456   02 00B98    00000000 A   T37D3    DATA     0                 *** ERROR ---- ***
     4457   02 00B99    EAF0021D A            BAL,15   *:SENSE           TEST SENSE SWITCHES
     4458   02 00B9A    2E000B9A              WAIT     %                 SSW 3 RESET - WAIT
     4459   02 00B9B    68000B90              B        T37D1             SSW1 SET    - LOOP ON ERROR
     4460   02 00B9C    6800039D              B        POP               SSW1 RESET - RETURN
     4461   02 00B9D    64A00B92     T37D4    BDR,10   T37D1+2           B: NOT TIMEOUT
     4462   02 00B9E    CFC0172A              HIO,12   *:DEVADDR         ISSUE AN HIO
     4463   02 00B9F    EAF0021B A            BAL,15   *:ERROR           REPORT ERROR
     4464   02 00BA0    00000000 A   T37D5    DATA     0                 *** ERROR ---- ***
     4465   02 00BA1    EAF0021C A            BAL,15   *:PRINT           PRINT:
     4466   02 00BA2    00000F7F              DATA     TIMEOUT                 'TIMEOUT'
     4467   02 00BA3    68000B99              B        T37D3+1
     4468                            *
     4469   02 00BA4    00000000 A   T37DC1   DATA     0                 IOCD DW ADDRESS
     4470                            *                                                                   *A01
     4471   02 00BA5    6AF0107A     TST138   BAL,15   CLRBUF            CLEAR (BUFFER)                  *A01
     4472   02 00BA6    6AF0106F              BAL,15   DEVTEST           TEST FOR TYPE OF DEVICE
     4473   02 00BA7    68000BBC              B        T38CR             B: CARD READER
     4474   02 00BA8    68000BBA              B        T3865             B: MODEL 7165
     4475   02 00BA9    68000BAA              B        %+1               B: MODEL 7160-1
     4476   02 00BAA    32F00BC1              LW,15    T38XPSD1             MODEL 7160-2
     4477   02 00BAB    35F0005C A            STW,15   X'5C'             SET UP INTERRUPT HANDLER
     4478   02 00BAC    32F00BC0              LW,15    T38IOCD           LOAD IOCD STARTING WORD
     4479   02 00BAD    35F01004              STW,15   IOCD35
     4480   02 00BAE    22F00EDA A            LI,15    3802              LOAD AND STORE
     4481   02 00BAF    35F00BD5              STW,15   T38INT1E            ERROR # 3802
     4482   02 00BB0    22A00078 A            LI,10    120               R10 = 120
     4483   02 00BB1    22000802              LI,0     DA(IOCD35)
     4484   02 00BB2    6AF01DCA     T38M01   BAL,15   PUNCH             ISSUE THE SIO
     4485   02 00BB3    68000BED              B        T38FCK            TEST FOR CONTR NOT BUSY
     4486   02 00BB4    EAF0021B A            BAL,15   *:ERROR
     4487   02 00BB5    00000ED9 A            DATA     3801              *** ERROR 3801 ***
     4488   02 00BB6    EAF0021D A   T38SW    BAL,15   *:SENSE           GO TEST SENSE SWITCHES
     4489   02 00BB7    2E000BB7              WAIT     %                 SSW 3 RESET - WAIT
     4490   02 00BB8    68000BA5              B        TST138            SSW 1 SET - LOOP ON ERROR
     4491   02 00BB9    6800040E              B        EXIT              SSW 1 RESET - RETURN TO FTM
     4492   02 00BBA    22000806     T3865    LI,0     DA(IOCD36)        LOAD IOCD
     4493   02 00BBB    68000BBD              B        %+2
     4494   02 00BBC    22000810     T38CR    LI,0     DA(IOCD37)        LOAD IOCD
     4495   02 00BBD    32F00BC2              LW,15    T38XPSD2          SET UP
     4496   02 00BBE    35F0005C A            STW,15   X'5C'               INTERRUPT HANDLER
     4497   02 00BBF    68000BB2              B        T38M01
     4498   02 00BC0    01007DD0     T38IOCD  GEN,8,24 X'01',BA(BUFFER)
     4499   02 00BC1    0F000BC4     T38XPSD1 XPSD,0   T38PSD1
     4500   02 00BC2    0F000BC8     T38XPSD2 XPSD,0   T38PSD2
     4501                                     BOUND    8
     4502   02 00BC4    00000000 A   T38PSD1  DATA     0,0
            02 00BC5    00000000 A
     4503   02 00BC6    00000BCC              DATA     T38INT1,0
            02 00BC7    00000000 A
     4504   02 00BC8    00000000 A   T38PSD2  DATA     0,0
            02 00BC9    00000000 A
     4505   02 00BCA    00000BE2              DATA     T38INT2,0
            02 00BCB    00000000 A
     4506   02 00BCC    20AFFFFF A   T38INT1  AI,10    -1                DECR (R10)
     4507   02 00BCD    68300BDD              BEZ      T38INT12          B: IF EIGHT CARDS PUNCHED
     4508   02 00BCE    02200000 A            LCI      0                 SAVE REG. 0-15 IN PUBLIC
     4509   02 00BCF    0B001E4A              PSM,0    PSTACK              'PUSH-DOWN' STACK
     4510   02 00BD0    6AF015F9     T38INT13 BAL,15   :AIO              ISSUE AN AIO
     4511   02 00BD1    FFFFC002 A            DATA     X'FFFFC002'       TEST FOR
     4512   02 00BD2    00100000 A            DATA     X'00100000'         'CHANNEL END' INTERRUPT
     4513   02 00BD3    68000BDA              B        T38INT11          B: NO ERRORS
     4514   02 00BD4    EAF0021B A            BAL,15   *:ERROR
     4515   02 00BD5    00000EDA A   T38INT1E DATA     3802              *** ERROR 3802 ***
     4516   02 00BD6    33100BD5              MTW,1    %-1               INCR ERROR NUMBER
     4517   02 00BD7    22F00BB6              LI,15    T38SW
     4518   02 00BD8    35F00BC4              STW,15   T38PSD1           GO TEST SENSE SWITCHES
     4519   02 00BD9    35101764              STW,1    :INTRECF          SET INTERRUPT RECEIVED FLAG
     4520   02 00BDA    02200000 A   T38INT11 LCI      0
     4521   02 00BDB    0A001E4A              PLM,0    PSTACK            RESTORE ALL REGISTERS
     4522   02 00BDC    0E300BC4              LPSD,3   T38PSD1           RETURN
     4523   02 00BDD    CFC0172A     T38INT12 HIO,12   *:DEVADDR         ISSUE AN HIO
     4524   02 00BDE    6AF018D1              BAL,15   :INTD             DISARM IO INTERRUPTS
     4525   02 00BDF    35101764              STW,1    :INTRECF          SET INTERRUPT RECEIVED FLAG
     4526   02 00BE0    0E200BC4              LPSD,2   T38PSD1           RETURN
     4527                            *
     4528   02 00BE1    00FFFFFF A   T38DELY  DATA     X'FFFFFF'         TIME DELAY
     4529                            *
     4530   02 00BE2    6AF015F9     T38INT2  BAL,15   :AIO              ISSUE AN AIO
     4531   02 00BE3    FFFFC002 A            DATA     X'FFFFC002'       MASK
     4532   02 00BE4    00100000 A            DATA     X'00100000'       EXP STATUS
     4533   02 00BE5    68000BEA              B        T38INT2R          B: NO ERRORS
     4534   02 00BE6    EAF0021B A            BAL,15   *:ERROR
     4535   02 00BE7    00000EDA A            DATA     3802              *** ERROR 3802 ***
     4536   02 00BE8    22F00BB6              LI,15    T38SW             LOAD RETURN ADDRESS
     4537   02 00BE9    68000BEB              B        %+2
     4538   02 00BEA    22F00BB9     T38INT2R LI,15    T38SW+3           LOAD RETURN ADDRESS
     4539   02 00BEB    35F00BC8              STW,15   T38PSD2
     4540   02 00BEC    0E200BC8              LPSD,2   T38PSD2           RETURN
     4541   02 00BED    6AF015EA     T38FCK   BAL,15   :TIO              ISSUE A TIO
     4542   02 00BEE    66FF0000 A            DATA     X'66FF0000'
     4543   02 00BEF    00000000 A            DATA     0
     4544   02 00BF0    6800040E              B        EXIT              B: NO ERRORS
     4545   02 00BF1    EAF0021B A            BAL,15   *:ERROR
     4546   02 00BF2    00000EDB A            DATA     3803              *** ERROR 3803 ***
     4547   02 00BF3    CFC0172A              HIO,12   *:DEVADDR         ISSUE AN HIO
     4548   02 00BF4    EAF0021D A            BAL,15   *:SENSE           GO TEST SENSE SWITCHES
     4549   02 00BF5    2E000BF5              WAIT     %                 SSW 3 RESET - WAIT
     4550   02 00BF6    68000BED              B        T38FCK            SSW 1 SET   - LOOP
     4551   02 00BF7    6800040E              B        EXIT              SSW 1 RESET - RETURN TO FTM
     4552         02 00363           T38INDX  EQU      TST1X1
     4553                            T38SEQ1  :TSEQ    TIOF0,TIOF1,TIOF2,TIOT3,TIOF4,TIOF5,TIOF6,TIOF7,;
     4554                                              OSBF0,OSBF1,OSBF2,OSBF3,OSBF4,OSBF5,OSBF6,OSBF7,;
     4555   02 00BF8    1011121B A                     TDVF1,TDVF2,TDVF3,TDVT4,TDVF5,TDVF6,TDVF7,BYT00
            02 00BF9    14151617 A
            02 00BFA    20212223 A
            02 00BFB    24252627 A
            02 00BFC    4142434C A
            02 00BFD    454647E1 A
            02 00BFE    00000000 A
     4556   02 00BFF    6AF01091     TST139   BAL,15   EBKBUF            SET (BUFFER) = X'40404040'
     4557   02 00C00    22000000 A            LI,0     0
     4558   02 00C01    35000363              STW,0    T39INDX           CLEAR COUNTER
     4559                            *
     4560   02 00C02    CFC0172A     T39M01   HIO,12   *:DEVADDR         ISSUE AN HIO
     4561   02 00C03    22F00F3D A            LI,15    3901              LOAD AND STORE
     4562   02 00C04    35F00C0B              STW,15   T39E01              ERROR NUMBER 3901
     4563   02 00C05    22400000 A            LI,4     0                 RESET COUNTER
     4564   02 00C06    220007D0     T39M02   LI,0     DA(IOCD14)
     4565   02 00C07    22E007D0 A            LI,14    2000              LOAD DELAY COUNT
     4566   02 00C08    6AF01D98              BAL,15   EXUSIO            ISSUE AN SIO
     4567   02 00C09    68000C10              B        T39M03            B: NO TIMEOUT
     4568   02 00C0A    EAF0021B A            BAL,15   *:ERROR
     4569   02 00C0B    00000000 A   T39E01   DATA     0                 *** ERRORS 3901-3911 ***
     4570   02 00C0C    EAF0021D A   T39SW    BAL,15   *:SENSE           GO TEST SENSE SWITCHES
     4571   02 00C0D    2E000C0D              WAIT     %                 SSW 3 RESET - WAIT
     4572   02 00C0E    68000C02              B        T39M01            SSW 1 SET   - LOOP ON ERROR
     4573   02 00C0F    6800040E              B        EXIT              SSW 1 RESET - RETURN TO FTM
     4574                            *
     4575   02 00C10    20400001 A   T39M03   AI,4     1                 INCR ROW COUNT
     4576   02 00C11    33100C0B              MTW,1    T39E01            INCR ERROR NUMBER
     4577   02 00C12    2140000A A            CI,4     10                ELEVEN ROWS PUNCHED
     4578   02 00C13    68200C06              BLE      T39M02            B: NO
     4579                            *
     4580   02 00C14    22E00014 A            LI,14    20
     4581   02 00C15    6AF01745              BAL,15   :DELAY            DELAY ONE ROW TIME
     4582   02 00C16    2200061E              LI,0     DA(T39IOCD)
     4583   02 00C17    22E007D0 A            LI,14    2000              LOAD DELAY COUNT
     4584   02 00C18    6AF01D98              BAL,15   EXUSIO            ISSUE AN SIO
     4585   02 00C19    68000C1C              B        T39M04            B: NO TIMEOUT
     4586   02 00C1A    EAF0021B A            BAL,15   *:ERROR
     4587   02 00C1B    00000F48 A            DATA     3912              *** ERROR 3912 ***
     4588                            *
     4589   02 00C1C    6AF01765     T39M04   BAL,15   :ERRORT           TEST TIO,OSB,TDV  DATA OVERRUN
     4590   02 00C1D    000030F8              DATA     BA(T39SEQ1)
     4591   02 00C1E    68000C21              B        T39M05            B: NO ERRORS
     4592   02 00C1F    EAF0021B A            BAL,15   *:ERROR
     4593   02 00C20    00000F4B A            DATA     3915              *** ERROR 3915 ***
     4594                            *
     4595   02 00C21    22F00005 A   T39M05   LI,15    X'05'             LOAD AND STORE
     4596   02 00C22    75F00FA4              STB,15   IOCD16              PUNCH ORDER
     4597   02 00C23    220007D2              LI,0     DA(IOCD16)
     4598   02 00C24    32E01DDB              LW,14    PDELAY            R14 = DELAY
     4599   02 00C25    6AF01D98              BAL,15   EXUSIO            ISSUE AN SIO
     4600   02 00C26    68000C29              B        T39M06            B: NO TIMEOUT
     4601   02 00C27    EAF0021B A            BAL,15   *:ERROR
     4602   02 00C28    00000F50 A            DATA     3920              *** ERROR 3920 ***
     4603                            *
     4604   02 00C29    CFC0172A     T39M06   HIO,12   *:DEVADDR         ISSUE AN HIO
     4605   02 00C2A    6AF015EA              BAL,15   :TIO              ISSUE A TIO
     4606   02 00C2B    FFFFC000 A            DATA     X'FFFFC000'
     4607   02 00C2C    00000000 A            DATA     X'00000000'
     4608   02 00C2D    6800040E              B        EXIT              B: NO ERRORS
     4609   02 00C2E    EAF0021C A            BAL,15   *:PRINT           PRINT:
     4610   02 00C2F    00000C31              DATA     T39MSG1           'HIO DID NOT RESET DEVICE -
     4611                            *                                    TESTING ABORTED'
     4612   02 00C30    E8000214 A            B        *:MONITOR
     4613                            *
     4614   02 00C31    2AC8C9D6 A   T39MSG1  TEXTC    'HIO DID NOT RESET DEVICE - TESTING ABORTED'
            02 00C32    40C4C9C4 A
            02 00C33    40D5D6E3 A
            02 00C34    40D9C5E2 A
            02 00C35    C5E340C4 A
            02 00C36    C5E5C9C3 A
            02 00C37    C5406040 A
            02 00C38    E3C5E2E3 A
            02 00C39    C9D5C740 A
            02 00C3A    C1C2D6D9 A
            02 00C3B    E3C5C440 A
     4615                                     BOUND    8
     4616   02 00C3C    05007DD0     T39IOCD  GEN,8,24 X'05',BA(BUFFER)
     4617   02 00C3D    000FFFFF A            GEN,8,24 0,X'FFFFF'
     4618                            *
     4619                            *
     4620         02 00363           T39INDX  EQU      TST1X1
     4621                            T39SEQ1  :TSEQ    TIOF0,TIOF1,TIOF2,TIOT3,TIOT4,TIOF5,TIOF6,TIOF7,;
     4622                                              OSBF0,OSBF1,OSBF2,OSBF4,OSBF5,OSBF6,OSBF7,;
     4623   02 00C3E    1011121B A                     TDVT0,TDVF3,TDVT4,BYT00
            02 00C3F    1C151617 A
            02 00C40    20212224 A
            02 00C41    25262748 A
            02 00C42    434CE100 A
     4624         02 00353           T39SEQ2  EQU      TSEQ8
     4625   02 00C43    30393A3B A   T39SEQ3  :TSEQ    HIOF0,HIOT1,HIOT2,HIOT3,HIOF4,HIOT5,HIOT6,HIOF7
            02 00C44    343D3E37 A
            02 00C45    00000000 A
     4626         02 00340           T39SEQ4  EQU      TSEQ2
     4627                            T39SEQ5  :TSEQ    TIOF0,TIOF1,TIOF2,TIOT3,TIOT4,TIOF5,TIOF6,TIOF7,;
     4628   02 00C46    1011121B A                     OSBF0,OSBF1,OSBF2,OSBF3,OSBF4,OSBT5,OSBT6,OSBF7
            02 00C47    1C151617 A
            02 00C48    20212223 A
            02 00C49    242D2E27 A
            02 00C4A    00000000 A
     4629                            *
     4630                            *        TST1,40 - PUNCH CHECKERBOARD PATTERN
     4631                            *
     4632   02 00C4B    02200000 A   TST140   LCI      0                 SAVE REG. 0-15 IN PUBLIC
     4633   02 00C4C    0B001E4A              PSM,0    PSTACK              'PUSH-DOWN' STACK
     4634   02 00C4D    6AF00C5D              BAL,15   T40SR             BUILD PATTERN
     4635   02 00C4E    6AF0105D              BAL,15   TST1R1            SET UP PUNCH IOCD'S
     4636   02 00C4F    2270000A A            LI,7     10
     4637   02 00C50    6AF01520     T40M02   BAL,15   TPMOD             TEST PUNCH MODEL NUMBER
     4638   02 00C51    2200081C              LI,0     DA(IOCD38)        MODEL 7165
     4639   02 00C52    68000C54              B        %+2
     4640   02 00C53    22000AAF              LI,0     DA(T3IOCD2)       MODEL 7160
     4641   02 00C54    6AF01DCA              BAL,15   PUNCH             PUNCH A CARD
     4642   02 00C55    68000C5B              B        T40M03            - SUCCESSFUL
     4643   02 00C56    EAF0021B A            BAL,15   *:ERROR
     4644   02 00C57    00000FA1 A            DATA     4001              *** ERROR 4001 ***
     4645   02 00C58    EAF0021D A   T40SW    BAL,15   *:SENSE           GO TEST SENSE SWITCHES
     4646   02 00C59    2E000C59              WAIT     %                 SSW 3 RESET - WAIT
     4647   02 00C5A    68000C50              B        T40M02            SSW 1 SET   - LOOP ON ERROR
     4648                            *                                   SSW 1 RESET - CONTINUE
     4649   02 00C5B    64700C50     T40M03   BDR,7    T40M02            B: NOT 10 CARDS YET
     4650   02 00C5C    68001087              B        POP15             RETURN
     4651                            *
     4652                            *                 T40SR - BUILD DOUBLE CHECKERBOARD PATTERN.
     4653                            *
     4654                            *        INPUT PARAMETERS:
     4655                            *                 R5 = FIRST 12 BITS OF PATTERN
     4656                            *                 R6 = SECOND 12 BITS OF PATTERN
     4657                            *
     4658   02 00C5D    09F01E4A     T40SR    PSW,15   PSTACK            SAVE RETURN ADDRESS IN STACK
     4659   02 00C5E    22400000 A            LI,4     0
     4660   02 00C5F    22500555 A            LI,5     X'555'            LOAD R5
     4661   02 00C60    22600AAA A            LI,6     X'AAA'            LOAD R6
     4662   02 00C61    35581F96              STW,5    TABLE1,4          STORE 1ST 12 BITS
     4663   02 00C62    35581F97              STW,5    TABLE1+1,4        STORE 2ND 12 BITS
     4664   02 00C63    35681F98              STW,6    TABLE1+2,4        STORE 3RD 12 BITS
     4665   02 00C64    35681F99              STW,6    TABLE1+3,4        STORE 4TH 12 BITS
     4666   02 00C65    20400004 A            AI,4     4
     4667   02 00C66    21400050 A            CI,4     80
     4668   02 00C67    68200C5F              BLE      T40SR+2           B: NOT 80 COLUMNS YET
     4669   02 00C68    6AF01C81              BAL,15   COMPACTM          COMPACT DATA
     4670   02 00C69    6800039D              B        POP               RETURN
     4671                            *
     4672                            *
     4673   02 00C6A    080007D8     T40C1    GEN,8,24 X'08',DA(IOCD18)  TIC
     4674   02 00C6B    80000000 A   MAXNEG   DATA     X'80000000'       MAX NEGATIVE CONSTANT
     4675         02 00363           T40INDX  EQU      TST1X1
     4676         02 00357           T40SEQ1  EQU      TSEQ10
     4677   02 00C6C    16D3D6C1 A   T41MSG   TEXTC    'LOAD CHECKERBOARD DECK'
            02 00C6D    C440C3C8 A
            02 00C6E    C5C3D2C5 A
            02 00C6F    D9C2D6C1 A
            02 00C70    D9C440C4 A
            02 00C71    C5C3D240 A
     4678   02 00C72    02200000 A   TST141   LCI      0                 SAVE REG. 0-15 IN PUBLIC
     4679   02 00C73    0B001E4A              PSM,0    PSTACK              'PUSH-DOWN' STACK
     4680   02 00C74    EAF00223 A            BAL,15   *:TYPRINT         PRINT:                          *A01
     4681   02 00C75    00000C6C              DATA     T41MSG              'LOAD CHECKERBOARD DECK'
     4682   02 00C76    3510021A A            STW,1    :CURBCNT
     4683   02 00C77    EAF00219 A            BAL,15   *:1BYTEIN         INPUT CHARACTER
     4684   02 00C78    68000C7A              B        %+2               ERROR                           *A02
     4685   02 00C79    68000C7C              B        TST141L           NO ERROR                        *A02
     4686   02 00C7A    EAF0022B A            WAITPROC WAITMSG2          ERROR HAS OCCURRED              *A02
            02 00C7B    00001EC6
     4687   02 00C7C    35101A07     TST141L  STW,1    :CARDBF           FORCE BINARY CARD DISPLAY
     4688   02 00C7D    22501F74              LI,5     BUFFER
     4689   02 00C7E    35501A05              STW,5    :CARDEXP          EXP BUFFER ADDRESS = BUFFER
     4690   02 00C7F    22501FEA              LI,5     BUFFER2
     4691   02 00C80    35501A06              STW,5    :CARDOBS          OBS BUFFER ADDRESS = BUFFER2
     4692   02 00C81    6AF00C5D              BAL,15   T40SR             BUILD PATTERN
     4693   02 00C82    32F0172A              LW,15    :DEVADDR          LOAD AND SAVE
     4694   02 00C83    35F00CA0              STW,15   T0                DEVICE ADDRESS
     4695   02 00C84    22A0000A A            LI,10    10                R10 = 10 CARDS
     4696   02 00C85    6AF01517              BAL,15   LDRADR            LOAD READER ADDRESS
     4697   02 00C86    22000820     T41M01   LI,0     DA(IOCD42)
     4698   02 00C87    CCC0172A              SIO,12   *:DEVADDR         ISSUE THE SIO
     4699   02 00C88    6AF018CB              BAL,15   :INTAE            ARM AND ENABLE IO INTERRUPTS
     4700   02 00C89    32F01DDB              LW,15    PDELAY            R15 = DELAY COUNT
     4701   02 00C8A    CDC0172A              TIO,12   *:DEVADDR         ISSUE A TIO
     4702   02 00C8B    68C00C94              BCR,12   T41M02            B: IF READY
     4703   02 00C8C    64F00C8A              BDR,15   %-2               B: NOT TIMEOUT YET
     4704   02 00C8D    CFC0172A              HIO,12   *:DEVADDR         ISSUE AN HIO
     4705   02 00C8E    EAF0021B A            BAL,15   *:ERROR
     4706   02 00C8F    00001005 A            DATA     4101              *** ERROR 4101 ***
     4707   02 00C90    EAF0021D A   T41SW    BAL,15   *:SENSE           GO TEST SENSE SWITCHES
     4708   02 00C91    2E000C91              WAIT     %                 SSW 3 RESET - WAIT
     4709   02 00C92    68000C86              B        T41M01            SSW 1 SET   - LOOP ON ERROR
     4710   02 00C93    68000C99              B        T41M03            SSW 1 RESET - CONTINUE
     4711   02 00C94    6AF01959     T41M02   BAL,15   :CARDISP          TEST AND DISPLAY ERRORS
     4712   02 00C95    68000C99              B        T41M03            - SUCCESSFUL
     4713   02 00C96    EAF0021B A            BAL,15   *:ERROR
     4714   02 00C97    00001006 A            DATA     4102              *** ERROR 4102 ***
     4715   02 00C98    68000C90              B        T41SW             GO TEST SENSE SWITCHES
     4716   02 00C99    64A00C86     T41M03   BDR,10   T41M01            B: NOT DONE YET
     4717   02 00C9A    31200426              CW,2     TST1SEF           TEST FOR SINGLE ENTRY FLAG
     4718   02 00C9B    68300C9F              BE       T41RTN            B: NOT SINGLE ENTRY
     4719   02 00C9C    EAF0021D A            BAL,15   *:SENSE           GO TEST SENSE SWITCHES
     4720   02 00C9D    2E000C9D              WAIT     %                 SSW 3 RESET - WAIT
     4721   02 00C9E    68000C7C              B        TST141L           SSW 1 SET   - LOOP ON TEST
     4722                            *                                   SSW 1 RESET - CONTINUE
     4723   02 00C9F    68001087     T41RTN   B        POP15             RETURN
     4724                            *
     4725   02 00CA0    00000000 A   T0       DATA     0                 TEMPORARY STORAGE
     4726   02 00CA1    00000000 A   T1       DATA     0                 TEMPORARY STORAGE
     4727   02 00CA2    00000000 A   T2       DATA     0                 TEMPORARY STORAGE
     4728                            *
     4729   02 00CA3    6AF0105D     TST143   BAL,15   TST1R1            SET UP PUNCH IOCD'S
     4730   02 00CA4    75100FAA              STB,1    IOCD17            LOAD WRITE ORDER
     4731   02 00CA5    224FFFB0 A            LI,4     -80
     4732   02 00CA6    35400363              STW,4    T43INDX           INITIALIZE COLUMN COUNT
     4733   02 00CA7    6AF0105D              BAL,15   TST1R1            SET UP PUNCH IOCD'S
     4734   02 00CA8    CFC0172A     T43M01   HIO,12   *:DEVADDR         ISSUE HIO
     4735   02 00CA9    22400050 A   T43M02   LI,4     80                ESTABLISH BUFFER CLEAR PARAMETERS
     4736   02 00CAA    35401741              STW,4    :CLRSIZE
     4737   02 00CAB    22401F96              LI,4     TABLE1
     4738   02 00CAC    35401740              STW,4    :CLRADDR
     4739   02 00CAD    6AF01734     T43M03   BAL,15   :CLEAR            CLEAR BUFFER
     4740   02 00CAE    32600363              LW,6     T43INDX           INDEX
     4741   02 00CAF    22500FFF A            LI,5     X'FFF'
     4742   02 00CB0    355C1FE6              STW,5    TABLE1+80,6       ENTER X'FFF' INTO BUFFER
     4743   02 00CB1    6AF01C81              BAL,15   COMPACTM          COMPACT/MOVE DATA
     4744   02 00CB2    6AF01520     T43M04   BAL,15   TPMOD             TEST PUNCH MODEL NUMBER
     4745   02 00CB3    22000821              LI,0     DA(IOCD43)        MODEL 7165
     4746   02 00CB4    68000CB6              B        %+2
     4747   02 00CB5    220007D5              LI,0     DA(IOCD17)        MODEL 7160
     4748   02 00CB6    6AF015E5              BAL,15   :SIO              ISSUE SIO - BINARY, 120 BYTES
     4749   02 00CB7    9600C000 A            DATA     X'9600C000'       MASK
     4750   02 00CB8    10000000 A            DATA     X'10000000'       EXP STATUS
     4751   02 00CB9    68000CBF              B        T43M05            OK
     4752   02 00CBA    EAF0021B A            BAL,15   *:ERROR
     4753   02 00CBB    000010CD A            DATA     4301              *** ERROR 4301 ***
     4754   02 00CBC    EAF0021D A            BAL,15   *:SENSE
     4755   02 00CBD    2E000CBD              WAIT     %
     4756   02 00CBE    68000CA8              B        T43M01            LOOP
     4757                            *
     4758   02 00CBF    22400000 A   T43M05   LI,4     0
     4759   02 00CC0    35400364              STW,4    T43ERR            CLEAR ERR FLAG
     4760   02 00CC1    22E002FF A            LI,14    X'2FF'
     4761   02 00CC2    6AF01745              BAL,15   :DELAY            DELAY
     4762   02 00CC3    68000CC4              B        %+1
     4763   02 00CC4    6AF01765              BAL,15   :ERRORT           TEST TIO,OSB,BYTE COUNT
     4764   02 00CC5    00000D38              DATA     BA(T43SEQ1)       TEST SEQ
     4765   02 00CC6    68000CCA              B        T43M06            OK
     4766   02 00CC7    35100364              STW,1    T43ERR            SET ERR FLAG
     4767   02 00CC8    EAF0021B A            BAL,15   *:ERROR
     4768   02 00CC9    000010CE A            DATA     4302              *** ERROR 4302 ***
     4769                            *
     4770   02 00CCA    6AF01765     T43M06   BAL,15   :ERRORT           TEST TDV READ CHECK
     4771   02 00CCB    00000D4C              DATA     BA(T43SEQ2)       TEST SEQ
     4772   02 00CCC    68000CDA              B        T43M09            OK
     4773   02 00CCD    35100364              STW,1    T43ERR            SET ERR FLAG
     4774   02 00CCE    22C00050 A   T43M07   LI,12    80
     4775   02 00CCF    30C00363              AW,12    T43INDX           FORM COL. NO.                   *A01
     4776   02 00CD0    EAF00217 A            BAL,15   *:DECC            CONVERT TO EBCDIC               *A01
     4777   02 00CD1    55F00CE1              STH,15   T43MSG+2          ENTER INTO MSG
     4778   02 00CD2    EAF0021C A            BAL,15   *:PRINT
     4779   02 00CD3    00000CDF              DATA     T43MSG            'COL NO XX'
     4780   02 00CD4    EAF0021B A            BAL,15   *:ERROR
     4781   02 00CD5    000010CF A            DATA     4303              *** ERROR 4303 ***
     4782   02 00CD6    EAF0021D A   T43M08   BAL,15   *:SENSE
     4783   02 00CD7    2E000CD7              WAIT     %
     4784   02 00CD8    68000CA8              B        T43M01            LOOP
     4785   02 00CD9    68000CDC              B        T43M10            CONTINUE
     4786                            *
     4787   02 00CDA    31100364     T43M09   CW,1     T43ERR            TEST ERR FLAG
     4788   02 00CDB    68300CD6              BE       T43M08            SET
     4789   02 00CDC    33100363     T43M10   MTW,1    T43INDX           INCR INDEX
     4790   02 00CDD    69100CA9              BLZ      T43M02            NOT LAST COL
     4791   02 00CDE    6800040E              B        EXIT              EXIT
     4792                            *
     4793         02 00363           T43INDX  EQU      TST1X1
     4794         02 0034E           T43SEQ1  EQU      TSEQ7
     4795         02 00353           T43SEQ2  EQU      TSEQ8
     4796         02 00364           T43ERR   EQU      TST1X2
     4797   02 00CDF    09C3D6D3 A   T43MSG   TEXTC    'COLUMN XX'
            02 00CE0    E4D4D540 A
            02 00CE1    E7E74040 A
     4798                            *
     4799   02 00CE2    6AF0105D     TST144   BAL,15   TST1R1            SET UP PUNCH IOCD'S
     4800   02 00CE3    75100FAA              STB,1    IOCD17            LOAD WRITE ORDER
     4801   02 00CE4    22400001 A            LI,4     X'001'
     4802   02 00CE5    35400363              STW,4    T44INDX           INITIALIZE ROW COUNT
     4803   02 00CE6    6AF0105D              BAL,15   TST1R1            SET UP PUNCH IOCD'S
     4804   02 00CE7    CFC0172A     T44M01   HIO,12   *:DEVADDR         ISSUE HIO
     4805   02 00CE8    32500363     T44M03   LW,5     T44INDX           ROW NO.
     4806   02 00CE9    226FFFB0 A            LI,6     -80
     4807   02 00CEA    355C1FE6              STW,5    TABLE1+80,6       BUILD PATTERN
     4808   02 00CEB    65600CEA              BIR,6    %-1
     4809   02 00CEC    6AF01C81              BAL,15   COMPACTM          COMPACT DATA
     4810   02 00CED    6AF01520     T44M04   BAL,15   TPMOD             TEST PUNCH MODEL NUMBER
     4811   02 00CEE    22000821              LI,0     DA(IOCD43)        MODEL 7165
     4812   02 00CEF    68000CF1              B        %+2
     4813   02 00CF0    220007D5              LI,0     DA(IOCD17)        MODEL 7160
     4814   02 00CF1    6AF015E5              BAL,15   :SIO              ISSUE SIO - BINARY ,BC=120
     4815   02 00CF2    9600C000 A            DATA     X'9600C000'       MASK
     4816   02 00CF3    10000000 A            DATA     X'10000000'       EXP STATUS
     4817   02 00CF4    68000CFA              B        T44M06            OK
     4818   02 00CF5    EAF0021B A            BAL,15   *:ERROR
     4819   02 00CF6    00001131 A            DATA     4401              *** ERROR 4401 ***
     4820   02 00CF7    EAF0021D A            BAL,15   *:SENSE
     4821   02 00CF8    2E000CF8              WAIT     %
     4822   02 00CF9    68000CE7              B        T44M01            LOOP
     4823                            *
     4824   02 00CFA    22400000 A   T44M06   LI,4     0
     4825   02 00CFB    35400364              STW,4    T44ERR            RESET ERR FLAG
     4826   02 00CFC    22E002FF A            LI,14    X'2FF'
     4827   02 00CFD    6AF01745              BAL,15   :DELAY            DELAY
     4828   02 00CFE    68000CFF              B        %+1
     4829   02 00CFF    6AF01765              BAL,15   :ERRORT           TEST TIO,OSB, BYTE COUNT
     4830   02 00D00    00000D38              DATA     BA(T44SEQ1)       TEST SEQ
     4831   02 00D01    68000D05              B        T44M07            OK
     4832   02 00D02    35100364              STW,1    T44ERR            SET ERR FLAG
     4833   02 00D03    EAF0021B A            BAL,15   *:ERROR
     4834   02 00D04    00001132 A            DATA     4402              *** ERROR 4402 ***
     4835                            *
     4836   02 00D05    6AF01765     T44M07   BAL,15   :ERRORT           TEST TDV READ CHECK
     4837   02 00D06    00000D4C              DATA     BA(T44SEQ2)       TEST SEQ
     4838   02 00D07    68000D0E              B        T44M09            OK
     4839   02 00D08    EAF0021B A            BAL,15   *:ERROR
     4840   02 00D09    00001133 A            DATA     4403              *** ERROR 4403 ***
     4841   02 00D0A    EAF0021D A   T44M08   BAL,15   *:SENSE
     4842   02 00D0B    2E000D0B              WAIT     %
     4843   02 00D0C    68000CE7              B        T44M01            LOOP
     4844   02 00D0D    68000D10              B        T44M10            CONTINUE
     4845                            *
     4846   02 00D0E    31100364     T44M09   CW,1     T44ERR            TEST ERR FLAG
     4847   02 00D0F    68300D0A              BE       T44M08            SET
     4848   02 00D10    32400363     T44M10   LW,4     T44INDX           ROW COUNT
     4849   02 00D11    25400001 A            SLS,4    1                 INCR
     4850   02 00D12    35400363              STW,4    T44INDX           SAVE
     4851   02 00D13    22401000 A            LI,4     X'1000'           TEST FOR LAST
     4852   02 00D14    31400363              CW,4     T44INDX
     4853   02 00D15    68400CE8              BCR,4    T44M03            NOT - LOOP
     4854   02 00D16    6800040E              B        EXIT              EXIT
     4855                            *
     4856         02 0034E           T44SEQ1  EQU      TSEQ7
     4857         02 00353           T44SEQ2  EQU      TSEQ8
     4858         02 00364           T44ERR   EQU      TST1X2
     4859         02 00363           T44INDX  EQU      TST1X1
     4860                            *
     4861   02 00D17    2240000A A   TST145   LI,4     10
     4862   02 00D18    35400363              STW,4    T45INDX           INITIALIZE CARD COUNT
     4863   02 00D19    6AF0105D              BAL,15   TST1R1            SET UP PUNCH IOCD'S
     4864   02 00D1A    CFC0172A     T45M01   HIO,12   *:DEVADDR         ISSUE HIO
     4865   02 00D1B    6AF0131D     T45M02   BAL,15   TST3P04           SET UP RANDOM SEEDS
     4866   02 00D1C    6AF01316              BAL,15   TST3P03           SPREAD RANDOM PATTERN
     4867   02 00D1D    65400D1B              BIR,4    %-2
     4868   02 00D1E    6AF01520     T45M021  BAL,15   TPMOD             TEST PUNCH MODEL NUMBER
     4869   02 00D1F    2200081C              LI,0     DA(IOCD38)        MODEL 7165
     4870   02 00D20    68000D22              B        %+2
     4871   02 00D21    22000AAF              LI,0     DA(T3IOCD2)       MODEL 7160
     4872   02 00D22    6AF01BFB              BAL,15   EXECUTE           ISSUE SIO
     4873   02 00D23    68000D29              B        T45M03            OK                    COMPLETION
     4874   02 00D24    EAF0021B A            BAL,15   *:ERROR
     4875   02 00D25    00001195 A            DATA     4501              *** ERROR 4501 ***
     4876   02 00D26    EAF0021D A            BAL,15   *:SENSE
     4877   02 00D27    2E000D27              WAIT     %
     4878   02 00D28    68000D1E              B        T45M021
     4879                            *
     4880   02 00D29    33F00363     T45M03   MTW,-1   T45INDX           DECR CARD COUNT
     4881   02 00D2A    69200D1B              BGZ      T45M02            NOT 0 -LOOP
     4882   02 00D2B    6800040E              B        EXIT              EXIT
     4883                            *
     4884         02 00363           T45INDX  EQU      TST1X1
     4885                            *
     4886                            *
     4887   02 00D2C    09F01E4A     TST146   PSW,15   PSTACK            SAVE RETURN ADDRESS IN STACK
     4888   02 00D2D    32F00D6A              LW,15    T45XPSD           SET UP
     4889   02 00D2E    35F0005C A            STW,15   X'5C'               INTERRUPT HANDLER
     4890   02 00D2F    22E00050 A            LI,14    80
     4891   02 00D30    35E00FE9              STW,14   IOCD27+1          SET BYTE COUNT = 80
     4892   02 00D31    220007F4              LI,0     DA(IOCD27)        SET UP PUNCH IOCD
     4893   02 00D32    22F00045 A            LI,15    X'45'
     4894   02 00D33    75F00FE8              STB,15   IOCD27            LOAD ORDER X'45'
     4895   02 00D34    6AF00D55              BAL,15   T46D              PERFORM TEST
     4896   02 00D35    000011F9 A            DATA     4601              *** ERRORS 4601-4602 ***
     4897   02 00D36    22F0004D A            LI,15    X'4D'
     4898   02 00D37    75F00FE8              STB,15   IOCD27            LOAD ORDER X'4D'
     4899   02 00D38    6AF00D55              BAL,15   T46D              PERFORM TEST
     4900   02 00D39    000011FB A            DATA     4603              *** ERRORS 4603-4604 ***
     4901   02 00D3A    22F00055 A            LI,15    X'55'
     4902   02 00D3B    75F00FE8              STB,15   IOCD27            LOAD ORDER X'55'
     4903   02 00D3C    6AF00D55              BAL,15   T46D              PERFORM TEST
     4904   02 00D3D    000011FD A            DATA     4605              *** ERRORS 4605-4606 ***
     4905   02 00D3E    22F0005D A            LI,15    X'5D'
     4906   02 00D3F    75F00FE8              STB,15   IOCD27            LOAD ORDER X'5D'
     4907   02 00D40    6AF00D55              BAL,15   T46D              PERFORM TEST
     4908   02 00D41    000011FF A            DATA     4607              *** ERRORS 4607-4608 ***
     4909   02 00D42    22E00078 A            LI,14    120
     4910   02 00D43    35E00FE9              STW,14   IOCD27+1          SET BYTE COUNT = 120
     4911   02 00D44    22F00041 A            LI,15    X'41'
     4912   02 00D45    75F00FE8              STB,15   IOCD27            LOAD ORDER X'41'
     4913   02 00D46    6AF00D55              BAL,15   T46D              PERFORM TEST
     4914   02 00D47    00001201 A            DATA     4609              *** ERRORS 4609-4610 ***
     4915   02 00D48    22F00049 A            LI,15    X'49'
     4916   02 00D49    75F00FE8              STB,15   IOCD27            LOAD ORDER X'49'
     4917   02 00D4A    6AF00D55              BAL,15   T46D              PERFORM TEST
     4918   02 00D4B    00001203 A            DATA     4611              *** ERRORS 4611-4612 ***
     4919   02 00D4C    22F00051 A            LI,15    X'51'
     4920   02 00D4D    75F00FE8              STB,15   IOCD27            LOAD ORDER X'51'
     4921   02 00D4E    6AF00D55              BAL,15   T46D              PERFORM TEST
     4922   02 00D4F    00001205 A            DATA     4613              *** ERRORS 4613-4614 ***
     4923   02 00D50    22F00059 A            LI,15    X'59'
     4924   02 00D51    75F00FE8              STB,15   IOCD27            LOAD ORDER X'59'
     4925   02 00D52    6AF00D55              BAL,15   T46D              PERFORM TEST
     4926   02 00D53    00001207 A            DATA     4615              *** ERRORS 4615-4616 ***
     4927   02 00D54    6800039D              B        POP               RETURN
     4928                            *
     4929   02 00D55    09F01E4A     T46D     PSW,15   PSTACK            SAVE RETURN ADDRESS IN STACK
     4930   02 00D56    B2F0000F A            LW,15    *15               LOAD AND STORE
     4931   02 00D57    35F00D60              STW,15   T46DE1              ERROR NUMBERS
     4932   02 00D58    20F00001 A            AI,15    1
     4933   02 00D59    35F00D65              STW,15   T46DE2
     4934   02 00D5A    B3101E4A              MTW,1    *PSTACK           INCR RETURN ADDRESS
     4935   02 00D5B    6AF0131D              BAL,15   TST3P04           SET UP RANDOM SEEDS
     4936   02 00D5C    6AF01316              BAL,15   TST3P03           SPREAD RANDOM PATTERN
     4937   02 00D5D    6AF01DA1     T46DS    BAL,15   DRVR1             ISSUE PUNCH ORDER
     4938   02 00D5E    68000D62              B        T46D1             - SUCCESSFUL
     4939   02 00D5F    EAF0021B A            BAL,15   *:ERROR
     4940   02 00D60    00000000 A   T46DE1   DATA     0                 *** ERROR 46-O **
     4941   02 00D61    68000D66              B        T46DE2+1          GO TEST SENSE SWITCHES
     4942   02 00D62    31101D65     T46D1    CW,1     TST1ERF           IS THE ERROR FLAG SET ?
     4943   02 00D63    6930039D              BNE      POP               B: NO - RETURN
     4944   02 00D64    EAF0021B A            BAL,15   *:ERROR
     4945   02 00D65    00000000 A   T46DE2   DATA     0                 *** ERROR 46-E ***
     4946   02 00D66    EAF0021D A            BAL,15   *:SENSE           GO TEST SENSE SWITCHES
     4947   02 00D67    2E000D67              WAIT     %                 SSW 3 RESET - WAIT
     4948   02 00D68    68000D5D              B        T46DS             SSW 1 SET   - LOOP ON ERROR
     4949   02 00D69    6800039D              B        POP               SSW 1 RESET - RETURN
     4950                            *
     4951   02 00D6A    0F000D6C     T45XPSD  XPSD,0   T45PSD
     4952                                     BOUND    8
     4953   02 00D6C    00000000 A   T45PSD   DATA     0,0
            02 00D6D    00000000 A
     4954   02 00D6E    00000D70              DATA     T45INT,0
            02 00D6F    00000000 A
     4955                            *
     4956   02 00D70    02200000 A   T45INT   LCI      0                 SAVE REG. 0-15 IN PUBLIC
     4957   02 00D71    0B001E4A              PSM,0    PSTACK              'PUSH-DOWN' STACK
     4958   02 00D72    35201D65              STW,2    TST1ERF           RESET ERROR FLAG
     4959   02 00D73    6AF015F9              BAL,15   :AIO
     4960   02 00D74    FFFFC002 A            DATA     X'FFFFC002'       TEST FOR DATA TRANSMISSION
     4961   02 00D75    40000000 A            DATA     X'40000000'         COMPLETE FLAG
     4962   02 00D76    68000D78              B        %+2               B: NO ERRORS
     4963   02 00D77    35101D65              STW,1    TST1ERF           SET ERROR FLAG
     4964   02 00D78    22F3FFFF A            LI,15    X'3FFFF'
     4965   02 00D79    64F00D79              BDR,15   %                 DELAY
     4966   02 00D7A    CFC0172A              HIO,12   *:DEVADDR         ISSUE AN HIO TO THE DEVICE
     4967   02 00D7B    6AF015EA              BAL,15   :TIO              ISSUE A TIO
     4968   02 00D7C    FFFFC000 A            DATA     X'FFFFC000'
     4969   02 00D7D    10000000 A            DATA     X'10000000'
     4970   02 00D7E    68000D80              B        %+2               B: NO ERRORS
     4971   02 00D7F    35101D65              STW,1    TST1ERF           SET ERROR FLAG
     4972   02 00D80    35101764              STW,1    :INTRECF          SET INTERRUPT RECEIVED FLAG
     4973   02 00D81    02200000 A            LCI      0
     4974   02 00D82    0A001E4A              PLM,0    PSTACK            RESTORE REG. 0-15 FROM STACK
     4975   02 00D83    0E200D6C              LPSD,2   T45PSD            RETURN
     4976                            *
     4977   02 00D84    02200000 A   TST148   LCI      0                 SAVE REG. 0-15 IN PUBLIC
     4978   02 00D85    0B001E4A              PSM,0    PSTACK              'PUSH-DOWN' STACK
     4979   02 00D86    6AF0105D              BAL,15   TST1R1            SET UP PUNCH IOCD'S
     4980   02 00D87    35100364              STW,1    T48FIN            RESET FINISH FLAG
     4981   02 00D88    6AF00DA4              BAL,15   T48PATI           FETCH FIRST PAT'N
     4982   02 00D89    68000D8A              B        %+1
     4983   02 00D8A    68000D8D              B        %+3               GO TO PUNCH
     4984   02 00D8B    6AF00DAE     T48M01   BAL,15   T48PAT            FETCH PAT'N
     4985   02 00D8C    35200364              STW,2    T48FIN            LAST CARD -SET FINISH FLAG
     4986   02 00D8D    CFC0172A     T48M02   HIO,12   *:DEVADDR         ISSUE HIO
     4987   02 00D8E    32400E72              LW,4     T48CARD           CARD NO.
     4988   02 00D8F    21400019 A            CI,4     25                TEST FOR EBCDIC
     4989   02 00D90    68200D96              BLE      %+6               BINARY
     4990   02 00D91    6AF01520              BAL,15   TPMOD             TEST PUNCH MODEL NUMBER
     4991   02 00D92    2200081E              LI,0     DA(IOCD40)        MODEL 7165
     4992   02 00D93    68000D9A              B        %+7
     4993   02 00D94    220007DB              LI,0     DA(IOCD19)        MODEL 7160
     4994   02 00D95    68000D9A              B        %+5
     4995   02 00D96    6AF01520              BAL,15   TPMOD             TEST PUNCH MODEL NUMBER
     4996   02 00D97    2200081F              LI,0     DA(IOCD41)        MODEL 7165
     4997   02 00D98    68000D9A              B        %+2
     4998   02 00D99    220007D8              LI,0     DA(IOCD18)        MODEL 7160
     4999   02 00D9A    6AF01BFB              BAL,15   EXECUTE           PUNCH
     5000   02 00D9B    68000DA1              B        T48M03            NO ERRORS
     5001   02 00D9C    EAF0021B A            BAL,15   *:ERROR
     5002   02 00D9D    000012C1 A            DATA     4801              *** ERROR 4801 ***
     5003   02 00D9E    EAF0021D A            BAL,15   *:SENSE
     5004   02 00D9F    2E000D9F              WAIT     %
     5005   02 00DA0    68000D8B              B        T48M01            LOOP
     5006                            *
     5007   02 00DA1    31200364     T48M03   CW,2     T48FIN            TEST FINISH FLAG
     5008   02 00DA2    69300D8B              BNE      T48M01            NOT -LOOP
     5009   02 00DA3    68001087              B        POP15             RETURN
     5010                            *
     5011         02 00364           T48FIN   EQU      TST1X2
     5012                            *
     5013                            *  GENERATE TST1,48/TST1,49 50-CARD DECK PATTERN
     5014                            *
     5015   02 00DA4    22400AAA A   T48PATI  LI,4     X'AAA'
     5016   02 00DA5    35400E12              STW,4    T48C1
     5017   02 00DA6    2540007F A            SLS,4    -1
     5018   02 00DA7    35400E13              STW,4    T48C2
     5019   02 00DA8    32401EE8              LW,4     =X'01FFF000'
     5020   02 00DA9    35400E1E              STW,4    T48C1325
     5021   02 00DAA    224FFFE6 A            LI,4     -26
     5022   02 00DAB    35400E1F              STW,4    T48C13C
     5023   02 00DAC    22000000 A            LI,0     0
     5024   02 00DAD    35000E72              STW,0    T48CARD
     5025   02 00DAE    35F00E73     T48PAT   STW,15   T48SAVE
     5026   02 00DAF    66100E72              AWM,1    T48CARD
     5027   02 00DB0    32400E72              LW,4     T48CARD
     5028   02 00DB1    21400002 A            CI,4     2
     5029   02 00DB2    69200DBB              BG       T48PAT1
     5030   02 00DB3    225FFFB0 A            LI,5     -80
     5031   02 00DB4    12600E12              LD,6     T48C1
     5032   02 00DB5    356A1FE6              STW,6    TABLE1+80,5
     5033   02 00DB6    46600007 A            XW,6     7
     5034   02 00DB7    65500DB5              BIR,5    %-2
     5035   02 00DB8    46600007 A            XW,6     7
     5036   02 00DB9    15600E12              STD,6    T48C1
     5037   02 00DBA    68000DDF              B        T48PAT5
     5038   02 00DBB    21400008 A   T48PAT1  CI,4     8
     5039   02 00DBC    69200DC3              BG       T48PAT2
     5040   02 00DBD    38400003 A            SW,4     3
     5041   02 00DBE    32480E14              LW,4     T48C4,4
     5042   02 00DBF    225FFFB0 A            LI,5     -80
     5043   02 00DC0    354A1FE6              STW,4    TABLE1+80,5
     5044   02 00DC1    65500DC0              BIR,5    %-1
     5045   02 00DC2    68000DDF              B        T48PAT5
     5046   02 00DC3    2140000C A   T48PAT2  CI,4     12
     5047   02 00DC4    69200DD2              BG       T48PAT3
     5048   02 00DC5    38401EE9              SW,4     =9
     5049   02 00DC6    226FFFB0 A            LI,6     -80
     5050   02 00DC7    32580E1A              LW,5     T48C9,4
     5051   02 00DC8    355C1FE6              STW,5    TABLE1+80,6
     5052   02 00DC9    2550007C A            SLS,5    -4
     5053   02 00DCA    355C1FE7              STW,5    TABLE1+81,6
     5054   02 00DCB    2550007C A            SLS,5    -4
     5055   02 00DCC    355C1FE8              STW,5    TABLE1+82,6
     5056   02 00DCD    2550007C A            SLS,5    -4
     5057   02 00DCE    355C1FE9              STW,5    TABLE1+83,6
     5058   02 00DCF    33300006 A            MTW,3    6
     5059   02 00DD0    65600DC7              BIR,6    %-9
     5060   02 00DD1    68000DDF              B        T48PAT5
     5061   02 00DD2    21400019 A   T48PAT3  CI,4     25
     5062   02 00DD3    69200DE1              BG       T48PAT6
     5063   02 00DD4    225FFFB0 A            LI,5     -80
     5064   02 00DD5    32700E1E              LW,7     T48C1325
     5065   02 00DD6    32600E1F              LW,6     T48C13C
     5066   02 00DD7    357A1FE6              STW,7    TABLE1+80,5
     5067   02 00DD8    65600DDB              BIR,6    %+3
     5068   02 00DD9    226FFFE6 A            LI,6     -26
     5069   02 00DDA    2570027A A            SCS,7    -6
     5070   02 00DDB    2570027F A            SCS,7    -1
     5071   02 00DDC    65500DD7              BIR,5    %-5
     5072   02 00DDD    35700E1E              STW,7    T48C1325
     5073   02 00DDE    35600E1F              STW,6    T48C13C
     5074   02 00DDF    6AF01C81     T48PAT5  BAL,15   COMPACTM
     5075   02 00DE0    E8020E73              B       *T48SAVE,1
     5076   02 00DE1    2140001D A   T48PAT6  CI,4     29
     5077   02 00DE2    69200DEE              BG       T48PAT7
     5078   02 00DE3    38401EEA              SW,4     =26
     5079   02 00DE4    32580E20              LW,5     T48AD,4
     5080   02 00DE5    226FFFF0 A            LI,6     -16
     5081   02 00DE6    B27C0005 A            LW,7     *5,6
     5082   02 00DE7    357C1F84              STW,7    BUFFER+16,6
     5083   02 00DE8    65600DE6              BIR,6    %-2
     5084   02 00DE9    224FFFFC A            LI,4     -4
     5085   02 00DEA    32501EEB              LW,5     =X'40404040'
     5086   02 00DEB    35581F88              STW,5    BUFFER+20,4
     5087   02 00DEC    65400DEB              BIR,4    %-1
     5088   02 00DED    E8020E73              B        *T48SAVE,1
     5089   02 00DEE    21400021 A   T48PAT7  CI,4     33
     5090   02 00DEF    69200DF9              BG       T48PAT8
     5091   02 00DF0    38401EEC              SW,4     =30
     5092   02 00DF1    72580E64              LB,5     T48C30,4
     5093   02 00DF2    22600000 A            LI,6     0
     5094   02 00DF3    755C1F74              STB,5    BUFFER,6
     5095   02 00DF4    33100005 A            MTW,1    5
     5096   02 00DF5    33100006 A            MTW,1    6
     5097   02 00DF6    2160003F A            CI,6     63
     5098   02 00DF7    68200DF3              BLE      %-4
     5099   02 00DF8    E8020E73              B       *T48SAVE,1
     5100   02 00DF9    2140002D A   T48PAT8  CI,4     45
     5101   02 00DFA    69200E01              BG       T48PAT9
     5102   02 00DFB    38401EED              SW,4     =34
     5103   02 00DFC    225FFFB0 A            LI,5     -80
     5104   02 00DFD    72680E65              LB,6     T48C34,4
     5105   02 00DFE    756A1F88              STB,6    BUFFER+20,5
     5106   02 00DFF    65500DFE              BIR,5    %-1
     5107   02 00E00    E8020E73              B        *T48SAVE,1
     5108   02 00E01    38401EEE     T48PAT9  SW,4     =46
     5109   02 00E02    32580E68              LW,5     T48AD1,4
     5110   02 00E03    F2A00005 A            LB,10    *5
     5111   02 00E04    F2B20005 A            LB,11    *5,1
     5112   02 00E05    F2C40005 A            LB,12    *5,2
     5113   02 00E06    226FFFB0 A            LI,6     -80
     5114   02 00E07    75AC1F88              STB,10   BUFFER+20,6
     5115   02 00E08    33100006 A            MTW,1    6
     5116   02 00E09    75BC1F88              STB,11   BUFFER+20,6
     5117   02 00E0A    33100006 A            MTW,1    6
     5118   02 00E0B    75CC1F88              STB,12   BUFFER+20,6
     5119   02 00E0C    65600E07              BIR,6    %-5
     5120   02 00E0D    32400E72              LW,4     T48CARD
     5121   02 00E0E    21400032 A            CI,4     50
     5122   02 00E0F    E9120E73              BL       *T48SAVE,1
     5123   02 00E10    E8000E73              B        *T48SAVE
     5124                            *
     5125                                     BOUND    8
     5126   02 00E12    00000000 A   T48C1    DATA     0
     5127   02 00E13    00000000 A   T48C2    DATA     0
     5128   02 00E14    00000801 A   T48C4    DATA     X'801',X'402',X'204',X'108',X'090',X'060'
            02 00E15    00000402 A
            02 00E16    00000204 A
            02 00E17    00000108 A
            02 00E18    00000090 A
            02 00E19    00000060 A
     5129   02 00E1A    00000F00 A   T48C9    DATA     X'F00',X'F000F0',X'F000F',X'F000'
            02 00E1B    00F000F0 A
            02 00E1C    000F000F A
            02 00E1D    0000F000 A
     5130   02 00E1E    01FFF000 A   T48C1325 DATA     X'01FFF000'
     5131   02 00E1F    FFFFFFE6 A   T48C13C  DATA     -26
     5132   02 00E20    00000E34     T48AD    DATA     T48P1
     5133   02 00E21    00000E44              DATA     T48P2
     5134   02 00E22    00000E54              DATA     T48P3
     5135   02 00E23    00000E64              DATA     T48P4
     5136                                     DATA     X'40F1F2F3',X'F4F5F6F7',X'F9313233',X'34353637',;
     5137                             X'F8797A7B',X'7C7D7E7F',X'38393A3B',X'3C3D3E3F',X'F061E2E3',;
     5138                             X'E4E5E6E7',X'E9212223',X'24252627',X'E869E06B',X'6C6D6E6F',;
     5139   02 00E24    40F1F2F3 A    X'28292A2B',X'2C2D2E2F'
            02 00E25    F4F5F6F7 A
            02 00E26    F9313233 A
            02 00E27    34353637 A
            02 00E28    F8797A7B A
            02 00E29    7C7D7E7F A
            02 00E2A    38393A3B A
            02 00E2B    3C3D3E3F A
            02 00E2C    F061E2E3 A
            02 00E2D    E4E5E6E7 A
            02 00E2E    E9212223 A
            02 00E2F    24252627 A
            02 00E30    E869E06B A
            02 00E31    6C6D6E6F A
            02 00E32    28292A2B A
            02 00E33    2C2D2E2F A
     5140         02 00E34           T48P1    EQU      %
     5141                                     DATA     X'60D1D2D3',X'D4D5D6D7',X'D9111213',X'14151617',;
     5142                             X'D8595A5B',X'5C5D5E5F',X'18191A1B',X'1C1D1E1F',X'D0A1A2A3',;
     5143                             X'A4A5A6A7',X'A9E16263',X'64656667',X'A8A0AAAB',X'ACADAEAF',;
     5144   02 00E34    60D1D2D3 A    X'6820EAEB',X'ECEDEEEF'
            02 00E35    D4D5D6D7 A
            02 00E36    D9111213 A
            02 00E37    14151617 A
            02 00E38    D8595A5B A
            02 00E39    5C5D5E5F A
            02 00E3A    18191A1B A
            02 00E3B    1C1D1E1F A
            02 00E3C    D0A1A2A3 A
            02 00E3D    A4A5A6A7 A
            02 00E3E    A9E16263 A
            02 00E3F    64656667 A
            02 00E40    A8A0AAAB A
            02 00E41    ACADAEAF A
            02 00E42    6820EAEB A
            02 00E43    ECEDEEEF A
     5145         02 00E44           T48P2    EQU      %
     5146                                     DATA     X'50C1C2C3',X'C4C5C6C7',X'C9010203',X'04050607',;
     5147                             X'C8494A4B',X'4C4D4E4F',X'08090A0B',X'0C0D0E0F',X'C0818283',;
     5148                             X'84858687',X'89414243',X'44454647',X'88808A8B',X'8C8D8E8F',;
     5149   02 00E44    50C1C2C3 A    X'4800CACB',X'CCCDCECF'
            02 00E45    C4C5C6C7 A
            02 00E46    C9010203 A
            02 00E47    04050607 A
            02 00E48    C8494A4B A
            02 00E49    4C4D4E4F A
            02 00E4A    08090A0B A
            02 00E4B    0C0D0E0F A
            02 00E4C    C0818283 A
            02 00E4D    84858687 A
            02 00E4E    89414243 A
            02 00E4F    44454647 A
            02 00E50    88808A8B A
            02 00E51    8C8D8E8F A
            02 00E52    4800CACB A
            02 00E53    CCCDCECF A
     5150         02 00E54           T48P3    EQU      %
     5151                                     DATA     X'6A919293',X'94959697',X'99515253',X'54555657',;
     5152                             X'98909A9B',X'9C9D9E9F',X'5810DADB',X'DCDDDEDF',X'70B1B2B3',;
     5153                             X'B4B5B6B7',X'B9717273',X'74757677',X'B8B0BABB',X'BCBDBEBF',;
     5154   02 00E54    6A919293 A    X'7830FAFB',X'FCFDFEFF'
            02 00E55    94959697 A
            02 00E56    99515253 A
            02 00E57    54555657 A
            02 00E58    98909A9B A
            02 00E59    9C9D9E9F A
            02 00E5A    5810DADB A
            02 00E5B    DCDDDEDF A
            02 00E5C    70B1B2B3 A
            02 00E5D    B4B5B6B7 A
            02 00E5E    B9717273 A
            02 00E5F    74757677 A
            02 00E60    B8B0BABB A
            02 00E61    BCBDBEBF A
            02 00E62    7830FAFB A
            02 00E63    FCFDFEFF A
     5155         02 00E64           T48P4    EQU      %
     5156   02 00E64    004080C0 A   T48C30   DATA     X'004080C0'
     5157                            T48C34   DATA,1   X'50',X'60',X'F0',X'F1',X'F2',X'F3',X'F4',X'F5',;
     5158   02 00E65    50       A    X'F6',X'F7',X'F8',X'F9'
            02 00E65 1  60       A
            02 00E65 2  F0       A
            02 00E65 3  F1       A
            02 00E66    F2       A
            02 00E66 1  F3       A
            02 00E66 2  F4       A
            02 00E66 3  F5       A
            02 00E67    F6       A
            02 00E67 1  F7       A
            02 00E67 2  F8       A
            02 00E67 3  F9       A
     5159   02 00E68    00000E6D     T48AD1   DATA     T48P6
     5160   02 00E69    00000E6E              DATA     T48P7
     5161   02 00E6A    00000E6F              DATA     T48P8
     5162   02 00E6B    00000E70              DATA     T48P9
     5163   02 00E6C    00000E71              DATA     T48P10
     5164   02 00E6D    4912E300 A   T48P6    DATA     X'4912E300'
     5165   02 00E6E    4A13E400 A   T48P7    DATA     X'4A13E400'
     5166   02 00E6F    4B14E500 A   T48P8    DATA     X'4B14E500'
     5167   02 00E70    4C15E600 A   T48P9    DATA     X'4C15E600'
     5168   02 00E71    4D16E700 A   T48P10   DATA     X'4D16E700'
     5169   02 00E72    00000000 A   T48CARD  DATA     0
     5170   02 00E73    00000000 A   T48SAVE  DATA     0
     5171                            *
     5172   02 00E74    02200000 A   TST149   LCI      0                 SAVE REG. 0-15 IN PUBLIC
     5173   02 00E75    0B001E4A              PSM,0    PSTACK              'PUSH-DOWN' STACK
     5174   02 00E76    EAF00223 A            BAL,15   *:TYPRINT         PRINT:                          *A01
     5175   02 00E77    00000EB8              DATA     T49MSG              'LOAD 50 CARD DECK'
     5176   02 00E78    3510021A A            STW,1    :CURBCNT
     5177   02 00E79    EAF00219 A            BAL,15   *:1BYTEIN         INPUT CHARACTER
     5178   02 00E7A    68000E7C              B        %+2               ERROR                           *A02
     5179   02 00E7B    68000E7E              B        %+3               NO ERROR                        *A02
     5180   02 00E7C    EAF0022B A            WAITPROC WAITMSG2          ERROR OCCURRED                  *A02
            02 00E7D    00001EC6
     5181   02 00E7E    35100363              STW,1    T49FIN            RESET FINISH FLAG
     5182   02 00E7F    22700000 A            LI,7     0
     5183   02 00E80    35701958              STW,7    COMSCOLN          RESET COL IN ERR
     5184   02 00E81    22401FEA              LI,4     BUFFER2           ESTABLISH DISP PAR'S
     5185   02 00E82    35401A06              STW,4    :CARDOBS
     5186   02 00E83    22401F74              LI,4     BUFFER
     5187   02 00E84    35401A05              STW,4    :CARDEXP
     5188   02 00E85    6AF01517              BAL,15   LDRADR            LOAD READER ADDRESS
     5189   02 00E86    6AF00DA4              BAL,15   T48PATI           INITIALIZE/FIRST PAT'N
     5190   02 00E87    68000E88              B        %+1
     5191   02 00E88    68000E8B              B        %+3
     5192   02 00E89    6AF00DAE     T49M01   BAL,15   T48PAT            EXPECTED PATTERN
     5193   02 00E8A    35200363              STW,2    T49FIN            LAST CARD -SET FLAG
     5194   02 00E8B    32400E72              LW,4     T48CARD           CARD NO.
     5195   02 00E8C    21400019 A            CI,4     25                TEST FOR BINARY
     5196   02 00E8D    68200E9F              BLE      T49M02            BINARY
     5197   02 00E8E    220007DE              LI,0     DA(IOCD20)        EBCDIC
     5198   02 00E8F    22E0FFFF A            LI,14    X'FFFF'           R14 = DELAY
     5199   02 00E90    6AF01D98              BAL,15   EXUSIO            ISSUE AN SIO
     5200   02 00E91    68000E92              B        %+1               FILLER
     5201   02 00E92    6AF01765              BAL,15   :ERRORT           TEST TIO STATUS
     5202   02 00E93    00003AF4              DATA     BA(T49SEQ2)       TEST SEQ
     5203   02 00E94    68000E96              B        %+2               OK
     5204   02 00E95    68000EB0              B        T49M031           ERROR
     5205   02 00E96    69C00E95              BCS,12   %-1               BUSY
     5206   02 00E97    225FFFFF A            LI,5     -1                                                *A01
     5207   02 00E98    35501A07              STW,5    :CARDBF           EBCDIC CARD DISPLAY
     5208   02 00E99    225FFFEC A            LI,5     -20
     5209   02 00E9A    326A1F88              LW,6     BUFFER+20,5
     5210   02 00E9B    316A1FFE              CW,6     BUFFER2+20,5      COMPARE EXP TO OBS
     5211   02 00E9C    69300EAE              BNE      T49M03            UNEQUAL -GO TO REPORT
     5212   02 00E9D    65500E9A              BIR,5    %-3               LOOP FOR 80 BYTES COMPARED
     5213   02 00E9E    68000EB5              B        T49M04            CONTINUE
     5214   02 00E9F    220007DF     T49M02   LI,0     DA(IOCD21)
     5215   02 00EA0    22E0FFFF A            LI,14    X'FFFF'           R14 = DELAY
     5216   02 00EA1    6AF01D98              BAL,15   EXUSIO            ISSUE AN SIO
     5217   02 00EA2    68000EA3              B        %+1               FILLER
     5218   02 00EA3    6AF01765              BAL,15   :ERRORT           TEST TIO STATUS
     5219   02 00EA4    00000D38              DATA     BA(T49SEQ1)       TEST SEQ
     5220   02 00EA5    68000EA7              B        %+2               OK
     5221   02 00EA6    68000EB0              B        T49M031           ERROR
     5222   02 00EA7    225FFFE2 A            LI,5     -30
     5223   02 00EA8    326A1F92              LW,6     BUFFER+30,5
     5224   02 00EA9    316A2008              CW,6     BUFFER2+30,5      COMPARE EXP TO OBS
     5225   02 00EAA    69300EAD              BNE      %+3               UNEQUAL
     5226   02 00EAB    65500EA8              BIR,5    %-3               LOOP  TIL 120 BYTES COMPARED
     5227   02 00EAC    68000EB5              B        T49M04            CONTINUE
     5228   02 00EAD    35101A07              STW,1    :CARDBF           SET BINARY FORCE FLAG
     5229   02 00EAE    6AF01959     T49M03   BAL,15   :CARDISP          DISPLAY INFO
     5230   02 00EAF    68000EB0              B        %+1
     5231   02 00EB0    EAF0021B A   T49M031  BAL,15   *:ERROR
     5232   02 00EB1    00001325 A            DATA     4901              *** ERROR 4901 ***
     5233   02 00EB2    EAF0021D A            BAL,15   *:SENSE
     5234   02 00EB3    2E000EB3              WAIT     %
     5235   02 00EB4    68000EB5              B        %+1
     5236                            *
     5237   02 00EB5    31200363     T49M04   CW,2     T49FIN            TEST FINISH FLAG
     5238   02 00EB6    69300E89              BNE      T49M01            NOT LAST CARD - LOOP
     5239   02 00EB7    68001087              B        POP15             RETURN
     5240                            *
     5241   02 00EB8    11D3D6C1 A   T49MSG   TEXTC    'LOAD 50 CARD DECK'
            02 00EB9    C440F5F0 A
            02 00EBA    40C3C1D9 A
            02 00EBB    C440C4C5 A
            02 00EBC    C3D24040 A
     5242         02 00363           T49FIN   EQU      TST1X1
     5243         02 0034E           T49SEQ1  EQU      TSEQ7
     5244                            T49SEQ2  :TSEQ    TIOF0,TIOF1,TIOF2,TIOF4,TIOF5,TIOF6,TIOF7,;
     5245   02 00EBD    10111214 A                     OSBF0,OSBF1,OSBF2,OSBF3,OSBF4,OSBF5,OSBF6,OSBF7,BYT00
            02 00EBE    15161720 A
            02 00EBF    21222324 A
            02 00EC0    252627E1 A
            02 00EC1    00000000 A
     5246                            *
     5247   02 00EC2    02200000 A   TST150   LCI      0                 SAVE REG. 0-15 IN PUBLIC
     5248   02 00EC3    0B001E4A              PSM,0    PSTACK              'PUSH-DOWN' STACK
     5249   02 00EC4    EAF00223 A            BAL,15   *:TYPRINT         PRINT:                          *A01
     5250   02 00EC5    00000EF5              DATA     T50MSG1             EBCDIC CARD'
     5251   02 00EC6    3510021A A            STW,1    :CURBCNT
     5252   02 00EC7    EAF00219 A            BAL,15   *:1BYTEIN         INPUT CHARACTER
     5253   02 00EC8    68000ECA              B        %+2               ERROR                           *A02
     5254   02 00EC9    68000ECC              B        %+3               NO ERROR                        *A02
     5255   02 00ECA    EAF0022B A            WAITPROC WAITMSG2          ERROR HAS OCCURRED              *A02
            02 00ECB    00001EC6
     5256   02 00ECC    6AF0107A              BAL,15   CLRBUF            CLEAR (BUFFER)
     5257   02 00ECD    22F01F74              LI,15    BUFFER
     5258   02 00ECE    35F01A05              STW,15   :CARDEXP          EXPECTED BUFFER ADDRESS
     5259   02 00ECF    22F01FEA              LI,15    BUFFER2
     5260   02 00ED0    35F01A06              STW,15   :CARDOBS          OBSERVED BUFFER ADDRESS
     5261   02 00ED1    22FFFFFF A            LI,15    -1                                                *A01
     5262   02 00ED2    35F01A07              STW,15   :CARDBF           FORCE EBCDIC CARD DISPLAY       *A01
     5263   02 00ED3    22000828     T50M01   LI,0     DA(IOCD50)                                        *A03
     5264   02 00ED4    32F00F68              LW,15    T52XPSD           SET UP
     5265   02 00ED5    35F0005C A            STW,15   X'5C'               INTERRUPT HANDLER
     5266   02 00ED6    32F01EEF              LW,15    =X'00500000'
     5267   02 00ED7    35F00F73              STW,15   T52INTS1          LOAD AIO STATUS
     5268   02 00ED8    32F01EF0              LW,15    =X'00400000'
     5269   02 00ED9    35F00F78              STW,15   T52INTS2          LOAD TIO STATUS
     5270   02 00EDA    32F01EF1              LW,15    =X'EFFF8002'      LOAD AND STORE
     5271   02 00EDB    35F00F72              STW,15   T52INTS1-1         MASK
     5272   02 00EDC    6AF01DA1              BAL,15   DRVR1             GO TO DRIVER #1
     5273   02 00EDD    68000EE2              B        T50M02            - SUCCESSFUL
     5274   02 00EDE    6AF018D1              BAL,15   :INTD             DISARM IO INTERRUPTS
     5275   02 00EDF    EAF0021B A            BAL,15   *:ERROR
     5276   02 00EE0    00001389 A            DATA     5001              *** ERROR 5001 ***
     5277   02 00EE1    68000EE6              B        T50M03            GO TEST SENSE SWITCHES
     5278   02 00EE2    31101D65     T50M02   CW,1     TST1ERF           HAS ERROR OCCURRED ?
     5279   02 00EE3    69300EEA              BNE      T50M04            B: NO - TEST (BUFFER2)
     5280   02 00EE4    EAF0021B A            BAL,15   *:ERROR
     5281   02 00EE5    0000138A A            DATA     5002              *** ERROR 5002 ***
     5282   02 00EE6    EAF0021D A   T50M03   BAL,15   *:SENSE           GO TEST SENSE SWITCHES
     5283   02 00EE7    2E000EE7              WAIT     %                 SSW 3 RESET - WAIT
     5284   02 00EE8    68000ED3              B        T50M01            SSW 1 SET   - LOOP ON ERROR
     5285   02 00EE9    68000EEF              B        T50M05            SSW 1 RESET - TEST FOR SINGLE ENTRY
     5286   02 00EEA    6AF01959     T50M04   BAL,15   :CARDISP          TEST CONTENTS OF CARD
     5287   02 00EEB    68000EEF              B        T50M05            B: TEST FOR SINGLE ENTRY
     5288   02 00EEC    EAF0021B A            BAL,15   *:ERROR
     5289   02 00EED    0000138B A            DATA     5003              *** ERROR 5003 ***
     5290   02 00EEE    68000EE6              B        T50M03            GO TEST SENSE SWITCHES
     5291   02 00EEF    31200426     T50M05   CW,2     TST1SEF           TEST FOR SINGLE ENTRY
     5292   02 00EF0    68301087              BE       POP15             B: NOT SINGLE ENTRY
     5293   02 00EF1    EAF0021D A            BAL,15   *:SENSE           GO TEST SENSE SWITCHES
     5294   02 00EF2    2E000EF2              WAIT     %                 SSW 3 RESET - WAIT
     5295   02 00EF3    68000ED3              B        T50M01            SSW 1 SET   - LOOP ON TEST
     5296   02 00EF4    68001087              B        POP15             SSW 1 RESET - RETURN
     5297   02 00EF5    1ED3D6C1 A   T50MSG1  TEXTC    'LOAD INVALID-CODED EBCDIC CARD'
            02 00EF6    C440C9D5 A
            02 00EF7    E5C1D3C9 A
            02 00EF8    C460C3D6 A
            02 00EF9    C4C5C440 A
            02 00EFA    C5C2C3C4 A
            02 00EFB    C9C340C3 A
            02 00EFC    C1D9C440 A
     5298   02 00EFD    02200000 A   TST151   LCI      0                 SAVE REG. 0-15 IN PUBLIC
     5299   02 00EFE    0B001E4A              PSM,0    PSTACK              'PUSH-DOWN' STACK
     5300   02 00EFF    EAF00223 A            BAL,15   *:TYPRINT         PRINT:                          *A01
     5301   02 00F00    00000F2E              DATA     T51MSG1             'LOAD MODE SWITCHING CARD'
     5302   02 00F01    3510021A A            STW,1    :CURBCNT
     5303   02 00F02    EAF00219 A            BAL,15   *:1BYTEIN         INPUT CHARACTER
     5304   02 00F03    68000F05              B        %+2               ERROR                           *A02
     5305   02 00F04    68000F07              B        %+3               NO ERROR                        *A02
     5306   02 00F05    EAF0022B A            WAITPROC WAITMSG2          ERROR HAS OCCURRED              *A02
            02 00F06    00001EC6
     5307   02 00F07    6AF0107A              BAL,15   CLRBUF            CLEAR (BUFFER)
     5308   02 00F08    22F00018 A            LI,15    X'18'
     5309   02 00F09    75F01F74              STB,15   BUFFER            SET UP PATTERN EXPECTED
     5310   02 00F0A    22F01F74              LI,15    BUFFER
     5311   02 00F0B    35F01A05              STW,15   :CARDEXP          EXPECTED BUFFER
     5312   02 00F0C    22F01FEA              LI,15    BUFFER2
     5313   02 00F0D    35F01A06              STW,15   :CARDOBS          OBSERVED BUFFER
     5314   02 00F0E    35101A07              STW,1    :CARDBF           FORCE BINARY CARD DISPLAY
     5315   02 00F0F    220007FB     T51M01   LI,0     DA(IOCD32)        SET UP READ IOCD
     5316   02 00F10    CCC0172A              SIO,12   *:DEVADDR         ISSUE THE SIO
     5317   02 00F11    32F01DDB              LW,15    PDELAY
     5318   02 00F12    CDC0172A              TIO,12   *:DEVADDR         ISSUE A TIO
     5319   02 00F13    68C00F1A              BCR,12   T51M02            B: DEVICE READY
     5320   02 00F14    64F00F12              BDR,15   %-2               B: NOT TIMEOUT YET
     5321   02 00F15    EAF0021B A            BAL,15   *:ERROR
     5322   02 00F16    000013ED A            DATA     5101              *** ERROR 5101 ***
     5323   02 00F17    EAF0021C A            BAL,15   *:PRINT           PRINT:
     5324   02 00F18    00000F7F              DATA     TIMEOUT                 'TIMEOUT'
     5325   02 00F19    68000F1F              B        T51SW             GO TEST SENSE SWITCHES
     5326                            *
     5327   02 00F1A    6AF01765     T51M02   BAL,15   :ERRORT
     5328   02 00F1B    00003AF4              DATA     BA(T51SEQ1)
     5329   02 00F1C    68000F23              B        T51M03            B: NO ERRORS
     5330   02 00F1D    EAF0021B A            BAL,15   *:ERROR
     5331   02 00F1E    000013EE A            DATA     5102              *** ERROR 5102 ***
     5332   02 00F1F    EAF0021D A   T51SW    BAL,15   *:SENSE           GO TEST SENSE SWITCHES
     5333   02 00F20    2E000F20              WAIT     %                 SSW 3 RESET - WAIT
     5334   02 00F21    68000F0F              B        T51M01            SSW 1 SET   - LOOP ON ERROR
     5335   02 00F22    68000F28              B        T51M05            SSW 1 RESET - TEST FOR SINGLE ENTRY
     5336   02 00F23    6AF01959     T51M03   BAL,15   :CARDISP          TEST CONTENTS OF CARD
     5337   02 00F24    68000F28              B        T51M05            B: TEST FOR SINGLE ENTRY
     5338   02 00F25    EAF0021B A            BAL,15   *:ERROR
     5339   02 00F26    000013EF A            DATA     5103              *** ERROR 5103 ***
     5340   02 00F27    68000F1F              B        T51SW             GO TEST SENSE SWITCHES
     5341   02 00F28    31200426     T51M05   CW,2     TST1SEF           TEST FOR SINGLE ENTRY
     5342   02 00F29    68301087              BE       POP15             B: NOT SINGLE ENTRY
     5343   02 00F2A    EAF0021D A            BAL,15   *:SENSE           GO TEST SENSE SWITCHES
     5344   02 00F2B    2E000F2B              WAIT     %                 SSW 3 RESET - WAIT
     5345   02 00F2C    68000F0F              B        T51M01            SSW 1 SET   - LOOP ON TEST
     5346   02 00F2D    68001087              B        POP15             SSW 1 RESET - RETURN
     5347   02 00F2E    18D3D6C1 A   T51MSG1  TEXTC    'LOAD MODE SWITCHING CARD'
            02 00F2F    C440D4D6 A
            02 00F30    C4C540E2 A
            02 00F31    E6C9E3C3 A
            02 00F32    C8C9D5C7 A
            02 00F33    40C3C1D9 A
            02 00F34    C4404040 A
     5348         02 00EBD           T51SEQ1  EQU      T49SEQ2
     5349   02 00F35    09F01E4A     TST152   PSW,15   PSTACK            SAVE RETURN ADDRESS IN STACK
     5350   02 00F36    EAF00223 A            BAL,15   *:TYPRINT         PRINT:                          *A01
     5351   02 00F37    00000F56              DATA     T52MSG            'LOAD ANY PREPUNCHED CARD INTO PUNCH'
     5352   02 00F38    3510021A A            STW,1    :CURBCNT
     5353   02 00F39    EAF00219 A            BAL,15   *:1BYTEIN         INPUT CHARACTER
     5354   02 00F3A    68000F3C              B        %+2               ERROR                           *A02
     5355   02 00F3B    68000F3E              B        %+3               NO ERROR                        *A02
     5356   02 00F3C    EAF0022B A            WAITPROC WAITMSG2          ERROR HAS OCCURRED              *A02
            02 00F3D    00001EC6
     5357   02 00F3E    6AF0107A              BAL,15   CLRBUF            CLEAR (BUFFER)
     5358   02 00F3F    22000822              LI,0     DA(IOCD44)        MODEL 7160
     5359   02 00F40    32F00F68     T52M01   LW,15    T52XPSD           SET UP
     5360   02 00F41    35F0005C A            STW,15   X'5C'               INTERRUPT HANDLER
     5361   02 00F42    32F01EF2              LW,15    =X'00484000'
     5362   02 00F43    35F00F73              STW,15   T52INTS1          LOAD AIO STATUS
     5363   02 00F44    32F01EF3              LW,15    =X'08400000'
     5364   02 00F45    35F00F78              STW,15   T52INTS2          LOAD TIO STATUS
     5365   02 00F46    32F01EF4              LW,15    =X'EFFFC002'      LOAD AND STORE
     5366   02 00F47    35F00F72              STW,15   T52INTS1-1        MASK
     5367   02 00F48    6AF01DCA              BAL,15   PUNCH             PUNCH A CARD
     5368   02 00F49    68000F4E              B        T52M02            - SUCCESSFUL
     5369   02 00F4A    6AF018D1              BAL,15   :INTD             DISARM IO INTERRUPTS
     5370   02 00F4B    EAF0021B A            BAL,15   *:ERROR
     5371   02 00F4C    00001451 A            DATA     5201              *** ERROR 5201 ***
     5372   02 00F4D    68000F52              B        T52M03            GO TEST SENSE SWITCHES
     5373   02 00F4E    31101D65     T52M02   CW,1     TST1ERF           HAS ERROR OCCURRED ?
     5374   02 00F4F    6930039D              BNE      POP               B: NO - RETURN
     5375   02 00F50    EAF0021B A            BAL,15   *:ERROR
     5376   02 00F51    00001452 A            DATA     5202              *** ERROR 5202 ***
     5377   02 00F52    EAF0021D A   T52M03   BAL,15   *:SENSE           GO TEST SENSE SWITCHES
     5378   02 00F53    2E000F53              WAIT     %                 SSW 3 RESET - WAIT
     5379   02 00F54    68000F40              B        T52M01            SSW 1 SET   - LOOP ON ERROR
     5380   02 00F55    6800039D              B        POP               SSW 1 RESET - RETURN
     5381                            *
     5382                            T52MSG   TEXTC    'CLEAR ALL CARDS FROM THE PUNCH
';                *A01
     5383   02 00F56    46C3D3C5 A                     ,'LOAD ANY PREPUNCHED DECK INTO THE PUNCH'        *A01
            02 00F57    C1D940C1 A
            02 00F58    D3D340C3 A
            02 00F59    C1D9C4E2 A
            02 00F5A    40C6D9D6 A
            02 00F5B    D440E3C8 A
            02 00F5C    C540D7E4 A
            02 00F5D    D5C3C815 A
            02 00F5E    D3D6C1C4 A
            02 00F5F    40C1D5E8 A
            02 00F60    40D7D9C5 A
            02 00F61    D7E4D5C3 A
            02 00F62    C8C5C440 A
            02 00F63    C4C5C3D2 A
            02 00F64    40C9D5E3 A
            02 00F65    D640E3C8 A
            02 00F66    C540D7E4 A
            02 00F67    D5C3C840 A
     5384   02 00F68    0F000F6A     T52XPSD  XPSD,0   T52PSD
     5385                                     BOUND    8
     5386   02 00F6A    00000000 A   T52PSD   DATA     0,0
            02 00F6B    00000000 A
     5387   02 00F6C    00000F6E              DATA     T52INT,0
            02 00F6D    00000000 A
     5388                            *
     5389   02 00F6E    02200000 A   T52INT   LCI      0                 SAVE REG. 0-15  IN PUBLIC
     5390   02 00F6F    0B001E4A              PSM,0    PSTACK              'PUSH-DOWN' STACK
     5391   02 00F70    35201D65              STW,2    TST1ERF           RESET ERROR FLAG
     5392   02 00F71    6AF015F9              BAL,15   :AIO              ISSUE AN AIO
     5393   02 00F72    EFFFC002 A            DATA     X'EFFFC002'       MASK
     5394   02 00F73    00000000 A   T52INTS1 DATA     0                 EXP STATUS
     5395   02 00F74    68000F76              B        %+2               B: NO ERRORS
     5396   02 00F75    35101D65              STW,1    TST1ERF           SET TST1 ERROR FLAG
     5397   02 00F76    6AF015EA              BAL,15   :TIO              ISSUE A TIO
     5398   02 00F77    EFFF8000 A            DATA     X'EFFF8000'       MASK                            *A02
     5399   02 00F78    00000000 A   T52INTS2 DATA     0                 EXP STATUS
     5400   02 00F79    68000F7B              B        %+2               B: NO ERRORS
     5401   02 00F7A    35101D65              STW,1    TST1ERF           SET TST1 ERROR FLAG
     5402   02 00F7B    35101764              STW,1    :INTRECF          SET INTERRUPT RECEIVED FLAG
     5403   02 00F7C    02200000 A            LCI      0
     5404   02 00F7D    0A001E4A              PLM,0    PSTACK            RESTORE REG. 0-15  FROM STACK
     5405   02 00F7E    0E200F6A              LPSD,2   T52PSD            EXIT
     5406   02 00F7F    07E3C9D4 A   TIMEOUT  TEXTC    'TIMEOUT'
            02 00F80    C5D6E4E3 A
1 C00   19:34 JUN 20,'83    T-SERIES COMPREHENSIVE CARD EQUIPMENT DIAGNOSTIC 960-00XX-1B          PAGE    4
A    5408                            *
     5409                            * IOCD'S USED BY FUNCTIONAL TESTS
     5410                            *
     5411   02 00F81    00001F74              DATA     BUFFER            PUNCH BUFFER
     5412   02 00F82    00001F96              DATA     BUFFER1           EXPECTED BUFFER
     5413   02 00F83    00001FEA              DATA     BUFFER2           READ BUFFER
     5414                            *
     5415                                     BOUND    8
     5416   02 00F84    00007DD0     IOCD1    GEN,8,24 0,BA(BUFFER)      VARIABLE ORDER,PUNCH BUFFER
     5417   02 00F85    01000001 A            GEN,8,24 X'01',1           SKIP
     5418   02 00F86    13007324     IOCD2    GEN,8,24 X'13',BA(TMBYTE)  SELECT TEST MODE
     5419   02 00F87    00000001 A            GEN,8,24 0,1               VARIABLE FLAGS
     5420   02 00F88    02007324     IOCD3    GEN,8,24 X'02',BA(TMBYTE)  INVALID ORDER
     5421   02 00F89    04000001 A            GEN,8,24 X'04',1           IUE
     5422   02 00F8A    13007324     IOCD4    GEN,8,24 X'13',BA(TMBYTE)  VARIABLE ORDER
     5423   02 00F8B    00000001 A            GEN,8,24 0,1               VARIABLE FLAGS
     5424   02 00F8C    13007324     IOCD5    GEN,8,24 X'13',BA(TMBYTE)  VARIABLE ORDER
     5425   02 00F8D    20000001 A            GEN,8,24 X'20',1           CC
     5426   02 00F8E    13007328              GEN,8,24 X'13',BA(TMBYTER) RESET TEST MODE
     5427   02 00F8F    00000001 A            GEN,8,24 0,1
     5428   02 00F90    01007DD0     IOCD6    GEN,8,24 X'01',BA(BUFFER)  BINARY
     5429   02 00F91    00000001 A            GEN,8,24 0,1               BYTE COUNT =1
     5430   02 00F92    01007DD0     IOCD7    GEN,8,24 X'01',BA(BUFFER)  BINARY
     5431   02 00F93    00000078 A            GEN,8,24 0,120             BYTE COUNT = 120
     5432   02 00F94    05007DD0     IOCD8    GEN,8,24 X'05',BA(BUFFER)  EBCDIC
     5433   02 00F95    00000001 A            GEN,8,24 0,1               BYTE COUNT = 1
     5434   02 00F96    01007DD0     IOCD9    GEN,8,24 X'01',BA(BUFFER)  BINARY
     5435   02 00F97    00000000 A            GEN,8,24 0,0               VARIABLE BYTE COUNT
     5436   02 00F98    01007DD0     IOCD10   GEN,8,24 X'01',BA(BUFFER)  BINARY
     5437   02 00F99    01000078 A            GEN,8,24 X'01',120         SKIP FLAG,BYTE COUNT =120
     5438   02 00F9A    05007DD0     IOCD11   GEN,8,24 X'05',BA(BUFFER)  EBCDIC
     5439   02 00F9B    10000050 A            GEN,8,24 X'10',80          ICE FLAG, BYTE COUNT = 80
     5440   02 00F9C    00007DD0     IOCD12   GEN,8,24 X'00',BA(BUFFER)  VARIABLE ORDER
     5441   02 00F9D    10000000 A            GEN,8,24 X'10',0           ICE, VARIABLE BYTE COUNT
     5442   02 00F9E    04007FA8     IOCD13   GEN,8,24 X'04',BA(BUFFER2)  SENSE
     5443   02 00F9F    00000000 A            GEN,8,24 0,0               VARIABLE BYTE COUNT
     5444   02 00FA0    05007DD0     IOCD14   GEN,8,24 X'05',BA(BUFFER)  EBCDIC
     5445   02 00FA1    00000050 A            GEN,8,24 0,80              BYTE COUNT = 80
     5446   02 00FA2    04007FA7     IOCD15   GEN,8,24 X'04',BA(BUFFER2)-1 SENSE
     5447   02 00FA3    00000051 A            GEN,8,24 0,81              BYTE COUNT = 81
     5448   02 00FA4    05007DD0     IOCD16   GEN,8,24 X'05',BA(BUFFER) EBDCIC
     5449   02 00FA5    20000050 A            GEN,8,24 X'20',80          CC
     5450   02 00FA6    080007D2              GEN,8,24 X'08',DA(IOCD16)  TIC
     5451   02 00FA7    00000000 A            GEN,32   0
     5452   02 00FA8    00000000 A            GEN,8,24 0,0               STOP
     5453   02 00FA9    00000000 A            GEN,8,24 0,0
     5454   02 00FAA    01007DD0     IOCD17   GEN,8,24 X'01',BA(BUFFER)  BINARY
     5455   02 00FAB    20000078 A            GEN,8,24 X'20',120         CC
     5456   02 00FAC    080007D5              GEN,8,24 X'08',DA(IOCD17)  TIC
     5457   02 00FAD    00000000 A            GEN,32   0
     5458   02 00FAE    00000000 A            GEN,8,24 0,0               STOP
     5459   02 00FAF    00000000 A            GEN,8,24 0,0
     5460   02 00FB0    01007DD0     IOCD18   GEN,8,24 X'01',BA(BUFFER)  BINARY
     5461   02 00FB1    2C000078 A            GEN,8,24 X'2C',120         CC
     5462   02 00FB2    080007D8              GEN,8,24 X'08',DA(IOCD18)  TIC
     5463   02 00FB3    00000000 A            GEN,8,24 0,0
     5464   02 00FB4    80000000 A            GEN,8,24 X'80',0           STOP AND INTERRUPT
     5465   02 00FB5    00000000 A            GEN,8,24 0,0
     5466   02 00FB6    05007DD0     IOCD19   GEN,8,24 X'05',BA(BUFFER)  EBCDIC
     5467   02 00FB7    2C000050 A            GEN,8,24 X'2C',80          CC
     5468   02 00FB8    080007DB              GEN,8,24 X'08',DA(IOCD19)  TIC
     5469   02 00FB9    00000000 A            GEN,8,24 0,0
     5470   02 00FBA    80000000 A            GEN,8,24 X'80',0           STOP AND INTERRUPT
     5471   02 00FBB    00000000 A            GEN,8,24 0,0
     5472   02 00FBC    06007FA8     IOCD20   GEN,8,24 X'06',BA(BUFFER2)
     5473   02 00FBD    00000050 A            GEN,8,24 0,80
     5474   02 00FBE    02007FA8     IOCD21   GEN,8,24 X'02',BA(BUFFER2)
     5475   02 00FBF    00000078 A            GEN,8,24 0,120
     5476   02 00FC0    80000000 A   IOCD22   GEN,8,24 X'80',0           STOP AND INTERRUPT
     5477   02 00FC1    00000001 A            GEN,8,24 0,1
     5478         02 00FC2           IOCD23   EQU      %
     5479         0000000B                    DO       11
     5480   02 00FC2    05007DD0              GEN,8,24 X'05',BA(BUFFER)
     5481   02 00FC3    20000050 A            GEN,8,24 X'20',80
     5482                                     FIN
            02 00FC4    05007DD0
            02 00FC5    20000050 A
            02 00FC6    05007DD0
            02 00FC7    20000050 A
            02 00FC8    05007DD0
            02 00FC9    20000050 A
            02 00FCA    05007DD0
            02 00FCB    20000050 A
            02 00FCC    05007DD0
            02 00FCD    20000050 A
            02 00FCE    05007DD0
            02 00FCF    20000050 A
            02 00FD0    05007DD0
            02 00FD1    20000050 A
            02 00FD2    05007DD0
            02 00FD3    20000050 A
            02 00FD4    05007DD0
            02 00FD5    20000050 A
            02 00FD6    05007DD0
            02 00FD7    20000050 A
     5483   02 00FD8    05007DD0              GEN,8,24 X'05',BA(BUFFER)
     5484   02 00FD9    80000028 A            GEN,8,24 X'80',40
     5485   02 00FDA    080007EE              GEN,8,24 X'08',DA(%+2)     TIC TO TIC
     5486   02 00FDB    00000000 A            GEN,8,24 0,0
     5487   02 00FDC    080007ED              GEN,8,24 X'08',DA(%-2)
     5488   02 00FDD    00000000 A            GEN,8,24 0,0
     5489   02 00FDE    02007DD0     IOCD24   GEN,8,24 X'02',BA(BUFFER)  ILLEGAL ORDER - 7160-1 PUNCH
     5490   02 00FDF    24000078 A            GEN,8,24 X'24',120         CC, IUE
     5491   02 00FE0    080007EF              GEN,8,24 X'08',DA(IOCD24)  TIC
     5492   02 00FE1    00000000 A            GEN,8,24 0,0
     5493   02 00FE2    80000000 A            GEN,8,24 X'80',0           STOP AND INTERRUPT
     5494   02 00FE3    00000000 A            GEN,8,24 0,0
     5495   02 00FE4    00007DD0     IOCD25   GEN,8,24 X'00',BA(BUFFER)  ILLEGAL ORDER - PUNCH/READER
     5496   02 00FE5    04000078 A            GEN,8,24 X'04',120         IUE
     5497   02 00FE6    00007DD0     IOCD26   GEN,8,24 X'00',BA(BUFFER)  ILLEGAL ORDER - PUNCH/READER
     5498   02 00FE7    10000078 A            GEN,8,24 X'10',120         ICE
     5499   02 00FE8    00007DD0     IOCD27   GEN,8,24 X'00',BA(BUFFER)
     5500   02 00FE9    00000000 A            GEN,8,24 0,0
     5501   02 00FEA    00007FA8     IOCD28   GEN,8,24 0,BA(BUFFER2)
     5502   02 00FEB    00000078 A            GEN,8,24 0,120
     5503   02 00FEC    00007FA8     IOCD29   GEN,8,24 0,BA(BUFFER2)
     5504   02 00FED    00000050 A            GEN,8,24 0,80
     5505   02 00FEE    01007DD0     IOCD30   GEN,8,24 X'01',BA(BUFFER)
     5506   02 00FEF    28000078 A            GEN,8,24 X'28',120         CC & HTE
     5507   02 00FF0    080007F7              GEN,8,24 X'08',DA(IOCD30)  TIC
     5508   02 00FF1    00000000 A            GEN,8,24 0,0
     5509   02 00FF2    00000000 A            GEN,8,24 0,0               STOP
     5510   02 00FF3    00000000 A            GEN,8,24 0,0
     5511   02 00FF4    01007DD0     IOCD31   GEN,8,24 X'01',BA(BUFFER)
     5512   02 00FF5    08000078 A            GEN,8,24 X'08',120         HTE
     5513   02 00FF6    06007FA8     IOCD32   GEN,8,24 X'06',BA(BUFFER2)
     5514   02 00FF7    08000078 A            GEN,8,24 X'08',120         HTE
     5515   02 00FF8    01007DD0     IOCD33   GEN,8,24 X'01',BA(BUFFER)
     5516   02 00FF9    24000078 A            GEN,8,24 X'24',120         CC,IUE
     5517   02 00FFA    080007FC              GEN,8,24 X'08',DA(IOCD33)  TIC
     5518   02 00FFB    00000000 A            GEN,8,24 0,0
     5519   02 00FFC    00000000 A            GEN,8,24 0,0               STOP
     5520   02 00FFD    10000000 A            GEN,8,24 X'10',0           ICE
     5521   02 00FFE    01007DD0     IOCD34   GEN,8,24 X'01',BA(BUFFER)
     5522   02 00FFF    60000078 A            GEN,8,24 X'60',120         CC,IZC
     5523   02 01000    080007FF              GEN,8,24 X'08',DA(IOCD34)  TIC
     5524   02 01001    00000000 A            GEN,8,24 0,0
     5525   02 01002    00000000 A            GEN,8,24 0,0               STOP
     5526   02 01003    00000000 A            GEN,8,24 0,0
     5527   02 01004    01007DD0     IOCD35   GEN,8,24 X'01',BA(BUFFER)
     5528   02 01005    3C000078 A            GEN,8,24 X'3C',120         CC,IUE,HTE,ICE
     5529   02 01006    08000802              GEN,8,24 X'08',DA(IOCD35)  TIC
     5530   02 01007    00000000 A            GEN,8,24 0,0
     5531   02 01008    08000802              GEN,8,24 X'08',DA(IOCD35)  TIC
     5532   02 01009    00000000 A            GEN,8,24 0,0
     5533   02 0100A    00007DD0              GEN,8,24 0,BA(BUFFER)
     5534   02 0100B    1C000000 A            GEN,8,24 X'1C',0           ICE,IUE,HTE
     5535   02 0100C    01007DD0     IOCD36   GEN,8,24 X'01',BA(BUFFER)
     5536   02 0100D    24000078 A            GEN,8,24 X'24',120         CC,IUE
     5537   02 0100E    01007DD0              GEN,8,24 X'01',BA(BUFFER)
     5538   02 0100F    24000078 A            GEN,8,24 X'24',120         CC,IUE
     5539   02 01010    01007DD0              GEN,8,24 X'01',BA(BUFFER)
     5540   02 01011    24000078 A            GEN,8,24 X'24',120
     5541   02 01012    01007DD0              GEN,8,24 X'01',BA(BUFFER)
     5542   02 01013    24000078 A            GEN,8,24 X'24',120         CC,IUE
     5543   02 01014    01007DD0              GEN,8,24 X'01',BA(BUFFER)
     5544   02 01015    24000078 A            GEN,8,24 X'24',120         CC,IUE
     5545   02 01016    01007DD0              GEN,8,24 X'01',BA(BUFFER)
     5546   02 01017    24000078 A            GEN,8,24 X'24',120         CC,IUE
     5547   02 01018    01007DD0              GEN,8,24 X'01',BA(BUFFER)
     5548   02 01019    24000078 A            GEN,8,24 X'24',120         CC,IUE
     5549   02 0101A    01007DD0              GEN,8,24 X'01',BA(BUFFER)
     5550   02 0101B    24000078 A            GEN,8,24 X'24',120         CC,IUE
     5551   02 0101C    01007DD0              GEN,8,24 X'01',BA(BUFFER)
     5552   02 0101D    24000078 A            GEN,8,24 X'24',120         CC,IUE
     5553   02 0101E    01007DD0     IOCD36S  GEN,8,24 X'01',BA(BUFFER)
     5554   02 0101F    14000078 A            GEN,8,24 X'14',120         IUE,ICE
     5555   02 01020    02007FA8     IOCD37   GEN,8,24 X'02',BA(BUFFER2)
     5556   02 01021    24000078 A            GEN,8,24 X'24',120         CC,IUE
     5557   02 01022    02007FA8              GEN,8,24 X'02',BA(BUFFER2)
     5558   02 01023    24000078 A            GEN,8,24 X'24',120         CC,IUE
     5559   02 01024    02007FA8              GEN,8,24 X'02',BA(BUFFER2)
     5560   02 01025    24000078 A            GEN,8,24 X'24',120         CC,IUE
     5561   02 01026    02007FA8              GEN,8,24 X'02',BA(BUFFER2)
     5562   02 01027    24000078 A            GEN,8,24 X'24',120         CC,IUE
     5563   02 01028    02007FA8              GEN,8,24 X'02',BA(BUFFER2)
     5564   02 01029    24000078 A            GEN,8,24 X'24',120         CC,IUE
     5565   02 0102A    02007FA8              GEN,8,24 X'02',BA(BUFFER2)
     5566   02 0102B    24000078 A            GEN,8,24 X'24',120         CC,IUE
     5567   02 0102C    02007FA8              GEN,8,24 X'02',BA(BUFFER2)
     5568   02 0102D    24000078 A            GEN,8,24 X'24',120         CC,IUE
     5569   02 0102E    02007FA8              GEN,8,24 X'02',BA(BUFFER2)
     5570   02 0102F    24000078 A            GEN,8,24 X'24',120         CC,IUE
     5571   02 01030    02007FA8              GEN,8,24 X'02',BA(BUFFER2)
     5572   02 01031    24000078 A            GEN,8,24 X'24',120         CC,IUE
     5573   02 01032    02007FA8              GEN,8,24 X'02',BA(BUFFER2)
     5574   02 01033    24000078 A            GEN,8,24 X'24',120         CC,IUE
     5575   02 01034    02007FA8              GEN,8,24 X'02',BA(BUFFER2)
     5576   02 01035    24000078 A            GEN,8,24 X'24',120         CC,IUE
     5577   02 01036    02007FA8              GEN,8,24 X'02',BA(BUFFER2)
     5578   02 01037    14000078 A            GEN,8,24 X'14',120         IUE,ICE
     5579   02 01038    09007DD0     IOCD38   GEN,8,24 X'09',BA(BUFFER)  MODEL 7165 STD BINARY ORDER
     5580   02 01039    1C000078 A            GEN,8,24 X'1C',120         ICE,IUE,HTE
     5581   02 0103A    02007DD0     IOCD39   GEN,8,24 X'02',BA(BUFFER)
     5582   02 0103B    14000000 A            GEN,8,24 X'14',0           ICE,IUE
     5583   02 0103C    05007DD0     IOCD40   GEN,8,24 X'05',BA(BUFFER)  EBCDIC
     5584   02 0103D    1C000050 A            GEN,8,24 X'1C',80          ICE,IUE,HTE
     5585   02 0103E    01007DD0     IOCD41   GEN,8,24 X'01',BA(BUFFER)  BINARY
     5586   02 0103F    1C000078 A            GEN,8,24 X'1C',120         ICE,IUE,HTE
     5587   02 01040    02007FA8     IOCD42   GEN,8,24 X'02',BA(BUFFER2)                                 *A03
     5588   02 01041    0C000078 A            GEN,8,24 X'0C',120         IUE,HTE
     5589   02 01042    01007DD0     IOCD43   GEN,8,24 X'01',BA(BUFFER)
     5590   02 01043    00000078 A            GEN,8,24 0,120
     5591   02 01044    09007DD0     IOCD44   GEN,8,24 X'09',BA(BUFFER)
     5592   02 01045    24000078 A            GEN,8,24 X'24',120         CC,IUE
     5593   02 01046    08000822              GEN,8,24 X'08',DA(IOCD44)
     5594   02 01047    00000000 A            GEN,8,24 0,0
     5595   02 01048    09007DD0              GEN,8,24 X'09',BA(BUFFER)
     5596   02 01049    24000078 A            GEN,8,24 X'24',120         CC,IUE
     5597   02 0104A    08000824              GEN,8,24 X'08',DA(IOCD44+4)
     5598   02 0104B    00000000 A            GEN,8,24 0,0
     5599   02 0104C    00000000 A            GEN,8,24 0,0               STOP
     5600   02 0104D    00000000 A            GEN,8,24 0,0
     5601   02 0104E    0E007FA8     IOCD45   GEN,8,24 X'0E',BA(BUFFER2)
     5602   02 0104F    14000050 A            GEN,8,24 X'14',80          ICE,IUE
     5603   02 01050    06007FA8     IOCD50   GEN,8,24 X'06',BA(BUFFER2)                                 *A03
     5604   02 01051    14000050 A            GEN,8,24 X'14',80                                          *A03
     5605   02 01052    00007FA8     READIOCD GEN,8,24 0,BA(BUFFER2)
     5606   02 01053    1C000078 A            GEN,8,24 X'1C',120
     5607                            *
     5608                            *
     5609                            * DELAY TIMES FOR FUNCTIONAL TEST
     5610                            *
     5611   02 01054    00000100 A   DTM      DATA     X'00000100'       PUNCH (220 MSEC)                *A01
     5612   02 01055    00000110 A   DTMP     DATA     X'00000110'       PUNCH - 183 MSEC (ROW 15 TIME)  *A01
     5613   02 01056    00002475 A   DTMRT    DATA     9333              ROW TIME (14.0 MSEC)
     5614   02 01057    000001F4 A   DTMM     DATA     500               PUNCH (500 MSEC)
     5615   02 01058    00000021 A   DELYTM   DATA     33
     5616   02 01059    00040000 A   DELYTMS  DATA     X'00040000'       SELECT TM (300 MSEC)            *A01
     5617                            *
     5618                            * COMMON TST1 CONTSTANTS
     5619                            *
     5620   02 0105A    00000000 A   TST1EXP  DATA     0
     5621   02 0105B    40404040 A   EBLANK   DATA     X'40404040'       EBCDIC BLANK
     5622   02 0105C    7FFFFFFF A   MAXPOS   DATA     X'7FFFFFFF'       MAX POSITIVE CONSTANT
     5623                            *
     5624                            *                 SET UP PUNCH IOCD'S.
     5625                            *
     5626   02 0105D    09F01E4A     TST1R1   PSW,15   PSTACK            SAVE RETURN ADDRESS IN STACK
     5627   02 0105E    22F01BF8 A            LI,15    7160
     5628   02 0105F    31F00338              CW,15    PUNCHMOD          IS THIS A MODEL 7160 PUNCH ?
     5629   02 01060    69301067              BNE      %+7               B: NO
     5630   02 01061    32F0106C              LW,15    TST1R117          SET UP
     5631   02 01062    35F00FAC              STW,15   IOCD17+2            IOCD17
     5632   02 01063    32F0106D              LW,15    TST1R118          SET UP
     5633   02 01064    35F00FB2              STW,15   IOCD18+2            IOCD18
     5634   02 01065    32F0106E              LW,15    TST1R119          SET UP
     5635   02 01066    6800106A              B        %+4
     5636   02 01067    22F00000 A            LI,15    X'00'             SET R15 = X'00000000'
     5637   02 01068    35F00FAC              STW,15   IOCD17+2          SET UP IOCD17
     5638   02 01069    35F00FB2              STW,15   IOCD18+2          SET UP IOCD18
     5639   02 0106A    35F00FB8              STW,15   IOCD19+2          SET UP IOCD19
     5640   02 0106B    6800039D              B        POP               RETURN
     5641                            *
     5642   02 0106C    080007D5     TST1R117 GEN,8,24 X'08',DA(IOCD17)
     5643   02 0106D    080007D8     TST1R118 GEN,8,24 X'08',DA(IOCD18)
     5644   02 0106E    080007DB     TST1R119 GEN,8,24 X'08',DA(IOCD19)
     5645                            *
     5646                            *                 TEST FOR DEVICE TYPE.
     5647                            *
     5648                            *        CALLING SEQUENCE:
     5649                            *
     5650                            *        BAL,15   DEVTEST           TEST FOR DEVICE TYPE
     5651                            *        ----     ----              CARD READER
     5652                            *        ----     ----              MODEL 7165
     5653                            *        ----     ----              MODEL 7160-1
     5654                            *        ----     ----              MODEL 7160-2
     5655                            *
     5656   02 0106F    35F01079     DEVTEST  STW,15   DEVTESTR          SAVE RETURN ADDRESS
     5657   02 01070    32F0172A              LW,15    :DEVADDR
     5658   02 01071    31F0033D              CW,15    READRADR          IS THIS A CARD READER
     5659   02 01072    E8301079              BE       *DEVTESTR         B: CARD READER
     5660   02 01073    22F01BF8 A            LI,15    7160
     5661   02 01074    31F00338              CW,15    PUNCHMOD          IS THIS A 7160 CARD PUNCH
     5662   02 01075    E9321079              BNE      *DEVTESTR,1       B: MODEL 7165
     5663   02 01076    31200339              CW,2     PUNCHREV          IS THIS A 7160-2
     5664   02 01077    E9341079              BNE      *DEVTESTR,2       B: MODEL 7160-1
     5665   02 01078    E8061079              B        *DEVTESTR,3       B: MODEL 7160-2
     5666   02 01079    00000000 A   DEVTESTR DATA     0                 RETURN ADDRESS STORAGE
     5667                            *
     5668                            *                 CLEAR BUFFERS
     5669                            *
     5670   02 0107A    02200000 A   CLRBUF   LCI      0                 SAVE REG. 0-15 IN PUBLIC
     5671   02 0107B    0B001E4A              PSM,0    PSTACK              'PUSH-DOWN' STACK
     5672   02 0107C    22E01F74              LI,14    BUFFER            LOAD STARTING ADDRESS
     5673   02 0107D    68001081              B        CLRBUF2+3
     5674   02 0107E    02200000 A   CLRBUF2  LCI      0                 SAVE REG. 0-15 IN PUBLIC
     5675   02 0107F    0B001E4A              PSM,0    PSTACK              'PUSH-DOWN' STACK
     5676   02 01080    22E01FEA              LI,14    BUFFER2           LOAD STARTING ADDRESS
     5677   02 01081    22000000 A            LI,0     0
     5678   02 01082    22500000 A            LI,5     0
     5679   02 01083    B50A000E A            STW,0    *14,5             STORE ZERO
     5680   02 01084    20500001 A            AI,5     1
     5681   02 01085    2150001E A            CI,5     30
     5682   02 01086    68201083              BLE      %-3
     5683   02 01087    02200000 A   POP15    LCI      0
     5684   02 01088    0A001E4A              PLM,0    PSTACK            RESTORE REG. 0-15
     5685   02 01089    E800000F A            B        *15               RETURN
     5686   02 0108A    22800000 A   CKZBUF2  LI,8     0
     5687   02 0108B    2270001F A            LI,7     31
     5688   02 0108C    318E1FE9              CW,8     BUFFER2-1,7       TEST FOR ZERO
     5689   02 0108D    69301090              BNE      %+3               B: NOT ZERO
     5690   02 0108E    6470108C              BDR,7    %-2               B: NOT DONE YET
     5691   02 0108F    E800000F A            B        *15               RETURN
     5692   02 01090    E802000F A            B        *15,1             TAKE ERROR RETURN
     5693                            *
     5694                            *                 EBKBUF - SET (BUFFER) TO X'40404040'
     5695                            *
     5696   02 01091    02200000 A   EBKBUF   LCI      0                 SAVE REG. 0-15 IN PUBLIC
     5697   02 01092    0B001E4A              PSM,0    PSTACK              'PUSH-DOWN' STACK
     5698   02 01093    22500014 A            LI,5     20
     5699   02 01094    3260105B              LW,6     EBLANK            R6 = X'40404040'
     5700   02 01095    356A1F73              STW,6    BUFFER-1,5        STORE IN (BUFFER)
     5701   02 01096    64501095              BDR,5    %-1               B: NOT DONE YET
     5702   02 01097    68001087              B        POP15             RETURN
     5703                            *
     5704   02 01098    02200000 A   BUFMOVE2 LCI      0                 SAVE REG. 0-15 IN PUBLIC
     5705   02 01099    0B001E4A              PSM,0    PSTACK              'PUSH-DOWN' STACK
     5706   02 0109A    22E01F74              LI,14    BUFFER
     5707   02 0109B    22D01FEA              LI,13    BUFFER2
     5708                            *
     5709   02 0109C    22500000 A   BUFMOVES LI,5     0                 SET R5 = 0
     5710   02 0109D    B2FA000E A            LW,15    *14,5             MOVE DATA
     5711   02 0109E    B5FA000D A            STW,15   *13,5               TO NEW BUFFER AREA
     5712   02 0109F    20500001 A            AI,5     1
     5713   02 010A0    2150001E A            CI,5     30
     5714   02 010A1    6910109D              BL       %-4
     5715   02 010A2    68001087              B        POP15             RETURN
     5716                            *
     5717   02 010A3    02200000 A   BUFMOVE1 LCI      0                 SAVE REG. 0-15 IN PUBLIC
     5718   02 010A4    0B001E4A              PSM,0    PSTACK              'PUSH-DOWN' STACK
     5719   02 010A5    22E01F74              LI,14    BUFFER
     5720   02 010A6    22D01F96              LI,13    BUFFER1
     5721   02 010A7    6800109C              B        BUFMOVES          GO MOVE DATA
     5722                            *
     5723                            *                                                                      *
     5724                            *             *** TST2 - RANDOM EXERCISER ***                          *
     5725                            *                                                                      *
     5726                            * THIS DIRECTIVE ALLOWS THE USER TO RANDOMLY EXERCISE THE CARD PUNCH.  *
     5727                            *                                                                      *
     5728                            *   P1 = NUMBER OF CARDS TO BE PUNCHED                                 *
     5729                            *         (0 <= P1 < 32,768)                                           *
     5730                            *                                                                      *
     5731                            *   P2 = RETRY COUNT                                                   *
     5732                            *         (0 <= P2 <= 99)                                              *
     5733                            *                                                                      *
     5734                            * P1 ALLOWS THE USER TO PUNCH A SPECIFIED NUMBER OF CARDS.             *
     5735                            *                                                                      *
     5736                            * P2 SPECIFIES THE NUMBER OF PUNCH RETRIES                             *
     5737                            *                                                                      *
     5738                            * TEST VARIATIONS                                                      *
     5739                            * ---------------                                                      *
     5740                            *                                                                      *
     5741                            *  LIMT: THE LIMIT DIRECTIVE LIMITS THE RANGE OF RANDOM DELAYS         *
     5742                            *        INTRODUCED BETWEEN SUCCESSIVE PUNCH OPERATIONS.               *
     5743                            *                                                                      *
     5744   02 010A8    352003B9     TST2     STW,2    TSTFLAG           SET TEST FLAG TO TST2
     5745   02 010A9    3510122E     TST2ALT  STW,1    PHERE             SET PUNCH HERE FLAG
     5746   02 010AA    3510122F              STW,1    RHERE             SET READER HERE FLAG
     5747   02 010AB    35201230              STW,2    PUNCHCF           RESET PUNCH COMPLETION FLAG
     5748   02 010AC    35201231              STW,2    PBUSY             RESET PUNCH BUSY FLAG
     5749   02 010AD    35201232              STW,2    RBUSY             RESET READER BUSY FLAG
     5750   02 010AE    35201235              STW,2    RPRMAN            RESET READER MANUAL FLAG
     5751   02 010AF    35201236              STW,2    RPPMAN            RESET PUNCH MANUAL FLAG
     5752   02 010B0    22000000 A            LI,0     0                                                 *A01
     5753   02 010B1    35001237              STW,0    ECARDNO           RESET ERROR CARD SEQUENCE NO.   *A01
     5754   02 010B2    35001229              STW,0    T2PCOUNT          ZERO PUNCH COUNT                *A01
     5755   02 010B3    32F01EA3              LW,15    KM1               R15 = -1
     5756   02 010B4    31F0033A              CW,15    PUNCHADR          IS THERE A PUNCH
     5757   02 010B5    693010BB              BNE      %+6               B: YES
     5758   02 010B6    EAF00223 A            BAL,15   *:TYPRINT         PRINT:                          *A01
     5759   02 010B7    00001278              DATA     T2MSG8              'NO PUNCH DEFINED'
     5760   02 010B8    3520122E              STW,2    PHERE             RESET PUNCH HERE FLAG
     5761   02 010B9    35101230              STW,1    PUNCHCF           SET PUNCH COMPLETION FLAG
     5762   02 010BA    680010C0              B        %+6               GO TEST READER
     5763   02 010BB    CDC0033A              TIO,12   *PUNCHADR         ISSUE TIO TO PUNCH
     5764   02 010BC    688010C0              BCR,8    %+4               B: VALID ADDRESS
     5765   02 010BD    EAF00223 A            BAL,15   *:TYPRINT         PRINT:                          *A01
     5766   02 010BE    00001282              DATA     T2MSG10             'PUNCH - NO ADDR REC'
     5767   02 010BF    E8000214 A            B        *:MONITOR         RETURN TO MONITOR
     5768   02 010C0    32F01EA3              LW,15    KM1               R15 = -1
     5769   02 010C1    31F0033D              CW,15    READRADR          IS THERE A READER
     5770   02 010C2    693010C7              BNE      %+5               B: YES
     5771   02 010C3    EAF00223 A            BAL,15   *:TYPRINT         PRINT:                          *A01
     5772   02 010C4    0000127D              DATA     T2MSG9              'NO READER DEFINED'
     5773   02 010C5    3520122F              STW,2    RHERE             RESET READER HERE FLAG
     5774   02 010C6    680010CC              B        %+6
     5775   02 010C7    CDC0033D              TIO,12   *READRADR         ISSUE TIO TO THE READER
     5776   02 010C8    688010CC              BCR,8    %+4               B: VALID ADDRESS
     5777   02 010C9    EAF00223 A            BAL,15   *:TYPRINT         PRINT:                          *A01
     5778   02 010CA    00001287              DATA     T2MSG11             'READER - NO ADDR REC'
     5779   02 010CB    E8000214 A            B        *:MONITOR         RETURN TO MONITOR
     5780                            *
     5781   02 010CC    32400201 A            LW,4     :P1
     5782   02 010CD    21408000 A            CI,4     32768             TEST FOR MAX NUMBER OF CARDS
     5783   02 010CE    691010D1              BL       %+3               B: P1 < 32768
     5784   02 010CF    3510030A A            STW,1    :PIT10            PARAMETER P1 INVALID
     5785   02 010D0    680010D7              B        TST21             GO TO REPORT
     5786   02 010D1    20400001 A            AI,4     1
     5787   02 010D2    35401229              STW,4    T2PCOUNT          ESTABLISH PUNCH COUNT
     5788   02 010D3    32400202 A            LW,4     :P2
     5789   02 010D4    21400063 A            CI,4     99
     5790   02 010D5    682010DA              BLE      %+5
     5791   02 010D6    3520030A A            STW,2    :PIT10            PARAMETER P2 INVALID
     5792   02 010D7    EAF00229 A   TST21    BAL,15   *:PREPORT         REPORT
     5793   02 010D8    00000324              DATA     :DIC+4            'TST2'
     5794   02 010D9    E8000214 A            B        *:MONITOR         RETURN TO MONITOR
     5795   02 010DA    3540122A              STW,4    T2RTRY            ESTABLISH RETRY COUNT
     5796   02 010DB    32401238              LW,4     T2XPSD
     5797   02 010DC    3540005C A            STW,4    X'5C'             IO INTER XPSD
     5798   02 010DD    12401762              LD,4     :DELXPSD
     5799   02 010DE    3540005B A            STW,4    X'5B'             CTR4 XPSD, MTW INSTR HANDL
     5800   02 010DF    35500055 A            STW,5    X'55'
     5801   02 010E0    352018C6              STW,2    :PATID            SET PUNCH PATTERN = RANDOM
     5802   02 010E1    2240001E A            LI,4     30
     5803   02 010E2    354018C9              STW,4    :PATWC            SET PATTERN WORD COUNT = 30
     5804   02 010E3    22401F96              LI,4     BUFFER1
     5805   02 010E4    3540194B              STW,4    COMSBFRA          SET EXPECTED BUFFER ADDR
     5806   02 010E5    22501FEA              LI,5     BUFFER2
     5807   02 010E6    3550194C              STW,5    COMSBFRB          SET OBSERVED BUFFER ADDR
     5808   02 010E7    35401A05              STW,4    :CARDEXP          EXP BUFFER
     5809   02 010E8    35501A06              STW,5    :CARDOBS          OBS BUFFER
     5810   02 010E9    22400000 A            LI,4     0
     5811   02 010EA    35401A07              STW,4    :CARDBF           RESET DISPLAY BINARY FORCE FLAG
     5812   02 010EB    35201BEA              STW,2    ITHTEST           TST2
     5813   02 010EC    22401BD6              LI,4     ITHDLR            HANDLER ADDRESS
     5814   02 010ED    3540030F A            STW,4    :PIT15            SAVE
     5815   02 010EE    224010A9              LI,4     TST2ALT
     5816   02 010EF    35401BEC              STW,4    ITHRST            RESTART ADDRESS
     5817   02 010F0    6AF018CB              BAL,15   :INTAE            ARM/ENABLE IO INTERRUPT
     5818   02 010F1    680010F9              B        T2EXEC            EXECUTE TST2
     5819   02 010F2    6AF018D1     TST22    BAL,15   :INTD             DISARM IO INTERRUPT
     5820   02 010F3    312003B9              CW,2     TSTFLAG           TEST FOR 'TST2' DIR
     5821   02 010F4    693003B5              BNE      TST0B             NOT TST2 - RETURN TO 'TST0'
     5822   02 010F5    EAF0021D A            BAL,15   *:SENSE           TEST SSW 1,3
     5823   02 010F6    2E0010F6              WAIT     %
     5824   02 010F7    680010A9              B        TST2ALT           LOOP TO TST2
     5825   02 010F8    E8000214 A            B        *:MONITOR         RETURN TO MONITOR
     5826                            *                                                                      *
     5827                            *             *** T2EXEC - EXECUTE TST2 ***                            *
     5828                            *                                                                      *
     5829                            * THIS ROUTINE CONTROLS THE EXECUTION OF THE PUNCH AND/OR CARD READER  *
     5830                            * TASKS                                                                *
     5831                            *                                                                      *
     5832   02 010F9    22500000 A   T2EXEC   LI,5     0
     5833   02 010FA    3550122B              STW,5    T2RTRYF           INITIALIZE RETRY FLAG
     5834   02 010FB    3240122A              LW,4     T2RTRY
     5835   02 010FC    3540122C              STW,4    T2RTRYI
     5836   02 010FD    3120122E     T2EX1    CW,2     PHERE             IS THERE A PUNCH
     5837   02 010FE    68301168              BE       T2EX7             B: NO - READ ONLY
     5838   02 010FF    3120122F              CW,2     RHERE             IS THERE A READER
     5839   02 01100    68301104              BE       %+4               B: NO - PUNCH ONLY
     5840   02 01101    6AF018DA              BAL,15   :RANDOMX          GENERATE RANDOM NUMBER
     5841   02 01102    31E00002 A            CW,14    2                 DECIDE: PUNCH OR READ
     5842   02 01103    69401168              BCS,4    T2EX7             READ
     5843   02 01104    31101231     T2EX9    CW,1     PBUSY             PUNCH BUSY
     5844   02 01105    69301111              BNE      T2EX90            B: NO
     5845   02 01106    33F01233              MTW,-1   PTIME             DECR PUNCH PASS COUNT
     5846   02 01107    692010FD              BCS,2    T2EX1             B: COUNT POSITIVE - LOOP
     5847   02 01108    6D000032 A            WD,0     X'32'             INHIBIT READER INTERRUPT        *A01
     5848   02 01109    EAF0021C A            BAL,15   *:PRINT           PRINT:
     5849   02 0110A    00001261              DATA     T2MSG5              'TST2 - PUNCH ERROR'
     5850   02 0110B    EAF0021C A            BAL,15   *:PRINT           PRINT:
     5851   02 0110C    00000F7F              DATA     TIMEOUT             'TIMEOUT'
     5852   02 0110D    32F0033A              LW,15    PUNCHADR
     5853   02 0110E    35F0172A              STW,15   :DEVADDR          LOAD PUNCH ADDRESS
     5854   02 0110F    35201231              STW,2    PBUSY             RESET PUNCH BUSY FLAG
     5855   02 01110    68001175              B        TIMEREC           GO ISSUE HIO AND TIO
     5856   02 01111    CDC0033A     T2EX90   TIO,12   *PUNCHADR         ISSUE TIO TO THE PUNCH
     5857   02 01112    31D01EA2              CW,13    K1000             TEST FOR PUNCH MANUAL
     5858   02 01113    6940111C              BCS,4    T2EX91            B: PUNCH AUTO
     5859   02 01114    31101236              CW,1     RPPMAN            REPORT PUNCH MANUAL
     5860   02 01115    683010FD              BE       T2EX1             B: NO - LOOP
     5861   02 01116    35101236              STW,1    RPPMAN            SET PUNCH MANUAL FLAG
     5862   02 01117    6D000032 A            WD,0     X'32'             INHIBIT READER INTERRUPT        *A01
     5863   02 01118    EAF00223 A            BAL,15   *:TYPRINT         PRINT:                          *A01
     5864   02 01119    0000128C              DATA     T2MSG12             'PUNCH MANUAL'
     5865   02 0111A    6D000022 A            WD,0     X'22'             RESET INTERRUPT INHIBIT         *A01
     5866   02 0111B    680010FD              B        T2EX1             LOOP
     5867                            *
     5868   02 0111C    35201236     T2EX91   STW,2    RPPMAN            RESET PUNCH MANUAL FLAG
     5869   02 0111D    31101230              CW,1     PUNCHCF           PUNCHING COMPLETE
     5870   02 0111E    68301163              BE       T2EX10            B: YES - GO READ
     5871   02 0111F    33F01229              MTW,-1   T2PCOUNT          DECR PUNCH COUNT
     5872   02 01120    69201123              BCS,2    %+3               B: NOT COMPLETE
     5873   02 01121    35101230              STW,1    PUNCHCF           SET PUNCH COMPLETION FLAG
     5874   02 01122    680010FD              B        T2EX1             LOOP
     5875   02 01123    6D000032 A            WD,0     X'32'             INHIBIT IO INTERRUPT
     5876   02 01124    3300122B              MTW,0    T2RTRYF           TEST RETRY FLAG
     5877   02 01125    6830112C              BEZ      T2EX4             FLAG RESET (NEW PATTERN REQ'D)
     5878   02 01126    33F0122C              MTW,-1   T2RTRYI           DECR RETRY COUNT
     5879   02 01127    68101154              BGEZ     T2EX51            BIPASS NEW PATTERN (RETRY NOT COMPL)
     5880   02 01128    22400000 A            LI,4     0
     5881   02 01129    3540122B              STW,4    T2RTRYF           RESET RETRY FLAG
     5882   02 0112A    3240122A              LW,4     T2RTRY
     5883   02 0112B    3540122C              STW,4    T2RTRYI           INITIALIZE RETRY COUNT
     5884   02 0112C    22401F74     T2EX4    LI,4     BUFFER
     5885   02 0112D    354018CA              STW,4    :PATBFR           SET PATTERN BUFFER
     5886   02 0112E    6AF018DA              BAL,15   :RANDOMX          RANDOM NUMBER
     5887   02 0112F    22400000 A            LI,4     0
     5888   02 01130    3250000E A            LW,5     14
     5889   02 01131    36401EF5              DW,4     =100              RANDOM NUMBER (MOD 100)
     5890   02 01132    21400032 A            CI,4     50                DECIDE: PUNCH EBCDIC OR BINARY
     5891   02 01133    69201138              BG       %+5               EBCDIC
     5892   02 01134    49E01EF6              OR,14    =X'18000000'      BINARY CODE TO PATTERN BYTE 0
     5893   02 01135    22400009 A            LI,4     X'09'             BINARY ORDER
     5894   02 01136    22500078 A            LI,5     120               BINARY PUNCH BYTE COUNT
     5895   02 01137    6800113B              B        %+4
     5896   02 01138    4BE01EF7              AND,14   =X'EFFFFFFF'      MASK OUT POSSIBLE BINARY CODE
     5897   02 01139    2240000D A            LI,4     X'0D'             EBCDIC ORDER
     5898   02 0113A    22500050 A            LI,5     80                EBCDIC PUNCH BYTE COUNT
     5899   02 0113B    7540123A              STB,4    T2IOCD1           ENTER INTO IOCD
     5900   02 0113C    75401242              STB,4    T2IOCD3           ENTER INTO IOCD
     5901   02 0113D    5552123B              STH,5    T2IOCD1+1,1       SAVE BYTE COUNT
     5902   02 0113E    55521243              STH,5    T2IOCD3+1,1       SAVE BYTE COUNT
     5903   02 0113F    35E018C7              STW,14   :PATID+1          SET PATTERN SEED
     5904   02 01140    6AF01893              BAL,15   :PATTERN          BUILD RANDOM PATTERN
     5905   02 01141    6AF018DA              BAL,15   :RANDOMX          RANDOM NUMBER
     5906   02 01142    22400000 A            LI,4     0
     5907   02 01143    3250000E A            LW,5     14                MOVE RANDOM NUMBER
     5908   02 01144    312015E1              CW,2     :LIMITP1          TEST FOR DELAY LIMITS   SPECIFIED
     5909   02 01145    6930114E              BNE      T2EX5             LIMITS NOT SPECIFIED
     5910   02 01146    326015E3              LW,6     :LIMITP3          HI  LIMIT
     5911   02 01147    386015E2              SW,6     :LIMITP2          HI LIMIT - LOW LIMIT
     5912   02 01148    6930114B              BNEZ     %+3               LOW LIMIT UNEQUAL HI LIMIT
     5913   02 01149    3560122D              STW,6    T2DELT            SAVE AS DELAY TIME
     5914   02 0114A    68001154              B        T2EX51            GO TO DELAY
     5915   02 0114B    36400006 A            DW,4     6
     5916   02 0114C    304015E2              AW,4     :LIMITP2          DELAY = LO LIMIT + RANDOM NUMBER
     5917   02 0114D    68001153              B        T2EX51-1          SAVE
     5918   02 0114E    36401EF8     T2EX5    DW,4     =63               RANDOM NUMBER MOD 64
     5919   02 0114F    20400001 A            AI,4     1
     5920   02 01150    21400028 A            CI,4     40                TEST FOR MAX DELAY OF 11 SEC REQ'D
     5921   02 01151    69301153              BNE      %+2               NO
     5922   02 01152    22402AF8 A            LI,4     11000             DELAY = 11 SEC
     5923   02 01153    3540122D              STW,4    T2DELT            SAVE DELAY
     5924   02 01154    32E0122D     T2EX51   LW,14    T2DELT
     5925   02 01155    6AF01745              BAL,15   :DELAY            DELAY
     5926   02 01156    68001157              B        %+1
     5927   02 01157    3240033A     T2EX6    LW,4     PUNCHADR          LOAD AND STORE
     5928   02 01158    3540172A              STW,4    :DEVADDR            PUNCH ADDRESS
     5929   02 01159    35101231              STW,1    PBUSY             SET PUNCH BUSY FLAG
     5930   02 0115A    22F0FFFF A            LI,15    X'FFFF'
     5931   02 0115B    35F01233              STW,15   PTIME             LOAD PASS COUNT
     5932   02 0115C    6AF01520              BAL,15   TPMOD             TEST PUNCH MODEL NUMBER
     5933   02 0115D    22000921              LI,0     DA(T2IOCD3)       MODEL 7165
     5934   02 0115E    68001160              B        %+2
     5935   02 0115F    2200091D              LI,0     DA(T2IOCD1)
     5936   02 01160    6AF01702              BAL,15   :IOEXEC           EXECUTE PUNCH
     5937   02 01161    6D000022 A            WD,0     X'22'             RESET INTERRUPT INHIBIT
     5938   02 01162    680010FD              B        T2EX1             LOOP
     5939   02 01163    3120122F     T2EX10   CW,2     RHERE             IS THERE A READER
     5940   02 01164    E8300214 A            BE       *:MONITOR         B: NO - RETURN TO MONITOR
     5941   02 01165    CDC0033D              TIO,12   *READRADR         ISSUE A TIO TO THE READER
     5942   02 01166    31D01EA2              CW,13    K1000             TEST FOR READER MANUAL
     5943   02 01167    E8400214 A            BCR,4    *:MONITOR         B: READER MANUAL
     5944                            *
     5945   02 01168    31101232     T2EX7    CW,1     RBUSY             READER BUSY
     5946   02 01169    6930117F              BNE      T2EX70            B: NO
     5947   02 0116A    33F01234              MTW,-1   RTIME             DECR PASS COUNT
     5948   02 0116B    692010FD              BCS,2    T2EX1             B: COUNT POSITIVE - LOOP
     5949   02 0116C    6AF0129B              BAL,15   SETUPSN           SET UP SEQUENCE NO.             *A01
     5950   02 0116D    6D000032 A            WD,0     X'32'             INHIBIT PUNCH INTERRUPT         *A01
     5951   02 0116E    EAF0021C A            BAL,15   *:PRINT           PRINT:
     5952   02 0116F    00001266              DATA     T2MSG6              'TST2 - CARD READER ERROR'
     5953   02 01170    EAF0021C A            BAL,15   *:PRINT           PRINT:
     5954   02 01171    00000F7F              DATA     TIMEOUT             'TIMEOUT'
     5955   02 01172    32F0033D              LW,15    READRADR
     5956   02 01173    35F0172A              STW,15   :DEVADDR          LOAD READER ADDRESS
     5957   02 01174    35201232              STW,2    RBUSY             RESET READER BUSY FLAG
     5958   02 01175    6AF015EF     TIMEREC  BAL,15   :HIO              RESET DEVICE WITH AN HIO
     5959   02 01176    FFFFC000 A            DATA     X'FFFFC000'
     5960   02 01177    10000000 A            DATA     X'10000000'
     5961   02 01178    68001179              B        %+1
     5962   02 01179    6AF015EA              BAL,15   :TIO              ISSUE A TIO TO THE DEVICE
     5963   02 0117A    FFFFC000 A            DATA     X'FFFFC000'       TEST FOR
     5964   02 0117B    10000000 A            DATA     X'10000000'         PROPER RESET
     5965   02 0117C    6800117D              B        %+1
     5966   02 0117D    6D000022 A            WD,0     X'22'             RESET INTERRUPT INHIBIT
     5967   02 0117E    680010FD              B        T2EX1             LOOP
     5968                            *
     5969   02 0117F    CDC0033D     T2EX70   TIO,12   *READRADR         ISSUE A TIO TO THE READER
     5970   02 01180    31D01EA2              CW,13    K1000             TEST FOR READER MANUAL
     5971   02 01181    6940119B              BCS,4    T2EX71            B: READER AUTO
     5972   02 01182    22F00000 A            LI,15    0                                                 *A01
     5973   02 01183    35F01237              STW,15   ECARDNO           RESET ERROR CARD SEQUENCE NO.   *A01
     5974   02 01184    31101235              CW,1     RPRMAN            REPORT READER MANUAL
     5975   02 01185    6830118C              BE       T2EX72            B: NO - TEST FOR COMPLETION
     5976   02 01186    35101235              STW,1    RPRMAN            SET READER MANUAL FLAG
     5977   02 01187    6D000032 A            WD,0     X'32'             INHIBIT PUNCH INTERRUPT         *A01
     5978   02 01188    EAF00223 A            BAL,15   *:TYPRINT         PRINT:                          *A01
     5979   02 01189    00001290              DATA     T2MSG13             'READER MANUAL'
     5980   02 0118A    6D000022 A            WD,0     X'22'             RESET INTERRUPT INHIBIT         *A01
     5981   02 0118B    680010FD              B        T2EX1             LOOP
     5982   02 0118C    3120122E     T2EX72   CW,2     PHERE             IS THERE A PUNCH
     5983   02 0118D    E8300214 A            BE       *:MONITOR         B: NO - RETURN TO MONITOR
     5984   02 0118E    CDC0033A              TIO,12   *PUNCHADR         ISSUE A TIO TO THE PUNCH
     5985   02 0118F    31D01EA2              CW,13    K1000
     5986   02 01190    69401198              BCS,4    T2EX73            B: PUNCH AUTO
     5987   02 01191    31101236              CW,1     RPPMAN            REPORT PUNCH MANUAL
     5988   02 01192    E8300214 A            BE       *:MONITOR         B: NO - RETURN TO MONITOR
     5989   02 01193    6D000032 A            WD,0     X'32'             INHIBIT READER INTERRUPT        *A01
     5990   02 01194    EAF00223 A            BAL,15   *:TYPRINT         PRINT:                          *A01
     5991   02 01195    0000128C              DATA     T2MSG12             'PUNCH MANUAL'
     5992   02 01196    6D000022 A            WD,0     X'22'             RESET INTERRUPT INHIBIT         *A01
     5993   02 01197    E8000214 A            B        *:MONITOR         RETURN TO MONITOR
     5994   02 01198    31101230     T2EX73   CW,1     PUNCHCF           PUNCHING COMPLETE
     5995   02 01199    693010FD              BNE      T2EX1             B: NO - LOOP
     5996   02 0119A    E8000214 A            B        *:MONITOR         RETURN TO MONITOR
     5997                            *
     5998   02 0119B    35201235     T2EX71   STW,2    RPRMAN            RESET READER MANUAL FLAG
     5999   02 0119C    6D000032 A            WD,0     X'32'             INHIBIT PUNCH INTERRUPT
     6000   02 0119D    35101232              STW,1    RBUSY             SET READER BUSY FLAG
     6001   02 0119E    22F1FFFF A            LI,15    X'1FFFF'
     6002   02 0119F    35F01234              STW,15   RTIME             LOAD PASS COUNT
     6003   02 011A0    32F0033D              LW,15    READRADR
     6004   02 011A1    35F0172A              STW,15   :DEVADDR          LOAD READER ADDRESS
     6005   02 011A2    22000920              LI,0     DA(T2IOCD2)
     6006   02 011A3    6AF01702              BAL,15   :IOEXEC           EXECUTE READ AUTOMATIC
     6007   02 011A4    33101237              MTW,1    ECARDNO           INCR ERROR CARD SEQUENCE NO.    *A01
     6008   02 011A5    6D000022 A            WD,0     X'22'             RESET INTERRUPT INHIBIT
     6009   02 011A6    680010FD              B        T2EX1             LOOP
     6010                            *                                                                      *
     6011                            *            *** TST2 - IO INTERRUPT HANDLER ***                       *
     6012                            *                                                                      *
     6013                            * THIS ROUTINE HANDLES THE PUNCH AND CARD READER INTERRUPTS, TESTS     *
     6014                            * THE STATUS AND COMPARES READ DATA TO EXPECTED READ DATA.             *
     6015                            *                                                                      *
     6016   02 011A7    022000C0 A   T2INT    LCI      12                SAVE REG. 4-15 IN PUBLIC
     6017   02 011A8    0B401E4A              PSM,R4   PSTACK              'PUSH-DOWN' STACK
     6018   02 011A9    22400000 A            LI,4     0
     6019   02 011AA    3540122B              STW,4    T2RTRYF           RESET RETRY FLAG
     6020   02 011AB    6ED00000 A            AIO,13   0                 ISSUE AIO
     6021   02 011AC    35D01701              STW,13   :STATUSCC         SAVE STATUS, CC
     6022   02 011AD    74041701              STCF     :STATUSCC,2
     6023   02 011AE    688011B2              BCR,8    %+4               AIO-ADDR RECOG.
     6024   02 011AF    EAF0021C A            BAL,15   *:PRINT
     6025   02 011B0    00001248              DATA     T2MSG1            'TST2-AIO-NO INTER RECOG'
     6026   02 011B1    680011E8              B        T2INT7            GO TO EXIT
     6027   02 011B2    5242000D A            LH,4     13,1              RETURNED ADDR
     6028   02 011B3    3140033A              CW,4     PUNCHADR          IS THIS A PUNCH INTERRUPT ?
     6029   02 011B4    683011BA              BE       T2INT1            B: YES
     6030   02 011B5    3140033D              CW,4     READRADR          IS THIS A READER INTERRUPT ?
     6031   02 011B6    683011EB              BE       T2INT8            B: YES
     6032   02 011B7    EAF0021C A            BAL,15   *:PRINT
     6033   02 011B8    00001250              DATA     T2MSG2            'TST2-AIO ADDR INCORRECT'
     6034   02 011B9    680011E8              B        T2INT7            GO TO EXIT
     6035   02 011BA    3540172A     T2INT1   STW,4    :DEVADDR          SAVE RET ADR IN :DEVADDR
     6036   02 011BB    6AF015FC              BAL,15   :AIO1             TEST AIO STATUS
     6037   02 011BC    FEFFC003 A            DATA     X'FEFFC003'       MASK                            *A01
     6038   02 011BD    00100000 A            DATA     X'00100000'       EXP STATUS
     6039   02 011BE    680011C0              B        %+2
     6040   02 011BF    680011D4              B        T2INT3            ERROR
     6041   02 011C0    6AF015F4              BAL,15   :TDV              TEST TDV STATUS
     6042   02 011C1    F7FFC001 A            DATA     X'F7FFC001'       MASK
     6043   02 011C2    00000000 A            DATA     X'0'              EXP STATUS
     6044   02 011C3    680011C5              B        %+2
     6045   02 011C4    680011DB              B        T2INT4            ERROR
     6046   02 011C5    6AF015EA              BAL,15   :TIO              TEST TIO STATUS
     6047   02 011C6    EFFFC001 A            DATA     X'EFFFC001'       MASK
     6048   02 011C7    10000000 A            DATA     X'10000000'       EXP STATUS
     6049   02 011C8    680011CA              B        %+2
     6050   02 011C9    680011DB              B        T2INT4            ERROR
     6051   02 011CA    5242000D A            LH,4     13,1              TERMINAL BYTE COUNT
     6052   02 011CB    693011D1              BNEZ     T2INT2            TERM BYTE COUNT NOT 0
     6053   02 011CC    3540122B              STW,4    T2RTRYF           RESET RETRY FLAG
     6054   02 011CD    3240122A              LW,4     T2RTRY
     6055   02 011CE    3540122C              STW,4    T2RTRYI           INITIALIZE RETRY COUNT
     6056   02 011CF    35201231              STW,2    PBUSY             RESET PUNCH BUSY FLAG
     6057   02 011D0    680011E8              B        T2INT7            GO TO EXIT
     6058   02 011D1    EAF0021C A   T2INT2   BAL,15   *:PRINT
     6059   02 011D2    00001257              DATA     T2MSG3            'TST2 - PUNCH TERM BC NOT 0'
     6060   02 011D3    680011E5              B        T2INT6            GO TO EXIT
     6061   02 011D4    EAF0021C A   T2INT3   BAL,15   *:PRINT
     6062   02 011D5    00001261              DATA     T2MSG5            'TST2-PUNCH ERROR'
     6063   02 011D6    6AF015FC              BAL,15   :AIO1             TEST AIO
     6064   02 011D7    FEFFC002 A            DATA     X'FEFFC002'       MASK                            *A01
     6065   02 011D8    00100000 A            DATA     X'00100000'
     6066   02 011D9    680011DD              B        %+4
     6067   02 011DA    680011DD              B        %+3               ERROR
     6068   02 011DB    EAF0021C A   T2INT4   BAL,15   *:PRINT           'TST2-PUNCH ERROR'
     6069   02 011DC    00001261              DATA     T2MSG5
     6070   02 011DD    6AF015F4              BAL,15   :TDV              TEST TDV
     6071   02 011DE    F7FFC000 A            DATA     X'F7FFC000'       MASK
     6072   02 011DF    00000000 A            DATA     X'0'
     6073   02 011E0    680011E1              B        %+1
     6074   02 011E1    6AF015EA     T2INT5   BAL,15   :TIO              TEST TIO
     6075   02 011E2    FFFFC000 A            DATA     X'FFFFC000'       MASK
     6076   02 011E3    10000000 A            DATA     X'10000000'
     6077   02 011E4    680011E5              B        %+1
     6078   02 011E5    CFC0172A     T2INT6   HIO,12   *:DEVADDR         ISSUE HIO
     6079   02 011E6    3510122B              STW,1    T2RTRYF           SET RETRY FLAG
     6080   02 011E7    35201231              STW,2    PBUSY             RESET PUNCH BUSY FLAG
     6081   02 011E8    022000C0 A   T2INT7   LCI      12
     6082   02 011E9    0A401E4A              PLM,R4   PSTACK            RESTORE REG. 4-15 FROM STACK
     6083   02 011EA    0E301244              LPSD,3   T2INTPSD          EXIT
     6084                            *
     6085   02 011EB    3540172A     T2INT8   STW,4    :DEVADDR          SAVE RET ADR IN :DEVADDR
     6086   02 011EC    35201232              STW,2    RBUSY             RESET READER BUSY FLAG
     6087   02 011ED    6AF015FC              BAL,15   :AIO1             TEST AIO STATUS
     6088   02 011EE    FF7FC003 A            DATA     X'FF7FC003'       MASK
     6089   02 011EF    00100000 A            DATA     X'00100000'       EXP STATUS
     6090   02 011F0    680011F2              B        %+2
     6091   02 011F1    680011FC              B        T2INT9            ERROR
     6092   02 011F2    6AF015F4              BAL,15   :TDV              TEST TDV STATUS
     6093   02 011F3    FF7FC001 A            DATA     X'FF7FC001'       MASK
     6094   02 011F4    00000000 A            DATA     X'0'              EXP STATUS
     6095   02 011F5    680011F7              B        %+2
     6096   02 011F6    68001204              B        T2INT91           ERROR
     6097   02 011F7    6AF015EA              BAL,15   :TIO              TEST TIO
     6098   02 011F8    6F7FC001 A            DATA     X'6F7FC001'       MASK
     6099   02 011F9    10000000 A            DATA     X'10000000'       EXP STATUS
     6100   02 011FA    68001213              B        T2INT10
     6101   02 011FB    68001204              B        T2INT91
     6102   02 011FC    6AF0129B     T2INT9   BAL,15   SETUPSN           SET UP SEQUENCE NO.             *A01
     6103   02 011FD    EAF0021C A            BAL,15   *:PRINT           PRINT:                          *A01
     6104   02 011FE    00001266              DATA     T2MSG6            'TST2-CARD READER ERROR'
     6105   02 011FF    6AF015FC              BAL,15   :AIO1             TEST AIO
     6106   02 01200    FF7FC002 A            DATA     X'FF7FC002'
     6107   02 01201    00100000 A            DATA     X'00100000'
     6108   02 01202    68001207              B        %+5                                               *A02
     6109   02 01203    68001207              B        %+4               ERROR                           *A02
     6110   02 01204    6AF0129B     T2INT91  BAL,15   SETUPSN           SET UP SEQUENCE NO.             *A01
     6111   02 01205    EAF0021C A            BAL,15   *:PRINT           PRINT:                          *A01
     6112   02 01206    00001266              DATA     T2MSG6             'TST2-CARD READER ERROR'       *A01
     6113   02 01207    6AF015F4              BAL,15   :TDV              TEST TDV
     6114   02 01208    FF7FC000 A            DATA     X'FF7FC000'
     6115   02 01209    00000000 A            DATA     X'0'
     6116   02 0120A    6800120B              B        %+1
     6117   02 0120B    6AF015EA              BAL,15   :TIO              TEST TIO
     6118   02 0120C    FF7FC000 A            DATA     X'FF7FC000'
     6119   02 0120D    10000000 A            DATA     X'10000000'
     6120   02 0120E    6800120F              B        %+1
     6121   02 0120F    35201232              STW,2    RBUSY             RESET READER BUSY FLAG
     6122   02 01210    32401701              LW,4     :STATUSCC         FETCH TIO STATUS
     6123   02 01211    31401EF9              CW,4     =X'66000000'      FEED ERROR
     6124   02 01212    694011E8              BCS,4    T2INT7            YES - GO TO EXIT
     6125   02 01213    22401F96     T2INT10  LI,4     BUFFER1
     6126   02 01214    354018CA              STW,4    :PATBFR           SET PATTERN BUFFER ADDR
     6127   02 01215    32401FEA              LW,4     BUFFER2           FETCH READ BYTES 0-3
     6128   02 01216    2250001E A            LI,5     30                BINARY BYTE COUNT
     6129   02 01217    4B401EF6              AND,4    =X'18000000'      TEST FOR BINARY CARD
     6130   02 01218    31401EF6              CW,4     =X'18000000'
     6131   02 01219    6830121B              BE       %+2               BINARY CARD
     6132   02 0121A    22500014 A            LI,5     20                EBCDIC CARD, BYTE COUNT
     6133   02 0121B    3550194A              STW,5    COMSWCNT          SAVE
     6134   02 0121C    32401FEA              LW,4     BUFFER2
     6135   02 0121D    354018C7              STW,4    :PATID+1          ESTABLISH RANDOM PATTERN SEED
     6136   02 0121E    6AF01893              BAL,15   :PATTERN          BUILD PATTERN
     6137   02 0121F    6AF018E8              BAL,15   COMSYNC           COMPARE EXP/OBS CARD DATA
     6138   02 01220    680011E8              B        T2INT7            EQUAL
     6139   02 01221    68001223              B        %+2               ERROR WITH SYNC POSSIBLE
     6140   02 01222    680011E8              B        T2INT7            NO SYNC POSSIBLE-GO TO EXIT
     6141   02 01223    6AF0129B              BAL,15   SETUPSN           SET UP SEQUENCE NO.             *A01
     6142   02 01224    EAF0021C A            BAL,15   *:PRINT
     6143   02 01225    0000126F              DATA     T2MSG7            'TST2-READ COMPARE ERROR'
     6144   02 01226    6AF01959              BAL,15   :CARDISP          PRINT CARD DATA
     6145   02 01227    680011E8              B        T2INT7            GO TO EXIT
     6146   02 01228    680011E8              B        T2INT7            GO TO EXIT
     6147                            *
     6148   02 01229    00000000 A   T2PCOUNT DATA     0                 PUNCH COUNT
     6149   02 0122A    00000000 A   T2RTRY   DATA     0                 RETRY COUNT (MAX) +1
     6150   02 0122B    00000000 A   T2RTRYF  DATA     0                 RETRY FLAG
     6151   02 0122C    00000000 A   T2RTRYI  DATA     0                 RETRY COUNT (CURRENT)
     6152   02 0122D    00000000 A   T2DELT   DATA     0                 DELAY TIME
     6153   02 0122E    00000000 A   PHERE    DATA     0                 PUNCH HERE FLAG
     6154   02 0122F    00000000 A   RHERE    DATA     0                 READER HERE FLAG
     6155   02 01230    00000000 A   PUNCHCF  DATA     0                 PUNCH COMPLETION FLAG
     6156   02 01231    00000000 A   PBUSY    DATA     0                 PUNCH BUSY FLAG
     6157   02 01232    00000000 A   RBUSY    DATA     0                 READER BUSY FLAG
     6158   02 01233    00000000 A   PTIME    DATA     0                 PUNCH PASS COUNTER
     6159   02 01234    00000000 A   RTIME    DATA     0                 READER PASS COUNTER
     6160   02 01235    00000000 A   RPRMAN   DATA     0                 READER MANUAL FLAG
     6161   02 01236    00000000 A   RPPMAN   DATA     0                 PUNCH MANUAL FLAG
     6162   02 01237    00000000 A   ECARDNO  DATA     0                 ERROR CARD SEQUENCE NO.         *A01
     6163   02 01238    0F001244     T2XPSD   XPSD,0   T2INTPSD
     6164                                     BOUND    8
     6165   02 0123A    00007DD0     T2IOCD1  GEN,8,24 X'00',BA(BUFFER)  PUNCH IOCD
     6166   02 0123B    2C000078 A            GEN,8,24 X'2C',120         IUE,HTE
     6167   02 0123C    0800091D              GEN,8,24 X'08',DA(T2IOCD1) TIC
     6168   02 0123D    00000000 A            GEN,8,24 0,0
     6169   02 0123E    00000000 A            GEN,8,24 X'00',0           STOP
     6170   02 0123F    1C000000 A            GEN,8,24 X'1C',0           ICE,IUE,HTE
     6171   02 01240    0E007FA8     T2IOCD2  GEN,8,24 X'0E',BA(BUFFER2) READ AUTOMATIC/ALT STACKER ON ERROR
     6172   02 01241    1E000078 A            GEN,8,24 X'1E',120         ICE,IUE,HTE,SIL
     6173   02 01242    00007DD0     T2IOCD3  GEN,8,24 X'00',BA(BUFFER)  MODEL 7165
     6174   02 01243    1C000078 A            GEN,8,24 X'1C',120         ICE,IUE,HTE
     6175   02 01244    00000000 A   T2INTPSD DATA     0,0
            02 01245    00000000 A
     6176   02 01246    000011A7              DATA     T2INT,0
            02 01247    00000000 A
     6177   02 01248    1CE3E2E3 A   T2MSG1   TEXTC   'TST2 - AIO-NO IO INTER RECOG'
            02 01249    F2406040 A
            02 0124A    C1C9D660 A
            02 0124B    D5D640C9 A
            02 0124C    D640C9D5 A
            02 0124D    E3C5D940 A
            02 0124E    D9C5C3D6 A
            02 0124F    C7404040 A
     6178   02 01250    19E3E2E3 A   T2MSG2   TEXTC   'TST2 - AIO-ADDR INCORRECT'
            02 01251    F2406040 A
            02 01252    C1C9D660 A
            02 01253    C1C4C4D9 A
            02 01254    40C9D5C3 A
            02 01255    D6D9D9C5 A
            02 01256    C3E34040 A
     6179   02 01257    26E3E2E3 A   T2MSG3   TEXTC    'TST2 - PUNCH TERMINAL BYTE COUNT NOT 0'
            02 01258    F2406040 A
            02 01259    D7E4D5C3 A
            02 0125A    C840E3C5 A
            02 0125B    D9D4C9D5 A
            02 0125C    C1D340C2 A
            02 0125D    E8E3C540 A
            02 0125E    C3D6E4D5 A
            02 0125F    E340D5D6 A
            02 01260    E340F040 A
     6180   02 01261    12E3E2E3 A   T2MSG5   TEXTC   'TST2 - PUNCH ERROR'
            02 01262    F2406040 A
            02 01263    D7E4D5C3 A
            02 01264    C840C5D9 A
            02 01265    D9D6D940 A
     6181   02 01266    23E3E2E3 A   T2MSG6   TEXTC    'TST2-CARD READER ERROR SEQ NO. XXXX'             *A01
            02 01267    F260C3C1 A
            02 01268    D9C440D9 A
            02 01269    C5C1C4C5 A
            02 0126A    D940C5D9 A
            02 0126B    D9D6D940 A
            02 0126C    E2C5D840 A
            02 0126D    D5D64B40 A
            02 0126E    E7E7E7E7 A
     6182   02 0126F    23E3E2E3 A   T2MSG7   TEXTC    'TST2-READ COMPARE ERROR SEQ NO XXXX'             *A01
            02 01270    F260D9C5 A
            02 01271    C1C440C3 A
            02 01272    D6D4D7C1 A
            02 01273    D9C540C5 A
            02 01274    D9D9D6D9 A
            02 01275    40E2C5D8 A
            02 01276    40D5D640 A
            02 01277    E7E7E7E7 A
     6183   02 01278    10D5D640 A   T2MSG8   TEXTC    'NO PUNCH DEFINED'
            02 01279    D7E4D5C3 A
            02 0127A    C840C4C5 A
            02 0127B    C6C9D5C5 A
            02 0127C    C4404040 A
     6184   02 0127D    11D5D640 A   T2MSG9   TEXTC    'NO READER DEFINED'
            02 0127E    D9C5C1C4 A
            02 0127F    C5D940C4 A
            02 01280    C5C6C9D5 A
            02 01281    C5C44040 A
     6185   02 01282    11D7E4D5 A   T2MSG10  TEXTC    'PUNCH-NO ADDR REC'
            02 01283    C3C860D5 A
            02 01284    D640C1C4 A
            02 01285    C4D940D9 A
            02 01286    C5C34040 A
     6186   02 01287    12D9C5C1 A   T2MSG11  TEXTC    'READER-NO ADDR REC'
            02 01288    C4C5D960 A
            02 01289    D5D640C1 A
            02 0128A    C4C4D940 A
            02 0128B    D9C5C340 A
     6187   02 0128C    0CD7E4D5 A   T2MSG12  TEXTC    'PUNCH MANUAL'
            02 0128D    C3C840D4 A
            02 0128E    C1D5E4C1 A
            02 0128F    D3404040 A
     6188   02 01290    0DD9C5C1 A   T2MSG13  TEXTC    'READER MANUAL'
            02 01291    C4C5D940 A
            02 01292    D4C1D5E4 A
            02 01293    C1D34040 A
     6189   02 01294    18E3E2E3 A   T2NODEV  TEXTC    'TST2-NO DEVICES DECLARED'
            02 01295    F260D5D6 A
            02 01296    40C4C5E5 A
            02 01297    C9C3C5E2 A
            02 01298    40C4C5C3 A
            02 01299    D3C1D9C5 A
            02 0129A    C4404040 A
     6190                            *                                                                   *A01
     6191                            *        SETUPSN - SET UP SEQUENCE NO. (TST2 READ)                  *A01
     6192                            *                                                                   *A01
     6193   02 0129B    02200000 A   SETUPSN  LCI      0                 SAVE REG. 0-15 IN PUBLIC        *A01
     6194   02 0129C    0B001E4A              PSM,0    PSTACK              'PUSH-DOWN' STACK             *A01
     6195   02 0129D    32C01237              LW,12    ECARDNO           LOAD ERROR CARD NO.             *A01
     6196   02 0129E    21C0270F A            CI,12    9999              IS IT GREATER THAN 9999         *A01
     6197   02 0129F    682012A2              BLE      %+3               B: NO                           *A01
     6198   02 012A0    22C00001 A            LI,12    1                 RESET TO 1                      *A01
     6199   02 012A1    35C01237              STW,12   ECARDNO           RESET ECARDNO TO 1              *A01
     6200   02 012A2    EAF00217 A            BAL,15   *:DECC            CONVERT TO EBCDIC               *A01
     6201   02 012A3    35F0126E              STW,15   T2MSG6+8          ENTER INTO MESSAGE 6            *A01
     6202   02 012A4    35F01277              STW,15   T2MSG7+8          ENTER INTO MESSAGE 7            *A01
     6203   02 012A5    68001087              B        POP15             RETURN                          *A01
     6204                            *                                                                   *A01
     6205                            *                                                                      *
     6206                            *            *** TST3 - UTILITY TEST ROUTINES ***                      *
     6207                            *                                                                      *
     6208                            * THIS DIRECTIVE ALLOWS THE USER TO SELECT ONE OF THE UTILITY TEST     *
     6209                            * ROUTINES BY SPECIFYING IN PARAMETER P1 THE DESIRED TEST:             *
     6210                            *                                                                      *
     6211                            *                                                                      *
     6212                            *   D1 = 0  PUNCH/READ EBCDIC CARDS.                                   *
     6213                            *      H2 = 1  PUNCH                                                   *
     6214                            *      H2 = 2  READ                                                    *
     6215                            *                                                                      *
     6216                            *   D1 = 1  PUNCH/READ BINARY CARDS.                                   *
     6217                            *      H2 = 1  PUNCH                                                   *
     6218                            *      H2 = 2  READ                                                    *
     6219                            *                                                                      *
     6220                            *   D1 = 2  PUNCH/READ CARDS.                                          *
     6221                            *      H2 = 1  PUNCH                                                   *
     6222                            *      H2 = 2  READ                                                    *
     6223                            *      H3 = ORDER                                                      *
     6224                            *                                                                      *
     6225                            *   D1 = 3  PUNCH CARD MATRIX.                                         *
     6226                            *      H2 = X COORDINATE (ROW)                                         *
     6227                            *      H3 = Y COORDINATE (COLUMN)                                      *
     6228                            *                                                                      *
     6229                            *   D1 = 4  PUNCH/READER SPEED TEST.                                   *
     6230                            *      H2 = 1  PUNCH                                                   *
     6231                            *      H2 = 2  READ                                                    *
     6232                            *                                                                      *
     6233                            *   D1 = 5  PUNCH/READ THEN DELAY.                                     *
     6234                            *      H2 = 1  PUNCH                                                   *
     6235                            *      H2 = 2  READ                                                    *
     6236                            *      H3 = NUMBER OF CARDS                                            *
     6237                            *      H4 = AMOUNT OF DELAY                                            *
     6238                            *                                                                      *
     6239                            *   D1 = 6  PUNCH/READ FUNCTIONAL SUBTEST DECKS
     6240                            *      H2 = 1  PUNCH
     6241                            *      H2 = 2  READ
     6242                            *      H3 = 0  PUNCH/READ ALL FOUR DECKS
     6243                            *      H3 = 40 PUNCH/READ CHECKERBOARD DECK
     6244                            *      H3 = 48 PUNCH/READ 50-CARD DECK
     6245                            *      H3 = 50 PUNCH/READ INVALID EBCDIC CODE CARD
     6246                            *      H3 = 51 PUNCH/READ MODE SWITCHING CARD
     6247                            *
     6248                            *                                                                      *
     6249                            *   D1 = 7  PUNCH/READ SHIFTING PATTERN.                               *
     6250                            *      H2 = 1  PUNCH                                                   *
     6251                            *      H2 = 2  READ                                                    *
     6252                            *      H3 = 12 BIT PATTERN TO BE SHIFTED THROUGHOUT THE CARD           *
     6253                            *              (PUNCH ONLY)                                            *
     6254                            *                                                                      *
     6255                            *     NO OTHER VALUES OF P1 ARE ALLOWED.                               *
     6256                            *                                                                      *
     6257                            * TEST VARIATIONS:                                                     *
     6258                            * ---------------                                                      *
     6259                            *                                                                      *
     6260                            *  DATA: THIS DIRECTIVE ALLOWS THE USER TO SELECT A DATA PATTERN TO    *
     6261                            *        BE PUNCHED (EBCDIC AND BINARY).                               *
     6262                            *                                                                      *
     6263                            *                                                                      *
     6264   02 012A6    32400336     TST3     LW,4     :CDB+2
     6265   02 012A7    3540172A              STW,4    :DEVADDR          ESTABLISH DEV ADDR
     6266   02 012A8    6AF00391              BAL,15   :RECOVER          EXECUTE RECOVERY ROUTINE
     6267   02 012A9    35001958              STW,0    COMSCOLN          RESET COM SYNC                  *A01
     6268   02 012AA    6AF01E3F              BAL,15   CLRSTK            CLEAR (STACK) TO ZERO
     6269   02 012AB    32F01D64              LW,15    TST1XPSD          SET UP
     6270   02 012AC    35F0005C A            STW,15   X'5C'               INTERRUPT HANDLER
     6271   02 012AD    35100426              STW,1    TST1SEF           SET TST1 SINGLE ENTRY FLAG
     6272   02 012AE    32400201 A            LW,4     :P1               PARAMETER P1
     6273   02 012AF    21400007 A            CI,4     7                 TEST FOR P1 <= 7
     6274   02 012B0    682012B5              BLE      TST3B             P1 OK
     6275   02 012B1    3510030A A            STW,1    :PIT10            ERROR: P1 > 6
     6276   02 012B2    EAF00229 A   TST3A    BAL,15   *:PREPORT         REPORT
     6277   02 012B3    00000326              DATA     :DIC+6            'TST3'
     6278   02 012B4    E8000214 A            B        *:MONITOR         RETURN TO MONITOR
     6279   02 012B5    35301BEA     TST3B    STW,3    ITHTEST           TST3
     6280   02 012B6    22E01BD6              LI,14    ITHDLR            HANDL ADDRESS
     6281   02 012B7    35E0030F A            STW,14   :PIT15            SAVE
     6282   02 012B8    22E012A6              LI,14    TST3
     6283   02 012B9    35E01BEC              STW,14   ITHRST            RESTART ADDRESS
     6284   02 012BA    324812BC              LW,4     TST3C,4           UTILITY TEST ADDRESS
     6285   02 012BB    E8000004 A            B        *4                EXECUTE UTILITY TEST
     6286                            *
     6287   02 012BC    000012C4     TST3C    DATA     TST30,TST31,TST32,TST33,TST34,TST35,TST36,TST37
            02 012BD    00001336
            02 012BE    00001361
            02 012BF    0000139B
            02 012C0    000013EC
            02 012C1    0000143D
            02 012C2    0000145D
            02 012C3    000014CA
     6288                            *                                                                      *
     6289                            *             *** TST3,0 - PUNCH/READ EBCDIC CARDS ***                 *
     6290                            *                                                                      *
     6291                            *  EBCDIC CARDS ARE PUNCHED USING THE DATA PATTERN SPECIFIED BY THE    *
     6292                            *  DATA DIRECTIVE.                                                     *
     6293                            *                                                                      *
     6294   02 012C4    22F01F74     TST30    LI,15    BUFFER
     6295   02 012C5    35F01A05              STW,15   :CARDEXP          SET UP EXPECTED BUFFER ADDRESS
     6296   02 012C6    22F01FEA              LI,15    BUFFER2
     6297   02 012C7    35F01A06              STW,15   :CARDOBS          SET UP OBSERVED BUFFER ADDRESS
     6298   02 012C8    22FFFFFF A            LI,15    -1                                                *A01
     6299   02 012C9    35F01A07              STW,15   :CARDBF           FORCE EBCDIC CARD DISPLAY       *A01
     6300   02 012CA    35101A08              STW,1    CARDISPF          SET CARD DISPLAY FLAG
     6301   02 012CB    6AF012E1              BAL,15   TST3RSI                                           *A04
     6302   02 012CC    72F615C0     TST30EX  LB,15    :DATAP2,3         STARTING EBCDIC BYTE
     6303   02 012CD    75F01534              STB,15   TST3CB            SAVE IN LOC (CURRENT BYTE)
     6304                            *                                                                   *A01
     6305   02 012CE    6AF0131D     TST30L   BAL,15   TST3P04           SET UP RANDOM SEEDS             *A01
     6306   02 012CF    32E015C0              LW,14    :DATAP2           R14 = RANDOM SEED               *A01
     6307   02 012D0    324015BF              LW,4     :DATAP1           DATA PATTERN TYPE               *A01
     6308   02 012D1    67081303              EXU      TST30PAT,4        BUILD PATTERN IN (BUFFER)
     6309   02 012D2    31200202 A            CW,2     :P2               TEST FOR PUNCH/READ
     6310   02 012D3    683012ED              BE       TST30R            B: READ
     6311   02 012D4    6AF0150F              BAL,15   LDPADR            LOAD PUNCH ADDRESS
     6312   02 012D5    6AF01590              BAL,15   TST3R1            SET UP PUNCH IOCD'S
     6313   02 012D6    6AF01520              BAL,15   TPMOD             TEST PUNCH MODEL NUMBER
     6314   02 012D7    22000AC3              LI,0     DA(T3IOCD12)      MODEL 7165
     6315   02 012D8    680012DA              B        %+2
     6316   02 012D9    22000AAC              LI,0     DA(T3IOCD1)       MODEL 7160
     6317   02 012DA    6AF01DCA              BAL,15   PUNCH             PUNCH A CARD
     6318   02 012DB    680012DC              B        %+1
     6319   02 012DC    EAF0021D A   TST30SW  BAL,15   *:SENSE           GO TEST SENSE SWITCHES
     6320   02 012DD    2E0012DD              WAIT     %                 SSW 3 RESET - WAIT
     6321   02 012DE    680012CE              B        TST30L            SSW 1 SET   - LOOP ON TEST
     6322   02 012DF    6AF012E1              BAL,15   TST3RSI                                           *A04
     6323   02 012E0    E8000214 A            B        *:MONITOR                                         *A04
     6324   02 012E1    22E0000D A   TST3RSI  LI,14    X'0D'                                             *A04
     6325   02 012E2    75E01558              STB,14   T3IOCD1                                           *A04
     6326   02 012E3    75E01586              STB,14   T3IOCD12                                          *A04
     6327   02 012E4    22E0000E A            LI,14    X'0E'                                             *A04
     6328   02 012E5    75E01582              STB,14   T3IOCD10                                          *A04
     6329   02 012E6    22E00009 A            LI,14    X'09'                                             *A04
     6330   02 012E7    75E0155E              STB,14   T3IOCD2                                           *A04
     6331   02 012E8    75E01588              STB,14   T3IOCD13                                          *A04
     6332   02 012E9    22E0000A A            LI,14    X'0A'                                             *A04
     6333   02 012EA    75E01584              STB,14   T3IOCD11                                          *A04
     6334   02 012EB    E800000F A            B        *15
     6335   02 012EC    E800000F A            B        *+15
     6336                            *
     6337   02 012ED    6AF01517     TST30R   BAL,15   LDRADR            LOAD READER ADDRESS
     6338   02 012EE    22000AC1              LI,0     DA(T3IOCD10)
     6339   02 012EF    6AF01BFB              BAL,15   EXECUTE           EXECUTE IO
     6340   02 012F0    680012F1              B        %+1
     6341   02 012F1    31101A08              CW,1     CARDISPF          TEST CARD
     6342   02 012F2    693012DC              BNE      TST30SW           B: NO
     6343   02 012F3    312015BF              CW,2     :DATAP1           IS THIS A RANDOM PATTERN        *A01
     6344   02 012F4    69301300              BNE      TST30R1           B: NO                           *A01
     6345   02 012F5    72E01F74              LB,14    BUFFER            R14 : FIRST EXPECTED BYTE       *A01
     6346   02 012F6    32F01E96              LW,15    K18               R15 : X'00000018'               *A01
     6347   02 012F7    45E01E96              CS,14    K18               TEST FOR ROW 1 AND 2 COL. 1     *A01
     6348   02 012F8    69301300              BNE      TST30R1           B: NOT ROWS 1 AND 2 COL. 1      *A01
     6349   02 012F9    48E01E96              EOR,14   K18               GET RID OF ROW 1 AND 2 COL. 1   *A01
     6350   02 012FA    75E01F74              STB,14   BUFFER            RESTORE FIRST BYTE              *A01
     6351   02 012FB    72E01FEA              LB,14    BUFFER2           LOAD FIRST OBSERVED BYTE        *A01
     6352   02 012FC    45E01E96              CS,14    K18               TEST FOR ROWS 1 AND 2 COL. 1    *A01
     6353   02 012FD    69301300              BNE      TST30R1           B: ERROR IN FIRST OBSERVED BYTE *A01
     6354   02 012FE    48E01E96              EOR,14   K18               GET RID OF ROWS 1 AND 2 COL. 1  *A01
     6355   02 012FF    75E01FEA              STB,14   BUFFER2           STORE FIRST OBSERVED BYTE       *A01
     6356                            TST30R1  ;                                                          *A01
     6357   02 01300    6AF01959              BAL,15   :CARDISP          TEST CONTENTS OF CARD
     6358   02 01301    680012DC              B        TST30SW           GO TEST SENSE SWITCHES
     6359   02 01302    680012DC              B        TST30SW           GO TEST SENSE SWITCHES
     6360                            *
     6361   02 01303    6AF01306     TST30PAT BAL,15   TST3P01           FIXED PATTERN (EBCDIC)
     6362   02 01304    6AF0130C              BAL,15   TST3P02           INCREMENTING PATTERN (EBCDIC)
     6363   02 01305    6AF01316              BAL,15   TST3P03           RANDOM PATTERN (EBCDIC)
     6364                            *
     6365                            *                 FIXED PATTERN (EBCDIC)
     6366                            *
     6367   02 01306    524215C0     TST3P01  LH,4     :DATAP2,1         LS 4 CHARACTERS (2 EBCDIC BYTES)
     6368   02 01307    55400004 A            STH,4    4                 DUPLICATE
     6369   02 01308    22500014 A            LI,5     20                BYTE COUNT = 80
     6370   02 01309    354A1F73              STW,4    BUFFER-1,5        ENTER 4 BYTES INTO BUFFER
     6371   02 0130A    64501309              BDR,5    %-1               LOOP TIL BUFFER FULL
     6372   02 0130B    E800000F A            B        *15               RETURN
     6373                            *
     6374                            *                 INCREMENTING PATTERN (EBCDIC)
     6375                            *
     6376   02 0130C    22400000 A   TST3P02  LI,4     0                 INDEX
     6377   02 0130D    72501534              LB,5     TST3CB            CURRENT BYTE
     6378   02 0130E    726615C1              LB,6     :DATAP3,3         INCREMENT
     6379   02 0130F    75581F74              STB,5    BUFFER,4          BUILD PATTERN
     6380   02 01310    30500006 A            AW,5     6                 INCR PATTERN
     6381   02 01311    20400001 A            AI,4     1                 INCR INDEX
     6382   02 01312    21400050 A            CI,4     80                LAST BYTE
     6383   02 01313    6910130F              BL       %-4               B: NO
     6384   02 01314    75501534              STB,5    TST3CB            SAVE CURRENT BYTE
     6385   02 01315    E800000F A            B        *15               RETURN
     6386                            *
     6387                            *                 RANDOM PATTERN (EBCDIC)
     6388                            *
     6389   02 01316    02200000 A   TST3P03  LCI      0                 SAVE REG. 0-15 IN PUBLIC
     6390   02 01317    0B001E4A              PSM,0    PSTACK              'PUSH-DOWN' STACK
     6391   02 01318    225FFFE2 A            LI,5     -30
     6392   02 01319    6AF018D9              BAL,15   :RANDOM           BUILD
     6393   02 0131A    35EA1F92              STW,14   BUFFER+30,5        RANDOM
     6394   02 0131B    65501319              BIR,5    %-2                 PATTERN
     6395   02 0131C    68001087              B        POP15             RETURN
     6396                            *
     6397                            *                 SET UP RANDOM SEEDS.
     6398                            *
     6399   02 0131D    32E01EFA     TST3P04  LW,14    =X'12B9B0A1'
     6400   02 0131E    35E018E4              STW,14   :M1
     6401   02 0131F    32E01EFB              LW,14    =X'1033C4D7'
     6402   02 01320    35E018E5              STW,14   :M2
     6403   02 01321    E800000F A            B        *15               RETURN
     6404                            *
     6405                            *                 FIXED PATTERN (BINARY).
     6406                            *
     6407   02 01322    09F01E4A     TST3P05  PSW,15   PSTACK            SAVE RETURN ADDRESS IN STACK
     6408   02 01323    324015C0              LW,4     :DATAP2           DATA PATTERN
     6409   02 01324    35400005 A            STW,4    5                 MOVE
     6410   02 01325    25500074 A            SLS,5    -12               ADJUST
     6411   02 01326    226FFFB0 A            LI,6     -80               INDEX
     6412   02 01327    354C1FE6              STW,4    TABLE1+80,6       BUILD INFO
     6413   02 01328    46400005 A            XW,4     5                 XCHANGE 12-BIT FIELDS
     6414   02 01329    65601327              BIR,6    %-2               LOOP TIL COUNT = 0
     6415   02 0132A    6AF01C81              BAL,15   COMPACTM          COMPACT DATA
     6416   02 0132B    6800039D              B        POP               RETURN
     6417                            *
     6418                            *                 INCREMENTING PATTERN (BINARY).
     6419                            *
     6420   02 0132C    09F01E4A     TST3P06  PSW,15   PSTACK            SAVE RETURN ADDRESS IN STACK
     6421   02 0132D    225FFFB0 A            LI,5     -80               INDEX
     6422   02 0132E    32401534              LW,4     TST3CB            CURRENT BYTE
     6423   02 0132F    354A1FE6              STW,4    TABLE1+80,5       ENTER INTO TABLE
     6424   02 01330    30401535              AW,4     TST3CI            CURRENT BYTE + INCR
     6425   02 01331    6550132F              BIR,5    %-2               LOOP TIL COUNT = 0
     6426   02 01332    4B401E9D              AND,4    KFFF              MASK 12 BITS
     6427   02 01333    35401534              STW,4    TST3CB            SAVE CURRENT BYTE
     6428   02 01334    6AF01C81              BAL,15   COMPACTM          COMPACT DATA
     6429   02 01335    6800039D              B        POP               RETURN
     6430                            *                                                                      *
     6431                            *             *** TST3,1 - PUNCH/READ BINARY CARDS ***                 *
     6432                            *                                                                      *
     6433                            * BINARY CARDS ARE PUNCHED USING THE DATA PATTERN SPECIFIED BY THE     *
     6434                            * DATA DIRECTIVE.                                                      *
     6435                            *                                                                      *
     6436                            *    P2 THRU P4 ARE NOT USED.                                          *
     6437                            *                                                                      *
     6438   02 01336    22F01F74     TST31    LI,15    BUFFER
     6439   02 01337    35F01A05              STW,15   :CARDEXP
     6440   02 01338    22F01FEA              LI,15    BUFFER2
     6441   02 01339    35F01A06              STW,15   :CARDOBS
     6442   02 0133A    35101A07              STW,1    :CARDBF           FORCE BINARY CARD DISPLAY
     6443   02 0133B    35101A08              STW,1    CARDISPF          SET CARD DISPLAY FLAG
     6444   02 0133C    6AF012E1              BAL,15   TST3RSI
     6445   02 0133D    32F015C0     TST31EX  LW,15    :DATAP2           STARTING 3 CHARACTERS (IPAT)
     6446   02 0133E    4BF01E9D              AND,15   KFFF              MASK 12 BITS
     6447   02 0133F    35F01534              STW,15   TST3CB            SAVE AS CURRENT CHAR
     6448   02 01340    32F015C1              LW,15    :DATAP3           INCREMENT
     6449   02 01341    4BF01E9D              AND,15   KFFF              MASK 12 BITS
     6450   02 01342    35F01535              STW,15   TST3CI            SAVE AS INCREMENT
     6451                            *                                                                   *A01
     6452   02 01343    6AF0131D     TST31L   BAL,15   TST3P04           SET UP RANDOM SEEDS             *A01
     6453   02 01344    32E015C0              LW,14    :DATAP2           R14 : RANDOM SEED               *A01
     6454   02 01345    324015BF              LW,4     :DATAP1           DATA PATTERN TYPE               *A01
     6455   02 01346    6708135E              EXU      TST31PAT,4        BUILD PATTERN IN (BUFFER)
     6456   02 01347    31200202 A            CW,2     :P2               TEST FOR PUNCH/READ
     6457   02 01348    68301355              BE       TST31R            B: READ
     6458   02 01349    6AF0150F              BAL,15   LDPADR            LOAD PUNCH ADDRESS
     6459   02 0134A    6AF01520              BAL,15   TPMOD             TEST PUNCH MODEL NUMBER
     6460   02 0134B    22000AC4              LI,0     DA(T3IOCD13)      MODEL 7165
     6461   02 0134C    6800134E              B        %+2
     6462   02 0134D    22000AAF              LI,0     DA(T3IOCD2)       MODEL 7160
     6463   02 0134E    6AF01DCA              BAL,15   PUNCH             PUNCH A CARD
     6464   02 0134F    68001350              B        %+1
     6465   02 01350    EAF0021D A   TST31SW  BAL,15   *:SENSE           GO TEST SENSE SWITCHES
     6466   02 01351    2E001351              WAIT     %                 SSW 3 RESET - WAIT
     6467   02 01352    68001343              B        TST31L            SSW 1 SET   - LOOP ON TEST
     6468   02 01353    6AF012E1              BAL,15   TST3RSI                                           *A04
     6469   02 01354    E8000214 A            B        *:MONITOR                                         *A04
     6470                            *
     6471   02 01355    6AF01517     TST31R   BAL,15   LDRADR            LOAD READER ADDRESS
     6472   02 01356    22000AC2              LI,0     DA(T3IOCD11)
     6473   02 01357    6AF01BFB              BAL,15   EXECUTE           ISSUE THE SIO
     6474   02 01358    68001359              B        %+1
     6475   02 01359    31101A08              CW,1     CARDISPF          TEST CARD
     6476   02 0135A    69301350              BNE      TST31SW           B: NO
     6477   02 0135B    6AF01959              BAL,15   :CARDISP          TEST CONTENTS OF CARD
     6478   02 0135C    68001350              B        TST31SW           GO TEST SENSE SWITCHES
     6479   02 0135D    68001350              B        TST31SW           GO TEST SENSE SWITCHES
     6480                            *
     6481   02 0135E    6AF01322     TST31PAT BAL,15   TST3P05           FIXED PATTERN (BINARY)
     6482   02 0135F    6AF0132C              BAL,15   TST3P06           INCREMENTING PATTERN (BINARY)
     6483   02 01360    6AF01316              BAL,15   TST3P03           RANDOM PATTERN (BINARY)
     6484                            *                                                                      *
     6485                            *             ***  TST3,2 - PUNCH/READ CARDS ***
     6486                            *                                                                      *
     6487   02 01361    35201A08     TST32    STW,2    CARDISPF          RESET CARD DISPLAY FLAG
     6488   02 01362    31200202 A            CW,2     :P2               READ SELECTED
     6489   02 01363    6830138C              BE       TST32CR           B: YES
     6490   02 01364    6AF01520              BAL,15   TPMOD             TEST PUNCH MODEL NUMBER
     6491   02 01365    68001376              B        TST3265           B: MODEL 7165
     6492   02 01366    68001376              B        TST3265           FILLER
     6493   02 01367    32400203 A            LW,4     :P3               LOAD ORDER
     6494   02 01368    225FFFF4 A            LI,5     -12               SEARCH TABLE OF VALID ORDERS
     6495   02 01369    714A1E90              CB,4     ORDERTBL+3,5        FOR A MATCH
     6496   02 0136A    6830136E              BE       TST321            B: MATCH FOUND
     6497   02 0136B    65501369              BIR,5    %-2               B: NOT DONE YET
     6498   02 0136C    3530030A A   TST32E1  STW,3    :PIT10            SET PARAMETER 3 IN ERROR
     6499   02 0136D    680012B2              B        TST3A             GO REPORT ERROR
     6500                            *
     6501   02 0136E    32500004 A   TST321   LW,5     4
     6502   02 0136F    2550007E A            SLS,5    -2
     6503   02 01370    4B500001 A            AND,5    1                 TEST BINARY/EBCDIC BIT
     6504   02 01371    68301374              BEZ      %+3               B: BINARY ORDER
     6505   02 01372    75401558              STB,4    T3IOCD1           STORE ORDER IN IOCD
     6506   02 01373    680012CC              B        TST30EX           GO BUILD PATTERN
     6507   02 01374    7540155E              STB,4    T3IOCD2           STORE ORDER IN IOCD
     6508   02 01375    6800133D              B        TST31EX           GO BUILD PATTERN
     6509                            *
     6510   02 01376    32400203 A   TST3265  LW,4     :P3               LOAD ORDER
     6511   02 01377    225FFFEC A            LI,5     -20               SEARCH TABLE
     6512   02 01378    714A1E95              CB,4     ORD7165+5,5         FOR VALID ORDER
     6513   02 01379    6830137C              BE       TST322            B: MATCH FOUND
     6514   02 0137A    65501378              BIR,5    %-2               B: NOT DONE YET
     6515   02 0137B    6800136C              B        TST32E1           GO REPORT ERROR
     6516                            *
     6517   02 0137C    22500040 A   TST322   LI,5     X'40'             TEST FOR INTERRUPT AT
     6518   02 0137D    45400005 A            CS,4     5                   DATA TRANSMISSION COMPLETE
     6519   02 0137E    69301381              BNE      %+3               B: NO
     6520   02 0137F    32F00D6A              LW,15    T45XPSD           SET UP
     6521   02 01380    35F0005C A            STW,15   X'5C'               INTERRUPT HANDLER
     6522   02 01381    22500004 A            LI,5     X'4'              TEST FOR
     6523   02 01382    45400005 A            CS,4     5                   BINARY/EBCDIC ORDER
     6524   02 01383    68301386              BE       %+3               B: EBCDIC ORDER
     6525   02 01384    75401588              STB,4    T3IOCD13          MODEL 7165 BINARY ORDER
     6526   02 01385    6800133D              B        TST31EX           GO BUILD PATTERN
     6527   02 01386    75401586              STB,4    T3IOCD12          MODEL 7165 EBCDIC ORDER                  A&2
     6528   02 01387    680012CC              B        TST30EX           GO BUILD PATTERN                         A&2
     6529                            *
     6530                            *
     6531   02 01388    0212320A A   RORDTBL  DATA     X'0212320A'       VALID
     6532   02 01389    1A3A0616 A            DATA     X'1A3A0616'         READ
     6533   02 0138A    360E1E3E A            DATA     X'360E1E3E'           ORDERS
     6534   02 0138B    00000000 A            DATA     0
     6535                            *
     6536   02 0138C    32400203 A   TST32CR  LW,4     :P3               LOAD ORDER
     6537   02 0138D    225FFFF0 A            LI,5     -16               SEARCH TABLE
     6538   02 0138E    714A138C              CB,4     RORDTBL+4,5         FOR VALID ORDER
     6539   02 0138F    68301393              BE       TST32R1           B: MATCH FOUND
     6540   02 01390    6550138E              BIR,5    %-2               B: NOT DONE YET
     6541   02 01391    3530030A A            STW,3    :PIT10            SET PARAMETER 3 IN ERROR
     6542   02 01392    680012B2              B        TST3A             REPORT ERROR
     6543   02 01393    32500004 A   TST32R1  LW,5     4
     6544   02 01394    2550007E A            SLS,5    -2
     6545   02 01395    4B500001 A            AND,5    1                 TEST BINARY/EBCDIC BIT
     6546   02 01396    68301399              BEZ      %+3               B: BINARY
     6547   02 01397    75401582              STB,4    T3IOCD10          STORE ORDER IN IOCD
     6548   02 01398    680012CC              B        TST30EX           GO BUILD PATTERN
     6549   02 01399    75401584              STB,4    T3IOCD11          STORE ORDER IN IOCD
     6550   02 0139A    6800133D              B        TST31EX           GO BUILD PATTERN
     6551                            *                                                                      *
     6552                            *                                                                      *
     6553                            *             *** TST3,3 - PUNCH MATRIX ***                            *
     6554                            *                                                                      *
     6555                            * CARDS ARE PUNCHED WITH SELECTABLE PUNCH POSITION(S).                 *
     6556                            *                                                                      *
     6557                            *    P2 - ROW NUMBER  (0<=P2<=13, 10 EXCLUDED)                         *
     6558                            *         P2= 0 PUNCH ROW 0                                            *
     6559                            *         .                                                            *
     6560                            *         .                                                            *
     6561                            *         P2=12 PUNCH ROW 12                                           *
     6562                            *         P2=13 PUNCH ALL ROWS                                         *
     6563                            *                                                                      *
     6564                            *    P3 - COLUMN NUMBER (0<=P3<=80)                                    *
     6565                            *         P3=0 PUNCH ALL COLUMNS                                       *
     6566                            *         P3=1 PUNCH COLUMN 1                                          *
     6567                            *         .                                                            *
     6568                            *         .                                                            *
     6569                            *         P3=80 PUNCH COLUMN 80                                        *
     6570                            *                                                                      *
     6571                            *    P4 IS NOT USED.                                                   *
     6572                            *                                                                      *
     6573                            * EXAMPLES: TST3,3,1,1 - PUNCH CARDS WITH A PUNCH AT ROW 1, COLUMN 1   *
     6574                            *           TST3,3,13,2 - PUNCH CARDS WITH PUNCHES IN ALL
     6575                            *                         ROWS OF COLUMN 2
     6576                            *                                                            COLUMN 2  *
     6577                            *                                                                      *
     6578   02 0139B    6AF01590     TST33    BAL,15   TST3R1            SET UP PUNCH IOCD'S
     6579   02 0139C    6AF0150F              BAL,15   LDPADR            LOAD PUNCH ADDRESS
     6580   02 0139D    32500202 A            LW,5     :P2               PARAMETER P2
     6581   02 0139E    21500010 A            CI,5     X'10'             ROW 10 ENTERED
     6582   02 0139F    693013A2              BNE      %+3               B: NO
     6583   02 013A0    3520030A A   TST33P2E STW,2    :PIT10
     6584   02 013A1    680012B2              B        TST3A             REPORT PARAMETER 2 ERROR
     6585   02 013A2    691013AD              BL       TST33ROW-1        B: ROW 0-9 ENTERED
     6586   02 013A3    205FFFF0 A            AI,5     -16               SUBTRACT X'10'
     6587   02 013A4    31500003 A            CW,5     3                 P2 .GT. 13
     6588   02 013A5    692013A0              BG       TST33P2E          B: YES - REPORT P2 ERROR
     6589   02 013A6    683013AB              BE       %+5               B: 13 ENTERED
     6590   02 013A7    205FFFFF A            AI,5     -1
     6591   02 013A8    692013AE              BCS,2    TST33ROW          B: ROW 12 ENTERED
     6592   02 013A9    22500002 A            LI,5     2
     6593   02 013AA    680013AE              B        TST33ROW          B: ROW 11 ENTERED
     6594   02 013AB    22500000 A            LI,5     0                 ROW 13 ENTERED
     6595   02 013AC    680013AE              B        TST33ROW          PUNCH ALL ROWS
     6596   02 013AD    20500003 A            AI,5     3                 FOR ROWS 0-9 ONLY
     6597   02 013AE    355013EA     TST33ROW STW,5    TST33P2           SAVE ROW POINTER
     6598   02 013AF    32500203 A   TST331   LW,5     :P3               PARAMETER P3
     6599   02 013B0    6AF013E4              BAL,15   TST337            CONVERT TO BINARY
     6600   02 013B1    355013EB              STW,5    TST33P3           SAVE
     6601   02 013B2    21500050 A            CI,5     80                TEST FOR LIMIT
     6602   02 013B3    682013B6              BLE      TST332            OK
     6603   02 013B4    3530030A A            STW,3    :PIT10            ERROR: P3 > 80
     6604   02 013B5    680012B2              B        TST3A             GO TO REPORT
     6605   02 013B6    226FFFB0 A   TST332   LI,6     -80
     6606   02 013B7    22700000 A            LI,7     0
     6607   02 013B8    357C1FE6              STW,7    TABLE1+80,6       CLEAR TABLE
     6608   02 013B9    656013B8              BIR,6    %-1
     6609   02 013BA    324013EA              LW,4     TST33P2           ROW
     6610   02 013BB    4B401E98              AND,4    K7F               SIGMA 9 SHIFT PROBLEM
     6611   02 013BC    683013C6              BEZ      TST333            ROW = 0
     6612   02 013BD    325013EB              LW,5     TST33P3           COLUMN
     6613   02 013BE    683013CC              BEZ      TST334            COL = 0
     6614   02 013BF    38500001 A            SW,5     1                 COL-1
     6615   02 013C0    3A400004 A            LCW,4    4                 -(ROW) = BIT SHIFT COUNT
     6616   02 013C1    4B401E98              AND,4    K7F
     6617   02 013C2    22601000 A            LI,6     X'1000'           BIT
     6618   02 013C3    A5600004 A            SLS,6    *4                ADJUST BIT
     6619   02 013C4    356A1F96              STW,6    TABLE1,5          SAVE BIT
     6620   02 013C5    680013D9              B        TST336            GO TO PUNCH
     6621   02 013C6    32500005 A   TST333   LW,5     5                 COLUMN
     6622   02 013C7    683013D4              BEZ      TST335            COL = 0
     6623   02 013C8    38500001 A            SW,5     1                 COL-1
     6624   02 013C9    22600FFF A            LI,6     X'FFF'            BITS
     6625   02 013CA    356A1F96              STW,6    TABLE1,5          INTER INTO TABLE
     6626   02 013CB    680013D9              B        TST336            GO TO PUNCH
     6627   02 013CC    3A400004 A   TST334   LCW,4    4                 -(ROW)
     6628   02 013CD    4B401E98              AND,4    K7F
     6629   02 013CE    22601000 A            LI,6     X'1000'           BIT
     6630   02 013CF    A5600004 A            SLS,6    *4                ADJUST BIT
     6631   02 013D0    225FFFB0 A            LI,5     -80               INDEX
     6632   02 013D1    356A1FE6              STW,6    TABLE1+80,5       ENTER INTO TABLE
     6633   02 013D2    655013D1              BIR,5    %-1               LOOP TIL COUNT = 0
     6634   02 013D3    680013D9              B        TST336            GO TO PUNCH
     6635   02 013D4    224FFFFF A   TST335   LI,4     -1                ALL 1-BITS
     6636   02 013D5    225FFFE2 A            LI,5     -30
     6637   02 013D6    354A1F92              STW,4    BUFFER+30,5       ENTER INTO BUFFER
     6638   02 013D7    655013D6              BIR,5    %-1               LOOP TIL INDEX = 0
     6639   02 013D8    680013DA              B        %+2               BIPASS COMPACT DATA
     6640   02 013D9    6AF01C81     TST336   BAL,15   COMPACTM          COMPACT DATA
     6641   02 013DA    22400009 A            LI,4     X'09'
     6642   02 013DB    7540155E              STB,4    T3IOCD2           SET ORDER TO X'09'
     6643   02 013DC    CFC0172A              HIO,12   *:DEVADDR         ISSUE AN HIO
     6644   02 013DD    6AF01520              BAL,15   TPMOD             TEST PUNCH MODEL NUMBER
     6645   02 013DE    22000AC4              LI,0     DA(T3IOCD13)      MODEL 7165
     6646   02 013DF    680013E1              B        %+2
     6647   02 013E0    22000AAF              LI,0     DA(T3IOCD2)       MODEL 7160
     6648   02 013E1    6AF01BFB              BAL,15   EXECUTE           PUNCH BINARY (ALT. STKR FOR ERRORS)
     6649   02 013E2    6800151B              B        RETRYT3           TEST FOR RETRY
     6650   02 013E3    6800151B              B        RETRYT3           TEST FOR RETRY
     6651                            *
     6652   02 013E4    22400000 A   TST337   LI,4     0                 CONVERT VALUE TO BINARY
     6653   02 013E5    2540037C A            SCD,4    -4
     6654   02 013E6    2350000A A            MI,5     10
     6655   02 013E7    25400204 A            SCS,4    4
     6656   02 013E8    30500004 A            AW,5     4
     6657   02 013E9    E800000F A            B        *15               EXIT
     6658   02 013EA    00000000 A   TST33P2  DATA     0
     6659   02 013EB    00000000 A   TST33P3  DATA     0
     6660                            *
     6661                            *
     6662                            *                                                                      *
     6663                            *             *** TST3,4 - PUNCH/READ SPEED TEST ***                   *
     6664                            *                                                                      *
     6665                            * DETERMINES PUNCH SPEED BY PUNCHING 31 CARDS AND AVERAGING THE        *
     6666                            * SPEED OVER ONE MINUTE.                                               *
     6667                            *                                                                      *
     6668                            * P3 THRU P4 ARE NOT USED.                                             *
     6669                            *                                                                      *
     6670   02 013EC    31200202 A   TST34    CW,2     :P2               READER SELECTED ?
     6671   02 013ED    683013F0              BE       %+3               B: YES
     6672   02 013EE    6AF0150F              BAL,15   LDPADR            LOAD PUNCH ADDRESS
     6673   02 013EF    680013F1              B        %+2
     6674   02 013F0    6AF01517              BAL,15   LDRADR            LOAD READER ADDRESS
     6675   02 013F1    6AF01590              BAL,15   TST3R1            SET UP PUNCH IOCD'S
     6676   02 013F2    32401EFC              LW,4     =X'AAA555AA'      PATTERN
     6677   02 013F3    225FFFE2 A            LI,5     -30               INDEX
     6678   02 013F4    354A1F92              STW,4    BUFFER+30,5       ENTER INTO BUFFER
     6679   02 013F5    25400208 A            SCS,4    +8                ADJUST PATTERN
     6680   02 013F6    655013F4              BIR,5    %-2               LOOP TIL COUNT = 0
     6681   02 013F7    32401539              LW,4     TST3MTW           CTR4 MTW
     6682   02 013F8    35400055 A            STW,4    X'55'             SAVE
     6683   02 013F9    3240153B              LW,4     TST3CTZ           CTR4=0 XPSD
     6684   02 013FA    3540005B A            STW,4    X'5B'             SAVE
     6685   02 013FB    3240105C     TST340   LW,4     MAXPOS            CTR4 COUNT
     6686   02 013FC    3540153A              STW,4    TST3CT            SAVE
     6687   02 013FD    224FFFE1 A            LI,4     -31               PUNCH CARD COUNT
     6688   02 013FE    6AF01752              BAL,15   :DELAYAE          ARM/ENABLE CTR4/CTR4=0 INTERRUPTS
     6689   02 013FF    22500FA0 A            LI,5     4000
     6690   02 01400    64501400              BDR,5    %                 DELAY 6 MSEC
     6691   02 01401    31200202 A            CW,2     :P2               IS THIS A CARD READER ?
     6692   02 01402    68301405              BE       %+3               B: YES
     6693   02 01403    22000AB9              LI,0     DA(T3IOCD6)       LOAD PUNCH IOCD
     6694   02 01404    68001406              B        %+2
     6695   02 01405    22000ABC              LI,0     DA(T3IOCD7)       LOAD READER IOCD
     6696   02 01406    3250153A     TST341   LW,5     TST3CT            START TIME
     6697   02 01407    CCC0172A              SIO,12   *:DEVADDR         PUNCH BINARY
     6698   02 01408    69C01407              BCS,12   %-1               SIO NOT ACCEPTED
     6699   02 01409    CDC0172A              TIO,12   *:DEVADDR         TEST FOR READY
     6700   02 0140A    69C01409              BCS,12   %-1               BUSY
     6701   02 0140B    3850153A              SW,5     TST3CT            START TIME - END TIME
     6702   02 0140C    35581FB5              STW,5    TST3TBL+31,4      SAVE INTABLE
     6703   02 0140D    65401406              BIR,4    TST341            LOOP TIL 30 CARDS PUNCHED
     6704   02 0140E    6AF01756              BAL,15   :DELAYD           DISARM CTR4/CTR4=0 INTER'S
     6705                            *                                   CALCULATE  CPM, MAX PUNCH TIME,
     6706   02 0140F    224FFFE2 A            LI,4     -30               COUNT           MIN PUNCH TIME
     6707   02 01410    22600000 A            LI,6     0                 TOTAL TIME
     6708   02 01411    32A81FB5              LW,10    TST3TBL+31,4      HI VALUE
     6709   02 01412    32B0000A A            LW,11    10                LOW VALUE
     6710   02 01413    30681FB5     TST342   AW,6     TST3TBL+31,4      SUM TOTAL TIME
     6711   02 01414    31A81FB5              CW,10    TST3TBL+31,4      TEST HI VALUE
     6712   02 01415    68101417              BGE      %+2               OK
     6713   02 01416    32A81FB5              LW,10    TST3TBL+31,4      SUBSTITUTE NEW HI VALUE
     6714   02 01417    31B81FB5              CW,11    TST3TBL+31,4      TEST LOW VALUE
     6715   02 01418    6820141A              BLE      %+2               OK
     6716   02 01419    32B81FB5              LW,11    TST3TBL+31,4      SUBSTITUTE NEW LOW VALUE
     6717   02 0141A    65401413              BIR,4    TST342            LOOP TIL TABLE SCANNED
     6718   02 0141B    32501557              LW,5     TST3K             900,000
     6719   02 0141C    36400006 A            DW,4     6                 CARDS/MINUTE
     6720   02 0141D    32C00005 A            LW,12    5
     6721   02 0141E    EAF00217 A            BAL,15   *:DECC            CONVERT TO EBCDIC
     6722   02 0141F    35F01543              STW,15   TST34MG1+3        ENTER INTO MSG
     6723   02 01420    25A00101 A            SLD,10   1                 HI,LOW TIME X 2
     6724   02 01421    32C0000A A            LW,12    10                HI TIME
     6725   02 01422    EAF00217 A            BAL,15   *:DECC            CONVERT TO EBCDIC
     6726   02 01423    35F01548              STW,15   TST34MG1+8        ENTER INTO MSG
     6727   02 01424    32C0000B A            LW,12    11                LOW TIME
     6728   02 01425    EAF00217 A            BAL,15   *:DECC            CONVERT TO EBCDIC
     6729   02 01426    35F0154B              STW,15   TST34MG1+11       ENTER INTO MSG
     6730   02 01427    31200202 A            CW,2     :P2               READER BEING TESTED ?
     6731   02 01428    68301436              BE       TST343            B: YES
     6732   02 01429    EAF0021C A            BAL,15   *:PRINT           'PUNCH SPEED ...'
     6733   02 0142A    0000153C              DATA     TST34MG0
     6734   02 0142B    EAF0021C A   TST344   BAL,15   *:PRINT
     6735   02 0142C    00001540              DATA     TST34MG1
     6736   02 0142D    6800151B              B        RETRYT3           LOOP TO REPEAT
     6737                            *
     6738   02 0142E    00000000 A   TST34CT0 DATA     0,0               PSD
            02 0142F    00000000 A
     6739   02 01430    00001432              DATA     %+2,0
            02 01431    00000000 A
     6740   02 01432    6AF01756              BAL,15   :DELAYD           DISARM CTR4/CTR4=0 INTERS
     6741   02 01433    EAF0021C A            BAL,15   *:PRINT
     6742   02 01434    0000154C              DATA     TST34MG2          'CTR4=0 INTER BEFORE TST3,6 COMPL'
     6743   02 01435    E8000214 A            B        *:MONITOR         RETURN TO MONITOR
     6744                            *
     6745   02 01436    EAF0021C A   TST343   BAL,15   *:PRINT           PRINT:
     6746   02 01437    00001439              DATA     TST34MG3                'READER SPEED:'
     6747   02 01438    6800142B              B        TST344
     6748   02 01439    0DD9C5C1 A   TST34MG3 TEXTC    'READER SPEED:'
            02 0143A    C4C5D940 A
            02 0143B    E2D7C5C5 A
            02 0143C    C47A4040 A
     6749                            *
     6750                            *             *** TST3,5 - PUNCH/READ THEN DELAY ***
     6751                            *
     6752                            * BINARY CARDS WITH RANDOM PATTERNS ARE PUNCHED. THE NUMBER OF CARDS
     6753                            * PUNCHED AND A DELAY AFTER PUNCHING ARE SPECIFIED BY THE OPERATOR.
     6754                            *
     6755                            *    P2 = 1 PUNCH
     6756                            *    P2 = 2 READ
     6757                            *    P3 = NUMBER OF CARDS TO BE PUNCHED
     6758                            *    P4 = DELAY
     6759                            *
     6760   02 0143D    32A00203 A   TST35    LW,10    :P3               R10 = NUMBER OF CARDS
     6761   02 0143E    6AF01AAB              BAL,15   CARDSET1          SET UP EXP AND OBS BUFFERS
     6762   02 0143F    35101A07              STW,1    :CARDBF           FORCE BINARY CARD DISPLAY
     6763   02 01440    6AF0131D              BAL,15   TST3P04           SET UP RANDOM SEEDS
     6764   02 01441    32E015C0              LW,14    :DATAP2
     6765   02 01442    6AF01316              BAL,15   TST3P03           SPREAD RANDOM PATTERN
     6766   02 01443    31200202 A            CW,2     :P2               READ SELECTED
     6767   02 01444    68301454              BE       TST35R            B: YES
     6768   02 01445    6AF0150F              BAL,15   LDPADR            LOAD PUNCH ADDRESS
     6769   02 01446    6AF01520              BAL,15   TPMOD             TEST PUNCH MODEL NUMBER
     6770   02 01447    22000AC4              LI,0     DA(T3IOCD13)      MODEL 7165
     6771   02 01448    6800144A              B        %+2
     6772   02 01449    22000AAF              LI,0     DA(T3IOCD2)       MODEL 7160
     6773   02 0144A    6AF01DCA     TST35P1  BAL,15   PUNCH             ISSUE AN SIO
     6774   02 0144B    6800144E              B        TST35P2           - SUCCESSFUL
     6775   02 0144C    EAF0021C A            BAL,15   *:PRINT           PRINT:
     6776   02 0144D    00001459              DATA     TST35M1             'TST3,5 ERROR'
     6777   02 0144E    64A0144A     TST35P2  BDR,10   TST35P1           B: NOT DONE YET
     6778   02 0144F    32E00204 A            LW,14    :P4               R14 = OPERATOR DELAY
     6779   02 01450    22F00065 A            LI,15    X'65'             APPROX 1 MILLISECOND DELAY
     6780   02 01451    64F01451              BDR,15   %                 DELAY
     6781   02 01452    64E01450              BDR,14   %-2               DELAY
     6782   02 01453    6800151B              B        RETRYT3           TEST FOR RETRY
     6783   02 01454    6AF01517     TST35R   BAL,15   LDRADR            LOAD READER ADDRESS
     6784   02 01455    22000AC2              LI,0     DA(T3IOCD11)
     6785   02 01456    6800144A              B        TST35P1           GO ISSUE SIO
     6786                            *
     6787   02 01457    00010000 A   DELYOMS  DATA     X'00010000'       1 MILLISECOND DELAY
     6788   02 01458    00000000 A   TST35NOC DATA     0                 NUMBER OF CARDS
     6789   02 01459    0CE3E2E3 A   TST35M1  TEXTC    'TST3,5 ERROR'
            02 0145A    F36BF540 A
            02 0145B    C5D9D9D6 A
            02 0145C    D9404040 A
     6790                            *
     6791                            *
     6792   02 0145D    6AF0150F     TST36    BAL,15   LDPADR            LOAD PUNCH ADDRESS
     6793   02 0145E    6AF01590              BAL,15   TST3R1            SET UP PUNCH IOCD'S
     6794   02 0145F    35200426              STW,2    TST1SEF                                           *A02
     6795   02 01460    22500000 A            LI,5     0                 R5 = PUNCH
     6796   02 01461    31100202 A            CW,1     :P2               PUNCH SELECTED
     6797   02 01462    68301468              BE       %+6               B: YES
     6798   02 01463    3520030A A            STW,2    :PIT10            SET PARAMETER 2 IN ERROR
     6799   02 01464    31200202 A            CW,2     :P2               READ SELECTED
     6800   02 01465    693012B2              BNE      TST3A             B: REPORT PARAMETER 2 ERROR
     6801   02 01466    22500001 A            LI,5     1                 R5 = READER
     6802   02 01467    6AF01517              BAL,15   LDRADR            LOAD READER ADDRESS
     6803   02 01468    32400203 A            LW,4     :P3               LOAD TEST PARAMETER 3
     6804   02 01469    68301488              BEZ      TST36ALL          B: DO ALL DECKS
     6805   02 0146A    21400040 A            CI,4     X'40'             PUNCH/READ CHECKERBOARD DECK
     6806   02 0146B    68301477              BE       TST36EXU          B: YES
     6807   02 0146C    20500002 A            AI,5     2                 ADD 2 TO INDEX
     6808   02 0146D    21400048 A            CI,4     X'48'             PUNCH/READ 50-CARD DECK
     6809   02 0146E    68301477              BE       TST36EXU          B: YES
     6810   02 0146F    20500002 A            AI,5     2                 ADD 2 TO INDEX
     6811   02 01470    21400050 A            CI,4     X'50'             PUNCH/READ INVALID EBCDIC CARD
     6812   02 01471    68301477              BE       TST36EXU          B: YES
     6813   02 01472    20500002 A            AI,5     2                 ADD 2 TO INDEX
     6814   02 01473    21400051 A            CI,4     X'51'             PUNCH/READ MODE SWITCHING CARD
     6815   02 01474    68301477              BE       TST36EXU          B: YES
     6816   02 01475    3530030A A            STW,3    :PIT10            SET PARAMETER 3 IN ERROR
     6817   02 01476    680012B2              B        TST3A             REPORT ERROR
     6818                            *
     6819   02 01477    670A1499     TST36EXU EXU      TST36INS,5        PUNCH/READ
     6820   02 01478    EAF0021D A            BAL,15   *:SENSE           GO TEST SENSE SWITCHES
     6821   02 01479    2E001479              WAIT     %                 SSW 3 RESET - WAIT
     6822   02 0147A    68001477              B        TST36EXU          SSW 1 SET   - LOOP ON OPERATION
     6823   02 0147B    31200202 A            CW,2     :P2               WAS THIS A READ OPERATION
     6824   02 0147C    E8300214 A            BE       *:MONITOR         B: YES - RETURN TO MONITOR
     6825   02 0147D    6AF01DDC              BAL,15   PBLANK            PUNCH A BLANK CARD
     6826   02 0147E    E8000214 A            B        *:MONITOR         RETURN TO MONITOR
     6827   02 0147F    EAF0021C A            BAL,15   *:PRINT           PRINT:
     6828   02 01480    00001482              DATA     TST3EM1             'BLANK END CARD ERROR'
     6829   02 01481    E8000214 A            B        *:MONITOR         RETURN TO MONITOR
     6830                            *
     6831   02 01482    14C2D3C1 A   TST3EM1  TEXTC    'BLANK END CARD ERROR'
            02 01483    D5D240C5 A
            02 01484    D5C440C3 A
            02 01485    C1D9C440 A
            02 01486    C5D9D9D6 A
            02 01487    D9404040 A
     6832                            *
     6833   02 01488    670A1499     TST36ALL EXU      TST36INS,5        PUNCH/READ CHECKERBOARD DECK
     6834   02 01489    20500002 A            AI,5     2
     6835   02 0148A    670A1499              EXU      TST36INS,5        PUNCH/READ 50-CARD DECK
     6836   02 0148B    20500002 A            AI,5     2
     6837   02 0148C    670A1499              EXU      TST36INS,5        PUNCH/READ INVALID EBCDIC CODE CARD
     6838   02 0148D    20500002 A            AI,5     2
     6839   02 0148E    670A1499              EXU      TST36INS,5        PUNCH/READ MODE SWITCHING CARD
     6840   02 0148F    EAF0021D A            BAL,15   *:SENSE           GO TEST SENSE SWITCHES
     6841   02 01490    2E001490              WAIT     %                 SSW 3 RESET - WAIT
     6842   02 01491    6800145D              B        TST36             SSW 1 SET - LOOP ON OPERATION  *A02
     6843   02 01492    31200202 A            CW,2     :P2               WAS THIS A READ OPERATION
     6844   02 01493    E8300214 A            BE       *:MONITOR         B: YES - RETURN TO MONITOR
     6845   02 01494    6AF01DDC              BAL,15   PBLANK            PUNCH A BLANK CARD
     6846   02 01495    E8000214 A            B        *:MONITOR         B: NO ERRORS - RETURN TO MONITOR
     6847   02 01496    EAF0021C A            BAL,15   *:PRINT           PRINT:
     6848   02 01497    00001482              DATA     TST3EM1             'BLANK END CARD ERROR'
     6849   02 01498    E8000214 A            B        *:MONITOR         RETURN TO MONITOR
     6850                            *
     6851   02 01499    6AF00C4B     TST36INS BAL,15   TST140            PUNCH CHECKERBOARD DECK
     6852   02 0149A    6AF00C72              BAL,15   TST141            READ CHECKERBOARD DECK
     6853   02 0149B    6AF00D84              BAL,15   TST148            PUNCH 50-CARD DECK
     6854   02 0149C    6AF00E74              BAL,15   TST149            READ 50-CARD DECK
     6855   02 0149D    6AF014A1              BAL,15   PINVC             PUNCH INVALID EBCDIC CODE CARD
     6856   02 0149E    6AF00EC2              BAL,15   TST150            READ INVALID EBCDIC CODE CARD
     6857   02 0149F    6AF014B2              BAL,15   PMSC              PUNCH MODE SWITCHING CARD
     6858   02 014A0    6AF00EFD              BAL,15   TST151            READ MODE SWITCHING CARD
     6859                            *
     6860                            *
     6861   02 014A1    02200000 A   PINVC    LCI      0                 SAVE REG. 0-15 IN PUBLIC
     6862   02 014A2    0B001E4A              PSM,0    PSTACK              'PUSH-DOWN' STACK
     6863   02 014A3    6AF0150F              BAL,15   LDPADR            LOAD PUNCH ADDRESS
     6864   02 014A4    6AF01520              BAL,15   TPMOD             TEST PUNCH MODEL NUMBER
     6865   02 014A5    22000AC0              LI,0     DA(T3IOCD9)       MODEL 7165
     6866   02 014A6    680014A8              B        %+2
     6867   02 014A7    22000ABD              LI,0     DA(T3IOCD8)       MODEL 7160
     6868   02 014A8    6AF01DCA              BAL,15   PUNCH             PUNCH THE CARD
     6869   02 014A9    68001087              B        POP15             - SUCCESSFUL
     6870   02 014AA    EAF0021C A            BAL,15   *:PRINT           PRINT:
     6871   02 014AB    000014AD              DATA     PINVCMSG          'TST36 PUNCH ERROR'
     6872   02 014AC    68001087              B        POP15             RETURN
     6873   02 014AD    11E3E2E3 A   PINVCMSG TEXTC    'TST36 PUNCH ERROR'
            02 014AE    F3F640D7 A
            02 014AF    E4D5C3C8 A
            02 014B0    40C5D9D9 A
            02 014B1    D6D94040 A
     6874                            *
     6875                            *
     6876   02 014B2    02200000 A   PMSC     LCI      0                 SAVE REG. 0-15 IN PUBLIC
     6877   02 014B3    0B001E4A              PSM,0    PSTACK              'PUSH-DOWN' STACK
     6878   02 014B4    6AF0107A              BAL,15   CLRBUF            CLEAR (BUFFER)
     6879   02 014B5    22F00018 A            LI,15    X'18'
     6880   02 014B6    75F01F74              STB,15   BUFFER            PUNCH COLUMNS 1 & 2
     6881   02 014B7    6AF0150F              BAL,15   LDPADR            LOAD PUNCH ADDRESS
     6882   02 014B8    6AF01520              BAL,15   TPMOD             TEST PUNCH MODEL NUMBER
     6883   02 014B9    22000AC4              LI,0     DA(T3IOCD13)      MODEL 7165
     6884   02 014BA    680014BC              B        %+2
     6885   02 014BB    220007FC              LI,0     DA(IOCD33)        MODEL 7160
     6886   02 014BC    6AF01DCA              BAL,15   PUNCH             PUNCH THE CARD
     6887   02 014BD    68001087              B        POP15             - SUCCESSFUL
     6888   02 014BE    EAF0021C A            BAL,15   *:PRINT           PRINT:
     6889   02 014BF    000014AD              DATA     PINVCMSG          'TST36 PUNCH ERROR'
     6890   02 014C0    68001087              B        POP15             RETURN
     6891                            *
     6892   02 014C1    EAF0021C A   DEVERR   BAL,15   *:PRINT           PRINT:
     6893   02 014C2    000014C4              DATA     DEVERMSG          'INCORRECT DEVICE TYPE'
     6894   02 014C3    E8000214 A            B        *:MONITOR         RETURN TO THE MONITOR
     6895                            *
     6896   02 014C4    15C9D5C3 A   DEVERMSG TEXTC    'INCORRECT DEVICE TYPE'
            02 014C5    D6D9D9C5 A
            02 014C6    C3E340C4 A
            02 014C7    C5E5C9C3 A
            02 014C8    C540E3E8 A
            02 014C9    D7C54040 A
     6897   02 014CA    31200202 A   TST37    CW,2     :P2               READ SELECTED ?
     6898   02 014CB    683014EE              BE       TST37R            B: YES
     6899   02 014CC    32E00203 A            LW,14    :P3               R14 = 12 BIT SEED
     6900   02 014CD    6AF0150F              BAL,15   LDPADR            LOAD PUNCH ADDRESS
     6901   02 014CE    25E00014 A            SLS,14   20                TO MS 12 BIT POSITIONS
     6902   02 014CF    22400000 A            LI,4     0                 RESET BYTE INDEX
     6903   02 014D0    35E00006 A   TST371   STW,14   6                 R6 = 12 BIT CODE
     6904   02 014D1    6AF014EA              BAL,15   SHIFT14           SHIFT R14 LEFT 1 PLACE
     6905   02 014D2    35E00007 A            STW,14   7                 R7 = 12 BIT CODE SHIFTED 1 PLACE
     6906   02 014D3    6AF014EA              BAL,15   SHIFT14           SHIFT R14 LEFT 1 PLACE
     6907   02 014D4    25700274 A            SCS,7    -12               SHIFT R7 RIGHT 12 PLACES
     6908   02 014D5    49600007 A            OR,6     7                 MERGE R7 INTO R6
     6909   02 014D6    225FFFFD A            LI,5     -3
     6910   02 014D7    25600208 A            SCS,6    8                 SHIFT R6 LEFT 8 PLACES
     6911   02 014D8    75681F74              STB,6    BUFFER,4          STORE BYTE IN BUFFER
     6912   02 014D9    20400001 A            AI,4     1                 INCR BYTE COUNT
     6913   02 014DA    655014D7              BIR,5    %-3               B: NOT 3 BYTES YET
     6914   02 014DB    21400078 A            CI,4     120               120 BYTES STORED ?
     6915   02 014DC    691014D0              BL       TST371            B: NO
     6916                            *
     6917   02 014DD    6AF01520              BAL,15   TPMOD             TEST PUNCH MODEL NUMBER
     6918   02 014DE    22000AC4              LI,0     DA(T3IOCD13)      MODEL 7165
     6919   02 014DF    680014E1              B        %+2
     6920   02 014E0    22000AAF              LI,0     DA(T3IOCD2)       MODEL 7160
     6921   02 014E1    6AF01DCA              BAL,15   PUNCH             PUNCH THE CARD
     6922   02 014E2    6800151B              B        RETRYT3           - SUCCESSFUL
     6923   02 014E3    EAF0021C A            BAL,15   *:PRINT           PRINT:
     6924   02 014E4    000014E6              DATA     TST37MSG          'TST36 PUNCH ERROR'
     6925   02 014E5    6800151B              B        RETRYT3           TEST FOR RETRY
     6926   02 014E6    0CE3E2E3 A   TST37MSG TEXTC    'TST3,7 ERROR'
            02 014E7    F36BF740 A
            02 014E8    C5D9D9D6 A
            02 014E9    D9404040 A
     6927   02 014EA    25E00001 A   SHIFT14  SLS,14   1                 SHIFT R14 LEFT 1 PLACE
     6928   02 014EB    E880000F A            BCR,8    *15               B: NO OVERFLOW
     6929   02 014EC    30E01EFD              AW,14    =X'00100000'      ADD IN 'END AROUND' BIT
     6930   02 014ED    E800000F A            B        *15               RETURN
     6931                            *
     6932                            *
     6933   02 014EE    6AF01517     TST37R   BAL,15   LDRADR            LOAD READER ADDRESS
     6934   02 014EF    75201570              STB,2    T3IOCD5           SET UP READ ORDER
     6935   02 014F0    22000AB8              LI,0     DA(T3IOCD5)       SET UP IOCD
     6936   02 014F1    6AF01BFB              BAL,15   EXECUTE           READ BINARY CARD
     6937   02 014F2    680014F4              B        TST37R1           - SUCCESSFUL
     6938   02 014F3    6800151B              B        RETRYT3           TEST FOR RETRY
     6939   02 014F4    32E01FEA     TST37R1  LW,14    BUFFER2           LOAD 1ST WORD
     6940   02 014F5    25E0026C A            SCS,14   -20
     6941   02 014F6    4BE01E9D              AND,14   KFFF              R14 = CARD SEED
     6942   02 014F7    6AF01500              BAL,15   TST37SR           SET UP SHIFTED PATTERN
     6943   02 014F8    22E01F74              LI,14    BUFFER
     6944   02 014F9    35E01A05              STW,14   :CARDEXP          SET UP EXP ADDRESS
     6945   02 014FA    22E01FEA              LI,14    BUFFER2
     6946   02 014FB    35E01A06              STW,14   :CARDOBS          SET UP OBS ADDRESS
     6947   02 014FC    35101A07              STW,1    :CARDBF           FORCE BINARY CARD DISPLAY
     6948   02 014FD    6AF01959              BAL,15   :CARDISP          DISPLAY CARD
     6949   02 014FE    6800151B              B        RETRYT3           - SUCCESSFUL
     6950   02 014FF    6800151B              B        RETRYT3           - ERROR RETURN
     6951                            *
     6952   02 01500    09F01E4A     TST37SR  PSW,15   PSTACK            SAVE RETURN ADDRESS IN STACK
     6953   02 01501    22400000 A            LI,4     0                 RESET INDEX
     6954   02 01502    35E81F96              STW,14   TABLE1,4          STORE (R14) IN (TABLE1)
     6955   02 01503    6AF01509              BAL,15   SHFT14            SHIFT R14 LEFT 1 PLACE
     6956   02 01504    20400001 A            AI,4     1                 INCR INDEX
     6957   02 01505    21400050 A            CI,4     80
     6958   02 01506    69101502              BL       %-4               B: NOT DONE YET
     6959   02 01507    6AF01C81              BAL,15   COMPACTM          COMPACT DATA
     6960   02 01508    6800039D              B        POP               RETURN
     6961                            *
     6962   02 01509    25E00001 A   SHFT14   SLS,14   1                 SHIFT R14 LEFT 1 PLACE
     6963   02 0150A    21E01000 A            CI,14    X'1000'           OVERFLOW ?
     6964   02 0150B    E910000F A            BL       *15               B: NO - RETURN
     6965   02 0150C    4BE01E9D              AND,14   KFFF              MASK
     6966   02 0150D    20E00001 A            AI,14    1                 INCR (R14)
     6967   02 0150E    E800000F A            B        *15               RETURN
     6968                            *
     6969                            *                 LDPADR - LOAD PUNCH ADDRESS
     6970   02 0150F    09F01E4A     LDPADR   PSW,15   PSTACK            SAVE RETURN ADDRESS IN STACK
     6971   02 01510    3510038F              STW,1    CURREPTR          SET CURRENT ENVIR PTR = 1
     6972   02 01511    32F0033A              LW,15    PUNCHADR          LOAD PUNCH ADDRESS
     6973   02 01512    CFC0172A              HIO,12   *:DEVADDR         ISSUE AN HIO
     6974   02 01513    35F0172A              STW,15   :DEVADDR
     6975   02 01514    6AF018D1              BAL,15   :INTD             DISARM IO INTERRUPTS
     6976   02 01515    CFC0172A              HIO,12   *:DEVADDR         ISSUE AN HIO
     6977   02 01516    6800039D              B        POP               RETURN
     6978                            *                 LDRADR - LOAD READER ADDRESS
     6979   02 01517    09F01E4A     LDRADR   PSW,15   PSTACK            SAVE RETURN ADDRESS IN STACK
     6980   02 01518    3530038F              STW,3    CURREPTR          SET CURRENT ENVIR PTR = 3
     6981   02 01519    32F0033D              LW,15    READRADR          LOAD READER ADDRESS
     6982   02 0151A    68001512              B        LDPADR+3
     6983                            *
     6984                            *                 RETRYT3 - RETRY TST3(IO INTR NOT REC'V)
     6985                            *
     6986   02 0151B    CFC0172A     RETRYT3  HIO,12   *:DEVADDR         ISSUE AN HIO
     6987   02 0151C    EAF0021D A            BAL,15   *:SENSE           GO TEST SENSE SWITCHES
     6988   02 0151D    2E00151D              WAIT     %                 SSW 3 RESET - WAIT
     6989   02 0151E    680012A6              B        TST3              SSW 1 SET   - RETURN TO START
     6990   02 0151F    E8000214 A            B        *:MONITOR         SSW 1 RESET - RETURN TO MONITOR
     6991                            *
     6992   02 01520    09F01E4A     TPMOD    PSW,15   PSTACK            SAVE RETURN ADDRESS IN STACK
     6993   02 01521    22F01BF8 A            LI,15    7160
     6994   02 01522    31F00338              CW,15    PUNCHMOD          IS THIS A MODEL 7160 ?
     6995   02 01523    68301525              BE       %+2               B: YES - TAKE EXIT + 2
     6996   02 01524    6800039D              B        POP               MODEL 7165 - EXIT
     6997   02 01525    B3201E4A              MTW,2    *PSTACK
     6998   02 01526    6800039D              B        POP               TAKE EXIT + 2
     6999                            *
     7000   02 01527    32400202 A   TST3P24  LW,4     :P2               TEST FOR P2 THRU P4 = 0
     7001   02 01528    6830152B              BEZ      %+3
     7002   02 01529    3520030A A            STW,2    :PIT10
     7003   02 0152A    680012B2              B        TST3A
     7004   02 0152B    32400203 A            LW,4     :P3
     7005   02 0152C    6830152F              BEZ      %+3
     7006   02 0152D    3530030A A            STW,3    :PIT10
     7007   02 0152E    680012B2              B        TST3A
     7008   02 0152F    32400204 A            LW,4     :P4
     7009   02 01530    E830000F A            BEZ      *15
     7010   02 01531    22400004 A            LI,4     4
     7011   02 01532    3540030A A            STW,4    :PIT10
     7012   02 01533    680012B2              B        TST3A
     7013                            *
     7014   02 01534    00000000 A   TST3CB   DATA     0                 CURRENT BYTE
     7015   02 01535    00000000 A   TST3CI   DATA     0                 CURRENT INCREMENT
     7016   02 01536    00000000 A   TST3F    DATA     0                 FINISH FLAG
     7017   02 01537    00000000 A   TST3X    DATA     0                 RETURN ADDR
     7018   02 01538    00027100 A   TST3DT   DATA     160000            DELAY TIME (READ)
     7019   02 01539    33F0153A     TST3MTW  MTW,-1   TST3CT
     7020   02 0153A    00000000 A   TST3CT   DATA     0
     7021   02 0153B    0F00142E     TST3CTZ  XPSD,0   TST34CT0
     7022   02 0153C    0CD7E4D5 A   TST34MG0 TEXTC    'PUNCH SPEED:'
            02 0153D    C3C840E2 A
            02 0153E    D7C5C5C4 A
            02 0153F    7A404040 A
     7023   02 01540    2FC3C1D9 A   TST34MG1 TEXTC 'CARDS/MIN =XXXX MS/CARD: MAX.= XXXX  MIN.= XXXX'
            02 01541    C4E261D4 A
            02 01542    C9D5407E A
            02 01543    E7E7E7E7 A
            02 01544    40D4E261 A
            02 01545    C3C1D9C4 A
            02 01546    7A40D4C1 A
            02 01547    E74B7E40 A
            02 01548    E7E7E7E7 A
            02 01549    4040D4C9 A
            02 0154A    D54B7E40 A
            02 0154B    E7E7E7E7 A
     7024   02 0154C    29C3E3D9 A   TST34MG2 TEXTC    'CTR4=0 INTER RECD BEFORE TST3,6 COMPLETED'
            02 0154D    F47EF040 A
            02 0154E    C9D5E3C5 A
            02 0154F    D940D9C5 A
            02 01550    C3C440C2 A
            02 01551    C5C6D6D9 A
            02 01552    C540E3E2 A
            02 01553    E3F36BF6 A
            02 01554    40C3D6D4 A
            02 01555    D7D3C5E3 A
            02 01556    C5C44040 A
     7025   02 01557    000DBBA0 A   TST3K    DATA     900000
     7026                            *
     7027                                     BOUND    8
     7028   02 01558    0D007DD0     T3IOCD1  GEN,8,24 X'0D',BA(BUFFER)  EBCDIC (ALT. STK FOR ERR)
     7029   02 01559    2C000050 A            GEN,8,24 X'2C',80          CC,HTE,IUE
     7030   02 0155A    08000AAC              GEN,8,24 X'08',DA(T3IOCD1)
     7031   02 0155B    00000000 A            GEN,8,24 0,0
     7032   02 0155C    80000000 A            GEN,8,24 X'80',0
     7033   02 0155D    00000000 A            GEN,8,24 0,0
     7034   02 0155E    09007DD0     T3IOCD2  GEN,8,24 X'09',BA(BUFFER)  BINARY (ALT. STK FOR ERR)
     7035   02 0155F    2C000078 A            GEN,8,24 X'2C',120         CC,HTE,IUE
     7036   02 01560    08000AAF              GEN,8,24 X'08',DA(T3IOCD2)
     7037   02 01561    00000000 A            GEN,8,24 0,0
     7038   02 01562    80000000 A            GEN,8,24 X'80',0
     7039   02 01563    00000000 A            GEN,8,24 0,0
     7040   02 01564    01007DD0     T3IOCD3  GEN,8,24 X'01',BA(BUFFER)  BINARY (NORM STK SEL)
     7041   02 01565    2C000078 A            GEN,8,24 X'2C',120         CC,HTE,IUE
     7042   02 01566    08000AB2              GEN,8,24 X'08',DA(T3IOCD3)
     7043   02 01567    00000000 A            GEN,8,24 0,0
     7044   02 01568    80000000 A            GEN,8,24 X'80',0
     7045   02 01569    00000000 A            GEN,8,24 0,0
     7046   02 0156A    00007DD0     T3IOCD4  GEN,8,24 X'00',BA(BUFFER)  VARIABLE ORDER / BYTE COUNT
     7047   02 0156B    2C000050 A            GEN,8,24 X'2C',80          CC,HTE,IUE
     7048   02 0156C    08000AB5              GEN,8,24 X'08',DA(T3IOCD4)
     7049   02 0156D    00000000 A            GEN,8,24 0,0
     7050   02 0156E    80000000 A            GEN,8,24 X'80',0
     7051   02 0156F    00000000 A            GEN,8,24 0,0
     7052   02 01570    00007FA8     T3IOCD5  GEN,8,24 0,BA(BUFFER2)     READ (VARIABLE ORDER)
     7053   02 01571    10000078 A            GEN,8,24 X'10',120
     7054   02 01572    09007DD0     T3IOCD6  GEN,8,24 X'09',BA(BUFFER)  PUNCH BINARY (ALT STKR FOR ERRORS)
     7055   02 01573    20000078 A            GEN,8,24 X'20',120
     7056   02 01574    08000AB9              GEN,8,24 X'08',DA(T3IOCD6)
     7057   02 01575    00000000 A            GEN,8,24 0,0
     7058   02 01576    00000000 A            GEN,8,24 X'00',0           STOP
     7059   02 01577    00000000 A            GEN,8,24 0,0
     7060   02 01578    02007FA8     T3IOCD7  GEN,8,24 X'02',BA(BUFFER2)
     7061   02 01579    00000078 A            GEN,8,24 0,120
     7062   02 0157A    01007A90     T3IOCD8  GEN,8,24 X'01',BA(INVC)
     7063   02 0157B    2C000078 A            GEN,8,24 X'2C',120         HTE,IUE,CC
     7064   02 0157C    08000ABD              GEN,8,24 X'08',DA(T3IOCD8) TIC
     7065   02 0157D    00000000 A            GEN,8,24 0,0
     7066   02 0157E    00000000 A            GEN,8,24 0,0               STOP
     7067   02 0157F    10000000 A            GEN,8,24 X'10',0           ICE
     7068   02 01580    01007A90     T3IOCD9  GEN,8,24 X'01',BA(INVC)
     7069   02 01581    1C000078 A            GEN,8,24 X'1C',120         ICE,HTE,IUE
     7070   02 01582    0E007FA8     T3IOCD10 GEN,8,24 X'0E',BA(BUFFER2) READ EBCDIC
     7071   02 01583    1C000050 A            GEN,8,24 X'1C',80          ICE,IUE,HTE
     7072   02 01584    0A007FA8     T3IOCD11 GEN,8,24 X'0A',BA(BUFFER2) READ BINARY
     7073   02 01585    1C000078 A            GEN,8,24 X'1C',120         ICE,IUE,HTE
     7074   02 01586    0D007DD0     T3IOCD12 GEN,8,24 X'0D',BA(BUFFER)  PUNCH EBCDIC
     7075   02 01587    1C000050 A            GEN,8,24 X'1C',80          ICE,IUE,HTE
     7076   02 01588    09007DD0     T3IOCD13 GEN,8,24 X'09',BA(BUFFER)  PUNCH BINARY
     7077   02 01589    1C000078 A            GEN,8,24 X'1C',120         ICE,IUE,HTE
     7078   02 0158A    01007DD0     T3IOCD14 GEN,8,24 X'01',BA(BUFFER)  PUNCH BINARY NORMAL STACKER
     7079   02 0158B    2C000078 A            GEN,8,24 X'2C',120         CC,IUE,HTE
     7080   02 0158C    08000AC5              GEN,8,24 X'08',DA(T3IOCD14)
     7081   02 0158D    00000000 A            GEN,8,24 0,0
     7082   02 0158E    80000000 A            GEN,8,24 X'80',0           STOP
     7083   02 0158F    00000000 A            GEN,8,24 0,0
     7084                            *
     7085   02 01590    09F01E4A     TST3R1   PSW,15   PSTACK            SAVE RETURN ADDRESS IN STACK
     7086   02 01591    22F01BF8 A            LI,15    7160
     7087   02 01592    31F00338              CW,15    PUNCHMOD          IS THIS A MODEL 7160 ?
     7088   02 01593    6930159C              BNE      TST3R12           B: NO
     7089   02 01594    22F00020 A            LI,15    X'20'
     7090   02 01595    75F01573              STB,15   T3IOCD6+1
     7091   02 01596    22F0002C A            LI,15    X'2C'             LOAD CC,HTE,IUE FLAGS
     7092   02 01597    75F01559     TST3R11  STB,15   T3IOCD1+1
     7093   02 01598    75F0155F              STB,15   T3IOCD2+1
     7094   02 01599    75F01565              STB,15   T3IOCD3+1
     7095   02 0159A    75F0156B              STB,15   T3IOCD4+1
     7096   02 0159B    6800039D              B        POP               RETURN
     7097   02 0159C    22F00000 A   TST3R12  LI,15    0
     7098   02 0159D    75F01573              STB,15   T3IOCD6+1
     7099   02 0159E    22F0001C A            LI,15    X'1C'             LOAD HTE,IUE,ICE FLAGS
     7100   02 0159F    68001597              B        TST3R11
     7101                            *
     7102                            *
     7103                            *        *** DATA - DIRECTIVE ***                                      *
     7104                            *                                                                      *
     7105                            * THIS DIRECTIVE ALLOWS THE USER TO DEFINE THE DATA PATTERN TO BE      *
     7106                            * USED WITH THE UTILITY TESTS (TST3,0 AND TST3,1 ONLY).                *
     7107                            *                                                                      *
     7108                            * PARAMETER P1 DETERMINES THE PATTERN TYPE:                            *
     7109                            *                                                                      *
     7110                            *    P1 = 0 - FIXED DATA PATTERN                                       *
     7111                            *             P2 - 8 HEXADECIMAL DIGITS FIXED DATA PATTERN             *
     7112                            *                                                                      *
     7113                            *    P1 = 1 - INCREMENT DATA PATTERN                                   *
     7114                            *             P2 - 8 HEXADECIMAL DIGITS STARTING PATTERN               *
     7115                            *             P3 - 8 HEXADECIMAL DIGITS INCREMENT VALUE                *
     7116                            *                                                                      *
     7117                            *    P1 = 2 - RANDOM DATA PATTERN                                      *
     7118                            *             P2 - 8 HEXADECIMAL DIGITS RANDOM NUMBER SEED             *
     7119                            *                                                                      *
     7120                            * NO OTHER VALUES OF P1 ARE ALLOWED. PARAMETERS 2 AND 3 ARE REQUIRED   *
     7121                            * IF INDICATED ABOVE. (RANGE: 0 <= P2 OR P3 <= FFFFFFFF)               *
     7122                            *                                                                      *
     7123   02 015A0    351015C3     :DATA    STW,1    PARNOERR          SET INITIAL PAR NO
     7124   02 015A1    72820211 A            LB,8     :PSW,1            FETCH PAR COUNT
     7125   02 015A2    31300201 A            CW,3     :P1               COMP 3 TO P1
     7126   02 015A3    681015A9              BGE      :DATA2            B: 3 = > P1
     7127   02 015A4    328015C3     :DATA1   LW,8     PARNOERR
     7128   02 015A5    3580030A A            STW,8    :PIT10            SAVE PAR NO
     7129   02 015A6    EAF00229 A            BAL,15   *:PREPORT         PRINT PARAMETER ERROR
     7130   02 015A7    00000328              DATA     :DIC+8            'DATA'
     7131   02 015A8    E8000214 A            B        *:MONITOR         EXIT TO MONITOR
     7132   02 015A9    21800001 A   :DATA2   CI,8     1
     7133   02 015AA    691015A4              BL       :DATA1            B: PARCNT < 1
     7134   02 015AB    331015C3              MTW,1    PARNOERR          INCR. PAR NO
     7135   02 015AC    31300201 A            CW,3     :P1               COMPARE 3 TO P1
     7136   02 015AD    693015B1              BNE      %+4               B: 3 NE P1
     7137   02 015AE    21800002 A            CI,8     2
     7138   02 015AF    681015A4              BGE      :DATA1            B: PARCNT => 2
     7139   02 015B0    680015BB              B        :DATA3            PARAMETERS OK
     7140   02 015B1    21800002 A            CI,8     2
     7141   02 015B2    691015A4              BL       :DATA1            B: PARCNT < 2
     7142   02 015B3    331015C3              MTW,1    PARNOERR          INCR. PAR NO.
     7143   02 015B4    31100201 A            CW,1     :P1               COMPARE 1 TO P1
     7144   02 015B5    683015B9              BE       %+4               B: 1 = P1
     7145   02 015B6    21800003 A            CI,8     3
     7146   02 015B7    681015A4              BGE      :DATA1            B: PARCNT NE 3
     7147   02 015B8    680015BB              B        :DATA3
     7148   02 015B9    21800003 A            CI,8     3
     7149   02 015BA    693015A4              BNE      :DATA1            B: 3 NE CNT
     7150   02 015BB    02200040 A   :DATA3   LCI      4
     7151   02 015BC    2AA00201 A            LM,R10   :P1               FETCH AND STORE
     7152   02 015BD    2BA015BF              STM,10   :DATAP1               PARAMETERS
     7153   02 015BE    E8000214 A            B        *:MONITOR         EXIT TO MONITOR
     7154                            *
     7155   02 015BF    00000000 A   :DATAP1  DATA     0
     7156   02 015C0    00000000 A   :DATAP2  DATA     0
     7157   02 015C1    00000000 A   :DATAP3  DATA     0
     7158   02 015C2    00000000 A   :DATAP4  DATA     0
     7159   02 015C3    00000000 A   PARNOERR DATA     0
     7160                            *
     7161                            *                                                                      *
     7162                            *             *** LIMIT DIRECTIVE ***                                  *
     7163                            * THIS DIRECTIVE ALLOWS THE USER TO LIMIT PROGRAM OPERATIONS           *
     7164                            *                                                                      *
     7165                            *    P1 = 1  LIMIT COMPARE ERROR PRINTOUT TO P2 LINES.                 *
     7166                            *                                                                      *
     7167                            *    P2 = 2  LIMIT RANDOM EXERCISER RANDOM DELAY TIME BETWEEN          *
     7168                            *            P2 AND P3 MILLISECONDS (WHERE 0<=P2<=P3<=99,999).         *
     7169                            *
     7170   02 015C4    32400201 A   :LIMIT   LW,4     :P1               PARAMETER P1
     7171   02 015C5    21400001 A            CI,4     1
     7172   02 015C6    683015CD              BE       :LIM1             P1=1
     7173   02 015C7    21400002 A            CI,4     2
     7174   02 015C8    683015D6              BE       :LIM3             P1=2
     7175   02 015C9    3510030A A            STW,1    :PIT10            ERROR: P1>2
     7176   02 015CA    EAF00229 A   :LIM0    BAL,15   *:PREPORT         REPORT
     7177   02 015CB    0000032C              DATA     :DIC+12           'LIMT'
     7178   02 015CC    E8000214 A            B        *:MONITOR         RETURN TO MONITOR
     7179   02 015CD    32500203 A   :LIM1    LW,5     :P3               PARAMETER P3
     7180   02 015CE    683015D1              BEZ      %+3               P3=0
     7181   02 015CF    3530030A A   :LIM2    STW,3    :PIT10            ERROR: P3 > 0
     7182   02 015D0    680015CA              B        :LIM0             GO TO REPORT
     7183   02 015D1    32800202 A            LW,8     :P2               PARAMETER P2
     7184   02 015D2    692015D4              BGZ      %+2               P2>0; COMPARE COUNT = P2
     7185   02 015D3    22800FFF A            LI,8     X'FFF'            SET COMPARE COUNT TO MAX
     7186   02 015D4    358015E4              STW,8    :COMPLIM          SAVE
     7187   02 015D5    E8000214 A            B        *:MONITOR         RETURN TO MONITOR
     7188   02 015D6    32500202 A   :LIM3    LW,5     :P2               PARAMETER P2
     7189   02 015D7    31500203 A            CW,5     :P3               P2:P3
     7190   02 015D8    682015DB              BLE      %+3               P2<=P3
     7191   02 015D9    3520030A A            STW,2    :PIT10            ERROR: P2>P3
     7192   02 015DA    680015CA              B        :LIM0             GO TO REPORT
     7193   02 015DB    32600203 A            LW,6     :P3               PARAMETER P3
     7194   02 015DC    2161869F A            CI,6     99999             TEST FOR P3 <= 99,999
     7195   02 015DD    692015CF              BG       :LIM2             ERROR: P3> 99,999
     7196   02 015DE    02200030 A            LCI      3
     7197   02 015DF    2B4015E1              STM,4    :LIMITP1          SAVE P1,P2,P3
     7198   02 015E0    E8000214 A            B        *:MONITOR         RETURN TO MONITOR
     7199                            *
     7200   02 015E1    00000000 A   :LIMITP1 DATA     0
     7201   02 015E2    00000000 A   :LIMITP2 DATA     0
     7202   02 015E3    00000000 A   :LIMITP3 DATA     0
     7203   02 015E4    00000FFF A   :COMPLIM DATA     X'FFF'            COMPARE LIMIT COUNT
     7204                            *
     7205                            *                *** ISSUE SIO, TIO, HIO, TDV, AIO ***
     7206                            *
     7207                            * THE ISSUE SUBROUTINE ISSUES AN SIO, TIO, HIO, TDV, OR AIO TO
     7208                            *  SPECIFIED DEVICE.  STATUS MASK IS COMPARED WITH RETURNED DEVICE
     7209                            *   STATUS, CONDITION CODES.  ERROR CONDITIONS ARE PRINTED.
     7210                            *
     7211                            *       INPUT PARAMETERS:
     7212                            *
     7213                            *
     7214                            *
     7215                            *               <<CALLING SEQUENCE >>
     7216                            *
     7217                            *        BAL,15   (NAME OF SEQUENCE DESIRED; :SIO  :TIO  :HIO :TDV,:AIO)
     7218                            *        DATA     (MASK 0=MASK OUT BIT POSITION, 1=SAVE BIT POSITION
     7219                            *       *              FOR BIT POSITIONS 0-17
     7220                            *       *              BIT POSITION 30 = COMPARE DEV-ADDR <AIO ONLY>
     7221                            *       *              BIT POSITION 31 = IF 1 INHIBIT PRINTING)
     7222                            *        DATA     (EXPECTED STATUS BIT POSITIONS 0-15
     7223                            *       *         (EXPECTED CONDITION CODES 16,17)
     7224                            *        B        (RETURNS HERE IF NO ERROR)
     7225                            *                 (RETURNS HERE IF THERE WAS AN ERROR)
     7226                            *
     7227                            *
     7228                            *
     7229                            *       REGISTERS DISTURBED:
     7230                            *
     7231                            *                 14
     7232                            *
     7233                            *       OUTPUT PARAMETERS:
     7234                            *
     7235                            *         NORMAL EXIT-RETURN ADDRESS
     7236                            *
     7237                            *                 I S S U E  S I O
     7238                            *
     7239   02 015E5    CCC0172A     :SIO     SIO,12   *:DEVADDR         ISSUE SIO
     7240   02 015E6    35D01701              STW,13   :STATUSCC         SAVE STATUS
     7241   02 015E7    74041701              STCF     :STATUSCC,2       SAVE CONDITION CODES
     7242   02 015E8    22E00000 A   :SIO1    LI,14    0                 LOAD TYPE OF OPERATION
     7243   02 015E9    680015FE              B        :STATEST          GO TEST STATUS & CONDITION CODES
     7244                            *
     7245                            *                 I S S U E  T I O
     7246                            *
     7247   02 015EA    CDC0172A     :TIO     TIO,12   *:DEVADDR         ISSUE TIO
     7248   02 015EB    35D01701              STW,13   :STATUSCC         SAVE STATUS
     7249   02 015EC    74041701              STCF     :STATUSCC,2       SAVE CONDITION CODES
     7250   02 015ED    22E00001 A   :TIO1    LI,14    1                 LOAD TYPE OF OPERATION
     7251   02 015EE    680015FE              B        :STATEST          GO TEST STATUS & CONDITION CODES
     7252                            *
     7253                            *                 I S S U E  H I O
     7254                            *
     7255   02 015EF    CFC0172A     :HIO     HIO,12   *:DEVADDR         ISSUE HIO
     7256   02 015F0    35D01701              STW,13   :STATUSCC         SAVE STATUS
     7257   02 015F1    74041701              STCF     :STATUSCC,2       SAVE CONDITION CODES
     7258   02 015F2    22E00002 A   :HIO1    LI,14    2                 LOAD TYPE OF OPERATION
     7259   02 015F3    680015FE              B        :STATEST          GO TEST STATUS & CONDITION CODES
     7260                            *
     7261                            *                 I S S U E  T D V
     7262                            *
     7263   02 015F4    CEC0172A     :TDV     TDV,12   *:DEVADDR         ISSUE TDV
     7264   02 015F5    35D01701              STW,13   :STATUSCC         SAVE STATUS
     7265   02 015F6    74041701              STCF     :STATUSCC,2       SAVE CONDITION CODES
     7266   02 015F7    22E00003 A   :TDV1    LI,14    3                 LOAD TYPE OF OPERATION
     7267   02 015F8    680015FE              B        :STATEST          GO TEST STATUS & CONDITION CODES
     7268                            *
     7269                            *                 I S S U E  A I O
     7270                            *
     7271   02 015F9    6ED00000 A   :AIO     AIO,13   0                 ISSUE AIO
     7272   02 015FA    35D01701              STW,13   :STATUSCC         SAVE STATUS
     7273   02 015FB    74041701              STCF     :STATUSCC,2       SAVE CONDITION CODES
     7274   02 015FC    22E00004 A   :AIO1    LI,14    4                 LOAD TYPE OF OPERATION
     7275   02 015FD    680015FE              B        :STATEST          GO TEST STATUS & CONDITION CODES
     7276                            *
     7277                            *
     7278                            *                 T E S T  F O R  A N Y  E R R O R S
     7279                            *
     7280                            *
     7281   02 015FE    35E01700     :STATEST STW,14   :TYPE             SAVE TYPE OF I/O OPERATION
     7282   02 015FF    35F016FF              STW,15   :IORTN
     7283   02 01600    B2E016FF              LW,14    *:IORTN           FETCH MASK
     7284   02 01601    B2F216FF              LW,15    *:IORTN,1         FETCH EXPECTED STATUS
     7285   02 01602    4BE01EA0              AND,14   KFFFFC0           MASK OUT; PRINT INHIBIT & DEV AD BIT
     7286   02 01603    4BF0000E A            AND,15   14                MASK EXPECTED STATUS
     7287   02 01604    4BE01701              AND,14   :STATUSCC         MASK RECEIVED STATUS TO MASK
     7288   02 01605    31E0000F A            CW,14    15                COMPARE RECEIVED AND EXPECTED STATUS
     7289   02 01606    6930160D              BNE      :CCTEST           IF ERROR GO TEST CONDITION CODES
     7290   02 01607    B12016FF              CW,2     *:IORTN           IS THIS A TEST OF DEV ADDR
     7291   02 01608    E84416FF              BAZ      *:IORTN,2         IF NOT RETURN
     7292   02 01609    32E0000D A            LW,14    13                LOAD RECEIVED STATUS
     7293   02 0160A    4BE01E9C              AND,14   K7FF              MASKOUT ALL BUT DEVICE ADDR
     7294   02 0160B    31E0172A              CW,14    :DEVADDR          COMPARE WITH EXPECTED DEV ADDR
     7295   02 0160C    E83416FF              BE       *:IORTN,2         IF EQUAL RETURN
     7296                            *
     7297   02 0160D    B11016FF     :CCTEST  CW,1     *:IORTN           TEST PRINT INHIBIT BIT
     7298   02 0160E    E94616FF              BANZ     *:IORTN,3         IF SET TAKE ERROR RETURN
     7299   02 0160F    154016F6              STD,4    :REG0405          SAVE REGISTERS 4 & 5
     7300   02 01610    15C016FA              STD,12   :REG1213          SAVE REGISTERS 12 & 13
     7301   02 01611    32C0172A              LW,12    :DEVADDR          LOAD EXPECTED DEVICE ADDRESS
     7302   02 01612    EAF00218 A            BAL,15   *:HEXC            CONVERT EBCDIC
     7303   02 01613    35F016D4              STW,15   :DAERM+6
     7304   02 01614    35F016E4              STW,15   :STATEM1+12       SAVE
     7305   02 01615    70341701              LCF      :STATUSCC,2       LOAD CONDITION CODES
     7306   02 01616    32401700              LW,4     :TYPE             LOAD TYPE OF I/O OPERATION
     7307   02 01617    22500000 A            LI,5     0                 ZERO CC3,4
     7308   02 01618    68C01626              BCR,12   :DEVADER          CC1,2 = 0,0
     7309   02 01619    6880161C              BCR,8    :CCERR1           CC1,2 = 0,1
     7310   02 0161A    68401621              BCR,4    :CCERR2           CC1,2 = 1,0
     7311   02 0161B    68001633              B        :CCERR3           CC1,2 = 1,1
     7312                            *
     7313                            *                 C C 1 , 2  =  0 , 1
     7314                            *
     7315   02 0161C    32581675     :CCERR1  LW,5     :ERRADR1,4        LOAD ADDRESS OF MSG
     7316   02 0161D    3550161F              STW,5    %+2               SAVE ADDRESS OF MSG
     7317   02 0161E    EAF0021C A            BAL,15   *:PRINT           PRINT MSG
     7318   02 0161F    00000000 A            DATA     0
     7319   02 01620    68001626              B        :DEVADER          GO TO TEST DEV ADDR
     7320                            *
     7321                            *                 C C 1 , 2  =  1 , 0
     7322                            *
     7323   02 01621    3258167A     :CCERR2  LW,5     :ERRADR2,4        LOAD ADDRESS OF MSG
     7324   02 01622    35501624              STW,5    %+2               SAVE ADDRESS OF MSG
     7325   02 01623    EAF0021C A            BAL,15   *:PRINT           PRINT MSG
     7326   02 01624    00000000 A            DATA     0
     7327   02 01625    68001630              B        :DEVEXIT          GO TO ERROR EXIT
     7328                            *
     7329                            *                 R E P O R T  D E V - A D D R  I F  I T  E X I S T S
     7330                            *
     7331   02 01626    21400004 A   :DEVADER CI,4     4                 TEST FOR AIO
     7332   02 01627    6930163D              BNE      :STATERR              IF NOT,GO TEST STATUS
     7333   02 01628    32C0000D A            LW,12    13                LOAD DEVICE ADDRESS
     7334   02 01629    4BC01E9E              AND,12   K1FFF             SAVE ONLY DEV ADDR
     7335   02 0162A    31C0172A              CW,12    :DEVADDR          IS IT = TO EXPECTED ADDRESS
     7336   02 0162B    6830163D              BE       :STATERR              GO TO TEST STATUS
     7337   02 0162C    EAF00218 A            BAL,15   *:HEXC            CONVERT TO EBCDIC
     7338   02 0162D    35F016D7              STW,15   :DAERM+9          SAVE IN DEV ERROR MSG
     7339   02 0162E    EAF0021C A            BAL,15   *:PRINT           PRINTOUT DEVICE ADDRESS ERROR
     7340   02 0162F    000016CE              DATA     :DAERM            MESSAGE
     7341   02 01630    124016F6     :DEVEXIT LD,4     :REG0405          RESTORE REG 4 & 5
     7342   02 01631    12C016FA              LD,12    :REG1213          RESTORE REG 12 & 13
     7343   02 01632    E80616FF              B        *:IORTN,3         TAKE ERROR RETURN
     7344                            *
     7345                            *                 C C 1, 2  =  1 , 1
     7346                            *
     7347   02 01633    3258167F     :CCERR3  LW,5     :ERRADR3,4        LOAD ERROR MSG ADDRESS
     7348   02 01634    3550163B              STW,5    :CCPRINT          SAVE ADDRESS OF MESSAGE TO BE PRINTED
     7349   02 01635    22500004 A            LI,5     4                 LOAD INDEX
     7350   02 01636    21400004 A            CI,4     4                 IS THIS AN AIO
     7351   02 01637    6830163A              BE       %+3               IF SO DON'T ADD DEVICE ADDRESS
     7352   02 01638    32C016D4              LW,12    :DAERM+6          LOAD A CONVERTED DEV ADDR
     7353   02 01639    B5CA163B              STW,12   *:CCPRINT,5       SAVE DEVICE ADDRESS
     7354   02 0163A    EAF0021C A            BAL,15   *:PRINT           PRINT ERROR
     7355   02 0163B    00000000 A   :CCPRINT DATA     0
     7356   02 0163C    68001630              B        :DEVEXIT          TAKE ERROR EXIT
     7357                            *
     7358                            *                 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
     7359                            *
     7360   02 0163D    B2E016FF     :STATERR LW,14    *:IORTN           FETCH MASK
     7361   02 0163E    B2F216FF              LW,15    *:IORTN,1         FETCH EXPECTED STATUS
     7362   02 0163F    4BE01EA1              AND,14   KFFFF0            SAVE ONLY STATUS
     7363   02 01640    4BF0000E A            AND,15   14                MASK TO EXPECTED CONDITIONS
     7364   02 01641    4BE01701              AND,14   :STATUSCC         MASK RECEIVED STATUS TO MASK
     7365   02 01642    31E0000F A            CW,14    15                ARE THEY EQUAL
     7366   02 01643    68301630              BE       :DEVEXIT              IF TAKE ERROR EXIT
     7367   02 01644    325816F0              LW,5     :STATTYP,4        LOAD TYPE OF OPERATION
     7368   02 01645    465016D8              XW,5     :STATEM1          SAVE TYPE OF OPERATION AND FETCH BC
     7369   02 01646    72500005 A            LB,5     5                 POSITION BYTE COUNT
     7370   02 01647    755016D8              STB,5    :STATEM1          SAVE MESSAGE BYTE COUNT
     7371   02 01648    EAF0021C A            BAL,15   *:PRINT           PRINT STATUS ERROR HEADER MSG
     7372   02 01649    000016D8              DATA     :STATEM1
     7373   02 0164A    156016F8              STD,6    :REG0607          SAVE REGISTER 6 & 7
     7374                            *
     7375   02 0164B    22600002 A            LI,6     2                 LOAD POINTER
     7376   02 0164C    B27016FF              LW,7     *:IORTN           LOAD MASK
     7377   02 0164D    B2C216FF              LW,12    *:IORTN,1         LOAD EXPECTED STATUS
     7378   02 0164E    68001650              B        %+2               GO TO STATUS MESSAGE BUILDING
     7379                            *
     7380                            *
     7381   02 0164F    32C01701     :STATER1 LW,12    :STATUSCC         LOAD RECEIVED STATUS
     7382   02 01650    25700074 A            SLS,7    -12
     7383   02 01651    25C00074 A            SLS,12   -12               POSITION CC AND STATUS
     7384   02 01652    6AF01666              BAL,15   :BINCOVT          GO TO CONVERT CC
     7385   02 01653    25F00070 A            SLS,15   -16               POSITION CC
     7386   02 01654    55F216ED              STH,15   :STATEM2+8,1      STORE CC IN MSG
     7387   02 01655    22500012 A            LI,5     18                MSG BYTE INDEX=18
     7388   02 01656    22400004 A            LI,4     4                 MINOR INDEX=4
     7389   02 01657    6AF01666              BAL,15   :BINCOVT          CONVERT BINARY TO EBCDIC MASKED
     7390   02 01658    75FA16E8              STB,15   :STATEM2+3,5      STATUS BIT TO ERROR MSG
     7391   02 01659    205FFFFF A            AI,5     -1                BYTE INDEX-1
     7392   02 0165A    25F00078 A            SLS,15   -8                ADJUST CONVERTED STATUS BITS
     7393   02 0165B    64401658              BDR,4    %-3               MINOR INDEX-1 NOT ZERO
     7394   02 0165C    64501656              BDR,5    %-6               BYTE INDEX-1 NOT ZERO
     7395   02 0165D    325C16ED              LW,5     :EXPOBS-1,6       LOAD EITHER 'OBS' OR 'EXP' MSG
     7396   02 0165E    465016E5              XW,5     :STATEM2          SAVE TYPE OF OPERATION & FETCH MG BC
     7397   02 0165F    72500005 A            LB,5     5                 POSITION MSG BYTE COUNT
     7398   02 01660    755016E5              STB,5    :STATEM2          SAVE MESSAGE BYTE COUNT
     7399   02 01661    EAF0021C A            BAL,15   *:PRINT           GO PRINT OUT MSG
     7400   02 01662    000016E5              DATA     :STATEM2
     7401   02 01663    6460164F              BDR,6    :STATER1          IS THERE ANY MSG LEFT
     7402   02 01664    126016F8              LD,6     :REG0607          RESTORE REGISTER 6 & 7
     7403   02 01665    68001630              B        :DEVEXIT          TAKE ERROR EXIT
     7404                            *
     7405                            *
     7406                            *
     7407   02 01666    154016FC     :BINCOVT STD,4    :BIN0405          SAVE REGISTERS 4 & 5
     7408   02 01667    35F016FE              STW,15   :BINRTN           SAVE REGISTER  15
     7409   02 01668    EAF00216 A            BAL,15   *:BINC            GO CONVERT BINARY TO EBCDIC
     7410   02 01669    680C1669              B        %,6               IF IT IS EXPECT MASK
     7411   02 0166A    68001673              B        :BINEXIT          IF IT IS RECEIVED EXIT
     7412   02 0166B    22400003 A   :BINCOT1 LI,4     3                 LOAD INCREMENT POINTER
     7413   02 0166C    225000E7 A            LI,5     'X'               LOAD A 'X'
     7414   02 0166D    2570027F A   :BINCOT2 SCS,7    -1                TEST A BIT
     7415   02 0166E    33000007 A            MTW,0    7                 TEST FOR NEGATIVE
     7416   02 0166F    69101671              BLZ      %+2               IF NEGATIVE,DON'T ADD 'X'
     7417   02 01670    7558000F A            STB,5    15,4              STORE 'X'
     7418   02 01671    204FFFFF A            AI,4     -1                INCREMENT STORAGE POINTER
     7419   02 01672    6810166D              BGEZ     :BINCOT2          GO TO TEST NEXT BYTE
     7420   02 01673    124016FC     :BINEXIT LD,4     :BIN0405          RESTORE REGISTER 4 & 5
     7421   02 01674    E80016FE              B        *:BINRTN          RETURN
     7422                            *
     7423   02 01675    00001684     :ERRADR1 DATA     :CCERM1           ERROR ADDRESS 1-F
     7424   02 01676    00001689              DATA     :CCERM2
     7425   02 01677    0000168F              DATA     :CCERM3
     7426   02 01678    00001695              DATA     :CCERM4
     7427   02 01679    0000169B              DATA     :CCERM5
     7428   02 0167A    000016A0     :ERRADR2 DATA     :CCERM6
     7429   02 0167B    000016A4              DATA     :CCERM7
     7430   02 0167C    000016A8              DATA     :CCERM8
     7431   02 0167D    000016AC              DATA     :CCERM9
     7432   02 0167E    000016B0              DATA     :CCERMA
     7433   02 0167F    000016B4     :ERRADR3 DATA     :CCERMB
     7434   02 01680    000016B9              DATA     :CCERMC
     7435   02 01681    000016BE              DATA     :CCERMD
     7436   02 01682    000016C3              DATA     :CCERME
     7437   02 01683    000016C8              DATA     :CCERMF
     7438   02 01684    10E2C9D6 A   :CCERM1  TEXTC    'SIO-NOT ACCEPTED'
            02 01685    60D5D6E3 A
            02 01686    40C1C3C3 A
            02 01687    C5D7E3C5 A
            02 01688    C4404040 A
     7439   02 01689    14E3C9D6 A   :CCERM2  TEXTC    'TIO-SIO NOT POSSIBLE'
            02 0168A    60E2C9D6 A
            02 0168B    40D5D6E3 A
            02 0168C    40D7D6E2 A
            02 0168D    E2C9C2D3 A
            02 0168E    C5404040 A
     7440   02 0168F    14C8C9D6 A   :CCERM3  TEXTC    'HIO-DEV BUSY AT HALT'
            02 01690    60C4C5E5 A
            02 01691    40C2E4E2 A
            02 01692    E840C1E3 A
            02 01693    40C8C1D3 A
            02 01694    E3404040 A
     7441   02 01695    16E3C4E5 A   :CCERM4  TEXTC    'TDV-CC1,2=01-TEST MODE'
            02 01696    60C3C3F1 A
            02 01697    6BF27EF0 A
            02 01698    F160E3C5 A
            02 01699    E2E340D4 A
            02 0169A    D6C4C540 A
     7442   02 0169B    10C1C9D6 A   :CCERM5  TEXTC    'AIO-UE INTERRUPT'
            02 0169C    60E4C540 A
            02 0169D    C9D5E3C5 A
            02 0169E    D9D9E4D7 A
            02 0169F    E3404040 A
     7443   02 016A0    0CE2C9D6 A   :CCERM6  TEXTC    'SIO-CC1,2=10'
            02 016A1    60C3C3F1 A
            02 016A2    6BF27EF1 A
            02 016A3    F0404040 A
     7444   02 016A4    0CE3C9D6 A   :CCERM7  TEXTC    'TIO-CC1,2=10'
            02 016A5    60C3C3F1 A
            02 016A6    6BF27EF1 A
            02 016A7    F0404040 A
     7445   02 016A8    0CC8C9D6 A   :CCERM8  TEXTC    'HIO-CC1,2=10'
            02 016A9    60C3C3F1 A
            02 016AA    6BF27EF1 A
            02 016AB    F0404040 A
     7446   02 016AC    0CE3C4E5 A   :CCERM9  TEXTC    'TDV-CC1,2=10'
            02 016AD    60C3C3F1 A
            02 016AE    6BF27EF1 A
            02 016AF    F0404040 A
     7447   02 016B0    0CC1C9D6 A   :CCERMA  TEXTC    'AIO-CC1,2=10'
            02 016B1    60C3C3F1 A
            02 016B2    6BF27EF1 A
            02 016B3    F0404040 A
     7448   02 016B4    13E2C9D6 A   :CCERMB  TEXTC    'SIO-NO AR-DEV  XXXX'
            02 016B5    60D5D640 A
            02 016B6    C1D960C4 A
            02 016B7    C5E54040 A
            02 016B8    E7E7E7E7 A
     7449   02 016B9    13E3C9D6 A   :CCERMC  TEXTC    'TIO-NO AR-DEV  XXXX'
            02 016BA    60D5D640 A
            02 016BB    C1D960C4 A
            02 016BC    C5E54040 A
            02 016BD    E7E7E7E7 A
     7450   02 016BE    13C8C9D6 A   :CCERMD  TEXTC    'HIO-NO AR-DEV  XXXX'
            02 016BF    60D5D640 A
            02 016C0    C1D960C4 A
            02 016C1    C5E54040 A
            02 016C2    E7E7E7E7 A
     7451   02 016C3    13E3C4E5 A   :CCERME  TEXTC    'TDV-NO AR-DEV  XXXX'
            02 016C4    60D5D640 A
            02 016C5    C1D960C4 A
            02 016C6    C5E54040 A
            02 016C7    E7E7E7E7 A
     7452   02 016C8    16C1C9D6 A   :CCERMF  TEXTC    'AIO-NO INTERRUPT RECOG'
            02 016C9    60D5D640 A
            02 016CA    C9D5E3C5 A
            02 016CB    D9D9E4D7 A
            02 016CC    E340D9C5 A
            02 016CD    C3D6C740 A
     7453   02 016CE    27C1C9D6 A   :DAERM   TEXTC    'AIO-DEV ADDR ERR: EXP  XXXX   OBS  XXXX'
            02 016CF    60C4C5E5 A
            02 016D0    40C1C4C4 A
            02 016D1    D940C5D9 A
            02 016D2    D97A40C5 A
            02 016D3    E7D74040 A
            02 016D4    E7E7E7E7 A
            02 016D5    404040D6 A
            02 016D6    C2E24040 A
            02 016D7    E7E7E7E7 A
     7454   02 016D8    33404040 A   :STATEM1 TEXTC    '           0123 4567 8901 2345 CC1,2 DEV ADDR   XXX'
            02 016D9    40404040 A
            02 016DA    40404040 A
            02 016DB    F0F1F2F3 A
            02 016DC    40F4F5F6 A
            02 016DD    F740F8F9 A
            02 016DE    F0F140F2 A
            02 016DF    F3F4F540 A
            02 016E0    C3C3F16B A
            02 016E1    F240C4C5 A
            02 016E2    E540C1C4 A
            02 016E3    C4D94040 A
            02 016E4    40E7E7E7 A
     7455   02 016E5    23404040 A   :STATEM2 TEXTC    '    STATUS XXXX XXXX XXXX XXXX   XX'
            02 016E6    40E2E3C1 A
            02 016E7    E3E4E240 A
            02 016E8    E7E7E7E7 A
            02 016E9    40E7E7E7 A
            02 016EA    E740E7E7 A
            02 016EB    E7E740E7 A
            02 016EC    E7E7E740 A
            02 016ED    4040E7E7 A
     7456   02 016EE    40D6C2E2 A   :EXPOBS  TEXT     ' OBS'
     7457   02 016EF    40C5E7D7 A            TEXT     ' EXP'
     7458   02 016F0    40E2C9D6 A   :STATTYP TEXT     ' SIO',' TIO',' HIO',' TDV',' AIO'
            02 016F1    40E3C9D6 A
            02 016F2    40C8C9D6 A
            02 016F3    40E3C4E5 A
            02 016F4    40C1C9D6 A
     7459                                     BOUND    8
     7460   02 016F6    00000000 A   :REG0405 DATA     0,0               STORAGE FOR REGS  4 &  5
            02 016F7    00000000 A
     7461   02 016F8    00000000 A   :REG0607 DATA     0,0               STORAGE FOR REG 6 & 7
            02 016F9    00000000 A
     7462   02 016FA    00000000 A   :REG1213 DATA     0,0               STORAGE FOR REGS 12 & 13
            02 016FB    00000000 A
     7463   02 016FC    00000000 A   :BIN0405 DATA     0,0
            02 016FD    00000000 A
     7464   02 016FE    00000000 A   :BINRTN  DATA     0
     7465   02 016FF    00000000 A   :IORTN   DATA     0                 STORAGE FOR REG  15
     7466   02 01700    00000000 A   :TYPE    DATA     0                 ISSUE TYPE
     7467                            :STATUSCC  ;
     7468   02 01701    00000000 A            DATA     0                 RECEVIED STATUS AND CONDITION CODES
     7469                            *
     7470                            *               *** IO EXECUTE ***
     7471                            *
     7472                            * THE IO EXECUTE SUBROUTINE ISSUES A TIO, SIO TO SPECIFIED DEVICE.
     7473                            *  THE SUBROUTINE LOOPS UPON DETECTION OF STATUS OR CC ERROR.
     7474                            *
     7475                            *       INPUT PARAMETERS:
     7476                            *
     7477                            *         REG 0   -DA(IOCD)
     7478                            *         REG 15  -RETURN ADDRESS
     7479                            *         :DEVADDR-DEVICE ADDRESS
     7480                            *
     7481                            *       REGISTERS DISTURBED:
     7482                            *
     7483                            *         (NONE)
     7484                            *
     7485                            *       OUTPUT PARAMETERS:
     7486                            *
     7487                            *         REG 12-SIO COMMAND ADDRESS
     7488                            *         REG 13-SIO DEVICE STATUS, BYTE COUNT
     7489                            *
     7490                            *       WAIT CONDITION-PROGRAM ENTERS WAIT STATE (1) AFTER UNSUCCESSFUL
     7491                            *                      HIO, IO RESET, TIO SEQUENCE OR (2) IF DEVICE
     7492                            *                      MANUAL CONDITION IS DETECTED.
     7493                            *
     7494   02 01702    35401726     :IOEXEC  STW,R4   :IOSAVE           SAVE REGISTERS 4,11,14,15
     7495   02 01703    35B01727              STW,R11  :IOSAVE+1
     7496   02 01704    15E01728              STD,R14  :IOSAVE+2
     7497   02 01705    6AF015EA     :IOEXEC1 BAL,R15  :TIO              ISSUE TIO
     7498   02 01706    8700C000 A            DATA     X'8700C000'       STATUS MASK
     7499   02 01707    00000000 A            DATA     0                 EXPECTED STATUS
     7500   02 01708    6800170A              B        %+2
     7501   02 01709    68001715              B        :IOERR1           TIO STATUS ERROR
     7502   02 0170A    4BD01EA2              AND,R13  K1000             MASK DEV STATUS FOR AUTO TEST
     7503   02 0170B    68301722              BCR,3    :IOERR2           DEVICE MANUAL ERROR
     7504   02 0170C    6AF015E5              BAL,R15  :SIO              ISSUE SIO
     7505   02 0170D    9700C000 A            DATA     X'9700C000'       STATUS MASK
     7506   02 0170E    10000000 A            DATA     X'10000000'       EXPECTED STATUS
     7507   02 0170F    68001711              B        %+2
     7508   02 01710    68001705              B        :IOEXEC1          SIO STATUS ERROR-LOOP TO ISSUE TIO
     7509   02 01711    32401726              LW,R4    :IOSAVE           RESTORE REGISTERS 4,11,14,15
     7510   02 01712    32B01727              LW,R11   :IOSAVE+1
     7511   02 01713    12E01728              LD,R14   :IOSAVE+2
     7512   02 01714    E800000F A            B        *R15              EXIT
     7513                            *                                   TIO STATUS ERROR
     7514   02 01715    6AF015EF     :IOERR1  BAL,R15  :HIO              ISSUE HIO
     7515   02 01716    10008000 A            DATA     X'10008000'       STATUS MASK
     7516   02 01717    10000000 A            DATA     X'10000000'       EXPECTED STATUS
     7517   02 01718    68001705              B        :IOEXEC1          HIO STATUS ERROR-LOOP TO ISSUE TIO
     7518   02 01719    6D000042 A            WD,0     X'42'             IO RESET
     7519   02 0171A    6D000042 A            WD,0     X'42'
     7520   02 0171B    6AF015EA              BAL,R15  :TIO              ISSUE TIO
     7521   02 0171C    9700C000 A            DATA     X'9700C000'       STATUS MASK
     7522   02 0171D    10000000 A            DATA     X'10000000'       EXPECTED STATUS
     7523   02 0171E    68001705              B        :IOEXEC1          LOOP TO ISSUE TIO
     7524                            *                                   ENTER WAIT STATE
     7525   02 0171F    EAF0022B A   :IOERR1A WAITPROC WAITMSG2          'CLEAR WAIT TO CONTINUE'        *A02
            02 01720    00001EC6
     7526   02 01721    68001705              B        :IOEXEC1          LOOP TO ISSUE TIO
     7527                            *                                   DEVICE MANUAL ERROR
     7528   02 01722    EAF00223 A   :IOERR2  BAL,15   *:TYPRINT         ERROR MESSAGE                   *A01
     7529   02 01723    00001731              DATA     :IOERM2
     7530   02 01724    6800171F              B        :IOERR1A          GO TO WAIT
     7531                            *
     7532                                     BOUND    8
     7533   02 01726                 :IOSAVE  RES      4                 REGISTERS 4,11,14,15
     7534   02 0172A    00000000 A   :DEVADDR DATA     0                 DEVICE ADDRESS
     7535   02 0172B    16C3D3C5 A   :IOERM1  TEXTC    'CLEAR WAIT TO CONTINUE'
            02 0172C    C1D940E6 A
            02 0172D    C1C9E340 A
            02 0172E    E3D640C3 A
            02 0172F    D6D5E3C9 A
            02 01730    D5E4C540 A
     7536   02 01731    0AC4C5E5 A   :IOERM2  TEXTC    'DEV MANUAL'
            02 01732    40D4C1D5 A
            02 01733    E4C1D340 A
     7537                            *
     7538                            *                 *** CLEAR BUFFER ***
     7539                            *
     7540                            * THE CLEAR BUFFER SUBROUTINE CLEARS A SPECIFIED BUFFER AREA.
     7541                            *  BUFFER SIZE SPECIFIED IN NUMBER OF WORDS.
     7542                            *
     7543                            *       INPUT PARAMETERS:
     7544                            *
     7545                            *           REG 15  -RETURN ADDRESS
     7546                            *           :CLRADDR-WA(BUFFER)
     7547                            *           :CLRSIZE-BUFFER WORD SIZE
     7548                            *
     7549                            *       REGISTERS DISTURBED:
     7550                            *
     7551                            *           (NONE)
     7552                            *
     7553                            *       OUTPUT PARAMETERS:
     7554                            *
     7555                            *           (NONE)
     7556                            *
     7557   02 01734    15401742     :CLEAR   STD,R4   :CLRSAVE          SAVE REGISTERS 4-6
     7558   02 01735    35601744              STW,R6   :CLRSAVE+2
     7559   02 01736    32501740              LW,R5    :CLRADDR          BUFFER ADDRESS
     7560   02 01737    30501741              AW,R5    :CLRSIZE          BUFFER ADDR + BUFFER SIZE
     7561   02 01738    3A401741              LCW,R4   :CLRSIZE          -(BUFFER SIZE)
     7562   02 01739    22600000 A            LI,R6    0
     7563   02 0173A    B5680005 A            STW,R6   *R5,R4            0 TO BUFFER
     7564   02 0173B    6540173A              BIR,R4   %-1               COUNT NOT 0
     7565   02 0173C    12401742              LD,R4    :CLRSAVE          RESTORE REGISTERS 4-6
     7566   02 0173D    32601744              LW,R6    :CLRSAVE+2
     7567   02 0173E    E800000F A            B        *R15              EXIT
     7568                            *
     7569                                     BOUND    8
     7570   02 01740    00000000 A   :CLRADDR DATA     0                 BUFFER ADDRESS
     7571   02 01741    00000000 A   :CLRSIZE DATA     0                 BUFFER SIZE
     7572   02 01742                 :CLRSAVE RES      3                 REGISTERS 4-6
     7573                            *
     7574                            *                *** DELAY FOR I/O INTERRUPT ***
     7575                            *
     7576                            * THE DELAY SUBROUTINE DELAYS TO AWAIT THE I/O INTERRUPT. TIMEOUT OCCURS
     7577                            *  WHEN SPECIFIED MAXIMUM DELAY TIME IS REACHED.
     7578                            *
     7579                            *       INPUT PARAMETERS:
     7580                            *
     7581                            *         REG 14- MAX DELAY TIME (DELAY =  (R14) MILLISECONDS)
     7582                            *         REG 15- RETURN ADDRESS
     7583                            *
     7584                            *       REGISTERS DISTURBED:
     7585                            *
     7586                            *         (NONE)
     7587                            *
     7588                            *       OUTPUT PARAMETERS:
     7589                            *
     7590                            *         INTERRUPT REC'D EXIT-RETURN ADDRESS
     7591                            *         DELAY TIMEOUT EXIT  -RETURN ADDRESS +1
     7592                            *                             (INTERRUPTS ARMED, ENABLED IF FLAG <>0)
     7593                            *
     7594   02 01745    35F0175B     :DELAY   STW,R15  :DELSAVE          SAVE REGISTER 15
     7595   02 01746    25E0007F A            SLS,R14  -1                DELAY TIME /2
     7596   02 01747    3310000E A            MTW,1    R14               COMPENSATE FOR IMMEDIATE CTR4 INTER
     7597   02 01748    35E0175A              STW,R14  :DELTIME          TIME TO CTR 4 DECR POSITION
     7598   02 01749    6AF01752              BAL,R15  :DELAYAE          ARM AND ENABLE COUNTER 4 INTERRUPTS
     7599   02 0174A    32F01764              LW,R15   :INTRECF          I/O INTERRUPT RECEIVED FLAG
     7600   02 0174B    6830174A              BCR,3    %-1               FLAG=0,I/O INTERRUPT NOT RECEIVED
     7601   02 0174C    6AF01756              BAL,R15  :DELAYD           DISARM COUNTER 4 INTERRUPTS
     7602   02 0174D    32F0175B     :DELEXIT LW,R15   :DELSAVE          RESTORE REGISTER 15
     7603   02 0174E    E800000F A            B        *R15              EXIT
     7604                            *                                   DELAY TIMEOUT
     7605   02 0174F    6AF01756     :DELTO   BAL,R15  :DELAYD           DISARM COUNTER 4 INTERRUPTS
     7606   02 01750    3310175B              MTW,1    :DELSAVE          RETURN ADDRESS +1
     7607   02 01751    6800174D              B        :DELEXIT          GO TO DELAY TIMEOUT EXIT
     7608                            *                                   ARM/ENABLE COUNTER 4 INTERRUPTS
     7609   02 01752    35F0175C     :DELAYAE STW,R15  :DELSAVE+1        SAVE REGISTER 15
     7610   02 01753    22F01040 A            LI,R15   X'1040'           BITS 19,25
     7611   02 01754    6DF01200 A            WD,R15   X'1200'           ARM AND ENABLE CTR 4 INTERRUPTS
     7612   02 01755    E800175C              B        *:DELSAVE+1       EXIT
     7613                            *                                   DISARM COUNTER 4 INTERRUPTS
     7614   02 01756    35F0175C     :DELAYD  STW,R15  :DELSAVE+1        SAVE REGISTER 15
     7615   02 01757    22F01040 A            LI,R15   X'1040'           BITS 19,25
     7616   02 01758    6DF01100 A            WD,R15   X'1100'           DISARM COUNTER 4 INTERRUPTS
     7617   02 01759    E800175C              B        *:DELSAVE+1       EXIT
     7618                            *
     7619   02 0175A    00000000 A   :DELTIME DATA     0                 DELAY TIME CTR 4 DECREMENT POSITION
     7620   02 0175B    00000000 A   :DELSAVE DATA     0,0               REGISTER 15
            02 0175C    00000000 A
     7621                                     BOUND    8
     7622   02 0175E    00000000 A   :DELAYTO DATA     0,0
            02 0175F    00000000 A
     7623   02 01760    0000174F              DATA     :DELTO,0
            02 01761    00000000 A
     7624   02 01762    0F00175E     :DELXPSD XPSD,0   :DELAYTO
     7625   02 01763    33F0175A     :DELMTW  MTW,-1   :DELTIME
     7626   02 01764    00000000 A   :INTRECF DATA     0                 INTERRUPT RECEIVED FLAG
     7627                            *
     7628                            *                *** ERROR ROUTINE (MODIFIED) ***
     7629                            *
     7630                            * THIS SUBROUTINE ACCEPTS A STRING OF BYTES, EACH OF WHICH IDENTIFIES
     7631                            * THE STATUS TYPE (BITS 0 - 3), THE BIT TEST (BIT 4) AND THE STATUS
     7632                            * MASK (BITS 5 - 7). THE TESTS WILL BE PERFORMED IN THE SEQUENCE OF THE
     7633                            * BYTE STRING, WITH EACH TEST CHECKING A SPECIFIC STATUS BIT FOR THE
     7634                            * TRUE OR FALSE CONDITION. A ZERO BYTE   WILL INDICATE THE END OF THE
     7635                            * BYTE STRING. ALL UNSPECIFIED BIT POSITIONS WILL NOT BE TESTED        *
     7636                            *
     7637                            * THE BYTE HAS THE FOLLOWING FORMAT:
     7638                            *
     7639                            * BITS 0 - 3                 BIT 4    BITS 5 - 7
     7640                            * ----------                 -----    ----------
     7641                            * 0 NOT ALLOWED              0 FALSE  0 MASK X'80', BYT   -, COM2<COM1
     7642                            * 1 TIO STATUS               1 TRUE   1 MASK X'40', BYT = 0, COM2=COM1
     7643                            * 2 OPERATIONAL STATUS (TIO)   TEST   2 MASK X'20', BYT  +1, COM2=COM1+1
     7644                            * 3 HIO STATUS                        3 MASK X'10', BYT  +2, COM2=COM1+2
     7645                            * 4 TDV STATUS                        4 MASK X'08', BYT  +3, COM2=COM1+3
     7646                            * 5 SIO STATUS                        5 MASK X'04', BYT  +4, COM2=COM1+4
     7647                            * 6 AIO STATUS                        6 MASK X'02', BYT  +5, COM2=COM1+5
     7648                            * 7 INTERRUPT STATUS (AIO)            7 MASK X'01', BYT  +6, COM2=COM1+6
     7649                            * 8 SENSE BYTE A
     7650                            * 9 SENSE BYTE B
     7651                            * A NOT ASSIGNED
     7652                            * B NOT ASSIGNED
     7653                            * C NOT ASSIGNED
     7654                            * D NOT ASSIGNED
     7655                            * E BYTE COUNT TEST (TIO)
     7656                            * F COMMAND ADDR TEST (TIO)
     7657                            *
     7658                            *
     7659                            * SUBROUTINES ARE PROVIDED TO STORE STATUS INFORMATION INTO A TABLE.
     7660                            * IF THE TIO, HIO, TDV, OSB, BYTE CNT, OR COMMAND ADR HAS NOT BEEN
     7661                            * STORED IN THE TABLE, THE ERROR ROUTINE  SR WILL ISSUE THE APPROPRIATE
     7662                            * I/O INSTRUCTION AND STORE THE STATUS BEFORE TESTING COMMENCES.
     7663                            *
     7664                            * CALLING SEQUENCE: BAL,15 :ERRORT
     7665                            *                   DATA   BA(TSEQNNN)
     7666                            * NORMAL EXIT:      B      (CONTINUE TEST)
     7667                            * ERROR  EXIT:             (IDENTIFY SUBTEST)
     7668                            *
     7669                            * REGISTERS DISTURBED: NONE (R1 = 1, R2 = 2, R3 = 3)
     7670                            *
     7671                            * VARIABLES REQUIRED: STATUS IN SAVE TABLE
     7672                            *                     STARTING COMMAND ADR
     7673                            *
     7674                            * OTHER SUBROUTINES: CLEAR STATUS SAVE TABLE (:SAVECLR)
     7675                            *                    STORE STATUS IN SAVE TABLE (:SAVETIO,:SAVEHIO,
     7676                            *                    :SAVETDV,:SAVESIO,:SAVEAIO,:SAVESSA,SAVESSB,:TIO,
     7677                            *                    :TDV,:HIO)
     7678                            *
     7679                            *
     7680                            * THE FOLLOWING EQUATE STATEMENTS ASSIGN LABELS TO BYTE VALUES
     7681                            *
     7682                            TIOF0,TIOF1,TIOF2,TIOF3,TIOF4,TIOF5,TIOF6,TIOF7  :TSEQEQU  X'10'
     7683                            TIOT0,TIOT1,TIOT2,TIOT3,TIOT4,TIOT5,TIOT6,TIOT7  :TSEQEQU  X'18'
     7684                            OSBF0,OSBF1,OSBF2,OSBF3,OSBF4,OSBF5,OSBF6,OSBF7  :TSEQEQU  X'20'
     7685                            OSBT0,OSBT1,OSBT2,OSBT3,OSBT4,OSBT5,OSBT6,OSBT7  :TSEQEQU  X'28'
     7686                            HIOF0,HIOF1,HIOF2,HIOF3,HIOF4,HIOF5,HIOF6,HIOF7  :TSEQEQU  X'30'
     7687                            HIOT0,HIOT1,HIOT2,HIOT3,HIOT4,HIOT5,HIOT6,HIOT7  :TSEQEQU  X'38'
     7688                            TDVF0,TDVF1,TDVF2,TDVF3,TDVF4,TDVF5,TDVF6,TDVF7  :TSEQEQU  X'40'
     7689                            TDVT0,TDVT1,TDVT2,TDVT3,TDVT4,TDVT5,TDVT6,TDVT7  :TSEQEQU  X'48'
     7690                            SIOF0,SIOF1,SIOF2,SIOF3,SIOF4,SIOF5,SIOF6,SIOF7  :TSEQEQU  X'50'
     7691                            SIOT0,SIOT1,SIOT2,SIOT3,SIOT4,SIOT5,SIOT6,SIOT7  :TSEQEQU  X'58'
     7692                            AIOF0,AIOF1,AIOF2,AIOF3,AIOF4,AIOF5,AIOF6,AIOF7  :TSEQEQU  X'60'
     7693                            AIOT0,AIOT1,AIOT2,AIOT3,AIOT4,AIOT5,AIOT6,AIOT7  :TSEQEQU  X'68'
     7694                            ISBF0,ISBF1,ISBF2,ISBF3,ISBF4,ISBF5,ISBF6,ISBF7  :TSEQEQU  X'70'
     7695                            ISBT0,ISBT1,ISBT2,ISBT3,ISBT4,ISBT5,ISBT6,ISBT7  :TSEQEQU  X'78'
     7696                            SBAF0,SBAF1,SBAF2,SBAF3,SBAF4,SBAF5,SBAF6,SBAF7  :TSEQEQU  X'80'
     7697                            SBAT0,SBAT1,SBAT2,SBAT3,SBAT4,SBAT5,SBAT6,SBAT7  :TSEQEQU  X'88'
     7698                            SBBF0,SBBF1,SBBF2,SBBF3,SBBF4,SBBF5,SBBF6,SBBF7  :TSEQEQU  X'90'
     7699                            SBBT0,SBBT1,SBBT2,SBBT3,SBBT4,SBBT5,SBBT6,SBBT7  :TSEQEQU  X'98'
     7700                            BYTN0,BYT00,BYT01,BYT02,BYT03,BYT04,BYT05,BYT06  :TSEQEQU  X'E0'
     7701                            COMNG,COM00,COM01,COM02,COM03,COM04,COM05,COM06  :TSEQEQU  X'F0'
     7702                            *
     7703   02 01765    02200000 A   :ERRORT  LCI      0
     7704   02 01766    2B001802              STM,0    :ERRTMP1          SAVE ALL REGISTERS
     7705   02 01767    B250000F A            LW,5     *15               FETCH BYTE ADDR
     7706   02 01768    22000000 A            LI,0     0
     7707   02 01769    35001813              STW,0    :ERRTFLG          RESET ERROR FLAG
     7708   02 0176A    726A0000 A   :ERRT0   LB,6     0,5               FETCH BYTE
     7709   02 0176B    683017C8              BCR,3    :ERRT13           BRANCH: BYTE = 0
     7710   02 0176C    22700000 A            LI,7     0
     7711   02 0176D    2560037C A            SCD,6    -4                BITS 0 - 3 RIGHT JUSTIFIED
     7712   02 0176E    35601812              STW,6    :ERRTMP3          SAVE INDEX
     7713   02 0176F    2160000A A            CI,6     10
     7714   02 01770    69101776              BCS,1    :ERRT1            BRANCH: RANGE OF INDEX 1 - 9
     7715   02 01771    2160000D A            CI,6     13
     7716   02 01772    692017AC              BCS,2    :ERRT11           BRANCH: RANGE OF INDEX 14 - 15
     7717   02 01773    EAF0022B A            WAITPROC WAITMSG1          /// HALT ///                    *A02
            02 01774    00001EC2
     7718   02 01775    68001773              B        %-2               PROGRAM ERRORS                  *A02
     7719                            *
     7720   02 01776    328C187E     :ERRT1   LW,8     :SAVETAB,6        FETCH STATUS
     7721   02 01777    6910179D              BCS,1    :ERRT6            BRANCH: STATUS IN TABLE
     7722   02 01778    21600005 A            CI,6     5
     7723   02 01779    6910177D              BCS,1    :ERRT2            BRANCH: RANGE OF INDEX 1 - 4
     7724   02 0177A    EAF0022B A            WAITPROC WAITMSG1          /// HALT ///                    *A02
            02 0177B    00001EC2
     7725   02 0177C    6800177A              B        %-2               PROGRAM ERROR                   *A02
     7726   02 0177D    21600003 A   :ERRT2   CI,6     3
     7727   02 0177E    69301787              BCS,3    :ERRT3            BRANCH: NOT HIO TEST
     7728   02 0177F    6AF015EF              BAL,15   :HIO              ISSUE HIO AND TEST CC1
     7729   02 01780    00008000 A            DATA     X'00008000',0
            02 01781    00000000 A
     7730   02 01782    68001784              B        %+2
     7731   02 01783    680017AA              B        :ERRT10           BRANCH: NO ADDR RECOG OR BUSY SIOP
     7732   02 01784    15C0180E              STD,R12  :ERRTMP1+12       SAVE STATUS
     7733   02 01785    6AF01851              BAL,15   :SAVEHIO          STORE HIO STATUS IN TABLE
     7734   02 01786    68001776              B        :ERRT1            FETCH STATUS
     7735                            *
     7736   02 01787    21600004 A   :ERRT3   CI,6     4
     7737   02 01788    69301791              BCS,3    :ERRT4            BRANCH: NOT TDV TEST
     7738   02 01789    6AF015F4              BAL,15   :TDV              ISSUE TDV AND TEST CC1
     7739   02 0178A    00008000 A            DATA     X'00008000',0
            02 0178B    00000000 A
     7740   02 0178C    6800178E              B        %+2
     7741   02 0178D    680017AA              B        :ERRT10           BRANCH: NO ADDR RECOG OR BUSY SIOP
     7742   02 0178E    15C0180E              STD,R12  :ERRTMP1+12       SAVE STATUS
     7743   02 0178F    6AF01856              BAL,15   :SAVETDV          STORE TDV STATUS
     7744   02 01790    68001776              B        :ERRT1            FETCH STATUS
     7745                            *
     7746   02 01791    6AF01793     :ERRT4   BAL,15   :ERRT5            ISSUE TIO AND STORE STATUS
     7747   02 01792    68001776              B        :ERRT1
     7748                            *
     7749   02 01793    35F0179C     :ERRT5   STW,15   :ERRT5X           SAVE EXIT ADDR
     7750   02 01794    6AF015EA              BAL,15   :TIO              ISSUE TIO AND TEST CC1
     7751   02 01795    00008000 A            DATA     X'00008000',0
            02 01796    00000000 A
     7752   02 01797    68001799              B        %+2
     7753   02 01798    680017AA              B        :ERRT10           BRANCH: NO ADDR RECOG OR BUSY SIOP
     7754   02 01799    15C0180E              STD,R12  :ERRTMP1+12       SAVE STATUS
     7755   02 0179A    6AF01843              BAL,15   :SAVETIO          STORE TIO STATUS, OSB, BYT, COM
     7756   02 0179B    E800179C              B        *:ERRT5X          EXIT                    IN TABLE
     7757   02 0179C    00000000 A   :ERRT5X  DATA     0                 EXIT ADDR
     7758                            *
     7759   02 0179D    22600000 A   :ERRT6   LI,6     0
     7760   02 0179E    25600301 A            SCD,6    1                 T/F BIT
     7761   02 0179F    25700203 A            SCS,7    3                 BIT POSITION
     7762   02 017A0    3A700007 A            LCW,7    7                 FORM -(BIT POSITION)
     7763   02 017A1    4B701E98              AND,7    K7F               SIGMA 9 SHIFT PROBLEM
     7764   02 017A2    25600207 A            SCS,6    7                 ADJUST T/F BIT
     7765   02 017A3    49601EFE              OR,6     =X'8000'          ADD IN MASK BIT
     7766   02 017A4    A5600007 A            SLS,6    *7                ADJUST MASK, BIT
     7767   02 017A5    49800006 A            OR,8     6                 ADD TO TABLE VALUE
     7768   02 017A6    32601812              LW,6     :ERRTMP3          INDEX
     7769   02 017A7    358C187E              STW,8    :SAVETAB,6        SAVE STATUS
     7770   02 017A8    33100005 A   :ERRT7   MTW,1    5                 INCR BYTE ADDR
     7771   02 017A9    6800176A              B        :ERRT0            GO TO FETCH ANOTHER BYTE
     7772                            *
     7773   02 017AA    33101813     :ERRT10  MTW,1    :ERRTFLG          INCR. ERROR TALLY
     7774   02 017AB    680017A8              B        :ERRT7            GO TO INCR BYTE ADDR
     7775                            *
     7776   02 017AC    330C187E     :ERRT11  MTW,0    :SAVETAB,6        TEST FOR STATUS PRESENT
     7777   02 017AD    691017AF              BCS,1    %+2               PRESENT
     7778   02 017AE    6AF01793              BAL,15   :ERRT5            ISSUE/SAVE TIO STATUS
     7779   02 017AF    2160000F A            CI,6     15                CMDW TEST
     7780   02 017B0    683017C0              BE       :ERRT12           YES
     7781   02 017B1    52C2188C              LH,12    :SAVETAB+14,1     TERM BYTE COUNT
     7782   02 017B2    72F00007 A            LB,15    7
     7783   02 017B3    25F0027C A            SCS,15   -4
     7784   02 017B4    20FFFFFF A            AI,15    -1                LOAD EXPECTED TERM BYTE COUNT
     7785   02 017B5    35F00CA2              STW,15   T2
     7786   02 017B6    31F0000C A            CW,15    12                EXPECTED = RECEIVED
     7787   02 017B7    683017A8              BE       :ERRT7            B: EQUAL
     7788   02 017B8    EAF00218 A            BAL,15   *:HEXC            CONVERT TO EBCDIC
     7789   02 017B9    35F01835              STW,15   :ERRTM3+7         SAVE IN MSG
     7790   02 017BA    32C00CA2              LW,12    T2
     7791   02 017BB    EAF00218 A            BAL,15   *:HEXC            CONVERT EXPECTED BC
     7792   02 017BC    35F01833              STW,15   :ERRTM3+5         SAVE IN MSG
     7793   02 017BD    EAF0021C A            BAL,15   *:PRINT
     7794   02 017BE    0000182E              DATA     :ERRTM3           'BYTE COUNT NOT 0'
     7795   02 017BF    680017AA              B        :ERRT10           GO TO INCR ERROR COUNT
     7796   02 017C0    25600304 A   :ERRT12  SCD,6    4
     7797   02 017C1    4B601EFF              AND,6    =7                CMD DIFF
     7798   02 017C2    30601892              AW,6     :SAVCOM1          ADD INITIAL CMD ADDR
     7799   02 017C3    5162188D              CH,6     :SAVETAB+15,R1    TEST FOR PRESET CMD ADDR
     7800   02 017C4    683017A8              BE       :ERRT7            EQUAL - GO TO UPDATE BYTE ADDR
     7801   02 017C5    EAF0021C A            BAL,15   *:PRINT
     7802   02 017C6    00001836              DATA     :ERRTM4           'CMD ADDR INCORRECT'
     7803   02 017C7    680017AA              B        :ERRT10           GO TO INCR ERROR COUNT
     7804                            *
     7805   02 017C8    224FFFF7 A   :ERRT13  LI,4     -9                SET INDEX
     7806   02 017C9    32881888              LW,8     :SAVETAB+10,4     FETCH STATUS
     7807   02 017CA    681017DA              BCR,1    :ERRT14           BRANCH: NO STATUS
     7808   02 017CB    72940008 A            LB,9     8,2               FETCH CURRENT MASK
     7809   02 017CC    693017D1              BCS,3    :ERRT13A          B: STATUS PREVIOUSLY TESTED     *A01
     7810   02 017CD    22A00000 A            LI,10    0                                                 *A01
     7811   02 017CE    75A00008 A            STB,10   8                                                 *A01
     7812   02 017CF    35881888              STW,8    :SAVETAB+10,4                                     *A01
     7813   02 017D0    680017DA              B        :ERRT14                                           *A01
     7814   02 017D1    22A00000 A   :ERRT13A LI,10    0                                                 *A01
     7815   02 017D2    75A00008 A            STB,10   8                 RESET STATUS FLAG
     7816   02 017D3    35881888              STW,8    :SAVETAB+10,4     RESTORE WORD IN TABLE
     7817   02 017D4    72A20008 A            LB,10    8,1               STATUS
     7818   02 017D5    72B40008 A            LB,11    8,2               MASK
     7819   02 017D6    4BA0000B A            AND,10   11                MASK STATUS
     7820   02 017D7    72B60008 A            LB,11    8,3               CURRENT STATUS
     7821   02 017D8    48A0000B A            EOR,10   11                COMPARE
     7822   02 017D9    693017E0              BCS,3    :ERRT15           BRANCH: STATUS IN ERROR
     7823   02 017DA    654017C9     :ERRT14  BIR,4    :ERRT13+1         BRANCH: TEST NEXT STATUS
     7824   02 017DB    02200000 A            LCI      0
     7825   02 017DC    2A001802              LM,0     :ERRTMP1          RESTORE REGISTERS
     7826   02 017DD    33001813              MTW,0    :ERRTFLG          TEST ERROR FLAG
     7827   02 017DE    E832000F A            BCR,3    *15,1             NORMAL EXIT
     7828   02 017DF    E804000F A            B        *15,2             ERROR EXIT
     7829                            *
     7830   02 017E0    32C8181E     :ERRT15  LW,12    :ERRTYPE+10,4       FETCH STATUS TYPE
     7831   02 017E1    35C0181F              STW,12   :ERRTM1+1         STORE SATUS ID
     7832   02 017E2    32C0172A              LW,12    :DEVADDR          DEV ADDR
     7833   02 017E3    EAF00218 A            BAL,15   *:HEXC            CONVERT TO EBCDIC
     7834   02 017E4    35F01825              STW,15   :ERRTM1+7         ENTER INTO MSG
     7835   02 017E5    EAF0021C A            BAL,15   *:PRINT           PRINT LINE 1
     7836   02 017E6    0000181E              DATA     :ERRTM1           MSG = '   TIO 01234567'
     7837   02 017E7    72C20008 A            LB,12    8,1               FETCH STATUS BYTE
     7838   02 017E8    EAF00216 A            BAL,15   *:BINC            CONVERT FOUR BYTES
     7839   02 017E9    35F01829              STW,15   :ERRTM2+3         STORE IN MSG AREA
     7840   02 017EA    EAF00216 A            BAL,15   *:BINC            CONVERT FOUR BYTES
     7841   02 017EB    35F01828              STW,15   :ERRTM2+2         STORE IN MSG AREA
     7842   02 017EC    EAF0021C A            BAL,15   *:PRINT           PRINT LINE 2
     7843   02 017ED    00001826              DATA     :ERRTM2           MSG = 'STATUS BBBBBBBB'
     7844   02 017EE    72C60008 A            LB,12    8,3               FETCH CURRENT STATUS
     7845   02 017EF    EAF00216 A            BAL,15   *:BINC            CONVERT 4 BYTES
     7846   02 017F0    35F0182D              STW,15   :ERRTM11+3        STORE IN MSG
     7847   02 017F1    EAF00216 A            BAL,15   *:BINC            CONVERT 4 BYTES
     7848   02 017F2    35F0182C              STW,15   :ERRTM11+2        STORE IN MSG
     7849   02 017F3    72C40008 A            LB,12    8,2               MASK STATUS
     7850   02 017F4    75C0000C A            STB,12   12                MOVE MASK TO HI ORDER BYTE
     7851   02 017F5    220000E7 A            LI,0     X'E7'             'X'
     7852   02 017F6    22700000 A            LI,7     0                 INDEX
     7853   02 017F7    22F00008 A            LI,15    8                 BIT COUNT
     7854   02 017F8    32C0000C A            LW,12    12                TEST FOR MASK BIT = 1
     7855   02 017F9    691017FB              BLZ      %+2               MASK BIT = 1
     7856   02 017FA    750E182C              STB,0    :ERRTM11+2,7      STORE 'X' INTO MSG
     7857   02 017FB    33100007 A            MTW,1    7                 INCR INDEX
     7858   02 017FC    25C00001 A            SLS,12   1                 ADJUST MASK
     7859   02 017FD    64F017F8              BDR,15   %-5               LOOP TIL BIT COUNT = 0
     7860   02 017FE    EAF0021C A            BAL,15   *:PRINT           PRINT LINE 3
     7861   02 017FF    0000182A              DATA     :ERRTM11          MSG =  'MASK  MMMMMMMM'
     7862   02 01800    33101813              MTW,1    :ERRTFLG          INCR ERROR TALLY
     7863   02 01801    680017DA              B        :ERRT14
     7864                            *
     7865                                     BOUND 8
     7866   02 01802                 :ERRTMP1 RES      16                REGISTER SAVE AREA
     7867   02 01812    00000000 A   :ERRTMP3 DATA     0                 INDEX
     7868   02 01813    00000000 A   :ERRTFLG DATA     0
     7869   02 01814    00000000 A   :ERRTYPE DATA  0,'TIO ','OSB ','HIO ','TDV ','SIO ','AIO ','ISB ','SBA '
            02 01815    E3C9D640 A
            02 01816    D6E2C240 A
            02 01817    C8C9D640 A
            02 01818    E3C4E540 A
            02 01819    E2C9D640 A
            02 0181A    C1C9D640 A
            02 0181B    C9E2C240 A
            02 0181C    E2C2C140 A
     7870   02 0181D    E2C2F640 A            DATA      'SB6 '
     7871   02 0181E    1F404040 A   :ERRTM1  TEXTC    '   XXX 01234567   DEV ADDR XXXX'
            02 0181F    E7E7E740 A
            02 01820    F0F1F2F3 A
            02 01821    F4F5F6F7 A
            02 01822    404040C4 A
            02 01823    C5E540C1 A
            02 01824    C4C4D940 A
            02 01825    E7E7E7E7 A
     7872   02 01826    0FE2E3C1 A   :ERRTM2  TEXTC    'STATUS BBBBBBBB'
            02 01827    E3E4E240 A
            02 01828    C2C2C2C2 A
            02 01829    C2C2C2C2 A
     7873   02 0182A    0F4040D4 A   :ERRTM11 TEXTC    '  MASK MMMMMMMM' MSG
            02 0182B    C1E2D240 A
            02 0182C    D4D4D4D4 A
            02 0182D    D4D4D4D4 A
     7874   02 0182E    1FE3C5D9 A   :ERRTM3  TEXTC    'TERM BC EXP / OBS  XXXX    XXXX'
            02 0182F    D440C2C3 A
            02 01830    40C5E7D7 A
            02 01831    406140D6 A
            02 01832    C2E24040 A
            02 01833    E7E7E7E7 A
            02 01834    40404040 A
            02 01835    E7E7E7E7 A
     7875   02 01836    12C3D4C4 A   :ERRTM4  TEXTC    'CMD ADDR INCORRECT'
            02 01837    40C1C4C4 A
            02 01838    D940C9D5 A
            02 01839    C3D6D9D9 A
            02 0183A    C5C3E340 A
     7876                            *
     7877                            *                 *** SAVECLR                                ***
     7878                            *                 *** SAVETIO, -HIO,-TDV,-SIO,-AIO,-SSA,-SSB ***
     7879                            *                     ROUTINES
     7880                            *
     7881                            * THE SUBROUTINES CLEAR THE STATUS SAVE TABLE ('SAVETAB') AND STORE
     7882                            * THE SELECTED STATUS IN THE CELL.
     7883                            *
     7884                            * CALLING SEQUENCE: BAL,15  :SAVE---
     7885                            * NORMAL EXIT:      ---     ---
     7886                            *
     7887                            * REGISTERS DISTURBED: NONE (R1 = 1, R2 = 2, R3 = 3)
     7888                            *
     7889                            * VARIABLES REQUIRED: R13 - IOSTATUS AND BYTE COUNT
     7890                            *                     R12 - CURRENT COMMAND ADDR
     7891                            *
     7892                            * OTHER SUBROUTINES: NONE
     7893                            *
     7894                            *
     7895   02 0183B    1540188E     :SAVECLR STD,4    :SAVETMP          SAVE R4 AND R5
     7896   02 0183C    224FFFE0 A            LI,4     -32               INDEX
     7897   02 0183D    22500000 A            LI,5     0                 0
     7898   02 0183E    5558188E              STH,5    :SAVETAB+16,4     CLEAR FLAG AND CURRENT STATUS
     7899   02 0183F    65401840              BIR,4    %+1               INCR R4
     7900   02 01840    6540183E              BIR,4    %-2               LOOP
     7901   02 01841    1240188E              LD,4     :SAVETMP          RESTORE R4 AND R5
     7902   02 01842    E800000F A            B        *15               EXIT
     7903                            *
     7904   02 01843    1540188E     :SAVETIO STD,4    :SAVETMP          SAVE R4 AND R5
     7905   02 01844    35D01890              STW,13   :SAVETMP+2       SAVE STATUS
     7906   02 01845    2240187F              LI,4     WA(:SAVETAB+1)    INDEX - TIO STATUS
     7907   02 01846    6A501875              BAL,5    :SAVEALL          STORE STATUS
     7908   02 01847    22401880              LI,4     WA(:SAVETAB+2)    INDEX - OSB
     7909   02 01848    6A501875              BAL,5    :SAVEALL          STORE STATUS
     7910   02 01849    32D01890              LW,13    :SAVETMP+2        FETCH STATUS
     7911   02 0184A    55D2188C              STH,13   :SAVETAB+14,1     STORE BYTE COUNT
     7912   02 0184B    225FFFFF A            LI,5     -1
     7913   02 0184C    7550188C              STB,5    :SAVETAB+14,0     SET FLAG
     7914   02 0184D    55C2188D              STH,12   :SAVETAB+15,1     STORE CURRENT COMMAND ADDR
     7915   02 0184E    7550188D              STB,5    :SAVETAB+15,0     SET FLAG
     7916   02 0184F    1240188E              LD,4     :SAVETMP          RESTORE R4 AND R5
     7917   02 01850    E800000F A            B        *15               EXIT
     7918                            *
     7919   02 01851    1540188E     :SAVEHIO STD,4    :SAVETMP          SAVE R4 AND R5
     7920   02 01852    22401881              LI,4     WA(:SAVETAB+3)    INDEX - HIO STATUS
     7921   02 01853    6A501875              BAL,5    :SAVEALL          STORE STATUS
     7922   02 01854    1240188E              LD,4     :SAVETMP          RESTORE R4 AND R5
     7923   02 01855    E800000F A            B        *15               EXIT
     7924   02 01856    1540188E     :SAVETDV STD,4    :SAVETMP          SAVE R4 AND R5
     7925   02 01857    22401882              LI,4     WA(:SAVETAB+4)    INDEX - TDV STATUS
     7926   02 01858    6A501875              BAL,5    :SAVEALL          STORE STATUS
     7927   02 01859    1240188E              LD,4     :SAVETMP          RESTORE R4 AND R5
     7928   02 0185A    E800000F A            B        *15               EXIT
     7929                            *
     7930   02 0185B    1540188E     :SAVESIO STD,4    :SAVETMP          SAVE R4 AND R5
     7931   02 0185C    22401883              LI,4     WA(:SAVETAB+5)    INDEX - SIO
     7932   02 0185D    6A501875              BAL,5    :SAVEALL          STORE STATUS
     7933   02 0185E    1240188E              LD,4     :SAVETMP          RESTORE R4 AND R5
     7934   02 0185F    E800000F A            B        *15               EXIT
     7935                            *
     7936   02 01860    1540188E     :SAVEAIO STD,4    :SAVETMP          SAVE R4 AND R5
     7937   02 01861    35D01890              STW,13   :SAVETMP+2        SAVE STATUS
     7938   02 01862    22401884              LI,4      WA(:SAVETAB+6)   INDEX - AIO
     7939   02 01863    6A501875              BAL,5    :SAVEALL          STORE STATUS
     7940   02 01864    22401885              LI,4      WA(:SAVETAB+7)   INDEX - ISB
     7941   02 01865    6A501875              BAL,5    :SAVEALL          STORE STATUS
     7942   02 01866    32D01890              LW,13    :SAVETMP+2        FETCH STATUS
     7943   02 01867    1240188E              LD,4     :SAVETMP          RESTORE R4 AND R5
     7944   02 01868    E800000F A            B        *15               EXIT
     7945                            *
     7946   02 01869    1540188E     :SAVESSA STD,4    :SAVETMP          SAVE R4 AND R5
     7947   02 0186A    75D0000D A            STB,13    13                MOVE SBA TO MSB OF R13
     7948   02 0186B    22401886              LI,4     WA(:SAVETAB+8)    SAVE STATUS
     7949   02 0186C    6A501875              BAL,5    :SAVEALL          RESTORE R4 AND R5
     7950   02 0186D    1240188E              LD,4     :SAVETMP          RESTORE R4 AND R5
     7951   02 0186E    E800000F A            B        *15               EXIT
     7952                            *
     7953   02 0186F    1540188E     :SAVESSB STD,4    :SAVETMP          SAVE R4 AND R5
     7954   02 01870    75D0000D A            STB,13   13                 MOVE SBB TO MSB OF R13
     7955   02 01871    22401887              LI,4     WA(:SAVETAB+9)    SAVE STATUS
     7956   02 01872    6A501875              BAL,5    :SAVEALL          RESTORE R4 AND R5
     7957   02 01873    1240188E              LD,4     :SAVETMP          RESTORE R4 AND R5
     7958   02 01874    E800000F A            B        *15               EXIT
     7959                            *
     7960   02 01875    35501891     :SAVEALL STW,5    :SAVETMP+3        SAVE EXIT ADDR
     7961   02 01876    22500000 A            LI,5     0
     7962   02 01877    D5520004 A            STH,5    *4,1              CLEAR CURRENT STATUS,MASK
     7963   02 01878    25D00208 A            SCS,13   +8
     7964   02 01879    F5D20004 A            STB,13   *4,1              STORE STATUS
     7965   02 0187A    225FFFFF A            LI,5     -1
     7966   02 0187B    F5500004 A            STB,5    *4,0              STORE FLAG
     7967   02 0187C    E8001891              B        *:SAVETMP+3        EXIT
     7968                            *
     7969                                     BOUND    8
     7970         02 0187E           :SAVETAB EQU      %
     7971   02 0187E    00000000 A            DATA     0                 UNDEFINED                    0
     7972   02 0187F    00000000 A            DATA     0                 TIO STATUS                  1
     7973   02 01880    00000000 A            DATA     0                 OSB STATUS                  2
     7974   02 01881    00000000 A            DATA     0                 HIO STATUS                  3
     7975   02 01882    00000000 A            DATA     0                 TDV STATUS                  4
     7976   02 01883    00000000 A            DATA     0                 SIO STATUS                  5
     7977   02 01884    00000000 A            DATA     0                 AIO STATUS                  6
     7978   02 01885    00000000 A            DATA     0                 ISB STATUS                  7
     7979   02 01886    00000000 A            DATA     0                 SBA STATUS                  8
     7980   02 01887    00000000 A            DATA     0                 SBB STATUS                  9
     7981   02 01888    00000000 A            DATA     0,0,0,0           NOT ASSIGNED                 10 - 13
            02 01889    00000000 A
            02 0188A    00000000 A
            02 0188B    00000000 A
     7982   02 0188C    00000000 A            DATA     0,0               BYTE COUNT, COMMAND ADR      14 - 15
            02 0188D    00000000 A
     7983   02 0188E    00000000 A   :SAVETMP DATA     0,0,0,0           4 TEMP LOC
            02 0188F    00000000 A
            02 01890    00000000 A
            02 01891    00000000 A
     7984   02 01892    00000000 A   :SAVCOM1 DATA     0                 ORIGINAL COMMAND ADDR
     7985                            *
     7986                            *
     7987                            *                *** PATTERN SPREAD ***
     7988                            *
     7989                            * THE PATTERN SPREAD SUBROUTINE SPREADS A WORD PATTERN ACCORDING TO
     7990                            *  THE TYPE SPECIFIED.
     7991                            *
     7992                            *             TYPE 0 - SPREAD WORD PATTERN
     7993                            *             TYPE 1 - SPREAD AND INCREMENT WORD PATTERN
     7994                            *             TYPE 2 - SPREAD RANDOM PATTERN
     7995                            *             TYPE 3 - SPREAD CONTENTS OF SPECIFIED ADDRESS
     7996                            *
     7997                            *       INPUT PARAMETERS:
     7998                            *
     7999                            *           :PATID  - PATTERN IDENTIFICATION (3 WORDS)
     8000                            *                     WORD 1 - TYPE (0-4)
     8001                            *                     WORD 2 - PATTERN (TYPE 0,1)
     8002                            *                              RANDOM GENERATOR SEED (TYPE 2)
     8003                            *                              WA(PATTERN) (TYPE 3,4)
     8004                            *                     WORD 3 - UNUSED (TYPE 0,2,3,4)
     8005                            *                              INCREMENT (TYPE 1)
     8006                            *
     8007                            *           :PATWC  - PATTERN WORD COUNT
     8008                            *           :PATBFR - WA(BUFFER)
     8009                            *
     8010                            *       REGISTERS DISTURBED:
     8011                            *
     8012                            *           (NONE)
     8013                            *
     8014                            *       OUTPUT PARAMETERS:
     8015                            *
     8016                            *           (NONE)
     8017                            *
     8018   02 01893    02200050 A   :PATTERN LCI      5                 SAVE REG. 6-10 IN PUBLIC
     8019   02 01894    0B601E4A              PSM,R6   PSTACK              'PUSH-DOWN' STACK
     8020   02 01895    327018C6              LW,R7    :PATID            PATTERN ID-TYPE
     8021   02 01896    680E1897              B        %+1,R7            GO TO SPECIFIED SPREAD TYPE
     8022   02 01897    6800189B              B        :PAT0
     8023   02 01898    680018A4              B        :PAT1
     8024   02 01899    680018AC              B        :PAT2
     8025   02 0189A    680018BF              B        :PAT3
     8026                            *                                   SPREAD FIXED PATTERN
     8027   02 0189B    328018C9     :PAT0    LW,R8    :PATWC            WORD COUNT
     8028   02 0189C    308018CA              AW,R8    :PATBFR           WRD CNT + BFR ADDR
     8029   02 0189D    3A7018C9              LCW,R7   :PATWC            -(WORD COUNT)
     8030   02 0189E    329018C7              LW,R9    :PATID+1          PATTERN
     8031   02 0189F    B59E0008 A            STW,R9   *R8,R7            ENTER PATTERN
     8032   02 018A0    6570189F              BIR,R7   %-1               WORD COUNT NOT 0
     8033   02 018A1    02200050 A   :PATEXIT LCI      5
     8034   02 018A2    0A601E4A              PLM,R6   PSTACK            RESTORE REG. 6-10 FROM STACK
     8035   02 018A3    E800000F A            B        *R15              EXIT
     8036                            *                                   SPREAD AND INCREMENT FIXED PATTERN
     8037   02 018A4    328018C9     :PAT1    LW,R8    :PATWC            WORD COUNT
     8038   02 018A5    308018CA              AW,R8    :PATBFR           WRD CNT + BFR ADDR
     8039   02 018A6    3A7018C9              LCW,R7   :PATWC            -(WORD COUNT)
     8040   02 018A7    329018C7              LW,R9    :PATID+1          PATTERN
     8041   02 018A8    B59E0008 A            STW,R9   *R8,R7            ENTER PATTERN
     8042   02 018A9    309018C8              AW,R9    :PATID+2          INCR PATTERN
     8043   02 018AA    657018A8              BIR,R7   %-2               WORD COUNT NOT 0
     8044   02 018AB    680018A1              B        :PATEXIT          GO TO EXIT
     8045                            *                                   SPREAD RANDOM PATTERN
     8046   02 018AC    02200050 A   :PAT2    LCI      5                 SAVE REG. 11-15 IN PUBLIC
     8047   02 018AD    0BB01E4A              PSM,R11  PSTACK              'PUSH-DOWN' STACK
     8048   02 018AE    328018C9              LW,R8    :PATWC            WORD COUNT
     8049   02 018AF    308018CA              AW,R8    :PATBFR           WRD CNT + BFR ADDR
     8050   02 018B0    3A7018C9              LCW,R7   :PATWC            -(WORD COUNT)
     8051   02 018B1    32E018C7              LW,R14   :PATID+1          RANDOM NUM GEN SEED
     8052   02 018B2    B5EE0008 A            STW,R14  *R8,R7            SEED TO PATTERN FIRST WORD
     8053   02 018B3    657018B5              BIR,R7   %+2               WORD COUNT NOT 0
     8054   02 018B4    680018BC              B        :PAT2A            GO TO EXIT
     8055   02 018B5    32C01EFA              LW,R12   =314159265        ESTABLISH :M1
     8056   02 018B6    32D01EFB              LW,R13   =271828183        ESTABLISH :M2
     8057   02 018B7    35C018E4              STW,R12  :M1
     8058   02 018B8    35D018E5              STW,R13  :M2
     8059   02 018B9    6AF018D9              BAL,R15  :RANDOM           RANDOM NUMBER GENERATION
     8060   02 018BA    B5EE0008 A            STW,R14  *R8,R7            ENTER NUMBER
     8061   02 018BB    657018B9              BIR,R7   %-2               WORD COUNT NOT 0
     8062   02 018BC    02200050 A   :PAT2A   LCI      5
     8063   02 018BD    0AB01E4A              PLM,R11  PSTACK            RESTORE REG. 11-15 FROM STACK
     8064   02 018BE    680018A1              B        :PATEXIT          GO TO EXIT
     8065                            *                                   SPREAD ADDRESS-SPECIFIED PATTERN
     8066   02 018BF    328018C9     :PAT3    LW,R8    :PATWC            WORD COUNT
     8067   02 018C0    308018CA              AW,R8    :PATBFR           WRD CNT + BFR ADDR
     8068   02 018C1    3A7018C9              LCW,R7   :PATWC            -(WORD COUNT)
     8069   02 018C2    B29018C7              LW,R9    *:PATID+1         PATTERN
     8070   02 018C3    B59E0008 A            STW,R9   *R8,R7            ENTER PATTERN
     8071   02 018C4    657018C3              BIR,R7   %-1               WRD CNT NOT 0
     8072   02 018C5    680018A1              B        :PATEXIT          GO TO EXIT
     8073                            *                                   SPREAD 3-WORD,ADDR-SPECIFIED PATTERN
     8074                                     BOUND    8
     8075   02 018C6    00000000 A   :PATID   DATA     0,0,0             PATTERN IDENTIFICATION
            02 018C7    00000000 A
            02 018C8    00000000 A
     8076   02 018C9    00000000 A   :PATWC   DATA     0                 WORD COUNT
     8077   02 018CA    00000000 A   :PATBFR  DATA     0                 BUFFER ADDRESS
     8078                            *                 *** ARM AND ENABLE IO INTERRUPT ***
     8079                            *
     8080   02 018CB    09F01E4A     :INTAE   PSW,15   PSTACK            SAVE RETURN ADDRESS IN STACK
     8081   02 018CC    22F00000 A            LI,15    0
     8082   02 018CD    35F01764              STW,15   :INTRECF          CLEAR IO INTER REC'D FLAG
     8083   02 018CE    22F00020 A            LI,15    X'20'             ARM AND ENABLE
     8084   02 018CF    6DF01200 A            WD,15    X'1200'             IO INTERRUPT
     8085   02 018D0    6800039D              B        POP               RETURN
     8086                            *
     8087                            *
     8088                            *                 *** DISARM IO INTERRUPT ***
     8089                            *
     8090   02 018D1    09F01E4A     :INTD    PSW,15   PSTACK            SAVE RETURN ADDRESS IN STACK
     8091   02 018D2    22F00020 A            LI,15    X'20'
     8092   02 018D3    6DF01100 A            WD,15    X'1100'           DISARM IO INTERRUPT
     8093   02 018D4    22F00000 A            LI,R15   0
     8094   02 018D5    35F01764              STW,R15  :INTRECF           RESET INTERRUPT REC'D FLAG
     8095   02 018D6    6800039D              B        POP               RETURN
     8096                            *
     8097                            *        MODIFIED PSEUDORANDOM NUMBER GENERATOR
     8098                            *
     8099                            *                 THE ALGORITHM
     8100                            *
     8101                            *        THE CALCULATION OF THE NEXT NUMBER X(N+1) DEPENDS ON THE
     8102                            *                 PREVIOUS NUMBER X(N) AND THE VALUE OF TWO INTERNAL
     8103                            *                 COUNTERS M1 AND M2.  THE TWO COUNTERS ARE CHANGED
     8104                            *                 BY UNITY EACH TIME A RANDOM NUMBER IS GENERATED, THE
     8105                            *                 ONE COUNTER INCREASING AND THE OTHER DECREASING.
     8106                            *
     8107                            *                 THE PROCEDURE
     8108                            *
     8109                            *        X(N+1) = M1 (+) M2 (+) M(X(N)), WHERE (+)=EXCLUSIVE OR
     8110                            *
     8111                            *        OPTION-1, USES INTERNAL VALUES OF M1, M2 AND X.  RESULTS
     8112                            *                 FOUND IN REGISTER-14.
     8113                            *
     8114                            *        OPTION-1 CALLING SEQUENCE
     8115                            *
     8116                            *        BAL,15   :RANDOMX
     8117                            *
     8118                            *        OPTION-2, USES INTERNAL VALUES OF M1 AND M2.  USER PROVIDES
     8119                            *                 SEED IN REGISTER-14.  RESULT IN REGISTER-14.
     8120                            *
     8121                            *        OPTION-2 CALLING SEQUENCE
     8122                            *
     8123                            *        LW,14    :SEED             SEED IN REGISTER-14.
     8124                            *        BAL,15   :RANDOM
     8125                            *
     8126                            *        OPTION-3, USER PROVIDES M1,M2 AND X.  RESULT IN REGISTER-14.
     8127                            *
     8128                            *        OPTION-3 CALLING SEQUENCE
     8129                            *
     8130                            *        LW,12    :M1               M1 = VALUE OF COUNTER 1
     8131                            *        LW,13    :M2               M2 = VALUE OF COUNTER 2
     8132                            *        LW,14    :SEED             SEED = RANDOM NUMBER SEED
     8133                            *        BAL,15   :RANDOMY
     8134                            *
     8135                            *
     8136   02 018D7    35C018E4     :RANDOMY STW,12   :M1               OPTION-3 ENTRY
     8137   02 018D8    35D018E5              STW,13   :M2               SAVE PARAMETERS
     8138                            *
     8139   02 018D9    35E018E6     :RANDOM  STW,14   :SEED             OPTION-2 ENTRY
     8140                            *
     8141   02 018DA    331018E4     :RANDOMX MTW,1    :M1               OPTION-1 ENTRY
     8142   02 018DB    683018DD              BCR,3    %+2               TEST, M1 + 1 = 0
     8143   02 018DC    33F018E5              MTW,-1   :M2               NO, M2 = M2 - 1
     8144   02 018DD    32E018E6              LW,14    :SEED
     8145   02 018DE    25E0020D A            SCS,14   13                GENERATE M(SEED) BY ARITHMETIC MEANS
     8146   02 018DF    30E018E7              AW,14    :K                ADD CONSTANT :K
     8147   02 018E0    48E018E4              EOR,14   :M1               M(SEED) (+) M1, WHERE (+) = EOR
     8148   02 018E1    48E018E5              EOR,14   :M2               M(SEED) (+) M1 (+) M2
     8149   02 018E2    35E018E6              STW,14   :SEED             SEED = M(SEED) (+) M1 (+) M2
     8150   02 018E3    E800000F A            B        *15
     8151                            *
     8152   02 018E4    12B9B0A1 A   :M1      DATA     314159265         PI - PRE-SET M1 VALUE
     8153   02 018E5    1033C4D7 A   :M2      DATA     271828183         E - PRE-SET M2 VALUE
     8154   02 018E6    544B2FBA A   :SEED    DATA     1414213562        SQRT(2) - PRE-SET SEED VALUE
     8155   02 018E7    22679CB1 A   :K       DATA     577215665         GAMMA - CONSTANT
     8156                            *
     8157                            *                               *** COMPARE SYNC ***
     8158                            *
     8159                            * THE COMPARE SYNC SUBROUTINE COMPARES TWO BUFFER AREAS A WORD AT A
     8160                            *  TIME. SYNC ATTEMPT IS MADE WHEN UNEQUAL COMPARES ARE SENSED. IF
     8161                            *   SYNC ATTEMPT IS NOT SUCCESS, 'NO SYNC POSSIBLE IS PRINTED.
     8162                            *
     8163                            *      INPUT PARAMETERS:
     8164                            *
     8165                            *        REG 15 - RETURN ADDRESS
     8166                            *        COMSWCNT-NUMBERS OF WORDS TO BE COMPARED
     8167                            *        COMSBFRA-EXPECTED BUFFER ADDRESS
     8168                            *        COMSBFRB-OBSERVED BUFFER ADDRESS
     8169                            *
     8170                            *      REGISTER DISTURBED:
     8171                            *
     8172                            *        (NONE)
     8173                            *
     8174                            *      OUTPUT PARAMETERS:
     8175                            *
     8176                            *        NORMAL EXIT-RETURN ADDRESS
     8177                            *        SYNC       -RETURN ADDRESS+1
     8178                            *        NO SYNC    -RETURN ADDRESS+2
     8179                            *        COMSCOLN   -NUMBER COLUMNS IN ERROR
     8180                            *
     8181   02 018E8    02200000 A   COMSYNC  LCI      0                 SAVE REG. 0-15 IN PUBLIC
     8182   02 018E9    0B001E4A              PSM,0    PSTACK              'PUSH-DOWN' STACK
     8183   02 018EA    3240194B              LW,R4    COMSBFRA          EXPECTED BUFFER ADDRESS A
     8184   02 018EB    3250194C              LW,R5    COMSBFRB          OBSERVED BUFFER ADDRESS B
     8185   02 018EC    3040194A              AW,R4    COMSWCNT          BUFFER A + WORD COUNT
     8186   02 018ED    3050194A              AW,R5    COMSWCNT          BUFFER B + WORD COUNT
     8187   02 018EE    15401948              STD,R4   COMSTEM2          SAVE FINAL BUFFER ADDRESS
     8188   02 018EF    3A40194A              LCW,R4   COMSWCNT          -(WORD COUNT)
     8189   02 018F0    B2581948     COMS1    LW,R5    *COMSTEM2,R4      BUFFER A WORD
     8190   02 018F1    B1581949              CW,R5    *COMSTEM2+1,R4    BUFFER A WORD:BUFFER B WORD
     8191   02 018F2    693018F5              BNE      COMS3             UNEQUAL COMPARISON
     8192   02 018F3    654018F0              BIR,R4   COMS1             WORD COUNT NOT 0
     8193   02 018F4    68001087     COMS2    B        POP15             EXIT
     8194                            *
     8195   02 018F5    35101958     COMS3    STW,R1   COMSCOLN          RESET COLUMN IN ERROR
     8196   02 018F6    B242194C              LW,R4    *COMSBFRB,R1      BUFFER B WORD
     8197   02 018F7    B142194B              CW,R4    *COMSBFRA,R1      BUFFER B WORD:BUFFER A WORD
     8198   02 018F8    693018FB              BNE      %+3
     8199   02 018F9    B3101E4A              MTW,1    *PSTACK           EXIT + 1
     8200   02 018FA    680018F4              B        COMS2
     8201   02 018FB    22600001 A            LI,R6    1                 INITIALIZE COUNT
     8202   02 018FC    3200194A              LW,R0    COMSWCNT          WORD COUNT
     8203   02 018FD    38000002 A            SW,R0    R2                INITIALIZE WORD COUNT
     8204   02 018FE    32C01EFA              LW,R12   =314159265        ESTABLISH :M1
     8205   02 018FF    32D01EFB              LW,R13   =271828183        ESTABLISH :M2
     8206   02 01900    35C018E4              STW,R12  :M1               SAVE :M1
     8207   02 01901    35D018E5              STW,R13  :M2               SAVE :M2
     8208   02 01902    B2E0194C              LW,R14   *COMSBFRB         SEED
     8209   02 01903    6AF018D9              BAL,R15  :RANDOM           RANDOM NUMBER GENERATOR
     8210   02 01904    B2EC194C     COMS4    LW,R14   *COMSBFRB,R6      SEEDN
     8211   02 01905    6AF018D9              BAL,R15  :RANDOM           RANDOM NUMBER GENERATOR
     8212   02 01906    20600001 A            AI,6     1                 INCREMENT INDEX
     8213   02 01907    B1EC194C              CW,R14   *COMSBFRB,R6      SEEDN:BUFFER WORD B
     8214   02 01908    6830191B              BE       COMS5             EQUAL COMPARISION
     8215   02 01909    33101958              MTW,1    COMSCOLN          INCREMENT #WORDS IN ERROR
     8216   02 0190A    64001904              BDR,R0   COMS4             DECREMENT COUNT
     8217                            *
     8218   02 0190B    F240194C              LB,R4    *COMSBFRB         TEST FOR
     8219   02 0190C    4B401E96              AND,R4   K18                   BINARY
     8220   02 0190D    31401E96              CW,R4    K18                   CARD
     8221   02 0190E    68301911              BE       %+3               BINARY CARD
     8222   02 0190F    12A01BB2              LD,R10   :CARMSGE          EBCDIC CARD, GET 'EBCDIC'
     8223   02 01910    68001912              B        %+2
     8224   02 01911    12A01BB4              LD,R10   :CARMSGB          GET 'BINARY'
     8225   02 01912    35A0194F              STW,R10  COMSMSG+2         INSERT IT IN
     8226   02 01913    35B01950              STW,R11  COMSMSG+3             MESSAGE
     8227   02 01914    6AF0129B              BAL,15   SETUPSN           SET UP SEQUENCE NO.             *A01
     8228   02 01915    EAF0021C A            BAL,15   *:PRINT           PRINT
     8229   02 01916    0000126F              DATA     T2MSG7               MESSAGE
     8230   02 01917    EAF0021C A            BAL,R15  *:PRINT           PRINT
     8231   02 01918    0000194D              DATA     COMSMSG              MESSAGE
     8232   02 01919    B3201E4A              MTW,2    *PSTACK           EXIT + 2
     8233   02 0191A    680018F4              B        COMS2
     8234                            *                                   CALCULATE NUMBER OF COLS IN ERROR
     8235   02 0191B    B5EC194B     COMS5    STW,R14  *COMSBFRA,R6      SAVE WORD
     8236   02 0191C    33F00006 A            MTW,-1   R6                DECR INDEX
     8237   02 0191D    B2DC194C              LW,R13   *COMSBFRB,R6      OBS WORD
     8238   02 0191E    B5DC194B              STW,R13  *COMSBFRA,R6      SAVE AS EXP WORD
     8239   02 0191F    33100006 A            MTW,1    R6                RESTORE INDEX
     8240   02 01920    6AF018D9              BAL,R15  :RANDOM           BUILD REMAINDER OF EXP VALUES
     8241   02 01921    33100006 A            MTW,1    R6                INCREMENT  INDEX
     8242   02 01922    B5EC194B              STW,R14  *COMSBFRA,R6      BUILD REMAINDER OF EXP PATTERN
     8243   02 01923    64001920              BDR,R0   %-3               LOOP TIL COUNT = 0
     8244   02 01924    32701958              LW,R7    COMSCOLN          GET NUMBER OF WORDS IN ERROR
     8245   02 01925    F240194C              LB,R4    *COMSBFRB         TEST FOR
     8246   02 01926    4B401F00              AND,R4   =X'18'                BINARY
     8247   02 01927    31401F00              CW,R4    =X'18'                CARD
     8248   02 01928    6830192B              BE       %+3               BINARY CARD
     8249   02 01929    23700004 A            MI,R7    4                 EBCDIC CARD, #COLS IN ERROR = 4 X W
     8250   02 0192A    68001935              B        COMS6
     8251   02 0192B    22600000 A            LI,R6    0                 W/3 = Q + R
     8252   02 0192C    36600003 A            DW,R6    3                     W = # WORDS IN ERROR
     8253   02 0192D    25700403 A            SAS,R7   3                 Q X 8
     8254   02 0192E    21600000 A            CI,R6    0                 TEST IF R = 0
     8255   02 0192F    68301935              BE       COMS6             IF R = 0, #COLS IN ERR = N = Q X 8
     8256   02 01930    21600001 A            CI,R6    1                 TEST IF R = 1
     8257   02 01931    68301934              BE       %+3               R = 1
     8258   02 01932    20700006 A            AI,R7    6                 R = 2, N = Q X  8 + 6
     8259   02 01933    68001935              B        %+2
     8260   02 01934    20700003 A            AI,R7    3                        N = Q X 8 + 3
     8261   02 01935    35701958     COMS6    STW,R7   COMSCOLN          SAVE COLS IN ERROR
     8262   02 01936    66101947              AWM,R1   COMSTEM1+15       EXIT + 1
     8263   02 01937    680018F4              B        COMS2
     8264                            *
     8265   02 01938                 COMSTEM1 RES      16
     8266                                     BOUND    8
     8267   02 01948    00000000 A   COMSTEM2 DATA     0,0
            02 01949    00000000 A
     8268   02 0194A    00000000 A   COMSWCNT DATA     0
     8269   02 0194B    00000000 A   COMSBFRA DATA     0
     8270   02 0194C    00000000 A   COMSBFRB DATA     0
     8271   02 0194D    2B404040 A   COMSMSG  TEXTC    '   EXP XXXX  CARD DATA CANNOT BE DETERMINED'
            02 0194E    C5E7D740 A
            02 0194F    E7E7E7E7 A
            02 01950    4040C3C1 A
            02 01951    D9C440C4 A
            02 01952    C1E3C140 A
            02 01953    C3C1D5D5 A
            02 01954    D6E340C2 A
            02 01955    C540C4C5 A
            02 01956    E3C5D9D4 A
            02 01957    C9D5C5C4 A
     8272   02 01958    00000000 A   COMSCOLN DATA     0
     8273                            *
     8274                            *             *** CARDISP - CARD DISPLAY ***
     8275                            *
     8276                            *  THE CARDISP SUBROUTINE COMPARES EXPECTED AND OBSERVED EBCDIC OR
     8277                            *  BINARY CARD DATA. NON-COMPARISON OF DATA RESULTS IN THE DISPLAY
     8278                            *  OF EACH EXPECTED AND OBSERVED CARD COLUMN AS FOLLOWS:
     8279                            *
     8280                            *
     8281                            *     EBCDIC CARD ERROR    TE0123456789
     8282                            *     EXPECTED   COL XX    X  X       X   HEX XX
     8283                            *     OBSERVED             X          X
     8284                            *
     8285                            *     BINARY CARD ERROR    TE0123456789
     8286                            *     EXPECTED   COL XX    XX X  XXX
     8287                            *     OBSERVED             XX    XXX
     8288                            *
     8289                            *    INPUT PARAMETERS:
     8290                            *
     8291                            *        REG 15  -RETURN ADDRESS
     8292                            *        :CARDEXP-DISPLAY EXPECTED BUFFER ADDRESS
     8293                            *        :CARDOBS-DISPLAY OBSERVED BUFFER ADDRESS
     8294                            *        :CARDBF-FORCE BINARY CARD DISPLAY
     8295                            *        COMSCOLN -NUMBER COLUMNS IN ERROR
     8296                            *
     8297                            *    REGISTERS DISTURBED:
     8298                            *
     8299                            *        (NONE)
     8300                            *
     8301                            *    OUTPUT PARAMETERS:
     8302                            *
     8303                            *        NORMAL EXIT-RETURN ADDRESS
     8304                            *        ERROR EXIT-RETURN ADDRESS + 1
     8305                            *
     8306   02 01959    02200000 A   :CARDISP LCI      0                 SAVE REG. 0-15 IN PUBLIC
     8307   02 0195A    0B001E4A              PSM,R0   PSTACK              'PUSH-DOWN' STACK
     8308   02 0195B    35201A09              STW,2    CARDER            RESET FIRST ERROR FLAG
     8309   02 0195C    22500000 A            LI,R5    0                 CLEAR HEADER
     8310   02 0195D    35501A03              STW,R5   :CARDFLG              SKIP FLAG
     8311   02 0195E    35501A0A              STW,5    :CARDERR          RESET MSG COUNTER
     8312   02 0195F    33001A07              MTW,0    :CARDBF           TEST BINARY FORCE FLAG
     8313   02 01960    69201966              BCS,2    :CARD0            B: FORCE BINARY CARD DISPLAY    *A01
     8314   02 01961    691019A2              BCS,1    :CARD5            B: FORCE EBCDIC CARD DISPLAY    *A01
     8315   02 01962    F2601A05              LB,R6    *:CARDEXP         TEST FOR
     8316   02 01963    4B601E96              AND,R6   K18                   BINARY
     8317   02 01964    31601E96              CW,R6    K18                   CARD
     8318   02 01965    693019A2              BNE      :CARD5            EBCDIC CARD
     8319   02 01966    33101A04     :CARD0   MTW,1    :CARDBIN          SET BINARY CARD FLAG
     8320   02 01967    22000002 A            LI,R0    2                 SET INDEX FOR BOTH BUFFER
     8321   02 01968    32501A05              LW,R5    :CARDEXP          LOAD REGISTER FOR
     8322   02 01969    22601A0B              LI,R6    :CARDEXB              ADJUSTING EXPECTED
     8323   02 0196A    6800196D              B        %+3                   BUFFER
     8324   02 0196B    32501A06     :CARD1   LW,R5    :CARDOBS          LOAD REGISTER FOR ADJUSTING
     8325   02 0196C    22601A5B              LI,R6    :CARDOBB              OBSERVED BUFFER
     8326   02 0196D    22700000 A            LI,R7    0                 INITIALIZE
     8327   02 0196E    22400000 A   :CARD2   LI,R4    0                    INDEX REGISTERS
     8328   02 0196F    B2C80005 A            LW,R12   *R5,R4            GET BINARY DATA
     8329   02 01970    4BC01F01              AND,R12  =X'FFF00000'      MASK OFF UNWANTED BITS
     8330   02 01971    25C0026C A            SCS,R12  -20               POSITION 12 BITS
     8331   02 01972    B5CE0006 A            STW,R12  *R6,R7            STORE 12 BITS WORD INTO BUFFER TABLE
     8332   02 01973    B2C80005 A            LW,R12   *R5,R4            GET BINARY DATA
     8333   02 01974    4BC01F02              AND,R12  =X'000FFF00'      MASK OFF UNWANTED BITS
     8334   02 01975    25C00278 A            SCS,R12  -8                POSITION 12 BITS
     8335   02 01976    33100007 A            MTW,1    R7                INCREMENT BUFFER TABLE
     8336   02 01977    B5CE0006 A            STW,R12  *R6,R7            STORE 12 BITS WORD INTO BUFFER TABLE
     8337   02 01978    B2C80005 A            LW,R12   *R5,R4            GET BINARY DATA
     8338   02 01979    4BC01E9B              AND,R12  KFF               MASK OFF UNWANTED BITS
     8339   02 0197A    33100004 A            MTW,1    R4                INCREMENT BUFFER WORD
     8340   02 0197B    B2D80005 A            LW,R13   *R5,R4            GET BINARY DATA
     8341   02 0197C    4BD01F03              AND,R13  =X'F0000000'      MASK OFF UNWANTED BITS
     8342   02 0197D    25C00304 A            SCD,R12  4                 POSITION 12 BITS
     8343   02 0197E    33100007 A            MTW,1    R7                INCREMENT BUFFER TABLE
     8344   02 0197F    B5CE0006 A            STW,R12  *R6,R7            STORE 12 BITS WORD INTO BUFFER TABLE
     8345   02 01980    B2C80005 A            LW,R12   *R5,R4            GET BINARY DATA
     8346   02 01981    4BC01F04              AND,R12  =X'0FFF0000'      MASK OFF UNWANTED BITS
     8347   02 01982    25C00270 A            SCS,R12  -16               POSITION 12 BITS
     8348   02 01983    33100007 A            MTW,1    R7                INCREMENT BUFFER TABLE
     8349   02 01984    B5CE0006 A            STW,R12  *R6,R7            STORE 12 BITS WORD INTO BUFFER TABLE
     8350   02 01985    B2C80005 A            LW,R12   *R5,R4            GET BINARY DATA
     8351   02 01986    4BC01F05              AND,R12  =X'0000FFF0'      MASK OFF UNWANTED BITS
     8352   02 01987    25C0027C A            SCS,R12  -4                POSITION 12 BITS
     8353   02 01988    33100007 A            MTW,1    R7                INCREMENT BUFFER TABLE
     8354   02 01989    B5CE0006 A            STW,R12  *R6,R7            STORE 12 BITS WORD INTO BUFFER TABLE
     8355   02 0198A    B2C80005 A            LW,R12   *R5,R4            GET BINARY DATA
     8356   02 0198B    4BC01F06              AND,R12  =X'0000000F'      MASK OFF UNWANTED BITS
     8357   02 0198C    33100004 A            MTW,1    R4                INCREMENT BUFFER WORD
     8358   02 0198D    B2D80005 A            LW,R13   *R5,R4            GET BINARY DATA
     8359   02 0198E    4BD01F07              AND,R13  =X'FF000000'      MASK OFF UNWANTED BITS
     8360   02 0198F    25C00308 A            SCD,R12  8                 POSITION 12 BITS
     8361   02 01990    33100007 A            MTW,1    R7                INCREMENT BUFFER TABLE
     8362   02 01991    B5CE0006 A            STW,R12  *R6,R7            STORE 12 BITS WORD INTO BUFFER TABLE
     8363   02 01992    B2C80005 A            LW,R12   *R5,R4            GET BINARY DATA
     8364   02 01993    4BC01F08              AND,R12  =X'00FFF000'      MASK OFF UNWANTED BITS
     8365   02 01994    25C00274 A            SCS,R12  -12               POSITION 12 BITS
     8366   02 01995    33100007 A            MTW,1    R7                INCREMENT BUFFER TABLE
     8367   02 01996    B5CE0006 A            STW,R12  *R6,R7            STORE 12 BITS WORD INTO BUFFER TABLE
     8368   02 01997    B2C80005 A            LW,R12   *R5,R4            GET BINARY DATA
     8369   02 01998    4BC01E9D              AND,R12  KFFF              MASK OFF UNWANTED BITS
     8370   02 01999    33100007 A            MTW,1    R7                INCREMENT BUFFER TABLE
     8371   02 0199A    B5CE0006 A            STW,R12  *R6,R7            STORE 12 BITS WORD INTO BUFFER TABLE
     8372   02 0199B    33100004 A            MTW,1    R4                INCREMENT BUFFER WORD
     8373   02 0199C    33100007 A            MTW,1    R7                INCREMENT BUFFER TABLE
     8374   02 0199D    20500003 A            AI,R5    3                 INCREMENT BUFFER ADDRESS
     8375   02 0199E    2170004F A            CI,R7    79                ADJUSTING BUFFER DONE
     8376   02 0199F    6910196E              BL       :CARD2            BUFFER NOT DONE, BRANCH
     8377   02 019A0    6400196B              BDR,R0   :CARD1            REPEAT PROCESS FOR OBSERVE BUFFER
     8378   02 019A1    680019B2              B        :CARD8            BOTH BUFFER ADJUSTED
     8379                            *
     8380   02 019A2    22500000 A   :CARD5   LI,R5    0                 EBCDIC CARD RESET
     8381   02 019A3    35501A04              STW,R5   :CARDBIN              BINARY CARD FLAG
     8382   02 019A4    22000002 A            LI,R0    2                 SET INDEX FOR BOTH BUFFER
     8383   02 019A5    32501A05              LW,R5    :CARDEXP          LOAD REGISTER FOR
     8384   02 019A6    22601A0B              LI,R6    :CARDEXB              ADJUSTING EXPECTED BUFFER
     8385   02 019A7    680019AA              B        %+3               SKIP TWO INSTRUCTION
     8386   02 019A8    32501A06     :CARD6   LW,R5    :CARDOBS          LOAD REGISTER FOR
     8387   02 019A9    22601A5B              LI,R6    :CARDOBB              ADJUSTING OBSERVED BUFFER
     8388   02 019AA    22700000 A            LI,R7    0                 INITIALIZE INDEX REGISTER
     8389   02 019AB    F24E0005 A   :CARD7   LB,R4    *R5,R7            GET BYTE FROM EBCDIC INPUT BUFFER
     8390   02 019AC    32481AB1              LW,R4    ETBL,R4           GET EBCDIC WORD FROM EBCDIC TABLE
     8391   02 019AD    B54E0006 A            STW,R4   *R6,R7            STORE IT IN OUTPUT BUFFER
     8392   02 019AE    33100007 A            MTW,1    R7                INCREMENT BUFFER INDEX
     8393   02 019AF    21700050 A            CI,R7    80                ADJUSTING BUFFER DONE ?
     8394   02 019B0    691019AB              BL       :CARD7            IF NOT DONE REPEAT PROCESS
     8395   02 019B1    640019A8              BDR,R0   :CARD6            REPEAT PROCESS IF BOTH BUF NOT DONE
     8396                            *
     8397   02 019B2    22400000 A   :CARD8   LI,R4    0                 COMPARE INDEX
     8398   02 019B3    32681A5B     :CARD9   LW,R6    :CARDOBB,R4       COMPARE EXPECTED WITH OBSERVED
     8399   02 019B4    31681A0B              CW,R6    :CARDEXB,R4           BUFFER IN BINARY OR EBCDIC
     8400   02 019B5    683019FF              BE       :CARD15           COMPARE EQUAL
     8401   02 019B6    31101A09              CW,1     CARDER            FIRST ERROR
     8402   02 019B7    683019BA              BE       %+3               B: NO
     8403   02 019B8    35101A09              STW,1    CARDER            SET ERROR FLAG
     8404   02 019B9    B3101E4A              MTW,1    *PSTACK           SET UP ERROR RETURN ADDRESS
     8405   02 019BA    32C81A0B              LW,R12   :CARDEXB,R4       GET EXPECTED AND OBSERVED
     8406   02 019BB    32D81A5B              LW,R13   :CARDOBB,R4           BUFFER
     8407   02 019BC    2260000C A            LI,R6    12                SET SHIFT BIT INDEX
     8408   02 019BD    220000E7 A            LI,R0    X'E7'             GET CHARATER 'X'
     8409   02 019BE    22800040 A            LI,R8    X'40'             GET BLANK CHARACTER
     8410   02 019BF    21C00001 A   :CARD10  CI,R12   1                 COMPARE LAST BIT OF REGISTER 12
     8411   02 019C0    684019C3              BCR,4    %+3               LAST BIT EQUAL ZERO, SKIP
     8412   02 019C1    750C1BC6              STB,R0   :CARMSG2+06,R6    STORE 'X' IN CARMSG2
     8413   02 019C2    680019C4              B        %+2               SKIP INSTRUCTION
     8414   02 019C3    758C1BC6              STB,R8   :CARMSG2+06,R6    STORE BLANK CHARACTER IN CARMSG2
     8415   02 019C4    21D00001 A            CI,R13   1                 COMPARE LAST BIT OF REGISTER 13
     8416   02 019C5    684019C8              BCR,4    %+3               LAST BIT EQUAL ZERO, SKIP
     8417   02 019C6    750C1BD2              STB,R0   :CARMSG3+06,R6    INSERT 'X' IN CARMSG3
     8418   02 019C7    680019C9              B        %+2               SKIP INSTRUCTION
     8419   02 019C8    758C1BD2              STB,R8   :CARMSG3+06,R6    STORE BLANK CHARACTER IN CARMSG3
     8420   02 019C9    25C0017F A            SLD,R12  -1                SHIFT RIGHT 1 BIT (R12,R13)
     8421   02 019CA    646019BF              BDR,R6   :CARD10           IF SHIFT NOT DONE, REPEAT
     8422   02 019CB    33001A03              MTW,0    :CARDFLG          TEST HEADER FLAG
     8423   02 019CC    693019D7              BNE      :CARD11           SKIP PRINT HEADER
     8424   02 019CD    33101A03              MTW,1    :CARDFLG          SET FLAG FOR SKIP PRINT HEADER
     8425   02 019CE    33001A04              MTW,0    :CARDBIN
     8426   02 019CF    693019D2              BNE      %+3
     8427   02 019D0    12A01BB2              LD,R10   :CARMSGE          GET CHARACTER 'EBCDIC'
     8428   02 019D1    680019D3              B        %+2
     8429   02 019D2    12A01BB4              LD,R10   :CARMSGB          GET CHARACTER 'BINARY'
     8430   02 019D3    35A01BB7              STW,R10  :CARMSG1+1        STORE IT IN CARMSG1+1
     8431   02 019D4    35B01BB8              STW,R11  :CARMSG1+2        STORE IT IN CARMSG1+1
     8432   02 019D5    EAF0021C A            BAL,R15  *:PRINT           PRINT HEADER
     8433   02 019D6    00001BB6              DATA     :CARMSG1          MSG ADDRESS
     8434                            *
     8435   02 019D7    32C00004 A   :CARD11  LW,R12   R4                GET CARD COLUMN NUMBER
     8436   02 019D8    20C00001 A            AI,R12   1
     8437   02 019D9    EAF00217 A            BAL,R15  *:DECC            CONVERT IT INTO DECIMAL
     8438   02 019DA    55F01BC5              STH,R15  :CARMSG2+5        INSERT IT IN MESSAGE 2
     8439   02 019DB    32C00004 A            LW,R12   R4
     8440   02 019DC    20C00001 A            AI,R12   1
     8441   02 019DD    31C01958              CW,R12   COMSCOLN          TEST FOR COLUMN IN SYNC
     8442   02 019DE    682019EB              BLE      :CARD131           NOT IN SYNC
     8443   02 019DF    33001A04     :CARD12  MTW,0    :CARDBIN          TEST FOR BINARY CARD
     8444   02 019E0    693019E7              BNEZ     :CARD13           BINARY
     8445   02 019E1    F2C81A05              LB,R12   *:CARDEXP,R4      GET EBCDIC HEX EQUIVALENT
     8446   02 019E2    EAF00218 A            BAL,15   *:HEXC            CONVERT TO EBCDIC
     8447   02 019E3    55F01BCB              STH,R15  :CARMSG2+11       STORE IT IN CARMSG2+11
     8448   02 019E4    32601BB1              LW,R6    :CARDHEX          GET CHARACTER 'HEX'
     8449   02 019E5    35601BCA              STW,R6   :CARMSG2+10       STORE IT IN CARMSG2+10
     8450   02 019E6    680019F7              B        :CARD14
     8451   02 019E7    3260105B     :CARD13  LW,R6    EBLANK            BLANK OUT CHARACTER
     8452   02 019E8    35601BCA              STW,R6   :CARMSG2+10           'HEX  ' IN
     8453   02 019E9    55601BCB              STH,R6   :CARMSG2+11
     8454   02 019EA    680019F7              B        :CARD14           GO TO PRINT
     8455   02 019EB    32601F09     :CARD131 LW,R6    =X'406F6F6F'
     8456   02 019EC    35601BC6              STW,R6   :CARMSG2+6            EXPECTED DATA
     8457   02 019ED    32601F0A              LW,R6    =X'6F6F6F6F'           NOT IN SYNC
     8458   02 019EE    35601BC7              STW,R6   :CARMSG2+7            FILL BUFFER
     8459   02 019EF    35601BC8              STW,R6   :CARMSG2+8            WITH '???...'
     8460   02 019F0    32601F0B              LW,R6    =X'6F404040'
     8461   02 019F1    35601BC9              STW,R6   :CARMSG2+9
     8462   02 019F2    3260105B              LW,R6    EBLANK
     8463   02 019F3    35601BCA              STW,R6   :CARMSG2+10
     8464   02 019F4    3260105B              LW,R6    EBLANK            BLANK OUT CHARACTER
     8465   02 019F5    35601BCA              STW,R6   :CARMSG2+10            'HEX  '  IN MSG
     8466   02 019F6    35601BCB              STW,R6   :CARMSG2+11
     8467   02 019F7    EAF0021C A   :CARD14  BAL,R15  *:PRINT           PRINT MSG
     8468   02 019F8    00001BC0              DATA     :CARMSG2          MSG ADDRESS
     8469                            *
     8470   02 019F9    EAF0021C A            BAL,R15  *:PRINT           PRINT MSG
     8471   02 019FA    00001BCC              DATA     :CARMSG3          MSG ADDRESS
     8472   02 019FB    33101A0A              MTW,1    :CARDERR          INCR ERROR MSG COUNTER
     8473   02 019FC    32801A0A              LW,8     :CARDERR
     8474   02 019FD    318015E4              CW,8     :COMPLIM          TEST FOR > 'LIMT' VALUE
     8475   02 019FE    68101A02              BGE      :CARD16
     8476                            *
     8477   02 019FF    33100004 A   :CARD15  MTW,1    R4                INCREMENT COMPARE BUFFER INDEX
     8478   02 01A00    21400050 A            CI,R4    80                COMPARE DONE ?
     8479   02 01A01    691019B3              BL       :CARD9            IF COMPARE NOT DONE, REPEAT PROCESS
     8480   02 01A02    68001087     :CARD16  B        POP15             EXIT
     8481                            *
     8482   02 01A03                 :CARDFLG RES      1
     8483   02 01A04    00000000 A   :CARDBIN DATA     0
     8484   02 01A05    00000000 A   :CARDEXP DATA     0
     8485   02 01A06    00000000 A   :CARDOBS DATA     0
     8486   02 01A07    00000000 A   :CARDBF  DATA     0
     8487   02 01A08    00000000 A   CARDISPF DATA     0                 CARD DISPLAY FLAG
     8488   02 01A09    00000000 A   CARDER   DATA     0                 FIRST ERROR FLAG
     8489   02 01A0A    00000000 A   :CARDERR DATA     0
     8490   02 01A0B                 :CARDEXB RES      80
     8491   02 01A5B                 :CARDOBB RES      80
     8492                            *
     8493                            *        CARDSET1 - SET UP :CARDEXP AND :CARDOBS TO:
     8494                            *        :CARDEXP - BUFFER
     8495                            *        :CARDOBS - BUFFER2
     8496                            *
     8497   02 01AAB    09F01E4A     CARDSET1 PSW,15   PSTACK            SAVE RETURN ADDRESS IN STACK
     8498   02 01AAC    22F01F74              LI,15    BUFFER
     8499   02 01AAD    35F01A05              STW,15   :CARDEXP
     8500   02 01AAE    22F01FEA              LI,15    BUFFER2
     8501   02 01AAF    35F01A06              STW,15   :CARDOBS
     8502   02 01AB0    6800039D              B        POP               RETURN
     8503                            *
     8504                            * EBCDIC CHARACTER AND PUNCH CODE TABLE
     8505                            *  BITS  0-7      EBCDIC CHARACTERS 00-FF
     8506                            *        8-15     EQUIVALENT EBCDIC CHARACTERS
     8507                            *        16       CONTROL BIT FOR LEGALITY TEST BINARY 1-7
     8508                            *        17-19    CHECKSUM VALUE OF BINARY PUNCH CONFIGURATION
     8509                            *        20-31    BINARY PUNCH CONFIGURATION FOR EBCDIC CHARACTER
     8510                            *
     8511   02 01AB1    0040DB03 A   ETBL     DATA     X'0040DB03'
     8512   02 01AB2    01F9B901 A            DATA     X'01F9B901'
     8513   02 01AB3    02F8B881 A            DATA     X'02F8B881'
     8514   02 01AB4    03383841 A            DATA     X'03383841'
     8515   02 01AB5    04F7B821 A            DATA     X'04F7B821'
     8516   02 01AB6    05373811 A            DATA     X'05373811'
     8517   02 01AB7    067F3809 A            DATA     X'067F3809'
     8518   02 01AB8    073F3805 A            DATA     X'073F3805'
     8519   02 01AB9    08F6B803 A            DATA     X'08F6B803'
     8520   02 01ABA    09364903 A            DATA     X'09364903'
     8521   02 01ABB    0A7E4883 A            DATA     X'0A7E4883'
     8522   02 01ABC    0B3E4843 A            DATA     X'0B3E4843'
     8523   02 01ABD    0CF54823 A            DATA     X'0CF54823'
     8524   02 01ABE    0D354813 A            DATA     X'0D354813'
     8525   02 01ABF    0E7D480B A            DATA     X'0E7D480B'
     8526   02 01AC0    0F3D4807 A            DATA     X'0F3D4807'
     8527   02 01AC1    10F4DD03 A            DATA     X'10F4DD03'
     8528   02 01AC2    11343501 A            DATA     X'11343501'
     8529   02 01AC3    127C3481 A            DATA     X'127C3481'
     8530   02 01AC4    133C3441 A            DATA     X'133C3441'
     8531   02 01AC5    14F33421 A            DATA     X'14F33421'
     8532   02 01AC6    15333411 A            DATA     X'15333411'
     8533   02 01AC7    167B3409 A            DATA     X'167B3409'
     8534   02 01AC8    173B3405 A            DATA     X'173B3405'
     8535   02 01AC9    18F23403 A            DATA     X'18F23403'
     8536   02 01ACA    19324503 A            DATA     X'19324503'
     8537   02 01ACB    1A7A4483 A            DATA     X'1A7A4483'
     8538   02 01ACC    1B3A4443 A            DATA     X'1B3A4443'
     8539   02 01ACD    1CF14423 A            DATA     X'1CF14423'
     8540   02 01ACE    1D314413 A            DATA     X'1D314413'
     8541   02 01ACF    1E79440B A            DATA     X'1E79440B'
     8542   02 01AD0    1F394407 A            DATA     X'1F394407'
     8543   02 01AD1    20F0D703 A            DATA     X'20F0D703'
     8544   02 01AD2    21E93301 A            DATA     X'21E93301'
     8545   02 01AD3    22E83281 A            DATA     X'22E83281'
     8546   02 01AD4    23283241 A            DATA     X'23283241'
     8547   02 01AD5    24E73221 A            DATA     X'24E73221'
     8548   02 01AD6    25273211 A            DATA     X'25273211'
     8549   02 01AD7    266F3209 A            DATA     X'266F3209'
     8550   02 01AD8    272F3205 A            DATA     X'272F3205'
     8551   02 01AD9    28E63203 A            DATA     X'28E63203'
     8552   02 01ADA    29264303 A            DATA     X'29264303'
     8553   02 01ADB    2A6E4283 A            DATA     X'2A6E4283'
     8554   02 01ADC    2B2E4243 A            DATA     X'2B2E4243'
     8555   02 01ADD    2CE54223 A            DATA     X'2CE54223'
     8556   02 01ADE    2D254213 A            DATA     X'2D254213'
     8557   02 01ADF    2E6D420B A            DATA     X'2E6D420B'
     8558   02 01AE0    2F2D4207 A            DATA     X'2F2D4207'
     8559   02 01AE1    30E46F03 A            DATA     X'30E46F03'
     8560   02 01AE2    31242101 A            DATA     X'31242101'
     8561   02 01AE3    326C2081 A            DATA     X'326C2081'
     8562   02 01AE4    332C2041 A            DATA     X'332C2041'
     8563   02 01AE5    34E32021 A            DATA     X'34E32021'
     8564   02 01AE6    35232011 A            DATA     X'35232011'
     8565   02 01AE7    366B2009 A            DATA     X'366B2009'
     8566   02 01AE8    372B2005 A            DATA     X'372B2005'
     8567   02 01AE9    38E22003 A            DATA     X'38E22003'
     8568   02 01AEA    39223103 A            DATA     X'39223103'
     8569   02 01AEB    3AE03083 A            DATA     X'3AE03083'
     8570   02 01AEC    3B2A3043 A            DATA     X'3B2A3043'
     8571   02 01AED    3C613023 A            DATA     X'3C613023'
     8572   02 01AEE    3D213013 A            DATA     X'3D213013'
     8573   02 01AEF    3E69300B A            DATA     X'3E69300B'
     8574   02 01AF0    3F293007 A            DATA     X'3F293007'
     8575   02 01AF1    40608000 A            DATA     X'40608000'
     8576   02 01AF2    41D94B01 A            DATA     X'41D94B01'
     8577   02 01AF3    42D84A81 A            DATA     X'42D84A81'
     8578   02 01AF4    43184A41 A            DATA     X'43184A41'
     8579   02 01AF5    44D74A21 A            DATA     X'44D74A21'
     8580   02 01AF6    45174A11 A            DATA     X'45174A11'
     8581   02 01AF7    465F4A09 A            DATA     X'465F4A09'
     8582   02 01AF8    471F4A05 A            DATA     X'471F4A05'
     8583   02 01AF9    48D64A03 A            DATA     X'48D64A03'
     8584   02 01AFA    49163902 A            DATA     X'49163902'
     8585   02 01AFB    4A5E3882 A            DATA     X'4A5E3882'
     8586   02 01AFC    4B1E3842 A            DATA     X'4B1E3842'
     8587   02 01AFD    4CD53822 A            DATA     X'4CD53822'
     8588   02 01AFE    4D153812 A            DATA     X'4D153812'
     8589   02 01AFF    4E5D380A A            DATA     X'4E5D380A'
     8590   02 01B00    4F1D3806 A            DATA     X'4F1D3806'
     8591   02 01B01    50D41800 A            DATA     X'50D41800'
     8592   02 01B02    51144D01 A            DATA     X'51144D01'
     8593   02 01B03    525C4C81 A            DATA     X'525C4C81'
     8594   02 01B04    531C4C41 A            DATA     X'531C4C41'
     8595   02 01B05    54D34C21 A            DATA     X'54D34C21'
     8596   02 01B06    55134C11 A            DATA     X'55134C11'
     8597   02 01B07    565B4C09 A            DATA     X'565B4C09'
     8598   02 01B08    571B4C05 A            DATA     X'571B4C05'
     8599   02 01B09    58D24C03 A            DATA     X'58D24C03'
     8600   02 01B0A    59123502 A            DATA     X'59123502'
     8601   02 01B0B    5A5A3482 A            DATA     X'5A5A3482'
     8602   02 01B0C    5B1A3442 A            DATA     X'5B1A3442'
     8603   02 01B0D    5CD13422 A            DATA     X'5CD13422'
     8604   02 01B0E    5D113412 A            DATA     X'5D113412'
     8605   02 01B0F    5E59340A A            DATA     X'5E59340A'
     8606   02 01B10    5F193406 A            DATA     X'5F193406'
     8607   02 01B11    60D01400 A            DATA     X'60D01400'
     8608   02 01B12    61A92300 A            DATA     X'61A92300'
     8609   02 01B13    62A84681 A            DATA     X'62A84681'
     8610   02 01B14    63684641 A            DATA     X'63684641'
     8611   02 01B15    64A74621 A            DATA     X'64A74621'
     8612   02 01B16    65674611 A            DATA     X'65674611'
     8613   02 01B17    66AF4609 A            DATA     X'66AF4609'
     8614   02 01B18    67EF4605 A            DATA     X'67EF4605'
     8615   02 01B19    68A64603 A            DATA     X'68A64603'
     8616   02 01B1A    69663302 A            DATA     X'69663302'
     8617   02 01B1B    6AAE2C00 A            DATA     X'6AAE2C00'
     8618   02 01B1C    6BEE3242 A            DATA     X'6BEE3242'
     8619   02 01B1D    6CA53222 A            DATA     X'6CA53222'
     8620   02 01B1E    6D653212 A            DATA     X'6D653212'
     8621   02 01B1F    6EAD320A A            DATA     X'6EAD320A'
     8622   02 01B20    6FED3206 A            DATA     X'6FED3206'
     8623   02 01B21    70A43E00 A            DATA     X'70A43E00'
     8624   02 01B22    71645F01 A            DATA     X'71645F01'
     8625   02 01B23    72AC5E81 A            DATA     X'72AC5E81'
     8626   02 01B24    73EC5E41 A            DATA     X'73EC5E41'
     8627   02 01B25    74A35E21 A            DATA     X'74A35E21'
     8628   02 01B26    75635E11 A            DATA     X'75635E11'
     8629   02 01B27    76AB5E09 A            DATA     X'76AB5E09'
     8630   02 01B28    77EB5E05 A            DATA     X'77EB5E05'
     8631   02 01B29    78A25E03 A            DATA     X'78A25E03'
     8632   02 01B2A    79622102 A            DATA     X'79622102'
     8633   02 01B2B    7AAA2082 A            DATA     X'7AAA2082'
     8634   02 01B2C    7BEA2042 A            DATA     X'7BEA2042'
     8635   02 01B2D    7CA12022 A            DATA     X'7CA12022'
     8636   02 01B2E    7DE12012 A            DATA     X'7DE12012'
     8637   02 01B2F    7EA0200A A            DATA     X'7EA0200A'
     8638   02 01B30    7F202006 A            DATA     X'7F202006'
     8639   02 01B31    80504B02 A            DATA     X'80504B02'
     8640   02 01B32    81C93B00 A            DATA     X'81C93B00'
     8641   02 01B33    82C83A80 A            DATA     X'82C83A80'
     8642   02 01B34    83083A40 A            DATA     X'83083A40'
     8643   02 01B35    84C73A20 A            DATA     X'84C73A20'
     8644   02 01B36    85073A10 A            DATA     X'85073A10'
     8645   02 01B37    864F3A08 A            DATA     X'864F3A08'
     8646   02 01B38    870F3A04 A            DATA     X'870F3A04'
     8647   02 01B39    88C63A02 A            DATA     X'88C63A02'
     8648   02 01B3A    89063A01 A            DATA     X'89063A01'
     8649   02 01B3B    8A4E4A82 A            DATA     X'8A4E4A82'
     8650   02 01B3C    8B0E4A42 A            DATA     X'8B0E4A42'
     8651   02 01B3D    8CC54A22 A            DATA     X'8CC54A22'
     8652   02 01B3E    8D054A12 A            DATA     X'8D054A12'
     8653   02 01B3F    8E4D4A0A A            DATA     X'8E4D4A0A'
     8654   02 01B40    8F0D4A06 A            DATA     X'8F0D4A06'
     8655   02 01B41    90C44D02 A            DATA     X'90C44D02'
     8656   02 01B42    91043D00 A            DATA     X'91043D00'
     8657   02 01B43    924C3C80 A            DATA     X'924C3C80'
     8658   02 01B44    930C3C40 A            DATA     X'930C3C40'
     8659   02 01B45    94C33C20 A            DATA     X'94C33C20'
     8660   02 01B46    95033C10 A            DATA     X'95033C10'
     8661   02 01B47    964B3C08 A            DATA     X'964B3C08'
     8662   02 01B48    970B3C04 A            DATA     X'970B3C04'
     8663   02 01B49    98C23C02 A            DATA     X'98C23C02'
     8664   02 01B4A    99023C01 A            DATA     X'99023C01'
     8665   02 01B4B    9A4A4C82 A            DATA     X'9A4A4C82'
     8666   02 01B4C    9B0A4C42 A            DATA     X'9B0A4C42'
     8667   02 01B4D    9CC14C22 A            DATA     X'9CC14C22'
     8668   02 01B4E    9D014C12 A            DATA     X'9D014C12'
     8669   02 01B4F    9E494C0A A            DATA     X'9E494C0A'
     8670   02 01B50    9F094C06 A            DATA     X'9F094C06'
     8671   02 01B51    A0C04702 A            DATA     X'A0C04702'
     8672   02 01B52    A1893700 A            DATA     X'A1893700'
     8673   02 01B53    A2883680 A            DATA     X'A2883680'
     8674   02 01B54    A3483640 A            DATA     X'A3483640'
     8675   02 01B55    A4873620 A            DATA     X'A4873620'
     8676   02 01B56    A5473610 A            DATA     X'A5473610'
     8677   02 01B57    A68F3608 A            DATA     X'A68F3608'
     8678   02 01B58    A7CF3604 A            DATA     X'A7CF3604'
     8679   02 01B59    A8863602 A            DATA     X'A8863602'
     8680   02 01B5A    A9463601 A            DATA     X'A9463601'
     8681   02 01B5B    AA8E4682 A            DATA     X'AA8E4682'
     8682   02 01B5C    ABCE4642 A            DATA     X'ABCE4642'
     8683   02 01B5D    AC854622 A            DATA     X'AC854622'
     8684   02 01B5E    AD454612 A            DATA     X'AD454612'
     8685   02 01B5F    AE8D460A A            DATA     X'AE8D460A'
     8686   02 01B60    AFCD4606 A            DATA     X'AFCD4606'
     8687   02 01B61    B0845F02 A            DATA     X'B0845F02'
     8688   02 01B62    B1444F00 A            DATA     X'B1444F00'
     8689   02 01B63    B28C4E80 A            DATA     X'B28C4E80'
     8690   02 01B64    B3CC4E40 A            DATA     X'B3CC4E40'
     8691   02 01B65    B4834E20 A            DATA     X'B4834E20'
     8692   02 01B66    B5434E10 A            DATA     X'B5434E10'
     8693   02 01B67    B68B4E08 A            DATA     X'B68B4E08'
     8694   02 01B68    B7CB4E04 A            DATA     X'B7CB4E04'
     8695   02 01B69    B8824E02 A            DATA     X'B8824E02'
     8696   02 01B6A    B9424E01 A            DATA     X'B9424E01'
     8697   02 01B6B    BA8A5E82 A            DATA     X'BA8A5E82'
     8698   02 01B6C    BBCA5E42 A            DATA     X'BBCA5E42'
     8699   02 01B6D    BC815E22 A            DATA     X'BC815E22'
     8700   02 01B6E    BD415E12 A            DATA     X'BD415E12'
     8701   02 01B6F    BE805E0A A            DATA     X'BE805E0A'
     8702   02 01B70    BF005E06 A            DATA     X'BF005E06'
     8703   02 01B71    C06A2A00 A            DATA     X'C06A2A00'
     8704   02 01B72    C1992900 A            DATA     X'C1992900'
     8705   02 01B73    C2982880 A            DATA     X'C2982880'
     8706   02 01B74    C3582840 A            DATA     X'C3582840'
     8707   02 01B75    C4972820 A            DATA     X'C4972820'
     8708   02 01B76    C5572810 A            DATA     X'C5572810'
     8709   02 01B77    C69F2808 A            DATA     X'C69F2808'
     8710   02 01B78    C7DF2804 A            DATA     X'C7DF2804'
     8711   02 01B79    C8962802 A            DATA     X'C8962802'
     8712   02 01B7A    C9562801 A            DATA     X'C9562801'
     8713   02 01B7B    CA9E5A83 A            DATA     X'CA9E5A83'
     8714   02 01B7C    CBDE5A43 A            DATA     X'CBDE5A43'
     8715   02 01B7D    CC955A23 A            DATA     X'CC955A23'
     8716   02 01B7E    CD555A13 A            DATA     X'CD555A13'
     8717   02 01B7F    CE9D5A0B A            DATA     X'CE9D5A0B'
     8718   02 01B80    CFDD5A07 A            DATA     X'CFDD5A07'
     8719   02 01B81    D0942600 A            DATA     X'D0942600'
     8720   02 01B82    D1542500 A            DATA     X'D1542500'
     8721   02 01B83    D29C2480 A            DATA     X'D29C2480'
     8722   02 01B84    D3DC2440 A            DATA     X'D3DC2440'
     8723   02 01B85    D4932420 A            DATA     X'D4932420'
     8724   02 01B86    D5532410 A            DATA     X'D5532410'
     8725   02 01B87    D69B2408 A            DATA     X'D69B2408'
     8726   02 01B88    D7DB2404 A            DATA     X'D7DB2404'
     8727   02 01B89    D8922402 A            DATA     X'D8922402'
     8728   02 01B8A    D9522401 A            DATA     X'D9522401'
     8729   02 01B8B    DA9A5C83 A            DATA     X'DA9A5C83'
     8730   02 01B8C    DBDA5C43 A            DATA     X'DBDA5C43'
     8731   02 01B8D    DC915C23 A            DATA     X'DC915C23'
     8732   02 01B8E    DD515C13 A            DATA     X'DD515C13'
     8733   02 01B8F    DE905C0B A            DATA     X'DE905C0B'
     8734   02 01B90    DF105C07 A            DATA     X'DF105C07'
     8735   02 01B91    E0703282 A            DATA     X'E0703282'
     8736   02 01B92    E1B94701 A            DATA     X'E1B94701'
     8737   02 01B93    E2B82280 A            DATA     X'E2B82280'
     8738   02 01B94    E3782240 A            DATA     X'E3782240'
     8739   02 01B95    E4B72220 A            DATA     X'E4B72220'
     8740   02 01B96    E5772210 A            DATA     X'E5772210'
     8741   02 01B97    E6BF2208 A            DATA     X'E6BF2208'
     8742   02 01B98    E7FF2204 A            DATA     X'E7FF2204'
     8743   02 01B99    E8B62202 A            DATA     X'E8B62202'
     8744   02 01B9A    E9762201 A            DATA     X'E9762201'
     8745   02 01B9B    EABE5683 A            DATA     X'EABE5683'
     8746   02 01B9C    EBFE5643 A            DATA     X'EBFE5643'
     8747   02 01B9D    ECB55623 A            DATA     X'ECB55623'
     8748   02 01B9E    ED755613 A            DATA     X'ED755613'
     8749   02 01B9F    EEBD560B A            DATA     X'EEBD560B'
     8750   02 01BA0    EFFD5607 A            DATA     X'EFFD5607'
     8751   02 01BA1    F0B41200 A            DATA     X'F0B41200'
     8752   02 01BA2    F1741100 A            DATA     X'F1741100'
     8753   02 01BA3    F2BC1080 A            DATA     X'F2BC1080'
     8754   02 01BA4    F3FC1040 A            DATA     X'F3FC1040'
     8755   02 01BA5    F4B31020 A            DATA     X'F4B31020'
     8756   02 01BA6    F5731010 A            DATA     X'F5731010'
     8757   02 01BA7    F6BB1008 A            DATA     X'F6BB1008'
     8758   02 01BA8    F7FB1004 A            DATA     X'F7FB1004'
     8759   02 01BA9    F8B21002 A            DATA     X'F8B21002'
     8760   02 01BAA    F9721001 A            DATA     X'F9721001'
     8761   02 01BAB    FABA6E83 A            DATA     X'FABA6E83'
     8762   02 01BAC    FBFA6E43 A            DATA     X'FBFA6E43'
     8763   02 01BAD    FCB16E23 A            DATA     X'FCB16E23'
     8764   02 01BAE    FD716E13 A            DATA     X'FD716E13'
     8765   02 01BAF    FEB06E0B A            DATA     X'FEB06E0B'
     8766   02 01BB0    FF306E07 A            DATA     X'FF306E07'
     8767                            *
     8768   02 01BB1    C8C5E740 A   :CARDHEX TEXT     'HEX '
     8769                                     BOUND    8
     8770   02 01BB2    C5C2C3C4 A   :CARMSGE TEXT     'EBCDIC  '
            02 01BB3    C9C34040 A
     8771   02 01BB4    C2C9D5C1 A   :CARMSGB TEXT     'BINARY  '
            02 01BB5    D9E84040 A
     8772   02 01BB6    24404040 A   :CARMSG1 TEXTC    '           CARD ERROR   TE0123456789'
            02 01BB7    40404040 A
            02 01BB8    40404040 A
            02 01BB9    C3C1D9C4 A
            02 01BBA    40C5D9D9 A
            02 01BBB    D6D94040 A
            02 01BBC    40E3C5F0 A
            02 01BBD    F1F2F3F4 A
            02 01BBE    F5F6F7F8 A
            02 01BBF    F9404040 A
     8773   02 01BC0    2D404040 A   :CARMSG2 TEXTC    '      EXPECTED COL XX                  HEX XX'
            02 01BC1    404040C5 A
            02 01BC2    E7D7C5C3 A
            02 01BC3    E3C5C440 A
            02 01BC4    C3D6D340 A
            02 01BC5    E7E74040 A
            02 01BC6    40404040 A
            02 01BC7    40404040 A
            02 01BC8    40404040 A
            02 01BC9    40404040 A
            02 01BCA    C8C5E740 A
            02 01BCB    E7E74040 A
     8774   02 01BCC    24404040 A   :CARMSG3 TEXTC    '      OBSERVED                      '
            02 01BCD    404040D6 A
            02 01BCE    C2E2C5D9 A
            02 01BCF    E5C5C440 A
            02 01BD0    40404040 A
            02 01BD1    40404040 A
            02 01BD2    40404040 A
            02 01BD3    40404040 A
            02 01BD4    40404040 A
            02 01BD5    40404040 A
     8775                            *             *** INTERRUPT/TRAP HANDLER ***
     8776                            *
     8777                            * PARAMETERS REQ'D:
     8778                            * ----------------
     8779                            *   ITHTEST - TEST BEING PERFORMED (1=TST1,2=TST2,3=TST3)
     8780                            *   ITHSUBT - SUBTEST BEING PERFORMED (TST1 ONLY)
     8781                            *   ITHRST  - RESTART ADDRESS
     8782                            *
     8783   02 01BD6    09F01E4A     ITHDLR   PSW,15   PSTACK            SAVE RETURN ADDRESS ON STACK
     8784   02 01BD7    32C01BEA              LW,12    ITHTEST           TEST NUMBER
     8785   02 01BD8    EAF00218 A            BAL,15   *:HEXC            CONVERT TO EBCDIC
     8786   02 01BD9    75F21BEE              STB,15   ITHM2+1,1         ENTER INTO MSG
     8787   02 01BDA    EAF0021C A            BAL,15   *:PRINT
     8788   02 01BDB    00001BED              DATA     ITHM2             'TSTX WILL BE RESTARTED'
     8789   02 01BDC    31101BEA              CW,1     ITHTEST           TST1?
     8790   02 01BDD    69301BE3              BNE      %+6               NO
     8791   02 01BDE    32C01BEB              LW,12    ITHSUBT           SUBTEST NUMBER
     8792   02 01BDF    EAF00217 A            BAL,15   *:DECC            CONVERT TO EBCDIC
     8793   02 01BE0    55F21BF6              STH,15   ITHM3+3,1         ENTER INTO MSG
     8794   02 01BE1    EAF0021C A            BAL,15   *:PRINT
     8795   02 01BE2    00001BF3              DATA     ITHM3             'SUBTEST NO. XX'
     8796   02 01BE3    32C0172A              LW,12    :DEVADDR          DEVICE ADDRESS
     8797   02 01BE4    EAF00218 A            BAL,15   *:HEXC            CONVERT TO EBCDIC
     8798   02 01BE5    35F01BFA              STW,15   ITHM4+3           ENTER INTO MSG
     8799   02 01BE6    EAF0021C A            BAL,15   *:PRINT
     8800   02 01BE7    00001BF7              DATA     ITHM4             'DEVICE NO.XXXX'
     8801   02 01BE8    32F01BEC              LW,15    ITHRST            (R15)=RESTART ADDRESS
     8802   02 01BE9    6800039D              B        POP               RETURN TO MONITOR INTER/TRAP HANDLER
     8803                            *
     8804   02 01BEA    00000000 A   ITHTEST  DATA     0
     8805   02 01BEB    00000000 A   ITHSUBT  DATA     0
     8806   02 01BEC    00000000 A   ITHRST   DATA     0
     8807                            *
     8808   02 01BED    1740E3E2 A   ITHM2    TEXTC    ' TSTX WILL BE RESTARTED'
            02 01BEE    E3E740E6 A
            02 01BEF    C9D3D340 A
            02 01BF0    C2C540D9 A
            02 01BF1    C5E2E3C1 A
            02 01BF2    D9E3C5C4 A
     8809   02 01BF3    0F40E2E4 A   ITHM3    TEXTC    ' SUBTEST NO. XX'
            02 01BF4    C2E3C5E2 A
            02 01BF5    E340D5D6 A
            02 01BF6    4B40E7E7 A
     8810   02 01BF7    0F40C4C5 A   ITHM4    TEXTC    ' DEVICE NO.XXXX'
            02 01BF8    E5C9C3C5 A
            02 01BF9    40D5D64B A
            02 01BFA    E7E7E7E7 A
     8811                            *                                                                      *
     8812                            *             *** EXECUTE  ***                                         *
     8813                            *                                                                      *
     8814                            * THE EXECUTE ROUTINE ISSUE AN SIO AND DELAYS UNTIL THE CE INTERRUPT   *
     8815                            * IS RECEIVED. STATUS IS TESTED AND ERROR EXIT TAKEN IF STATUS ERROR   *
     8816                            * EXISTS.                                                              *
     8817                            *                                                                      *
     8818                            *  REG. REQUIRED: NONE                                                 *
     8819                            *                                                                      *
     8820   02 01BFB    02200040 A   EXECUTE  LCI      4                 SAVE REG. 12-15 IN PUBLIC
     8821   02 01BFC    0BC01E4A              PSM,12   PSTACK              'PUSH-DOWN' STACK
     8822   02 01BFD    6AF0106F              BAL,15   DEVTEST           TEST FOR TYPE OF DEVICE
     8823   02 01BFE    68001C03              B        %+5               B: CARD READER
     8824   02 01BFF    68001C03              B        %+4               B: MODEL 7165
     8825   02 01C00    68001C01              B        %+1               B: MODEL 7160-1
     8826   02 01C01    22F00100 A            LI,15    X'0100'              MODEL 7160-2
     8827   02 01C02    68001C04              B        %+2
     8828   02 01C03    22F00010 A            LI,15    X'0010'
     8829   02 01C04    55F01C22              STH,15   EXECS             STORE AIO STATUS
     8830   02 01C05    32C0005C A            LW,12    X'5C'
     8831   02 01C06    35C01C41              STW,12   PRES5C            SAVE OLD INTERRUPT HANDLER
     8832   02 01C07    32C01C36              LW,12    EXECXPSD
     8833   02 01C08    35C0005C A            STW,12   X'5C'             ENTER IO INTER XPSD INTO LOC.
     8834   02 01C09    22C00000 A            LI,12    0
     8835   02 01C0A    35C01C37              STW,12   EXECERR           RESET ERROR FLAG
     8836   02 01C0B    6AF01702              BAL,15   :IOEXEC           ISSUE SIO
     8837   02 01C0C    6AF018CB              BAL,15   :INTAE            ARM/ENABLE IO INTERRUPT
     8838   02 01C0D    32C01C38              LW,12    EXECDTM           MAX DELAY TIME
     8839   02 01C0E    35C01C39              STW,12   EXECDT            SAVE
     8840   02 01C0F    33001764              MTW,0    :INTRECF          TEST INTER REC'D FLAG
     8841   02 01C10    69301C1C              BNEZ     EXEC2             SET - INTER REC'D
     8842   02 01C11    33F01C39              MTW,-1   EXECDT            DECR DELAY TIME
     8843   02 01C12    69201C0F              BGZ      %-3               DELAY TIME NOT 0
     8844   02 01C13    6AF018D1              BAL,15   :INTD             DISARM IO INTERRUPT
     8845   02 01C14    EAF0021C A            BAL,15   *:PRINT
     8846   02 01C15    00001C3A              DATA     EXECMSG           'IO INTER NOT REC'D'
     8847   02 01C16    B3101E4A              MTW,1    *PSTACK           INCR EXIT ADDR
     8848   02 01C17    32C01C41     EXEC1    LW,12    PRES5C
     8849   02 01C18    35C0005C A            STW,12   X'5C'             RESTORE OLD INTERRUPT HANDLER
     8850   02 01C19    02200040 A            LCI      4
     8851   02 01C1A    0AC01E4A              PLM,12   PSTACK            RESTORE REG. 12-15 FROM STACK
     8852   02 01C1B    E800000F A            B        *15               EXIT
     8853   02 01C1C    6AF018D1     EXEC2    BAL,15   :INTD             DISARM IO INTER
     8854   02 01C1D    33001C37              MTW,0    EXECERR           TEST ERROR FLAG
     8855   02 01C1E    68301C17              BEZ      EXEC1             NO ERROR- EXIT NORMAL
     8856   02 01C1F    68001C16              B        EXEC1-1           ERROR-EXIT ERROR
     8857                            *
     8858   02 01C20    6AF015F9     EXECREC  BAL,15   :AIO              ISSUE AIO,TEST STATUS, DEV ADDR
     8859   02 01C21    FFFFC002 A            DATA     X'FFFFC002'       MASK
     8860   02 01C22    01000000 A   EXECS    DATA     X'01000000'       EXPECTED STATUS
     8861   02 01C23    68001C25              B        %+2               NO ERROR
     8862   02 01C24    35101C37              STW,1    EXECERR           SET ERROR FLAG
     8863   02 01C25    6AF015EA              BAL,15   :TIO              ISSUE TIO, TEST STATUS
     8864   02 01C26    FFFFC000 A            DATA     X'FFFFC000'       MASK
     8865   02 01C27    10000000 A            DATA     X'10000000'       EXPECTED STATUS
     8866   02 01C28    68001C2A              B        %+2               NO ERROR
     8867   02 01C29    35101C37              STW,1    EXECERR           SET ERROR FLAG
     8868   02 01C2A    6AF015F4              BAL,15   :TDV              ISSUE TDV, TEST STATUS
     8869   02 01C2B    F7FFC000 A            DATA     X'F7FFC000'       MASK
     8870   02 01C2C    00000000 A            DATA     0                 EXPECTED STATUS
     8871   02 01C2D    68001C2F              B        %+2               NO ERROR
     8872   02 01C2E    35101C37              STW,1    EXECERR           SET ERROR FLAG
     8873   02 01C2F    35101764              STW,1    :INTRECF          SET IO INTER REC'D FLAG
     8874   02 01C30    0E201C32              LPSD,2   EXECPSD           EXIT
     8875                            *
     8876                                     BOUND    8
     8877   02 01C32    00000000 A   EXECPSD  DATA     0,0
            02 01C33    00000000 A
     8878   02 01C34    00001C20              DATA     EXECREC,0
            02 01C35    00000000 A
     8879   02 01C36    0F001C32     EXECXPSD XPSD,0   EXECPSD
     8880   02 01C37    00000000 A   EXECERR  DATA     0
     8881   02 01C38    00100000 A   EXECDTM  DATA     X'00100000'
     8882   02 01C39    00000000 A   EXECDT   DATA     0
     8883   02 01C3A    19C9D640 A   EXECMSG  TEXTC    'IO INTERRUPT NOT RECEIVED'
            02 01C3B    C9D5E3C5 A
            02 01C3C    D9D9E4D7 A
            02 01C3D    E340D5D6 A
            02 01C3E    E340D9C5 A
            02 01C3F    C3C5C9E5 A
            02 01C40    C5C44040 A
     8884   02 01C41    00000000 A   PRES5C   DATA     0                 OLD INTERRUPT HANDLER
     8885                            *            *** STDD - BUILD STANDARD DECK PATTERNS ***
     8886                            *
     8887                            * 64 CARDS STANDARD TEST DECK GENERATOR
     8888                            *
     8889                            * INITIALIZATION ENTRY: STDDI           CALLING SEQUENCE: BAL,15
     8890                            * NORMAL ENTRY (NOT CARD 01): STDD
     8891                            *
     8892                            * NORMAL EXIT: (R15)
     8893                            * LAST CARD EXIT: (R15)+1
     8894                            *
     8895                            * REGISTERS USED: 4 - 15
     8896                            *
     8897                            *
     8898                            *
     8899   02 01C42    22800000 A   STDDI    LI,8     0                 INITIALIZE
     8900   02 01C43    35801C7B              STW,8    STDDS1              PATTERN
     8901   02 01C44    35801C7C              STW,8    STDDS2                SEEDS
     8902   02 01C45    35101C7D              STW,1    STDDS3            INITIALIZE CARD NUMBER (01)
     8903   02 01C46    35F01C7E     STDD     STW,15   STDDEXIT          SAVE EXIT ADDR
     8904                            *
     8905                            * SPREAD PATTERN FOR COLUMNS 9-72
     8906                            *
     8907   02 01C47    224FFFC0 A            LI,4     -64               INDEX
     8908   02 01C48    32801C7B              LW,8     STDDS1            FETCH SEED
     8909   02 01C49    35881FDE              STW,8    TABLE1+72,4       STORE IN TABLE
     8910   02 01C4A    20800555 A            AI,8     X'555'            INCR SEED
     8911   02 01C4B    4B801E9D              AND,8    KFFF              REMOVE CARRY
     8912   02 01C4C    65401C49              BIR,4    %-3               LOOP
     8913   02 01C4D    35801C7B              STW,8    STDDS1            SAVE SEED
     8914                            *
     8915                            * SPREAD PATTERN FOR COLUMNS 73 - 80
     8916                            *
     8917   02 01C4E    224FFFF8 A            LI,4     -8                INDEX
     8918   02 01C4F    32501C7C              LW,5     STDDS2            FETCH SEED
     8919   02 01C50    328A1AB1              LW,8     ETBL,5            TRANSLATE EBCDIC CHAR IN R5
     8920   02 01C51    4B801E9D              AND,8    KFFF                TO CARD CODE IN R8
     8921   02 01C52    35881FE6              STW,8    TABLE1+80,4       STORE IN TABLE
     8922   02 01C53    33100005 A            MTW,1    5                 INCR EBCDIC CODE
     8923   02 01C54    65401C50              BIR,4    %-4               LOOP
     8924   02 01C55    4B501E9B              AND,5    KFF               REMOVE CARRY
     8925   02 01C56    35501C7C              STW,5    STDDS2            SAVE SEED
     8926                            *
     8927                            * SPREAD PATTERN FOR COLUMNS 1 - 8
     8928                            *
     8929   02 01C57    22800903 A            LI,8      X'903'           STORE FIXED PATTERN
     8930   02 01C58    35801F96              STW,8    TABLE1              IN COLUMN 1
     8931   02 01C59    22400003 A            LI,4     3                 INDEX
     8932   02 01C5A    32681F9D              LW,6     TABLE1+7,4        FETCH COLUMNS 9, 10
     8933   02 01C5B    25600374 A            SCD,6    -12                 AND 11 (ROWS T - 5) AND PACK
     8934   02 01C5C    64401C5A              BDR,4    %-2                   INTO 1 WORD
     8935   02 01C5D    224FFFFC A            LI,4     -4                INDEX
     8936   02 01C5E    22506000 A            LI,5     X'6000'           LOAD CHECKSUM FOR COLUMNS 1,6,7
     8937   02 01C5F    22600000 A            LI,6     0
     8938   02 01C60    25600308 A            SCD,6    +8                FETCH 1 BYTE
     8939   02 01C61    328C1AB1              LW,8     ETBL,6            TRANSLATE EBCDIC CHAR IN R6
     8940   02 01C62    4B801F0C              AND,8    =X'FFF'             TO CARD CODE IN R8
     8941   02 01C63    35881F9B              STW,8    TABLE1+5,4        STORE IN TABLE
     8942   02 01C64    329C1AB1              LW,9     ETBL,6            FIND CHECKSUM
     8943   02 01C65    4B901E9F              AND,9    K7000               FOR PREVIOUS CARD CODE
     8944   02 01C66    30500009 A            AW,5     9                 TOTAL CHECKSUM
     8945   02 01C67    65401C5F              BIR,4    %-8               LOOP
     8946   02 01C68    25500074 A            SLS,5    -12               ALIGN CHECKSUM
     8947   02 01C69    328A1AB1              LW,8     ETBL,5            TRANSLATE CHECKSUM
     8948   02 01C6A    4B801E9D              AND,8    KFFF                TO CARD CODE
     8949   02 01C6B    35801F9D              STW,8    TABLE1+7          STORE IN TABLE
     8950   02 01C6C    32C01C7D              LW,12    STDDS3            FETCH CARD NUMBER
     8951   02 01C6D    EAF00217 A            BAL,15   *:DECC            CONVERT TO DEC IN EBCDIC CODE
     8952   02 01C6E    55F00007 A            STH,15   7                 MOVE TENS AND UNIT DIGIT TO R7
     8953   02 01C6F    224FFFFE A            LI,4     -2                INDEX
     8954   02 01C70    22600000 A            LI,6     0
     8955   02 01C71    25600308 A            SCD,6    +8                FETCH 1 BYTE
     8956   02 01C72    328C1AB1              LW,8     ETBL,6            TRANSLATE EBCDIC CHAR IN R6
     8957   02 01C73    4B801E9D              AND,8    KFFF                TO CARD CODE IN R8
     8958   02 01C74    35881F9D              STW,8    TABLE1+7,4        STORE IN TABLE
     8959   02 01C75    65401C70              BIR,4    %-5               LOOP
     8960                            *
     8961                            * TEST CARD NUMBER AND EXIT
     8962                            *
     8963   02 01C76    33101C7D              MTW,1    STDDS3            INCR CARD NUMBER
     8964   02 01C77    32801C7D              LW,8     STDDS3            FETCH CARD NUMBER
     8965   02 01C78    21800041 A            CI,8     65                COMPARE FOR LAST CARD
     8966   02 01C79    E9101C7E              BL       *STDDEXIT         NORMAL EXIT: CARD NUMBER < 64
     8967   02 01C7A    E8021C7E              B        *STDDEXIT,1       EXIT: CARD NUMBER => 64
     8968                            *
     8969   02 01C7B    00000000 A   STDDS1   DATA     0
     8970   02 01C7C    00000000 A   STDDS2   DATA     0                 SEEDS
     8971   02 01C7D    00000000 A   STDDS3   DATA     0
     8972   02 01C7E    00000000 A   STDDEXIT DATA     0                 EXIT ADDR
     8973                            *                                                                      *
     8974                            *             *** COMPACT - COMPACT 12-BIT DATA ***                    *
     8975                            *                                                                      *
     8976                            * COMPACT THE 12-BIT VALUES IN TABLE1 INTO 120 BYTES.                  *
     8977                            *                                                                      *
     8978   02 01C7F    35101CAA     COMPACT  STW,1    COMPACTF          RESET MOVE FLAG
     8979   02 01C80    68001C82              B        %+2
     8980   02 01C81    35201CAA     COMPACTM STW,2    COMPACTF          SET MOVE FLAG
     8981   02 01C82    22700000 A            LI,7     0
     8982   02 01C83    22600000 A            LI,6     0
     8983   02 01C84    324E1F96              LW,4     TABLE1,7
     8984   02 01C85    325E1F97              LW,5     TABLE1+1,7
     8985   02 01C86    25500014 A            SLS,5    20
     8986   02 01C87    2540010C A            SLD,4    12
     8987   02 01C88    325E1F98              LW,5     TABLE1+2,7
     8988   02 01C89    25500014 A            SLS,5    20
     8989   02 01C8A    25400108 A            SLD,4    8
     8990   02 01C8B    354C1F96              STW,4    TABLE1,6
     8991   02 01C8C    25400104 A            SLD,4    4
     8992   02 01C8D    325E1F99              LW,5     TABLE1+3,7
     8993   02 01C8E    25500014 A            SLS,5    20
     8994   02 01C8F    2540010C A            SLD,4    12
     8995   02 01C90    325E1F9A              LW,5     TABLE1+4,7
     8996   02 01C91    25500014 A            SLS,5    20
     8997   02 01C92    2540010C A            SLD,4    12
     8998   02 01C93    325E1F9B              LW,5     TABLE1+5,7
     8999   02 01C94    25500014 A            SLS,5    20
     9000   02 01C95    25400104 A            SLD,4    4
     9001   02 01C96    354C1F97              STW,4    TABLE1+1,6
     9002   02 01C97    25400108 A            SLD,4    8
     9003   02 01C98    325E1F9C              LW,5     TABLE1+6,7
     9004   02 01C99    25500014 A            SLS,5    20
     9005   02 01C9A    2540010C A            SLD,4    12
     9006   02 01C9B    325E1F9D              LW,5     TABLE1+7,7
     9007   02 01C9C    25500014 A            SLS,5    20
     9008   02 01C9D    2540010C A            SLD,4    12
     9009   02 01C9E    354C1F98              STW,4    TABLE1+2,6
     9010   02 01C9F    20700008 A            AI,7     8
     9011   02 01CA0    20600003 A            AI,6     3
     9012   02 01CA1    21600050 A            CI,6     80
     9013   02 01CA2    69101C84              BL       COMPACTM+3
     9014   02 01CA3    31101CAA              CW,1     COMPACTF          TEST MOVE FLAG
     9015   02 01CA4    E830000F A            BE       *15               RESET - EXIT
     9016   02 01CA5    224FFFE2 A            LI,4     -30               MOVE TABLE1 TO BUFFER
     9017   02 01CA6    32581FB4              LW,5     TABLE1+30,4
     9018   02 01CA7    35581F92              STW,5    BUFFER+30,4
     9019   02 01CA8    65401CA6              BIR,4    %-2
     9020   02 01CA9    E800000F A            B        *15               EXIT
     9021                            *
     9022   02 01CAA    00000000 A   COMPACTF DATA     0                 MOVE FLAG
     9023                            *
     9024                            *                                                                      *
     9025                            *        *** SELTM - SELECT TEST MODE ***                              *
     9026                            *        *** RESTM - RESET TEST MODE ***                               *
     9027                            *                                                                      *
     9028                            * THESE ROUTINES SELECT OR RESET THE TEST MODE OF THE DEVICE           *
     9029                            * CONTROLLER. UNSUCCESSFUL SELECTION RESULTS IN AN ERROR EXIT          *
     9030                            *                                                                      *
     9031   02 01CAB    CFC0172A     SELTM    HIO,12   *:DEVADDR         ISSUE HIO
     9032   02 01CAC    22000E66              LI,0     DA(IOCDTMS)
     9033   02 01CAD    CCC0172A              SIO,12   *:DEVADDR         SELECT TEST MODE
     9034   02 01CAE    32401059              LW,4     DELYTMS           MAX DELAY TIME
     9035   02 01CAF    CEC0172A              TDV,12   *:DEVADDR         ISSUE TDV
     9036   02 01CB0    68401CB5              BCR,4    SELTM1            CC2 NOT 1
     9037   02 01CB1    31D00001 A            CW,13    1                 TEST BYTE COUNT
     9038   02 01CB2    69401CB5              BCS,4    SELTM1            BYTE COUNT NOT 0
     9039   02 01CB3    CDC0172A              TIO,12   *:DEVADDR         ISSUE TIO
     9040   02 01CB4    E8C0000F A            BCR,12   *15               CONTR READY - EXIT
     9041   02 01CB5    64401CAF     SELTM1   BDR,4    %-6               DECR TIME
     9042   02 01CB6    32500424              LW,5     TST1LMT           FETCH CURRENT SUBTEST NO.
     9043   02 01CB7    23500064 A            MI,5     100               FORM ERROR NUMBER
     9044   02 01CB8    30500001 A            AW,5     1
     9045   02 01CB9    35501CBB              STW,5    %+2               SAVE IN CALL
     9046   02 01CBA    EAF0021B A            BAL,15   *:ERROR           REPORT ERROR # XX01
     9047   02 01CBB    00000000 A            DATA     0
     9048   02 01CBC    6800040E              B        EXIT              RETURN TO TST1 HANDLER
     9049                            *
     9050   02 01CBD    32C01059     RESTM    LW,12    DELYTMS
     9051   02 01CBE    64C01CBE              BDR,12   %                 DELAY
     9052   02 01CBF    CFC0172A              HIO,12   *:DEVADDR         ISSUE HIO
     9053   02 01CC0    22000E67              LI,0     DA(IOCDTMR)
     9054   02 01CC1    CCC0172A              SIO,12   *:DEVADDR         RESET TEST MODE
     9055   02 01CC2    32401059              LW,4     DELYTMS           MAX DELAY TIME
     9056   02 01CC3    CEC0172A              TDV,12   *:DEVADDR         ISSUE TDV
     9057   02 01CC4    69401CC7              BCS,4    RESTM1            CC2=1
     9058   02 01CC5    CDC0172A              TIO,12   *:DEVADDR         ISSUE TIO
     9059   02 01CC6    E8C0000F A            BCR,12   *15               CONTR READY - EXIT
     9060   02 01CC7    64401CC3     RESTM1   BDR,4    %-4               DECR TIME
     9061   02 01CC8    E800000F A            B        *15               EXIT
     9062                            *
     9063   02 01CC9    00000000 A   TMBYTE   DATA     0
     9064   02 01CCA    00000000 A   TMBYTER  DATA     0
     9065                                     BOUND    8
     9066   02 01CCC    13007324     IOCDTMS  GEN,8,24 X'13',BA(TMBYTE)  SELECT TEST MODE
     9067   02 01CCD    00000001 A            GEN,8,24 X'00',1
     9068   02 01CCE    13007328     IOCDTMR  GEN,8,24 X'13',BA(TMBYTER) RESET TEST MODE
     9069   02 01CCF    00000001 A            GEN,8,24 0,1
     9070                            *
     9071                            *             ***  COMPREG ***
     9072                            *
     9073                            * ROUTINE TO GENERATE EXPECTED 80-BIT BINARY/EBCDIC VALUE OF READ
     9074                            * REGISTER, COMPARE EXPECTED TO OBSERVED AND OUTPUT ERRORS.
     9075                            *
     9076                            *        READ REG. ROW TIME XX
     9077                            *        EXP  XXXXXXXXXXXXXXXXXXXX
     9078                            *        OBS  XXXXXXXXXXXXXXXXXXXX
     9079                            *
     9080                            *  OBSERVED BUFFER  - BUFFER2
     9081                            *  ROW  NUMBER      - TST1X1
     9082                            *  PUNCH PATTERN    - BUFFER
     9083                            *  ORDER TYPE       - COMPO (1=BINARY,2=EBCDIC)
     9084                            *  NORMAL EXIT-EXIT
     9085                            *  ERROR EXIT -EXIT+1
     9086   02 01CD0    02200000 A   COMPREG  LCI      0                 SAVE REG. 0-15 IN PUBLIC
     9087   02 01CD1    0B001E4A              PSM,0    PSTACK              'PUSH-DOWN' STACK
     9088   02 01CD2    32A00363              LW,10    TST1X1            ROW COUNT
     9089   02 01CD3    38A00001 A            SW,10    1                 PREV ROW
     9090   02 01CD4    22500007 A            LI,5     7
     9091   02 01CD5    3850000A A            SW,5     10                FORM SHIFT VALUE
     9092   02 01CD6    31101D35              CW,1     COMPO             TEST FOR BINARY
     9093   02 01CD7    69301CF5              BNE      COMPREG2          EBCDIC
     9094                            *                             BINARY ORDER - MERGE EXP 80 BITS
     9095   02 01CD8    22400000 A            LI,4     0                 EXP WORD COUNT
     9096   02 01CD9    22700000 A            LI,7     0                 GEN BYTE INDEX
     9097   02 01CDA    22B0000B A            LI,11    11
     9098   02 01CDB    38B0000A A            SW,11    10
     9099   02 01CDC    22D0000C A            LI,13    12
     9100   02 01CDD    32581F74              LW,5     BUFFER,4          FETCH EXP WORD
     9101   02 01CDE    22C00020 A            LI,12    32                # BITS IN WORD
     9102   02 01CDF    3300000B A   COMPRE01 MTW,0    11                THIS BIT ?
     9103   02 01CE0    68301CF1              BEZ      COMPRE05          YES
     9104   02 01CE1    25500001 A   COMPRE02 SLS,5    1                 ADJUST
     9105   02 01CE2    33F0000C A            MTW,-1   12                DECR WORD BIT COUNT
     9106   02 01CE3    69301CE9              BNEZ     COMPRE03          NOT LAST BIT
     9107   02 01CE4    22C00020 A            LI,12    32                RESTORE # WORD BITS
     9108   02 01CE5    20400001 A            AI,4     1                 INCR WORD UNDEX
     9109   02 01CE6    2140001E A            CI,4     30                LAST WORD ?
     9110   02 01CE7    68301CFE              BE       COMPREG3-2        YES
     9111   02 01CE8    32581F74              LW,5     BUFFER,4          FETCH NEXT WORD
     9112   02 01CE9    33F0000B A   COMPRE03 MTW,-1   11                DECR REQ'D SHIFT VALUE
     9113   02 01CEA    68301CF1              BEZ      COMPRE05          THIS BIT
     9114   02 01CEB    33F0000D A   COMPRE04 MTW,-1   13                DECR REMAINING OF SHIFT
     9115   02 01CEC    69301CE1              BNEZ     COMPRE02          NOT LAST - LOOP
     9116   02 01CED    22D0000C A            LI,13    12                RESET SHIFT
     9117   02 01CEE    22B0000B A            LI,11    11
     9118   02 01CEF    38B0000A A            SW,11    10                RESET SHIFT VALUE
     9119   02 01CF0    68001CDF              B        COMPRE01          LOOP
     9120   02 01CF1    72800005 A   COMPRE05 LB,8     5
     9121   02 01CF2    758E1F96              STB,8    BUFFER1,7         SAVE BYTE
     9122   02 01CF3    20700001 A            AI,7     1                 INCR BYTE SAVE INDEX
     9123   02 01CF4    68001CEB              B        COMPRE04          LOOP
     9124                            *                             EBCDIC ORDER-MERGE  EXP 80 BITS
     9125   02 01CF5    22400000 A   COMPREG2 LI,4     0                 INDEX
     9126   02 01CF6    72781F74              LB,7     BUFFER,4          EBCDIC CHARACTER
     9127   02 01CF7    327E1AB1              LW,7     ETBL,7            FETCH 12 BITS
     9128   02 01CF8    257A0000 A            SLS,7    0,5               ADJUST FOR CORRECT ROW BIT IN MS POS
     9129   02 01CF9    4B701E99              AND,7    K80               MASK MS BIT OF BYTE
     9130   02 01CFA    75781F96              STB,7    BUFFER1,4         SAVE
     9131   02 01CFB    33100004 A            MTW,1    4                 INCR INDEX
     9132   02 01CFC    21400050 A            CI,4     80                LAST
     9133   02 01CFD    69101CF6              BL       COMPREG2+1        NO - LOOP
     9134   02 01CFE    22601F96              LI,6     BUFFER1           BUFFER ADDR
     9135   02 01CFF    6AF01D36              BAL,15   MERGEB            MERGE 80 BITS
     9136                            *
     9137   02 01D00    22400000 A   COMPREG3 LI,4     0
     9138   02 01D01    72581F96              LB,5     BUFFER1,4         EXP BITS
     9139   02 01D02    71581FEA              CB,5     BUFFER2,4         COMPARE TO OBS BITS
     9140   02 01D03    69301D0A              BNE      COMPREG5          UNEQUAL
     9141   02 01D04    33100004 A            MTW,1    4                 INCR INDEX
     9142   02 01D05    2140000A A            CI,4     10                TEST FOR COMPLETED
     9143   02 01D06    69101D01              BL       COMPREG3+1        NOT - LOOP
     9144   02 01D07    02200000 A   COMPREG4 LCI      0
     9145   02 01D08    0A001E4A              PLM,0    PSTACK            RESTORE REG. 0-15 FROM STACK
     9146   02 01D09    E800000F A            B        *15               EXIT
     9147                            *
     9148   02 01D0A    22400000 A   COMPREG5 LI,4     0
     9149   02 01D0B    72C81F96              LB,12    BUFFER1,4         EXP BITS
     9150   02 01D0C    EAF00218 A            BAL,15   *:HEXC            CONVERT TO EBCDIC
     9151   02 01D0D    55F81D29              STH,15   COMPMSG2+2,4      SAVE IN MSG
     9152   02 01D0E    72C81FEA              LB,12    BUFFER2,4         OBS BITS
     9153   02 01D0F    EAF00218 A            BAL,15   *:HEXC            CONVERT TO EBCDIC
     9154   02 01D10    55F81D30              STH,15   COMPMSG3+2,4      SAVE IN MSG
     9155   02 01D11    30400001 A            AW,4     1
     9156   02 01D12    2140000A A            CI,4     10                LAST CHARACTER
     9157   02 01D13    69101D0B              BL       COMPREG5+1        NOT COMPL - LOOP
     9158   02 01D14    32C00363              LW,12    TST1X1            ROW COUNT
     9159   02 01D15    EAF00217 A            BAL,15   *:DECC            CONVERT TO EBCDIC
     9160   02 01D16    55F01D26              STH,15   COMPMSG1+7        SAVE IN MSG
     9161   02 01D17    EAF0021C A            BAL,15   *:PRINT           PRINT MSGS
     9162   02 01D18    00001D1F              DATA     COMPMSG1
     9163   02 01D19    EAF0021C A            BAL,15   *:PRINT
     9164   02 01D1A    00001D27              DATA     COMPMSG2
     9165   02 01D1B    EAF0021C A            BAL,15   *:PRINT
     9166   02 01D1C    00001D2E              DATA     COMPMSG3
     9167   02 01D1D    B3101E4A              MTW,1    *PSTACK           SET ERROR EXIT
     9168   02 01D1E    68001D07              B        COMPREG4          EXIT
     9169                            *
     9170   02 01D1F    1DD9C5C1 A   COMPMSG1 TEXTC    'READ REG. ERROR - ROW TIME XX'
            02 01D20    C440D9C5 A
            02 01D21    C74B40C5 A
            02 01D22    D9D9D6D9 A
            02 01D23    406040D9 A
            02 01D24    D6E640E3 A
            02 01D25    C9D4C540 A
            02 01D26    E7E74040 A
     9171   02 01D27    1BC5E7D7 A   COMPMSG2 TEXTC    'EXP    XXXXXXXXXXXXXXXXXXXX'
            02 01D28    40404040 A
            02 01D29    E7E7E7E7 A
            02 01D2A    E7E7E7E7 A
            02 01D2B    E7E7E7E7 A
            02 01D2C    E7E7E7E7 A
            02 01D2D    E7E7E7E7 A
     9172   02 01D2E    1BD6C2E2 A   COMPMSG3 TEXTC    'OBS    XXXXXXXXXXXXXXXXXXXX'
            02 01D2F    40404040 A
            02 01D30    E7E7E7E7 A
            02 01D31    E7E7E7E7 A
            02 01D32    E7E7E7E7 A
            02 01D33    E7E7E7E7 A
            02 01D34    E7E7E7E7 A
     9173   02 01D35    00000000 A   COMPO    DATA     0
     9174                            *
     9175                            *             *** MERGEB  ***
     9176                            * ROUTINE TO MERGE THE MS BIT OF 80 BYTES INTO 10 BYTES.
     9177                            *
     9178                            *    (R6) = ADDRESS OF BYTES
     9179                            *
     9180   02 01D36    022000C0 A   MERGEB   LCI      12                SAVE REG. 4-15 IN PUBLIC
     9181   02 01D37    0B401E4A              PSM,4    PSTACK              'PUSH-DOWN' STACK
     9182   02 01D38    22400000 A            LI,4     0                 BYTE INDEX
     9183   02 01D39    22500000 A            LI,5     0                 SAVE BYTE COUNT
     9184   02 01D3A    22700000 A   MERG1    LI,7     0                 SHIFT COUNT
     9185   02 01D3B    22900000 A            LI,9     0                 RESULT
     9186   02 01D3C    F2A80006 A   MERG2    LB,10    *6,4              FETCH BYTE
     9187   02 01D3D    4BA01E99              AND,10   K80               MASK MS BIT
     9188   02 01D3E    25AE0000 A            SLS,10   0,7               SHIFT BIT
     9189   02 01D3F    4990000A A            OR,9     10                MERGE INTO RESULTAND 8 BITS
     9190   02 01D40    30400001 A            AW,4     1                 INCR INDEX
     9191   02 01D41    33F00007 A            MTW,-1   7                 DECR SHIFT COUNT
     9192   02 01D42    217FFFF8 A            CI,7     -8                LAST SHIFT ?
     9193   02 01D43    69301D3C              BNE      MERG2             NO-LOOP
     9194   02 01D44    F59A0006 A            STB,9    *6,5              SAVE BYTE
     9195   02 01D45    30500001 A            AW,5     1                 INCR SAVE BYTE COUNTER
     9196   02 01D46    2150000A A            CI,5     10                TEST FOR 10 BYTES SAVED
     9197   02 01D47    69101D3A              BL       MERG1             NOT-LOOP
     9198   02 01D48    022000C0 A            LCI      12
     9199   02 01D49    0A401E4A              PLM,4    PSTACK            RESTORE REG. 4-15 FROM STACK
     9200   02 01D4A    E800000F A            B        *15               EXIT
     9201                            *
     9202                            *            *** TST1 INTERRUPT HANDLER ***
     9203                            *
     9204   02 01D4B    02200040 A   TST1INT  LCI      4                 SAVE REG. 12-15 IN PUBLIC
     9205   02 01D4C    0BC01E4A              PSM,12   PSTACK              'PUSH-DOWN' STACK
     9206   02 01D4D    22F01040 A            LI,15    X'1040'
     9207   02 01D4E    6DF01100 A            WD,15    X'1100'           DISARM CTR4 INTER
     9208   02 01D4F    22D00000 A            LI,13    0
     9209   02 01D50    35D01D65              STW,13   TST1ERF           RESET ERROR FLAG
     9210   02 01D51    6AF015F9              BAL,15   :AIO              ISSUE AIO,TEST STATUS
     9211   02 01D52    7E4FC002 A            DATA     X'7E4FC002'       MASK
     9212   02 01D53    00000000 A            DATA     0                 EXP STATUS
     9213   02 01D54    68001D56              B        %+2               NO ERROR
     9214   02 01D55    35101D65              STW,1    TST1ERF           SET ERROR FLAG
     9215   02 01D56    6AF015EA              BAL,15   :TIO              TEST TIO STATUS
     9216   02 01D57    FF7FC000 A            DATA     X'FF7FC000'       MASK
     9217   02 01D58    10000000 A            DATA     X'10000000'       EXP STATUS
     9218   02 01D59    68001D5B              B        %+2               OK
     9219   02 01D5A    35101D65              STW,1    TST1ERF           SET ERROR FLAG
     9220   02 01D5B    35101764              STW,1    :INTRECF          SET INTERRUPT REC'D FLAG
     9221   02 01D5C    02200040 A            LCI      4                 RESTORE REG. 12-15
     9222   02 01D5D    0AC01E4A              PLM,12   PSTACK              FROM STACK
     9223   02 01D5E    0E201D60              LPSD,2   TST1PSD           EXIT
     9224                            *
     9225                                     BOUND    8
     9226   02 01D60    00000000 A   TST1PSD  DATA     0,0
            02 01D61    00000000 A
     9227   02 01D62    00001D4B              DATA     TST1INT,0
            02 01D63    00000000 A
     9228   02 01D64    0F001D60     TST1XPSD XPSD,0   TST1PSD
     9229   02 01D65    00000000 A   TST1ERF  DATA     0
     9230                            *
     9231                            *             *** TDVDISP - TDV STATUS DISPLAY ***
     9232                            *
     9233                            * THE ROUTINE DISPLAYS THE EXPECTED AND OBSERVED MULTIPLEXED TDV STATUS.
     9234                            *
     9235                            *    R13 - OBSERVED STATUS (MS 8 BITS)
     9236                            *    R11 - EXPECTED STATUS (LS 8 BITS)
     9237                            *    R10 - MASK (LS 8 BITS)
     9238                            *
     9239                            *    TDV STATUS  01234567
     9240                            *    EXPECTED    XXXXXXXX
     9241                            *    OBSERVED    XXXXXXXX
     9242                            *
     9243   02 01D66    02200090 A   TDVDISP  LCI      9                 SAVE REG. 7-15 IN PUBLIC
     9244   02 01D67    0B701E4A              PSM,R7   PSTACK              'PUSH-DOWN' STACK
     9245   02 01D68    32C0000B A            LW,12    11                EXP 8 BITS
     9246   02 01D69    EAF00216 A            BAL,15   *:BINC            CONVERT 4 TO EBCDIC
     9247   02 01D6A    35F01E87              STW,15   TDVMSG2+4         SAVE IN MSG
     9248   02 01D6B    EAF00216 A            BAL,15   *:BINC            CONVERT 4 TO EBCDIC
     9249   02 01D6C    35F01E86              STW,15   TDVMSG2+3         SAVE IN MSG
     9250   02 01D6D    72C0000D A            LB,12    13                OBS 8 BITS
     9251   02 01D6E    EAF00216 A            BAL,15   *:BINC            CONVERT 4 TO EBCDIC
     9252   02 01D6F    35F01E8C              STW,15   TDVMSG3+4         SAVE IN MSG
     9253   02 01D70    EAF00216 A            BAL,15   *:BINC            CONVERT 4 TO EBCDIC
     9254   02 01D71    35F01E8B              STW,15   TDVMSG3+3         SAVE IN MSG
     9255   02 01D72    227FFFF8 A            LI,7     -8                BIT INDEX
     9256   02 01D73    229000E7 A            LI,9     X'E7'             'X'
     9257   02 01D74    21A00080 A            CI,10    X'80'             TEST MASK BIT
     9258   02 01D75    69401D77              BCS,4    %+2               NOT SET
     9259   02 01D76    759E1E88              STB,9    TDVMSG2+5,7       INSERT 'X'
     9260   02 01D77    25A00001 A            SLS,10   1                 ADJUST MASK
     9261   02 01D78    65701D74              BIR,7    %-4               LOOP TIL 8 BITS TESTED
     9262   02 01D79    EAF0021C A            BAL,15   *:PRINT           PRINT
     9263   02 01D7A    00001E7E              DATA     TDVMSG1              MSG'S
     9264   02 01D7B    EAF0021C A            BAL,15   *:PRINT
     9265   02 01D7C    00001E83              DATA     TDVMSG2
     9266   02 01D7D    EAF0021C A            BAL,15   *:PRINT
     9267   02 01D7E    00001E88              DATA     TDVMSG3
     9268   02 01D7F    02200090 A            LCI      9
     9269   02 01D80    0A701E4A              PLM,R7   PSTACK            RESTORE REG. 7-15 FROM STACK
     9270   02 01D81    E800000F A            B        *15               EXIT
     9271   02 01D82    02200000 A   RDCOMP   LCI      0                 SAVE REG. 0-15 IN PUBLIC
     9272   02 01D83    0B001E4A              PSM,0    PSTACK              'PUSH-DOWN' STACK
     9273   02 01D84    22401F96              LI,4     BUFFER1
     9274   02 01D85    354018CA              STW,4    :PATBFR           SET PATTERN BUFFER ADDR
     9275   02 01D86    32401FEA              LW,4     BUFFER2           FETCH READ BYTES 0-3
     9276   02 01D87    2250001E A            LI,5     30                R5 = BINARY CARD BYTE COUNT
     9277   02 01D88    4B401EF6              AND,4    =X'18000000'      TEST FOR BINARY CARD
     9278   02 01D89    31401EF6              CW,4     =X'18000000'
     9279   02 01D8A    68301D8C              BE       %+2               B: BINARY CARD
     9280   02 01D8B    22500014 A            LI,5     20                EBCDIC CARD
     9281   02 01D8C    3550194A              STW,5    COMSWCNT
     9282   02 01D8D    32401FEA              LW,4     BUFFER2
     9283   02 01D8E    354018C7              STW,4    :PATID+1          ESTABLISH RANDOM PATTERN SEED
     9284   02 01D8F    6AF01893              BAL,15   :PATTERN          BUILD PATTERN
     9285   02 01D90    6AF018E8              BAL,15   COMSYNC           COMPARE EXP/OBS CARD DATA
     9286   02 01D91    68001087              B        POP15             B: EQUAL
     9287   02 01D92    68001D94              B        %+2               B: ERROR WITH SYNC POSSIBLE
     9288   02 01D93    68001087              B        POP15             B: NO SYNC POSSIBLE - GO TO EXIT
     9289   02 01D94    EAF0021C A            BAL,15   *:PRINT           PRINT:
     9290   02 01D95    0000126F              DATA     T2MSG7            'TST*-READ COMPARE ERROR'
     9291   02 01D96    6AF01959              BAL,15   :CARDISP          PRINT CARD DATA
     9292   02 01D97    68001087              B        POP15             RETURN
     9293                            *
     9294                            *
     9295                            *        EXUSIO - EXECUTE SIO AND DELAY TILL DEVICE READY
     9296                            *
     9297                            *        CALLING SEQUENCE:
     9298                            *
     9299                            *        LI,14    2000              R14 = DELAY
     9300                            *        BAL,15   EXUSIO            ISSUE SIO
     9301                            *        ----     ----              NORMAL RETURN
     9302                            *        ----     ----              ERROR RETURN - TIMEOUT
     9303                            *
     9304   02 01D98    09F01E4A     EXUSIO   PSW,15   PSTACK            SAVE RETURN ADDRESS IN STACK
     9305   02 01D99    CCC0172A              SIO,12   *:DEVADDR         ISSUE THE SIO
     9306   02 01D9A    CDC0172A              TIO,12   *:DEVADDR         ISSUE A TIO
     9307   02 01D9B    68C0039D              BCR,12   POP               B: DEVICE READY - RETURN
     9308   02 01D9C    64E01D9A              BDR,14   %-2               B: NOT TIMEOUT YET
     9309   02 01D9D    EAF0021C A            BAL,15   *:PRINT           PRINT:
     9310   02 01D9E    00000F7F              DATA     TIMEOUT             'TIMEOUT'
     9311   02 01D9F    B3101E4A              MTW,1    *PSTACK
     9312   02 01DA0    6800039D              B        POP               TAKE ERROR RETURN
     9313                            *
     9314                            *
     9315                            *                 DRVR1 - DRIVER #1
     9316                            *
     9317                            *        CALLING SEQUENCE:
     9318                            *
     9319                            *        LI,0     DA(    )
     9320                            *        BAL,15   DRVR1
     9321                            *        ----     ----              - SUCCESSFUL
     9322                            *        ----     ----              - ERROR RETURN
     9323                            *
     9324   02 01DA1    02200000 A   DRVR1    LCI      0                 SAVE REG. 0-15 IN PUBLIC
     9325   02 01DA2    0B001E4A              PSM,0    PSTACK              'PUSH-DOWN' STACK
     9326   02 01DA3    35201764              STW,2    :INTRECF          RESET INTERRUPT RECEIVED FLAG
     9327   02 01DA4    6AF01702              BAL,15   :IOEXEC           EXEC IO
     9328   02 01DA5    6AF018CB              BAL,15   :INTAE            ARM & ENABLE IO INTERRUPTS
     9329   02 01DA6    32401DDB              LW,4     PDELAY            R4 = DELAY CONSTANT
     9330   02 01DA7    31101764              CW,1     :INTRECF
     9331   02 01DA8    68301087              BE       POP15             B: INTERRUPT RECEIVED
     9332   02 01DA9    64401DA7              BDR,4    %-2               B: NOT TIMEOUT YET
     9333   02 01DAA    6AF018D1              BAL,15   :INTD             DISARM IO INTERRUPTS
     9334   02 01DAB    EAF0021C A            BAL,15   *:PRINT           PRINT:
     9335   02 01DAC    00000F7F              DATA     TIMEOUT                 'TIMEOUT'
     9336   02 01DAD    B3101E4A              MTW,1    *PSTACK           INCR RETURN ADDRESS
     9337   02 01DAE    68001087              B        POP15             TAKE ERROR RETURN
     9338                            *
     9339                            *                 READ A CARD.
     9340                            *
     9341                            *        CALLING SEQUENCE:
     9342                            *
     9343                            *        LI,14    ----              R14 = ERROR NUMBER
     9344                            *        BAL,15   READ
     9345                            *        ----     ----              - SUCCESSFUL
     9346                            *        ----     ----              - ERROR RETURN
     9347                            *
     9348   02 01DAF    09F01E4A     READ     PSW,15   PSTACK            SAVE RETURN ADDRESS IN STACK
     9349   02 01DB0    35E01DBD              STW,14   READE1            STORE
     9350   02 01DB1    35E01DC4              STW,14   READE2              ERROR NUMBER
     9351   02 01DB2    32F01DFF              LW,15    READXPSD          SET UP
     9352   02 01DB3    35F0005C A            STW,15   X'5C'               INTERRUPT HANDLER
     9353   02 01DB4    35101D65              STW,1    TST1ERF           RESET TST1 ERROR FLAG
     9354   02 01DB5    32E01C38              LW,14    EXECDTM
     9355   02 01DB6    22000829              LI,0     DA(READIOCD)
     9356   02 01DB7    6AF01702              BAL,15   :IOEXEC           EXECUTE IO
     9357   02 01DB8    6AF018CB              BAL,15   :INTAE            ARM & ENABLE IO INTERRUPTS
     9358   02 01DB9    31201764              CW,2     :INTRECF          INTERRUPT RECEIVED YET ?
     9359   02 01DBA    68301DC1              BE       READ1             B: YES
     9360   02 01DBB    64E01DB9              BDR,14   %-2               B: NOT TIMEOUT YET
     9361   02 01DBC    EAF0021B A            BAL,15   *:ERROR
     9362   02 01DBD    00000000 A   READE1   DATA     0                 *** ERROR ---- ***
     9363   02 01DBE    EAF0021C A            BAL,15   *:PRINT           PRINT:
     9364   02 01DBF    00001C3A              DATA     TST35MSG            'IO INTER NOT REC'D'
     9365   02 01DC0    68001DC5              B        READE2+1
     9366   02 01DC1    31201D65     READ1    CW,2     TST1ERF           HAS ERROR OCCURRED ?
     9367   02 01DC2    6930039D              BNE      POP               B: NO - RETURN
     9368   02 01DC3    EAF0021B A            BAL,15   *:ERROR
     9369   02 01DC4    00000000 A   READE2   DATA     0                 *** ERROR ---- ***
     9370   02 01DC5    EAF0021D A            BAL,15   *:SENSE           GO TEST SENSE SWITCHES
     9371   02 01DC6    2E001DC6              WAIT     %                 SSW 3 RESET - WAIT
     9372   02 01DC7    68001DB2              B        READ+3            SSW 1 SET   - LOOP ON ERROR
     9373   02 01DC8    B3101E4A              MTW,1    *PSTACK           SSW 1 RESET - RETURN
     9374   02 01DC9    6800039D              B        POP               RETURN
     9375                            *
     9376                            *                 PUNCH A CARD
     9377                            *
     9378                            *        CALLING SEQUENCE:
     9379                            *        LI,0     ----              R0 = DA(IOCD)
     9380                            *        BAL,15   PUNCH             PUNCH A CARD
     9381                            *        ----     ----              - SUCCESSFUL
     9382                            *        ----     ----              ERROR RETURN
     9383                            *
     9384   02 01DCA    09F01E4A     PUNCH    PSW,15   PSTACK            SAVE RETURN ADDRESS IN STACK
     9385   02 01DCB    35201764              STW,2    :INTRECF          RESET INTERRUPT RECEIVED FLAG
     9386   02 01DCC    32E01DDB              LW,14    PDELAY            LOAD DELAY COUNT                *A01
     9387   02 01DCD    6AF01702              BAL,15   :IOEXEC           EXECUTE IO                      *A01
     9388   02 01DCE    6AF018CB              BAL,15   :INTAE            ARM AND ENABLE IO INTERRUPTS    *A01
     9389   02 01DCF    31101764              CW,1     :INTRECF          INTERRUPT RECEIVED YET ?
     9390   02 01DD0    68301DD8              BE       PUNCH1            B: YES
     9391   02 01DD1    64E01DCF              BDR,14   %-2               B: NOT TIMEOUT YET
     9392   02 01DD2    6AF018D1              BAL,15   :INTD             DISARM IO INTERRUPTS
     9393   02 01DD3    CFC0172A              HIO,12   *:DEVADDR         ISSUE AN HIO
     9394   02 01DD4    EAF0021C A            BAL,15   *:PRINT           PRINT:
     9395   02 01DD5    00000F7F              DATA     TIMEOUT                 'TIMEOUT'
     9396   02 01DD6    B3101E4A              MTW,1    *PSTACK           INCR RETURN ADDRESS
     9397   02 01DD7    6800039D              B        POP               TAKE ERROR RETURN
     9398   02 01DD8    31101D65     PUNCH1   CW,1     TST1ERF           CHECK FOR STATUS ERROR
     9399   02 01DD9    6930039D              BNE      POP               B: NONE - RETURN
     9400   02 01DDA    68001DD6              B        PUNCH1-2          TAKE ERROR RETURN
     9401         02 01DCA           READER   EQU      PUNCH
     9402   02 01DDB    00200000 A   PDELAY   DATA     X'00200000'       MAX PUNCH DELAY TIME
     9403                            *
     9404                            *        PBLANK - PUNCH A BLANK FILLER CARD (7160 ONLY).
     9405                            *
     9406   02 01DDC    09F01E4A     PBLANK   PSW,15   PSTACK            SAVE RETURN ADDRESS IN STACK
     9407   02 01DDD    6AF0107A              BAL,15   CLRBUF            CLEAR (BUFFER) TO ZERO
     9408   02 01DDE    6AF01520              BAL,15   TPMOD             TEST PUNCH MODEL NUMBER
     9409   02 01DDF    6800039D              B        POP               MODEL 7165 - EXIT
     9410   02 01DE0    6800039D              B        POP
     9411   02 01DE1    32F01D64              LW,15    TST1XPSD          SET UP
     9412   02 01DE2    35F0005C A            STW,15   X'5C'               INTERRUPT HANDLER
     9413   02 01DE3    22000AAF              LI,0     DA(T3IOCD2)       MODEL 7160
     9414   02 01DE4    6AF01DCA              BAL,15   PUNCH             PUNCH A BLANK CARD
     9415   02 01DE5    6800039D              B        POP               B: NO ERRORS - EXIT
     9416   02 01DE6    31101D65              CW,1     TST1ERF           HAS ERROR OCCURRED
     9417   02 01DE7    6930039D              BNE      POP               B: NO ERRORS
     9418   02 01DE8    B3101E4A              MTW,1    *PSTACK           TAKE ERROR RETURN
     9419   02 01DE9    6800039D              B        POP               ERROR RETURN - EXIT
     9420                            *
     9421                            *
     9422                            *                 READ EBCDIC CARD.
     9423                            *
     9424   02 01DEA    B2E0000F A   RAUTO    LW,14    *15               R14 = ERROR NUMBER
     9425   02 01DEB    20F00001 A            AI,15    1                 INCR RETURN ADDRESS
     9426   02 01DEC    09F01E4A              PSW,15   PSTACK            SAVE RETURN ADDRESS IN STACK
     9427   02 01DED    22F00050 A            LI,15    80                LOAD AND STORE
     9428   02 01DEE    55F21053              STH,15   READIOCD+1,1        BYTE COUNT OF 80
     9429   02 01DEF    22F00006 A            LI,15    X'06'             LOAD AND STORE
     9430   02 01DF0    75F01052              STB,15   READIOCD            AUTO READ ORDER
     9431   02 01DF1    6AF01DAF              BAL,15   READ              READ A CARD
     9432   02 01DF2    6800039D              B        POP               RETURN
     9433   02 01DF3    B3101E4A              MTW,1    *PSTACK           TAKE ERROR RETURN
     9434   02 01DF4    6800039D              B        POP               RETURN
     9435                            *
     9436                            *                 READ BINARY CARD.
     9437                            *
     9438   02 01DF5    B2E0000F A   RBIN     LW,14    *15               R14 = ERROR NUMBER
     9439   02 01DF6    20F00001 A            AI,15    1                 INCR RETURN ADDRESS
     9440   02 01DF7    09F01E4A              PSW,15   PSTACK            SAVE RETURN ADDRESS IN STACK
     9441   02 01DF8    22F00078 A            LI,15    120               LOAD AND STORE
     9442   02 01DF9    55F21053              STH,15   READIOCD+1,1        BYTE COUNT OF 120
     9443   02 01DFA    75201052              STB,2    READIOCD          SET ORDER = X'02'
     9444   02 01DFB    6AF01DAF              BAL,15   READ              READ A CARD
     9445   02 01DFC    6800039D              B        POP               - SUCCESSFUL
     9446   02 01DFD    B3101E4A              MTW,1    *PSTACK           TAKE ERROR RETURN
     9447   02 01DFE    6800039D              B        POP               RETURN
     9448                            *
     9449                            *
     9450   02 01DFF    0F001E00     READXPSD XPSD,0   READPSD
     9451                                     BOUND    8
     9452   02 01E00    00000000 A   READPSD  DATA     0,0
            02 01E01    00000000 A
     9453   02 01E02    00001E04              DATA     READINT,0
            02 01E03    00000000 A
     9454                            *
     9455   02 01E04    02200000 A   READINT  LCI      0                 SAVE REG. 0-15 IN PUBLIC
     9456   02 01E05    0B001E4A              PSM,0    PSTACK              'PUSH-DOWN' STACK
     9457   02 01E06    71201052              CB,2     READIOCD          TEST FOR READ BINARY ORDER
     9458   02 01E07    68301E20              BE       READINT2          B: BINARY
     9459   02 01E08    6AF015F9              BAL,15   :AIO              ISSUE AIO, TEST STATUS,DEV ADR
     9460   02 01E09    FFFFC002 A            DATA     X'FFFFC002'       STATUS MASK
     9461   02 01E0A    00100000 A            DATA     X'00100000'       EXP STATUS
     9462   02 01E0B    68001E0D              B        %+2
     9463   02 01E0C    35201D65              STW,2    TST1ERF           SET TST1 ERROR FLAG
     9464   02 01E0D    6AF015F4              BAL,15   :TDV              ISSUE TDV, TEST STATUS
     9465   02 01E0E    FFFFC000 A            DATA     X'FFFFC000'       STATUS MASK
     9466   02 01E0F    00000000 A            DATA     0                 EXPECTED STATUS
     9467   02 01E10    68001E12              B        %+2
     9468   02 01E11    35201D65              STW,2    TST1ERF           SET TST1 ERROR FLAG
     9469   02 01E12    CDC0172A     READINT4 TIO,12   *:DEVADDR         ISSUE A 'TIO'
     9470   02 01E13    31D01F0D              CW,13    =X'10000000'      TEST FOR MANUAL
     9471   02 01E14    68401E1A              BCR,4    READINT1          MANUAL - BYPASS TIO TEST
     9472   02 01E15    6AF015EA              BAL,15   :TIO              ISSUE TIO, TEST STATUS
     9473   02 01E16    FFFFC000 A            DATA     X'FFFFC000'       STATUS MASK
     9474   02 01E17    10000000 A            DATA     X'10000000'       EXPECTED STATUS
     9475   02 01E18    68001E1A              B        %+2
     9476   02 01E19    35201D65              STW,2    TST1ERF           SET TST1 ERROR FLAG
     9477   02 01E1A    6AF018D1     READINT1 BAL,15   :INTD             DISARM I/O INTERRUPTS
     9478   02 01E1B    22000000 A            LI,0     0                 SET R0 = 0
     9479   02 01E1C    35201764              STW,2    :INTRECF          SET INTERRUPT RECEIVED FLAG
     9480   02 01E1D    02200000 A            LCI      0
     9481   02 01E1E    0A001E4A              PLM,0    PSTACK            RESTORE REG. 0-15 FROM STACK
     9482   02 01E1F    0E201E00              LPSD,2   READPSD           RETURN
     9483                            *
     9484   02 01E20    6AF015F9     READINT2 BAL,15   :AIO              ISSUE AIO, TEST STATUS, DEV ADR
     9485   02 01E21    FFFFC002 A            DATA     X'FFFFC002'       STATUS MASK
     9486   02 01E22    00100000 A            DATA     X'00100000'       EXPECTED STATUS
     9487   02 01E23    68001E25              B        %+2
     9488   02 01E24    35201D65              STW,2    TST1ERF           SET TST1 ERROR FLAG
     9489   02 01E25    6AF015F4              BAL,15   :TDV              ISSUE TDV, TEST STATUS
     9490   02 01E26    FFFFC000 A            DATA     X'FFFFC000'       STATUS MASK
     9491   02 01E27    00000000 A            DATA     0                 EXPECTED STATUS
     9492   02 01E28    68001E2A              B        %+2
     9493   02 01E29    35201D65              STW,2    TST1ERF           SET TST1 ERROR FLAG
     9494   02 01E2A    68001E12              B        READINT4
     9495                            *
     9496   02 01E2B    02200000 A   RBINCD   LCI      0                 SAVE REG. 0-15 IN PUBLIC
     9497   02 01E2C    0B001E4A              PSM,0    PSTACK              'PUSH-DOWN' STACK
     9498   02 01E2D    3250105C              LW,5     MAXPOS            R5 = X'7FFFFFFF'
     9499   02 01E2E    32F0033D              LW,15    READRADR
     9500   02 01E2F    35F0172A              STW,15   :DEVADDR          SET UP :DEVADDR
     9501   02 01E30    220007DF              LI,0     DA(IOCD21)
     9502   02 01E31    CCC0172A              SIO,12   *:DEVADDR         READ CARD - BINARY
     9503   02 01E32    CDC0172A              TIO,12   *:DEVADDR         TEST FOR READY
     9504   02 01E33    69C01E38              BCS,12   RBINCD2           TEST FOR TIMEOUT
     9505   02 01E34    6AF01765     RBINCD1  BAL,15   :ERRORT           TEST TIO STATUS
     9506   02 01E35    00000D38              DATA     BA(T49SEQ1)
     9507   02 01E36    68001E3C              B        RBINCD3           - SUCCESSFUL
     9508   02 01E37    68001E3B              B        RBINCD2+3         GO TO ERROR RETURN
     9509                            *
     9510   02 01E38    64501E32     RBINCD2  BDR,5    RBINCD1-2         B: NOT TIMEOUT YET
     9511   02 01E39    EAF0021C A            BAL,15   *:PRINT           PRINT:
     9512   02 01E3A    00000F7F              DATA     TIMEOUT                 'TIMEOUT'
     9513   02 01E3B    B3101E4A              MTW,1    *PSTACK           TAKE ERROR RETURN
     9514                            *
     9515   02 01E3C    02200000 A   RBINCD3  LCI      0
     9516   02 01E3D    0A001E4A              PLM,0    PSTACK            RESTORE REG. 0-15 FROM STACK
     9517   02 01E3E    E800000F A            B        *15               RETURN
     9518                            *
     9519   02 01E3F    22000000 A   CLRSTK   LI,0     0
     9520   02 01E40    22100000 A            LI,1     0
     9521   02 01E41    35021E4C              STW,0    PUBLIC,1          CLEAR (STACK) TO ZERO
     9522   02 01E42    20100001 A            AI,1     1
     9523   02 01E43    21100032 A            CI,1     50
     9524   02 01E44    69101E41              BL       %-3
     9525   02 01E45    22100001 A            LI,1     1
     9526   02 01E46    E800000F A            B        *15               RETURN
     9527                            *
     9528                            *
     9529                                     BOUND    8
     9530   02 01E48    00001E4B     PSTACKR  DATA     PUBLIC-1          STACK INITIALIZATION
     9531   02 01E49    80328000 A            GEN,1,15,1,15  1,50,1,0
     9532   02 01E4A    00001E4B     PSTACK   DATA     PUBLIC-1          TOP OF STACK ADDRESS POINTER
     9533   02 01E4B    80328000 A            GEN,1,15,1,15  1,50,1,0
     9534   02 01E4C                 PUBLIC   RES      50                PUBLIC 'PUSH-DOWN' STACK
     9535                            *
     9536   02 01E7E    13E3C4E5 A   TDVMSG1  TEXTC    'TDV STATUS 01234567'
            02 01E7F    40E2E3C1 A
            02 01E80    E3E4E240 A
            02 01E81    F0F1F2F3 A
            02 01E82    F4F5F6F7 A
     9537   02 01E83    13C5E7D7 A   TDVMSG2  TEXTC    'EXPECTED   XXXXXXXX'
            02 01E84    C5C3E3C5 A
            02 01E85    C4404040 A
            02 01E86    E7E7E7E7 A
            02 01E87    E7E7E7E7 A
     9538   02 01E88    13D6C2E2 A   TDVMSG3  TEXTC    'OBSERVED   XXXXXXXX'
            02 01E89    C5D9E5C5 A
            02 01E8A    C4404040 A
            02 01E8B    E7E7E7E7 A
            02 01E8C    E7E7E7E7 A
     9539                            *
     9540   02 01E8D    00       A   ORDERTBL DATA,1   0,1,5,9,X'0D',X'11',X'15',X'19',X'1D',X'80',0,0
            02 01E8D 1  01       A
            02 01E8D 2  05       A
            02 01E8D 3  09       A
            02 01E8E    0D       A
            02 01E8E 1  11       A
            02 01E8E 2  15       A
            02 01E8E 3  19       A
            02 01E8F    1D       A
            02 01E8F 1  80       A
            02 01E8F 2  00       A
            02 01E8F 3  00       A
     9541   02 01E90    00010509 A   ORD7165  DATA     X'00010509'
     9542   02 01E91    0D111519 A            DATA     X'0D111519'
     9543   02 01E92    1D5C454D A            DATA     X'1D5C454D'
     9544   02 01E93    555D4149 A            DATA     X'555D4149'
     9545   02 01E94    51590000 A            DATA     X'51590000'
     9546   02 01E95    0000000F A   KF       DATA     X'F'
     9547   02 01E96    00000018 A   K18      DATA     X'18'
     9548   02 01E97    0000003C A   K3C      DATA     X'3C'
     9549   02 01E98    0000007F A   K7F      DATA     X'7F'
     9550   02 01E99    00000080 A   K80      DATA     X'80'
     9551   02 01E9A    000000F0 A   KF0      DATA     X'F0'
     9552   02 01E9B    000000FF A   KFF      DATA     X'FF'
     9553   02 01E9C    000007FF A   K7FF     DATA     X'7FF'
     9554   02 01E9D    00000FFF A   KFFF     DATA     X'FFF'
     9555   02 01E9E    00001FFF A   K1FFF    DATA     X'1FFF'
     9556   02 01E9F    00007000 A   K7000    DATA     X'7000'
     9557   02 01EA0    FFFFC000 A   KFFFFC0  DATA     X'FFFFC000'
     9558   02 01EA1    FFFF0000 A   KFFFF0   DATA     X'FFFF0000'
     9559   02 01EA2    10000000 A   K1000    DATA     X'10000000'
     9560   02 01EA3    FFFFFFFF A   KM1      DATA     -1
     9561                            *
     9562   02 01EA4    00C01402 A   INVC     DATA     X'00C01402'
     9563   02 01EA5    40440841 A            DATA     X'40440841'
     9564   02 01EA6    04018028 A            DATA     X'04018028'
     9565   02 01EA7    04808810 A            DATA     X'04808810'
     9566   02 01EA8    80300500 A            DATA     X'80300500'
     9567   02 01EA9    90110060 A            DATA     X'90110060'
     9568   02 01EAA    0A01200C A            DATA     X'0A01200C'
     9569   02 01EAB    01401800 A            DATA     X'01401800'
     9570   02 01EAC    0C014024 A            DATA     X'0C014024'
     9571   02 01EAD    04408410 A            DATA     X'04408410'
     9572   02 01EAE    40180280 A            DATA     X'40180280'
     9573   02 01EAF    48088108 A            DATA     X'48088108'
     9574   02 01EB0    03005009 A            DATA     X'03005009'
     9575   02 01EB1    01100600 A            DATA     X'01100600'
     9576   02 01EB2    A01200C0 A            DATA     X'A01200C0'
     9577   02 01EB3    14018000 A            DATA     X'14018000'
     9578   02 01EB4    C0140240 A            DATA     X'C0140240'
     9579   02 01EB5    44084104 A            DATA     X'44084104'
     9580   02 01EB6    01802804 A            DATA     X'01802804'
     9581   02 01EB7    80881080 A            DATA     X'80881080'
     9582   02 01EB8    30050090 A            DATA     X'30050090'
     9583   02 01EB9    1100600A A            DATA     X'1100600A'
     9584   02 01EBA    01200C01 A            DATA     X'01200C01'
     9585   02 01EBB    4018000C A            DATA     X'4018000C'
     9586   02 01EBC    01402404 A            DATA     X'01402404'
     9587   02 01EBD    40841040 A            DATA     X'40841040'
     9588   02 01EBE    18028048 A            DATA     X'18028048'
     9589   02 01EBF    08810803 A            DATA     X'08810803'
     9590   02 01EC0    00500901 A            DATA     X'00500901'
     9591   02 01EC1    100600A0 A            DATA     X'100600A0'
     9592                            *
     9593   02 01EC2    0DD7D9D6 A   WAITMSG1 TEXTC    'PROGRAM ERROR'                                   *A02
            02 01EC3    C7D9C1D4 A
            02 01EC4    40C5D9D9 A
            02 01EC5    D6D94040 A
     9594   02 01EC6    12C5D9D9 A   WAITMSG2 TEXTC    'ERROR HAS OCCURRED'                              *A02
            02 01EC7    D6D940C8 A
            02 01EC8    C1E240D6 A
            02 01EC9    C3C3E4D9 A
            02 01ECA    D9C5C440 A
     9595         02 01ECB           :PROGID  EQU      %                 PROGRAM IDENTIFICATION MESSAGE
     9596                             TEXTC 'SIGMA 5-9 COMPREHENSIVE CARD EQUIPMENT
';
     9597   02 01ECB    4BE2C9C7 A                     ,'PROGRAM NO 706169-A04 MANUAL 901756A'           *A04
            02 01ECC    D4C140F5 A
            02 01ECD    60F940C3 A
            02 01ECE    D6D4D7D9 A
            02 01ECF    C5C8C5D5 A
            02 01ED0    E2C9E5C5 A
            02 01ED1    40C3C1D9 A
            02 01ED2    C440C5D8 A
            02 01ED3    E4C9D7D4 A
            02 01ED4    C5D5E315 A
            02 01ED5    D7D9D6C7 A
            02 01ED6    D9C1D440 A
            02 01ED7    D5D640F7 A
            02 01ED8    F0F6F1F6 A
            02 01ED9    F960C1F0 A
            02 01EDA    F440D4C1 A
            02 01EDB    D5E4C1D3 A
            02 01EDC    40F9F0F1 A
            02 01EDD    F7F5F6C1 A
     9598                            USERPROG END
            02 01EDE    00002E01 01
            02 01EDF    80000000 A
            02 01EE0    EF000000 A
            02 01EE1    08000000 A
            02 01EE2    02000000 A
            02 01EE3    01010101 A
            02 01EE4    00800000 A
            02 01EE5    06000000 A
            02 01EE6    AAAAAAAA A
            02 01EE7    EFFF0000 A
            02 01EE8    01FFF000 A
            02 01EE9    00000009 A
            02 01EEA    0000001A A
            02 01EEB    40404040 A
            02 01EEC    0000001E A
            02 01EED    00000022 A
            02 01EEE    0000002E A
            02 01EEF    00500000 A
            02 01EF0    00400000 A
            02 01EF1    EFFF8002 A
            02 01EF2    00484000 A
            02 01EF3    08400000 A
            02 01EF4    EFFFC002 A
            02 01EF5    00000064 A
            02 01EF6    18000000 A
            02 01EF7    EFFFFFFF A
            02 01EF8    0000003F A
            02 01EF9    66000000 A
            02 01EFA    12B9B0A1 A
            02 01EFB    1033C4D7 A
            02 01EFC    AAA555AA A
            02 01EFD    00100000 A
            02 01EFE    00008000 A
            02 01EFF    00000007 A
            02 01F00    00000018 A
            02 01F01    FFF00000 A
            02 01F02    000FFF00 A
            02 01F03    F0000000 A
            02 01F04    0FFF0000 A
            02 01F05    0000FFF0 A
            02 01F06    0000000F A
            02 01F07    FF000000 A
            02 01F08    00FFF000 A
            02 01F09    406F6F6F A
            02 01F0A    6F6F6F6F A
            02 01F0B    6F404040 A
            02 01F0C    00000FFF A
            02 01F0D    10000000 A

  CONTROL SECTION SUMMARY: 01 02EC2   PT 0     02 01F0E   PT 0
  * NO UNDEFINED SYMBOLS
  *    ERROR SEVERITY LEVEL: 0
  * NO ERROR LINES
1 C00   19:34 JUN 20,'83    T-SERIES COMPREHENSIVE CARD EQUIPMENT DIAGNOSTIC 960-00XX-1B          PAGE    5
A  AIOF0           7692-:TSEQEQU
   AIOF1           7692-:TSEQEQU
   AIOF2           7692-:TSEQEQU
   AIOF3           7692-:TSEQEQU
   AIOF4           7692-:TSEQEQU
   AIOF5           7692-:TSEQEQU
   AIOF6           7692-:TSEQEQU
   AIOF7           7692-:TSEQEQU
   AIOT0           7693-:TSEQEQU
   AIOT1           7693-:TSEQEQU
   AIOT2           7693-:TSEQEQU
   AIOT3           7693-:TSEQEQU
   AIOT4           7693-:TSEQEQU
   AIOT5           7693-:TSEQEQU
   AIOT6           7693-:TSEQEQU
   AIOT7           7693-:TSEQEQU
   ASECTMLT        1989-ASECT
   ASECTPIT        2039-ASECT
   BUFFER             8-EQU     3338/STB     3560/STW     3608/LW      3635/LW      3641/STW     3644/STW
      3672/STB     3779/STW     3942/STW     4017/STW     4024/STW     4103/STW     4181/STB     4246/STB
      4317/LI      4425/GEN     4498/GEN     4616/GEN     4688/LI      5082/STW     5086/STW     5094/STB
      5105/STB     5114/STB     5116/STB     5118/STB     5186/LI      5209/LW      5223/LW      5257/LI
      5309/STB     5310/LI      5411/DATA    5416/GEN     5428/GEN     5430/GEN     5432/GEN     5434/GEN
      5436/GEN     5438/GEN     5440/GEN     5444/GEN     5448/GEN     5454/GEN     5460/GEN     5466/GEN
      5480/GEN     5483/GEN     5489/GEN     5495/GEN     5497/GEN     5499/GEN     5505/GEN     5511/GEN
      5515/GEN     5521/GEN     5527/GEN     5533/GEN     5535/GEN     5537/GEN     5539/GEN     5541/GEN
      5543/GEN     5545/GEN     5547/GEN     5549/GEN     5551/GEN     5553/GEN     5579/GEN     5581/GEN
      5583/GEN     5585/GEN     5589/GEN     5591/GEN     5595/GEN     5672/LI      5700/STW     5706/LI
      5719/LI      5884/LI      6165/GEN     6173/GEN     6294/LI      6345/LB      6350/STB     6370/STW
      6379/STB     6393/STW     6438/LI      6637/STW     6678/STW     6880/STB     6911/STB     6943/LI
      7028/GEN     7034/GEN     7040/GEN     7046/GEN     7054/GEN     7074/GEN     7076/GEN     7078/GEN
      8498/LI      9018/STW     9100/LW      9111/LW      9126/LB
   BUFFER1            9-EQU       11/EQU       12/EQU     5412/DATA    5720/LI      5804/LI      6125/LI
      9121/STB     9130/STB     9134/LI      9138/LB      9149/LB      9273/LI
   BUFFER2           10-EQU     3666/STW     3710/OR      3711/STW     3725/CW      3744/LW      3974/LI
      4068/LI      4149/LI      4319/LI      4690/LI      5184/LI      5210/CW      5224/CW      5259/LI
      5312/LI      5413/DATA    5442/GEN     5446/GEN     5472/GEN     5474/GEN     5501/GEN     5503/GEN
      5513/GEN     5555/GEN     5557/GEN     5559/GEN     5561/GEN     5563/GEN     5565/GEN     5567/GEN
      5569/GEN     5571/GEN     5573/GEN     5575/GEN     5577/GEN     5587/GEN     5601/GEN     5603/GEN
      5605/GEN     5676/LI      5688/CW      5707/LI      5806/LI      6127/LW      6134/LW      6171/GEN
      6296/LI      6351/LB      6355/STB     6440/LI      6939/LW      6945/LI      7052/GEN     7060/GEN
      7070/GEN     7072/GEN     8500/LI      9139/CB      9152/LB      9275/LW      9282/LW
   BUFMOVES        5709-LI      5721/B
   BUFMOVE1        5717-LCI
   BUFMOVE2        5704-LCI
   BYTN0           7700-:TSEQEQU
   BYT00           2161/:TSEQ   2163/:TSEQ   2167/:TSEQ   2170/:TSEQ   3332/:TSEQ   4420/:TSEQ   4553/:TSEQ
      4621/:TSEQ   5244/:TSEQ   7700-:TSEQEQU
   BYT01           4422/:TSEQ   7700-:TSEQEQU
   BYT02           7700-:TSEQEQU
   BYT03           7700-:TSEQEQU
   BYT04           7700-:TSEQEQU
   BYT05           7700-:TSEQEQU
   BYT06           7700-:TSEQEQU
   CARDER          8308/STW     8401/CW      8403/STW     8488-DATA
   CARDISPF        6300/STW     6341/CW      6443/STW     6475/CW      6487/STW     8487-DATA
   CARDSET1        6761/BAL     8497-PSW
   CKZBUF2         5686-LI
   CLRBUF          2517/BAL     3055/BAL     3407/BAL     3832/BAL     4348/BAL     4401/BAL     4471/BAL
      5256/BAL     5307/BAL     5357/BAL     5670-LCI     6878/BAL     9407/BAL
   CLRBUF2         5673/B       5674-LCI
   CLRSTK          6268/BAL     9519-LI
   CODE            1932-CNAME
   COMNG           7701-:TSEQEQU
   COMPACT         8978-STW
   COMPACTF        8978/STW     8980/STW     9014/CW      9022-DATA
   COMPACTM        4669/BAL     4743/BAL     4809/BAL     5074/BAL     6415/BAL     6428/BAL     6640/BAL
      6959/BAL     8980-STW     9013/BL
   COMPMSG1        9160/STH     9162/DATA    9170-TEXTC
   COMPMSG2        9151/STH     9164/DATA    9171-TEXTC
   COMPMSG3        9154/STH     9166/DATA    9172-TEXTC
   COMPO           3978/STW     3985/STW     4070/STW     4148/STW     9092/CW      9173-DATA
   COMPREG         3979/BAL     3986/BAL     4071/BAL     4151/BAL     9086-LCI
   COMPREG2        9093/BNE     9125-LI      9133/BL
   COMPREG3        9110/BE      9137-LI      9143/BL
   COMPREG4        9144-LCI     9168/B
   COMPREG5        9140/BNE     9148-LI      9157/BL
   COMPRE01        9102-MTW     9119/B
   COMPRE02        9104-SLS     9115/BNEZ
   COMPRE03        9106/BNEZ    9112-MTW
   COMPRE04        9114-MTW     9123/B
   COMPRE05        9103/BEZ     9113/BEZ     9120-LB
   COMSBFRA        5805/STW     8183/LW      8197/CW*     8235/STW*    8238/STW*    8242/STW*    8269-DATA
   COMSBFRB        5807/STW     8184/LW      8196/LW*     8208/LW*     8210/LW*     8213/CW*     8218/LB*
      8237/LW*     8245/LB*     8270-DATA
   COMSCOLN        2365/STW     5183/STW     6267/STW     8195/STW     8215/MTW     8244/LW      8261/STW
      8272-DATA    8441/CW
   COMSMSG         8225/STW     8226/STW     8231/DATA    8271-TEXTC
   COMSTEM1        8262/AWM     8265-RES
   COMSTEM2        8187/STD     8189/LW*     8190/CW*     8267-DATA
   COMSWCNT        6133/STW     8185/AW      8186/AW      8188/LCW     8202/LW      8268-DATA    9281/STW
   COMSYNC         6137/BAL     8181-LCI     9285/BAL
   COMS1           8189-LW      8192/BIR
   COMS2           8193-B       8200/B       8233/B       8263/B
   COMS3           8191/BNE     8195-STW
   COMS4           8210-LW      8216/BDR
   COMS5           8214/BE      8235-STW
   COMS6           8250/B       8255/BE      8261-STW
   COM00           7701-:TSEQEQU
   COM01           7701-:TSEQEQU
   COM02           7701-:TSEQEQU
   COM03           7701-:TSEQEQU
   COM04           7701-:TSEQEQU
   COM05           7701-:TSEQEQU
   COM06           7701-:TSEQEQU
   CSECTDIC        2087-CSECT
   CURREPTR        2216/STW     2225-DATA    2337/CW      2351/STW     2382/LW      2396/CW      2515/CW
      2568/CW      4379/CW      6971/STW     6980/STW
   DATAADDR         464-DATA
   DELYOMS         6787-DATA
   DELYTM          5615-DATA
   DELYTMS         2623/LW      2681/LW      2881/LW      2934/LW      3094/LW      3133/LW      3234/LW
      3565/LW      3577/LW      4447/LW      5616-DATA    9034/LW      9050/LW      9055/LW
   DEVERMSG        6893/DATA    6896-TEXTC
   DEVERR          6892-BAL
   DEVPTR          2219/STW     2226-DATA    2380/AND     2383/LW
   DEVTEST         2273/BAL     2715/BAL     2917/BAL     4323/BAL     4349/BAL     4472/BAL     5656-STW
      8822/BAL
   DEVTESTR        5656/STW     5659/BE*     5662/BNE*    5664/BNE*    5665/B*      5666-DATA
   DPM             1863/GOTO    1981-EQU
   DRVR1           3057/BAL     4937/BAL     5272/BAL     9324-LCI
   DTM             3184/LW      3303/LW      3346/LW      3763/LW      3787/LW      3843/LW      3901/LW
      4306/LW      5611-DATA
   DTMM            5614-DATA
   DTMP            3413/LW      5612-DATA
   DTMRT           3483/LW      3518/LW      3600/LW      3684/LW      5613-DATA
   EBKBUF          3933/BAL     4177/BAL     4240/BAL     4322/BAL     4376/BAL     4556/BAL     5696-LCI
   EBLANK          3775/LW      5621-DATA    5699/LW      8451/LW      8462/LW      8464/LW
   ECARDNO         5753/STW     5973/STW     6007/MTW     6162-DATA    6195/LW      6199/STW
   ETBL            3723/LW      8390/LW      8511-DATA    8919/LW      8939/LW      8942/LW      8947/LW
      8956/LW      9127/LW
   EXECDT          8839/STW     8842/MTW     8882-DATA
   EXECDTM         8838/LW      8881-DATA    9354/LW
   EXECERR         8835/STW     8854/MTW     8862/STW     8867/STW     8872/STW     8880-DATA
   EXECMSG           14/EQU     8846/DATA    8883-TEXTC
   EXECPSD         8874/LPSD    8877-DATA    8879/XPSD
   EXECREC         8858-BAL     8878/DATA
   EXECS           8829/STH     8860-DATA
   EXECUTE         4872/BAL     4999/BAL     6339/BAL     6473/BAL     6648/BAL     6936/BAL     8820-LCI
   EXECXPSD        8832/LW      8879-XPSD
   EXEC1           8848-LW      8855/BEZ     8856/B
   EXEC2           8841/BNEZ    8853-BAL
   EXIT            2409-EQU     2508/B       2514/B       2523/B       2539/B       2706/BCS     2836/BE
      2860/B       2866/B       2872/B       2906/B       2912/B       2973/B       3065/B       3068/BEZ
      3162/BE      3168/B       3220/B       3253/B       3330/B       3400/B       3456/B       3508/B
      3555/B       3650/B       3761/B       3824/B       3873/B       3924/B       4005/B       4087/B
      4162/B       4231/B       4310/B       4357/B       4364/B       4371/B       4416/B       4491/B
      4544/B       4551/B       4573/B       4608/B       4791/B       4854/B       4882/B       9048/B
   EXUSIO          4566/BAL     4584/BAL     4599/BAL     5199/BAL     5216/BAL     9304-PSW
   HIOF0           4625/:TSEQ   7686-:TSEQEQU
   HIOF1           7686-:TSEQEQU
   HIOF2           7686-:TSEQEQU
   HIOF3           7686-:TSEQEQU
   HIOF4           4625/:TSEQ   7686-:TSEQEQU
   HIOF5           7686-:TSEQEQU
   HIOF6           7686-:TSEQEQU
   HIOF7           4625/:TSEQ   7686-:TSEQEQU
   HIOT0           7687-:TSEQEQU
   HIOT1           4625/:TSEQ   7687-:TSEQEQU
   HIOT2           4625/:TSEQ   7687-:TSEQEQU
   HIOT3           4625/:TSEQ   7687-:TSEQEQU
   HIOT4           7687-:TSEQEQU
   HIOT5           4625/:TSEQ   7687-:TSEQEQU
   HIOT6           4625/:TSEQ   7687-:TSEQEQU
   HIOT7           7687-:TSEQEQU
   I               1837-SET     1839/GEN     1839/GEN     1839/GEN     1839/GEN     1840-SET     1840/SET
   INITA           2190-STW     2198/B       2207/BCS     2209/BG
   INITB           2188/BE      2192-LH
   INITC           2205/BE      2210-LI
   INITRADR        2182/STW     2222/B*      2223-DATA
   INITRTN         2191/B       2222-B
   INVC            7062/GEN     7068/GEN     9562-DATA
   IOCDTMR         2672/LI      9053/LI      9068-GEN
   IOCDTMS         2613/LI      9032/LI      9066-GEN
   IOCD1           3287/STB     3291/LI      5416-GEN
   IOCD10          5436-GEN
   IOCD11          3784/LI      5438-GEN
   IOCD12          3838/STB     3839/STH     3840/LI      5440-GEN
   IOCD13          3884/STH     3888/LI      5442-GEN
   IOCD14          3946/LI      4108/LI      4187/LI      4248/LI      4263/LI      4564/LI      5444-GEN
   IOCD15          3963/LI      4056/LI      4136/LI      5446-GEN
   IOCD16          4596/STB     4597/LI      5448-GEN     5450/GEN
   IOCD17          2519/STB     2520/LI      4730/STB     4747/LI      4800/STB     4813/LI      5454-GEN
      5456/GEN     5631/STW     5637/STW     5642/GEN
   IOCD18          4673/GEN     4998/LI      5460-GEN     5462/GEN     5633/STW     5638/STW     5643/GEN
   IOCD19          4993/LI      5466-GEN     5468/GEN     5639/STW     5644/GEN
   IOCD2           2724/STB     2725/LI      2769/STB     2770/LI      5418-GEN
   IOCD20          5197/LI      5472-GEN
   IOCD21          5214/LI      5474-GEN     9501/LI
   IOCD22          3231/LI      5476-GEN
   IOCD23          5478-EQU
   IOCD24          2857/LI      5489-GEN     5491/GEN
   IOCD25          2862/LI      2863/STB     2868/LI      2869/STB     5495-GEN
   IOCD26          5497-GEN
   IOCD27          4891/STW     4892/LI      4894/STB     4898/STB     4902/STB     4906/STB     4910/STW
      4912/STB     4916/STB     4920/STB     4924/STB     5499-GEN
   IOCD28          2524/LI      2525/STB     2528/STB     5501-GEN
   IOCD29          2532/STB     2536/STB     5503-GEN
   IOCD3           2807/LI      5420-GEN
   IOCD30          5505-GEN     5507/GEN
   IOCD31          5511-GEN
   IOCD32          5315/LI      5513-GEN
   IOCD33          5515-GEN     5517/GEN     6885/LI
   IOCD34          5521-GEN     5523/GEN
   IOCD35          4479/STW     4483/LI      5527-GEN     5529/GEN     5531/GEN
   IOCD36          4492/LI      5535-GEN
   IOCD36S         5553-GEN
   IOCD37          4494/LI      5555-GEN
   IOCD371         4383/STB     4386/STH     4387/LI      4393/STH     4394/LI      4400/STB     4403/STH
      4404/LI      4410/STH     4411/LI      4425-GEN
   IOCD38          4638/LI      4869/LI      5579-GEN
   IOCD39          3052/STB     3054/STB     3056/LI      5581-GEN
   IOCD4           2928/STB     2930/STB     2931/LI      2953/STB     2955/STB     2959/STB     2961/STB
      5422-GEN
   IOCD40          4991/LI      5583-GEN
   IOCD41          4996/LI      5585-GEN
   IOCD42          4697/LI      5587-GEN
   IOCD43          4745/LI      4811/LI      5589-GEN
   IOCD44          5358/LI      5591-GEN     5593/GEN     5597/GEN
   IOCD45          5601-GEN
   IOCD5           3091/STB     3092/LI      3121/CI      3130/STB     3131/LI      3161/CI      5424-GEN
   IOCD50          5263/LI      5603-GEN
   IOCD6           3172/LI      3344/LI      3464/LI      5428-GEN
   IOCD7           3411/LI      4028/LI      5430-GEN
   IOCD8           3673/LI      5432-GEN
   IOCD9           3515/STH     3516/LI      3558/STH     3591/LI      3610/LH      3630/AWM     3631/LW
      3634/STW     5434-GEN
   ISBF0           7694-:TSEQEQU
   ISBF1           7694-:TSEQEQU
   ISBF2           7694-:TSEQEQU
   ISBF3           7694-:TSEQEQU
   ISBF4           7694-:TSEQEQU
   ISBF5           7694-:TSEQEQU
   ISBF6           7694-:TSEQEQU
   ISBF7           7694-:TSEQEQU
   ISBT0           7695-:TSEQEQU
   ISBT1           7695-:TSEQEQU
   ISBT2           7695-:TSEQEQU
   ISBT3           7695-:TSEQEQU
   ISBT4           7695-:TSEQEQU
   ISBT5           7695-:TSEQEQU
   ISBT6           7695-:TSEQEQU
   ISBT7           7695-:TSEQEQU
   ITHDLR          2372/LI      5813/LI      6280/LI      8783-PSW
   ITHM2           8786/STB     8788/DATA    8808-TEXTC
   ITHM3           8793/STH     8795/DATA    8809-TEXTC
   ITHM4           8798/STW     8800/DATA    8810-TEXTC
   ITHRST          2375/STW     5816/STW     6283/STW     8801/LW      8806-DATA
   ITHSUBT         2367/STW     2398/LW      8791/LW      8805-DATA
   ITHTEST         2371/STW     5812/STW     6279/STW     8784/LW      8789/CW      8804-DATA
   KF              4209/AND     9546-DATA
   KFF             8338/AND     8924/AND     9552-DATA
   KFFF            3602/AND     3687/AND     3724/AND     4267/CW      6426/AND     6446/AND     6449/AND
      6941/AND     6965/AND     8369/AND     8911/AND     8920/AND     8948/AND     8957/AND     9554-DATA
   KFFFFC0         7285/AND     9557-DATA
   KFFFF0          7362/AND     9558-DATA
   KF0             3699/LI      9551-DATA
   KM1             2204/CW      2335/CW      5755/LW      5768/LW      9560-DATA
   K1FFF           7334/AND     9555-DATA
   K1000           5857/CW      5942/CW      5970/CW      5985/CW      7502/AND     9559-DATA
   K18             6346/LW      6347/CS      6349/EOR     6352/CS      6354/EOR     8219/AND     8220/CW
      8316/AND     8317/CW      9547-DATA
   K3C             4201/AND     4273/AND     4274/EOR     9548-DATA
   K7F             6610/AND     6616/AND     6628/AND     7763/AND     9549-DATA
   K7FF            7293/AND     9553-DATA
   K7000           8943/AND     9556-DATA
   K80             9129/AND     9187/AND     9550-DATA
   LDPADR          6311/BAL     6458/BAL     6579/BAL     6672/BAL     6768/BAL     6792/BAL     6863/BAL
      6881/BAL     6900/BAL     6970-PSW     6982/B
   LDRADR          4696/BAL     5188/BAL     6337/BAL     6471/BAL     6674/BAL     6783/BAL     6802/BAL
      6933/BAL     6979-PSW
   LIMTADDR         495-DATA
   MAXNEG          4674-DATA
   MAXPOS          5622-DATA    6685/LW      9498/LW
   MERGEB          3975/BAL     4069/BAL     4150/BAL     9135/BAL     9180-LCI
   MERG1           9184-LI      9197/BL
   MERG2           9186-LB      9193/BNE
   NEW             1863/GOTO    1868-SET
   NOP             1944/LW      1947-NOP
   OLD             1863/GOTO    1864-SET
   ORDERTBL        3286/LB      6495/CB      9540-DATA
   ORD7165         6512/CB      9541-DATA
   OSBF0           2163/:TSEQ   2167/:TSEQ   4553/:TSEQ   4621/:TSEQ   4627/:TSEQ   5244/:TSEQ
      7684-:TSEQEQU
   OSBF1           2159/:TSEQ   2162/:TSEQ   2163/:TSEQ   2167/:TSEQ   2170/:TSEQ   4420/:TSEQ   4422/:TSEQ
      4553/:TSEQ   4621/:TSEQ   4627/:TSEQ   5244/:TSEQ   7684-:TSEQEQU
   OSBF2           2159/:TSEQ   2162/:TSEQ   2163/:TSEQ   2167/:TSEQ   2170/:TSEQ   4420/:TSEQ   4422/:TSEQ
      4553/:TSEQ   4621/:TSEQ   4627/:TSEQ   5244/:TSEQ   7684-:TSEQEQU
   OSBF3           2159/:TSEQ   2162/:TSEQ   2163/:TSEQ   2167/:TSEQ   2170/:TSEQ   4420/:TSEQ   4422/:TSEQ
      4553/:TSEQ   4627/:TSEQ   5244/:TSEQ   7684-:TSEQEQU
   OSBF4           2159/:TSEQ   2162/:TSEQ   2163/:TSEQ   2167/:TSEQ   2170/:TSEQ   4420/:TSEQ   4422/:TSEQ
      4553/:TSEQ   4621/:TSEQ   4627/:TSEQ   5244/:TSEQ   7684-:TSEQEQU
   OSBF5           2159/:TSEQ   2162/:TSEQ   2163/:TSEQ   2167/:TSEQ   2170/:TSEQ   4420/:TSEQ   4422/:TSEQ
      4553/:TSEQ   4621/:TSEQ   5244/:TSEQ   7684-:TSEQEQU
   OSBF6           2159/:TSEQ   2162/:TSEQ   2163/:TSEQ   2167/:TSEQ   2170/:TSEQ   4420/:TSEQ   4422/:TSEQ
      4553/:TSEQ   4621/:TSEQ   5244/:TSEQ   7684-:TSEQEQU
   OSBF7           2159/:TSEQ   2162/:TSEQ   2163/:TSEQ   2167/:TSEQ   2170/:TSEQ   4420/:TSEQ   4422/:TSEQ
      4553/:TSEQ   4621/:TSEQ   4627/:TSEQ   5244/:TSEQ   7684-:TSEQEQU
   OSBT0           2162/:TSEQ   4420/:TSEQ   4422/:TSEQ   7685-:TSEQEQU
   OSBT1           7685-:TSEQEQU
   OSBT2           7685-:TSEQEQU
   OSBT3           7685-:TSEQEQU
   OSBT4           7685-:TSEQEQU
   OSBT5           4627/:TSEQ   7685-:TSEQEQU
   OSBT6           4627/:TSEQ   7685-:TSEQEQU
   OSBT7           7685-:TSEQEQU
   PARNOERR        7123/STW     7127/LW      7134/MTW     7142/MTW     7159-DATA
   PBLANK          2403/BAL     6825/BAL     6845/BAL     9406-PSW
   PBUSY           5748/STW     5843/CW      5854/STW     5929/STW     6056/STW     6080/STW     6156-DATA
   PDELAY          4598/LW      4700/LW      5317/LW      9329/LW      9386/LW      9402-DATA
   PHERE           5745/STW     5760/STW     5836/CW      5982/CW      6153-DATA
   PINVC           6855/BAL     6861-LCI
   PINVCMSG        6871/DATA    6873-TEXTC   6889/DATA
   PMSC            6857/BAL     6876-LCI
   POP             2253-PLW     2605/B       4454/B       4460/B       4670/B       4927/B       4943/BNE
      4949/B       5374/BNE     5380/B       5640/B       6416/B       6429/B       6960/B       6977/B
      6996/B       6998/B       7096/B       8085/B       8095/B       8502/B       8802/B       9307/BCR
      9312/B       9367/BNE     9374/B       9397/B       9399/BNE     9409/B       9410/B       9415/B
      9417/BNE     9419/B       9432/B       9434/B       9445/B       9447/B
   POP15           4650/B       4723/B       5009/B       5239/B       5292/BE      5296/B       5342/BE
      5346/B       5683-LCI     5702/B       5715/B       6203/B       6395/B       6869/B       6872/B
      6887/B       6890/B       8193/B       8480/B       9286/B       9288/B       9292/B       9331/BE
      9337/B
   PRES5C          8831/STW     8848/LW      8884-DATA
   PRINT           1937-BAL     1943/BDR
   PSTACK          2235/STD     2236/PSW     2253/PLW     2542/PSW     4438/PSW     4446/MTW*    4509/PSM
      4521/PLM     4633/PSM     4658/PSW     4679/PSM     4887/PSW     4929/PSW     4934/MTW*    4957/PSM
      4974/PLM     4978/PSM     5173/PSM     5248/PSM     5299/PSM     5349/PSW     5390/PSM     5404/PLM
      5626/PSW     5671/PSM     5675/PSM     5684/PLM     5697/PSM     5705/PSM     5718/PSM     6017/PSM
      6082/PLM     6194/PSM     6390/PSM     6407/PSW     6420/PSW     6862/PSM     6877/PSM     6952/PSW
      6970/PSW     6979/PSW     6992/PSW     6997/MTW*    7085/PSW     8019/PSM     8034/PLM     8047/PSM
      8063/PLM     8080/PSW     8090/PSW     8182/PSM     8199/MTW*    8232/MTW*    8307/PSM     8404/MTW*
      8497/PSW     8783/PSW     8821/PSM     8847/MTW*    8851/PLM     9087/PSM     9145/PLM     9167/MTW*
      9181/PSM     9199/PLM     9205/PSM     9222/PLM     9244/PSM     9269/PLM     9272/PSM     9304/PSW
      9311/MTW*    9325/PSM     9336/MTW*    9348/PSW     9373/MTW*    9384/PSW     9396/MTW*    9406/PSW
      9418/MTW*    9426/PSW     9433/MTW*    9440/PSW     9446/MTW*    9456/PSM     9481/PLM     9497/PSM
      9513/MTW*    9516/PLM     9532-DATA
   PSTACKR         2234/LD      9530-DATA
   PTIME           5845/MTW     5931/STW     6158-DATA
   PUBLIC          9521/STW     9530/DATA    9532/DATA    9534-RES
   PUNCH           4330/BAL     4356/BAL     4484/BAL     4641/BAL     5367/BAL     6317/BAL     6463/BAL
      6773/BAL     6868/BAL     6886/BAL     6921/BAL     9384-PSW     9401/EQU     9414/BAL
   PUNCHADR        2149-DATA    2346/CW      5756/CW      5763/TIO*    5852/LW      5856/TIO*    5927/LW
      5984/TIO*    6028/CW      6972/LW
   PUNCHCF         5747/STW     5761/STW     5869/CW      5873/STW     5994/CW      6155-DATA
   PUNCHMOD        2147-DATA    2215/STM     2571/CW      5628/CW      5661/CW      6994/CW      7087/CW
   PUNCHREV        2148-DATA    5663/CW
   PUNCH1          9390/BE      9398-CW      9400/B
   RAUTO           4339/BAL     9424-LW
   RBIN            4366/BAL     9438-LW
   RBINCD          9496-LCI
   RBINCD1         9505-BAL     9510/BDR
   RBINCD2         9504/BCS     9508/B       9510-BDR
   RBINCD3         9507/B       9515-LCI
   RBUSY           5749/STW     5945/CW      5957/STW     6000/STW     6086/STW     6121/STW     6157-DATA
   RDCOMP          9271-LCI
   READ            9348-PSW     9372/B       9431/BAL     9444/BAL
   READER          9401-EQU
   READE1          9349/STW     9362-DATA
   READE2          9350/STW     9365/B       9369-DATA
   READINT         9453/DATA    9455-LCI
   READINT1        9471/BCR     9477-BAL
   READINT2        9458/BE      9484-BAL
   READINT4        9469-TIO     9494/B
   READIOCD        5605-GEN     9355/LI      9428/STH     9430/STB     9442/STH     9443/STB     9457/CB
   READPSD         9450/XPSD    9452-DATA    9482/LPSD
   READRADR        2155-DATA    5658/CW      5769/CW      5775/TIO*    5941/TIO*    5955/LW      5969/TIO*
      6003/LW      6030/CW      6981/LW      9499/LW
   READRMOD        2153-DATA
   READRREV        2154-DATA
   READXPSD        9351/LW      9450-XPSD
   READ1           9359/BE      9366-CW
   RESTM           3217/BAL     3329/BAL     3399/BAL     3455/BAL     3507/BAL     3554/BAL     3649/BAL
      3760/BAL     3823/BAL     3872/BAL     3923/BAL     4004/BAL     4086/BAL     4161/BAL     4230/BAL
      4292/BAL     9050-LW
   RESTM1          9057/BCS     9060-BDR
   RETRYT3         6649/B       6650/B       6736/B       6782/B       6922/B       6925/B       6938/B
      6949/B       6950/B       6986-HIO
   REV             1915-CNAME
   REVBRNCH        1945/STW     2239-EQU
   REVCOUNT        1912-SET     1917/DO      1921-SET     1921/SET     1926/GEN     2240/DO
   REVEND          1922/DO      1980-REV
   REVISION        1934/LW      1935/LW      1955-REV
   REVPRINT        1934-LW      2243/BAL
   REVSTART        1913-SET     1918-SET     1925/ORG
   RHERE           5746/STW     5773/STW     5838/CW      5939/CW      6154-DATA
   RORDTBL         6531-DATA    6538/CB
   RPPMAN          5751/STW     5859/CW      5861/STW     5868/STW     5987/CW      6161-DATA
   RPRMAN          5750/STW     5974/CW      5976/STW     5998/STW     6160-DATA
   RTIME           5947/MTW     6002/STW     6159-DATA
   S:UFV              8/EQU        9/EQU       10/EQU       14/EQU       15/EQU       16/EQU       17/EQU
   SBAF0           7696-:TSEQEQU
   SBAF1           7696-:TSEQEQU
   SBAF2           7696-:TSEQEQU
   SBAF3           7696-:TSEQEQU
   SBAF4           7696-:TSEQEQU
   SBAF5           7696-:TSEQEQU
   SBAF6           7696-:TSEQEQU
   SBAF7           7696-:TSEQEQU
   SBAT0           7697-:TSEQEQU
   SBAT1           7697-:TSEQEQU
   SBAT2           7697-:TSEQEQU
   SBAT3           7697-:TSEQEQU
   SBAT4           7697-:TSEQEQU
   SBAT5           7697-:TSEQEQU
   SBAT6           7697-:TSEQEQU
   SBAT7           7697-:TSEQEQU
   SBBF0           7698-:TSEQEQU
   SBBF1           7698-:TSEQEQU
   SBBF2           7698-:TSEQEQU
   SBBF3           7698-:TSEQEQU
   SBBF4           7698-:TSEQEQU
   SBBF5           7698-:TSEQEQU
   SBBF6           7698-:TSEQEQU
   SBBF7           7698-:TSEQEQU
   SBBT0           7699-:TSEQEQU
   SBBT1           7699-:TSEQEQU
   SBBT2           7699-:TSEQEQU
   SBBT3           7699-:TSEQEQU
   SBBT4           7699-:TSEQEQU
   SBBT5           7699-:TSEQEQU
   SBBT6           7699-:TSEQEQU
   SBBT7           7699-:TSEQEQU
   SELTM           3170/BAL     3290/BAL     3343/BAL     3406/BAL     3463/BAL     3512/BAL     3576/BAL
      3670/BAL     3783/BAL     3835/BAL     3886/BAL     3945/BAL     4027/BAL     4107/BAL     4185/BAL
      4242/BAL     9031-HIO
   SELTM1          9036/BCR     9038/BCS     9041-BDR
   SETUPSN         5949/BAL     6102/BAL     6110/BAL     6141/BAL     6193-LCI     8227/BAL
   SHFT14          6955/BAL     6962-SLS
   SHIFT14         6904/BAL     6906/BAL     6927-SLS
   SIOF0           2157/:TSEQ   7690-:TSEQEQU
   SIOF1           2157/:TSEQ   7690-:TSEQEQU
   SIOF2           2157/:TSEQ   7690-:TSEQEQU
   SIOF3           7690-:TSEQEQU
   SIOF4           7690-:TSEQEQU
   SIOF5           2157/:TSEQ   7690-:TSEQEQU
   SIOF6           2157/:TSEQ   7690-:TSEQEQU
   SIOF7           2157/:TSEQ   7690-:TSEQEQU
   SIOT0           7691-:TSEQEQU
   SIOT1           7691-:TSEQEQU
   SIOT2           7691-:TSEQEQU
   SIOT3           2157/:TSEQ   7691-:TSEQEQU
   SIOT4           7691-:TSEQEQU
   SIOT5           7691-:TSEQEQU
   SIOT6           7691-:TSEQEQU
   SIOT7           7691-:TSEQEQU
   STDD            8903-STW
   STDDEXIT        8903/STW     8966/BL*     8967/B*      8972-DATA
   STDDI           8899-LI
   STDDS1          8900/STW     8908/LW      8913/STW     8969-DATA
   STDDS2          8901/STW     8918/LW      8925/STW     8970-DATA
   STDDS3          8902/STW     8950/LW      8963/MTW     8964/LW      8971-DATA
   TABLE1            11-EQU     4662/STW     4663/STW     4664/STW     4665/STW     4737/LI      4742/STW
      4807/STW     5032/STW     5043/STW     5051/STW     5053/STW     5055/STW     5057/STW     5066/STW
      6412/STW     6423/STW     6607/STW     6619/STW     6625/STW     6632/STW     6954/STW     8909/STW
      8921/STW     8930/STW     8932/LW      8941/STW     8949/STW     8958/STW     8983/LW      8984/LW
      8987/LW      8990/STW     8992/LW      8995/LW      8998/LW      9001/STW     9003/LW      9006/LW
      9009/STW     9017/LW
   TDVDISP         3384/BAL     3478/BAL     3493/BAL     3537/BAL     3587/BAL     3702/BAL     4215/BAL
      4278/BAL     9243-LCI
   TDVF0           2165/:TSEQ   2167/:TSEQ   7688-:TSEQEQU
   TDVF1           2165/:TSEQ   2167/:TSEQ   3827/:TSEQ   4553/:TSEQ   7688-:TSEQEQU
   TDVF2           2165/:TSEQ   4314/:TSEQ   4553/:TSEQ   7688-:TSEQEQU
   TDVF3           2165/:TSEQ   2167/:TSEQ   4553/:TSEQ   4621/:TSEQ   7688-:TSEQEQU
   TDVF4           2167/:TSEQ   7688-:TSEQEQU
   TDVF5           2165/:TSEQ   2167/:TSEQ   4553/:TSEQ   7688-:TSEQEQU
   TDVF6           2165/:TSEQ   2167/:TSEQ   3655/:TSEQ   4553/:TSEQ   7688-:TSEQEQU
   TDVF7           2165/:TSEQ   2167/:TSEQ   4553/:TSEQ   7688-:TSEQEQU
   TDVMSG1         9263/DATA    9536-TEXTC
   TDVMSG2         9247/STW     9249/STW     9259/STB     9265/DATA    9537-TEXTC
   TDVMSG3         9252/STW     9254/STW     9267/DATA    9538-TEXTC
   TDVT0           4621/:TSEQ   7689-:TSEQEQU
   TDVT1           3828/:TSEQ   7689-:TSEQEQU
   TDVT2           7689-:TSEQEQU
   TDVT3           7689-:TSEQEQU
   TDVT4           4553/:TSEQ   4621/:TSEQ   7689-:TSEQEQU
   TDVT5           7689-:TSEQEQU
   TDVT6           3223/:TSEQ   3656/:TSEQ   7689-:TSEQEQU
   TDVT7           3459/:TSEQ   7689-:TSEQEQU
   TEXTADR         1936/STW     1938-DATA
   TIMEOUT         4466/DATA    5324/DATA    5406-TEXTC   5851/DATA    5954/DATA    9310/DATA    9335/DATA
      9395/DATA    9512/DATA
   TIMEREC         5855/B       5958-BAL
   TIOF0           2158/:TSEQ   2160/:TSEQ   2161/:TSEQ   2163/:TSEQ   2166/:TSEQ   2167/:TSEQ   2170/:TSEQ
      3332/:TSEQ   4420/:TSEQ   4422/:TSEQ   4553/:TSEQ   4621/:TSEQ   4627/:TSEQ   5244/:TSEQ
      7682-:TSEQEQU
   TIOF1           2158/:TSEQ   2161/:TSEQ   2163/:TSEQ   2166/:TSEQ   2167/:TSEQ   2170/:TSEQ   3332/:TSEQ
      4420/:TSEQ   4422/:TSEQ   4553/:TSEQ   4621/:TSEQ   4627/:TSEQ   5244/:TSEQ   7682-:TSEQEQU
   TIOF2           2158/:TSEQ   2161/:TSEQ   2163/:TSEQ   2166/:TSEQ   2167/:TSEQ   2170/:TSEQ   3332/:TSEQ
      4420/:TSEQ   4422/:TSEQ   4553/:TSEQ   4621/:TSEQ   4627/:TSEQ   5244/:TSEQ   7682-:TSEQEQU
   TIOF3           7682-:TSEQEQU
   TIOF4           2158/:TSEQ   2160/:TSEQ   2161/:TSEQ   2163/:TSEQ   2167/:TSEQ   2170/:TSEQ   4420/:TSEQ
      4422/:TSEQ   4553/:TSEQ   5244/:TSEQ   7682-:TSEQEQU
   TIOF5           2158/:TSEQ   2161/:TSEQ   2163/:TSEQ   2166/:TSEQ   2167/:TSEQ   2170/:TSEQ   3332/:TSEQ
      4420/:TSEQ   4422/:TSEQ   4553/:TSEQ   4621/:TSEQ   4627/:TSEQ   5244/:TSEQ   7682-:TSEQEQU
   TIOF6           2158/:TSEQ   2161/:TSEQ   2163/:TSEQ   2166/:TSEQ   2167/:TSEQ   2170/:TSEQ   3332/:TSEQ
      4420/:TSEQ   4422/:TSEQ   4553/:TSEQ   4621/:TSEQ   4627/:TSEQ   5244/:TSEQ   7682-:TSEQEQU
   TIOF7           2158/:TSEQ   2160/:TSEQ   2161/:TSEQ   2163/:TSEQ   2166/:TSEQ   2167/:TSEQ   2170/:TSEQ
      3332/:TSEQ   4553/:TSEQ   4621/:TSEQ   4627/:TSEQ   5244/:TSEQ   7682-:TSEQEQU
   TIOT0           7683-:TSEQEQU
   TIOT1           2160/:TSEQ   7683-:TSEQEQU
   TIOT2           2160/:TSEQ   7683-:TSEQEQU
   TIOT3           2158/:TSEQ   2160/:TSEQ   2161/:TSEQ   2163/:TSEQ   2166/:TSEQ   2167/:TSEQ   2170/:TSEQ
      3332/:TSEQ   4420/:TSEQ   4422/:TSEQ   4553/:TSEQ   4621/:TSEQ   4627/:TSEQ   7683-:TSEQEQU
   TIOT4           4621/:TSEQ   4627/:TSEQ   7683-:TSEQEQU
   TIOT5           2160/:TSEQ   7683-:TSEQEQU
   TIOT6           2160/:TSEQ   7683-:TSEQEQU
   TIOT7           7683-:TSEQEQU
   TMBYTE          2610/STB     2658/LB      2703/LB      2707/STB     2721/STB     2926/STB     3087/STB
      3169/STB     3289/STB     3342/STB     3405/STB     3462/STB     3511/STB     3575/STB     3669/STB
      3782/STB     3834/STB     3885/STB     3944/STB     4026/STB     4106/STB     4184/STB     4241/STB
      5418/GEN     5420/GEN     5422/GEN     5424/GEN     9063-DATA    9066/GEN
   TMBYTER         5426/GEN     9064-DATA    9068/GEN
   TPMOD           4637/BAL     4744/BAL     4810/BAL     4868/BAL     4990/BAL     4995/BAL     5932/BAL
      6313/BAL     6459/BAL     6490/BAL     6644/BAL     6769/BAL     6864/BAL     6882/BAL     6917/BAL
      6992-PSW     9408/BAL
   TSEQ1           2157-:TSEQ   3221/EQU     3331/EQU     3653/EQU     3769/EQU     3927/EQU     4096/EQU
      4170/EQU
   TSEQ10          2167-:TSEQ   4676/EQU
   TSEQ11          2170-:TSEQ   3928/EQU     4008/EQU     4098/EQU     4172/EQU
   TSEQ2           2158-:TSEQ   3279/EQU     3401/EQU     3457/EQU     3509/EQU     3556/EQU     4626/EQU
   TSEQ3           2159-:TSEQ   3402/EQU     3458/EQU
   TSEQ4           2160-:TSEQ
   TSEQ5           2161-:TSEQ   3654/EQU
   TSEQ6           2162-:TSEQ   3874/EQU
   TSEQ7           2163-:TSEQ   4007/EQU     4097/EQU     4171/EQU     4235/EQU     4313/EQU     4794/EQU
      4856/EQU     5243/EQU
   TSEQ8           2165-:TSEQ   4624/EQU     4795/EQU     4857/EQU
   TSEQ9           2166-:TSEQ   3222/EQU     3333/EQU
   TSTFLAG         2265/STW     2290-DATA    2308/STW     2391/CW      5744/STW     5820/CW
   TST0             197/DATA    2090/:PROCDIC             2264-LI      2287/B
   TST0A           2270-LI      2392/BNE
   TST0ADDR         197-DATA
   TST0B           2274/B       2275/B       2285-BAL     5821/BNE
   TST0MSG         2278/DATA    2291-TEXTC
   TST1             238/DATA    2091/:PROCDIC             2308-STW
   TST1ADDR         238-DATA
   TST1ALT         2269/B       2309-LW      2395/B
   TST1ERF         2364/STW     3067/LW      3075/STW     3080/STW     3085/STW     3795/LW      3851/LW
      4942/CW      4958/STW     4963/STW     4971/STW     5278/CW      5373/CW      5391/STW     5396/STW
      5401/STW     9209/STW     9214/STW     9219/STW     9229-DATA    9353/STW     9366/CW      9398/CW
      9416/CW      9463/STW     9468/STW     9476/STW     9488/STW     9493/STW
   TST1EXP           15/EQU       16/EQU       17/EQU     2611/STB     2659/CB      2708/STB     5620-DATA
   TST1G           2376/LW      2428-GEN
   TST1INT         9204-LCI     9227/DATA
   TST1LMT         2327/STD     2331/STW     2333/STW     2366/LW      2387/MTW     2388/LW      2389/CW
      2411-DATA    9042/LW
   TST1PSD         9223/LPSD    9226-DATA    9228/XPSD
   TST1R1          2518/BAL     4635/BAL     4729/BAL     4733/BAL     4799/BAL     4803/BAL     4863/BAL
      4979/BAL     5626-PSW
   TST1R117        5630/LW      5642-GEN
   TST1R118        5632/LW      5643-GEN
   TST1R119        5634/LW      5644-GEN
   TST1SEF         2310/STW     2321/STW     2426-DATA    4717/CW      5291/CW      5341/CW      6271/STW
      6794/STW
   TST1XPSD        2358/LW      6269/LW      9228-XPSD    9411/LW
   TST1X1          2173-DATA    2720/STW     2743/LW      2758/LW      2788/LW      2825/LW      2835/CW
      2837/MTW     2924/STW     2944/CW      2946/STW     2948/STW     2986/LW      3005/LW      3024/LW
      3278/EQU     3403/EQU     3460/EQU     3652/EQU     3767/EQU     3826/EQU     3926/EQU     4009/EQU
      4094/EQU     4169/EQU     4233/EQU     4312/EQU     4552/EQU     4620/EQU     4675/EQU     4793/EQU
      4859/EQU     4884/EQU     5242/EQU     9088/LW      9158/LW
   TST1X2          2174-DATA    2925/STW     2949/MTW     2950/CW      2957/CW      2983/CW      3768/EQU
      3875/EQU     4010/EQU     4095/EQU     4234/EQU     4796/EQU     4858/EQU     5011/EQU
   TST101          2314-STW     2319/BG      2326/B       2330/BNE
   TST102          2311/BEZ     2329-CW
   TST103          2328/B       2334-LW      2374/LI      2390/BLE
   TST1030         2336/BNE     2345-STW
   TST104          2352-LW
   TST105          2379/BEZ     2381/BEZ     2387-MTW     2409/EQU
   TST11           2428/GEN     2483-HIO     2513/B
   TST110          2437/GEN     3225-LW
   TST111          2438/GEN     3285-LI      3301/B       3325/B
   TST112          2439/GEN     3335-LI
   TST113          2440/GEN     3405-STB     3454/B
   TST114          2441/GEN     3462-STB     3506/B
   TST115          2442/GEN     3511-STB     3552/B
   TST116          2414-EQU     2443/GEN
   TST117          2415-EQU     2444/GEN
   TST118          2445/GEN     3558-STH     3648/B
   TST119          2446/GEN     3661-LI      3766/B
   TST12           2429/GEN     2515-CW
   TST12CR         2516/BE      2524-LI
   TST12T          2521/BAL     2526/BAL     2529/BAL     2533/BAL     2537/BAL     2540-LW
   TST12TE1        2543/STW     2560-DATA
   TST12TE2        2545/STW     2558/BCR     2563-DATA
   TST12TE3        2547/STW     2589-DATA
   TST12TE4        2549/STW     2586/BCR     2593-DATA
   TST12TE5        2551/STW     2561/B       2564/B       2590/B       2594/B       2600-DATA
   TST12TR         2598/BE      2604-HIO
   TST12TS         2552-BAL     2607/B
   TST12T1         2555/B       2566-LI
   TST12T2         2583/B       2596-LB
   TST12T3         2569/BE      2572/BNE     2576/B       2579-BAL
   TST120          2416-EQU     2447/GEN
   TST121          2417-EQU     2448/GEN
   TST122          2449/GEN     3775-LW      3815/B
   TST123          2450/GEN     3830-LI      3865/B
   TST124          2451/GEN     3882-STW     3899/B       3916/B
   TST125          2418-EQU     2452/GEN
   TST126          2419-EQU     2453/GEN
   TST127          2454/GEN     3930-STW     3992/B
   TST128          2455/GEN     4012-STW     4091/B
   TST129          2456/GEN     4100-STW     4166/B
   TST13           2430/GEN     2610-STB
   TST130          2420-EQU     2457/GEN
   TST131          2421-EQU     2458/GEN
   TST132          2422-EQU     2459/GEN
   TST133          2460/GEN     4174-STW     4220/B       4229/B
   TST134          2461/GEN     4237-LI      4300/B
   TST135          2423-EQU     2462/GEN
   TST136          2463/GEN     4317-LI      4336/B
   TST136B         4331/B       4338/B       4343/B       4348-BAL     4362/B
   TST137          2464/GEN     4376-BAL
   TST138          2465/GEN     4471-BAL     4490/B
   TST139          2466/GEN     4556-BAL
   TST14           2431/GEN     2715-BAL
   TST14CR         2716/B       2868-LI
   TST14T          2858/BAL     2864/BAL     2870/BAL     2874-LW
   TST140          2467/GEN     4632-LCI     6851/BAL
   TST141          2468/GEN     4678-LCI     6852/BAL
   TST141L         4685/B       4687-STW     4721/B
   TST142          2424-EQU     2469/GEN
   TST143          2470/GEN     4729-BAL
   TST144          2471/GEN     4799-BAL
   TST145          2472/GEN     4861-LI
   TST146          2473/GEN     4887-PSW
   TST14601        2718/B       2857-LI
   TST1465         2717/B       2862-LI
   TST147          2425-EQU     2474/GEN
   TST148          2475/GEN     4977-LCI     6853/BAL
   TST149          2476/GEN     5172-LCI     6854/BAL
   TST15           2432/GEN     2915-LW
   TST15CR         2918/B       3052-STB
   TST150          2477/GEN     5247-LCI     6856/BAL
   TST151          2478/GEN     5298-LCI     6858/BAL
   TST152          2479/GEN     5349-PSW
   TST15601        2919/B       2920/B       3054-STB
   TST16           2433/GEN     3087-STB
   TST17           2412-EQU     2434/GEN
   TST18           2413-EQU     2435/GEN
   TST19           2436/GEN     3169-STB
   TST2             288/DATA    2092/:PROCDIC             5744-STW
   TST2ADDR         288-DATA
   TST2ALT         2282/B       2284/B       5745-STW     5815/LI      5824/B
   TST21           5785/B       5792-BAL
   TST22           5819-BAL
   TST3             369/DATA    2093/:PROCDIC             6264-LW      6282/LI      6989/B
   TST3A           6276-BAL     6499/B       6542/B       6584/B       6604/B       6800/BNE     6817/B
      7003/B       7007/B       7012/B
   TST3ADDR         369-DATA
   TST3B           6274/BLE     6279-STW
   TST3C           6284/LW      6287-DATA
   TST3CB          6303/STB     6377/LB      6384/STB     6422/LW      6427/STW     6447/STW     7014-DATA
   TST3CI          6424/AW      6450/STW     7015-DATA
   TST3CT          6686/STW     6696/LW      6701/SW      7019/MTW     7020-DATA
   TST3CTZ         6683/LW      7021-XPSD
   TST3DT          7018-DATA
   TST3EM1         2406/DATA    6828/DATA    6831-TEXTC   6848/DATA
   TST3F           7016-DATA
   TST3K           6718/LW      7025-DATA
   TST3MTW         6681/LW      7019-MTW
   TST3P01         6361/BAL     6367-LH
   TST3P02         6362/BAL     6376-LI
   TST3P03         4866/BAL     4936/BAL     6363/BAL     6389-LCI     6483/BAL     6765/BAL
   TST3P04         4865/BAL     4935/BAL     6305/BAL     6399-LW      6452/BAL     6763/BAL
   TST3P05         6407-PSW     6481/BAL
   TST3P06         6420-PSW     6482/BAL
   TST3P24         7000-LW
   TST3RSI         6301/BAL     6322/BAL     6324-LI      6444/BAL     6468/BAL
   TST3R1          6312/BAL     6578/BAL     6675/BAL     6793/BAL     7085-PSW
   TST3R11         7092-STB     7100/B
   TST3R12         7088/BNE     7097-LI
   TST3TBL           12-EQU     6702/STW     6708/LW      6710/AW      6711/CW      6713/LW      6714/CW
      6716/LW
   TST3X           7017-DATA
   TST30            370/DATA    6287/DATA    6294-LI
   TST30ADR         370-DATA
   TST30EX         6302-LB      6506/B       6528/B       6548/B
   TST30L          6305-BAL     6321/B
   TST30PAT        6308/EXU     6361-BAL
   TST30R          6310/BE      6337-BAL
   TST30R1         6344/BNE     6348/BNE     6353/BNE     6356-BAL
   TST30SW         6319-BAL     6342/BNE     6358/B       6359/B
   TST31            371/DATA    6287/DATA    6438-LI
   TST31ADR         371-DATA
   TST31EX         6445-LW      6508/B       6526/B       6550/B
   TST31L          6452-BAL     6467/B
   TST31PAT        6455/EXU     6481-BAL
   TST31R          6457/BE      6471-BAL
   TST31SW         6465-BAL     6476/BNE     6478/B       6479/B
   TST32            372/DATA    6287/DATA    6487-STW
   TST32ADR         372-DATA
   TST32CR         6489/BE      6536-LW
   TST32E1         6498-STW     6515/B
   TST32R1         6539/BE      6543-LW
   TST321          6496/BE      6501-LW
   TST322          6513/BE      6517-LI
   TST3265         6491/B       6492/B       6510-LW
   TST33            373/DATA    6287/DATA    6578-BAL
   TST33ADR         373-DATA
   TST33P2         6597/STW     6609/LW      6658-DATA
   TST33P2E        6583-STW     6588/BG
   TST33P3         6600/STW     6612/LW      6659-DATA
   TST33ROW        6585/BL      6591/BCS     6593/B       6595/B       6597-STW
   TST331          6598-LW
   TST332          6602/BLE     6605-LI
   TST333          6611/BEZ     6621-LW
   TST334          6613/BEZ     6627-LCW
   TST335          6622/BEZ     6635-LI
   TST336          6620/B       6626/B       6634/B       6640-BAL
   TST337          6599/BAL     6652-LI
   TST34            374/DATA    6287/DATA    6670-CW
   TST34ADR         374-DATA
   TST34CT0        6738-DATA    7021/XPSD
   TST34MG0        6733/DATA    7022-TEXTC
   TST34MG1        6722/STW     6726/STW     6729/STW     6735/DATA    7023-TEXTC
   TST34MG2        6742/DATA    7024-TEXTC
   TST34MG3        6746/DATA    6748-TEXTC
   TST340          6685-LW
   TST341          6696-LW      6703/BIR
   TST342          6710-AW      6717/BIR
   TST343          6731/BE      6745-BAL
   TST344          6734-BAL     6747/B
   TST35            375/DATA    6287/DATA    6760-LW
   TST35ADR         375-DATA
   TST35MSG          14-EQU     9364/DATA
   TST35M1         6776/DATA    6789-TEXTC
   TST35NOC        6788-DATA
   TST35P1         6773-BAL     6777/BDR     6785/B
   TST35P2         6774/B       6777-BDR
   TST35R          6767/BE      6783-BAL
   TST36            376/DATA    6287/DATA    6792-BAL     6842/B
   TST36ADR         376-DATA
   TST36ALL        6804/BEZ     6833-EXU
   TST36EXU        6806/BE      6809/BE      6812/BE      6815/BE      6819-EXU     6822/B
   TST36INS        6819/EXU     6833/EXU     6835/EXU     6837/EXU     6839/EXU     6851-BAL
   TST37            377/DATA    6287/DATA    6897-CW
   TST37ADR         377-DATA
   TST37MSG        6924/DATA    6926-TEXTC
   TST37R          6898/BE      6933-BAL
   TST37R1         6937/B       6939-LW
   TST37SR         6942/BAL     6952-PSW
   TST371          6903-STW     6915/BL
   T0              4384/STW     4399/LW      4694/STW     4725-DATA
   T1              4726-DATA
   T1M01           2487/B       2491-BAL
   T1M02           2494/B       2498-BAL
   T1M03           2501/B       2505-BAL
   T1M04           2490/B       2497/B       2504/B       2511-BAL
   T10ERR          3230/STW     3249/LW      3261/STW     3268/STW     3275/STW     3278-EQU
   T10INTR         3255-BAL     3282/DATA
   T10INTR1        3258/B       3262-BAL
   T10INTR2        3265/B       3269-BAL
   T10INTR3        3272/B       3276-STW
   T10M01          3227-AIO     3246/B
   T10M02          3244-BAL     3250/BNEZ
   T10M03          3237/BNEZ    3248-BAL
   T10M04          3247/B       3251-HIO
   T10PSD          3277/LPSD    3281-DATA    3283/XPSD
   T10SEQ1         3240/DATA    3279-EQU
   T10XPSD         3225/LW      3283-XPSD
   T11M01          3286-LB      3328/BL
   T11M02          3296/B       3303-LW
   T11M021         3307/BNE     3312-BAL
   T11M022         3311/B       3315-LB
   T11M03          3317/BCS     3321-BAL
   T11M04          3320/B       3323-BAL
   T11M05          3310/B       3314/B       3326-AI
   T11SEQ1         3295/DATA    3331-EQU
   T11SEQ2         3313/DATA    3332-:TSEQ
   T11SEQ3         3309/DATA    3333-EQU
   T12BYTE           15-EQU     3336/STB     3337/LB      3380/LB      3394/LB      3396/STB
   T12ERR          3340/STW     3352/STW     3369/STW     3385/STW     3388/LW      3403-EQU
   T12M01          3337-LB      3392/B       3398/BCR
   T12M02          3355/BCR     3359-CW
   T12M021         3360/BCR     3364-BAL
   T12M03          3351/B       3363/B       3366-BAL
   T12M05          3368/B       3372/B       3373-LH
   T12M06          3374/BEZ     3379-TDV
   T12M07          3382/BE      3388-LW
   T12M08          3358/B       3377/B       3390-BAL
   T12M09          3389/BEZ     3394-LB
   T12SEQ1         3350/DATA    3401-EQU
   T12SEQ2         3367/DATA    3402-EQU
   T13ERR          3410/STW     3419/STW     3435/STW     3447/STW     3450/LW      3460-EQU
   T13M01          3408-HIO
   T13M02          3422/BCR     3426-CW
   T13M03          3427/BCR     3431-BAL
   T13M04          3418/B       3430/B       3433-LH
   T13M05          3434/BEZ     3438-BAL
   T13M07          3440/B       3443/B       3444-BAL
   T13M08          3446/B       3450-LW
   T13M09          3425/B       3452-BAL
   T13M10          3451/BEZ     3455-BAL
   T13SEQ3         3417/DATA    3457-EQU
   T13SEQ4         3439/DATA    3458-EQU
   T13SEQ5         3445/DATA    3459-:TSEQ
   T14M01          3468-LI
   T14M02          3474/BE      3482-AWM     3498/BNE
   T14M03          3488/BE      3497-CI
   T14M04          3481/B       3496/B       3504-BAL
   T14M05          3501/B       3507-BAL
   T14ROW            16-EQU     3469/STW     3473/CW      3476/LW      3482/AWM     3487/CW      3491/LW
   T14SEQ1         3500/DATA    3509-EQU
   T15M01          3515-STH
   T15M02          3516-LI      3546/B       3549/B
   T15M03          3524/B       3528-TDV
   T15M04          3533/BE      3541-LW
   T15M05          3527/B       3540/B       3550-BAL
   T15M07          3542/BEZ     3554-BAL
   T15SEQ1         3523/DATA    3556-EQU
   T15SKP            17-EQU     3513/STW     3514/LW      3532/CW      3535/LW      3541/LW      3543/CW
      3545/STW     3548/STW
   T18BASE         3562/STW     3613/LW*     3640/AWM     3657-DATA
   T18BC1          3611/LW      3658-DATA
   T18COUNT        3564/STW     3581/CW      3585/LW      3614/CW      3626/AWM     3627/LW      3652-EQU
   T18M01          3563-LI      3633/BLE     3642/B       3645/B
   T18M020         3565-LW      3629/BL
   T18M022         3567/BCR     3575-STB
   T18M023         3578-TDV
   T18M03          3582/BE      3591-LI
   T18M04          3596/B       3600-LW
   T18M07          3603/BCR     3608-LW
   T18M080         3616-BAL
   T18M081         3619-BAL     3625/B
   T18M082         3609/BEZ     3615/BNE     3622-BAL
   T18M09          3618/B       3626-AWM
   T18M10          3636/BEZ     3643-LW
   T18M16          3639/BCS     3649-BAL
   T18M17          3574/B       3590/B       3599/B       3607/B       3621/B       3646-BAL
   T18SEQ1         3595/DATA    3653-EQU
   T18SEQ2         3570/DATA    3654-EQU
   T18SEQ3         3623/DATA    3655-:TSEQ
   T18SEQ4         3617/DATA    3656-:TSEQ
   T18TBR          3561/LI      3659-DATA
   T19BYTE         3664/STW     3671/LW      3709/LW      3718/AWM     3719/LW      3768-EQU
   T19COUNT        3663/STW     3697/CW      3700/LW      3708/SLS*    3712/AWM     3713/LW      3717/STW
      3767-EQU
   T19ERF          3662/STW     3751/STW     3753/LW      3770-DATA
   T19MSG1         3730/DATA    3771-TEXTC
   T19MSG2         3734/STH     3736/DATA    3772-TEXTC
   T19MSG3         3740/STW     3743/DATA    3773-TEXTC
   T19MSG4         3747/STW     3750/DATA    3774-TEXTC
   T19M02          3668-HIO     3721/BCR
   T19M03          3673-LI      3715/BL
   T19M04          3675/BCR     3684-LW
   T19M06          3688/BCR     3694-TDV
   T19M07          3698/BE      3706-LB
   T19M070         3727-BIR     3752/B
   T19M071         3726/BNE     3729-BAL
   T19M072         3728/B       3753-LW
   T19M08          3682/B       3692/B       3705/B       3757-BAL
   T19M09          3754/BEZ     3760-BAL
   T19SEQ1         3678/DATA    3769-EQU
   T2              4727-DATA    7785/STW     7790/LW
   T2DELT          5913/STW     5923/STW     5924/LW      6152-DATA
   T2EXEC          5818/B       5832-LI
   T2EX1           5836-CW      5846/BCS     5860/BE      5866/B       5874/B       5938/B       5948/BCS
      5967/B       5981/B       5995/BNE     6009/B
   T2EX10          5870/BE      5939-CW
   T2EX4           5877/BEZ     5884-LI
   T2EX5           5909/BNE     5918-DW
   T2EX51          5879/BGEZ    5914/B       5917/B       5924-LW
   T2EX6           5927-LW
   T2EX7           5837/BE      5842/BCS     5945-CW
   T2EX70          5946/BNE     5969-TIO
   T2EX71          5971/BCS     5998-STW
   T2EX72          5975/BE      5982-CW
   T2EX73          5986/BCS     5994-CW
   T2EX9           5843-CW
   T2EX90          5844/BNE     5856-TIO
   T2EX91          5858/BCS     5868-STW
   T2INT           6016-LCI     6176/DATA
   T2INTPSD        6083/LPSD    6163/XPSD    6175-DATA
   T2INT1          6029/BE      6035-STW
   T2INT10         6100/B       6125-LI
   T2INT2          6052/BNEZ    6058-BAL
   T2INT3          6040/B       6061-BAL
   T2INT4          6045/B       6050/B       6068-BAL
   T2INT5          6074-BAL
   T2INT6          6060/B       6078-HIO
   T2INT7          6026/B       6034/B       6057/B       6081-LCI     6124/BCS     6138/B       6140/B
      6145/B       6146/B
   T2INT8          6031/BE      6085-STW
   T2INT9          6091/B       6102-BAL
   T2INT91         6096/B       6101/B       6110-BAL
   T2IOCD1         5899/STB     5901/STH     5935/LI      6165-GEN     6167/GEN
   T2IOCD2         6005/LI      6171-GEN
   T2IOCD3         5900/STB     5902/STH     5933/LI      6173-GEN
   T2MSG1          6025/DATA    6177-TEXTC
   T2MSG10         5766/DATA    6185-TEXTC
   T2MSG11         5778/DATA    6186-TEXTC
   T2MSG12         5864/DATA    5991/DATA    6187-TEXTC
   T2MSG13         5979/DATA    6188-TEXTC
   T2MSG2          6033/DATA    6178-TEXTC
   T2MSG3          6059/DATA    6179-TEXTC
   T2MSG5          5849/DATA    6062/DATA    6069/DATA    6180-TEXTC
   T2MSG6          5952/DATA    6104/DATA    6112/DATA    6181-TEXTC   6201/STW
   T2MSG7          6143/DATA    6182-TEXTC   6202/STW     8229/DATA    9290/DATA
   T2MSG8          2340/DATA    5759/DATA    6183-TEXTC
   T2MSG9          2343/DATA    5772/DATA    6184-TEXTC
   T2NODEV         6189-TEXTC
   T2PCOUNT        5754/STW     5787/STW     5871/MTW     6148-DATA
   T2RTRY          5795/STW     5834/LW      5882/LW      6054/LW      6149-DATA
   T2RTRYF         5833/STW     5876/MTW     5881/STW     6019/STW     6053/STW     6079/STW     6150-DATA
   T2RTRYI         5835/STW     5878/MTW     5883/STW     6055/STW     6151-DATA
   T2XPSD          5796/LW      6163-XPSD
   T22INDX         3776/STW     3777/LW      3800/LW      3818/LW      3821/STW     3826-EQU
   T22M01          3777-LW      3822/B
   T22M02          3781-HIO
   T22M03          3789/B       3794-BAL
   T22M04          3796/BEZ     3800-LW
   T22M05          3801/BLZ     3808-BAL
   T22M06          3793/B       3799/B       3807/B       3813-BAL
   T22M07          3804/B       3810/B       3818-LW
   T22M08          3819/BLZ     3823-BAL
   T22SEQ1         3803/DATA    3827-:TSEQ
   T22SEQ2         3809/DATA    3828-:TSEQ
   T23INDX         3837/LD      3877-DATA
   T23INDX1        3831/STW     3836/LW      3867/AWM     3868/LW      3875-EQU
   T23M01          3833-HIO     3870/BL
   T23M02          3845/B       3850-BAL
   T23M021         3852/BNEZ    3858-BAL
   T23M03          3857/BCR     3861-BAL
   T23M04          3849/B       3860/B       3863-BAL
   T23M05          3855/B       3867-AWM
   T23M06          3866/B       3871-BAL
   T23SEQ1         3854/DATA    3874-EQU
   T24INDX         3882/STW     3883/LW      3919/AWM     3920/LW      3926-EQU
   T24M01          3883-LW      3922/BLE
   T24M03          3890/BCR     3901-LW
   T24M04          3908/BCR     3912-BAL
   T24M05          3911/B       3914-BAL
   T24M06          3906/B       3919-AWM
   T24SEQ1         3893/DATA    3927-EQU
   T24SEQ2         3905/DATA    3928-EQU
   T27BYTE         3938/LB      4011-DATA
   T27INDX1        3930/STW     3937/LW      3954/CW      3995/AWM     3996/LW      4002/STW     4009-EQU
   T27INDX2        3932/STW     3935/LW      3976/LW      3999/LW      4001/AWM     4010-EQU
   T27M021         3935-LW      4003/B
   T27M04          3936/BEZ     3944-STB     3998/BL
   T27M041         3946-LI      3955/BL
   T27M05          3958/B       3963-LI
   T27M06          3969/B       3974-LI
   T27M07          3977/BNEZ    3985-STW
   T27M08          3961/B       3972/B       3983/B       3990-BAL
   T27M09          3980/B       3987/B       3995-AWM
   T27M10          3993/B       4000/BNEZ    4004-BAL
   T27SEQ1         3957/DATA    4007-EQU
   T27SEQ2         3968/DATA    4008-EQU
   T28INDX1        4012/STW     4054/CW      4077/AWM     4078/LW      4084/STW     4094-EQU
   T28INDX2        4014/STW     4020/LW      4081/LW      4083/AWM     4095-EQU
   T28M01          4019-HIO
   T28M02          4020-LW      4085/B
   T28M03          4021/BEZ     4026-STB     4080/BL
   T28M031         4028-LI      4055/BL
   T28M032         4031-BAL     4058/BCS
   T28M04          4030/BCR     4039-TIO
   T28M041         4043-BAL
   T28M05          4042/BCR     4050-TDV
   T28M06          4063/B       4068-LI
   T28M07          4072/B       4077-AWM     4092/B
   T28M08          4082/BNEZ    4086-BAL
   T28M09          4037/B       4048/B       4066/B       4075/B       4089-BAL
   T28SEQ1         4033/DATA    4096-EQU
   T28SEQ2         4044/DATA    4097-EQU
   T28SEQ3         4062/DATA    4098-EQU
   T29INDX1        4100/STW     4134/CW      4157/AWM     4158/LW      4169-EQU
   T29M01          4105-HIO
   T29M03          4106-STB     4160/BL
   T29M031         4108-LI      4135/BL
   T29M032         4111-BAL     4138/BCS
   T29M04          4110/BCR     4119-TIO
   T29M041         4123-BAL
   T29M05          4122/BCR     4130-TDV
   T29M06          4143/B       4148-STW
   T29M07          4152/B       4157-AWM     4167/B
   T29M08          4161-BAL
   T29M09          4117/B       4128/B       4146/B       4155/B       4164-BAL
   T29SEQ1         4113/DATA    4170-EQU
   T29SEQ2         4124/DATA    4171-EQU
   T29SEQ3         4142/DATA    4172-EQU
   T3IOCD1         4327/LI      6316/LI      6325/STB     6505/STB     7028-GEN     7030/GEN     7092/STB
   T3IOCD10        6328/STB     6338/LI      6547/STB     7070-GEN
   T3IOCD11        6333/STB     6472/LI      6549/STB     6784/LI      7072-GEN
   T3IOCD12        4329/LI      6314/LI      6326/STB     6527/STB     7074-GEN
   T3IOCD13        4355/LI      6331/STB     6460/LI      6525/STB     6645/LI      6770/LI      6883/LI
      6918/LI      7076-GEN
   T3IOCD14        7078-GEN     7080/GEN
   T3IOCD2         4353/LI      4640/LI      4871/LI      6330/STB     6462/LI      6507/STB     6642/STB
      6647/LI      6772/LI      6920/LI      7034-GEN     7036/GEN     7093/STB     9413/LI
   T3IOCD3         7040-GEN     7042/GEN     7094/STB
   T3IOCD4         7046-GEN     7048/GEN     7095/STB
   T3IOCD5         6934/STB     6935/LI      7052-GEN
   T3IOCD6         6693/LI      7054-GEN     7056/GEN     7090/STB     7098/STB
   T3IOCD7         6695/LI      7060-GEN
   T3IOCD8         6867/LI      7062-GEN     7064/GEN
   T3IOCD9         6865/LI      7068-GEN
   T3M01           2612-HIO     2709/B       2712/B
   T3M02           2617/B       2623-LW
   T3M03           2631/BCR     2637-LB
   T3M04           2639/BCR     2648-BAL
   T3M05           2628/B       2652-LB
   T3M06           2653/BEZ     2658-LB
   T3M07           2660/BE      2665-TDV
   T3M08           2667/BCS     2672-LI
   T3M09           2676/B       2681-LW
   T3M10           2686/B       2695-BAL
   T3M11           2698/B       2703-LB      2713/B
   T3M12           2621/B       2635/B       2646/B       2650/B       2656/B       2663/B       2670/B
      2679/B       2693/B       2701/B       2710-BAL
   T33INDX         4176/STW     4178/LW      4203/LW      4222/MTW     4223/LW      4234-EQU
   T33INDX1        4174/STW     4186/LW      4204/CW      4226/CW      4228/STW     4233-EQU
   T33M01          4178-LW      4225/BL
   T33M02          4183-HIO
   T33M03          4194/B       4199-TDV
   T33M031         4197/B       4218-BAL
   T33M04          4211/BE      4222-MTW
   T33SEQ1         4193/DATA    4235-EQU
   T34INDX         4238/STW     4243/LW      4302/MTW     4303/LW      4312-EQU
   T34M01          4239-HIO
   T34M02          4241-STB     4305/BL
   T34M04          4254/B       4263-LI
   T34M05          4271-TDV
   T34M06          4275/BEZ     4283-TIO
   T34M061         4287/B       4292-BAL
   T34M07          4257/B       4281/B       4290/B       4298-BAL
   T34M08          4295/B       4302-MTW
   T34SEQ1         4253/DATA    4286/DATA    4313-EQU
   T34SEQ2         4294/DATA    4314-:TSEQ
   T36ASW          4334-BAL     4346/B
   T36A01          4341/B       4342-BAL
   T36BSW          4360-BAL     4374/B
   T36B01          4368/B       4369-STW
   T36CRA          4324/B       4339-BAL
   T36CRB          4350/B       4366-BAL
   T37D            4388/BAL     4395/BAL     4405/BAL     4412/BAL     4438-PSW
   T37DC1          4439/STW     4448/LW      4469-DATA
   T37D1           4448-LW      4459/B       4461/BDR
   T37D2           4441/STW     4453-DATA
   T37D3           4445/STW     4456-DATA    4467/B
   T37D4           4451/BCS     4461-BDR
   T37D5           4443/STW     4464-DATA
   T37SEQ1         4389/DATA    4406/DATA    4420-:TSEQ
   T37SEQ2         4396/DATA    4413/DATA    4422-:TSEQ
   T38CR           4473/B       4494-LI
   T38DELY         4528-DATA
   T38FCK          4485/B       4541-BAL     4550/B
   T38INDX         4552-EQU
   T38INT1         4503/DATA    4506-AI
   T38INT1E        4481/STW     4515-DATA
   T38INT11        4513/B       4520-LCI
   T38INT12        4507/BEZ     4523-HIO
   T38INT13        4510-BAL
   T38INT2         4505/DATA    4530-BAL
   T38INT2R        4533/B       4538-LI
   T38IOCD         4478/LW      4498-GEN
   T38M01          4484-BAL     4497/B
   T38PSD1         4499/XPSD    4502-DATA    4518/STW     4522/LPSD    4526/LPSD
   T38PSD2         4500/XPSD    4504-DATA    4539/STW     4540/LPSD
   T38SEQ1         4553-:TSEQ
   T38SW           4488-BAL     4517/LI      4536/LI      4538/LI
   T38XPSD1        4476/LW      4499-XPSD
   T38XPSD2        4495/LW      4500-XPSD
   T3865           4474/B       4492-LI
   T39E01          4562/STW     4569-DATA    4576/MTW
   T39INDX         4558/STW     4620-EQU
   T39IOCD         4582/LI      4616-GEN
   T39MSG1         4610/DATA    4614-TEXTC
   T39M01          4560-HIO     4572/B
   T39M02          4564-LI      4578/BLE
   T39M03          4567/B       4575-AI
   T39M04          4585/B       4589-BAL
   T39M05          4591/B       4595-LI
   T39M06          4600/B       4604-HIO
   T39SEQ1         4590/DATA    4621-:TSEQ
   T39SEQ2         4624-EQU
   T39SEQ3         4625-:TSEQ
   T39SEQ4         4626-EQU
   T39SEQ5         4627-:TSEQ
   T39SW           4570-BAL
   T4DELAY         2727/LW      2772/LW      2809/LW      2913-DATA
   T4E00           2875/STW     2888-DATA
   T4E01           2877/STW     2898-DATA
   T4E02           2879/STW     2908-DATA
   T4M01           2722-HIO     2838/B       2854/B
   T4M02           2734/BLZ     2739-BAL
   T4M03           2732/B       2743-LW
   T4M04           2744/BNEZ    2753-HIO
   T4M05           2748/B       2754-BAL
   T4M06           2759/BNEZ    2764-BAL
   T4M07           2757/B       2768-LI
   T4M08           2779/BLZ     2784-BAL
   T4M09           2777/B       2788-LW
   T4M10           2789/BNEZ    2798-HIO
   T4M101          2793/B       2799-BAL
   T4M11           2802/B       2807-LI
   T4M12           2816/BLZ     2821-BAL
   T4M13           2814/B       2825-LW
   T4M14           2826/BNEZ    2839-HIO
   T4M141          2830/B       2840-BAL
   T4M15           2835-CW      2843/B       2855/B
   T4M16           2845/BCS     2850-BAL
   T4M17           2737/B       2741/B       2751/B       2762/B       2766/B       2782/B       2786/B
      2796/B       2805/B       2819/B       2823/B       2833/B       2848/B       2852-BAL
   T4N01           2880-BAL     2891/B
   T4N02           2886/B       2893-BAL     2901/B
   T4N03           2896/B       2903-BAL     2911/B
   T40C1           4673-GEN
   T40INDX         4675-EQU
   T40M02          4637-BAL     4647/B       4649/BDR
   T40M03          4642/B       4649-BDR
   T40SEQ1         4676-EQU
   T40SR           4634/BAL     4658-PSW     4668/BLE     4692/BAL
   T40SW           4645-BAL
   T41MSG          4677-TEXTC   4681/DATA
   T41M01          4697-LI      4709/B       4716/BDR
   T41M02          4702/BCR     4711-BAL
   T41M03          4710/B       4712/B       4716-BDR
   T41RTN          4718/BE      4723-B
   T41SW           4707-BAL     4715/B
   T43ERR          4759/STW     4766/STW     4773/STW     4787/CW      4796-EQU
   T43INDX         4732/STW     4740/LW      4775/AW      4789/MTW     4793-EQU
   T43MSG          4777/STH     4779/DATA    4797-TEXTC
   T43M01          4734-HIO     4756/B       4784/B
   T43M02          4735-LI      4790/BLZ
   T43M03          4739-BAL
   T43M04          4744-BAL
   T43M05          4751/B       4758-LI
   T43M06          4765/B       4770-BAL
   T43M07          4774-LI
   T43M08          4782-BAL     4788/BE
   T43M09          4772/B       4787-CW
   T43M10          4785/B       4789-MTW
   T43SEQ1         4764/DATA    4794-EQU
   T43SEQ2         4771/DATA    4795-EQU
   T44ERR          4825/STW     4832/STW     4846/CW      4858-EQU
   T44INDX         4802/STW     4805/LW      4848/LW      4850/STW     4852/CW      4859-EQU
   T44M01          4804-HIO     4822/B       4843/B
   T44M03          4805-LW      4853/BCR
   T44M04          4810-BAL
   T44M06          4817/B       4824-LI
   T44M07          4831/B       4836-BAL
   T44M08          4841-BAL     4847/BE
   T44M09          4838/B       4846-CW
   T44M10          4844/B       4848-LW
   T44SEQ1         4830/DATA    4856-EQU
   T44SEQ2         4837/DATA    4857-EQU
   T45INDX         4862/STW     4880/MTW     4884-EQU
   T45INT          4954/DATA    4956-LCI
   T45M01          4864-HIO
   T45M02          4865-BAL     4881/BGZ
   T45M021         4868-BAL     4878/B
   T45M03          4873/B       4880-MTW
   T45PSD          4951/XPSD    4953-DATA    4975/LPSD
   T45XPSD         4888/LW      4951-XPSD    6520/LW
   T46D            4895/BAL     4899/BAL     4903/BAL     4907/BAL     4913/BAL     4917/BAL     4921/BAL
      4925/BAL     4929-PSW
   T46DE1          4931/STW     4940-DATA
   T46DE2          4933/STW     4941/B       4945-DATA
   T46DS           4937-BAL     4948/B
   T46D1           4938/B       4942-CW
   T48AD           5079/LW      5132-DATA
   T48AD1          5109/LW      5159-DATA
   T48CARD         4987/LW      5024/STW     5026/AWM     5027/LW      5120/LW      5169-DATA    5194/LW
   T48C1           5016/STW     5031/LD      5036/STD     5126-DATA
   T48C13C         5022/STW     5065/LW      5073/STW     5131-DATA
   T48C1325        5020/STW     5064/LW      5072/STW     5130-DATA
   T48C2           5018/STW     5127-DATA
   T48C30          5092/LB      5156-DATA
   T48C34          5104/LB      5157-DATA
   T48C4           5041/LW      5128-DATA
   T48C9           5050/LW      5129-DATA
   T48FIN          4980/STW     4985/STW     5007/CW      5011-EQU
   T48M01          4984-BAL     5005/B       5008/BNE
   T48M02          4986-HIO
   T48M03          5000/B       5007-CW
   T48PAT          4984/BAL     5025-STW     5192/BAL
   T48PATI         4981/BAL     5015-LI      5189/BAL
   T48PAT1         5029/BG      5038-CI
   T48PAT2         5039/BG      5046-CI
   T48PAT3         5047/BG      5061-CI
   T48PAT5         5037/B       5045/B       5060/B       5074-BAL
   T48PAT6         5062/BG      5076-CI
   T48PAT7         5077/BG      5089-CI
   T48PAT8         5090/BG      5100-CI
   T48PAT9         5101/BG      5108-SW
   T48P1           5132/DATA    5140-EQU
   T48P10          5163/DATA    5168-DATA
   T48P2           5133/DATA    5145-EQU
   T48P3           5134/DATA    5150-EQU
   T48P4           5135/DATA    5155-EQU
   T48P6           5159/DATA    5164-DATA
   T48P7           5160/DATA    5165-DATA
   T48P8           5161/DATA    5166-DATA
   T48P9           5162/DATA    5167-DATA
   T48SAVE         5025/STW     5075/B*      5088/B*      5099/B*      5107/B*      5122/BL*     5123/B*
      5170-DATA
   T49FIN          5181/STW     5193/STW     5237/CW      5242-EQU
   T49MSG          5175/DATA    5241-TEXTC
   T49M01          5192-BAL     5238/BNE
   T49M02          5196/BLE     5214-LI
   T49M03          5211/BNE     5229-BAL
   T49M031         5204/B       5221/B       5231-BAL
   T49M04          5213/B       5227/B       5237-CW
   T49SEQ1         5219/DATA    5243-EQU     9506/DATA
   T49SEQ2         5202/DATA    5244-:TSEQ   5348/EQU
   T5INTR          2975-BAL     3049/DATA
   T5INTR01        2978/B       2983-CW
   T5INTR02        2987/BNEZ    2996-HIO
   T5INTR03        2985/BE      3005-LW
   T5INTR04        3006/BNEZ    3015-HIO
   T5INTR05        2984/BL      3024-LW
   T5INTR06        3025/BNEZ    3034-HIO
   T5INTR07        2981/B       2991/B       2994/B       3000/B       3003/B       3010/B       3013/B
      3019/B       3022/B       3029/B       3032/B       3038/B       3042-STW
   T5INT1          3051/DATA    3073-STW
   T5M01           2927-LI      2971/B
   T5M02           2931-LI      2947/B       2956/B       2962/B
   T5M03           2937/BE      2943-BAL
   T5M04           2945/BE      2948-STW
   T5M05           2951/BL      2957-CW
   T5M06           2941/B       2964-BAL
   T5M07           2966/B       2969-HIO
   T5M08           2958/BL      2968/B       2972-AIO
   T5N01           3057-BAL     3064/B
   T5N02           3058/B       3067-LW
   T5PSD           3043/LPSD    3045/XPSD    3048-DATA
   T5PSD1          3046/XPSD    3050-DATA    3086/LPSD
   T5SW            3062-BAL     3071/B
   T5XPSD          2921/LW      3045-XPSD
   T5XPSD1         2915/LW      3046-XPSD
   T50MSG1         5250/DATA    5297-TEXTC
   T50M01          5263-LI      5284/B       5295/B
   T50M02          5273/B       5278-CW
   T50M03          5277/B       5282-BAL     5290/B
   T50M04          5279/BNE     5286-BAL
   T50M05          5285/B       5287/B       5291-CW
   T51MSG1         5301/DATA    5347-TEXTC
   T51M01          5315-LI      5334/B       5345/B
   T51M02          5319/BCR     5327-BAL
   T51M03          5329/B       5336-BAL
   T51M05          5335/B       5337/B       5341-CW
   T51SEQ1         5328/DATA    5348-EQU
   T51SW           5325/B       5332-BAL     5340/B
   T52INT          5387/DATA    5389-LCI
   T52INTS1        5267/STW     5271/STW     5362/STW     5366/STW     5394-DATA
   T52INTS2        5269/STW     5364/STW     5399-DATA
   T52MSG          5351/DATA    5382-TEXTC
   T52M01          5359-LW      5379/B
   T52M02          5368/B       5373-CW
   T52M03          5372/B       5377-BAL
   T52PSD          5384/XPSD    5386-DATA    5405/LPSD
   T52XPSD         5264/LW      5359/LW      5384-XPSD
   T6M01           3089-HIO     3127/B       3167/B
   T6M02           3103/BCR     3108-CW
   T6M03           3109/BCR     3113-BAL
   T6M04           3100/B       3116-LB
   T6M05           3117/BEZ     3121-CI
   T6M06           3107/B       3112/B       3115/B       3120/B       3125-BAL
   T6M07           3122/BE      3129-HIO
   T6M08           3141/BCR     3146-CW
   T6M09           3147/BCS     3151-BAL
   T6M10           3138/B       3155-CB
   T6M11           3156/BE      3161-CI
   T6M12           3145/B       3150/B       3153/B       3159/B       3165-BAL
   T9M01           3171-HIO     3182/B       3216/B
   T9M02           3177/B       3184-LW
   T9M03           3192/BCS     3196-TDV
   T9M04           3198/BCS     3206-BAL
   T9M05           3189/B       3209-BAL
   T9M06           3195/B       3204/B       3208/B       3214-BAL
   T9M07           3211/B       3217-BAL
   T9SEQ1          3176/DATA    3221-EQU
   T9SEQ2          3188/DATA    3222-EQU
   T9SEQ3          3200/DATA    3210/DATA    3223-:TSEQ
   USERPROG           8/EQU        9/EQU       10/EQU     2062/DATA    9598-END
   VERSION            1-EQU        2/TITLE
   WAITMSG1        7717/WAITPROC             7724/WAITPROC             9593-TEXTC
   WAITMSG2        2283/WAITPROC             4686/WAITPROC             5180/WAITPROC
      5255/WAITPROC             5306/WAITPROC             5356/WAITPROC             7525/WAITPROC
      9594-TEXTC
   WAITPROC        1861-CNAME
   WAITPRO1        1867/GOTO    1871-PEND
   X               1864/SET
   :AIO            2505/BAL     2745/BAL     2790/BAL     2827/BAL     2893/BAL     2988/BAL     3007/BAL
      3026/BAL     3076/BAL     3262/BAL     4510/BAL     4530/BAL     4959/BAL     5392/BAL     7271-AIO
      8858/BAL     9210/BAL     9459/BAL     9484/BAL
   :AIO1           6036/BAL     6063/BAL     6087/BAL     6105/BAL     7274-LI
   :BCDC           1999-EQU
   :BINC           2002-EQU     3739/BAL*    3746/BAL*    7409/BAL*    7838/BAL*    7840/BAL*    7845/BAL*
      7847/BAL*    9246/BAL*    9248/BAL*    9251/BAL*    9253/BAL*
   :BINCOT1        7412-LI
   :BINCOT2        7414-SCS     7419/BGEZ
   :BINCOVT        7384/BAL     7389/BAL     7407-STD
   :BINEXIT        7411/B       7420-LD
   :BINRTN         7408/STW     7421/B*      7464-DATA
   :BIN0405        7407/STD     7420/LD      7463-DATA
   :CARDBF         4321/STW     4369/STW     4687/STW     5207/STW     5228/STW     5262/STW     5314/STW
      5811/STW     6299/STW     6442/STW     6762/STW     6947/STW     8312/MTW     8486-DATA
   :CARDBIN        8319/MTW     8381/STW     8425/MTW     8443/MTW     8483-DATA
   :CARDERR        8311/STW     8472/MTW     8473/LW      8489-DATA
   :CARDEXB        8322/LI      8384/LI      8399/CW      8405/LW      8490-RES
   :CARDEXP        4318/STW     4689/STW     5187/STW     5258/STW     5311/STW     5808/STW     6295/STW
      6439/STW     6944/STW     8315/LB*     8321/LW      8383/LW      8445/LB*     8484-DATA    8499/STW
   :CARDFLG        8310/STW     8422/MTW     8424/MTW     8482-RES
   :CARDHEX        8448/LW      8768-TEXT
   :CARDISP        4342/BAL     4370/BAL     4711/BAL     5229/BAL     5286/BAL     5336/BAL     6144/BAL
      6356/BAL     6477/BAL     6948/BAL     8306-LCI     9291/BAL
   :CARDOBB        8325/LI      8387/LI      8398/LW      8406/LW      8491-RES
   :CARDOBS        4320/STW     4691/STW     5185/STW     5260/STW     5313/STW     5809/STW     6297/STW
      6441/STW     6946/STW     8324/LW      8386/LW      8485-DATA    8501/STW
   :CARD0          8313/BCS     8319-MTW
   :CARD1          8324-LW      8377/BDR
   :CARD10         8410-CI      8421/BDR
   :CARD11         8423/BNE     8435-LW
   :CARD12         8443-MTW
   :CARD13         8444/BNEZ    8451-LW
   :CARD131        8442/BLE     8455-LW
   :CARD14         8450/B       8454/B       8467-BAL
   :CARD15         8400/BE      8477-MTW
   :CARD16         8475/BGE     8480-B
   :CARD2          8327-LI      8376/BL
   :CARD5          8314/BCS     8318/BNE     8380-LI
   :CARD6          8386-LW      8395/BDR
   :CARD7          8389-LB      8394/BL
   :CARD8          8378/B       8397-LI
   :CARD9          8398-LW      8479/BL
   :CARMSGB        8224/LD      8429/LD      8771-TEXT
   :CARMSGE        8222/LD      8427/LD      8770-TEXT
   :CARMSG1        8430/STW     8431/STW     8433/DATA    8772-TEXTC
   :CARMSG2        8412/STB     8414/STB     8438/STH     8447/STH     8449/STW     8452/STW     8453/STH
      8456/STW     8458/STW     8459/STW     8461/STW     8463/STW     8465/STW     8466/STW     8468/DATA
      8773-TEXTC
   :CARMSG3        8417/STB     8419/STB     8471/DATA    8774-TEXTC
   :CATALOG        2141-EQU
   :CCERMA         7432/DATA    7447-TEXTC
   :CCERMB         7433/DATA    7448-TEXTC
   :CCERMC         7434/DATA    7449-TEXTC
   :CCERMD         7435/DATA    7450-TEXTC
   :CCERME         7436/DATA    7451-TEXTC
   :CCERMF         7437/DATA    7452-TEXTC
   :CCERM1         7423/DATA    7438-TEXTC
   :CCERM2         7424/DATA    7439-TEXTC
   :CCERM3         7425/DATA    7440-TEXTC
   :CCERM4         7426/DATA    7441-TEXTC
   :CCERM5         7427/DATA    7442-TEXTC
   :CCERM6         7428/DATA    7443-TEXTC
   :CCERM7         7429/DATA    7444-TEXTC
   :CCERM8         7430/DATA    7445-TEXTC
   :CCERM9         7431/DATA    7446-TEXTC
   :CCERR1         7309/BCR     7315-LW
   :CCERR2         7310/BCR     7323-LW
   :CCERR3         7311/B       7347-LW
   :CCPRINT        7348/STW     7353/STW*    7355-DATA
   :CCTEST         7289/BNE     7297-CW
   :CDB            2114/GEN     2114/GEN     2132-EQU     2186/LM      2334/LW      6264/LW
   :CDBEND         2114/GEN     2137-EQU
   :CDBM           2114/GEN     2123-EQU     2194/CW
   :CDBMEND        2114/GEN     2130-EQU
   :CDT            2046/DATA    2047/DATA    2113-EQU
   :CDTEND         2047/DATA    2115-EQU
   :CLEAR          4739/BAL     7557-STD
   :CLRADDR        4738/STW     7559/LW      7570-DATA
   :CLRSAVE        7557/STD     7558/STW     7565/LD      7566/LW      7572-RES
   :CLRSIZE        4736/STW     7560/AW      7561/LCW     7571-DATA
   :COMPLIM        7186/STW     7203-DATA    8474/CW
   :CURBCNT        2006-EQU     2279/STW     4682/STW     5176/STW     5251/STW     5302/STW     5352/STW
   :DAERM          7303/STW     7338/STW     7340/DATA    7352/LW      7453-TEXTC
   :DATA            464/DATA    2094/:PROCDIC             7123-STW
   :DATAP1         6307/LW      6343/CW      6454/LW      7152/STM     7155-DATA
   :DATAP2         6302/LB      6306/LW      6367/LH      6408/LW      6445/LW      6453/LW      6764/LW
      7156-DATA
   :DATAP3         6378/LB      6448/LW      7157-DATA
   :DATAP4         7158-DATA
   :DATA1          7127-LW      7133/BL      7138/BGE     7141/BL      7146/BGE     7149/BNE
   :DATA2          7126/BGE     7132-CI
   :DATA3          7139/B       7147/B       7150-LCI
   :DECC           2003-EQU     4776/BAL*    6200/BAL*    6721/BAL*    6725/BAL*    6728/BAL*    8437/BAL*
      8792/BAL*    8951/BAL*    9159/BAL*
   :DELAY          3185/BAL     3304/BAL     3347/BAL     3414/BAL     3764/BAL     3788/BAL     3844/BAL
      3902/BAL     4307/BAL     4581/BAL     4761/BAL     4827/BAL     5925/BAL     7594-STW
   :DELAYAE        6688/BAL     7598/BAL     7609-STW
   :DELAYD         2251/BAL     6704/BAL     6740/BAL     7601/BAL     7605/BAL     7614-STW
   :DELAYTO        7622-DATA    7624/XPSD
   :DELEXIT        7602-LW      7607/B
   :DELMTW         2352/LW      7625-MTW
   :DELSAVE        7594/STW     7602/LW      7606/MTW     7609/STW     7612/B*      7614/STW     7617/B*
      7620-DATA
   :DELTIME        7597/STW     7619-DATA    7625/MTW
   :DELTO          7605-BAL     7623/DATA
   :DELXPSD        2354/LW      5798/LD      7624-XPSD
   :DEVADDR        2345/STW     2370/HIO*    2483/HIO*    2556/HIO*    2587/HIO*    2604/HIO*    2606/HIO*
      2612/HIO*    2618/HIO*    2632/HIO*    2665/TDV*    2722/HIO*    2753/HIO*    2798/HIO*    2839/HIO*
      2967/HIO*    2969/HIO*    2996/HIO*    3015/HIO*    3034/HIO*    3061/HIO*    3089/HIO*    3104/HIO*
      3129/HIO*    3142/HIO*    3171/HIO*    3173/SIO*    3196/TDV*    3228/HIO*    3232/SIO*    3251/HIO*
      3288/HIO*    3292/SIO*    3341/HIO*    3345/SIO*    3379/TDV*    3408/HIO*    3412/SIO*    3465/SIO*
      3470/TDV*    3484/TDV*    3517/SIO*    3519/TIO*    3528/TDV*    3566/TIO*    3578/TDV*    3592/SIO*
      3601/TIO*    3668/HIO*    3674/SIO*    3685/TIO*    3694/TDV*    3762/HIO*    3781/HIO*    3785/SIO*
      3817/HIO*    3833/HIO*    3841/SIO*    3887/HIO*    3889/SIO*    3918/HIO*    3934/HIO*    3947/SIO*
      3948/TIO*    3950/TDV*    3964/SIO*    3965/TIO*    4019/HIO*    4029/SIO*    4039/TIO*    4050/TDV*
      4057/SIO*    4059/TIO*    4105/HIO*    4109/SIO*    4119/TIO*    4130/TDV*    4137/SIO*    4139/TIO*
      4183/HIO*    4188/SIO*    4189/TIO*    4199/TDV*    4239/HIO*    4249/SIO*    4250/TIO*    4265/SIO*
      4266/TIO*    4271/TDV*    4283/TIO*    4309/HIO*    4337/HIO*    4363/HIO*    4449/SIO*    4450/TIO*
      4462/HIO*    4523/HIO*    4547/HIO*    4560/HIO*    4604/HIO*    4693/LW      4698/SIO*    4701/TIO*
      4704/HIO*    4734/HIO*    4804/HIO*    4864/HIO*    4966/HIO*    4986/HIO*    5316/SIO*    5318/TIO*
      5657/LW      5853/STW     5928/STW     5956/STW     6004/STW     6035/STW     6078/HIO*    6085/STW
      6265/STW     6643/HIO*    6697/SIO*    6699/TIO*    6973/HIO*    6974/STW     6976/HIO*    6986/HIO*
      7239/SIO*    7247/TIO*    7255/HIO*    7263/TDV*    7294/CW      7301/LW      7335/CW      7534-DATA
      7832/LW      8796/LW      9031/HIO*    9033/SIO*    9035/TDV*    9039/TIO*    9052/HIO*    9054/SIO*
      9056/TDV*    9058/TIO*    9305/SIO*    9306/TIO*    9393/HIO*    9469/TIO*    9500/STW     9502/SIO*
      9503/TIO*
   :DEVADER        7308/BCR     7319/B       7331-CI
   :DEVEXIT        7327/B       7341-LD      7356/B       7366/BE      7403/B
   :DIC            2043/DATA    2044/DATA    2089-EQU     2316/DATA    5793/DATA    6277/DATA    7130/DATA
      7177/DATA
   :DICEND         2044/DATA    2097-EQU     2113/EQU
   :DICILEN        2025-EQU
   :DICINDX        2024-EQU
   :DUMP           1997-EQU
   :ERRADR1        7315/LW      7423-DATA
   :ERRADR2        7323/LW      7428-DATA
   :ERRADR3        7347/LW      7433-DATA
   :ERROR          2007-EQU     2488/BAL*    2495/BAL*    2502/BAL*    2509/BAL*    2559/BAL*    2562/BAL*
      2577/BAL*    2588/BAL*    2592/BAL*    2599/BAL*    2619/BAL*    2633/BAL*    2644/BAL*    2648/BAL*
      2654/BAL*    2661/BAL*    2668/BAL*    2677/BAL*    2691/BAL*    2699/BAL*    2735/BAL*    2739/BAL*
      2749/BAL*    2760/BAL*    2764/BAL*    2780/BAL*    2784/BAL*    2794/BAL*    2803/BAL*    2817/BAL*
      2821/BAL*    2831/BAL*    2846/BAL*    2850/BAL*    2887/BAL*    2897/BAL*    2907/BAL*    2939/BAL*
      2979/BAL*    2992/BAL*    3001/BAL*    3011/BAL*    3020/BAL*    3030/BAL*    3039/BAL*    3059/BAL*
      3069/BAL*    3105/BAL*    3110/BAL*    3113/BAL*    3118/BAL*    3123/BAL*    3143/BAL*    3148/BAL*
      3151/BAL*    3157/BAL*    3163/BAL*    3178/BAL*    3193/BAL*    3202/BAL*    3206/BAL*    3212/BAL*
      3242/BAL*    3259/BAL*    3266/BAL*    3273/BAL*    3297/BAL*    3318/BAL*    3321/BAL*    3356/BAL*
      3361/BAL*    3364/BAL*    3370/BAL*    3375/BAL*    3386/BAL*    3423/BAL*    3428/BAL*    3431/BAL*
      3436/BAL*    3441/BAL*    3448/BAL*    3479/BAL*    3494/BAL*    3502/BAL*    3525/BAL*    3538/BAL*
      3572/BAL*    3588/BAL*    3597/BAL*    3605/BAL*    3619/BAL*    3680/BAL*    3690/BAL*    3703/BAL*
      3755/BAL*    3791/BAL*    3797/BAL*    3805/BAL*    3811/BAL*    3847/BAL*    3858/BAL*    3861/BAL*
      3895/BAL*    3909/BAL*    3912/BAL*    3959/BAL*    3970/BAL*    3981/BAL*    3988/BAL*    4035/BAL*
      4046/BAL*    4064/BAL*    4073/BAL*    4115/BAL*    4126/BAL*    4144/BAL*    4153/BAL*    4195/BAL*
      4216/BAL*    4255/BAL*    4279/BAL*    4288/BAL*    4296/BAL*    4332/BAL*    4344/BAL*    4358/BAL*
      4372/BAL*    4455/BAL*    4463/BAL*    4486/BAL*    4514/BAL*    4534/BAL*    4545/BAL*    4568/BAL*
      4586/BAL*    4592/BAL*    4601/BAL*    4643/BAL*    4705/BAL*    4713/BAL*    4752/BAL*    4767/BAL*
      4780/BAL*    4818/BAL*    4833/BAL*    4839/BAL*    4874/BAL*    4939/BAL*    4944/BAL*    5001/BAL*
      5231/BAL*    5275/BAL*    5280/BAL*    5288/BAL*    5321/BAL*    5330/BAL*    5338/BAL*    5370/BAL*
      5375/BAL*    9046/BAL*    9361/BAL*    9368/BAL*
   :ERRORT         3175/BAL     3187/BAL     3199/BAL     3209/BAL     3239/BAL     3294/BAL     3308/BAL
      3312/BAL     3349/BAL     3366/BAL     3416/BAL     3438/BAL     3444/BAL     3499/BAL     3522/BAL
      3569/BAL     3594/BAL     3616/BAL     3622/BAL     3677/BAL     3802/BAL     3808/BAL     3853/BAL
      3892/BAL     3904/BAL     3956/BAL     3967/BAL     4032/BAL     4043/BAL     4061/BAL     4112/BAL
      4123/BAL     4141/BAL     4192/BAL     4252/BAL     4285/BAL     4293/BAL     4452/BAL     4589/BAL
      4763/BAL     4770/BAL     4829/BAL     4836/BAL     5201/BAL     5218/BAL     5327/BAL     7703-LCI
      9505/BAL
   :ERRTFLG        7707/STW     7773/MTW     7826/MTW     7862/MTW     7868-DATA
   :ERRTMP1        7704/STM     7732/STD     7742/STD     7754/STD     7825/LM      7866-RES
   :ERRTMP3        7712/STW     7768/LW      7867-DATA
   :ERRTM1         7831/STW     7834/STW     7836/DATA    7871-TEXTC
   :ERRTM11        7846/STW     7848/STW     7856/STB     7861/DATA    7873-TEXTC
   :ERRTM2         7839/STW     7841/STW     7843/DATA    7872-TEXTC
   :ERRTM3         7789/STW     7792/STW     7794/DATA    7874-TEXTC
   :ERRTM4         7802/DATA    7875-TEXTC
   :ERRTYPE        7830/LW      7869-DATA
   :ERRT0          7708-LB      7771/B
   :ERRT1          7714/BCS     7720-LW      7734/B       7744/B       7747/B
   :ERRT10         7731/B       7741/B       7753/B       7773-MTW     7795/B       7803/B
   :ERRT11         7716/BCS     7776-MTW
   :ERRT12         7780/BE      7796-SCD
   :ERRT13         7709/BCR     7805-LI      7823/BIR
   :ERRT13A        7809/BCS     7814-LI
   :ERRT14         7807/BCR     7813/B       7823-BIR     7863/B
   :ERRT15         7822/BCS     7830-LW
   :ERRT2          7723/BCS     7726-CI
   :ERRT3          7727/BCS     7736-CI
   :ERRT4          7737/BCS     7746-BAL
   :ERRT5          7746/BAL     7749-STW     7778/BAL
   :ERRT5X         7749/STW     7756/B*      7757-DATA
   :ERRT6          7721/BCS     7759-LI
   :ERRT7          7770-MTW     7774/B       7787/BE      7800/BE
   :EXPOBS         7395/LW      7456-TEXT
   :HEXC           2004-EQU     3733/BAL*    7302/BAL*    7337/BAL*    7788/BAL*    7791/BAL*    7833/BAL*
      8446/BAL*    8785/BAL*    8797/BAL*    9150/BAL*    9153/BAL*
   :HIO            2484/BAL     5958/BAL     7255-HIO     7514/BAL     7728/BAL
   :HIO1           7258-LI
   :INITIAL        2049/DATA    2182-STW
   :INTAE          2933/BAL     3233/BAL     3786/BAL     3842/BAL     4699/BAL     5817/BAL     8080-PSW
      8837/BAL     9328/BAL     9357/BAL     9388/BAL
   :INTD           2237/BAL     2356/BAL     2938/BAL     2943/BAL     3238/BAL     3248/BAL     3790/BAL
      3794/BAL     3846/BAL     3850/BAL     3871/BAL     4524/BAL     5274/BAL     5369/BAL     5819/BAL
      6975/BAL     8090-PSW     8844/BAL     8853/BAL     9333/BAL     9392/BAL     9477/BAL
   :INTRECF        2936/CW      3042/STW     3073/STW     3236/LW      3276/STW     4519/STW     4525/STW
      4972/STW     5402/STW     7599/LW      7626-DATA    8082/STW     8094/STW     8840/MTW     8873/STW
      9220/STW     9326/STW     9330/CW      9358/CW      9385/STW     9389/CW      9479/STW
   :IOERM1         7535-TEXTC
   :IOERM2         7529/DATA    7536-TEXTC
   :IOERR1         7501/B       7514-BAL
   :IOERR1A        7525-WAITPROC             7530/B
   :IOERR2         7503/BCR     7528-BAL
   :IOEXEC         2726/BAL     2771/BAL     2808/BAL     2880/BAL     2932/BAL     3093/BAL     3132/BAL
      5936/BAL     6006/BAL     7494-STW     8836/BAL     9327/BAL     9356/BAL     9387/BAL
   :IOEXEC1        7497-BAL     7508/B       7517/B       7523/B       7526/B
   :IORTN          7282/STW     7283/LW*     7284/LW*     7290/CW*     7291/BAZ*    7295/BE*     7297/CW*
      7298/BANZ*   7343/B*      7360/LW*     7361/LW*     7376/LW*     7377/LW*     7465-DATA
   :IOSAVE         7494/STW     7495/STW     7496/STD     7509/LW      7510/LW      7511/LD      7533-RES
   :K              8146/AW      8155-DATA
   :KSRADR         2016-EQU
   :LIMIT           495/DATA    2095/:PROCDIC             7170-LW
   :LIMITP1        5908/CW      7197/STM     7200-DATA
   :LIMITP2        5911/SW      5916/AW      7201-DATA
   :LIMITP3        5910/LW      7202-DATA
   :LIM0           7176-BAL     7182/B       7192/B
   :LIM1           7172/BE      7179-LW
   :LIM2           7181-STW     7195/BG
   :LIM3           7174/BE      7188-LW
   :LOADIN         2014-EQU
   :MACHINE        2017-EQU
   :MEMLAST        2027-EQU
   :MEMSIZE        2026-EQU
   :MLT            1869/BAL*    1992-EQU     1993/EQU     1994/EQU     1995/EQU     1996/EQU     1997/EQU
      1998/EQU     1999/EQU     2000/EQU     2002/EQU     2003/EQU     2004/EQU     2005/EQU     2006/EQU
      2007/EQU     2008/EQU     2009/EQU     2010/EQU     2011/EQU     2012/EQU     2013/EQU     2014/EQU
      2015/EQU     2016/EQU     2017/EQU     2018/EQU     2019/EQU     2021/EQU     2022/EQU     2023/EQU
      2024/EQU     2025/EQU     2026/EQU     2027/EQU     2028/EQU     2029/EQU     2030/EQU     2031/EQU
   :MLTEND         2031-EQU
   :MONIOBF        2028-EQU
   :MONITOR        2000-EQU     2288/B*      2317/B*      2341/B*      2344/B*      2397/BE*     2400/BL*
      2402/BE*     2404/B*      2407/B*      4612/B*      5767/B*      5779/B*      5794/B*      5825/B*
      5940/BE*     5943/BCR*    5983/BE*     5988/BE*     5993/B*      5996/B*      6278/B*      6323/B*
      6469/B*      6743/B*      6824/BE*     6826/B*      6829/B*      6844/BE*     6846/B*      6849/B*
      6894/B*      6990/B*      7131/B*      7153/B*      7178/B*      7187/B*      7198/B*
   :MONPBF         2029-EQU
   :MONWAIT        2010-EQU
   :MRECOVR        2011-EQU
   :MSGIN          2013-EQU
   :MSGOUT         2012-EQU
   :M1             6400/STW     8057/STW     8136/STW     8141/MTW     8147/EOR     8152-DATA    8206/STW
   :M2             6402/STW     8058/STW     8137/STW     8143/MTW     8148/EOR     8153-DATA    8207/STW
   :PATBFR         5885/STW     6126/STW     8028/AW      8038/AW      8049/AW      8067/AW      8077-DATA
      9274/STW
   :PATEXIT        8033-LCI     8044/B       8064/B       8072/B
   :PATID          5801/STW     5903/STW     6135/STW     8020/LW      8030/LW      8040/LW      8042/AW
      8051/LW      8069/LW*     8075-DATA    9283/STW
   :PATTERN        5904/BAL     6136/BAL     8018-LCI     9284/BAL
   :PATWC          5803/STW     8027/LW      8029/LCW     8037/LW      8039/LCW     8048/LW      8050/LCW
      8066/LW      8068/LCW     8076-DATA
   :PAT0           8022/B       8027-LW
   :PAT1           8023/B       8037-LW
   :PAT2           8024/B       8046-LCI
   :PAT2A          8054/B       8062-LCI
   :PAT3           8025/B       8066-LW
   :PITEND         2058-EQU     2059/DO
   :PITLAST        2057-EQU     2059/DO
   :PIT0           2041-DATA    2058/EQU
   :PIT1           2042-DATA
   :PIT10          2051-DATA    2189/STW     2197/STW     2314/STW     2325/STW     5784/STW     5791/STW
      6275/STW     6498/STW     6541/STW     6583/STW     6603/STW     6798/STW     6816/STW     7002/STW
      7006/STW     7011/STW     7128/STW     7175/STW     7181/STW     7191/STW
   :PIT11          2052-DATA
   :PIT12          2053-DATA    2190/STW     2221/STW
   :PIT15          2056-DATA    2373/STW     5814/STW     6281/STW
   :PIT2           2043-DATA
   :PIT27          2062-DATA
   :PIT3           2044-DATA
   :PIT4           2045-DATA
   :PIT5           2046-DATA
   :PIT6           2047-DATA
   :PIT7           2048-DATA
   :PIT8           2049-DATA
   :PIT9           2050-DATA
   :PREPORT        2021-EQU     2315/BAL*    5792/BAL*    6276/BAL*    7129/BAL*    7176/BAL*
   :PRINT          1937/BAL*    2008-EQU     2277/BAL*    2339/BAL*    2342/BAL*    2405/BAL*    3729/BAL*
      3735/BAL*    3742/BAL*    3749/BAL*    4465/BAL*    4609/BAL*    4778/BAL*    5323/BAL*    5848/BAL*
      5850/BAL*    5951/BAL*    5953/BAL*    6024/BAL*    6032/BAL*    6058/BAL*    6061/BAL*    6068/BAL*
      6103/BAL*    6111/BAL*    6142/BAL*    6732/BAL*    6734/BAL*    6741/BAL*    6745/BAL*    6775/BAL*
      6827/BAL*    6847/BAL*    6870/BAL*    6888/BAL*    6892/BAL*    6923/BAL*    7317/BAL*    7325/BAL*
      7339/BAL*    7354/BAL*    7371/BAL*    7399/BAL*    7793/BAL*    7801/BAL*    7835/BAL*    7842/BAL*
      7860/BAL*    8228/BAL*    8230/BAL*    8432/BAL*    8467/BAL*    8470/BAL*    8787/BAL*    8794/BAL*
      8799/BAL*    8845/BAL*    9161/BAL*    9163/BAL*    9165/BAL*    9262/BAL*    9264/BAL*    9266/BAL*
      9289/BAL*    9309/BAL*    9334/BAL*    9363/BAL*    9394/BAL*    9511/BAL*
   :PROCDIC        1878-CNAME
   :PROGID         2042/DATA    9595-EQU
   :PSW            1998-EQU     7124/LB
   :P1             1993-EQU     2266/STW     2271/STW     2309/LW      5781/LW      6272/LW      7125/CW
      7135/CW      7143/CW      7151/LM      7170/LW
   :P2             1994-EQU     2268/STW     2272/STW     2318/CW      2322/LW      2329/CW      5788/LW
      6309/CW      6456/CW      6488/CW      6580/LW      6670/CW      6691/CW      6730/CW      6766/CW
      6796/CW      6799/CW      6823/CW      6843/CW      6897/CW      7000/LW      7183/LW      7188/LW
   :P3             1995-EQU     6493/LW      6510/LW      6536/LW      6598/LW      6760/LW      6803/LW
      6899/LW      7004/LW      7179/LW      7189/CW      7193/LW
   :P4             1996-EQU     6778/LW      7008/LW
   :QSENSE         2022-EQU
   :RANDOM         6392/BAL     8059/BAL     8139-STW     8209/BAL     8211/BAL     8240/BAL
   :RANDOMX        4023/BAL     4102/BAL     5840/BAL     5886/BAL     5905/BAL     8141-MTW
   :RANDOMY        8136-STW
   :RECOVER        2045/DATA    2184/BAL     2234-LD      6266/BAL
   :REG0405        7299/STD     7341/LD      7460-DATA
   :REG0607        7373/STD     7402/LD      7461-DATA
   :REG1213        7300/STD     7342/LD      7462-DATA
   :RELBIAS        2018-EQU
   :REMOTE         2030-EQU     2183/BAL
   :RLOADER        2019-EQU
   :SAVCOM1        7798/AW      7984-DATA
   :SAVEAIO        7936-STD
   :SAVEALL        7907/BAL     7909/BAL     7921/BAL     7926/BAL     7932/BAL     7939/BAL     7941/BAL
      7949/BAL     7956/BAL     7960-STW
   :SAVECLR        2252/BAL     2357/BAL     7895-STD
   :SAVEHIO        7733/BAL     7919-STD
   :SAVESIO        3174/BAL     3293/BAL     3593/BAL     3676/BAL     3891/BAL     4031/BAL     4111/BAL
      7930-STD
   :SAVESSA        7946-STD
   :SAVESSB        7953-STD
   :SAVETAB        7720/LW      7769/STW     7776/MTW     7781/LH      7799/CH      7806/LW      7812/STW
      7816/STW     7898/STH     7906/LI      7908/LI      7911/STH     7913/STB     7914/STH     7915/STB
      7920/LI      7925/LI      7931/LI      7938/LI      7940/LI      7948/LI      7955/LI      7970-EQU
   :SAVETDV        7743/BAL     7924-STD
   :SAVETIO        7755/BAL     7904-STD
   :SAVETMP        7895/STD     7901/LD      7904/STD     7905/STW     7910/LW      7916/LD      7919/STD
      7922/LD      7924/STD     7927/LD      7930/STD     7933/LD      7936/STD     7937/STW     7942/LW
      7943/LD      7946/STD     7950/LD      7953/STD     7957/LD      7960/STW     7967/B*      7983-DATA
   :SEED           8139/STW     8144/LW      8149/STW     8154-DATA
   :SENSE          2009-EQU     2285/BAL*    2393/BAL*    2511/BAL*    2601/BAL*    2710/BAL*    2852/BAL*
      2889/BAL*    2899/BAL*    2909/BAL*    2964/BAL*    3062/BAL*    3125/BAL*    3165/BAL*    3180/BAL*
      3214/BAL*    3244/BAL*    3299/BAL*    3323/BAL*    3390/BAL*    3452/BAL*    3504/BAL*    3550/BAL*
      3646/BAL*    3757/BAL*    3813/BAL*    3863/BAL*    3897/BAL*    3914/BAL*    3990/BAL*    4089/BAL*
      4164/BAL*    4218/BAL*    4298/BAL*    4334/BAL*    4360/BAL*    4457/BAL*    4488/BAL*    4548/BAL*
      4570/BAL*    4645/BAL*    4707/BAL*    4719/BAL*    4754/BAL*    4782/BAL*    4820/BAL*    4841/BAL*
      4876/BAL*    4946/BAL*    5003/BAL*    5233/BAL*    5282/BAL*    5293/BAL*    5332/BAL*    5343/BAL*
      5377/BAL*    5822/BAL*    6319/BAL*    6465/BAL*    6820/BAL*    6840/BAL*    6987/BAL*    9370/BAL*
   :SIO            2552/BAL     2614/BAL     2673/BAL     4748/BAL     4814/BAL     7239-SIO     7504/BAL
   :SIO1           7242-LI
   :STATEM1        7304/STW     7368/XW      7370/STB     7372/DATA    7454-TEXTC
   :STATEM2        7386/STH     7390/STB     7396/XW      7398/STB     7400/DATA    7455-TEXTC
   :STATERR        7332/BNE     7336/BE      7360-LW
   :STATER1        7381-LW      7401/BDR
   :STATEST        7243/B       7251/B       7259/B       7267/B       7275/B       7281-STW
   :STATTYP        7367/LW      7458-TEXT
   :STATUSCC       2557/LCF     2584/LB      2596/LB      2629/LB      2637/LB      2652/LB      3116/LB
      3155/CB      6021/STW     6022/STCF    6122/LW      7240/STW     7241/STCF    7248/STW     7249/STCF
      7256/STW     7257/STCF    7264/STW     7265/STCF    7272/STW     7273/STCF    7287/AND     7305/LCF
      7364/AND     7381/LW      7467-DATA
   :TDV            2498/BAL     2573/BAL     2640/BAL     2687/BAL     2695/BAL     6041/BAL     6070/BAL
      6092/BAL     6113/BAL     7263-TDV     7738/BAL     8868/BAL     9464/BAL     9489/BAL
   :TDV1           7266-LI
   :TIO            2491/BAL     2579/BAL     2625/BAL     2683/BAL     2729/BAL     2754/BAL     2774/BAL
      2799/BAL     2811/BAL     2840/BAL     2883/BAL     2903/BAL     2975/BAL     2997/BAL     3016/BAL
      3035/BAL     3081/BAL     3097/BAL     3135/BAL     3255/BAL     3269/BAL     4541/BAL     4605/BAL
      4967/BAL     5397/BAL     5962/BAL     6046/BAL     6074/BAL     6097/BAL     6117/BAL     7247-TIO
      7497/BAL     7520/BAL     7750/BAL     8863/BAL     9215/BAL     9472/BAL
   :TIO1           7250-LI
   :TSEQ           1834-CNAME
   :TSEQEQU        1847-CNAME
   :TYPE           7281/STW     7306/LW      7466-DATA
   :TYPRINT        2015-EQU     4680/BAL*    5174/BAL*    5249/BAL*    5300/BAL*    5350/BAL*    5758/BAL*
      5765/BAL*    5771/BAL*    5777/BAL*    5863/BAL*    5978/BAL*    5990/BAL*    7528/BAL*
   :WAIT           2023-EQU
   :1BYTEIN        2005-EQU     2280/BAL*    4683/BAL*    5177/BAL*    5252/BAL*    5303/BAL*    5353/BAL*
