1 C00   19:44 JUN 20,'83                                                                          PAGE    1
A      1                     1.000  +1,105                                                              *H02
       2                     1.010           PCC                                                        *H02
       3                     1.020  CATALOG  EQU      C'0606'                                           *H02
       4                     1.030  VERSION  EQU      C'H02'                                            *H02
       5                     1.040  TITLE    EQU      S:PT('TELEFILE COMPREHENSIVE LINE PRINTER TEST',; *H02
       6                     1.050                    ' 960-',CATALOG,'-',VERSION)                      *H02
       7                     1.060           SPACE                                                      *H02
       8                     1.070           SYSTEM   SIG9P                                             *H02
       9                     1.080           SPACE                                                      *H02
      10                     1.090  BUFFER1  EQU      S:UFV(USERPROG)+2                                 *H02
      11                     1.100  BUFFER2  EQU      S:UFV(USERPROG)+35                                *H02
      12                     1.110  BUFFER3  EQU      S:UFV(USERPROG)+68                                *H02
      13                     1.120           SPACE                                                      *H02
      14                     1.130           ORG      X'300'                                            *H02
      15                     1.140           SPACE                                                      *H02
      16                   456.000  +456,462                                                            *H02
      17                   456.010           TITLE    TITLE                                             *H02
      18                  1944.000  +1944,1947                                                          *H02
      19                  1944.010           SPACE                                                      *H02
      20                  1944.020  REVISION REV      ' '                                               *H02
      21                  1944.030           REV      'SYST,MODEL,FLAG,DEVICE'                          *H02
      22                  1944.040           REV      ' '                                               *H02
      23                  1944.050           REV      ' FLAG>0 => USE LONG I/O TIMEOUTS'                *H02
      24                  1944.060           REV      ' '                                               *H02
      25                  1955.000  +1955,1977                                                          *H02
      26                  1955.010           REV      ' '                                               *H02
      27                  2143.000  +2143,2144                                                          *H02
      28                  2143.010           TEXTC    TITLE                                             *H02
      29                  2216.000  +2216,2219                                                          *H02
      30                  2216.010           SPACE                                                      *H02
      31                  9671.000  +9671                                                               *H02
      32                  9671.010           SPACE                                                      *H02
      33                  9671.020           MTW,0    :CDB+1            SKIP IF LONG TIMER              *H02
      34                  9671.030           BEZ      %+2                FLAG NOT SET (NEW PRINTERS)    *H02
      35                  9671.040           SPACE                                                      *H02
      36                  9671.050           SLS,R14  2                 IMMENSE DELAYS                  *H02
      37                  9671.060           SPACE                                                      *H02
      38                  9999.999  +END
1 C00   19:44 JUN 20,'83                                                                          PAGE    2
A   .SS BA,HA,WA,DA,LF,CF,AF,AFA,NAME,NUM,ABSVAL
    .SS R0,R1,R2,R3,R4,R5,R6,R7,R8,R9,R10,R11,R12,R13,R14,R15
    .SS X1,X2,X3,X4,X5,X6,X7,SCOR,TCOR,%,%%
    .END
1 C00   19:44 JUN 20,'83    TELEFILE COMPREHENSIVE LINE PRINTER TEST 960-0606-H02                 PAGE    3
A       1*                                    PCC                                                        *H02
        2*        TEXT               CATALOG  EQU      C'0606'                                           *H02
        3*        TEXT               VERSION  EQU      C'H02'                                            *H02
        4*                           TITLE    EQU      S:PT('TELEFILE COMPREHENSIVE LINE PRINTER TEST',; *H02
        5*        TEXT                                 ' 960-',CATALOG,'-',VERSION)                      *H02

        7*                                    SYSTEM   SIG9P                                             *H02

        2*        02 02284           BUFFER1  EQU      S:UFV(USERPROG)+2                                 *H02
        3*        02 022A5           BUFFER2  EQU      S:UFV(USERPROG)+35                                *H02
        4*        02 022C6           BUFFER3  EQU      S:UFV(USERPROG)+68                                *H02

        6*  01 00300                          ORG      X'300'                                            *H02
            01 00300

      106                            * OPERATING PROCEDURES
      107                            * ------------------
      108                            *
      109                            * CONTROL OPTIONS
      110                            *                    PROGRAM CONTROL OPTIONS ARE SELECTED WITH THE
      111                            *                    PROCESSOR CONTROL PANEL SENSE SWITCHES 1,3,4
      112                            *                    (SENSE SWITCH 2 IS UNUSED)
      113                            *
      114                            *   SSW1     SSW3
      115                            * POSITION POSITION           OPTION
      116                            *
      117                            *  0 OR 1     0      THE PROGRAM COMES TO A WAIT AFTER ERROR PRINTOUT(S)
      118                            *                    DURING EXECUTION OF FUNCTIONAL TESTS (TST1) AND
      119                            *                    AFTER COMPLETION OF THE SELECTED TESTS.CLEARING THE
      120                            *                    WAIT CAUSES PROGRAM LOOPING ON THE ERROR OR THE
      121                            *                    SELECTED TEST. INCREMENTING THE PROGRAM ADDRESS(PCP
      122                            *                    INSTRUCTION ADDRESS INCREMENT) AFTER THE WAIT INSTR.
      123                            *                    CAUSES THE PROGRAM TO CONTINUE WITHOUT LOOPING.
      124                            *
      125                            *    0        1      THE PROGRAM CONTINUES WITHOUT WAIT OR WITHOUT
      126                            *                    FUNCTIONAL TEST ERROR LOOPING.
      127                            *
      128                            *    1        1      THE PROGRAM PRINTS THE ERROR MESSAGE(S) AND LOOPS
      129                            *                    (WITHOUT WAITING) ON THE ERROR PRODUCING INSTRUCTION
      130                            *                    SEQUENCE. THE PROGRAM ALSO LOOPS (WITHOUT WAIT) ON
      131                            *                    THE SELECTED TEST.
      132                            *
      133                            *   SSW4
      134                            * POSITION
      135                            *
      136                            *    0               THE PROGRAM PRINTS ALL MESSAGES.
      137                            *
      138                            *    1               THE PROGRAM INHIBITS ALL MESSAGE PRINTOUTS.
      139                            *                    DPM MESSAGES CANNOT BE SUPPRESSED.
      140                            *
      141                            *
      142                            * TABLE OF DIRECTIVES
      143                            *
      144                            * THE DATA STATEMENT FOLLOWING EACH DIRECTIVE NAME PRODUCES A
      145                            * MEMORY ADDRESS IN THE MEMORY-CONTENTS-COLUMN WHICH CAN BE USED TO
      146                            * LOCATE THE PROGRAM CODING FOR THE DIRECTIVE. THE CODING FOR EACH
      147                            * DIRECTIVE IS PRECEDED BY A DESCRIPTION OF THE DIRECTIVE AND ITS
      148                            * PARAMETERS.
      149                            *
      150                            * MNEMONICS          DESCRIPTION
      151                            *
      152                            * >> SYST <<         THE DIRECTIVE DESCRIBES THE SYSTEM ENVIRONMENT
      153                            *
      154                            *                    PARAMETERS: D1-DEVICE MODEL NUMBER
      155                            *                    ----------- X2-REVISION NUMBER OF CONTROLLER (0)
      156                            *                                X3-PRINTER DEVICE ADDRESS
      157                            *
      158                            *                    EXAMPLE:    SYST,7441,0,2
      159                            *                    --------
      160                            *
      161                            * >> TST0 <<         THE DIRECTIVE SELECTS THE COMPREHENSIVE TEST
      162                            *                    CONSISTING OF THE FUNCTIONAL TEST (SUBTESTS 1-73)
      163   01 00300    00000416 02  TST0ADDR DATA TST0   AND THE RANDOM EXERCISER TEST
      164                            *
      165                            *                    PARAMETERS: NONE
      166                            *                    ----------
      167                            *
      168                            *                    EXAMPLE:    TST0
      169                            *                    --------
      170                            *                             (1) THE FUNCTIONAL TEST WILL BE RUN ON
      171                            *                                 THE PRINTER IN SEQUENCE SUBTEST 1
      172                            *                                 THRU SUBTEST 73.
      173                            *
      174                            *                             (2) THE RANDOM EXERCISER WILL RUN UNTIL
      175                            *                                 SIX CYCLES HAVE BEEN COMPLETED. IF A
      176                            *                                 FAILURE IS ENCOUNTERED, AN ERROR
      177                            *                                 MESSAGE IS PRINTED AND THE
      178                            *                                 EXERCISING CONTINUES.
      179                            *
      180                            *
      181                            * >> TST1 <<         THE DIRECTIVE SELECTS THE ENTIRE FUNCTIONAL
      182                            *                    TEST (NO PARAMETERS ENTERED) OR SELECTS ONE
      183   01 00301    00000424 02  TST1ADDR DATA TST1   OR  MORE CONTIGUOUS FUNCTIONAL SUBTESTS.
      184                            *
      185                            *                    PARAMETERS: D1-FIRST FUNCTIONAL SUBTEST
      186                            *                    ----------- D2-LAST FUNCTIONAL SUBTEST
      187                            *
      188                            *                                WHERE  0 < D1 <= D2 <= 73
      189                            *
      190                            *                    EXAMPLES:   TST1
      191                            *                    ---------
      192                            *                                RUN ALL FUNCTIONAL SUBTESTS
      193                            *
      194                            *                                TST1,35,49
      195                            *
      196                            *                                RUN FUNCTIONAL SUBTEST 35 THRU 49
      197                            *
      198                            *
      199                            * >> TST2 <<         THE DIRECTIVE SELECTS THE RANDOM EXECISER TEST
      200                            *
      201   01 00302    000015E4 02  TST2ADDR DATA TST2   PARAMETERS: D1-NUMBER OF CYCLE TO BE EXECUTED BY
      202                            *                    RANDOM EXERCISER
      203                            *
      204                            *                    EXAMPLE:    TST2,3
      205                            *
      206                            *                                THE RANDOM EXERCISER WILL RUN UNTIL 3
      207                            *                                CYCLE HAVE BEEN COMPLETED.
      208                            *
      209                            * >> TST3 <<         THE DIRECTIVE SELECTS ONE OF THE UTILITY PROGRAMS.
      210                            *
      211   01 00303    00001708 02  TST3ADDR DATA TST3   PARAMETERS: D1-UTILITY TEST SELECTION
      212   01 00304    0000173E 02  TST30ADR DATA TST30  ----------- D2-DEFINED BY THE UTILITY TEST SELECTED
      213   01 00305    00001748 02  TST31ADR DATA TST31
      214   01 00306    0000175D 02  TST32ADR DATA TST32              D1 = 0  HAMMER REGISTRATION
      215   01 00307    00001780 02  TST33ADR DATA TST33                      D2 = LINE COUNT
      216   01 00308    00001807 02  TST34ADR DATA TST34              D1 = 1  CHECKERBOARD PATTERN
      217   01 00309    0000181B 02  TST35ADR DATA TST35                      D2 = LINE COUNT
      218   01 0030A    00001835 02  TST36ADR DATA TST36              D1 = 2  RIPPLE PATTERN
      219   01 0030B    00001868 02  TST37ADR DATA TST37                      D2 = LINE COUNT
      220   01 0030C    000018A6 02  TST38ADR DATA TST38              D1 = 3  PRINTER SPEED TEST
      221   01 0030D    000018E4 02  TST39ADR DATA TST39                      D2 = CHAR COUNT
      222   01 0030E    000018F5 02  TST310AD DATA TST310             D1 = 4  PRINTER LOAD TEST          *A04
      223                            *                                        D2 = LINE COUNT
      224                            *                                D1 = 5  BROADSIDE PATTERN
      225                            *                                        D2 = LINE COUNT
      226                            *                                D1 = 6  SELECTABLE PATTERN/POSITION
      227                            *                                        D2 = LINE COUNT
      228                            *                                        D3 = GROUP/LINE COUNT
      229                            *                                        D4 = GROUP/SPACE COUNT
      230                            *                                D1 = 7  SPACE LINES
      231                            *                                        D2 = UNUSED
      232                            *                                D1 = 8  CHANNEL SEARCH
      233                            *                                        D2 = CHANNEL NUMBER
      234                            *                                   D3 = 1 CHANNEL NUMBER FOR       *A02
      235                            *                                          INHIBIT UPSPACE          *A02
      236                            *                                D1 = 9  UTILITY TEST
      237                            *                                        D2 = LINE COUNT
      238                            *                                D1 = 10 LINE PRINTER CLEANER      *A04
      239                            *                                        D2 = LINE COUNT           *A04
      240                            *
      241                            *                    EXAMPLES:   TST3,7
      242                            *                    ---------
      243                            *                                SPACE ORDERS ARE ISSUE TO EACH OF THE
      244                            *                                15 POSSIBLE POSITIONS IN SEQUENCE.
      245                            *
      246                            *                                TST3,8,4
      247                            *
      248                            *                                EXERCISE THE PRINTER VFU CONTROL.
      249                            *                                CHANNEL 4  IS TO BE SEARCHED.
      250                            *
      251                            * >> DATA <<         THE DIRECTIVE SELECTS A PATTERN TYPE TO BE USED
      252                            *                    DURING THE UTILITY TEST (TST3,6 ONLY)
      253   01 0030F    00001A8A 02  DATAADDR DATA :DATA
      254                            *                    PARAMETERS: D1-SPECIFY VARIABLE PATTERN (D1=4 ONLY)
      255                            *                                D2-STARTING COLUMN (1 THUR 132)
      256                            *                                D3-ENDING COLUMN (1 THUR 132)
      257                            *                                D4-EBCDIC CHARACTER STRING
      258                            *
      259                            *                    EXAMPLES:   DATA,4,3,17,F0F1F2F3
      260                            *
      261                            *                                STARTING COLUMN  =  3
      262                            *                                ENDING COLUMN    = 17
      263                            *                                CHARACTER STRING = 0123
      264                            *
      265                            *
      266                            *
      267                            * >> LIMT <<         THE DIRECTIVE LIMITS SPECIFIC OPERATIONS
      268                            *                    DURING THE EXECUTION OF THE TEST PROGRAM.
      269   01 00310    00001AD2 02  LIMTADDR DATA :LIMIT
      270                            *                    PARAMETERS: D1-LIMIT TYPE
      271                            *                    ----------- D2-LIMIT COUNT
      272                            *
      273                            *                                D1=1 COMPARE ERROR PRINTOUT LIMIT
      274                            *                                     D2 NUMBER OF COMPARE ERRORS
      275                            *                                     TO BE REPORTED.
      276                            *
      277                            *                                D1=2 LIMITS DELAY TIME
      278                            *                                     D2 MINIMUM DELAY TIME
      279                            *                                     D3 MAXIMUM DELAY TIME
      280                            *
      281                            *                    EXAMPLE:    LIMT,1,10
      282                            *                    --------
      283                            *                                REPORT UP TO 10 DATA COMPARE
      284                            *                                     ERRORS.
      285                            *
      286                            *
      287                            * OPERATION MODES
      288                            * ---------------    PROGRAM-OPERATOR COMMUNICATION IS ACCOMPLISHED
      289                            *                    USING THE INPUT/OUTPUT DEVICES SPECIFIED BY
      290                            *                    THE OPERATOR.
      291                            *
      292                            *                    DIRECTIVES ARE ENTERED AND TESTS ARE INITIATED
      293                            *                    THRU THE MESSAGE INPUT DEVICE (MID).
      294                            *
      295                            *                    THE PROGRAM OUTPUTS MESSAGES THRU THE MESSAGE
      296                            *                    OUTPUT DEVICE (MOD). NOTE THAT IF THE LINE
      297                            *                    PRINTER UNDER TEST IS USED AS THE MOD, THEN THERE
      298                            *                    EXISTS THE POSSIBILITY THAT TEST PATTERN-ERROR
      299                            *                    MESSAGE OVERPRINTING MAY OCCUR.
      300                            *
      301                            *                    (REFER TO DPM DIRECTIVES 'MID' AND 'MOD').
      302                            *
      303                            * START-RESTART PROCEDURE
      304                            *
      305                            * START              AFTER THE PROGRAM IS SUCCESSFULLY LOADED AND THE
      306                            *                    PROGRAM IDENTIFICATION IS PRINTED, THE OPERATOR
      307                            *                    MAY SPECIFY ANY TEST DIRECTIVE (TST0,TST1,TST2,
      308                            *                    OR TST3), UTILITY DIRECTIVE (DATA,LIMT),
      309                            *                    OR THE ENVIRONMENTAL DIRECTIVE (SYST).
      310                            *
      311                            * RESTART            RESTART OR RECOVERY MAY BE ACHIEVED BY THE
      312                            *                    FOLLOWING PROCEDURE:
      313                            *
      314                            *                    1. PRESSING THE CONTROL PANEL INTERRUPT SWITCH.
      315                            *
      316                            *                    2. A. PLACING THE COMPUTE SWITCH ON THE PCP TO IDLE
      317                            *                       B. PRESSING THE SYSTEM RESET SWITCH ON THE PCP
      318                            *                       C. PLACING THE COMPUTE SWITCH ON THE PCP TO RUN.
      319                            *
      320                            *                            ***  NOTE  ***
      321                            *                    PROCEDURE 2 SHOULD NORMALLY BE USED IN ORDER
      322                            *                    TO INSURE THE RESETTING OF CONTROLLER TEST
      323                            *                    MODE LOGIC.
      324                            *
      325                            * TERMINATION INDICATION
      326                            *
      327                            *                    THE TERMINATION OF A DIRECTIVE IS INDICATED BY
      328                            *                    CONTROL BEING RETURNED TO THE MESSAGE INPUT DEVICE.
      329                            *
      330                            * SUCCESS-FAILURE INDICATIONS
      331                            * ----------------------------
      332                            *
      333                            *
      334                            * WAITS              THE PROGRAM COMES TO A WAIT CONDITION:
      335                            *
      336                            *                    1. AFTER ERROR MESSAGE PRINTOUT DURING THE
      337                            *                       EXECUTION OF FUNCTIONAL TESTS (SSW3 = 0).
      338                            *
      339                            *                    2. AFTER THE COMPLETION OF A TEST (SSW3 = 0).
      340                            *
      341                            *
      342                            *
      343                            * LOOPS              THE PROGRAM LOOPS ON AN INSTRUCTION SEQUENCE
      344                            *                    PRODUCING AN ERROR DURING FUNCTIONAL TEST
      345                            *                    EXECUTION (SS1=1,SS3=1) OR AT THE COMPLETION
      346                            *                    OF A TEST (SS1=1,SS3=1). THE PROGRAM ALSO
      347                            *                    LOOPS ON THE COMPLETION OF THE RANDOM EXERCISER
      348                            *                    OR THE SELECTED UTILITY TEST.
      349                            *
      350                            * MESSAGE PRINTOUT   1. FUNCTIONAL TEST
      351                            *
      352                            *                       THE STANDARD ERROR MESSAGES
      353                            *
      354                            *                           ERR NO.DDDD LOC.XXXX
      355                            *
      356                            *                       ARE DEFINED IN THE FAULT INDEX (DDDD = INDEX).
      357                            *
      358                            *                       ALL OTHER MESSAGES PRECEDING THE STANDARD
      359                            *                       ERROR MESSAGE ARE SELF-EXPLANATORY.
      360                            *
      361                            *                    2. RANDOM EXERCISER AND UTILITY TESTS.
      362                            *
      363                            *                       ALL MESSAGES ARE SELF-EXPLANATORY.
      364                            *
      365                            *                    3. DPM ERROR MESSAGE ARE DEFINED IN THE
      366                            *                       DPM MANUAL.
      367                            *
      368                            * PROGRAM TEST DESCRIPTION
      369                            * ------------------------
      370                            *
      371                            *                    THE FOLLOWING IS A DESCRIPTION OF THE TESTS
      372                            *                    CONTAINED IN THE COMPREHENSIVE LINE PRINTER TEST
      373                            *                    PROGRAM.
      374                            *
      375                            * COMPREHENSIVE TEST (TST0)
      376                            *                    THE COMPREHENSIVE TEST CONSISTS OF THE FUNCTIONAL
      377                            *                    TEST AND THE RANDOM EXERCISER TEST.
      378                            *
      379                            * FUNCTIONAL TEST (TST1)
      380                            *                    THE FUNCTIONAL TEST PERFORMS A SYSTEMATIC TEST OF
      381                            *                    ALL LOGIC FUNCTIONS OF THE PRINTER CONTROLLER AND
      382                            *                    PRINTER MECHANISM SPECIFIED BY THE SYST DIRECTIVE.
      383                            *                    THE FUNCTIONAL TEST CONSISTS OF A NUMBER OF
      384                            *                    SUBTESTS WHICH MAY BE SELECTED INDIVIDUALLY OR
      385                            *                    IN GROUPS.
      386                            *
      387                            *                    WHEN A FAULT HAS BEEN DETECTED, AUTOMATIC ERROR
      388                            *                    LOOPING THRU SENSE SWITCH CONTROL IS IMPLEMENTED
      389                            *                    WHENEVER POSSIBLE.
      390                            *
      391                            *                    FOR A DESCRIPTION OF INDIVIDUAL SUBTESTS, REFER TO
      392                            *                    THE FAULT INDEX SECTION OF THE PROGRAM LISTING.
      393                            *                    EACH FAULT INDEX DESCRIPTION GROUP IS PRECEDED BY
      394                            *                    A SUBTEST DESCRIPTION.
      395                            *
      396                            * RANDOM EXERCISER TEST (TST2)
      397                            *                    THIS TEST PROVIDES A MEANS OF OPERATING A
      398                            *                    LINE PRINTER TO EXERCISE THE
      399                            *                    CONTROLLER AND PRINTER MECHANISM IN ORDER TO
      400                            *                    DETECT INTERMITTENT LOGIC FAILURES. THE SEQUENCE
      401                            *                    OF OPERATIONS PERFORMED ARE PREDETERMINED. WHEN A
      402                            *                    DETECTABLE FAILURE OCCURS, AN ERROR MESSAGE
      403                            *                    DESCRIBES THE ERROR AND EXERCISING CONTINUES.
      404                            *
      405                            * UTILITY TEST ROUTINES (TST3)
      406                            *                    THE UTILITY TEST ROUTINE ALLOWS THE USER TO SELECT
      407                            *                    A SPECIFIC UTILITY FUNCTION AND/OR PRINT PATTERNS
      408                            *                    WHICH AID THE OPERATOR IN PRINTER ADJUSTMENTS.
      409                            *
      410                            * 0. HAMMER REGISTRATION
      411                            *                    GENERATES PATTERN OF BROADSIDE CHARACTER 'E' (SAME
      412                            *                    CHARACTER IN ALL POSITIONS) CONTINUOUSLY AS A
      413                            *                    REFERENCE IN CHECKING PRINTER HAMMER ALIGNMENT.
      414                            *
      415                            * 1. CHECKERBOARD PATTERN
      416                            *                    GENERATES A WORST-CASE PATTERN TO EXPOSE GHOST
      417                            *                    CHARACTER PRINTING. THE PATTERN CONSISTS OF
      418                            *                    ALTERNATING CHARACTER 'E' AND BLANKS.
      419                            *
      420                            * 2. RIPPLE PATTERN
      421                            *                    GENERATES A PATTERN CONSISTING OF ALL CHARACTERS
      422                            *                    PER LINE, EACH SUCCEEDING LINE HAVING THE
      423                            *                    CHARACTERS SHIFTED ONE POSITION TO THE LEFT.
      424                            *
      425                            * 3. PRINTER SPEED TEST
      426                            *                    A 36-LINE PATTERN OF CHARACTERS IS PRINTED TO
      427                            *                    PRODUCE MAXIMUM PRINT RATE. THE AVERAGE TIME TO
      428                            *                    PRINT AND UPSPACE IS CALCULATED AND THE PRINTER
      429                            *                    SPEED IS DETERMINED AND REPORTED.
      430                            *
      431                            * 4. PRINTER LOAD TEST
      432                            *                    GENERATES A PATTERN OF AN INCREASING NUMBER OF
      433                            *                    CHARACTER 'E' EACH LINE TILL 132 POSITION PRINTED,
      434                            *                    THEN DECREASING NUMBER OF CHARACTER 'E' EACH LINE.
      435                            *
      436                            * 5. BROADSIDE PATTERN
      437                            *                    GENERATES A 64-LINE PATTERN OF ALL PRINTABLE
      438                            *                    CHARACTERS BROADSIDE.
      439                            *
      440                            * 6.SELECTABLE CHARACTER/PRINT POSITION
      441                            *                    GENERATES A SELECTABLE CHARACTER AND POSITION(S)
      442                            *                    PATTERN
      443                            *
      444                            * 7. SPACE LINE
      445                            *                    SPACE ORDERS ARE ISSUE TO EACH OF THE 15 POSSIBLE
      446                            *                    POSITIONS IN SEQUENCE.
      447                            *
      448                            * 8. CHANNEL SEARCH
      449                            *                    CHANNEL SEARCHES ARE ISSUE TO THE OPERATOR-
      450                            *                    SPECIFIED CHANNEL.
      451                            *
      452                            * 9. UTILITY TEST
      453                            *                    RUN ALL UTILITY TEST IN SEQUENCE
      454                            * 10. LINE PRINTER CLEANER                                         *A04
      455                            *                 PRINT RIPPLE PATTERN WITH INHIBIT UPSPACE        *A04
1 C00   19:44 JUN 20,'83    TELEFILE COMPREHENSIVE LINE PRINTER TEST 960-0606-H02                 PAGE    4
A     463                            *                        ***************
      464                            *                        *             *
      465                            *                        * FAULT INDEX *
      466                            *                        *             *
      467                            *                        ***************
      468                            *
      469                            *
      470                            * FAULT INDEX DESCRIPTION - FUNCTIONAL SUBTESTS
      471                            * ---------------------------------------------
      472                            * THE FAULT INDEX CONTAINS A BRIEF DESCRIPTION OF EACH FUNCTIONAL
      473                            * SUBTEST AND A LIST OF ASSOCIATED ERROR NUMBERS WITH A BRIEF
      474                            * DESCRIPTION OF EACH ERROR. THE SUBTESTS AND ERROR NUMBERS ARE ARRANGED
      475                            * IN ASCENDING SEQUENCE. THE DESCRIPTION OF SUBTEST NN IS NUMBERED NN00.
      476                            * THE FIRST TWO DIGITS OF THE ERROR NUMBER CORRESPONDS TO THE ASSOCIATED
      477                            * SUBTEST; THE LAST TWO NUMBERS CORRESPOND TO THE INDIVIDUAL ERRORS
      478                            * WITHIN THE SUBTEST.
      479                            *
      480                            * FUNCTIONAL SUBTEST DESCRIPTION
      481                            * ------------------------------
      482                            *
      483                            * THE FUNCTIONAL SUBTEST DESCRIPTIONS PRESENTED IN THE FAULT INDEX ARE
      484                            * PRESENTED TO DEFINE THE CURRENT OPERATION BEING PERFORMED FOR EACH
      485                            * SUBTEST AND TO AID IN DEFINING THE NATURE OF THE FAILURE.
      486                            *
      487                            * DESCRIPTIVE ERROR MESSAGES
      488                            * ---------------------------
      489                            * ERROR MESSAGES MAY BE PRECEDED BY DESCRIPTIVE MESSAGES WHICH QUALIFY
      490                            * THE ERROR AND AID IN FAILURE ISOLATION.
      491                            *
      492                            * TDV STATUS SETS DESCRIPTION
      493                            * ---------------------------
      494                            * REFERENCES IN THE FAULT DESCRIPTIONS TO TDV STATUS SETS ARE
      495                            * THESE STATUS SETS ARE AVAILABLE TO THE TEST PROGRAM AND ARE IN PART
      496                            * SIMILAR TO THE PRINTER MAINTENANCE PANEL INDICATORS.
      497                            *
      498                            *  MODEL 7441 AND 7442                                              *A04
      499                            *
      500                            * TDV SET 1 - NORMAL TDV STATUS     TDV SET 2 - PRINTER STATES/CONTROL
      501                            *   BIT 0 NOT USED                     BIT 0  STATE A
      502                            *   BIT 1  BUFFER PARITY ERROR         BIT 1  STATE B
      503                            *   BIT 2  PAPER LOW                   BIT 2  STATE C
      504                            *   BIT 3  TOP OF PAGE                 BIT 3  STATE D
      505                            *   BIT 4  INTERLOCK                   BIT 4  STATE E
      506                            *   BIT 5  PAPER RUNAWAY               BIT 5  PRINT COMPLETE
      507                            *   BIT 6  IO PARITY ERROR             BIT 6  BUFFER SCAN COMPLETE
      508                            *   BIT 7  HAMMER DRIVER SUPPLY LOW    BIT 7  CONTROL BYTE RECEIVED
      509                            *
      510                            * TDV SET 3 - FORMAT REGISTER       TDV SET 4 - PAPER MOTION CONTROL
      511                            *   BIT 0  SEARCH                      BIT 0  PAPDR
      512                            *   BIT 1  SPACE                       BIT 1  PSDC
      513                            *   BIT 2  INHIBIT UPSPACE             BIT 2  PAPSE
      514                            *   BIT 3  LINE MRKR CLOCK             BIT 3  LMCLK
      515                            *   BIT 4  FORMAT REG.BIT 4            BIT 4  ECLB1
      516                            *   BIT 5  FORMAT REG BIT 5            BIT 5  ECLB2
      517                            *   BIT 6  FORMAT REG BIT 6            BIT 6  EBRB1
      518                            *   BIT 7  FORMAT REG BIT 7            BIT 7  EBRB2
      519                            *
      520                            * TDV SET 5 - ADDRESS COUNTER       TDV SET 6 - 8  (UNUSED)
      521                            *   BITS 0-7  AD0-AD7
      522                            *
      523                            *  MODEL 7446
      524                            *
      525                            * TDV SET 1 - NORMAL TDV STATUS     TDV SET 2 - PRINTER STATES/CONTROL
      526                            *   BIT 0  NOT USED                    BIT 0  STATE A
      527                            *   BIT 1  RECOVERY MODE 2             BIT 1  STATE B
      528                            *   BIT 2  RECOVERY MODE 1             BIT 2  STATE C
      529                            *   BIT 3  TOP OF PAGE                 BIT 3  STATE D
      530                            *   BIT 4  BUFFER PARITY ERROR         BIT 4  STATE E
      531                            *   BIT 5  CODE DISC PARITY ERROR      BIT 5  PRINT COMPLETE
      532                            *   BIT 6  IO PARITY ERROR             BIT 6  BUFFER SCAN COMPLETE
      533                            *   BIT 7  PRINT ERROR                 BIT 7  CONTROL BYTE RECEIVED
      534                            *
      535                            * TDV SET 3 - FORMAT REGISTER       TDV SET 4 - PAPER MOTION CONTROL
      536                            *   BIT 0  SEARCH                      BIT 0  PAPER MOVE
      537                            *   BIT 1  SPACE                       BIT 1  PAPER STOP
      538                            *   BIT 2  INHIBIT UPSPACE             BIT 2  END HI SPEED BOOST
      539                            *   BIT 3  LINE MARKER CLOCK           BIT 3  END LOW SPEED BOOST
      540                            *   BIT 4  FORMAT REG BIT 4            BIT 4  END BRAKE BOOST
      541                            *   BIT 5  FORMAT REG BIT 5            BIT 5  SHIFT
      542                            *   BIT 6  FORMAT REG BIT 6            BIT 6  END FORMAT SCAN
      543                            *   BIT 7  FORMAT REG BIT 7             BIT 7  PAPER CLAMP
      544                            *
      545                            * TDV SET 5 - ADDRESS COUNTER       TDV SET 6 - VERTICAL FORMAT CHANNEL
      546                            *   BITS 0-7  AD0-AD7                  BIT 0-7  VFUCH0-VFUCH7
      547                            *
      548                            * TDV SET 7  (UNUSED)               TDV SET 8 - BUFFER OUTPUT REG
      549                            *                                      BIT 0-7  SR0-SR7
      550                            *
      551                            *  MODEL 7440/7445,3451                                             *A04
      552                            *
      553                            * TDV BIT 0    NOT USED
      554                            * TDV BIT 1    PRINT FAULT
      555                            * TDV BIT 2    PAPER LOW
      556                            * TDV BIT 3    TOP OF PAGE
      557                            * TDV BIT 4    PAPER MOVING
      558                            * TDV BIT 5    PAPER RUNAWAY
      559                            * TDV BIT 6-7  NOT USED
      560                            *
      561                            *   MODEL 7450
      562                            *
      563                            * TDV BIT 0    NOT USED
      564                            * TDV BIT 1    TYPELINE IN ODD SECTOR (ALWAYS ONE)
      565                            * TDV BIT 2    PAPER LOW
      566                            * TDV BIT 3    TOP OF PAGE
      567                            * TDV BIT 4    PAPER MOVING
      568                            * TDV BIT 5    PAPER RUNAWAY
      569                            * TDV BIT 6    PRINT ORDER EXPECTED
      570                            * TDV BIT 7    MAINTENANCE PANEL USED
      571                            *
      572                            *
      573                            *
      574                            *
      575                            * 0100 TST1,1 HIO, TIO, TDV AND AIO INSTRUCTION RECOGNITION (7440/7445,
      576                            *      7441,7446,7450). HIO, TIO, TDV AND AIO INSTR. ARE ISSUED AND
      577                            *      --------------- CONDITION CODES, STATUS TESTED.
      578                            *
      579                            * 0101 HIO INSTR. COND. CODES OR STATUS ERROR.
      580                            *
      581                            * 0102 TIO INSTR. COND. CODES OR STATUS ERROR.
      582                            *
      583                            * 0103 TDV INSTR. COND. CODES OR STATUS ERROR.
      584                            *
      585                            * 0104 AIO INSTR. COND. CODE ERROR. EXPECT NO INTERRUPT RECOGNITION.
      586                            *
      587                            * 0200 TST1,2 SIO INVALID ORDER (7440/7445,7441,7446,7450). SIO IS
      588                            *      ------ --------------------------------------------- ISSUED WITH
      589                            *      ALL INVALID ORDERS AND CONTR. TESTED FOR UNUSUAL END.
      590                            *
      591                            * 0201 SIO INSTR. COND. CODES NOT 00 AS EXPECTED.
      592                            *
      593                            * 0202 SIO INSTR. STATUS ERROR.
      594                            *
      595                            * 0203 TIO INSTR. INDICATES CONTR. BUSY 50 USEC AFTER SIO. EXPECT UE.
      596                            *
      597                            * 0204 TIO INSTR. INDICATES STATUS ERROR AFTER SIO (INVALID ORDER).
      598                            *      EXPECTED UE, CONTR. NOT BUSY.
      599                            *
      600                            * 0205 TIO INSTR. TERMINAL BYTE COUNT NOT = 1 INDICATING CONTR.
      601                            *      ACCEPTED ONE BYTE FOR INVALID ORDER.
      602                            *
      603                            * 0300 TST1,3 TEST MODE SELECTION. (7441,7446) SIO ISSUED TO SELECT AND
      604                            *      ------ -------------------------------- RESET CONTROLLER TEST
      605                            *      MODE. TDV IS USED TO VERIFY TEST MODE (CC2=1 - TEST MODE).
      606                            *
      607                            * 0301 SIO INSTR. COND. CODE OR STATUS ERROR.
      608                            *
      609                            * 0302 TIO INSTR. INDICATES CONTR. BUSY BEYOND NORMAL TERMINATION TIME
      610                            *      FOR SELECT TEST MODE ORDER.
      611                            *
      612                            * 0303 TIO INSTR. INDICATES CONTR. TERMINATED WITH UE FOR SELECT TEST
      613                            *      MODE ORDER.
      614                            *
      615                            * 0304 TIO INSTR. INDICATES STATUS ERROR AFTER SELECT TEST MODE ORDER.
      616                            *
      617                            * 0305 TEST MODE BYTE NOT ACCEPTED BY CONTR.
      618                            *
      619                            * 0306 TEST MODE BYTE DISTURBED BY CONTR DATA IN OPERATION. EXPECTED
      620                            *      DATA OUT (ONE BYTE) OPERATION.
      621                            *
      622                            * 0307 TDV COND. CODES NOT 01. EXPECTED CC1,2=01 (TEST MODE SELECTED).
      623                            *
      624                            * 0308 SIO INSTR. COND. CODE OR STATUS ERROR WHILE CONTR. IN TEST MODE
      625                            *
      626                            * 0309  TIO INDICATES COND. CODE OR STATUS ERROR FOR RESET TEST MODE
      627                            *       ORDER.
      628                            *
      629                            * 0310  TDV COND. CODES NOT 00 INDICATING RESET TEST MODE ORDER NOT
      630                            *       PERFORMED CORRECTLY. EXPECTED CC1,2=00.
      631                            *
      632                            * 0400 TST1,4 INTERRUPT GENERATION AND HIO, AIO INSTR. RESETING (7441,
      633                            *      7446)- --------------------------------------------------------
      634                            *      ----- THE FOLLOWING ORDERS ARE ISSUED: X'07',X'07',AND X'00' IN
      635                            *      ORDER TO TEST THE GENERATION OF ICE,IZC AND IUE. AIO AND HIO
      636                            *      INSTR. ARE ISSUED TO TEST THE INTERRUPT CLEARING.
      637                            *
      638                            * 0401 TIO INSTR. INDICATES IP STATUS NOT PRESENT AFTER X'07' ORDER
      639                            *      WITH ICE FLAG SET.
      640                            *
      641                            * 0402 TIO INSTR. COND. CODE OR STATUS ERROR AFTER X'07' ORDER ISSUED
      642                            *      WITH ICE FLAG SET.
      643                            *
      644                            * 0403 AIO INSTR. COND. CODE, STATUS OR DEVICE ADDRESS ERROR FOLLOWING
      645                            *      A X'07' ORDER RAISING IP.
      646                            *
      647                            * 0404 HIO INSTR. DID NOT CLEAR IP IN CONTR.
      648                            *
      649                            * 0405 TIO INSTR. INDICATES IP NOT SET BY X'07' ORDER WITH IZC FLAG
      650                            *      SET.
      651                            *
      652                            * 0406 TIO INSTR. COND. CODE OR STATUS ERROR AFTER X'07' ORDER WITH
      653                            *      IZC FLAG SET.
      654                            *
      655                            * 0407 AIO INSTR. COND. CODE, STATUS OR DEVICE ADDRESS ERROR AFTER
      656                            *      X'07' ORDER WITH IZC FLAG SET.
      657                            *
      658                            * 0408 AIO OR HIO INSTR. DID NOT RESET IP STATUS IN CONTR.
      659                            *
      660                            * 0409 TIO INDICATES X'00' ORDER WITH IUE FLAG SET DID NOT SET IP
      661                            *      IN CONTR.
      662                            *
      663                            * 0410 TIO INDICATES COND. CODE OR STATUS ERROR AFTER X'00' ORDER WITH
      664                            *      IUE FLAG SET.
      665                            *
      666                            * 0411 AIO COND. CODE, STATUS OR DEVICE ADDRESS ERROR AFTER X'00'ORDER
      667                            *      WITH IUE FLAG SET.
      668                            *
      669                            * 0412 TIO INDICATES NO UE STATUS FOR X'00' ORDER.
      670                            *
      671                            * 0413 TIO COND. CODE OR STATUS ERROR AFTER AIO OR HIO ISSUED WITH
      672                            *      IP STATUS PRESENT.
      673                            *
      674                            * 0414 AIO DID NOT RESET IP STATUS IN CONTR.
      675                            *
      676                            * 0500 TST1,5 DATA TRANSMISSION COMPLETE INTERRUPT (7441,7446). A TEST
      677                            *      ------ ------------------------------------------------- MODE
      678                            *      ORDER WITH DTC FLAG (X'47') IS USED TO VERIFY DATA TRANSMISSION
      679                            *      COMPLETE INTERRUPT GEN.
      680                            *
      681                            * 0501 DATA TRANSMISSION COMPLETE INTERRUPT NOT GENERATED.
      682                            *
      683                            * 0502 TIO INDICATES COND. CODE OR STATUS ERROR FOR X'47' ORDER.
      684                            *      EXPECTED IP STATUS.
      685                            *
      686                            * 0503 AIO COND. CODE, STATUS OR DEVICE ADDRESS ERROR AFTER DCT
      687                            *      INTERRUPT GENERATED IN CONTR. EXPECTED AIO STATUS BIT 1 SET.
      688                            *
      689                            * 0600 TST1,6 IO INTERRUPT (7441,7446). TEST MODE ORDERS ARE ISSUED WITH
      690                            *      ------ ------------------------- ICE,IZC AND IUE FLAGS TO VERIFY
      691                            *      THE INTERRUPTS ARE RECEIVED BY THE IOP AND CPU.
      692                            *
      693                            * 0601 INTERRUPT NOT RECEIVED BY CPU.
      694                            *
      695                            * 0602 TIO STATUS ERROR AFTER CPU RECEIVED INTERRUPT FROM CONTR.
      696                            *
      697                            * 0603 AIO COND. CODE, STATUS OR DEVICE ADDRESS ERROR AFTER INTERRUPT
      698                            *      RECEIVED BY CPU.
      699                            *
      700                            * 0604 TIO INDICATES HIO DID NOT RESET IP IN CONTR.
      701                            *
      702                            * 0605 AIO COND. CODE, STATUS OR DEVICE ADDRESS ERROR AFTER INTERRUPT
      703                            *      RECEIVED BY CPU.
      704                            *
      705                            * 0606 TIO INDICATES HIO DID NOT RESET IP STATUS IN CONTR.
      706                            *
      707                            * 0607 AIO COND. CODE, STATUS OR DEVICE ADDRESS ERROR AFTER INTERRUPT
      708                            *      RECEIVED BY CPU.
      709                            *
      710                            * 0608 TIO INDICATES HIO DID NOT RESET IP IN CONTR.
      711                            *
      712                            * 0700 TST1,7 COMMAND CHAINING. (7441,7446) TWO TEST MODE ORDERS ARE
      713                            *      ------ ----------------------------- COMMAND CHAINED AND
      714                            *      CHAINING VERIFIED. INVALID ORDER COMMAND CHAINED TO TEST MODE
      715                            *      ORDER IS TESTED FOR COMMAND CHAIN TERMINATION AFTER THE INVALID
      716                            *      ORDER.
      717                            *
      718                            * 0701 TIO INDICATES CONTR BUSY BEYOND NORMAL TERMINATION TIME FOR
      719                            *      COMMAND CHAIN OPERATION.
      720                            *
      721                            * 0702 TIO INDICATES STATUS ERROR DURING COMMAND CHAINING OPERATION.
      722                            *
      723                            * 0703 TIO INDICATES OPERATIONAL STATUS ERROR FOLLOWING COMMAND CHAIN
      724                            *      OPERATION.
      725                            *
      726                            * 0704 BYTE COUNT NOT 0 FOLLOWING COMMAND CHAINING OPERATION.
      727                            *
      728                            * 0705 TIO INDICATES COMMAND CHAINING TERMINATED WITH FIRST IOCD
      729                            *      INSTEAD OF SECOND IOCD.
      730                            *
      731                            * 0706 CONTR. BUSY WITH INVALID ORDER.
      732                            *
      733                            * 0707 TIO INDICATES UE NOT GENERATED FOR INVALID ORDER.
      734                            *
      735                            * 0708 TIO STATUS ERROR FOLLOWING INVALID ORDER COMMAND CHAINED TO
      736                            *      TEST MODE ORDER.
      737                            *
      738                            * 0709 TERMINAL BYTE COUNT NOT 0 FOLLOWING AN INVALID ORDER COMMAND
      739                            *      CHAINED TO TEST MODE ORDER.
      740                            *
      741                            * 0710 COMMAND CHAINING NOT TERMINATED BY UE OF INVALID ORDER.
      742                            *
      743                            * 1100 TST1,11 STATE PROGRESSION - PRINT ORDER (TEST MODE)(7441,7446).
      744                            *      ------- -------------------------------------------------------
      745                            *      A PRINT ORDER (X'01') IS ISSUED IN TEST MODE AND TDV INSTR. USED
      746                            *      TO STEP THE CONTR. THRU STATES A,B,A. TDV SET 2 VERIFIES THE
      747                            *      STATE PROGRESSION. PRINT,BUFFER CLEARING AND PAPER MOTION IS
      748                            *      INHIBITED.
      749                            *
      750                            * 1101 TEST MODE SELECTION ERROR. EXPECTED TDV CC1,2=01.
      751                            *
      752                            * 1102 TDV SET 2 INDICATES CONTR. NOT IN QUIESCENT STATE A.
      753                            *
      754                            * 1103 SIO COND. CODE OR STATUS ERROR FOR PRINT ORDER.
      755                            *
      756                            * 1104 SIO FOR PRINT ORDER ACCEPTED BUT TIO STATUS DOES NOT INDICATE
      757                            *      DEVICE, CONTR. BUSY.
      758                            *
      759                            * 1105 TIO DEVICE AND CONTROLLER STATUS INCONSISTANT. EXPECTED
      760                            *      DEVICE, CONTR BUSY FOR PRINT ORDER (STATE PROGRESSION).
      761                            *
      762                            * 1106 TIO STATUS ERROR DURING A PRINT ORDER (STATE PROGRESSION).
      763                            *      EXPECTED CONTR.,DEVICE BUSY.
      764                            *
      765                            * 1107 TDV SET 2 INCONSISTANT. EXPECTED CONTR. IN STATE B FOLLOWING
      766                            *      A DATA OUT (ONE BYTE) PHASE.
      767                            *
      768                            * 1108 TDV SET 2 INDICATES CONTR. DID NOT PROGRESS FROM STATE A TO
      769                            *      STATE B FOR A PRINT ORDER (ONE BYTE TRANSFER).
      770                            *
      771                            * 1109 TDV SET 2 INCONSISTANT. EXPECTED STATE A FOLLOWING A DATA OUT
      772                            *      PHASE (ONE BYTE) IN STATE B.
      773                            *
      774                            * 1110 TDV SET 2 INDICATES CONTR. DID NOT RETURN TO STATE A FOLLOWING
      775                            *      A DATA OUT PHASE (ONE BYTE) IN STATE B.
      776                            *
      777                            * 1111 TIO STATUS ERROR FOLLOWING A PRINT ORDER (STATE PROGRESSION).
      778                            *
      779                            * 1112 TERMINAL BYTE COUNT NOT 0 INDICATING DATA BYTE NOT TAKEN
      780                            *      WHILE CONTR IN DATA OUT STATE B.
      781                            *
      782                            * 1113 TDV SET 2 INCONSISTANT. EXPECTED CONTR. IN STATE A FOLLOWING
      783                            *      AN ORDER OUT PHASE.
      784                            *
      785                            * 1114 TDV SET 2 INDICATES CONTR NOT IN STATE A FOLLOWING AN ORDER
      786                            *      OUT PHASE.
      787                            *
      788                            * 1200 TST1,12 STATE PROGRESSION-FORMAT ORDER(TEST MODE)(7441,7446). A
      789                            *      ------- -------------------------------------------------- FORMAT
      790                            *      ORDER (X'03') IS ISSUED IN TEST MODE AND TDV INSTRUCTIONS USED
      791                            *      TO STEP THE CONTR. THRU STATES A,D,E,A. TDV SET 2 VERIFIES THE
      792                            *      STATE PROGRESSION. PRINTING,BUFFER CLEARING AND PAPER MOTION
      793                            *      IS INHIBITED.
      794                            *
      795                            * 1201 TEST MODE SELECTION ERROR. EXPECTED TDV CC1,2=01.
      796                            *
      797                            * 1202 TDV SET 2 INDICATES CONTR.NOT IN QUIESCENT STATE A.
      798                            *
      799                            * 1203 SIO STATUS ERROR FOR FORMAT ORDER.
      800                            *
      801                            * 1204 TDV SET 2 INDICATES CONTR. NOT IN STATE A FOLLOWING AN ORDER
      802                            *      OUT PHASE.
      803                            *
      804                            * 1205 TDV SET 2 INDICATES CONTROL BYTE (FORMAT BYTE) NOT RECEIVED
      805                            *      WHILE CONTR. IN STATE D. EXPECTED TDV BIT 3,7 SET.
      806                            *
      807                            * 1206 TDV SET 2 INDICATES CONTR.DID NOT PROGRESS FROM STATE D (DATA
      808                            *      OUT PHASE,ONE BYTE) TO STATE E (PAPER MOTION INHIBITED).
      809                            *
      810                            * 1208 TDV SET 2 INDICATES CONTR. DID NOT PROGRESS FROM STATE E
      811                            *      (PAPER MOTION INHIBITED) TO STATE A (ORDER IN PHASE).
      812                            *
      813                            * 1207 TDV SET 2 INCONSISTANT. EXPECTED STATE A (ORDER IN PHASE)
      814                            *      FOLLOWING STATE E (PAPER MOTION INHIBITED).
      815                            *
      816                            * 1209 TIO STATUS ERROR FOLLOWING A FORMAT ORDER.
      817                            *
      818                            * 1210 TIO INDICATES CONTR. BUSY AFTER A FORMAT ORDER. EXPECTED
      819                            *      CONTR. READY AND NO PAPER MOTION.
      820                            *
      821                            * 1211 TERMINAL BYTE COUNT NOT 0 FOR A FORMAT ORDER INDICATING CONTR.
      822                            *      DID NOT ACCEPT FORMAT BYTE WHILE IN STATE D.
      823                            *
      824                            * 1212 TDV SET 2 INDICATES CONTR. DID NOT PROGRESS FROM STATE A (ORDER
      825                            *      OUT PHASE) TO STATE D (DATA OUT PHASE, ONE BYTE).
      826                            *
      827                            * 1300 TST1,13 STATE PROGRESSION-PRINT W FORMAT ORDER(TEST MODE)(7441,
      828                            *      7446) ---------------------------------------------------------
      829                            *      A PRINT WITH FORMAT ORDER (X'05') IS ISSUED IN TEST MODE AND
      830                            *      TDV INSTRUCTIONS USED TO STEP THE CONTROLLER THRU STATES A,D,
      831                            *      E,B,A. TDV SET 2 VERIFIES THE STATE PROGRESSION. PRINTING,
      832                            *      BUFFER CLEARING AND PAPER MOTION IS INHIBITED.
      833                            *
      834                            * 1301 TEST MODE SELECTION ERROR. EXPECTED TDV CC1,2=01.
      835                            *
      836                            * 1302 TDV SET 2 INDICATES CONTR. NOT IN QUIESCENT STATE A.
      837                            *
      838                            * 1303 SIO STATUS ERROR FOR PRINT WITH FORMAT ORDER.
      839                            *
      840                            * 1304 TDV SET 2 INDICATES CONTR. NOT IN STATE A (ORDER OUT PHASE).
      841                            *
      842                            * 1305 TDV SET 2 INDICATES CONTR. DID NOT RECEIVE CONTROL BYTE (FORMAT
      843                            *      BYTE) WHILE IN STATE D.
      844                            *
      845                            * 1306 TDV SET 2 INDICATES CONTR. DID NOT PROGRESS FROM STATE D (DATA
      846                            *      OUT,FORMAT BYTE) TO STATE E (PAPER MOTION INHIBITED).
      847                            *
      848                            * 1307 TDV SET 2 INDICATES CONTR. DID NOT PROGRESS FROM STATE E TO
      849                            *      STATE B (DATA OUT, ONE CHARACTER).
      850                            *
      851                            * 1308 TDV SET 2 INDICATES CONTR. DID NOT PROGRESS FROM STATE B (DATA
      852                            *      OUT, ONE CHARACTER) TO STATE A (ORDER IN).
      853                            *
      854                            * 1309 TIO STATUS ERROR AFTER PRINT WITH FORMAT ORDER.
      855                            *
      856                            * 1310 CONTR. BUSY IN STATE A (ORDER IN PHASE).
      857                            *
      858                            * 1311 TERMINAL BYTE COUNT NOT 0 INDICATING FORMAT BYTE NOT ACCEPTED
      859                            *      IN STATE D.
      860                            *
      861                            * 1312 TDV SET 2 INDICATES CONTR. DID NOT PROGRESS FROM STATE A (ORDER
      862                            *      OUT) TO STATE D (DATA OUT, FORMAT BYTE).
      863                            *
      864                            * 1500 TST1,15 PRINT ORDER(TEST MODE)(7441,7446). PRINT ORDERS ARE ISSUE
      865                            *      ---------------------------------- IN TEST MODE (BUFFER CLEARING,
      866                            *      PRINTING AND PAPER MOTION INHIBITED) WITH FROM ONE THRU 133
      867                            *      BYTES TRANSFERRED. TERMINAL STATUS IS VERIFIED.
      868                            *
      869                            * 1501 TEST MODE SELECTION ERROR. EXPECTED TDV CC1,2=01.
      870                            *
      871                            * 1502 SIO STATUS ERROR FOR PRINT ORDER.
      872                            *
      873                            * 1503 CONTR BUSY AFTER NORMAL TERMINATION TIME FOR PRINT ORDER
      874                            *      WITH INDICATED BYTE COUNT.
      875                            *
      876                            * 1504 TIO STATUS ERROR AFTER PRINT ORDER WITH INDICATED BYTE COUNT.
      877                            *
      878                            * 1505 CONTR. TERMINATED PRINT ORDER WITH UE.
      879                            *
      880                            * 1506 IOP ERROR FOR PRINT ORDER WITH BYTE COUNT = 132.
      881                            *
      882                            * 1508 OPERATIONAL STATUS ERROR FOR PRINT ORDER WITH BYTE COUNT =132.
      883                            *
      884                            * 1507 IL STATUS SET FOR PRINT ORDER WITH BYTE COUNT = 132.
      885                            *
      886                            * 1509 TDV SET 1 INDICATES AN IO PARITY ERROR DETECTED BY CONTR.
      887                            *      DURING A PRINT ORDER WITH X'A5' CHARACTERS TRANSFERRED.
      888                            *
      889                            * 1510 TDV SET 1 INDICATES BUFFER PARITY ERROR DETECTED BY CONTR.
      890                            *      DURING A PRINT ORDER WITH X'A5' CHARACTERS TRANSFERRED.
      891                            *
      892                            * 1512 TERMINAL BYTE COUNT FOR PRINT ORDER NOT 0.
      893                            *
      894                            * 1513 IL NOT SET BY CONTR. FOR PRINT ORDER WITH BYTE COUNT UNEQUAL
      895                            *      132 BYTES.
      896                            *
      897                            * 1514 IOP STATUS ERROR INDICATED FOR PRINT ORDER.
      898                            *
      899                            * 1515 OPERATIONAL STATUS ERROR FOR PRINT ORDER WITH BYTE COUNT
      900                            *      UNEQUAL TO 132.
      901                            *
      902                            * 1600 TST1,16 PRINT W FORMAT ORDER(TEST MODE)(7441,7446). PRINT W
      903                            *      ------- ------------------------------- FORMAT ORDERS ARE ISSUED
      904                            *      IN TEST MODE (BUFFER CLEARING,PRINTING AND PAPER MOTION
      905                            *      INHIBITED) WITH FROM ONE THRU 133 BYTES TRANSFERED. TERMINAL
      906                            *      STATUS IS VERIFIED.
      907                            *
      908                            * 1601 TEST MODE SELECTION ERROR. EXPECTED TDV CC1,2=01.
      909                            *
      910                            * 1602 SIO STATUS ERROR FOR PRINT W FORMAT ORDER.
      911                            *
      912                            * 1603 CONTR. BUSY BEYOND NORMAL TERMINATION TIME FOR PRINT W FORMAT
      913                            *      ORDER.
      914                            *
      915                            * 1604 TIO STATUS ERROR AFTER PRINT WITH FORMAT ORDER WITH INDICATED
      916                            *      BYTE COUNT.
      917                            *
      918                            * 1605 CONTR. TERMINATED PRINT W FORMAT ORDER WITH UE.
      919                            *
      920                            * 1606 IOP ERROR AFTER PRINT W FORMAT ORDER WITH BYTE COUNT =132.
      921                            *
      922                            * 1607 OPERATIONAL STATUS ERROR AFTER PRINT W FORMAT ORDER WITH BYTE
      923                            *      COUNT = 133.
      924                            *
      925                            * 1608 IL STATUS INDICATED BY CONTR. FOR A PRINT W  FORMAT ORDER WITH
      926                            *      BYTE COUNT = 133.
      927                            *
      928                            * 1609 TDV SET 1 INDICATES CONTR. DETECTED A BUFFER PARITY ERROR
      929                            *      FOR A PRINT W FORMAT ORDER WITH X'A5' BYTES TRANSFERRED.
      930                            *
      931                            * 1610 TDV SET 1 INDICATES CONTR. DETECTED AN IO PARITY ERROR FOR A
      932                            *      PRINT W FORMAT ORDER WITH X'A5' BYTES TRANSFERED.
      933                            *
      934                            * 1611 IL NOT SET BY CONTR. FOR A PRINT W FORMAT ORDER WITH BYTE COUNT
      935                            *      UNEQUAL TO 133.
      936                            *
      937                            * 1612 IOP STATUS ERROR FOR PRINT W FORMAT ORDER.
      938                            *
      939                            * 1613 OPERATIONAL STATUS ERROR FOR PRINT W FORMAT ORDER.
      940                            *
      941                            * 1614 TERMINAL BYTE COUNT NOT 0 FOR A PRINT W FORMAT ORDER.
      942                            *
      943                            * 1700 TST1,17 FORMAT ORDER(TEST MODE). (7441,7446) FORMAT ORDERS ARE
      944                            *      ------- ----------------------- ISSUED IN TEST MODE (PAPER MOTION
      945                            *      INHIBIT) WITH BYTE COUNTS OF ONE THRU 10. TERMINAL STATUS IS
      946                            *      VERIFIED.
      947                            *
      948                            * 1701 TEST MODE SELECTION ERROR. EXPECTED TDV CC1,2=01.
      949                            *
      950                            * 1702 SIO STATUS ERROR FOR FORMAT ORDER.
      951                            *
      952                            * 1703 CONTR. BUSY BEYOND NORMAL TERMINATION TIME FOR FORMAT ORDER.
      953                            *
      954                            * 1704 TIO INDICATES STATUS ERROR FOR FORMAT ORDER WITH BYTE COUNT >1.
      955                            *
      956                            * 1705 TIO INDICATES UE NOT RECEIVED FOR FORMAT ORDER WITH BYTE
      957                            *      COUNT >1.
      958                            *
      959                            * 1706 IOP ERROR FOR FORMAT ORDER.
      960                            *
      961                            * 1707 OPERATIONAL STATUS ERROR FOR FORMAT ORDER WITH BYTE COUNT = 1.
      962                            *
      963                            * 1708 IL STATUS SET BY CONTR. FOR FORMAT ORDER WITH BYTE COUNT = 1.
      964                            *
      965                            * 1709 TDV SET 1 INDICATES IO PARITY ERROR DETECTED FOR FORMAT ORDER
      966                            *      WITH X'C1' BYTE.
      967                            *
      968                            * 1710 TDV SET 1 INDICATES BUFFER PARITY ERROR FOR FORMAT ORDER.
      969                            *
      970                            * 1711 IL STATUS NOT SET BY CONTR. FOR FORMAT ORDER WITH BYTE COUNT
      971                            *      GREATER THAN ONE.
      972                            *
      973                            * 1712 IOP STATUS ERROR FOR FORMAT ORDER WITH BYTE COUNT GREATER THAN
      974                            *      ONE.
      975                            *
      976                            * 1713 OPERATIONAL STATUS ERROR FOR FORMAT ORDER WITH BYTE COUNT
      977                            *      GREATER THAN ONE.
      978                            *
      979                            * 1714 CONTR. ACCEPTED MORE THAN ONE BYTE FOR A FORMAT ORDER WITH
      980                            *      BYTE COUNT GREATER THAN ONE.
      981                            *
      982                            * 1715 TIO STATUS ERROR AFTER FORMAT ORDER WITH BYTE COUNT = 1. CONTR.
      983                            *      READY AND NO UE EXPECTED.
      984                            *
      985                            * 2000 TST1,20 ADDRESS COUNTER-PRINT ORDER(TEST MODE)(7441,7446). PRINT
      986                            *      ------- --------------------------------------- ORDERS ARE ISSUED
      987                            *      IN TEST MODE (BUFFER CLEARING,PRINTING AND PAPER MOTION
      988                            *      INHIBITED) WITH BYTE COUNTS OF ONE THRU 132. TDV SET 5 VERIFIES
      989                            *      THE INCREMENTING OF THE CHARACTER BUFFER ADDRESS COUNTER.
      990                            *
      991                            * 2001 TEST MODE SELECTION ERROR. EXPECTED TDV CC1,2=01.
      992                            *
      993                            * 2002 STATUS ERROR AFTER PRINT ORDER WITH BYTE COUNT = 132.
      994                            *
      995                            * 2003 TDV SET 5 INDICATES ADDRESS COUNTER IS NOT INCREMENTING. SEE
      996                            *      PRINTOUT.
      997                            *
      998                            * 2004 TDV SET 5 INDICATES ADDRESS COUNTER IS NOT INCREMENTING
      999                            *      CORRECTLY FOR A PRINT ORDER. SEE PRINTOUT.
     1000                            *
     1001                            * 2100 TST1,21 ADDRESS COUNTER-PRINT W FORMAT ORDER(TEST MODE)(7441,
     1002                            *      7446).  -----------------------------------------------------
     1003                            *      PRINT W FORMAT ORDERS ARE ISSUED IN TEST MODE (BUFFER CLEARING,
     1004                            *      PRINTING AND PAPER MOTION INHIBITED) WITH BYTE COUNTS OF ONE
     1005                            *      THRU 133. TDV SET 5 VERIFIES THE INCREMENTING OF THE CHARACTER
     1006                            *      BUFFER ADDRESS COUNTER.
     1007                            *
     1008                            * 2101 TEST MODE SELECTION ERROR. EXPECTED TDV CC1,2=01.
     1009                            *
     1010                            * 2102 STATUS ERROR FOR PRINT W FORMAT ORDER.
     1011                            *
     1012                            * 2103 TDV SET 5 INDICATES ADDRESS COUNTER NOT INCREMENTING FOR A
     1013                            *      PRINT W FORMAT ORDER.
     1014                            *
     1015                            * 2104 TDV SET 5 INDICATES ADDRESS COUNTER NOT INCREMENTING CORRECTLY
     1016                            *      FOR A PRINT W FORMAT ORDER. SEE PRINTOUT.
     1017                            *
     1018                            * 2200 TST1,22 ADDRESS COUNTER-FORMAT ORDER(TEST MODE)(7441,7446) FORMAT
     1019                            *      ------- ---------------------------------------------- ORDERS ARE
     1020                            *      ISSUED IN TEST MODE (PAPER MOTION INHIBITED) WITH BYTE COUNTS
     1021                            *      OF ONE THRU 10. TDV SET 5 VERIFIES THAT THE CHARACTER BUFFER
     1022                            *      ADDRESS COUNTER DOES NOT INCREMENT DURING THE FORMAT ORDER
     1023                            *
     1024                            * 2201 TEST MODE SELECTION ERROR. EXPECTED TDV CC1,2=01.
     1025                            *
     1026                            * 2203 STATUS ERROR FOR FORMAT ORDER.
     1027                            *
     1028                            * 2204 TDV SET 5 INDICATES ADDRESS COUNTER NOT AT X'00' CONFIGURATION
     1029                            *      AFTER A FORMAT ORDER.
     1030                            *
     1031                            * 2205 STATUS ERROR FOR FORMAT ORDER WITH BYTE COUNT > 1.
     1032                            *
     1033                            * 2300 TST1,23 SENSE CHARACTER BUFFER ORDER(TEST MODE)(7441,7446). SENSE
     1034                            *      ------- ----------------------------------------------- CHARACTER
     1035                            *      BUFFER ORDERS ARE ISSUED IN TEST MODE WITH BYTE COUNTS OF ONE
     1036                            *      THRU 132. TERMINAL STATUS IS TESTED AND ALL SENSE BYTES
     1037                            *      (CHARACTER BUFFER CONTENTS) ARE VERIFIED TO BE X'00'.
     1038                            *
     1039                            * 2301 TEST MODE SELECTION ERROR. EXPECTED TDV CC1,2=01.
     1040                            *
     1041                            * 2302 SIO STATUS ERROR FOR SENSE ORDER.
     1042                            *
     1043                            * 2303 CONTR BUSY BEYOND NORMAL TERMINATION TIME FOR A SENSE CHARACTER
     1044                            *      BUFFER ORDER.
     1045                            *
     1046                            * 2304 TIO STATUS INDICATES CONTR. TERMINATED SENSE CHARACTER BUFFER
     1047                            *      ORDER WITH UE.
     1048                            *
     1049                            * 2305 TIO STATUS ERROR FOR SENSE CHARACTER BUFFER ORDER.
     1050                            *
     1051                            * 2306 IOP ERROR FOR SENSE CHARACTER BUFFER ORDER.
     1052                            *
     1053                            * 2307 IL STATUS SET FOR SENSE CHARACTER BUFFER ORDER.
     1054                            *
     1055                            * 2308 OPERATIONAL STATUS ERROR FOR SENSE CHARACTER BUFFER ORDER.
     1056                            *
     1057                            * 2309 TERMINAL BYTE COUNT FOR SENSE CHARACTER BUFFER NOT = 0.
     1058                            *
     1059                            * 2310 SENSED CHARACTER BUFFER BYTES NOT ALL X'00'. SEE PRINTOUT.
     1060                            *
     1061                            * 2400 TST1,24 CHARACTER BUFFER-DATA(TEST MODE)(7441,7446). PRINT ORDERS
     1062                            *      ------- -------------------------------- ARE ISSUED IN TEST
     1063                            *      MODE (BUFFER CLEARING, PRINTING AND PAPER MOTION INHIBITED) WITH
     1064                            *      BYTE COUNTS OF 132 AND DATA BYTES OF X'00' THRU X'FF'. SENSE
     1065                            *      CHARACTER BUFFER ORDERS ARE USED TO VERIFY THE CONTENTS OF THE
     1066                            *      CHARACTER BUFFER (CHARACTER BITS 2-7 ONLY).
     1067                            *
     1068                            * 2401 TEST MODE SELECTION ERROR. EXPECTED TDV CC1,2=01.
     1069                            *
     1070                            * 2402 STATUS ERROR FOR PRINT ORDER WITH BYTE COUNT = 132.
     1071                            *
     1072                            * 2403 STATUS ERROR FOR SENSE CHARACTER BUFFER ORDER WITH BYTE COUNT
     1073                            *      OF 132.
     1074                            *
     1075                            * 2404 CHARACTER BUFFER CONTENTS INCORRECT. SEE PRINTOUT.
     1076                            *
     1077                            * 2500 TST1,25 CHARACTER BUFFER-PARITY(TEST MODE)(7441,7446). PRINT
     1078                            *      ------- ------------------------------ ORDERS ARE ISSUED IN TEST
     1079                            *      MODE (BUFFER CLEARING, PRINTING AND PAPER MOTION INHIBITED)
     1080                            *      WITH BYTE COUNTS OF 132 AND DATA BYTES OF X'00' THRU X'FF'.
     1081                            *      SENSE CHARACTER BUFFER ORDERS ARE USED TO VERIFY THE CONTENTS
     1082                            *      OF THE CHARACTER BUFFER INCLUDING ODD PARITY.
     1083                            *
     1084                            * 2501 TEST MODE SELECTION ERROR. EXPECTED TDV CC1,2=01.
     1085                            *
     1086                            * 2502 STATUS ERROR FOR PRINT ORDER WITH BYTE COUNT = 132.
     1087                            *
     1088                            * 2503 STATUS ERROR FOR SENSE CHARACTER BUFFER ORDER WITH BYTE COUNT
     1089                            *      OF 132.
     1090                            *
     1091                            * 2504 CHARACTER BUFFER PARITY FAILURE. SEE PRINTOUT.
     1092                            *
     1093                            * 2600 TST1,26 CHARACTER BUFFER-BYTE POSITIONING(TEST MODE)(7441,7446).
     1094                            *      ------- --------------------------------------------------------
     1095                            *      PRINT ORDERS ARE ISSUED IN TEST MODE (BUFFER CLEARING, PRINTING
     1096                            *      AND PAPER MOVEMENT INHIBITED) WITH BYTE COUNTS OF 132. EACH
     1097                            *      DATA PATTERN OF X'40' (BLANK) CHARACTERS CONTAINS ONE X'FF'
     1098                            *      CHARACTER SEQUENTIALLY, THEN RANDOMLY PLACED IN THE PATTERN.
     1099                            *      SENSE CHARACTER BUFFER ORDES ARE USED TO VERIFY CHARACTER
     1100                            *      BUFFER CONTENTS.
     1101                            *
     1102                            * 2601 TEST MODE SELECTION ERROR. EXPECTED TDV CC1,2=01.
     1103                            *
     1104                            * 2602 STATUS ERROR FOR PRINT ORDER WITH BYTE COUNT = 132.
     1105                            *
     1106                            * 2603 STATUS ERROR FOR SENSE CHARACTER BUFFER ORDER WITH BYTE COUNT
     1107                            *      OF 132.
     1108                            *
     1109                            * 2604 CHARACTER BUFFER FAILURE IN CHARACTER POSITIONING. SEE
     1110                            *      PRINTOUT.
     1111                            *
     1112                            * 2700 TST1,27 CHARACTER BUFFER-BLANKS(TEST MODE)(7441,7446). A PRINT
     1113                            *      ------- ---------------------------------- ORDER IS ISSUE IN TEST
     1114                            *      MODE (BUFFER CLEARING,PRINTING AND PAPER MOTION INHIBITED) WITH
     1115                            *      BYTE COUNT OF 132 AND DATA PATTERN OF X'40' CHARACTERS. A SENSE
     1116                            *      CHARACTER BUFFER ORDER IS USED TO VERIFY THE CHARACTER BUFFER
     1117                            *      CONTAINS X'00' BYTES.
     1118                            *
     1119                            * 2701 TEST MODE SELECTION ERROR. EXPECTED TDV CC1,2=01.
     1120                            *
     1121                            * 2702 STATUS ERROR FOR PRINT ORDER WITH BYTE COUNT OF 132.
     1122                            *
     1123                            * 2703 STATUS ERROR FOR SENSE CHARACTER BUFFER ORDER WITH BYTE COUNT
     1124                            *      OF 132.
     1125                            *
     1126                            * 2704 CHARACTER BUFFER CONTENTS NOT X'00'. SEE PRINTOUT.
     1127                            *
     1128                            * 3100 TST1,31 FORMAT REGISTER-FORMAT ORDER(TEST MODE)(7441,7446) FORMAT
     1129                            *      ------- ------------------------------------------- ORDERS ARE
     1130                            *      ISSUED IN TEST MODE (PAPER MOTION INHIBITED) WITH FORMAT BYTES
     1131                            *      OF X'00' THRU X'FF'. TDV SET 3 IS USED TO VERIFY THE FORMAT
     1132                            *      REGISTER AND PAPER MOTION CONTROL VALUES.
     1133                            *
     1134                            * 3101 TEST MODE SELECTION ERROR. EXPECTED TDV CC1,2=01.
     1135                            *
     1136                            * 3102 SIO STATUS ERROR FOR FORMAT ORDER.
     1137                            *
     1138                            * 3103 STATUS ERROR FOR FORMAT ORDER WITH BYTE COUNT=1.
     1139                            *
     1140                            * 3104 TDV SET 3 INDICATES FORMAT REGISTER CONTENTS AND/OR PAPER
     1141                            *      MOTION CONTROL SIGNALS INCORRECT. SEE PRINTOUT.
     1142                            *
     1143                            * 3105 TIO STATUS ERROR AFTER FORMAT ORDER WITH BYTE COUNT =2.
     1144                            *
     1145                            * 3106 TDV SET 3 INDICATES FORMAT REGISTER CONTENTS DISTURBED BY
     1146                            *      THE SECOND FORMAT BYTE.
     1147                            *
     1148                            * 3107 TERMINAL BYTE COUNT FOR A FORMAT ORDER (BYTE COUNT=2)
     1149                            *      NOT=1.
     1150                            *
     1151                            * 3200 TST1,32 FORMAT REGISTER-PRINT W FORMAT ORDER(TEST MODE)(7441,
     1152                            *      7446).  -----------------------------------------------------
     1153                            *      PRINT WITH FORMAT ORDERS ARE ISSUED IN TEST MODE (BUFFER
     1154                            *      CLEARING, PRINTING AND PAPER MOTION INHIBITED) WITH BYTE COUNTS
     1155                            *      OF ONE THRU 133. RANDOM FORMAT BYTES ARE USED AND TDV SET 3 IS
     1156                            *      USED TO VERIFY THE FORMAT REGISTER CONTENTS.
     1157                            *
     1158                            * 3201 TEST MODE SELECTION ERROR. EXPECTED TDV CC1,2=01.
     1159                            *
     1160                            * 3202 SIO STATUS ERROR FOR PRINT WITH FORMAT ORDER.
     1161                            *
     1162                            * 3203 STATUS ERROR FOR PRINT W FORMAT ORDER WITH BYTE COUNT =133.
     1163                            *
     1164                            * 3204 STATUS ERROR FOR PRINT W FORMAT ORDER WITH BYTE COUNT UNEQUAL
     1165                            *      TO 133.
     1166                            *
     1167                            * 3205 TDV SET 3 INDICATES FORMAT REGISTER AND/OR PAPER CONTROL
     1168                            *      SIGNALS INCORRECT. SEE PRINTOUT.
     1169                            *
     1170                            *
     1171                            * 3500 TST1,35 CODE DISC-SENSE ORDER(TEST MODE)(7441,7446). CODE DISC
     1172                            *      ------- -------------------------------- SENSE ORDERS ARE ISSUED
     1173                            *      IN TEST MODE TO TRANSFER FROM ONE TO 129 BYTES OF CODE DISC
     1174                            *      INFORMATION. TERMINAL STATUS IS TESTED.
     1175                            *
     1176                            * 3501 TEST MODE SELECTION ERROR. EXPECTED TDV CC1,2=01.
     1177                            *
     1178                            * 3502 SIO STATUS ERROR FOR SENSE CODE DISC ORDER X'04'.
     1179                            *
     1180                            *
     1181                            * 3504 TIO INDICATES CONTR. BUSY BEYOND NORMAL TERMINATION TIME FOR
     1182                            *      SENSE CODE DISC ORDER.
     1183                            *
     1184                            * 3505 STATUS ERROR FOR CODE DISC SENSE ORDER.
     1185                            *
     1186                            * 3506 TDV SET 1 INDICATES PARITY ERROR DURING CODE DISC SENSE ORDER.
     1187                            *
     1188                            * 3600 TST1,36 CODE DISC-DATA AND PARITY(TEST MODE)(7441,7446). A SENSE
     1189                            *      ------- ------------------------------------ CODE ORDER IS
     1190                            *      ISSUED IN TEST MODE TO TRANSFER 128 BYTES (TWO CODE IMMAGES).
     1191                            *      CODE DISC IMMAGES (INCLUDING PARITY) ARE VERIFIED).
     1192                            *
     1193                            * 3601 TEST MODE SELECTION ERROR. EXPECTED TDV CC1,2=01.
     1194                            *
     1195                            * 3602 STATUS ERROR FOR CODE DISC SENSE ORDER.
     1196                            *
     1197                            * 3603 CODE DISC IMMAGES NOT CORRECT. SEE PRINTOUT.
     1198                            *
     1199                            * 3700 TST1,37 CODE DISC TIMING(TEST MODE)(7441,7446). A SENSE ORDER IS
     1200                            *      ------- --------------------------- ISSUED IN TEST MODE AND THE
     1201                            *      TRANSFER TIME BETWEEN BYTES (INITIATED BY CODE DISC CLOCKS)
     1202                            *      IS VERIFIED.
     1203                            *
     1204                            * 3701 TEST MODE SELECTION ERROR. EXPECTED TDV CC1,2=01.
     1205                            *
     1206                            * 3702 TIME BETWEEN CODE DISC CLOCKS HAS EXCEEDED THE NOMINAL 850 USEC
     1207                            *
     1208                            * 4000 TST1,40 STATE PROGRESSION-COMPARITOR(TEST MODE)(7441,7446). A
     1209                            *      ------- --------------------------------------- PRINT ORDER IS
     1210                            *      ISSUED (PRINTING AND PAPER MOTION INHIBITED) AND TDV INSTR.
     1211                            *      USED TO STEP THE CONTR. THRU STATES A,B,C,A. TDV SET 2
     1212                            *      VERIFIES THE STATES AND COMPARITOR SCANNING COMPLETION.
     1213                            *
     1214                            * 4001 TEST MODE SELECTION ERROR. EXPECTED TDV CC1,2=01.
     1215                            *
     1216                            * 4002 TDV SET 2 INDICATES CONTR. NOT IN STATE A AFTER ORDER OUT.
     1217                            *
     1218                            * 4003 TDV SET 2 INDICATES CONTR. NOT IN STATE B (DATA OUT, 132 BYTES)
     1219                            *      AFTER STATE A.
     1220                            *
     1221                            * 4004 TDV SET 2 INDICATES PRINT COMPLETE (PSEUDO INDICATION FOR TEST
     1222                            *      MODE) NOT SET FOR STATE C (CHARACTER BUFFER SCANNING STATE).
     1223                            *
     1224                            * 4005 TDV SET 2 INDICATES CONTR. DID NOT PROGRESS FROM STATE C
     1225                            *      (CHARACTER BUFFER SCAN) TO STATE E (PAPER MOTION INHIBITED).
     1226                            *
     1227                            * 4006 STATUS ERROR AFTER PRINT ORDER WITH CHARACTER BUFFER SCAN.
     1228                            *
     1229                            * 4007 TDV SET 2 INDICATES CHARACTER BUFFER SCANNING WAS NOT COMPLETED
     1230                            *      IN STATE C.'BLANK' CHARACTERS TRANSFERED TO CHARACTER BUFFER.
     1231                            *
     1232                            * 4008 TDV SET 2 INDICATES CONTR. DID NOT PROGRESS FROM STATE B
     1233                            *      (DATA OUT,132 BYTES) TO STATE C (CHARACTER BUFFER SCAN).
     1234                            *
     1235                            * 4009 TDV SET 2 INDICATES CONTR. DID NOT PROGRESS FROM STATE E TO
     1236                            *      STATE A (ORDER IN PHASE).
     1237                            *
     1238                            * 4010 TDV SET 1 INDICATES STATUS ERROR AFTER PRINT ORDER WITH
     1239                            *      CHARACTER BUFFER SCAN.
     1240                            *
     1241                            * 4100 TST1,41 COMPARATOR-CHARACTER BUFFER CLEARING(TEST MODE)(7441,
     1242                            *      7446). ------------------------------------------------------
     1243                            *      A SERIES OF 64 PRINT ORDERS ARE ISSUED AND ALL 64 PRINTABLE
     1244                            *      CHARACTERS ARE TRANSFERED. SENSE CHARACTER BUFFER ORDERS ARE
     1245                            *      USED TO VERIFY THE COMPARATOR FOR ALL CHARACTERS.
     1246                            *
     1247                            * 4101 TEST MODE SELECTION ERROR. EXPECTED TDV CC1,2=01.
     1248                            *
     1249                            * 4102 TIO INDICATES CONTR. BUSY FOR PRINT ORDER WITH BYTE COUNT
     1250                            *      OF 132.
     1251                            *
     1252                            * 4103 TDV SET 1 INDICATES A BUFFER PARITY ERROR DURING CHARACTER
     1253                            *      BUFFER SCANNING.
     1254                            *
     1255                            * 4104 STATUS ERROR FOR PRINT ORDER WITH BYTE COUNT = 132.
     1256                            *
     1257                            * 4105 STATUS ERROR FOR SENSE CHARACTER BUFFER ORDER.
     1258                            *
     1259                            * 4106 CHARACTER BUFFER NOT CLEARED BY COMPARATOR SCANNING. SEE
     1260                            *      PRINTOUT.
     1261                            *
     1262                            * 4200 TST1,42 STATE PROGRESSION - FORMAT ORDER/PAPER MOTION (TEST
     1263                            *      MODE)(7441,7446). -------------------------------------------
     1264                            *      -----  A FORMAT ORDER IS ISSUED IN TEST MODE AND TDV SET 4
     1265                            *      IS USED TO VERIFY THE PAPER MOVEMENT CONTROL SIGNALS FOR A
     1266                            *      FORMAT BYTE(X'C1' TO X'CF' FOR 7441 AND X'C1' TO X'C5' FOR 7446).
     1267                            *
     1268                            * 4201 TEST MODE SELECTION ERROR. EXPECTED TDV CC1,2=01.
     1269                            *
     1270                            * 4202 TDV SET 1 INDICATES STATUS ERROR AFTER FORMAT ORDER WITH PAPER
     1271                            *      MOTION COMPLETION.
     1272                            *
     1273                            * 4203-4211 TDV SET 4 INDICATES PAPER MOTION CONTROL ERROR. SEE
     1274                            *       PRINTOUT.
     1275                            *
     1276                            * 4300 TST1,43 STATE PROGRESSION - PRINT ORDER/PAPER MOTION (TEST
     1277                            *      MODE)(7441,7446). --------------------------------------------
     1278                            *      ------ A PRINT ORDER IS ISSUED IN TEST MODE AND TDV INSTR.
     1279                            *      USED TO STEP THE CONTR.THRU STATES A,B,C,E,A. TDV SET 2
     1280                            *      VERIFIES THE PROGRESSION AND TERMINAL STATUS AND CHARACTER
     1281                            *      BUFFER CONTENTS ARE VERIFIED.
     1282                            *
     1283                            * 4301 TDV SET 1 INDICATES PAPER LOW, INTERLOCK OR HAMMER DRIVER
     1284                            *      SUPPLY LOW(7441).
     1285                            *      TDV SET 1 INDICATES TDV STATUS ERROR(7446).
     1286                            *
     1287                            * 4302 TEST MODE SELECTION ERROR. EXPECTED TDV CC1,2=01.
     1288                            *
     1289                            * 4303 TDV SET 2 INDICATES CONTR. NOT IN STATE A AFTER ORDER OUT.
     1290                            *
     1291                            * 4304 TDV SET 2 INDICATES CONTR. DID NOT PROGRESS FROM STATE A
     1292                            *      (ORDER OUT) TO STATE B (DATA OUT,132 BYTES).
     1293                            *
     1294                            * 4305 TDV SET 2 INDICATES CONTR. DID NOT PROGRESS FROM STATE B TO
     1295                            *      STATE C (CHARACTER BUFFER SCAN).
     1296                            *
     1297                            * 4306 TDV SET 2 INDICATES CHARACTER BUFFER SCAN NOT COMPLETED IN
     1298                            *      STATE C.
     1299                            *
     1300                            * 4307 TDV SET 2 INDICATES SENTINOL MONITOR SIGNAL NOT SET IN STATE C
     1301                            *
     1302                            * 4308 TDV SET 2 INDICATES CONTROL BYTE RECEIVED SIGNAL IN ERROR IN
     1303                            *      STATE C.
     1304                            *
     1305                            * 4309 TDV SET 2 INDICATES CONTR. DID NOT PROGRESS FROM STATE C TO
     1306                            *      STATE E (PAPER MOTION).
     1307                            *
     1308                            * 4310 TEST MODE SELECTION ERROR. EXPECTED TDV CC1,2=01.
     1309                            *
     1310                            * 4311 TDV SET 1 INDICATES INTERLOCK ERROR FOR PRINT ORDER(7441).
     1311                            *
     1312                            * 4312 STATUS ERROR FOR PRINT ORDER WITH BYTE COUNT = 132.
     1313                            *
     1314                            * 4313 CHARACTER BUFFER NOT CLEARED WHILE CONTR. IN STATE C. SEE
     1315                            *      PRINTOUT.
     1316                            *
     1317                            * 4314 TDV SET 1 INDICATES PAPER MOTION/PRINTING ERROR AFTER PRINT
     1318                            *      ORDER.
     1319                            *
     1320                            * 4315 TDV SET 1 INDICATES ERROR AFTER SENSE CHARACTER BUFFER ORDER.
     1321                            *
     1322                            * 4400 TST1,44 STATE PROGRESSION - PRINT W FORMAT ORDER (TEST MODE).
     1323                            *      (7441,7446) --------------------------------------------------
     1324                            *      A PRINT W FORMAT ORDER IS ISSUED IN TEST MODE AND TDV INSTR.
     1325                            *      USED TO STEP THE CONTR. THRU STATES A,D,E,B,C,E,A. TDV SET 2
     1326                            *      VERIFIES THE PROGRESSION.
     1327                            *
     1328                            * 4401 TEST MODE SELECTION ERROR. EXPECTED TDV CC1,2=01.
     1329                            *
     1330                            * 4402 TDV SET 2 INDICATES CONTR. NOT IN STATE A AFTER ORDER OUT.
     1331                            *
     1332                            * 4403 TDV SET 2 INDICATES CONTR. DID NOT PROGRESS FROM STATE A TO
     1333                            *      STATE D (DATA OUT, FORMAT BYTE).
     1334                            *
     1335                            * 4404 TDV SET 2 INDICATES CONTR DID NOT PROGRESS FROM STATE D TO
     1336                            *      STATE E (PAPER MOTION).
     1337                            *
     1338                            * 4405 TDV SET 2 INDICATES CONTR DID NOT PROGRESS FROM STATE E TO
     1339                            *      STATE B (DATA OUT,132 BYTES).
     1340                            *
     1341                            * 4406 TDV SET 2 INDICATES CONTR. DID NOT PROGRESS FROM STATE B TO
     1342                            *      STATE C (CHARACTER BUFFER SCAN,PRINT).
     1343                            *
     1344                            * 4407 TDV SET 2 INDICATES CONTR. DID NOT PROGRESS FROM STATE C TO
     1345                            *      STATE E (PAPER MOTION) OR PRINT ERROR OCCURED.
     1346                            *
     1347                            * 4408 STATUS ERROR FOR PRINT W FORMAT ORDER.
     1348                            *
     1349                            * 4409 TEST MODE SELECTION ERROR. EXPECTED TDV CC1,2=01.
     1350                            *
     1351                            * 4410 TDV SET 4 INDICATES PAPER MOTION CONTROL SIGNAL ERROR AFTER
     1352                            *      PAPER MOTION.
     1353                            *
     1354                            * 4411 TDV SET 1 INDICATES STATUS ERROR AFTER PRINT W FORMAT ORDER.
     1355                            *
     1356                            * 4412 STATUS ERROR FOR PRINT W FORMAT (NO DATA CHAIN)
     1357                            *
     1358                            * 4413 TDV SET 2 INDICATES CONTR. DID NOT PROGRESS FROM STATE E TO
     1359                            *   STATE A (DATA CHAIN)
     1360                            *
     1361                            * 4414 TDV SET 2 INDICATES CONTR. DID NOT PROGRESS FROM STATE E TO
     1362                            *    STATE A (NO DATA CHAIN)
     1363                            *
     1364                            * 4500 TST1,45 STATE PROGRESSION - FORMAT ORDER/PAPER MOTION(HIGH SPEED
     1365                            *      SLEW)(7446). ---------------------------------------------------
     1366                            *      ------------ A FORMAT ORDER IS ISSUED IN TEST MODE AND TDV SET 4
     1367                            *      IS USED TO VERIFY THE PAPER MOVEMENT CONTROL SIGNALS FOR A X'C6'
     1368                            *      TO X'CF' FORMAT BYTE.(EACH HIGH SPEED SLEW IS SEPARATED      *A02
     1369                            *      BY A SPACE 1 LINE FORMAT ORDER).                             *A02
     1370                            *
     1371                            * 4501 TEST MODE SELECTION ERROR. EXPECTED TDV CC1,2=01.
     1372                            *
     1373                            * 4502 TDV SET 1 INDICATES STATUS ERROR AFTER FORMAT ORDER WITH PAPER
     1374                            *      MOTION COMPLETION.
     1375                            *
     1376                            * 4503-4510 TDV SET 4 INDICATES PAPER MOTION CONTROL ERROR. SEE
     1377                            *      PRINTOUT.
     1378                            *
     1379                            * 4600 TST1,46 PAPER CLAMP - PRINT ORDER/PAPER MOTION (TEST MODE)(7446).
     1380                            *      -----------------------------------------------------------------
     1381                            *      A PRINT ORDER IS ISSUED IN TEST MODE AND TDV INSTR. USED TO STEP
     1382                            *      THE CONTR. THUR STATES A,B,C,E,A. TDV SET 4 VERIFIES THE PAPER
     1383                            *      CLAMP TIMING.
     1384                            *
     1385                            * 4601 TEST MODE SELECTION ERROR. EXPECTED TDV CC1,2=01.
     1386                            *
     1387                            * 4602-4605 TDV SET 4 INDICATES PAPER CLAMP CONTROL ERROR (SEE PRINT OUT)
     1388                            *
     1389                            *
     1390                            * 4700 TST1,47 PRINT ORDER-AUTOMATIC UPSPACING(7441,7446). A PRINT ORDER
     1391                            *      ------- ------------------------------- IS ISSUED TO PRINT
     1392                            *      A PATTERN OF 'E' CHARACTERS. TERMINAL STATUS IS VERIFIED.
     1393                            *
     1394                            * 4701 STATUS ERROR FOR PRINT ORDER.
     1395                            *
     1396                            * 4702 TEST MODE SELECTION ERROR. EXPECTED TDV CC1,2=01.
     1397                            *
     1398                            * 4703 TDV SET 2 INDICATES PRINT CONTROL ERROR FOR PRINT ORDER.
     1399                            *
     1400                            * 4704 TDV SET 1 INDICATES PRINT ERROR FOR PRINT ORDER(7446).
     1401                            *
     1402                            * 4705 TDV SET 4 INDICATES PRINT CONTROL ERROR FOR PRINT ORDER.
     1403                            *
     1404                            *
     1405                            *
     1406                            * 4800 TST1,48 PRINT W FORMAT ORDER-INHIBIT UPSPACE(7441,7446) A PRINT W
     1407                            *      ------- -------------------------------------------- FORMAT ORDER
     1408                            *      IS ISSUED TO PERFORM A PRINT OPERATION WITH INHIBIT UPSPACE
     1409                            *      FORMAT. TERMINAL STATUS AND CHARACTER BUFFER VERIFIED.
     1410                            *
     1411                            * 4801 CONTR. BUSY BEYOND NORMAL TERMINATION TIME FOR PRINT W FORMAT
     1412                            *      ORDER (UPSPACE INHIBITED).
     1413                            *
     1414                            * 4802 STATUS ERROR FOR PRINT W FORMAT ORDER (UPSPACE INHIBITED).
     1415                            *
     1416                            * 4803 TEST MODE SELECTION ERROR. EXPECTED TDV CC1,2=01.
     1417                            *
     1418                            * 4804 CHARACTER BUFFER NOT CLEARED FOR PRINT W INHIBIT UPSPACE ORDER
     1419                            *
     1420                            * 4805 TDV SET 1 INDICATES STATUS ERROR FOR PRINT W INHIBIT UPSPACE.
     1421                            *
     1422                            * 4900 TST1,49 FORMAT ORDER-SPACE LINES(7441,7446). A FORMAT ORDER (X'C1
     1423                            *      ------- ------------------------- TO X'CF' BYTE) IS ISSUED AND
     1424                            *      TERMINAL STATUS VERIFIED.
     1425                            *
     1426                            * 4901 STATUS ERROR FOR FORMAT ORDER
     1427                            *
     1428                            * 4902 TEST MODE SELECTION ERROR. EXPECTED TDV CC1,2=01.
     1429                            *
     1430                            * 4903 TDV SET 4 INDICATES PAPER MOTION CONTROL SIGNAL ERROR FOR
     1431                            *      FORMAT ORDER
     1432                            *
     1433                            *
     1434                            * 4904 TDV SET 3 INDICATES FORMAT REGISTER ERROR AFTER FORMAT ORDER
     1435                            *
     1436                            * 4905 TDV SET 1 INDICATES STATUS ERROR FOR FORMAT ORDER
     1437                            *
     1438                            *
     1439                            * 5000 TST1,50 PRINT N FORMAT(7441,7446). A PRINT W FORMAT ORDER IS
     1440                            *      ------- -------------- ISSUED TO SPACE 2 LINES AND PRINT LINE OF
     1441                            *      'E' CHARACTERS. TERMINAL STATUS IS VERIFIED.
     1442                            *
     1443                            * 5001 STATUS ERROR FOR PRINT W FORMAT ORDER.
     1444                            *
     1445                            * 5002 TEST MODE SELECTION ERROR. EXPECTED TDV CC1,2=01.
     1446                            *
     1447                            * 5003 TDV SET 4 INDICATES PAPER MOTION CONTROL ERROR FOR PRINT WITH
     1448                            *      FORMAT ORDER.
     1449                            *
     1450                            * 5200 TST1,52 PRINT BLANKS(7441,7446). A PRINT ORDER IS ISSUED TO PRINT
     1451                            *      ------- --------- ONE LINE OF BLANKS. TERMINAL STATUS IS TESTED.
     1452                            *
     1453                            * 5201 STATUS ERROR FOR PRINT BLANKS.
     1454                            *
     1455                            * 5202 TEST MODE SELECTION ERROR. EXPECTED TDV CC1,2=01.
     1456                            *
     1457                            * 5203 TDV SET 2 INDICATES PRINT CONTROL ERROR FOR PRINT BLANK LINE.
     1458                            *
     1459                            * 5204 TDV SET 3 INDICATES FORMAT CONTROL ERROR FOR PRINT BLANK LINE.
     1460                            *
     1461                            * 5205 TDV SET 4 INDICATES PAPER MOTION CONTROL ERROR FOR PRINT BLANK
     1462                            *      LINE.
     1463                            *
     1464                            * 5206 TDV SET 5 INDICATES ADDRESS COUNTER NOT AT CORRECT TERMINAL
     1465                            *      STATE.
     1466                            *
     1467                            * 5300 TST1,53 PRINT CONTINUOM(7441,7446). A SERIES OF 10 LINES OF 'E'
     1468                            *      ------- --------- CHARACTER ARE PRINTED.TERMINAL STATUS IS TESTED
     1469                            *
     1470                            * 5301 STATUS ERROR FOR PRINT 'E' CHARACTER LINES.
     1471                            *
     1472                            * 5304 TEST MODE SELECTION ERROR. EXPECTED TDV CC1,2=01.
     1473                            *
     1474                            * 5305 TDV SET 2 INDICATES PRINT CONTROL ERROR.
     1475                            *
     1476                            * 5306 TDV SET 4 INDICATES PAPER MOTION CONTROL ERROR.
     1477                            *
     1478                            * 5307 TDV SET 3 INDICATES FORMAT CONTROL ERROR.
     1479                            *
     1480                            * 5400 TST1,54 PRINT BROADSIDE PATTERN(7441,7446). A BROADSIDE PATTERN
     1481                            *      ------- ----------------------- OF ALL CHARACTERS ARE PRINTED.
     1482                            *      TERMINAL STATUS IS TESTED.
     1483                            *
     1484                            * 5401 STATUS ERROR FOR BROADSIDE LINE.
     1485                            *
     1486                            * 5500 TST1,55 ERROR INDUCTION/REPORTING(7446). USING A PRINT ORDER AND
     1487                            *      ---------------------------------------- TEST MODE TO: 1. FORCE
     1488                            *      PRINT ECHO ERROR. 2. FORCE BUFFER PARITY ERROR. 3. FORCE CODE
     1489                            *      DISC PARITY ERROR. 4. FORCE IO PARITY ERROR. EACH TIME VERIFY
     1490                            *      THAT INDUCED ERROR IS REPORTED CORRECTLY.
     1491                            *
     1492                            * 5501 TEST MODE SELECTION ERROR. EXPECTED TDV CC1,2=01.
     1493                            *
     1494                            * 5502 TDV SET 1 INDICATES INDUCDED PRINT ERROR NOT REPORTED CORRECTLY.
     1495                            *
     1496                            * 5503 TDV SET 1 INDICATES INDUCDED BUFFER PARITY ERROR NOT REPORTED
     1497                            *      CORRECTLY.
     1498                            *
     1499                            * 5504 TDV SET1 INDICATES INDUCED CODE DISC PARITY ERROR NOT REPORTED
     1500                            *      CORRECTLY.
     1501                            *
     1502                            * 5505 TDV SET1 INDICATES INDUCED IO PARITY ERROR NOT REPORTED
     1503                            *      CORRECTLY.
     1504                            *
     1505                            * 5506 TIO STATUS INDICATES NO UNUSUAL END REPORTED.
     1506                            *
     1507                            * 5600 TST1,56 IO PARITY INDUCTION/REPORTING(7446). THE  FOLLOWING
     1508                            *      -------------------------------------------- ORDERS  ARE ISSUED:
     1509                            *       2  X'01', AND X'03' AND X'05'    IN ORDER TO TEST FOR THE
     1510                            *      CORRECT ERROR REPORTING OF DATA PARITY AND ORDER OUT FOR 5/7
     1511                            *      AND 8/9 COMPUTER.
     1512                            *
     1513                            * 5601 TEST MODE SELECTION ERROR. EXPECTED TDV CC1,2 = 01.
     1514                            *
     1515                            * 5602 TDV SET 1 INDICATES INCORRECT REPORT OF DATA PARITY ERROR.
     1516                            *
     1517                            * 5603 TDV SET 1 INDICATES INCORRECT REPORT OF PARITY ERROR.
     1518                            *      (SIGMA 8/9 ORDER OUT AND SIGMA 5/7 DATA PARITY ERROR)
     1519                            *
     1520                            * 5605 TIO INDICATES INCORRECT BYTE COUNT
     1521                            *
     1522                            * 5800 TST1,58 INVALID CHARACTERS TEST(7442 ONLY). PRINT TWO       *A04
     1523                            *      ------- ----------------------------------- LINES OF        *A04
     1524                            *      INVLAID CHARACTERS THEN TWO LINES OF MIXED VALID AND        *A04
     1525                            *      INVALID CHARACTERS. AFTER A LONG DELAY FOR EACH PRINT,      *A04
     1526                            *      PRINTER SHOULD STILL BE BUSY. NO PRINTING OCCURS FOR INVALID *A04
     1527                            *      CHARACTERS.                                                  *A04
     1528                            *                                                                  *A04
     1529                            * 5801 LINE PRINTER NOT BUSY AFTER PRINTING INVALID CHARACTER   *A04
     1530                            *
     1531                            * 6000 TST1,60 FORMAT ORDER - INHIBIT UPSPACE(7440/7445,7450). A FORMAT
     1532                            *      ------- ----------------------------------------------- ORDER OF
     1533                            *      A BYTE COUNT OF ONE, THEN A BYTE COUNT OF TWO, ARE ISSUED.
     1534                            *      TERMINAL STATUS IS VERIFIED AND THAT NO PAPER MOTION HAS OCCURRED
     1535                            *
     1536                            * 6001 SIO STATUS ERROR FOR FORMAT ORDER.
     1537                            *
     1538                            * 6002 DEVICE, CONTROLLER BUSY BEYOND NORMAL TERMINATION TIME FOR FORMAT
     1539                            *      ORDER.
     1540                            *
     1541                            * 6003 PAPER MOTION OCCURRED FOR A FORMAT WITH INHIBIT UPSPACE.
     1542                            *
     1543                            * 6004 STATUS ERROR FOR FORMAT ORDER.
     1544                            *
     1545                            * 6005 BYTE COUNT DID NOT DECR. AFTER FORMAT ORDER.
     1546                            *
     1547                            * 6100 TST1,61 INTERRUPT GENERATION AND HIO, AIO INSTR. RESETING(7450,
     1548                            *      7440/7445). ---------------------------------------------------
     1549                            *      ----------- THE FOLLOWING ORDERS ARE ISSUED: X'07',X'07', AND
     1550                            *      X'00' IN ORDER TO TEST THE GENERATION OF ICE, IZC AND IUE. AIO
     1551                            *      AND HIO INSTR. ARE ISSUED TO TEST THE INTERRUPT CLEARING.
     1552                            *
     1553                            * 6101 TIO INSTR. INDICATES IP STATUS NOT PRESENT AFTER X'07' ORDER
     1554                            *      WITH ICE FLAG SET.
     1555                            *
     1556                            * 6102 TIO INSTR. COND. CODE OR STATUS ERROR AFTER X'07' ORDER ISSUED
     1557                            *      WITH ICE FLAG SET.
     1558                            *
     1559                            * 6103 AIO INSTR. COND. CODE, STATUS OR DEVICE ADDRESS ERROR FOLLOWING
     1560                            *      A X'07' ORDER RAISING IP.
     1561                            *
     1562                            * 6104 HIO INSTR. DID NOT CLEAR IP IN CONTR.
     1563                            *
     1564                            * 6105 TIO INSTR. INDICATES IP NOT SET BY X'07' ORDER WITH IZC FLAG SET.
     1565                            *
     1566                            * 6106 TIO INSTR. COND. CODE OR STATUS ERROR AFTER X'07' ORDER WITH IZC
     1567                            *      FLAG SET.
     1568                            *
     1569                            * 6107 AIO INSTR. COND. CODE, STATUS OR DEVICE ADDRESS ERROR AFTER
     1570                            *      X'07' ORDER WITH IZC FLAG SET
     1571                            *
     1572                            * 6108 AIO OR HIO INSTR. DID NOT RESET IP STATUS IN CONTR.
     1573                            *
     1574                            * 6109 TIO INDICATES X'00' ORDER WITH IUE FLAG SET DID NOT SET IP
     1575                            *      IN CONTR.
     1576                            *
     1577                            * 6110 TIO INDICATES COND. CODE OR STATUS ERROR AFTER X'00' ORDER WITH
     1578                            *      IUE FLAG SET
     1579                            *
     1580                            * 6111 AIO COND. CODE, STATUS OR DEVICE ADDRESS ERROR AFTER X'00' ORDER
     1581                            *      WITH IUE FLAG SET.
     1582                            *
     1583                            * 6112 TIO INDICATES NO UE STATUS FOR X'00' ORDER.
     1584                            *
     1585                            * 6113 TIO COND. CODE OR STATUS ERROR AFTER AIO OR HIO ISSUED WITH
     1586                            *      IP STATUS PRESENT.
     1587                            *
     1588                            * 6114 AIO DID NOT RESET IP STATUS IN CONTR.
     1589                            *
     1590                            * 6200 TST1,62 IO INTERRUPT GENERATION(7440/7445,7450). A FORMAT WITH
     1591                            *      ------- ---------------------------------------- ICE FLAG IS
     1592                            *      ISSUED. VERIFY THAT THE PROGRAM IS INTERRUPTED WHEN THE IO
     1593                            *      INTERRUPT IS ARMED AND ENABLED.
     1594                            *
     1595                            * 6201 TIO INSTR. INDICATES IP NOT SET BY SIO, IO INTERRUPT IS DISARMED.
     1596                            *
     1597                            * 6202 PROGRAM WAS INTERRUPTED WHILE IO INTERRUPT WAS DISARMED.
     1598                            *
     1599                            * 6203 PROGRAM WAS NOT INTERRUPTED WHILE IO INTERRUPT WAS ARMED/ENABLED.
     1600                            *
     1601                            * 6204 TIO INDICATES IP NOT CLEARED BY AIO INSTRUCTION
     1602                            *
     1603                            * 6300 TST1,63 PRINT WITH FORMAT - INHIBIT UPSPACE(BLANK CHARACTERS)
     1604                            *      (7440/7445). ------------------------------------------------
     1605                            *      ------------ A PRINT W FORMAT ORDER IS ISSUED TO PERFORM A PRINT
     1606                            *      OPERATION WITH INHIBIT UPSPACE FORMAT. TERMINAL STATUS AND NO
     1607                            *      PAPER MOTION IS VERIFIED. BYTES OF 2 THUR 134 ARE TRANSFERRED.
     1608                            *
     1609                            * 6301 PAPER MOTION HAS OCCURRED FOR A PRINT W FORMAT ORDER.
     1610                            *
     1611                            * 6302 BYTE COUNT NOT EQUAL TO ZERO AFTER A PRINT W FORMAT ORDER
     1612                            *
     1613                            * 6303 IL NOT SET FOR BYTE COUNT UNEQUAL TO 132.
     1614                            *
     1615                            * 6304 IL SET FOR BYTE COUNT EQUAL TO 132.
     1616                            *
     1617                            * 6305 STATUS ERROR FOR PRINT W FORMAT.
     1618                            *
     1619                            * 6306 SIO STATUS ERROR FOR PRINT W FORMAT.
     1620                            *
     1621                            * 6400 TST1,64 PRINT WITH FORMAT - INHIBIT UPSPACE(BLANK CHAR)(7450).
     1622                            *      ------- ------------------------------------------------------
     1623                            *      FIRST THEN SECOND PRINT WITH FORMAT ORDER ARE ISSUED. PRINTER
     1624                            *      EXPECTS FIRST THEN SECOND PRINT ORDER IS VERIFIED. BYTE 2 THUR
     1625                            *      129 ARE TRANSFERRED. TERMINAL STATUS AND NO PAPER MOTION IS
     1626                            *      VERIFIED.
     1627                            *
     1628                            * 6401 PAPER MOTION HAS OCCURRED FOR A FIRST PRINT W FORMAT ORDER.
     1629                            *
     1630                            * 6402 PAPER MOTION HAS OCCURRED FOR A SECOND PRINT W FORMAT ORDER.
     1631                            *
     1632                            * 6403 BYTE COUNT NOT EQUAL TO ZERO AFTER A FIRST PRINT W FORMAT ORDER.
     1633                            *
     1634                            * 6404 BYTE COUNT NOT EQUAL TO ZERO AFTER A SECOND PRINT W FORMAT ORDER.
     1635                            *
     1636                            * 6405 STATUS ERROR FOR FIRST PRINT W FORMAT ORDER.
     1637                            *
     1638                            * 6406 STATUS ERROR FOR SECOND PRINT W FORMAT ORDER.
     1639                            *
     1640                            * 6407 SIO STATUS ERROR FOR FIRST PRINT W FORMAT ORDER.
     1641                            *
     1642                            * 6408 SIO STATUS ERROR FOR SECOND PRINT W FORMAT ORDER.
     1643                            *
     1644                            * 6409 EXPECT FIRST PRINT ORDER TDV BIT NOT SET FOR FIRST PRINT ORDER.
     1645                            *
     1646                            * 6410 EXPECT FIRST PRINT ORDER TDV BIT SET FOR SECOND PRINT ORDER.
     1647                            *
     1648                            * 6411 TYPELINE SECTOR ERROR(SHOULD ALWAYS BE ONE).
     1649                            *
     1650                            * 6500 TST1,65 DATA TRANSMISSION COMPLETE(DTC) INTERRUPT(7440/7445,7450)
     1651                            *      ------- ---------------------------------------------------------
     1652                            *      USING PRINT W FORMAT AND INTERRUPT ON DATA TRANSMISSION COMPLETE,
     1653                            *      VERIFY DATA TRANSM. COMPLETE INTERRUPT IS GENERATED.
     1654                            *
     1655                            * 6501 DATA TRANSMISSION COMPLETE INTERRUPT NOT GENERATED.
     1656                            *
     1657                            * 6502 TIO INDICATES COND. CODE OR STATUS ERROR FOR X'45' ORDER.
     1658                            *      EXPECTED IP STATUS.
     1659                            *
     1660                            * 6503 AIO COND. CODE, STATUS OR DEVICE ADDRESS ERROR AFTER DTC
     1661                            *      INTERRUPT GENERATED IN CONTR. EXPECTED AIO STATUS BIT 1 SET.
     1662                            *
     1663                            * 6504 PRINT FAULT - SEE PRINT OUT.
     1664                            *
     1665                            * 6600 TST1,66 COMMAND CHAINING(7440/7445,7450)(SIGMA 5/7). USING THE
     1666                            *      ------- -------------------------------------------- INVALID
     1667                            *      ORDER, VERIFY THE COMMAND CHAINING OPERATION; VERIFY THAT THE
     1668                            *      UE STATUS TERMINATES THE COMMAND CHAINING.
     1669                            *
     1670                            * 6601 TIO INDICATES CONTR BUSY BEYOND NORMAL TERMINATION TIME FOR
     1671                            *      COMMAND CHAIN OPERATION.
     1672                            *
     1673                            * 6602 TIO INDICATES STATUS ERROR DURING COMMAND CHAINING OPERATION.
     1674                            *
     1675                            * 6603 TIO INDICATES OPERATTIONAL STATUS ERROR FOLLOWING COMMAND CHAIN
     1676                            *      OPERATION.
     1677                            *
     1678                            * 6604 BYTE COUNT NOT 0 FOLLOWING COMMAND CHAINING OPERATION.
     1679                            *
     1680                            * 6605 TIO INDICATES COMMAND CHAINING TERMINATED WITH FIRST IOCD
     1681                            *      INSTEAD OF SECOND IOCD.
     1682                            *
     1683                            * 6606 CONTR. BUSY WITH INVALID ORDER.
     1684                            *
     1685                            * 6607 TIO INDICATES UE NOT GENERATED FOR INVALID ORDER.
     1686                            *
     1687                            * 6608 TIO STATUS ERROR FOLLOWING INVALID ORDER COMMAND CHAINED.
     1688                            *
     1689                            * 6609 TERMINAL BYTE COUNT ZERO  FOLLOWING AN INVALID ORDER COMMAND
     1690                            *      CHAINED
     1691                            *
     1692                            * 6610 COMMAND CHAINING NOT TERMINATED BY UE OF INVALID ORDER.
     1693                            *
     1694                            * 6611 SIO STATUS ERROR FOR INVALID ORDER COMMAND CHAINED
     1695                            *
     1696                            * 6612 SIO STATUS ERROR FOR COMMAND CHAINED
     1697                            *
     1698                            * 6800 TST1,68 FORMAT - SPACE ONE LINE(7440/7445,7450). A FORMAT ORDER
     1699                            *      ------- ---------------------------------------- IS ISSUE TO
     1700                            *      SPACE ONE LINE. VERIFY THAT PAPER MOTION AND NO PRINT OPERATION
     1701                            *      OCCURS.
     1702                            *
     1703                            * 6801 STATUS ERROR FOR FORMAT ORDER.
     1704                            *
     1705                            * 6802 NO PAPER MOTION FOR SPACE ONE LINE FORMAT ORDER.
     1706                            *
     1707                            * 6900 TST1,69 PRINT WITH AUTO UPSPACE(7440/7445,7450). SIX PRINT ORDER
     1708                            *      ------- ---------------------------------------- ARE ISSUED TO
     1709                            *      VERIFY EACH CODE DISC CHARACTER. VERIFY THAT PAPER MOTION AND
     1710                            *      NO PRINT ERROR OCCURS.
     1711                            *
     1712                            * 6901-6906 STATUS ERROR FOR A PRINT ORDER.
     1713                            *
     1714                            * 6907    PAPER MOTION FOR PRINT WITH AUTOUPSPACE.
     1715                            *
     1716                            * 7000 TST1,70 PRINT BROADSIDE PATTERN(7440/7445,7450). A BROADSIDE
     1717                            *      ------- ---------------------------------------- PATTERN OF ALL
     1718                            *      CHARACTERS ARE PRINTED. TERMINAL STATUS IS TESTED.
     1719                            *
     1720                            * 7001 STATUS ERROR FOR BROADSIDE LINE.
     1721                            *
     1722                            * 7100 TST1,71 PRINT - SLIDING ONE COLUMN PATTERN(7440/7445,7450). PRINT
     1723                            *      ------- --------------------------------------------------- WITH
     1724                            *      AUTO UPSPACE IS ISSUED WITH INCREMENTING BYTE COUNTS OF A
     1725                            *      SLIDING 1 COLUMN PATTERN. VERIFY THAT NO PRINT ERRORS OCCUR.
     1726                            *
     1727                            * 7101 STATUS ERROR FOR A PRINT ORDER.
     1728                            *
     1729                            * 7300 PATTERN AND FORMAT TEST(7440/7445,7450). RUN A SELECTED SET OF
     1730                            *      ---------------------------------------- UTILITY TESTS IN
     1731                            *      SEQUENCE. VERIFY THAT NO PRINT ERROR OR PAPER FAULT OCCUR.
     1732                            *
     1733                            * 7301 STATUS ERROR FOR HAMMER REGISTRATION
     1734                            *
     1735                            * 7302 STATUS ERROR FOR CHECKERBOARD PATTERN
     1736                            *
     1737                            * 7303 STATUS ERROR FOR RIPPLE TEST PATTERN
     1738                            *
     1739                            * 7304 STATUS ERROR FOR PRINTER SPEED TEST
     1740                            *
     1741                            * 7305 STATUS ERROR FOR SKIP LINE TEST
     1742                            *
     1743                            * 7306 STATUS ERROR FOR CHANNEL SEARCH TEST
     1744                            *
     1745                            * PRINTING AND SPACING:
     1746                            *----------------------
     1747                            *
     1748                            * TST1,42 - SPACE 1 TO 15 LINES IN SEQUENCE (7441 ONLY)
     1749                            *         - SPACE 1 TO  5 LINES IN SEQUENCE (7446 ONLY)
     1750                            *
     1751                            * TST1,43 - PRINT  1 LINE BROADSIDE CHAR 'E'
     1752                            *
     1753                            * TST1,44 - SPACE 1 LINE AND PRINT 1 LINE BROADSIDE CHAR 'E'
     1754                            *
     1755                            * TST1,45 - SPACE 6 TO 15 LINES IN SEQUENCE
     1756                            *
     1757                            * TST1,46 - PRINT 1 LINE BROADSIDE CHAR 'E'
     1758                            *
     1759                            * TST1,47 - PRINT 15 LINES OF BLANK CHARACTER
     1760                            *         - PRINT 132 LINES OF SLIDING ONE COLUMN PATTERN OF CHAR 'E'
     1761                            *         - PRINT 30 LINES ONE CHAR 'E' RANDOM POSITIONING
     1762                            *         - PRINT 10 LINES BROADSIDE CHAR 'E'
     1763                            *         - PRINT 30 LINES RANDOM COLUMN,NO. OF COLUMNS
     1764                            *
     1765                            * TST1,48 - PRINT WITH INHIBIT UPSPACE
     1766                            *
     1767                            * TST1,49 - SPACE 1 TO 15 LINES IN SEQUENCE
     1768                            *
     1769                            * TST1,50 - SPACE 2 LINES AND PRINT 1 LINE BROADSIDE CHAR 'E'
     1770                            *
     1771                            * TST1,52 - PRINT 1 LINE BLANK CHAR
     1772                            *
     1773                            * TST1,53 - PRINT 10 LINES BROADSIDE CHAR 'E'
     1774                            *
     1775                            * TST1,54 - PRINT 64 LINES BROADSIDE PATTERN OF ALL PRINTABLE CHAR
     1776                            *
     1777                            * TST1,55 PRINT 4 LINES OF CHAR '03'
     1778                            *
     1779                            * TST1,56 PRINT 3 LINES AND SPACE 2 LINE
     1780                            *
     1781                            * TST1,58 PRINT TWO LINES OF ALL INVALID CHARACTERS AND TWO        *A04
     1782                            *       LINES OF MIXED VALID AND INVALID CHARACTERS                *A04
     1783                            * TST1,68 - SPACE 1 LINE
     1784                            *
     1785                            * TST1,69 - PRINT 1 CHAR PER LINE: CHAR A,B,D,H,&,-
     1786                            *
     1787                            * TST1,70 - PRINT 64 LINES BROADSIDE PATTERN OF ALL PRINTABLE CHAR
     1788                            *
     1789                            * TST1,71 - PRINT 132 SLIDING ONE COLUMN PATTERN
     1790                            *
     1791                            * TST1,73 - PRINT 32 LINES BROADSIDE CHAR 'E'
     1792                            *         - PRINT 32 LINES OF ALTERNATING BLANK AND CHAR 'E'
     1793                            *         - PRINT 132 LINES OF RIPPLE TEST PATTERN
     1794                            *         - PRINT 36  PRINTER SPEED TEST
     1795                            *         - PRINT 263 PRINTER LOAD TEST PATTERN
     1796                            *         - SPACE 1 TO 7 LINES IN SEQUENCE (7450 ONLY)
     1797                            *         - SPACE 1 TO 15 LINES IN SEQUENCE (7440/7445 ONLY)
     1798                            *         - SKIP TO TOP AND BOTTOM OF PAGE (7450 ONLY)
     1799                            *         - SKIP TO ALL 7 CHANNEL IN SEQUENCE (7440/7445 ONLY)
     1800                            *
     1801                            *
     1802                            *
     1803         00000000           R0       EQU      0
     1804         00000001           R1       EQU      1
     1805         00000002           R2       EQU      2
     1806         00000003           R3       EQU      3
     1807         00000004           R4       EQU      4
     1808         00000005           R5       EQU      5
     1809         00000006           R6       EQU      6
     1810         00000007           R7       EQU      7
     1811         00000008           R8       EQU      8
     1812         00000009           R9       EQU      9
     1813         0000000A           R10      EQU      X'A'
     1814         0000000B           R11      EQU      X'B'
     1815         0000000C           R12      EQU      X'C'
     1816         0000000D           R13      EQU      X'D'
     1817         0000000E           R14      EQU      X'E'
     1818         0000000F           R15      EQU      X'F'
     1819   01 00200                          ORG      X'200'
            01 00200
     1820                            *
     1821                            * PROCEDURE
     1822                            *
     1823         00000000           :TSEQ    CNAME
     1824                                     PROC
     1825                            LF       EQU      %
     1826                            I        SET 1
     1827                                     DO       NUM(AF)/4+1
     1828                                     GEN,8,8,8,8  AF(I),AF(I+1),AF(I+2),AF(I+3)
     1829                            I        SET      I+4
     1830                                     FIN
     1831                                     PEND
     1832                            *
     1833                            *
     1834                            *        PROCEDURE
     1835                            *
     1836         00000000           :TSEQEQU CNAME
     1837                                     PROC
     1838                            LF(1)    EQU      AF(1)
     1839                            LF(2)    EQU      AF(1)+1
     1840                            LF(3)    EQU      AF(1)+2
     1841                            LF(4)    EQU      AF(1)+3
     1842                            LF(5)    EQU      AF(1)+4
     1843                            LF(6)    EQU      AF(1)+5
     1844                            LF(7)    EQU      AF(1)+6
     1845                            LF(8)    EQU      AF(1)+7
     1846                                     PEND
     1847                            *                                                                   *A01
     1848                            *  PROCEDURE FOR GENERATING NEW AND OLD VERSION OF THIS PROGRAM     *A01
     1849                            *                                                                   *A01
     1850         00000000           WAITPROC CNAME                                                      *A01
     1851                                     PROC                                                       *A01
     1852                                     GOTO,DPM OLD,NEW                                           *A01
     1853                            OLD      SET X                      OLD VERSION                     *A01
     1854                            LF       WAIT     %                                                 *A01
     1855                                     B        %+1                                               *A01
     1856                                     GOTO     WAITPRO1                                          *A01
     1857                            NEW      SET 1                                                      *A01
     1858                            LF       BAL,15   *:MLT+43          NEW VERSION                     *A01
     1859                                     DATA     AF(1)                                             *A01
     1860                            WAITPRO1 PEND                                                       *A01
     1861                            *
     1862                            *  PROCEDURES
     1863                            *  ----------
     1864                            *
     1865                            *  PROCEDURE  FOR GENERATING DICTONARY DOUBLE WORDS
     1866                            *
     1867         00000000           :PROCDIC CNAME
     1868                                     PROC
     1869                            LF       GEN,32,3,3,3,3,4,16  AF(1),ABSVAL(AF(2)),ABSVAL(AF(3)),;
     1870                                                          ABSVAL(AF(4)),ABSVAL(AF(5)),;
     1871                                                          ABSVAL(AF(6)),ABSVAL(AF(7))
     1872                                     PEND
     1873                            ** ***************************************************************
     1874                            ** ***************************************************************
     1875                            ** *     TO FACILITATE THE TYPING OUT OF CHANGES MADE TO
     1876                            ** *     THIS PROGRAM A PROCEDURE CALLED BY 'REV' IS USED.
     1877                            ** *
     1878                            ** *
     1879                            ** *     METHOD:
     1880                            ** *              1. USE 'REV' AS A COMMAND, IT OPERATES
     1881                            ** *               SIMILAR TO A TEXTC DIRECTIVE.
     1882                            ** *              2. A LABEL OF '' REVISION'' MUST BE USED
     1883                            ** *               WITH THE FIRST CALL OF '' REV''.
     1884                            ** *              3. A LABEL OF ''REVEND'' MUST BE USED WITH
     1885                            ** *               THE LAST CALL OF ''REV''.
     1886                            ** *
     1887                            ** *
     1888                            ** *
     1889                            ** *
     1890                            ** *     WHEN USED CORRECTLY '' REV'' WILL GENERATE ALL OF THE
     1891                            ** *     NECCESSARY CODE TO TYPE THE REVISIONS MADE.
     1892                            ** AN EXAMPLE OF USE WOULD BE:
     1893                            **          CSECT
     1894                            **          ORG    X'(A LOCATION PAST THE LAST LITERAL)'
     1895                            ** REVISION REV   'REVISION XXX'
     1896                            ** REVEND   REV   'NO CHANGES TO THE OPERATING PROCEDURES'
     1897                            ** *        USECT     (PREVIOUSLY DEFINED LABEL)
     1898                            ** NOTE!!! THIS PROCEDURE GENERATES 2 MORE LITERALS.
     1899                            ** **************************************************************
     1900                            ** **************************************************************
     1901         00000000           REVCOUNT SET      0
     1902         00000000           REVSTART SET      0
     1903                            *
     1904         00000000           REV      CNAME
     1905                                     PROC
     1906                                     DO       REVCOUNT=0
     1907                            REVSTART SET      %
     1908                            LF       RES      1
     1909                                     FIN
     1910                            REVCOUNT SET      REVCOUNT+1
     1911                                     DO       SCOR(LF,REVEND)
     1912                                     TEXTC    AF
     1913                                     CODE
     1914                                     ORG      REVSTART
     1915                                     GEN,32   REVCOUNT
     1916                                     ELSE
     1917                                     TEXTC    AF
     1918                                     FIN
     1919                                     PEND
     1920                            *
     1921         00000000           CODE     CNAME
     1922                                     PROC
     1923                            REVPRINT LW,3     REVISION
     1924                                     LW,4     =REVISION+1
     1925                                     STW,4    TEXTADR
     1926                            PRINT    BAL,15   *:PRINT
     1927                            TEXTADR  DATA     0
     1928                                     LB,5     *4
     1929                                     AI,5     4
     1930                                     SLS,5    -2
     1931                                     AW,4     5
     1932                                     BDR,3    PRINT-1
     1933                                     LW,4     NOP
     1934                                     STW,4    REVBRNCH
     1935                                     B        *%-1
     1936                            NOP      NOP
     1937                                     PEND
     1938                            *************************************************************
     1939                            *************************************************************
     1940                            ************   REVISIONS GO HERE*****************************
     1941                            *************************************************************
     1942                            *************************************************************
     1943   01 02E00                          ORG      X'2E00'
            01 02E00

        2*  01 02E01    01404040 A   REVISION REV      ' '                                               *H02
        3*  01 02E02    16E2E8E2 A            REV      'SYST,MODEL,FLAG,DEVICE'                          *H02
            01 02E03    E36BD4D6 A
            01 02E04    C4C5D36B A
            01 02E05    C6D3C1C7 A
            01 02E06    6BC4C5E5 A
            01 02E07    C9C3C540 A
        4*  01 02E08    01404040 A            REV      ' '                                               *H02
        5*  01 02E09    2040C6D3 A            REV      ' FLAG>0 => USE LONG I/O TIMEOUTS'                *H02
            01 02E0A    C1C76EF0 A
            01 02E0B    407E6E40 A
            01 02E0C    E4E2C540 A
            01 02E0D    D3D6D5C7 A
            01 02E0E    40C961D6 A
            01 02E0F    40E3C9D4 A
            01 02E10    C5D6E4E3 A
            01 02E11    E2404040 A
        6*  01 02E12    01404040 A            REV      ' '                                               *H02
     1948   01 02E13    29D4D6C4 A            REV      'MODEL=7441  HIGH PERFORMANCE DRUM PRINTER'
            01 02E14    C5D37EF7 A
            01 02E15    F4F4F140 A
            01 02E16    40C8C9C7 A
            01 02E17    C840D7C5 A
            01 02E18    D9C6D6D9 A
            01 02E19    D4C1D5C3 A
            01 02E1A    C540C4D9 A
            01 02E1B    E4D440D7 A
            01 02E1C    D9C9D5E3 A
            01 02E1D    C5D94040 A
     1949   01 02E1E    21D4D6C4 A            REV      'MODEL=7440  BUFFERED LINE PRINTER'
            01 02E1F    C5D37EF7 A
            01 02E20    F4F4F040 A
            01 02E21    40C2E4C6 A
            01 02E22    C6C5D9C5 A
            01 02E23    C440D3C9 A
            01 02E24    D5C540D7 A
            01 02E25    D9C9D5E3 A
            01 02E26    C5D94040 A
     1950   01 02E27    21D4D6C4 A            REV      'MODEL=7445  BUFFERED LINE PRINTER'
            01 02E28    C5D37EF7 A
            01 02E29    F4F4F540 A
            01 02E2A    40C2E4C6 A
            01 02E2B    C6C5D9C5 A
            01 02E2C    C440D3C9 A
            01 02E2D    D5C540D7 A
            01 02E2E    D9C9D5E3 A
            01 02E2F    C5D94040 A
     1951   01 02E30    30D4D6C4 A            REV      'MODEL=7446 BUSINESS DATA PROCESSING LINE PRINTER'
            01 02E31    C5D37EF7 A
            01 02E32    F4F4F640 A
            01 02E33    C2E4E2C9 A
            01 02E34    D5C5E2E2 A
            01 02E35    40C4C1E3 A
            01 02E36    C140D7D9 A
            01 02E37    D6C3C5E2 A
            01 02E38    E2C9D5C7 A
            01 02E39    40D3C9D5 A
            01 02E3A    C540D7D9 A
            01 02E3B    C9D5E3C5 A
            01 02E3C    D9404040 A
     1952   01 02E3D    22D4D6C4 A            REV      'MODEL=7450  LOW SPEED LINE PRINTER'
            01 02E3E    C5D37EF7 A
            01 02E3F    F4F5F040 A
            01 02E40    40D3D6E6 A
            01 02E41    40E2D7C5 A
            01 02E42    C5C440D3 A
            01 02E43    C9D5C540 A
            01 02E44    D7D9C9D5 A
            01 02E45    E3C5D940 A
     1953   01 02E46    1ED4D6C4 A            REV      'MODEL=7442 90 CHARACTER SET LP'                  *A04
            01 02E47    C5D37EF7 A
            01 02E48    F4F4F240 A
            01 02E49    F9F040C3 A
            01 02E4A    C8C1D9C1 A
            01 02E4B    C3E3C5D9 A
            01 02E4C    40E2C5E3 A
            01 02E4D    40D3D740 A
     1954   01 02E4E    1CD4D6C4 A            REV      'MODEL=3451 LOW SPEED PRINTER'                    *A04
            01 02E4F    C5D37EF3 A
            01 02E50    F4F5F140 A
            01 02E51    D3D6E640 A
            01 02E52    E2D7C5C5 A
            01 02E53    C440D7D9 A
            01 02E54    C9D5E3C5 A
            01 02E55    D9404040 A
        1*  01 02E56    01404040 A            REV      ' '                                               *H02
     1978   01 02E57    32D9C5D4 A            REV      'REMOVE VERTICAL FORMAT CONTROL TAPE BEFORE RUNNING'
            01 02E58    D6E5C540 A
            01 02E59    E5C5D9E3 A
            01 02E5A    C9C3C1D3 A
            01 02E5B    40C6D6D9 A
            01 02E5C    D4C1E340 A
            01 02E5D    C3D6D5E3 A
            01 02E5E    D9D6D340 A
            01 02E5F    E3C1D7C5 A
            01 02E60    40C2C5C6 A
            01 02E61    D6D9C540 A
            01 02E62    D9E4D5D5 A
            01 02E63    C9D5C740 A
     1979   01 02E64    25E3E2E3 A   REVEND   REV      'TST1 OR TST0 FOR MODEL 7441 AND 7446.'
            01 02E65    F140D6D9 A
            01 02E66    40E3E2E3 A
            01 02E67    F040C6D6 A
            01 02E68    D940D4D6 A
            01 02E69    C4C5D340 A
            01 02E6A    F7F4F4F1 A
            01 02E6B    40C1D5C4 A
            01 02E6C    40F7F4F4 A
            01 02E6D    F64B4040 A
            01 02E6E    32302E00
            01 02E6F    32402247 02
            01 02E70    35402E72
            01 02E71    EAF0021C A
            01 02E72    00000000 A
            01 02E73    F2500004 A
            01 02E74    20500004 A
            01 02E75    2550007E A
            01 02E76    30400005 A
            01 02E77    64302E70
            01 02E78    32402E7B
            01 02E79    3540040C 02
            01 02E7A    E8002E79
            01 02E7B    02000000 A
            01 02E00    0000000F A
     1980         00000002           DPM      EQU      2                                                 *A01
     1981                            *
1 C00   19:44 JUN 20,'83    TELEFILE COMPREHENSIVE LINE PRINTER TEST 960-0606-H02                 PAGE    5
A    1983                            *
     1984                            *  MONITOR LINK TABLE
     1985                            *  ------------------
     1986                            *                     THIS TABLE IS LOADED BY THE MONITOR FOR THE
     1987                            *  PURPOSE OF ESTABLISHING COMMUNICATIONS BETWEEN THE TEST PROGRAM AND
     1988                            *  THE MONITOR (DPM).
     1989                            *
     1990   00 00000                 ASECTMLT ASECT
     1991   00 00200                          ORG      X'200'
            00 00200
     1992                            *
     1993         00 00200           :MLT     EQU      %                 ABSOLUTE RECOVERY LOCATION
     1995         00 00201           :P1      EQU      :MLT+1            DIRECTIVE PARAMETER 1
     1996         00 00202           :P2      EQU      :MLT+2            DIRECTIVE PARAMETER 2
     1997         00 00203           :P3      EQU      :MLT+3            DIRECTIVE PARAMETER 3
     1998         00 00204           :P4      EQU      :MLT+4            DIRECTIVE PARAMETER 4
     1999         00 0020F           :DUMP    EQU      :MLT+15           ADDR OF MEMORY DUMP ROUTINE
     2000         00 00211           :PSW     EQU      :MLT+17           PARAMETER STATUS WORD
     2001         00 00213           :BCDC    EQU      :MLT+19           ADDR OF BCD FORMAT CONVERSION
     2002         00 00214           :MONITOR EQU      :MLT+20           DIRECTIVE RETURN ADDRESS
     2003         00 00216           :BINC    EQU      :MLT+22           ADDR OF BINARY FORMAT CONVERSION R
     2004         00 00217           :DECC    EQU      :MLT+23           ADDR OF DECIMAL FORMAT CONVERSION
     2005         00 00218           :HEXC    EQU      :MLT+24           ADDR OF HEXADEC FORMAT CONVERSION
     2006         00 00219           :1BYTEIN EQU      :MLT+25           ADDR OF 1 BYTE INPUT ROUTINE
     2007         00 0021A           :CURBCNT EQU      :MLT+26           CURRENT BYTE COUNT
     2008         00 0021B           :MERROR  EQU      :MLT+27           ADDR OF ERROR REPORT ROUTINE
     2009         00 0021C           :PRINT   EQU      :MLT+28           ADDR OF MESSAGE PRINT ROUTINE
     2010         00 0021D           :MSENSE  EQU      :MLT+29           ADDR OF SENSE SWITCH 1,3 TESTS
     2011         00 0021E           :MONWAIT EQU      :MLT+30           MONITOR WAIT
     2012         00 0021F           :MRECOVR EQU      :MLT+31           BRANCH TO ABSOLUTE RECOVERY LOCATION
     2013         00 00220           :MSGOUT  EQU      :MLT+32           MSG OUTPUT DEVICE, TYPE AND ADDR
     2014         00 00221           :MSGIN   EQU      :MLT+33           MSG INPUT DEVICE, TYPE AND ADDR
     2015         00 00222           :LOADIN  EQU      :MLT+34           ADDR OF INITIAL LOADING DEVICE
     2016         00 00224           :KSRADR  EQU      :MLT+36           KEYBOARD/PRINTER DEVICE ADDR X'001
     2017         00 00225           :MACHINE EQU      :MLT+37           MACHINE TYPE CODE(0 = 5/7, 9 = 8/9)
     2018         00 00226           :RELBIAS EQU      :MLT+38           RELOCATION BIAS
     2019         00 00227           :RLOADER EQU      :MLT+39           ADDR OF RESIDENT LOADER
     2020         00 00228           :DTLFLAG EQU      :MLT+40           DIAGNOSTIC TAPE LIBRARY FLAG
     2021         00 00229           :PREPORT EQU      :MLT+41           ADDR OF PARAMETER ERROR REPORT
     2022         00 0022A           :QSENSE  EQU      :MLT+42           QUICK SENSE                     *A01
     2023         00 0022B           :WAIT    EQU      :MLT+43           WAIT SUBR.                      *A01
     2024         00 0022C           :DICINDX EQU      :MLT+44           ADDR OF DICTIONARY (DPM)
     2025         00 0022D           :DICILEN EQU      :MLT+45           LENGHT OF DICTIONARY (DPM)
     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           ADDR OF MONITOR PARAMETER BUFFER
     2030         00 00237           :REMOTE  EQU      :MLT+55           BRANCH TO CONNECT REMOTE        *A01
     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                 ADDR OF LOC. CONTAINING CATALOG NO.
     2042   00 00301    00000338 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    0000040B 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    000003AD 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                 RUNFLAG, 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
1 C00   19:44 JUN 20,'83    TELEFILE COMPREHENSIVE LINE PRINTER TEST 960-0606-H02                 PAGE    6
A    2063                            *
     2064                            *  DIRECTIVE DICTIONARY
     2065                            *  --------------------
     2066                            *                        THIS TABLE SUPPLIES THE MONITOR WITH
     2067                            *  INFORMATION ABOUT EACH DIRECTIVE AVAILABLE IN THE TEST PROGRAM.
     2068                            *  EACH DICTIONARY ENTRY CONSISTS OF 2 WORDS (64 BITS) WHICH ARE
     2069                            *  DEFINED AS FOLLOWS:
     2070                            *
     2071                            *  BITS 00 THRU 31  4 BYTE MNEMONIC IDENTIFIER IN EBCDIC
     2072                            *  BITS 32 THRU 34  TYPE OF CONVERSION FOR PARAMETER 1.
     2073                            *  BITS 35 THRU 37  TYPE OF CONVERSION FOR PARAMETER 2.
     2074                            *  BITS 38 THRU 40  TYPE OF CONVERSION FOR PARAMETER 3.
     2075                            *  BITS 41 THRU 43  TYPE OF CONVERSION FOR PARAMETER 4.
     2076                            *  BITS 44 THRU 47  NOT ASSIGNED; MUST BE EQUAL TO ZERO
     2077                            *  BITS 48 THRU 63  ROUTINE ADDRESS
     2078                            *
     2079                            *  TYPE OF PARAMETER CONVERSION
     2080                            *
     2081                            *  000   HEXADECIMAL CONVERSION
     2082                            *  001   DECIMAL CONVERSION TO BINARY
     2083                            *  002   ALPHANUMERIC
     2084                            *  007   UNASSIGNED
     2085                            *
     2086   02 00000                 CSECTDIC CSECT
     2087   02 00320                          ORG      X'320'
            02 00320
     2088         02 00320           :DIC     EQU      %
     2089   02 00320    E3E2E3F0 A            :PROCDIC 'TST0',7,7,7,7,0,TST0      COMPREHENSIVE
                        FFF00416
     2090   02 00322    E3E2E3F1 A            :PROCDIC 'TST1',1,1,7,7,0,TST1      FUNCTIONAL TEST
                        27F00424
     2091   02 00324    E3E2E3F2 A            :PROCDIC 'TST2',1,7,7,7,0,TST2      RANDOM EXERCISER
                        3FF015E4
     2092   02 00326    E3E2E3F3 A            :PROCDIC 'TST3',1,1,1,1,0,TST3     UTILITY TEST
                        24901708
     2093   02 00328    C4C1E3C1 A            :PROCDIC 'DATA',1,0,0,0,0,:DATA     DATA DIRECTIVE
                        20001A8A
     2094   02 0032A    D3C9D4E3 A            :PROCDIC 'LIMT',1,1,1,1,0,:LIMIT   LIMIT DIRECTIVE
                        24901AD2
     2095                            *
     2096         02 0032C           :DICEND  EQU      %
     2097                            *
     2098                            *
     2099                            *  CONTEXT DESCRIPTION TABLE
     2100                            *  -------------------------
     2101                            *                             THE CONTEXT DESCRIPTION TABLE ALLOWS
     2102                            *  THE MONITOR TO PASS-ON ENVIRONMENTAL INFORMATION FROM THE 'SYST'
     2103                            *  DIRECTIVE TO THE TEST PROGRAM. NORMALLY ONLY ONE ENTRY WILL BE
     2104                            *  REQUIRED. EACH CONTEXT DESCRIPTION TABLE ENTRY CONSISTS OF 2 WORDS
     2105                            *  (64 BITS) WHICH ARE DEFINED AS FOLLOWS:
     2106                            *
     2107                            *  BITS 00 THRU 08  LENGTH OF CONTEXT DATA BLOCK
     2108                            *  BITS 09 THRU 27  NOT ASSIGNED; MUST BE EQUAL TO ZERO
     2109                            *  BITS 28 THRU 31  NUMBER OF DEVICE MODEL NUMBERS
     2110                            *  BITS 32 THRU 61  ADDR OF CONTEXT DATA BLOCK
     2111                            *
     2112         02 0032C           :CDT     EQU      :DICEND
     2113   02 0032C    01800007 N            GEN,9,19,4,32 :CDBEND-:CDB,0,:CDBMEND-:CDBM,:CDB
                        00000335
     2114         02 0032E           :CDTEND  EQU      %
     2115                            *
     2116                            *
     2117                            *  CONTEXT DATA BLOCK
     2118                            *  ------------------
     2119                            *                      THE CONTEXT DATA BLOCK CONTAINS ENVIRONMENTAL
     2120                            *  INFORMATION FOR THE TEST PROGRAM.
     2121                            *
     2122         02 0032E           :CDBM    EQU      %
     2123   02 0032E    00001D11 A            DATA     7441              HPDP MODEL NUMBER
     2124   02 0032F    00001D12 A            DATA     7442                                              *A04
     2125   02 00330    00001D10 A            DATA     7440
     2126   02 00331    00001D15 A            DATA     7445
     2127   02 00332    00001D16 A            DATA     7446
     2128   02 00333    00001D1A A            DATA     7450
     2129   02 00334    00000D7B A            DATA     3451                                             *A04
     2130         02 00335           :CDBMEND EQU      %
     2131                            *
     2132         02 00335           :CDB     EQU      %
     2133   02 00335    00031D11 A            GEN,16,16 3,7441           PARAMETER COUNT, MODEL NUMBER
     2134   02 00336    00000000 A            DATA     0                 REVISION NUMBER
     2135   02 00337    00000002 A            DATA     2                 DEVICE ADDRESS
     2136                            *
     2137         02 00338           :CDBEND  EQU      %
     2138                            *
     2139                            *
     2140                            *
     2141                            *
     2142         02 00338           :PROGID  EQU      %                 PROGRAM IDENTIFICATION MESSAGE
        1*  02 00338    35E3C5D3 A            TEXTC    TITLE                                             *H02
            02 00339    C5C6C9D3 A
            02 0033A    C540C3D6 A
            02 0033B    D4D7D9C5 A
            02 0033C    C8C5D5E2 A
            02 0033D    C9E5C540 A
            02 0033E    D3C9D5C5 A
            02 0033F    40D7D9C9 A
            02 00340    D5E3C5D9 A
            02 00341    40E3C5E2 A
            02 00342    E340F9F6 A
            02 00343    F060F0F6 A
            02 00344    F0F660C8 A
            02 00345    F0F24040 A
1 C00   19:44 JUN 20,'83    TELEFILE COMPREHENSIVE LINE PRINTER TEST 960-0606-H02                 PAGE    7
A    2146                            *
     2147                            *        *** TEST SEQUENCE TABLE ***
     2148                            *
     2149   02 00346    5051525B A   TSEQ1    :TSEQ    SIOF0,SIOF1,SIOF2,SIOT3,SIOF5,SIOF6,SIOF7
            02 00347    55565700 A
     2150   02 00348    1011121B A   TSEQ2    :TSEQ    TIOF0,TIOF1,TIOF2,TIOT3,TIOF4,TIOF5,TIOF6,TIOF7
            02 00349    14151617 A
            02 0034A    00000000 A
     2151   02 0034B    10191A1B A   TSEQ4    :TSEQ    TIOF0,TIOT1,TIOT2,TIOT3,TIOF4,TIOT5,TIOT6,TIOF7
            02 0034C    141D1E17 A
            02 0034D    00000000 A
     2152   02 0034E    48414243 A   TSEQ5    :TSEQ    TDVT0,TDVF1,TDVF2,TDVF3,TDVF4
            02 0034F    44000000 A
     2153   02 00350    40494243 A   TSEQ6    :TSEQ    TDVF0,TDVT1,TDVF2,TDVF3,TDVF4
            02 00351    44000000 A
     2154   02 00352    40414A43 A   TSEQ7    :TSEQ    TDVF0,TDVF1,TDVT2,TDVF3,TDVF4
            02 00353    44000000 A
     2155   02 00354    4041424B A   TSEQ8    :TSEQ    TDVF0,TDVF1,TDVF2,TDVT3,TDVF4
            02 00355    44000000 A
     2156   02 00356    40414243 A   TSEQ9    :TSEQ    TDVF0,TDVF1,TDVF2,TDVF3,TDVT4
            02 00357    4C000000 A
     2157   02 00358    20212223 A   TSEQ11   :TSEQ    OSBF0,OSBF1,OSBF2,OSBF3,OSBF4,OSBF5,OSBF6,OSBF7
            02 00359    24252627 A
            02 0035A    00000000 A
     2158   02 0035B    28212223 A   TSEQ12   :TSEQ    OSBT0,OSBF1,OSBF2,OSBF3,OSBF4,OSBF5,OSBF6,OSBF7
            02 0035C    24252627 A
            02 0035D    00000000 A
     2159   02 0035E    40414243 A   TSEQ13   :TSEQ    TDVF0,TDVF1,TDVF2,TDVF3,TDVF4,TDVF5,TDVF6,TDVF7
            02 0035F    44454647 A
            02 00360    00000000 A
     2160                            TSEQ14   :TSEQ    TIOF0,TIOF1,TIOF2,TIOT3,TIOF4,TIOF5,TIOF6,TIOF7,;
     2161                                              OSBF0,OSBF1,OSBF2,OSBF3,OSBF4,OSBF5,OSBF6,OSBF7,;
     2162   02 00361    1011121B A                     TDVF0,TDVF1,TDVF2,TDVF4,TDVF5,TDVF6,TDVF7,BYT00
            02 00362    14151617 A
            02 00363    20212223 A
            02 00364    24252627 A
            02 00365    40414244 A
            02 00366    454647E1 A
            02 00367    00000000 A
     2163                            TSEQ15   :TSEQ    TIOF0,TIOF1,TIOF2,TIOT3,TIOF4,TIOF5,TIOF6,TIOF7,;
     2164                                              OSBF0,OSBF1,OSBF2,OSBF3,OSBF4,OSBF5,OSBF6,OSBF7,;
     2165   02 00368    1011121B A                     TDVF0,TDVF1,TDVF6,BYT00
            02 00369    14151617 A
            02 0036A    20212223 A
            02 0036B    24252627 A
            02 0036C    404146E1 A
            02 0036D    00000000 A
     2166                            TSEQ16   :TSEQ    TIOF0,TIOF1,TIOF2,TIOT3,TIOF4,TIOF5,TIOF6,TIOF7,;
     2167                                              OSBF0,OSBF1,OSBF2,OSBF3,OSBF4,OSBF5,OSBF6,OSBF7,;
     2168   02 0036E    1011121B A                     BYT00
            02 0036F    14151617 A
            02 00370    20212223 A
            02 00371    24252627 A
            02 00372    E1000000 A
     2169                            TSEQ17   :TSEQ    TIOF0,TIOF1,TIOF2,TIOT3,TIOF4,TIOF5,TIOF6,TIOF7,;
     2170                                              OSBT0,OSBF1,OSBF2,OSBF3,OSBF4,OSBF5,OSBF6,OSBF7,;
     2171   02 00373    1011121B A                     BYT00
            02 00374    14151617 A
            02 00375    28212223 A
            02 00376    24252627 A
            02 00377    E1000000 A
     2172   02 00378    48414243 A   TSEQ18   :TSEQ    TDVT0,TDVF1,TDVF2,TDVF3,TDVF4,TDVT5,TDVF6,TDVF7
            02 00379    444D4647 A
            02 0037A    00000000 A
     2173   02 0037B    40494243 A   TSEQ19   :TSEQ    TDVF0,TDVT1,TDVF2,TDVF3,TDVT5,TDVT6,TDVT7
            02 0037C    4D4E4F00 A
     2174   02 0037D    40414A4B A   TSEQ20   :TSEQ    TDVF0,TDVF1,TDVT2,TDVT3,TDVF4,TDVF5,TDVF6,TDVF7
            02 0037E    44454647 A
            02 0037F    00000000 A
     2175   02 00380    40414244 A   TSEQ21   :TSEQ    TDVF0,TDVF1,TDVF2,TDVF4,TDVF5,TDVF6,TDVF7
            02 00381    45464700 A
     2176                            TSEQ23   :TSEQ    TIOF0,TIOF1,TIOF2,TIOT3,TIOF4,TIOF5,TIOF6,TIOF7,;
     2177   02 00382    1011121B A                     OSBF0,OSBF1,OSBF2,OSBF3,OSBF4,OSBF5,OSBF6,OSBF7
            02 00383    14151617 A
            02 00384    20212223 A
            02 00385    24252627 A
            02 00386    00000000 A
     2178   02 00387    40414243 A   TSEQ24   :TSEQ    TDVF0,TDVF1,TDVF2,TDVF3,TDVT4,TDVT5,TDVT6,TDVT7
            02 00388    4C4D4E4F A
            02 00389    00000000 A
     2179   02 0038A    40494243 A   TSEQ25   :TSEQ    TDVF0,TDVT1,TDVF2,TDVF3,TDVT4,TDVT5,TDVT6,TDVT7
            02 0038B    4C4D4E4F A
            02 0038C    00000000 A
     2180                            TSEQ26   :TSEQ    TIOF0,TIOF1,TIOF2,TIOT3,TIOT4,TIOF5,TIOF6,TIOF7,;
     2181   02 0038D    1011121B A                     OSBT0,OSBF1,OSBF2,OSBF3,OSBF4,OSBF5,OSBF6,OSBF7
            02 0038E    1C151617 A
            02 0038F    28212223 A
            02 00390    24252627 A
            02 00391    00000000 A
     2182                            TSEQ27   :TSEQ    TIOF0,TIOF1,TIOF2,TIOT3,TIOF4,TIOF5,TIOF6,TIOF7,;
     2183                                              OSBF1,OSBF2,OSBF3,OSBF4,OSBF5,OSBF6,OSBF7,;
     2184   02 00392    1011121B A                     TDVF1,TDVF2,TDVF5
            02 00393    14151617 A
            02 00394    21222324 A
            02 00395    25262741 A
            02 00396    42450000 A
     2185                            TSEQ28   :TSEQ    TIOF0,TIOF1,TIOF2,TIOT3,TIOF4,TIOF5,TIOF6,TIOF7,;
     2186                                              OSBF0,OSBF1,OSBF2,OSBF3,OSBF4,OSBF5,OSBF5,OSBF7,;
     2187   02 00397    1011121B A                     TDVF2,TDVF5
            02 00398    14151617 A
            02 00399    20212223 A
            02 0039A    24252527 A
            02 0039B    42450000 A
     2188   02 0039C    44000000 A   TSEQ29   :TSEQ    TDVF4
     2189   02 0039D    4C000000 A   TSEQ30   :TSEQ    TDVT4
     2190   02 0039E    42434C4D A   TSEQ31   :TSEQ    TDVF2,TDVF3,TDVT4,TDVT5,TDVT6,TDVT7
            02 0039F    4E4F0000 A
     2191   02 003A0    44460000 A   TSEQ34   :TSEQ    TDVF4,TDVF6
     2192   02 003A1    41460000 A   TSEQ35   :TSEQ    TDVF1,TDVF6
     2193   02 003A2    4049424B A   TSEQ36   :TSEQ    TDVF0,TDVT1,TDVF2,TDVT3,TDVT4,TDVF5,TDVF6,TDVF7
            02 003A3    4C454647 A
            02 003A4    00000000 A
     2194   02 003A5    4049424B A   TSEQ37   :TSEQ    TDVF0,TDVT1,TDVF2,TDVT3,TDVT4,TDVF5,TDVF6
            02 003A6    4C454600 A
     2195                            TSEQ38   :TSEQ    TIOF0,TIOF1,TIOF2,TIOT3,TIOF4,TIOF5,TIOF6,TIOF7,;
     2196                                              OSBF1,OSBF2,OSBF3,OSBF4,OSBF5,OSBF6,OSBF7,;
     2197   02 003A7    1011121B A                     TDVT1,TDVF2,TDVF5
            02 003A8    14151617 A
            02 003A9    21222324 A
            02 003AA    25262749 A
            02 003AB    42450000 A
     2198   02 003AC    00000000 A   T1TSEQ   DATA     0
     2199                            *
1 C00   19:44 JUN 20,'83    TELEFILE COMPREHENSIVE LINE PRINTER TEST 960-0606-H02                 PAGE    8
A    2201                            *        *** INITIAL - INITIALIZATION ROUTINE ***
     2202                            *
     2203                            * THIS ROUTINE IS ACCESSED BY THE MONITOR AFTER LOADING THE TEST
     2204                            * PROGRAM AND WHENEVER A SYST DIRECTIVE IS EXECUTED BY THE USER.
     2205                            *
     2206   02 003AD    35F0040A     :INITIAL STW,15   INITIALX          SAVE RETURN ADDRESS
     2207   02 003AE    6AF00237 A            BAL,15   :REMOTE           CONNECT REMOTE                  *A01
     2208   02 003AF    6AF0040B              BAL,15   :RECOVER
     2209   02 003B0    52E00335              LH,14    :CDB              FETCH NUMBER OF PARAMETER ENTERED
     2210   02 003B1    21E00003 A            CI,14    3                 COMPARE TO 3
     2211   02 003B2    683003B7              BE       %+5               B: NO. OF PAR = 3
     2212   02 003B3    3530030A A            STW,3    :PIT10            SAVE PARAMETER IN ERROR
     2213   02 003B4    22E00000 A   INITIALA LI,14    0                 RESET RUN FLAG
     2214   02 003B5    35E0030C A            STW,14   :PIT12
     2215   02 003B6    E800040A              B        *INITIALX         RETURN TO MONITOR

     2220   02 003B7    32E00337              LW,14    :CDB+2            DEVICE ADDRESS
     2221   02 003B8    21E00080 A            CI,14    X'80'             IS IT SINGLE UNIT ADDR
     2222   02 003B9    694003B3              BCS,4    INITIALA-1         B: NO
     2223   02 003BA    21E01B7F A            CI,14    X'1B7F'           IS DEVICE ADDRESS VALID
     2224   02 003BB    692003B3              BG       INITIALA-1        B: NO, DEVICE ADDR > X'7FF'
     2225   02 003BC    35E01C3E              STW,14   :DEVADDR          SAVE DEVICE ADDRESS
     2226   02 003BD    22EFFFFF A            LI,14    -1                SET RUN FLAG
     2227   02 003BE    35E0030C A            STW,14   :PIT12
     2228   02 003BF    32E02248              LW,14    =X'EF7FC000'      TDV STATUS
     2229   02 003C0    35E0203C              STW,14   EXECREC1          SAVE
     2230   02 003C1    22E01A08              LI,14    CHARTBL           CHAR TABLE ADDR
     2231   02 003C2    35E0194E              STW,14   CHARTBLX          SAVE
     2232   02 003C3    22E00040 A            LI,14    64                CHARACTER INDEX = 64           *A04
     2233   02 003C4    35E00409              STW,14   CHARINDX                                         *A04
     2234   02 003C5    22E00006 A            LI,14    6                                                 *A04
     2235   02 003C6    35E0211C              STW,14   CHARBIT           SAVE TOTAL CHARACTER BITS       *A04
     2236   02 003C7    22E0003F A            LI,14    X'3F'                                             *A04
     2237   02 003C8    35E0211D              STW,14   CHARMASK          SAVE CHARACTER MASK             *A04
     2238   02 003C9    32E02249              LW,14    =X'5C5C5C5C'      SYNC CHARACTER
     2239   02 003CA    35E0194F              STW,14   SYNCCHAR          SAVE
     2240   02 003CB    22E0006A A            LI,14    X'6A'
     2241   02 003CC    75E21A16              STB,14   CHARTBLA,1        INITIALIZE
     2242   02 003CD    22E0006F A            LI,14    X'6F'
     2243   02 003CE    75E01A17              STB,14   CHARTBLA+1           CHARACTER DRUM SEQUENCE TABLE
     2244   02 003CF    52E20335              LH,14    :CDB,1            FETCH MODEL NUMBER
     2245   02 003D0    21E01D11 A            CI,14    7441              IS IT FOR MODEL 7441
     2246   02 003D1    683003E4              BE       INITIALB          B: YES
     2247   02 003D2    21E01D16 A            CI,14    7446              IS IT FOR MODEL 7446
     2248   02 003D3    683003E9              BE       INITIALC          B: YES
     2249   02 003D4    21E01D1A A            CI,14    7450              IS IT FOR 7450
     2250   02 003D5    683003EF              BE       INITIALD          B: YES
     2251   02 003D6    21E01D12 A            CI,14    7442              IS IT FOR 7442                 *A04
     2252   02 003D7    683003FA              BE       INITIALE          B: YES                         *A04
     2253   02 003D8    22E00008 A            LI,14    8
     2254   02 003D9    35E015B2              STW,14   TST1FLGM          SET MODEL NUMBER FLAG
     2255   02 003DA    22E019F9              LI,14    CHARTBL1          FETCH CHAR TABLE ADDR
     2256   02 003DB    35E0194E              STW,14   CHARTBLX          SAVE
     2257   02 003DC    32E0224A              LW,14    =X'E7E7E7E7'      SYNC CHARACTER
     2258   02 003DD    35E0194F              STW,14   SYNCCHAR          SAVE
     2259   02 003DE    22E00028 A            LI,14    40
     2260   02 003DF    35E01950              STW,14   LASTCHAR          LAST CHARACTER
     2261   02 003E0    22E00392              LI,14    TSEQ27            TEST SEQ
     2262   02 003E1    25E00002 A            SLS,14   2                BYTE ADDRESS
     2263   02 003E2    35E0154E              STW,14   T69M011           SAVE
     2264   02 003E3    E800040A              B        *INITIALX         RETURN TO MONITOR
     2265   02 003E4    22E00004 A   INITIALB LI,14    4
     2266   02 003E5    35E015B2              STW,14   TST1FLGM          SET  MODEL NUMBER FLAG
     2267   02 003E6    22E0002A A            LI,14    42
     2268   02 003E7    35E01950              STW,14   LASTCHAR          LAST CHARACTER
     2269   02 003E8    E800040A              B        *INITIALX         RETURN TO MONITOR
     2270   02 003E9    352015B2     INITIALC STW,2    TST1FLGM          SET MODEL NUMBER FLAG
     2271   02 003EA    32E0224B              LW,14    =X'E9E9E9E9'     SYNC CHAR
     2272   02 003EB    35E0194F              STW,14   SYNCCHAR          SAVE
     2273   02 003EC    22E0002A A            LI,14    42
     2274   02 003ED    35E01950              STW,14   LASTCHAR          LAST CHARACTER
     2275   02 003EE    E800040A              B        *INITIALX         RETURN TO MONITOR
     2276   02 003EF    351015B2     INITIALD STW,1    TST1FLGM          SET MODEL NUMBER FLAG
     2277   02 003F0    32E0224C              LW,14    =X'AC7FC000'       TDV STATUS
     2278   02 003F1    35E0203C              STW,14   EXECREC1          SAVE
     2279   02 003F2    22E0006F A            LI,14    X'6F'
     2280   02 003F3    75E21A16              STB,14   CHARTBLA,1        INITIALIZE
     2281   02 003F4    22E0006A A            LI,14    X'6A'
     2282   02 003F5    75E01A17              STB,14   CHARTBLA+1           CHARACTER DRUM SEQUENCE TABLE
     2283   02 003F6    22E003A7              LI,14    TSEQ38            TESTSEQ
     2284   02 003F7    25E00002 A            SLS,14   2                BYTE ADDRESS
     2285   02 003F8    35E0154E              STW,14   T69M011           SAVE
     2286   02 003F9    E800040A              B        *INITIALX         RETURN TO MONITOR
     2287   02 003FA    32E0224D     INITIALE LW,14    =X'80000004'                                     *A04
     2288   02 003FB    35E015B2              STW,14   TST1FLGM          SET MODEL NUMBER FLAG          *A04
     2289   02 003FC    22E00026 A            LI,14    38                                               *A04
     2290   02 003FD    35E01950              STW,14   LASTCHAR                                         *A04
     2291   02 003FE    32E0224A              LW,14    =X'E7E7E7E7'      SYNC CHARACTER                 *A04
     2292   02 003FF    35E0194F              STW,14   SYNCCHAR          SAVE                           *A04
     2293   02 00400    22E01A18              LI,14    CHARTBL2          FETCH TABLE ADDR                *A04
     2294   02 00401    35E0194E              STW,14   CHARTBLX          SAVE                           *A04
     2295   02 00402    22E0005B A            LI,14    91                CHARACTER INDEX = 91           *A04
     2296   02 00403    35E00409              STW,14   CHARINDX                                         *A04
     2297   02 00404    22E00007 A            LI,14    7                                                 *A04
     2298   02 00405    35E0211C              STW,14   CHARBIT           SAVE TOTAL CHARACTER BITS       *A04
     2299   02 00406    22E0007F A            LI,14    X'7F'                                             *A04
     2300   02 00407    35E0211D              STW,14   CHARMASK          SAVE CHARACTER MASK             *A04
     2301   02 00408    E800040A              B        *INITIALX         RETURN TO MONITOR               *A04
     2302                            *
     2303   02 00409    00000000 A   CHARINDX DATA     0                                                *A04
     2304   02 0040A    00000000 A   INITIALX DATA     0                 RETURN ADDRESS
1 C00   19:44 JUN 20,'83    TELEFILE COMPREHENSIVE LINE PRINTER TEST 960-0606-H02                 PAGE    9
A    2306                            *                                                                      *
     2307                            *            *** RECOVER - RECOVERY ROUTINE  ***                       *
     2308                            *                                                                      *
     2309                            *  THE RECOVER ROUTINE RE-INITIALIZES PROGRAM PARAMETERS WHEN THE PCP  *
     2310                            *  INTERRUPT SWITCH IS DEPRESSED.                                      *
     2311                            *                                                                      *
     2312   02 0040B    35F00415     :RECOVER STW,R15  RECOVERX          SAVE RETURN ADDRESS
     2313                            *******************
     2314                            *************
     2315                            *****   THE FOLLOWING DO LOOP HAS TO BE INSERTED
     2316                            *****   IN :RECOVERY.
     2317                            ********
     2318         02 0040C           REVBRNCH EQU      %
     2319         00000000                    DO       REVCOUNT=0
     2320                        *S*          NOP
     2321                                     ELSE
     2322   02 0040C    6AF02E6E 01           BAL,15   REVPRINT
     2323                                     FIN
     2324   02 0040D    22100001 A            LI,1     1
     2325   02 0040E    22200002 A            LI,2     2
     2326   02 0040F    22300003 A            LI,3     3
     2327   02 00410    6AF01FE3              BAL,R15  :INTD             DISARM IO INTERRUPT
     2328   02 00411    6AF01D64              BAL,R15  :DELAYD           DISARM COUNTER 4 INTERRUPTS
     2329   02 00412    6AF01F85              BAL,R15  :SAVECLR          CLEAR ERROR REPORT TABLE
     2330   02 00413    CFC01C3E              HIO,12   *:DEVADDR          ISSUE  HIO
     2331   02 00414    E8000415              B        *RECOVERX         EXIT
     2332                            *
     2333   02 00415    00000000 A   RECOVERX DATA     0
1 C00   19:44 JUN 20,'83    TELEFILE COMPREHENSIVE LINE PRINTER TEST 960-0606-H02                 PAGE   10
A    2335                            *                                                                      *
     2336                            *            *** TST0 - FUNCTIONAL TEST AND RANDOM EXERCISER ***       *
     2337                            *                                                                      *
     2338                            *  THIS DIRECTIVE ALLOWS THE USER TO SPECIFY THE EXECUTION OF THE      *
     2339                            *  FUNCTIONAL TEST, FOLLOWED  IMMEDIATELY BY THE RANDOM EXERCISER.     *
     2340                            *                                                                      *
     2341                            *  P1 THRU P4 ARE NOT USED                                             *
     2342                            *                                                                      *
     2343   02 00416    22E00000 A   TST0     LI,14    0                 SET TEST FLAG TO 0
     2344   02 00417    35E00423              STW,14   TSTFLAG
     2345   02 00418    35100201 A            STW,1    :P1               INITIALIZE STARTING SUBTEST
     2346   02 00419    22E00049 A            LI,14    73                    AND
     2347   02 0041A    35E00202 A            STW,14   :P2                   ENDING SUBTEST
     2348   02 0041B    68000427              B        TST1ALT           GO TO TEST1
     2349   02 0041C    22E00006 A   TST0A    LI,14    6                 INITIALIZE CYCLE COUNT
     2350   02 0041D    35E00201 A            STW,14   :P1
     2351   02 0041E    680015EC              B        TST2ALT           GO TO TEST2
     2352   02 0041F    EAF02200     TST0B    BAL,15   *:SENSE           TEST SENSE SWITCH 1,3
     2353   02 00420    2E000420              WAIT     %
     2354   02 00421    68000418              B        TST0+2            LOOP
     2355   02 00422    E8000214 A            B        *:MONITOR         RETURN TO MONITOR
     2356                            *
     2357   02 00423    00000000 A   TSTFLAG   DATA     0
1 C00   19:44 JUN 20,'83    TELEFILE COMPREHENSIVE LINE PRINTER TEST 960-0606-H02                 PAGE   11
A    2359                            *                                                                      *
     2360                            *            *** TST1 - FUNCTIONAL TEST ***                            *
     2361                            *                                                                      *
     2362                            *  THIS DIRECTIVE ALLOWS THE USER TO SELECT ONE OR MORE CONTIGUOUS     *
     2363                            *  FUNCTIONAL SUBTESTS BY SPECIFYING IN PARAMETERS P1 AND P2           *
     2364                            *  THE STARTING AND ENDING SUBTEST NUMBERS:                            *
     2365                            *                                                                      *
     2366                            *    P1 = 1 THUR 73                                                    *
     2367                            *    P2 = 1 THUR 73  (WHERE 1<=P1<=P2<=73)                             *
     2368                            *                                                                      *
     2369                            *     NO OTHER VALUES OF P1 AND P2 ARE ALLOWED. IF P1 AND P2 ARE NOT   *
     2370                            *    SPECIFIED, SUBTESTS 1 THUR 73 WILL BE PERFORMED.                  *
     2371                            *                                                                      *
     2372                            *     PARAMETERS P3 AND P4 ARE NOT USED.                               *
     2373                            *                                                                      *
     2374   02 00424    35100423     TST1     STW,1    TSTFLAG           SAVE TEST FLAG
     2375   02 00425    22E00000 A            LI,14    0
     2376   02 00426    35E004B4              STW,14   TST1FLG1          RESET APPLICABLE SUBTEST MSG FLAG
     2377   02 00427    32C00201 A   TST1ALT  LW,12    :P1               STARTING SUBTEST
     2378   02 00428    68300438              BEZ      TST102            B: STARTING SUBTEST NOT SPECIFIED
     2379   02 00429    21C00049 A            CI,12    73                IS STARTING SUBTEST VALID
     2380   02 0042A    6820042F              BLE      %+5               B: NO, P1 IN ERROR
     2381   02 0042B    3510030A A   TST101   STW,1    :PIT10            PARAMETER IN ERROR: P1 >73 OR P2
     2382   02 0042C    EAF00229 A            BAL,15   *:PREPORT         REPORT PAR. ERROR
     2383   02 0042D    00000322              DATA     :DIC+2            'TST1'
     2384   02 0042E    E8000214 A            B        *:MONITOR         EXIT
     2385   02 0042F    31C00202 A            CW,12    :P2               STARTING SUBTEST:ENDING SUBTEST
     2386   02 00430    6920042B              BG       TST101            B: STARTING SUBTEST GREATER
     2387   02 00431    32D00202 A            LW,13    :P2               ENDING SUBTEST
     2388   02 00432    21D00049 A            CI,13    73                IS THE LAST SUBTEST VALID
     2389   02 00433    68200436              BLE      %+3               B: YES
     2390   02 00434    3520030A A            STW,2    :PIT10            PARAMETER IN ERROR: P2 > 54
     2391   02 00435    6800042C              B        TST101+1          REPORT PAR. ERROR
     2392   02 00436    15C004B2              STD,12   TST1LMT           SAVE STARTING,ENDING SUBTEST
     2393   02 00437    6800043D              B        TST103
     2394   02 00438    31C00202 A   TST102   CW,12    :P2               IS ENDING SUBTEST SPECIFIED
     2395   02 00439    6930042B              BNE      TST101            B: P2 IN ERROR
     2396   02 0043A    351004B2              STW,1    TST1LMT           SAVE FIRST SUBTEST
     2397   02 0043B    22E00049 A            LI,14    73                LAST SUBTEST
     2398   02 0043C    35E004B3              STW,14   TST1LMT+1         SAVE
     2399   02 0043D    52E20335     TST103   LH,14    :CDB,1            FETCH MODEL NUMBER
     2400   02 0043E    21E01D11 A            CI,14    7441              IS IT MODEL 7441
     2401   02 0043F    68300461              BE       TST108            B: YES, 7441
     2402   02 00440    21E01D12 A            CI,14    7442              IS IT MODEL 7442                *A04
     2403   02 00441    68300461              BE       TST108            B: YES, 7442                    *A04
     2404   02 00442    21E01D16 A            CI,14    7446              IS IT MODEL 7446
     2405   02 00443    68300445              BE       TST107            B: YES, 7446
     2406   02 00444    6800047C              B        TST109
     2407   02 00445    32E003A0     TST107   LW,14    TSEQ34
     2408   02 00446    35E003AC              STW,14   T1TSEQ            7446 TEST SEQUENCE
     2409   02 00447    22E003A2              LI,14    TSEQ36            7446 TEST SEQUENCE
     2410   02 00448    25E00002 A            SLS,14   2                 BYTE ADDRESS
     2411   02 00449    35E01162              STW,14   T50M03+1
     2412   02 0044A    35E01196              STW,14   T52M08+1          SAVE
     2413   02 0044B    35E011DB              STW,14   T53M09+1
     2414   02 0044C    22E003A5              LI,14    TSEQ37            TEST SEQ
     2415   02 0044D    25E00002 A            SLS,14   2                 BYTE ADDR
     2416   02 0044E    35E00F30              STW,14   T44M10+1
     2417   02 0044F    35E01098              STW,14   T47M081           SAVE
     2418   02 00450    22E01147              LI,14    T49SEQ2           TEST SEQ
     2419   02 00451    25E00002 A            SLS,14   2                 BYTE ADDR
     2420   02 00452    35E01125              STW,14   T49M04+1          SAVE
     2421   02 00453    22E00378              LI,14    TSEQ18            TEST SEQ
     2422   02 00454    25E00002 A            SLS,14   2                 BYTE ADDR
     2423   02 00455    35E011A1              STW,14   T52M10+1          SAVE
     2424   02 00456    22E00E23              LI,14    T42CT2
     2425   02 00457    35E00DEA              STW,14   T42CT             7446 DELAY COUNT
     2426   02 00458    22E00E27              LI,14    T42EXP2
     2427   02 00459    35E00DEB              STW,14   T42EXP            7446 EXPECTED TEST SEQUENCE
     2428   02 0045A    22E00E2A              LI,14    T42SEQB
     2429   02 0045B    35E00DEC              STW,14   T42SEQ            7446 TEST SEQUENCE
     2430   02 0045C    22E00040 A            LI,14    64
     2431   02 0045D    35E015C0              STW,14   BYTECNT           7446 BYTE COUNT
     2432   02 0045E    22E000C5 A            LI,14    X'C5'
     2433   02 0045F    35E015BF              STW,14   FORMAT1           7446 MAXIMUM SPACE LINE
     2434   02 00460    6800047C              B        TST109
     2435   02 00461    32E003A1     TST108   LW,14    TSEQ35
     2436   02 00462    35E003AC              STW,14   T1TSEQ            7441 TEST SEQUENCE
     2437   02 00463    22E0038A              LI,14    TSEQ25            7441 TEST SEQUENCE
     2438   02 00464    25E00002 A            SLS,14   2                 BYTE ADDRESS
     2439   02 00465    35E01162              STW,14   T50M03+1
     2440   02 00466    35E01196              STW,14   T52M08+1          SAVE
     2441   02 00467    35E011DB              STW,14   T53M09+1
     2442   02 00468    22E00387              LI,14    TSEQ24           TEST SEQ
     2443   02 00469    25E00002 A            SLS,14   2                BYTE ADDR
     2444   02 0046A    35E00F30              STW,14   T44M10+1         SAVE
     2445   02 0046B    22E0039E              LI,14    TSEQ31            TEST SEQ
     2446   02 0046C    25E00002 A            SLS,14   2                 BYTE ADDR
     2447   02 0046D    35E01098              STW,14   T47M081           SAVE
     2448   02 0046E    35E01125              STW,14   T49M04+1
     2449   02 0046F    22E0037D              LI,14    TSEQ20            TEST SEQ
     2450   02 00470    25E00002 A            SLS,14   2                 BYTE ADDR
     2451   02 00471    35E011A1              STW,14   T52M10+1          SAVE
     2452   02 00472    22E00DED              LI,14    T42CT1
     2453   02 00473    35E00DEA              STW,14   T42CT             7441 DELAY COUNT
     2454   02 00474    22E00DF2              LI,14    T42EXP1
     2455   02 00475    35E00DEB              STW,14   T42EXP            7441 EXPECTED TEST SEQUENCE
     2456   02 00476    22E00DF8              LI,14    T42SEQA
     2457   02 00477    35E00DEC              STW,14   T42SEQ            7441 TEST SEQUENCE
     2458   02 00478    22E00080 A            LI,14    128
     2459   02 00479    35E015C0              STW,14   BYTECNT           7441 BYTE COUNT
     2460   02 0047A    22E000CF A            LI,14    X'CF'
     2461   02 0047B    35E015BF              STW,14   FORMAT1           7441 MAXIMUM SPACE LINE
     2462   02 0047C    32E015B2     TST109   LW,14    TST1FLGM          MODEL FLAG
     2463   02 0047D    4BE0224E              AND,14   =6                MASK
     2464   02 0047E    68300480              BEZ      %+2               B: LP MODEL WITHOUT TEST MODE
     2465   02 0047F    6AF02081              BAL,15   RESTM             RESET TEST MODE
     2466   02 00480    32E015B2              LW,14    TST1FLGM         MODEL NUMBER FLAG
     2467   02 00481    25E0021C A            SCS,14   28                SHIFT TO MSB                   *A04
     2468   02 00482    324004B2              LW,4     TST1LMT           SUBTEST #
     2469   02 00483    4BE804B6              AND,14   TST1G,4           IS SUBTEST APPLICABLE
     2470   02 00484    683004A9              BEZ      TST1051           B:NO
     2471   02 00485    351004B4              STW,1    TST1FLG1          SET APPLICABLE SUBTEST MSG FLAG
     2472   02 00486    32E01D71              LW,14    :DELMTW           MODIFY TEST WORD INSTRUCTION
     2473   02 00487    35E00055 A            STW,14   X'55'             SAVE
     2474   02 00488    32E01D70              LW,14    :DELXPSD          SET IO INTERRUPT LINKAGE
     2475   02 00489    35E0005B A            STW,14   X'5B'
     2476   02 0048A    22E00000 A            LI,14    0
     2477   02 0048B    35E021FA              STW,14   TMFLAG            RESET TEST MODE FLAG
     2478   02 0048C    35E021D5              STW,14   PIOCDFLG          RESET PRINTED IOCD FLAG
     2479   02 0048D    6AF01FE3     TST104   BAL,15   :INTD             DISARM IO INTERRUPT
     2480   02 0048E    6AF01F85              BAL,15   :SAVECLR          CLEAR STATUS SAVE TABLE
     2481   02 0048F    324004B2              LW,4     TST1LMT           SUBTEST#
     2482   02 00490    35402217              STW,4    ITHSUBT           SET INTER/TRAP HDLR SUBTEST
     2483   02 00491    35102216              STW,1    ITHTEST           SET INTER/TRAP HDLR TEST
     2484   02 00492    22E02202              LI,14    ITHDLR
     2485   02 00493    35E0030F A            STW,14   :PIT15            INVOKE HDLR
     2486   02 00494    22E0047C              LI,14    TST109
     2487   02 00495    35E02218              STW,14   ITHRST            TEST RESTART ADDRESS
     2488   02 00496    311004B2              CW,1     TST1LMT           SUBTEST NO.
     2489   02 00497    6830049C              BE       %+5               B: SUBTEST NO 1
     2490   02 00498    6AF01D73              BAL,15   :ERRORT           IS PRINTER IN AUTO
     2491   02 00499    000012D4              DATA     BA(T1TSEQ1)
     2492   02 0049A    6800049C              B        %+2               AUTO
     2493   02 0049B    E8000214 A            B        *:MONITOR         MANUAL, EXIT
     2494   02 0049C    32E804B6              LW,14    TST1G,4           SUBTEST# ADDRESS
     2495   02 0049D    4BE0224F              AND,14   =X'FFFFFF'        MASK
     2496   02 0049E    E800000E A            B        *14               GO TO SUBTEST#
     2497   02 0049F    331004B2     TST105   MTW,1    TST1LMT           INCREMENT SUBTEST#
     2498   02 004A0    32E004B2              LW,14    TST1LMT           SUBTEST#
     2499   02 004A1    31E004B3              CW,14    TST1LMT+1         SUBTEST#:ENDING SUBTEST
     2500   02 004A2    6820047C              BLE      TST109            B: NEXT SUBTEST
     2501   02 004A3    31100423              CW,1     TSTFLAG           IS IT TST1
     2502   02 004A4    6930041C              BNE      TST0A             B: NO, TST0
     2503   02 004A5    EAF02200              BAL,15   *:SENSE           TEST SENSE SWITCH 1,3
     2504   02 004A6    2E0004A6              WAIT     %
     2505   02 004A7    68000427              B        TST1ALT           LOOP
     2506   02 004A8    E8000214 A            B        *:MONITOR         RETURN TO MONITOR
     2507   02 004A9    311004B4     TST1051  CW,1     TST1FLG1          TEST APPLICABLE SUBTEST MSG FLAG
     2508   02 004AA    6830049F              BE       TST105            B: SKIP MSG
     2509   02 004AB    32C004B2              LW,12    TST1LMT           SUBTEST #
     2510   02 004AC    EAF00217 A            BAL,15   *:DECC            CONVERT TO DECIMAL
     2511   02 004AD    55F215DA              STH,15   TST1MSG4+2,1      STORE IN MSG
     2512   02 004AE    EAF0021C A            BAL,15   *:PRINT
     2513   02 004AF    000015D8              DATA     TST1MSG4          'SUBTEST  XX NOT APPLICABLE'
     2514   02 004B0    E8000214 A            B        *:MONITOR         RETURN TO MONITOR
     2515                            *
     2516                                     BOUND    8
     2517   02 004B2    00000000 A   TST1LMT  DATA     0,0
            02 004B3    00000000 A
     2518   02 004B4    00000000 A   TST1FLG1 DATA     0
     2519   02 004B5    1B000000 A   T1TSEQ1  :TSEQ    TIOT3
     2520         02 0049F           EXIT     EQU      TST105
     2521                            *                                                                      *
     2522                            *
     2523                            TST1G    DATA,2   0,0,X'F000',TST11,X'F000',TST12,X'6000',TST13,;
     2524                             X'6000',TST14,X'6000',TST15,X'6000',TST16,X'6000',TST17,0,TST18,0,;
     2525                             TST19,0,TST110,X'6000',TST111,X'6000',TST112,X'6000',TST113,0,TST114,;
     2526                             X'6000',TST115,X'6000',TST116,X'6000',TST117,0,TST118,0,TST119,;
     2527                             X'6000',TST120,X'6000',TST121,X'6000',TST122,X'6000',TST123,X'6000',;
     2528                             TST124,X'6000',TST125,X'6000',TST126,X'6000',TST127,0,TST128,0,TST129,;
     2529                             0,TST130,X'6000',TST131,X'6000',TST132,0,TST133,0,TST134,X'6000',;
     2530                             TST135,X'6000',TST136,X'6000',TST137,0,TST138,0,TST139,X'6000',TST140,;
     2531                             X'6000',TST141,X'6000',TST142,X'6000',TST143,X'6000',TST144,X'2000',;
     2532                             TST145,X'2000',TST146,X'6000',TST147,X'6000',TST148,X'6000',;
     2533                             TST149,X'6000',;
     2534                             TST150,0,TST151,X'6000',TST152,X'6000',TST153,X'6000',TST154,X'2000',;
     2535                             TST155,X'2000',TST156,0,TST157,X'0800',TST158,0,TST159,;          *A04
     2536                             X'9000',TST160,X'9000',;
     2537                             TST161,X'9000',TST162,X'8000',TST163,X'1000',TST164,X'9000',TST165,;
     2538                             X'9000',TST166,0,TST167,X'9000',TST168,X'9000',TST169,X'9000',TST170,;
     2539   02 004B6    0000     A    X'9000',TST171,0,TST172,X'9000',TST173
            02 004B6 2  0000     A
            02 004B7    F000     A
            02 004B7 2  0500     N
            02 004B8    F000     A
            02 004B8 2  0521     N
            02 004B9    6000     A
            02 004B9 2  0558     N
            02 004BA    6000     A
            02 004BA 2  05AE     N
            02 004BB    6000     A
            02 004BB 2  062B     N
            02 004BC    6000     A
            02 004BC 2  064B     N
            02 004BD    6000     A
            02 004BD 2  06C2     N
            02 004BE    0000     A
            02 004BE 2  0712     N
            02 004BF    0000     A
            02 004BF 2  0713     N
            02 004C0    0000     A
            02 004C0 2  0714     N
            02 004C1    6000     A
            02 004C1 2  0715     N
            02 004C2    6000     A
            02 004C2 2  0780     N
            02 004C3    6000     A
            02 004C3 2  07DB     N
            02 004C4    0000     A
            02 004C4 2  083E     N
            02 004C5    6000     A
            02 004C5 2  083F     N
            02 004C6    6000     A
            02 004C6 2  08AF     N
            02 004C7    6000     A
            02 004C7 2  0922     N
            02 004C8    0000     A
            02 004C8 2  0998     N
            02 004C9    0000     A
            02 004C9 2  0999     N
            02 004CA    6000     A
            02 004CA 2  099A     N
            02 004CB    6000     A
            02 004CB 2  09D1     N
            02 004CC    6000     A
            02 004CC 2  0A10     N
            02 004CD    6000     A
            02 004CD 2  0A43     N
            02 004CE    6000     A
            02 004CE 2  0A9B     N
            02 004CF    6000     A
            02 004CF 2  0AEB     N
            02 004D0    6000     A
            02 004D0 2  0B2F     N
            02 004D1    6000     A
            02 004D1 2  0B76     N
            02 004D2    0000     A
            02 004D2 2  0BAC     N
            02 004D3    0000     A
            02 004D3 2  0BAD     N
            02 004D4    0000     A
            02 004D4 2  0BAE     N
            02 004D5    6000     A
            02 004D5 2  0BAF     N
            02 004D6    6000     A
            02 004D6 2  0C00     N
            02 004D7    0000     A
            02 004D7 2  0C41     N
            02 004D8    0000     A
            02 004D8 2  0C42     N
            02 004D9    6000     A
            02 004D9 2  0C43     N
            02 004DA    6000     A
            02 004DA 2  0C77     N
            02 004DB    6000     A
            02 004DB 2  0CA8     N
            02 004DC    0000     A
            02 004DC 2  0CE1     N
            02 004DD    0000     A
            02 004DD 2  0CE2     N
            02 004DE    6000     A
            02 004DE 2  0CE3     N
            02 004DF    6000     A
            02 004DF 2  0D39     N
            02 004E0    6000     A
            02 004E0 2  0D93     N
            02 004E1    6000     A
            02 004E1 2  0E3D     N
            02 004E2    6000     A
            02 004E2 2  0EC9     N
            02 004E3    2000     A
            02 004E3 2  0F64     N
            02 004E4    2000     A
            02 004E4 2  1022     N
            02 004E5    6000     A
            02 004E5 2  1060     N
            02 004E6    6000     A
            02 004E6 2  10D8     N
            02 004E7    6000     A
            02 004E7 2  1111     N
            02 004E8    6000     A
            02 004E8 2  114C     N
            02 004E9    0000     A
            02 004E9 2  116D     N
            02 004EA    6000     A
            02 004EA 2  116E     N
            02 004EB    6000     A
            02 004EB 2  11AD     N
            02 004EC    6000     A
            02 004EC 2  11E4     N
            02 004ED    2000     A
            02 004ED 2  11FF     N
            02 004EE    2000     A
            02 004EE 2  1244     N
            02 004EF    0000     A
            02 004EF 2  12C5     N
            02 004F0    0800     A
            02 004F0 2  12C6     N
            02 004F1    0000     A
            02 004F1 2  12FE     N
            02 004F2    9000     A
            02 004F2 2  12FF     N
            02 004F3    9000     A
            02 004F3 2  1340     N
            02 004F4    9000     A
            02 004F4 2  13C0     N
            02 004F5    8000     A
            02 004F5 2  13EF     N
            02 004F6    1000     A
            02 004F6 2  1434     N
            02 004F7    9000     A
            02 004F7 2  1497     N
            02 004F8    9000     A
            02 004F8 2  14C1     N
            02 004F9    0000     A
            02 004F9 2  1523     N
            02 004FA    9000     A
            02 004FA 2  1524     N
            02 004FB    9000     A
            02 004FB 2  153B     N
            02 004FC    9000     A
            02 004FC 2  155D     N
            02 004FD    9000     A
            02 004FD 2  1560     N
            02 004FE    0000     A
            02 004FE 2  157D     N
            02 004FF    9000     A
            02 004FF 2  157E     N
1 C00   19:44 JUN 20,'83    TELEFILE COMPREHENSIVE LINE PRINTER TEST 960-0606-H02                 PAGE   12
A    2541                            *
     2542                            *
     2543                            *
     2544   02 00500    CFC01C3E     TST11    HIO,12   *:DEVADDR         ISSUE HIO
     2545   02 00501    351021D5              STW,1    PIOCDFLG          SET PRINTED IOCD FLAG
     2546   02 00502    6AF01AFC              BAL,15   :HIO              ISSUE HIO
     2547   02 00503    9700C000 A            DATA     X'9700C000'       STATUS MASK
     2548   02 00504    10000000 A            DATA     X'10000000'       EXPECTED STATUS
     2549   02 00505    68000509              B        T1M01
     2550                            *ERROR 101
     2551   02 00506    EAF021F3              BAL,15   *:ERROR           REPORT ERROR
     2552   02 00507    00000065 A            DATA     101               #101
     2553   02 00508    6800051D              B        T1M04
     2554                            *
     2555   02 00509    6AF01AF7     T1M01    BAL,15   :TIO              ISSUE TIO
     2556   02 0050A    FF00C000 A            DATA     X'FF00C000'       STATUS MASK
     2557   02 0050B    10000000 A            DATA     X'10000000'       EXPECTED STATUS
     2558   02 0050C    68000510              B        T1M02
     2559                            *ERROR 102
     2560   02 0050D    EAF021F3              BAL,15   *:ERROR           REPORT ERROR
     2561   02 0050E    00000066 A            DATA     102               #102
     2562   02 0050F    6800051D              B        T1M04
     2563                            *
     2564   02 00510    6AF01B01     T1M02    BAL,15   :TDV              ISSUE TDV
     2565   02 00511    AF00C000 A            DATA     X'AF00C000'       STATUS MASK
     2566   02 00512    00000000 A            DATA     0                 EXPECTED MASK
     2567   02 00513    68000517              B        T1M03
     2568                            *ERROR 103
     2569   02 00514    EAF021F3              BAL,15   *:ERROR           REPORT ERROR
     2570   02 00515    00000067 A            DATA     103               #103
     2571   02 00516    6800051D              B        T1M04
     2572                            *
     2573   02 00517    6AF01B06     T1M03    BAL,15   :AIO              ISSUE AIO
     2574   02 00518    0000C000 A            DATA     X'0000C000'       STATUS MASK
     2575   02 00519    0000C000 A            DATA     X'0000C000'       EXPECTED STATUS
     2576   02 0051A    6800049F              B        EXIT              GO TO EXIT
     2577                            *ERROR 104
     2578   02 0051B    EAF021F3              BAL,15   *:ERROR           REPORT ERROR
     2579   02 0051C    00000068 A            DATA     104               #104
     2580   02 0051D    EAF02200     T1M04    BAL,15   *:SENSE           TEST SSW1,3
     2581   02 0051E    2E00051E              WAIT     %                 WAIT
     2582   02 0051F    68000500              B        TST11             LOOP
     2583   02 00520    6800049F              B        EXIT              GO TO EXIT
1 C00   19:44 JUN 20,'83    TELEFILE COMPREHENSIVE LINE PRINTER TEST 960-0606-H02                 PAGE   13
A    2585                            *
     2586                            *
     2587                            *
     2588   02 00521    22E00000 A   TST12    LI,14    0                 RESET INDEX
     2589   02 00522    35E015A2              STW,14   TST1INDX
     2590   02 00523    32E015A2              LW,14    TST1INDX          INDEX
     2591   02 00524    75E01A5C              STB,14   IOCD10            STORE IN IOCD
     2592   02 00525    22000D2E              LI,0     DA(IOCD10)        LOAD IOCD
     2593   02 00526    6AF01AF2              BAL,15   :SIO              ISSUE SIO
     2594   02 00527    F600C000 A            DATA     X'F600C000'       STATUS MASK
     2595   02 00528    10000000 A            DATA     X'10000000'       EXPECTED STATUS
     2596   02 00529    68000533              B        T2M02
     2597   02 0052A    CFC01C3E              HIO,12   *:DEVADDR         ISSUE HIO
     2598   02 0052B    70341C0D              LCF      :STATUSCC,2       LOAD CONDITION CODES
     2599   02 0052C    68C00530              BCR,12   T2M01             CC1,2 = 0,0
     2600                            *ERROR 201
     2601   02 0052D    EAF021F3              BAL,15   *:ERROR
     2602   02 0052E    000000C9 A            DATA     201               #201
     2603   02 0052F    68000552              B        T2M06
     2604                            *
     2605                            *ERROR 202
     2606   02 00530    EAF021F3     T2M01    BAL,15   *:ERROR
     2607   02 00531    000000CA A            DATA     202               #202
     2608   02 00532    68000552              B        T2M06
     2609                            *
     2610   02 00533    22400021 A   T2M02    LI,4     33                DELAY 50 MICROSECOND
     2611   02 00534    64400534              BDR,4    %
     2612   02 00535    6AF01AF7              BAL,15   :TIO              ISSUE TIO
     2613   02 00536    FFFFC000 A            DATA     X'FFFFC000'       STATUS MASK
     2614   02 00537    18000000 A            DATA     X'18000000'       EXPECTED STATUS
     2615   02 00538    68000543              B        T2M04
     2616   02 00539    72E01C0D              LB,14    :STATUSCC         IO STATUS
     2617   02 0053A    21E00006 A            CI,14    X'06'             IS CONTR BUSY
     2618   02 0053B    68400540              BCR,4    T2M03             B: NO, REPORT ERROR
     2619   02 0053C    CFC01C3E              HIO,12   *:DEVADDR         ISSUE HIO
     2620                            *ERROR 203
     2621   02 0053D    EAF021F3              BAL,15   *:ERROR
     2622   02 0053E    000000CB A            DATA     203               #203
     2623   02 0053F    68000552              B        T2M06
     2624                            *
     2625                            *ERROR 204
     2626   02 00540    EAF021F3     T2M03    BAL,15   *:ERROR
     2627   02 00541    000000CC A            DATA     204               #204
     2628   02 00542    68000552              B        T2M06
     2629                            *
     2630   02 00543    72E61C0D     T2M04    LB,14    :STATUSCC,3       FETCH BYTE COUNT
     2631   02 00544    31E00001 A            CW,14    1                 BYTE COUNT:1
     2632   02 00545    68300549              BE       T2M05             B: BYTE COUNT EQUAL 1
     2633                            *ERROR 205
     2634   02 00546    EAF021F3              BAL,15   *:ERROR
     2635   02 00547    000000CD A            DATA     205               #205
     2636   02 00548    68000552              B        T2M06
     2637                            *
     2638   02 00549    331015A2     T2M05    MTW,1    TST1INDX          INCREMENT INDEX
     2639   02 0054A    32E015A2              LW,14    TST1INDX          INDEX
     2640   02 0054B    21E00100 A            CI,14    256               INDEX:256
     2641   02 0054C    6810049F              BGE      EXIT              B: INDEX => 256, GO TO EXIT
     2642   02 0054D    311015A2              CW,1     TST1INDX          IS INDEX BIT 31 SET
     2643   02 0054E    69400549              BCS,4    T2M05             B: YES, NEXT INDEX
     2644   02 0054F    21E00008 A            CI,14    X'08'             IS IT TRANSFER IN CHANNEL
     2645   02 00550    69400549              BCS,4    T2M05             B: YES
     2646   02 00551    68000523              B        TST12+2           B: TEST INVALID ORDER
     2647   02 00552    EAF02200     T2M06    BAL,15   *:SENSE
     2648   02 00553    2E000553              WAIT     %
     2649   02 00554    68000556              B        %+2
     2650   02 00555    68000549              B        T2M05
     2651   02 00556    CFC01C3E              HIO,12   *:DEVADDR         ISSUE HIO
     2652   02 00557    68000523              B        TST12+2
1 C00   19:44 JUN 20,'83    TELEFILE COMPREHENSIVE LINE PRINTER TEST 960-0606-H02                 PAGE   14
A    2654                            *
     2655                            *
     2656                            *
     2657   02 00558    7510208D     TST13    STB,1    TMBYTE            SAVE TEST MODE CONTROL BYTE
     2658   02 00559    22E00000 A            LI,14    0                 RESET TEST MODE
     2659   02 0055A    75E0208E              STB,14   TMBYTER           SAVE
     2660   02 0055B    751015A3              STB,1    TST1EXP           SAVE EXPECTED TEST MODE CONTROL BYTE
     2661   02 0055C    CFC01C3E     T3M01    HIO,12   *:DEVADDR         ISSUE HIO
     2662   02 0055D    22001048              LI,0     DA(IOCDTM)        LOAD IOCD
     2663   02 0055E    6AF01AF2              BAL,15   :SIO              ISSUE SIO
     2664   02 0055F    F600C000 A            DATA     X'F600C000'       STATUS MASK
     2665   02 00560    10000000 A            DATA     X'10000000'       EXPECTED STATUS
     2666   02 00561    68000566              B        T3M02             NO ERRORS
     2667   02 00562    CFC01C3E              HIO,12   *:DEVADDR         ISSUE HIO
     2668                            *ERROR 301
     2669   02 00563    EAF021F3              BAL,15   *:ERROR
     2670   02 00564    0000012D A            DATA     301               #301
     2671   02 00565    680005AA              B        T3M12
     2672                            *
     2673   02 00566    324015A7     T3M02    LW,4     DELYTM            DELAY
     2674   02 00567    64400567              BDR,4    %
     2675   02 00568    6AF01AF7              BAL,15   :TIO              ISSUE TIO
     2676   02 00569    FFFFC000 A            DATA     X'FFFFC000'       STATUS MASK
     2677   02 0056A    10000000 A            DATA     X'10000000'       EXPECTED MASK
     2678   02 0056B    6800057C              B        T3M05             NO ERRORS
     2679   02 0056C    72E01C0D              LB,14    :STATUSCC         FETCH TIO DEV STATUS
     2680   02 0056D    21E00006 A            CI,14    X'06'             IS CONTR BUSY
     2681   02 0056E    68400573              BCR,4    T3M03             B: CONTR NOT BUSY
     2682   02 0056F    CFC01C3E              HIO,12   *:DEVADDR         ISSUE HIO
     2683                            *ERROR 302
     2684   02 00570    EAF021F3              BAL,15   *:ERROR
     2685   02 00571    0000012E A            DATA     302               #302
     2686   02 00572    680005AA              B        T3M12
     2687                            *
     2688   02 00573    72E01C0D     T3M03    LB,14    :STATUSCC         TIO STATUS
     2689   02 00574    21E00008 A            CI,14    X'08'             IS  DEVICE UNUSUAL END
     2690   02 00575    68400579              BCR,4    T3M04             B: NO, REPORT ERROR
     2691                            *ERROR 303
     2692   02 00576    EAF021F3              BAL,15   *:ERROR
     2693   02 00577    0000012F A            DATA     303               #303
     2694   02 00578    680005AA              B        T3M12
     2695                            *
     2696                            *ERROR 304
     2697   02 00579    EAF021F3     T3M04    BAL,15   *:ERROR
     2698   02 0057A    00000130 A            DATA     304               #304
     2699   02 0057B    680005AA              B        T3M12
     2700                            *
     2701   02 0057C    72E61C0D     T3M05    LB,14    :STATUSCC,3       BYTE COUNT
     2702   02 0057D    68300581              BEZ      T3M06             B: BYTE COUNT EQUAL 0
     2703                            *ERROR 305
     2704   02 0057E    EAF021F3              BAL,15   *:ERROR
     2705   02 0057F    00000131 A            DATA     305               #305
     2706   02 00580    680005AA              B        T3M12
     2707                            *
     2708   02 00581    72E0208D     T3M06    LB,14    TMBYTE            TEST MODE CONTROL BYTE
     2709   02 00582    71E015A3              CB,14    TST1EXP           TMBYTE:TST1EXP
     2710   02 00583    68300587              BE       T3M07             B: EQUAL
     2711                            *ERROR 306
     2712   02 00584    EAF021F3              BAL,15   *:ERROR
     2713   02 00585    00000132 A            DATA     306               #306
     2714   02 00586    680005AA              B        T3M12
     2715                            *
     2716   02 00587    CEC01C3E     T3M07    TDV,12   *:DEVADDR         ISSUE TDV
     2717   02 00588    6980058A              BCS,8    %+2               B: CC1 = 1
     2718   02 00589    6940058D              BCS,4    T3M08             B: CC1,2 = 01
     2719                            *ERROR 307
     2720   02 0058A    EAF021F3              BAL,15   *:ERROR
     2721   02 0058B    00000133 A            DATA     307               #307
     2722   02 0058C    680005AA              B        T3M12
     2723                            *
     2724   02 0058D    22001049     T3M08    LI,0     DA(IOCDTMR)       LOAD IOCD
     2725   02 0058E    6AF01AF2              BAL,15   :SIO              ISSUE SIO
     2726   02 0058F    F600C000 A            DATA     X'F600C000'
     2727   02 00590    10000000 A            DATA     X'10000000'
     2728   02 00591    68000595              B        T3M09             NO ERRORS
     2729                            *ERROR 308
     2730   02 00592    EAF021F3              BAL,15   *:ERROR
     2731   02 00593    00000134 A            DATA     308               #308
     2732   02 00594    680005AA              B        T3M12
     2733                            *
     2734   02 00595    324015A7     T3M09    LW,4     DELYTM            DELAY
     2735   02 00596    64400596              BDR,4    %
     2736   02 00597    6AF01AF7              BAL,15   :TIO              ISSUE TIO
     2737   02 00598    FFFFC000 A            DATA     X'FFFFC000'
     2738   02 00599    10000000 A            DATA     X'10000000'
     2739   02 0059A    6800059E              B        T3M10             NO ERRORS
     2740                            *ERROR 309
     2741   02 0059B    EAF021F3              BAL,15   *:ERROR
     2742   02 0059C    00000135 A            DATA     309               #309
     2743   02 0059D    680005AA              B        T3M12
     2744                            *
     2745   02 0059E    CEC01C3E     T3M10    TDV,12   *:DEVADDR         ISSUE TDV
     2746   02 0059F    68C005A3              BCR,12   T3M11             B: CC1,2 = 00
     2747                            *ERROR 310
     2748   02 005A0    EAF021F3              BAL,15   *:ERROR
     2749   02 005A1    00000136 A            DATA     310               #310
     2750   02 005A2    680005AA              B        T3M12
     2751                            *
     2752   02 005A3    72E0208D     T3M11    LB,14    TMBYTE            TEST MODE CONTROL BYTE
     2753   02 005A4    25E00001 A            SLS,14   1                 SHIFT LOGICAL LEFT 1 BIT POSITION
     2754   02 005A5    21E00100 A            CI,14    X'100'            TMBYTE:X'100'
     2755   02 005A6    6810049F              BGE      EXIT              B: GO TO EXIT
     2756   02 005A7    75E0208D              STB,14   TMBYTE            SAVE
     2757   02 005A8    75E015A3              STB,14   TST1EXP           SAVE
     2758   02 005A9    6800055C              B        T3M01             LOOP
     2759   02 005AA    EAF02200     T3M12    BAL,15   *:SENSE
     2760   02 005AB    2E0005AB              WAIT     %
     2761   02 005AC    6800055C              B        T3M01             LOOP
     2762   02 005AD    680005A3              B        T3M11             NEXT TEST MODE BYTE
1 C00   19:44 JUN 20,'83    TELEFILE COMPREHENSIVE LINE PRINTER TEST 960-0606-H02                 PAGE   15
A    2764                            *
     2765                            *
     2766                            *
     2767   02 005AE    22E00000 A   TST14    LI,14    0
     2768   02 005AF    35E015A2              STW,14   TST1INDX          RESET INDEX
     2769   02 005B0    75E0208D              STB,14   TMBYTE            RESET TEST MODE
     2770   02 005B1    CFC01C3E     T4M01    HIO,12   *:DEVADDR         ISSUE HIO
     2771   02 005B2    6EC00000 A            AIO,12   0                 ISSUE AIO
     2772   02 005B3    22E00010 A            LI,14    X'10'             IOCD FLAG (ICE)
     2773   02 005B4    75E02095              STB,14   IOCDTM1+1         STORE IN IOCD
     2774   02 005B5    2200104A              LI,0     DA(IOCDTM1)       LOAD IOCD
     2775   02 005B6    6AF01C0F              BAL,15   :IOEXEC           EXECUTE IO
     2776   02 005B7    324015A7              LW,4     DELYTM            DELAY
     2777   02 005B8    644005B8              BDR,4    %
     2778   02 005B9    6AF01AF7              BAL,15   :TIO              ISSUE TIO
     2779   02 005BA    FFFFC000 A            DATA     X'FFFFC000'
     2780   02 005BB    90004000 A            DATA     X'90004000'
     2781   02 005BC    680005C5              B        T4M03             NO ERRORS
     2782   02 005BD    32D0000D A            LW,13    13                TIO STATUS
     2783   02 005BE    691005C2              BLZ      T4M02             B: INTERRUPT PENDING
     2784                            *ERROR 401
     2785   02 005BF    EAF021F3              BAL,15   *:ERROR
     2786   02 005C0    00000191 A            DATA     401               #401
     2787   02 005C1    68000627              B        T4M17
     2788                            *
     2789                            *ERROR 402
     2790   02 005C2    EAF021F3     T4M02    BAL,15   *:ERROR
     2791   02 005C3    00000192 A            DATA     402               #402
     2792   02 005C4    68000627              B        T4M17
     2793                            *
     2794   02 005C5    32E015A2     T4M03    LW,14    TST1INDX          IS INDEX SET
     2795   02 005C6    693005CE              BNEZ     T4M04             B: YES
     2796   02 005C7    6AF01B06              BAL,15   :AIO              ISSUE AIO
     2797   02 005C8    FFFFC002 A            DATA     X'FFFFC002'
     2798   02 005C9    00100000 A            DATA     X'00100000'
     2799   02 005CA    680005CF              B        T4M05             NO ERRORS
     2800                            *ERROR 403
     2801   02 005CB    EAF021F3              BAL,15   *:ERROR
     2802   02 005CC    00000193 A            DATA     403               #403
     2803   02 005CD    68000627              B        T4M17
     2804                            *
     2805   02 005CE    CFC01C3E     T4M04    HIO,12   *:DEVADDR         ISSUE HIO
     2806   02 005CF    6AF01AF7     T4M05    BAL,15   :TIO              ISSUE TIO
     2807   02 005D0    FFFFC000 A            DATA     X'FFFFC000'
     2808   02 005D1    10000000 A            DATA     X'10000000'
     2809   02 005D2    680005DB              B        T4M07             NO ERRORS
     2810   02 005D3    32E015A2              LW,14    TST1INDX          IS INDEX SET
     2811   02 005D4    693005D8              BNEZ     T4M06             B: YES
     2812                            *ERROR 414
     2813   02 005D5    EAF021F3              BAL,15   *:ERROR
     2814   02 005D6    0000019E A            DATA     414               #414
     2815   02 005D7    68000627              B        T4M17
     2816                            *
     2817                            *ERROR 404
     2818   02 005D8    EAF021F3     T4M06    BAL,15   *:ERROR
     2819   02 005D9    00000194 A            DATA     404               #404
     2820   02 005DA    68000627              B        T4M17
     2821                            *
     2822   02 005DB    22E00040 A   T4M07    LI,14    X'40'             IOCD FLAG (IZC)
     2823   02 005DC    75E02095              STB,14   IOCDTM1+1         STORE IN IOCD
     2824   02 005DD    2200104A              LI,0     DA(IOCDTM1)       LOAD IOCD
     2825   02 005DE    6AF01C0F              BAL,15   :IOEXEC           EXECUTE IO
     2826   02 005DF    324015A7              LW,4     DELYTM            DELAY
     2827   02 005E0    644005E0              BDR,4    %
     2828   02 005E1    6AF01AF7              BAL,15   :TIO              ISSUE TIO
     2829   02 005E2    FFFFC000 A            DATA     X'FFFFC000'
     2830   02 005E3    90004000 A            DATA     X'90004000'
     2831   02 005E4    680005ED              B        T4M09             NO ERRORS
     2832   02 005E5    32D0000D A            LW,13    13                TIO STATUS
     2833   02 005E6    691005EA              BLZ      T4M08             B: INTERRUPT PENDING
     2834                            *ERROR 405
     2835   02 005E7    EAF021F3              BAL,15   *:ERROR
     2836   02 005E8    00000195 A            DATA     405               #405
     2837   02 005E9    68000627              B        T4M17
     2838                            *
     2839                            *ERROR 406
     2840   02 005EA    EAF021F3     T4M08    BAL,15   *:ERROR
     2841   02 005EB    00000196 A            DATA     406               #406
     2842   02 005EC    68000627              B        T4M17
     2843                            *
     2844   02 005ED    32E015A2     T4M09    LW,14    TST1INDX          IS INDEX SET
     2845   02 005EE    693005F6              BNEZ     T4M10             B: YES
     2846   02 005EF    6AF01B06              BAL,15   :AIO              ISSUE AIO
     2847   02 005F0    FFFFC002 A            DATA     X'FFFFC002'
     2848   02 005F1    00200000 A            DATA     X'00200000'
     2849   02 005F2    680005F7              B        T4M101            NO ERRORS
     2850                            *ERROR 407
     2851   02 005F3    EAF021F3              BAL,15   *:ERROR
     2852   02 005F4    00000197 A            DATA     407               #407
     2853   02 005F5    68000627              B        T4M17
     2854                            *
     2855   02 005F6    CFC01C3E     T4M10    HIO,12   *:DEVADDR         ISSUE HIO
     2856   02 005F7    6AF01AF7     T4M101   BAL,15   :TIO              ISSUE TIO
     2857   02 005F8    FFFFC000 A            DATA     X'FFFFC000'
     2858   02 005F9    10000000 A            DATA     X'10000000'
     2859   02 005FA    680005FE              B        T4M11             NO ERRORS
     2860                            *ERROR 408
     2861   02 005FB    EAF021F3              BAL,15   *:ERROR
     2862   02 005FC    00000198 A            DATA     408               #408
     2863   02 005FD    68000627              B        T4M17
     2864                            *
     2865   02 005FE    2200104B     T4M11    LI,0     DA(IOCDTM2)       LOAD IOCD
     2866   02 005FF    6AF01C0F              BAL,15   :IOEXEC           EXECUTE IO
     2867   02 00600    324015A7              LW,4     DELYTM            DELAY
     2868   02 00601    64400601              BDR,4    %
     2869   02 00602    6AF01AF7              BAL,15   :TIO              ISSUE TIO
     2870   02 00603    FFFFC000 A            DATA     X'FFFFC000'
     2871   02 00604    98004000 A            DATA     X'98004000'
     2872   02 00605    6800060E              B        T4M13             NO ERRORS
     2873   02 00606    32D0000D A            LW,13    13                TIO STATUS
     2874   02 00607    6910060B              BLZ      T4M12             B: INTERRUPT PENDING
     2875                            *ERROR 409
     2876   02 00608    EAF021F3              BAL,15   *:ERROR
     2877   02 00609    00000199 A            DATA     409               #409
     2878   02 0060A    68000627              B        T4M17
     2879                            *
     2880                            *ERROR 410
     2881   02 0060B    EAF021F3     T4M12    BAL,15   *:ERROR
     2882   02 0060C    0000019A A            DATA     410               #410
     2883   02 0060D    68000627              B        T4M17
     2884                            *
     2885   02 0060E    32E015A2     T4M13    LW,14    TST1INDX          IS INDEX SET
     2886   02 0060F    6930061B              BNEZ     T4M15             B: YES
     2887   02 00610    6AF01B06              BAL,15   :AIO              ISSUE AIO
     2888   02 00611    FFFFC002 A            DATA     X'FFFFC002'
     2889   02 00612    00084000 A            DATA     X'00084000'
     2890   02 00613    6800061C              B        T4M151            NO ERRORS
     2891                            *ERROR 411
     2892   02 00614    EAF021F3              BAL,15   *:ERROR
     2893   02 00615    0000019B A            DATA     411               #411
     2894   02 00616    68000627              B        T4M17
     2895                            *
     2896   02 00617    311015A2     T4M14    CW,1     TST1INDX          IS INDEX SET
     2897   02 00618    6830049F              BE       EXIT              B: YES, GO TO EXIT
     2898   02 00619    331015A2              MTW,1    TST1INDX          INCREMENT INDEX
     2899   02 0061A    680005B1              B        T4M01             REPEAT
     2900   02 0061B    CFC01C3E     T4M15    HIO,12   *:DEVADDR         ISSUE HIO
     2901   02 0061C    6AF01AF7     T4M151   BAL,15   :TIO              ISSUE TIO
     2902   02 0061D    F7FFC000 A            DATA     X'F7FFC000'
     2903   02 0061E    10000000 A            DATA     X'10000000'
     2904   02 0061F    68000617              B        T4M14             NO ERRORS
     2905   02 00620    31D02250              CW,13    =X'08000000'      TEST UNUSUAL END STATUS
     2906   02 00621    69400625              BCS,4    T4M16             B: UNUSUAL END
     2907                            *ERROR 412
     2908   02 00622    EAF021F3              BAL,15   *:ERROR
     2909   02 00623    0000019C A            DATA     412               #412
     2910   02 00624    68000627              B        T4M17
     2911                            *
     2912                            *ERROR 413
     2913   02 00625    EAF021F3     T4M16    BAL,15   *:ERROR
     2914   02 00626    0000019D A            DATA     413               #413
     2915   02 00627    EAF02200     T4M17    BAL,15   *:SENSE
     2916   02 00628    2E000628              WAIT     %
     2917   02 00629    680005B1              B        T4M01             LOOP
     2918   02 0062A    68000617              B        T4M14
1 C00   19:44 JUN 20,'83    TELEFILE COMPREHENSIVE LINE PRINTER TEST 960-0606-H02                 PAGE   16
A    2920                            *
     2921                            *
     2922                            *
     2923   02 0062B    22E00000 A   TST15    LI,14    0                 RESET TEST MODE
     2924   02 0062C    75E0208D              STB,14   TMBYTE
     2925   02 0062D    CFC01C3E     T5M01    HIO,12   *:DEVADDR         ISSUE HIO
     2926   02 0062E    6EC00000 A            AIO,12   0                 ISSUE AIO
     2927   02 0062F    22E00047 A            LI,14    X'47'             TEST MODE INTERRUPT ON DTC ORDER
     2928   02 00630    75E02098              STB,14   IOCDTM3           SAVE IN IOCD
     2929   02 00631    2200104C              LI,0     DA(IOCDTM3)       LOAD IOCD
     2930   02 00632    6AF01C0F              BAL,15   :IOEXEC           EXECUTE IO
     2931   02 00633    324015A7              LW,4     DELYTM            DELAY
     2932   02 00634    64400634              BDR,4    %
     2933   02 00635    6AF01AF7              BAL,15   :TIO              ISSUE TIO
     2934   02 00636    FFFFC000 A            DATA     X'FFFFC000'
     2935   02 00637    90004000 A            DATA     X'90004000'
     2936   02 00638    68000641              B        T5M03             NO ERRORS
     2937   02 00639    32D0000D A            LW,13    13                TIO STATUS
     2938   02 0063A    6910063E              BLZ      T5M02             B: INTERRUPT PENDING
     2939                            *ERROR 501
     2940   02 0063B    EAF021F3              BAL,15   *:ERROR
     2941   02 0063C    000001F5 A            DATA     501               #501
     2942   02 0063D    68000647              B        T5M04
     2943                            *
     2944                            *ERROR 502
     2945   02 0063E    EAF021F3     T5M02    BAL,15   *:ERROR
     2946   02 0063F    000001F6 A            DATA     502               #502
     2947   02 00640    68000647              B        T5M04
     2948                            *
     2949   02 00641    6AF01B06     T5M03    BAL,15   :AIO              ISSUE AIO
     2950   02 00642    FFFFC002 A            DATA     X'FFFFC002'
     2951   02 00643    40000000 A            DATA     X'40000000'
     2952   02 00644    6800049F              B        EXIT              NO ERRORS, GO TO EXIT
     2953                            *ERROR 503
     2954   02 00645    EAF021F3              BAL,15   *:ERROR
     2955   02 00646    000001F7 A            DATA     503               #503
     2956   02 00647    EAF02200     T5M04    BAL,15   *:SENSE
     2957   02 00648    2E000648              WAIT     %
     2958   02 00649    6800062D              B        T5M01             LOOP
     2959   02 0064A    6800049F              B        EXIT              EXIT
1 C00   19:44 JUN 20,'83    TELEFILE COMPREHENSIVE LINE PRINTER TEST 960-0606-H02                 PAGE   17
A    2961                            *
     2962                            *
     2963                            *
     2964   02 0064B    22A00000 A   TST16    LI,10    0
     2965   02 0064C    35A015A2              STW,10   TST1INDX          RESET BOTH INDEXS
     2966   02 0064D    35A015A4              STW,10   TST1IND1
     2967   02 0064E    75A0208D              STB,10   TMBYTE            RESET TEST MODE
     2968   02 0064F    32E006BC              LW,14    T6XPSD            SET UP IO INTERRUPT LINKAGE
     2969   02 00650    35E0005C A            STW,14   X'5C'
     2970   02 00651    22E00007 A   T6M01    LI,14    X'07'             TEST MODE
     2971   02 00652    75E0209A              STB,14   IOCDTM4           STORE IN IOCD
     2972   02 00653    22E00010 A            LI,14    X'10'             IOCD FLAG (ICE)
     2973   02 00654    75E0209B              STB,14   IOCDTM4+1         STORE IN IOCD
     2974   02 00655    2200104D     T6M02    LI,0     DA(IOCDTM4)       LOAD IOCD
     2975   02 00656    6AF01C0F              BAL,15   :IOEXEC           EXECUTE IO
     2976   02 00657    6AF01FDD              BAL,15   :INTAE            ARM AND ENABLE IO INTERRUPT
     2977   02 00658    324015A7              LW,4     DELYTM            DELAY
     2978   02 00659    64400659              BDR,4    %
     2979   02 0065A    31101D72              CW,1     :INTRECF          TEST IO INTERRUPT RECEIVED FLAG
     2980   02 0065B    68300660              BE       T6M03             B: IO INTERRUPT RECEIVED
     2981   02 0065C    6AF01FE3              BAL,15   :INTD             DISARM IO INTERRUPT
     2982                            *ERROR 601
     2983   02 0065D    EAF021F3              BAL,15   *:ERROR
     2984   02 0065E    00000259 A            DATA     601               #601
     2985   02 0065F    68000674              B        T6M06
     2986                            *
     2987   02 00660    6AF01FE3     T6M03    BAL,15   :INTD             DISARM IO INTERRUPT
     2988   02 00661    311015A2              CW,1     TST1INDX          TST1INDX:1
     2989   02 00662    68300665              BE       T6M04             B: EQUAL
     2990   02 00663    351015A2              STW,1    TST1INDX          SET INDEX
     2991   02 00664    68000655              B        T6M02
     2992   02 00665    35A015A2     T6M04    STW,10   TST1INDX          RESET INDEX
     2993   02 00666    331015A4              MTW,1    TST1IND1          INCREMENT INDEX1
     2994   02 00667    311015A4              CW,1     TST1IND1          TST1IND1:1
     2995   02 00668    6910066E              BL       T6M05             B: TST1IND1 GREATER
     2996   02 00669    22E00007 A            LI,14    X'07'             TEST MODE
     2997   02 0066A    75E0209A              STB,14   IOCDTM4           STORE IN IOCD
     2998   02 0066B    22E00040 A            LI,14    X'40'             IOCD FLAG (IZC)
     2999   02 0066C    75E0209B              STB,14   IOCDTM4+1         STORE IN IOCD
     3000   02 0066D    68000655              B        T6M02
     3001   02 0066E    312015A4     T6M05    CW,2     TST1IND1          TST1IND1:2
     3002   02 0066F    6910067C              BL       T6M08             B: TST1IND1 GREATER
     3003   02 00670    75A0209A              STB,10   IOCDTM4           STORE INVALID ORDER IN IOCD
     3004   02 00671    22E00004 A            LI,14    X'04'             IOCD FLAG (IUE)
     3005   02 00672    75E0209B              STB,14   IOCDTM4+1         STORE IN IOCD
     3006   02 00673    68000655              B        T6M02
     3007   02 00674    EAF02200     T6M06    BAL,15   *:SENSE
     3008   02 00675    2E000675              WAIT     %
     3009   02 00676    68000679              B        T6M07
     3010   02 00677    CFC01C3E              HIO,12   *:DEVADDR         ISSUE HIO
     3011   02 00678    6800067C              B        T6M08             EXIT
     3012   02 00679    CFC01C3E     T6M07    HIO,12   *:DEVADDR         ISSUE HIO
     3013   02 0067A    6ED00000 A            AIO,13   0                 ISSUE AIO
     3014   02 0067B    68000651              B        T6M01             LOOP
     3015   02 0067C    6ED00000 A   T6M08    AIO,13   0
     3016   02 0067D    6800049F              B        EXIT              EXIT
     3017                            *
     3018   02 0067E    6AF01AF7     T6INTR   BAL,15   :TIO              ISSUE TIO
     3019   02 0067F    F7FFC000 A            DATA     X'F7FFC000'
     3020   02 00680    90004000 A            DATA     X'90004000'
     3021   02 00681    68000685              B        T6INTR01          NO ERRORS
     3022                            *ERROR 602
     3023   02 00682    EAF021F3              BAL,15   *:ERROR
     3024   02 00683    0000025A A            DATA     602               #602
     3025   02 00684    680006BA              B        T6INTR07
     3026                            *
     3027   02 00685    311015A4     T6INTR01 CW,1     TST1IND1          TST1IND1:1
     3028   02 00686    691006AA              BL       T6INTR05          B: TST1IND1 GREATER
     3029   02 00687    68300699              BE       T6INTR03          B: TST1IND1 EQUAL
     3030   02 00688    32E015A2              LW,14    TST1INDX          IS INDEX SET
     3031   02 00689    69300691              BNEZ     T6INTR02          B: INDEX SET
     3032   02 0068A    6AF01B06              BAL,15   :AIO              ISSUE AIO
     3033   02 0068B    FFFFC002 A            DATA     X'FFFFC002'
     3034   02 0068C    00100000 A            DATA     X'00100000'
     3035   02 0068D    680006BA              B        T6INTR07          NO ERRORS
     3036                            *ERROR 603
     3037   02 0068E    EAF021F3              BAL,15   *:ERROR
     3038   02 0068F    0000025B A            DATA     603               #603
     3039   02 00690    680006BA              B        T6INTR07
     3040                            *
     3041   02 00691    CFC01C3E     T6INTR02 HIO,12   *:DEVADDR         ISSUE HIO
     3042   02 00692    6AF01AF7              BAL,15   :TIO              ISSUE TIO
     3043   02 00693    FFFFC000 A            DATA     X'FFFFC000'
     3044   02 00694    10000000 A            DATA     X'10000000'
     3045   02 00695    680006BA              B        T6INTR07          NO ERRORS
     3046                            *ERROR 604
     3047   02 00696    EAF021F3              BAL,15   *:ERROR
     3048   02 00697    0000025C A            DATA     604               #604
     3049   02 00698    680006BA              B        T6INTR07
     3050                            *
     3051   02 00699    32E015A2     T6INTR03 LW,14    TST1INDX          IS INDEX SET
     3052   02 0069A    693006A2              BNEZ     T6INTR04          B: INDEX SET
     3053   02 0069B    6AF01B06              BAL,15   :AIO              ISSUE AIO
     3054   02 0069C    FFFFC002 A            DATA     X'FFFFC002'
     3055   02 0069D    00200000 A            DATA     X'00200000'
     3056   02 0069E    680006BA              B        T6INTR07          NO ERRORS
     3057                            *ERROR 605
     3058   02 0069F    EAF021F3              BAL,15   *:ERROR
     3059   02 006A0    0000025D A            DATA     605               #605
     3060   02 006A1    680006BA              B        T6INTR07
     3061                            *
     3062   02 006A2    CFC01C3E     T6INTR04 HIO,12   *:DEVADDR         ISSUE HIO
     3063   02 006A3    6AF01AF7              BAL,15   :TIO              ISSUE TIO
     3064   02 006A4    FFFFC000 A            DATA     X'FFFFC000'
     3065   02 006A5    10000000 A            DATA     X'10000000'
     3066   02 006A6    680006BA              B        T6INTR07          NO ERRORS
     3067                            *ERROR 606
     3068   02 006A7    EAF021F3              BAL,15   *:ERROR
     3069   02 006A8    0000025E A            DATA     606               #606
     3070   02 006A9    680006BA              B        T6INTR07
     3071                            *
     3072   02 006AA    32E015A2     T6INTR05 LW,14    TST1INDX          IS INDEX SET
     3073   02 006AB    693006B3              BNEZ     T6INTR06          B: INDEX SET
     3074   02 006AC    6AF01B06              BAL,15   :AIO              ISSUE AIO
     3075   02 006AD    FFFFC002 A            DATA     X'FFFFC002'
     3076   02 006AE    00084000 A            DATA     X'00084000'
     3077   02 006AF    680006BA              B        T6INTR07          NO ERRORS
     3078                            *ERROR 607
     3079   02 006B0    EAF021F3              BAL,15   *:ERROR
     3080   02 006B1    0000025F A            DATA     607               #607
     3081   02 006B2    680006BA              B        T6INTR07
     3082                            *
     3083   02 006B3    CFC01C3E     T6INTR06 HIO,12   *:DEVADDR         ISSUE HIO
     3084   02 006B4    6AF01AF7              BAL,15   :TIO              ISSUE TIO
     3085   02 006B5    FFFFC000 A            DATA     X'FFFFC000'
     3086   02 006B6    10000000 A            DATA     X'10000000'
     3087   02 006B7    680006BA              B        T6INTR07          NO ERRORS
     3088                            *ERROR 608
     3089   02 006B8    EAF021F3              BAL,15   *:ERROR
     3090   02 006B9    00000260 A            DATA     608               #608
     3091                            *
     3092   02 006BA    35101D72     T6INTR07 STW,1    :INTRECF          SET IO INTERRUPT RECEIVED FLAG
     3093   02 006BB    0E2006BE              LPSD,2   T6PSD             EXIT
     3094   02 006BC    0F0006BE     T6XPSD   XPSD,0   T6PSD
     3095                                     BOUND    8
     3096   02 006BE    00000000 A   T6PSD    DATA     0,0
            02 006BF    00000000 A
     3097   02 006C0    0000067E              DATA     T6INTR,0
            02 006C1    00000000 A
1 C00   19:44 JUN 20,'83    TELEFILE COMPREHENSIVE LINE PRINTER TEST 960-0606-H02                 PAGE   18
A    3099                            *
     3100                            *
     3101                            *
     3102   02 006C2    7510208D     TST17    STB,1    TMBYTE            SET TEST MODE 1 TO X'01'
     3103   02 006C3    22A00000 A            LI,10    0
     3104   02 006C4    75A0208E              STB,10   TMBYTER           SET TEST MODE 2 TO X'00'
     3105   02 006C5    CFC01C3E     T7M01    HIO,12   *:DEVADDR         ISSUE HIO
     3106   02 006C6    22E00007 A            LI,14    X'07'             TEST MODE ORDER
     3107   02 006C7    75E0209C              STB,14   IOCDTM5           STORE IN IOCD
     3108   02 006C8    2200104E              LI,0     DA(IOCDTM5)       LOAD IOCD
     3109   02 006C9    6AF01C0F              BAL,15   :IOEXEC           SELECT TEST MODE (COMMAND CHAINING)
     3110   02 006CA    324015A7              LW,4     DELYTM
     3111   02 006CB    25400401 A            SAS,4    1                 MULTIPYY BY 2
     3112   02 006CC    644006CC              BDR,4    %                 DELAY
     3113   02 006CD    6AF01AF7              BAL,15   :TIO              ISSUE TIO
     3114   02 006CE    FFFFC000 A            DATA     X'FFFFC000'
     3115   02 006CF    10000000 A            DATA     X'10000000'
     3116   02 006D0    680006E0              B        T7M04             NO ERRORS
     3117   02 006D1    72E0000D A            LB,14    13                TIO STATUS
     3118   02 006D2    21E00006 A            CI,14    X'06'             IS CONTR BUSY
     3119   02 006D3    684006D8              BCR,4    T7M02             B: NOT BUSY
     3120   02 006D4    CFC01C3E              HIO,12   *:DEVADDR         ISSUE HIO
     3121                            *ERROR 701
     3122   02 006D5    EAF021F3              BAL,15   *:ERROR
     3123   02 006D6    000002BD A            DATA     701               #701
     3124   02 006D7    680006E9              B        T7M06
     3125                            *
     3126   02 006D8    31D02251     T7M02    CW,13    =X'EF000000'      CONTR BIT(S) IN ERROR
     3127   02 006D9    684006DD              BCR,4    T7M03             B: NO
     3128                            *ERROR 702
     3129   02 006DA    EAF021F3              BAL,15   *:ERROR
     3130   02 006DB    000002BE A            DATA     702               #702
     3131   02 006DC    680006E9              B        T7M06
     3132                            *
     3133                            *ERROR 703
     3134   02 006DD    EAF021F3     T7M03    BAL,15   *:ERROR
     3135   02 006DE    000002BF A            DATA     703               #703
     3136   02 006DF    680006E9              B        T7M06
     3137                            *
     3138   02 006E0    72E61C0D     T7M04    LB,14    :STATUSCC,3       BYTE COUNT
     3139   02 006E1    683006E5              BEZ      T7M05             B: BYTE COUNT = 0
     3140                            *ERROR 704
     3141   02 006E2    EAF021F3              BAL,15   *:ERROR
     3142   02 006E3    000002C0 A            DATA     704               #704
     3143   02 006E4    680006E9              B        T7M06
     3144                            *
     3145   02 006E5    21C0104F     T7M05    CI,12    DA(IOCDTM5+2)     TEST FOR 2ND IOCD
     3146   02 006E6    683006EC              BE       T7M07             2ND IOCD
     3147                            *ERROR 705
     3148   02 006E7    EAF021F3              BAL,15   *:ERROR
     3149   02 006E8    000002C1 A            DATA     705               #705
     3150   02 006E9    EAF02200     T7M06    BAL,15   *:SENSE
     3151   02 006EA    2E0006EA              WAIT     %
     3152   02 006EB    680006C5              B        T7M01
     3153   02 006EC    CFC01C3E     T7M07    HIO,12   *:DEVADDR         ISSUE HIO
     3154   02 006ED    75A0209C              STB,10   IOCDTM5           STORE INVALID ORDER
     3155   02 006EE    2200104E              LI,0     DA(IOCDTM5)       LOAD IOCD
     3156   02 006EF    6AF01C0F              BAL,15   :IOEXEC           TM INVALID ORDER (COMMAND CHAINNING)
     3157   02 006F0    324015A7              LW,4     DELYTM            DELAY
     3158   02 006F1    644006F1              BDR,4    %
     3159   02 006F2    6AF01AF7              BAL,15   :TIO              ISSUE TIO
     3160   02 006F3    FFFFC000 A            DATA     X'FFFFC000'
     3161   02 006F4    18000000 A            DATA     X'18000000'
     3162   02 006F5    68000705              B        T7M10             NO ERRORS
     3163   02 006F6    72E0000D A            LB,14    13                TIO STATUS
     3164   02 006F7    21E00006 A            CI,14    X'06'             IS CONTR BUSY
     3165   02 006F8    684006FD              BCR,4    T7M08             B: NO, CONTR READY
     3166   02 006F9    CFC01C3E              HIO,12   *:DEVADDR         ISSUE HIO
     3167                            *ERROR 706
     3168   02 006FA    EAF021F3              BAL,15   *:ERROR
     3169   02 006FB    000002C2 A            DATA     706               #706
     3170   02 006FC    6800070E              B        T7M12
     3171                            *
     3172   02 006FD    31D02250     T7M08    CW,13    =X'08000000'      TEST FOR UNUSUAL END STATUS
     3173   02 006FE    69400702              BCS,4    T7M09             B: UNUSUAL END
     3174                            *ERROR 707
     3175   02 006FF    EAF021F3              BAL,15   *:ERROR
     3176   02 00700    000002C3 A            DATA     707               #707
     3177   02 00701    6800070E              B        T7M12
     3178                            *
     3179                            *ERROR 708
     3180   02 00702    EAF021F3     T7M09    BAL,15   *:ERROR
     3181   02 00703    000002C4 A            DATA     708               #708
     3182   02 00704    6800070E              B        T7M12
     3183                            *
     3184   02 00705    71161C0D     T7M10    CB,1     :STATUSCC,3       TEST BYTE COUNT
     3185   02 00706    6830070A              BE       T7M11             B: BYTE COUNT = 1
     3186                            *ERROR 709
     3187   02 00707    EAF021F3              BAL,15   *:ERROR
     3188   02 00708    000002C5 A            DATA     709               #709
     3189   02 00709    6800070E              B        T7M12
     3190                            *
     3191   02 0070A    21C0104E     T7M11    CI,12    DA(IOCDTM5)       TEST FOR 1ST IOCD
     3192   02 0070B    6830049F              BE       EXIT              EXIT
     3193                            *ERROR 710
     3194   02 0070C    EAF021F3              BAL,15   *:ERROR
     3195   02 0070D    000002C6 A            DATA     710               #710
     3196   02 0070E    EAF02200     T7M12    BAL,15   *:SENSE
     3197   02 0070F    2E00070F              WAIT     %
     3198   02 00710    680006EC              B        T7M07             LOOP
     3199   02 00711    6800049F              B        EXIT              EXIT
     3200                            *********************************************************************
     3201                            *********************************************************************
     3202   02 00712    6800049F     TST18    B      EXIT                RESERVED FOR FUTURE USE
     3203   02 00713    6800049F     TST19    B      EXIT                RESERVED FOR FUTURE USE
     3204   02 00714    6800049F     TST110   B      EXIT                RESERVED FOR FUTURE USE
1 C00   19:44 JUN 20,'83    TELEFILE COMPREHENSIVE LINE PRINTER TEST 960-0606-H02                 PAGE   19
A    3206                            *
     3207                            *
     3208                            *
     3209   02 00715    22E000C9 A   TST111   LI,14    X'C9'             TEST MODE (TDV STATE)
     3210   02 00716    75E0208D              STB,14   TMBYTE
     3211   02 00717    6AF02065              BAL,15   SELTM             SELECT TEST MODE
     3212   02 00718    6800071C              B        T11M01
     3213                            *
     3214                            *ERROR 1101
     3215   02 00719    EAF021F3              BAL,15   *:ERROR
     3216   02 0071A    0000044D A            DATA     1101              #1101
     3217   02 0071B    6800049F              B        EXIT              EXIT
     3218                            *
     3219   02 0071C    CFC01C3E     T11M01   HIO,12   *:DEVADDR         ISSUE HIO
     3220   02 0071D    CEC01C3E              TDV,12   *:DEVADDR         ISSUE TDV
     3221   02 0071E    6AF01FA0              BAL,15   :SAVETDV          SAVE TDV STATUS
     3222   02 0071F    6AF01D73              BAL,15   :ERRORT           TEST TDV SET 2
     3223   02 00720    00000D38              DATA     BA(T11SEQ1)
     3224   02 00721    68000727              B        T11M02            NO ERRORS
     3225                            *ERROR 1102
     3226   02 00722    EAF021F3              BAL,15   *:ERROR
     3227   02 00723    0000044E A            DATA     1102              #1102
     3228   02 00724    EAF02200              BAL,15   *:SENSE
     3229   02 00725    2E000725              WAIT     %
     3230   02 00726    6800071C              B        T11M01            LOOP
     3231   02 00727    75101A5C     T11M02   STB,1    IOCD10            STORE PRINT A LINE ORDER
     3232   02 00728    22000D2E              LI,0     DA(IOCD10)        LOAD IOCD
     3233   02 00729    CCC01C3E              SIO,12   *:DEVADDR         PRINT A LINE (TM)
     3234   02 0072A    69C0072F              BCS,12   T11M03            B: CC1,2 NOT EQUAL TO 00
     3235   02 0072B    6AF01FA5              BAL,15   :SAVESIO          SAVE SIO STATUS
     3236   02 0072C    6AF01D73              BAL,15   :ERRORT           TEST SIO
     3237   02 0072D    00000D18              DATA     BA(T11SEQ2)
     3238   02 0072E    68000732              B        T11M04            NO ERRORS
     3239                            *ERROR 1103
     3240   02 0072F    EAF021F3     T11M03   BAL,15   *:ERROR
     3241   02 00730    0000044F A            DATA     1103              #1103
     3242   02 00731    68000779              B        T11M13
     3243                            *
     3244   02 00732    324015A9     T11M04   LW,4     DELYTMSP
     3245   02 00733    64400733              BDR,4    %                 DELAY
     3246   02 00734    6AF01D73              BAL,15   :ERRORT           TEST TIO
     3247   02 00735    00000D2C              DATA     BA(T11SEQ3)
     3248   02 00736    68000748              B        T11M07            NO ERRORS
     3249   02 00737    72E0000D A            LB,14    13                TIO STATUS
     3250   02 00738    4BE0224E              AND,14   =X'06'            MASK
     3251   02 00739    21E00006 A            CI,14    X'06'             IS CONTR BUSY
     3252   02 0073A    6830073E              BE       T11M05            B: YES
     3253                            *ERROR 1104
     3254   02 0073B    EAF021F3              BAL,15   *:ERROR
     3255   02 0073C    00000450 A            DATA     1104              #1104
     3256   02 0073D    68000779              B        T11M13
     3257                            *
     3258   02 0073E    72E0000D A   T11M05   LB,14    13                TIO STATUS
     3259   02 0073F    4BE02252              AND,14   =X'60'            MASK
     3260   02 00740    21E00060 A            CI,14    X'60'             IS DEVICE BUSY
     3261   02 00741    68300745              BE       T11M06            B: YES
     3262                            *ERROR 1105
     3263   02 00742    EAF021F3              BAL,15   *:ERROR
     3264   02 00743    00000451 A            DATA     1105              #1105
     3265   02 00744    68000779              B        T11M13
     3266                            *
     3267                            *ERROR 1106
     3268   02 00745    EAF021F3     T11M06   BAL,15   *:ERROR
     3269   02 00746    00000452 A            DATA     1106              #1106
     3270   02 00747    68000779              B        T11M13
     3271                            *
     3272   02 00748    324015A9     T11M07   LW,4     DELYTMSP
     3273   02 00749    64400749              BDR,4    %                 DELAY
     3274   02 0074A    6AF01D73              BAL,15   :ERRORT           TEST TDV STATE A
     3275   02 0074B    00000D38              DATA     BA(T11SEQ1)
     3276   02 0074C    68000755              B        T11M16            NO ERRORS
     3277   02 0074D    32D0000D A            LW,13    13                IS IT IN STATE A
     3278   02 0074E    68100752              BGEZ     T11M15            B: NO
     3279                            * ERROR 1113
     3280   02 0074F    EAF021F3              BAL,15   *:ERROR
     3281   02 00750    00000459 A            DATA     1113              #1113
     3282   02 00751    68000779              B        T11M13
     3283                            *
     3284                            *ERROR 1114
     3285   02 00752    EAF021F3     T11M15   BAL,15   *:ERROR
     3286   02 00753    0000045A A            DATA     1114              #1114
     3287   02 00754    68000779              B        T11M13
     3288   02 00755    324015A8     T11M16   LW,4     DELYTMP
     3289   02 00756    64400756              BDR,4    %                 DELAY
     3290   02 00757    6AF01D73              BAL,15   :ERRORT           TEST TDV STATE B
     3291   02 00758    00000D40              DATA     BA(T11SEQ4)
     3292   02 00759    68000762              B        T11M09            NO ERRORS
     3293   02 0075A    31D02253              CW,13    =X'40000000'      IS IT IN STATE B
     3294   02 0075B    6840075F              BCR,4    T11M08            B: NO
     3295                            *ERROR 1107
     3296   02 0075C    EAF021F3              BAL,15   *:ERROR
     3297   02 0075D    00000453 A            DATA     1107              #1107
     3298   02 0075E    68000779              B        T11M13
     3299                            *
     3300                            *ERROR 1108
     3301   02 0075F    EAF021F3     T11M08   BAL,15   *:ERROR
     3302   02 00760    00000454 A            DATA     1108              #1108
     3303   02 00761    68000779              B        T11M13
     3304                            *
     3305   02 00762    324015A9     T11M09   LW,4     DELYTMSP
     3306   02 00763    64400763              BDR,4    %                 DELAY
     3307   02 00764    6AF01D73              BAL,15   :ERRORT           TEST TDV STATE A
     3308   02 00765    00000D38              DATA     BA(T11SEQ1)
     3309   02 00766    6800076F              B        T11M11            NO ERRORS
     3310   02 00767    32D0000D A            LW,13    13                IS IT IN STATE A
     3311   02 00768    6810076C              BGEZ     T11M10            B: NO
     3312                            *ERROR 1109
     3313   02 00769    EAF021F3              BAL,15   *:ERROR
     3314   02 0076A    00000455 A            DATA     1109              #1109
     3315   02 0076B    68000779              B        T11M13
     3316                            *
     3317   02 0076C    EAF021F3     T11M10   BAL,15   *:ERROR
     3318   02 0076D    00000456 A            DATA     1110              #1110
     3319   02 0076E    68000779              B        T11M13
     3320                            *
     3321   02 0076F    6AF01D73     T11M11   BAL,15   :ERRORT           TEST TIO
     3322   02 00770    00000D20              DATA     BA(T11SEQ5)
     3323   02 00771    68000775              B        T11M12            NO ERRORS
     3324                            *ERROR 1111
     3325   02 00772    EAF021F3              BAL,15   *:ERROR
     3326   02 00773    00000457 A            DATA     1111              #1111
     3327   02 00774    68000779              B        T11M13
     3328                            *
     3329   02 00775    72E61C0D     T11M12   LB,14    :STATUSCC,3       TEST BYTE COUNT
     3330   02 00776    6830077C              BEZ      T11M14            B: BYTE COUNT = 0
     3331                            *ERROR 1112
     3332   02 00777    EAF021F3              BAL,15   *:ERROR
     3333   02 00778    00000458 A            DATA     1112              #1112
     3334   02 00779    EAF02200     T11M13   BAL,15   *:SENSE
     3335   02 0077A    2E00077A              WAIT     %
     3336   02 0077B    6800077E              B        T11M17            LOOP
     3337   02 0077C    6AF02081     T11M14   BAL,15   RESTM             RESET TEST MODE
     3338   02 0077D    6800049F              B        EXIT              EXIT
     3339   02 0077E    6AF02081     T11M17   BAL,15   RESTM             RESET TEST MODE
     3340   02 0077F    68000715              B        TST111            LOOP
     3341                            *
     3342         02 0034E           T11SEQ1  EQU      TSEQ5
     3343         02 00346           T11SEQ2  EQU      TSEQ1
     3344         02 0034B           T11SEQ3  EQU      TSEQ4
     3345         02 00350           T11SEQ4  EQU      TSEQ6
     3346         02 00348           T11SEQ5  EQU      TSEQ2
1 C00   19:44 JUN 20,'83    TELEFILE COMPREHENSIVE LINE PRINTER TEST 960-0606-H02                 PAGE   20
A    3348                            *
     3349                            *
     3350                            *
     3351   02 00780    22E000C9 A   TST112   LI,14    X'C9'             TEST MODE (TDV STATE)
     3352   02 00781    75E0208D              STB,14   TMBYTE            SAVE
     3353   02 00782    6AF02065              BAL,15   SELTM             SELECT TEST MODE
     3354   02 00783    68000787              B        T12M01
     3355                            *ERROR 1201
     3356   02 00784    EAF021F3              BAL,15   *:ERROR
     3357   02 00785    000004B1 A            DATA     1201              #1201
     3358   02 00786    6800049F              B        EXIT
     3359                            *
     3360   02 00787    6AF01D73     T12M01   BAL,15   :ERRORT           TEST TDV-STATE A
     3361   02 00788    00000D38              DATA     BA(T12SEQ1)
     3362   02 00789    6800078F              B        T12M02            NO ERRORS
     3363                            *ERROR 1202
     3364   02 0078A    EAF021F3              BAL,15   *:ERROR
     3365   02 0078B    000004B2 A            DATA     1202              #1202
     3366   02 0078C    EAF02200              BAL,15   *:SENSE
     3367   02 0078D    2E00078D              WAIT     %
     3368   02 0078E    68000787              B        T12M01            LOOP
     3369                            *
     3370   02 0078F    22E000C1 A   T12M02   LI,14    X'C1'             SPACE 1 LINE FORMAT
     3371   02 00790    75E01A88              STB,14   FORMAT            SAVE
     3372   02 00791    22000D2F              LI,0     DA(IOCD11)        LOAD IOCD
     3373   02 00792    CCC01C3E              SIO,12   *:DEVADDR         SPACE 1 LINE
     3374   02 00793    6AF01FA5              BAL,15   :SAVESIO          SAVE SIO STATUS
     3375   02 00794    6AF01D73              BAL,15   :ERRORT           TEST SIO STATUS
     3376   02 00795    00000D18              DATA     BA(T12SEQ2)
     3377   02 00796    6800079A              B        T12M03
     3378                            *ERROR 1203
     3379   02 00797    EAF021F3              BAL,15   *:ERROR
     3380   02 00798    000004B3 A            DATA     1203              #1203
     3381   02 00799    680007D4              B        T12M12
     3382                            *
     3383   02 0079A    324015A9     T12M03   LW,4     DELYTMSP
     3384   02 0079B    6440079B              BDR,4    %                 DELAY
     3385   02 0079C    6AF01D73              BAL,15   :ERRORT           TEST TDV-STATE A
     3386   02 0079D    00000D38              DATA     BA(T12SEQ1)
     3387   02 0079E    680007A2              B        T12M04
     3388                            *ERROR 1204
     3389   02 0079F    EAF021F3              BAL,15   *:ERROR
     3390   02 007A0    000004B4 A            DATA     1204              #1204
     3391   02 007A1    680007D4              B        T12M12
     3392                            *
     3393   02 007A2    324015A9     T12M04   LW,4     DELYTMSP
     3394   02 007A3    644007A3              BDR,4    %                 DELAY
     3395   02 007A4    6AF01D73              BAL,15   :ERRORT           TEST TDV-STATE D
     3396   02 007A5    00000D50              DATA     BA(T12SEQ3)
     3397   02 007A6    680007AF              B        T12M06
     3398   02 007A7    31D02254              CW,13    =X'01000000'      TEST TDV BIT 7
     3399   02 007A8    694007AC              BCS,4    T12M05            B: TDV BIT 7 SET
     3400                            *ERROR 1205
     3401   02 007A9    EAF021F3              BAL,15   *:ERROR
     3402   02 007AA    000004B5 A            DATA     1205              #1205
     3403   02 007AB    680007D4              B        T12M12
     3404                            *
     3405                            *ERROR 1212
     3406   02 007AC    EAF021F3     T12M05   BAL,15   *:ERROR
     3407   02 007AD    000004BC A            DATA     1212              #1212
     3408   02 007AE    680007D4              B        T12M12
     3409                            *
     3410   02 007AF    6AF01D73     T12M06   BAL,15   :ERRORT           TEST TDV-STATE E
     3411   02 007B0    00000D58              DATA     BA(T12SEQ4)
     3412   02 007B1    680007B5              B        T12M07
     3413                            *ERROR 1206
     3414   02 007B2    EAF021F3              BAL,15   *:ERROR
     3415   02 007B3    000004B6 A            DATA     1206              #1206
     3416   02 007B4    680007D4              B        T12M12
     3417                            *
     3418   02 007B5    324015A9     T12M07   LW,4     DELYTMSP
     3419   02 007B6    644007B6              BDR,4    %                 DELAY
     3420   02 007B7    6AF01D73              BAL,15   :ERRORT           TEST TDV-STATE A
     3421   02 007B8    00000D38              DATA     BA(T12SEQ1)
     3422   02 007B9    680007C2              B        T12M09
     3423   02 007BA    32D0000D A            LW,13    13                TEST FOR STATE A
     3424   02 007BB    681007BF              BGEZ     T12M08            B: NOT IN STATE A
     3425                            *ERROR 1207
     3426   02 007BC    EAF021F3              BAL,15   *:ERROR
     3427   02 007BD    000004B7 A            DATA     1207              #1207
     3428   02 007BE    680007D4              B        T12M12
     3429                            *
     3430                            *ERROR 1208
     3431   02 007BF    EAF021F3     T12M08   BAL,15   *:ERROR
     3432   02 007C0    000004B8 A            DATA     1208              #1208
     3433   02 007C1    680007D4              B        T12M12
     3434                            *
     3435   02 007C2    6AF01D73     T12M09   BAL,15   :ERRORT           TEST TIO
     3436   02 007C3    00000D20              DATA     BA(T12SEQ5)
     3437   02 007C4    680007D0              B        T12M11
     3438   02 007C5    72E0000D A            LB,14    13                TIO STATUS
     3439   02 007C6    4BE0224E              AND,14   =X'06'            MASK
     3440   02 007C7    21E00006 A            CI,14    X'06'             IS CONTR BUSY
     3441   02 007C8    683007CC              BE       T12M10            B: CONTR BUSY
     3442                            *ERROR 1209
     3443   02 007C9    EAF021F3              BAL,15   *:ERROR
     3444   02 007CA    000004B9 A            DATA     1209              #1209
     3445   02 007CB    680007D4              B        T12M12
     3446                            *
     3447   02 007CC    CFC01C3E     T12M10   HIO,12   *:DEVADDR         ISSUE HIO
     3448                            *ERROR 1210
     3449   02 007CD    EAF021F3              BAL,15   *:ERROR
     3450   02 007CE    000004BA A            DATA     1210              #1210
     3451   02 007CF    680007D4              B        T12M12
     3452                            *
     3453   02 007D0    72A61C0D     T12M11   LB,10    :STATUSCC,3       TEST BYTE COUNT
     3454   02 007D1    683007D7              BEZ      T12M13            B: BYTE COUNT = 0
     3455                            *ERROR 1211
     3456   02 007D2    EAF021F3              BAL,15   *:ERROR
     3457   02 007D3    000004BB A            DATA     1211              #1211
     3458   02 007D4    EAF02200     T12M12   BAL,15   *:SENSE
     3459   02 007D5    2E0007D5              WAIT     %
     3460   02 007D6    680007D9              B        T12M14
     3461   02 007D7    6AF02081     T12M13   BAL,15   RESTM             RESET TEST MODE
     3462   02 007D8    6800049F              B        EXIT              EXIT
     3463   02 007D9    6AF02081     T12M14   BAL,15   RESTM             RESET TEST MODE
     3464   02 007DA    68000780              B        TST112            LOOP
     3465                            *
     3466         02 0034E           T12SEQ1  EQU      TSEQ5
     3467         02 00346           T12SEQ2  EQU      TSEQ1
     3468         02 00354           T12SEQ3  EQU      TSEQ8
     3469         02 00356           T12SEQ4  EQU      TSEQ9
     3470         02 00348           T12SEQ5  EQU      TSEQ2
1 C00   19:44 JUN 20,'83    TELEFILE COMPREHENSIVE LINE PRINTER TEST 960-0606-H02                 PAGE   21
A    3472                            *
     3473                            *
     3474                            *
     3475   02 007DB    22E000C9 A   TST113   LI,14    X'C9'             TEST MODE (TDV STATE)
     3476   02 007DC    75E0208D              STB,14   TMBYTE            SAVE
     3477   02 007DD    6AF02065              BAL,15   SELTM             SELECT TEST MODE
     3478   02 007DE    680007E2              B        T13M01            NO ERRORS
     3479                            *ERROR 1301
     3480   02 007DF    EAF021F3              BAL,15   *:ERROR
     3481   02 007E0    00000515 A            DATA     1301              #1301
     3482   02 007E1    6800049F              B        EXIT              EXIT
     3483                            *
     3484   02 007E2    6AF01D73     T13M01   BAL,15   :ERRORT           TEST TDV-STATE A
     3485   02 007E3    00000D38              DATA     BA(T13SEQ1)
     3486   02 007E4    680007EA              B        T13M02            NO ERRORS
     3487                            *ERROR 1302
     3488   02 007E5    EAF021F3              BAL,15   *:ERROR
     3489   02 007E6    00000516 A            DATA     1302              #1302
     3490   02 007E7    EAF02200              BAL,15   *:SENSE
     3491   02 007E8    2E0007E8              WAIT     %
     3492   02 007E9    680007E2              B        T13M01            LOOP
     3493                            *
     3494   02 007EA    22E000C1 A   T13M02   LI,14    X'C1'             SPACE 1 LINE FORMAT
     3495   02 007EB    75E01A88              STB,14   FORMAT            SAVE
     3496   02 007EC    22000D30              LI,0     DA(IOCD12)        LOAD IOCD
     3497   02 007ED    CCC01C3E              SIO,12   *:DEVADDR         SPACE AND PRINT ONE LINE
     3498   02 007EE    6AF01FA5              BAL,15   :SAVESIO          SAVE SIO STATUS
     3499   02 007EF    6AF01D73              BAL,15   :ERRORT           TEST SIO
     3500   02 007F0    00000D18              DATA     BA(T13SEQ2)
     3501   02 007F1    680007F5              B        T13M03            NO ERRORS
     3502                            *ERROR 1303
     3503   02 007F2    EAF021F3              BAL,15   *:ERROR
     3504   02 007F3    00000517 A            DATA     1303              #1303
     3505   02 007F4    6800082F              B        T13M11
     3506                            *
     3507   02 007F5    324015A9     T13M03   LW,4     DELYTMSP
     3508   02 007F6    644007F6              BDR,4    %                 DELAY
     3509   02 007F7    6AF01D73              BAL,15   :ERRORT           TEST TDV-STATE A
     3510   02 007F8    00000D38              DATA     BA(T13SEQ1)
     3511   02 007F9    680007FD              B        T13M04            NO ERRORS
     3512                            *ERROR 1304
     3513   02 007FA    EAF021F3              BAL,15   *:ERROR
     3514   02 007FB    00000518 A            DATA     1304              #1304
     3515   02 007FC    6800082F              B        T13M11
     3516                            *
     3517   02 007FD    324015A9     T13M04   LW,4     DELYTMSP
     3518   02 007FE    644007FE              BDR,4    %                 DELAY
     3519   02 007FF    6AF01D73              BAL,15   :ERRORT           TEST TDV-STATE D
     3520   02 00800    000020F0              DATA     BA(T13SEQ3)
     3521   02 00801    6800080A              B        T13M06            NO ERRORS
     3522   02 00802    31D02254              CW,13    =X'01000000'      TEST TDV BIT 7
     3523   02 00803    69400807              BCS,4    T13M05            B: TDV BIT 7 SET
     3524                            *ERROR 1305
     3525   02 00804    EAF021F3              BAL,15   *:ERROR
     3526   02 00805    00000519 A            DATA     1305              #1305
     3527   02 00806    6800082F              B        T13M11
     3528                            *
     3529                            *ERROR 1312
     3530   02 00807    EAF021F3     T13M05   BAL,15   *:ERROR
     3531   02 00808    00000520 A            DATA     1312              #1312
     3532   02 00809    6800082F              B        T13M11
     3533                            *
     3534   02 0080A    324015A9     T13M06   LW,4     DELYTMSP
     3535   02 0080B    6440080B              BDR,4    %                 DELAY
     3536   02 0080C    6AF01D73              BAL,15   :ERRORT           TEST TDV-STATE E
     3537   02 0080D    00000D58              DATA     BA(T13SEQ4)
     3538   02 0080E    68000812              B        T13M07            NO ERRORS
     3539                            *ERROR 1306
     3540   02 0080F    EAF021F3              BAL,15   *:ERROR
     3541   02 00810    0000051A A            DATA     1306              #1306
     3542   02 00811    6800082F              B        T13M11
     3543                            *
     3544   02 00812    324015A9     T13M07   LW,4     DELYTMSP
     3545   02 00813    64400813              BDR,4    %                 DELAY
     3546   02 00814    6AF01D73              BAL,15   :ERRORT           TEST TDV-STATE B
     3547   02 00815    00000D40              DATA     BA(T13SEQ5)
     3548   02 00816    6800081A              B        T13M08            NO ERRORS
     3549                            *ERROR 1307
     3550   02 00817    EAF021F3              BAL,15   *:ERROR
     3551   02 00818    0000051B A            DATA     1307              #1307
     3552   02 00819    6800082F              B        T13M11
     3553                            *
     3554   02 0081A    324015A9     T13M08   LW,4     DELYTMSP
     3555   02 0081B    6440081B              BDR,4    %                 DELAY
     3556   02 0081C    6AF01D73              BAL,15   :ERRORT           TEST TDV-STATE A
     3557   02 0081D    00000D38              DATA     BA(T13SEQ1)
     3558   02 0081E    68000822              B        T13M09            NO ERRORS
     3559                            *ERROR 1308
     3560   02 0081F    EAF021F3              BAL,15   *:ERROR
     3561   02 00820    0000051C A            DATA     1308              #1308
     3562   02 00821    6800082F              B        T13M11
     3563                            *
     3564   02 00822    6AF01D73     T13M09   BAL,15   :ERRORT           TEST TIO
     3565   02 00823    00000D20              DATA     BA(T13SEQ6)
     3566   02 00824    68000833              B        T13M12            NO ERRORS
     3567   02 00825    72E0000D A            LB,14    13                TIO STATUS
     3568   02 00826    4BE0224E              AND,14   =X'06'            MASK
     3569   02 00827    21E00006 A            CI,14    X'06'             IS CONTR  BUSY
     3570   02 00828    6830082C              BE       T13M10            B: CONTR  BUSY
     3571                            *ERROR 1309
     3572   02 00829    EAF021F3              BAL,15   *:ERROR
     3573   02 0082A    0000051D A            DATA     1309              #1309
     3574   02 0082B    6800082F              B        T13M11
     3575                            *
     3576   02 0082C    CFC01C3E     T13M10   HIO,12   *:DEVADDR         ISSUE HIO
     3577                            *ERROR 1310
     3578   02 0082D    EAF021F3              BAL,15   *:ERROR
     3579   02 0082E    0000051E A            DATA     1310              #1310
     3580   02 0082F    EAF02200     T13M11   BAL,15   *:SENSE
     3581   02 00830    2E000830              WAIT     %
     3582   02 00831    6800083A              B        T13M14
     3583   02 00832    68000838              B        T13M13
     3584   02 00833    72E61C0D     T13M12   LB,14    :STATUSCC,3       TEST BYTE COUNT
     3585   02 00834    68300838              BEZ      T13M13            B: BYTE COUNT = 0
     3586                            *ERROR 1311
     3587   02 00835    EAF021F3              BAL,15   *:ERROR
     3588   02 00836    0000051F A            DATA     1311              #1311
     3589   02 00837    6800082F              B        T13M11
     3590                            *
     3591   02 00838    6AF02081     T13M13   BAL,15   RESTM             RESET TEST MODE
     3592   02 00839    6800049F              B        EXIT              EXIT
     3593   02 0083A    6AF02081     T13M14   BAL,15   RESTM             RESET TEST MODE
     3594   02 0083B    680007DB              B        TST113            LOOP
     3595                            *
     3596         02 0034E           T13SEQ1  EQU      TSEQ5
     3597         02 00346           T13SEQ2  EQU      TSEQ1
     3598   02 0083C    4041424B A   T13SEQ3  :TSEQ    TDVF0,TDVF1,TDVF2,TDVT3,TDVF4,TDVT7
            02 0083D    444F0000 A
     3599         02 00356           T13SEQ4  EQU      TSEQ9
     3600         02 00350           T13SEQ5  EQU      TSEQ6
     3601         02 00348           T13SEQ6  EQU      TSEQ2
     3602                            *********************************************************************
     3603   02 0083E    6800049F     TST114   B      EXIT                RESERVED FOR FUTURE USE
1 C00   19:44 JUN 20,'83    TELEFILE COMPREHENSIVE LINE PRINTER TEST 960-0606-H02                 PAGE   22
A    3605                            *
     3606                            *
     3607                            *
     3608   02 0083F    22E00048 A   TST115   LI,14    X'48'             TEST MODE(INHIBIT PRINT,BUF CLEAR)
     3609   02 00840    75E0208D              STB,14   TMBYTE            SAVE
     3610   02 00841    6AF02065              BAL,15   SELTM             SELECT TEST MODE
     3611   02 00842    68000846              B        T15M01            NO ERRORS
     3612                            *ERROR 1501
     3613   02 00843    EAF021F3              BAL,15   *:ERROR
     3614   02 00844    000005DD A            DATA     1501              #1501
     3615   02 00845    6800049F              B        EXIT              EXIT
     3616                            *
     3617   02 00846    351015A2     T15M01   STW,1    TST1INDX          SET INDEX
     3618   02 00847    224FFFDF A            LI,4     -33               BUFFER INDEX
     3619   02 00848    32E02255              LW,14    =X'A5A5A5A5'      PATTERN OF 'A5A5A5A5'
     3620   02 00849    35E822C6              STW,14   BUFFER2+33,4      STORE IN BUFFER2
     3621   02 0084A    65400849              BIR,4    %-1               LOOP TILL BUFFER COMPLETE
     3622   02 0084B    CFC01C3E     T15M02   HIO,12   *:DEVADDR         ISSUE HIO
     3623   02 0084C    22A00000 A            LI,10    0
     3624   02 0084D    35A015A5              STW,10   TST1ERR           RESET ERROR FLAG
     3625   02 0084E    32E015A2              LW,14    TST1INDX          INDEX
     3626   02 0084F    55E61A66              STH,14   IOCD14,3          STORE IN IOCD
     3627   02 00850    22000D33              LI,0     DA(IOCD14)        LOAD IOCD
     3628   02 00851    CCC01C3E              SIO,12   *:DEVADDR         PRINT A LINE (INHIBIT PRINT,BUF CLR)
     3629   02 00852    6AF01FA5              BAL,15   :SAVESIO          SAVE SIO STATUS
     3630   02 00853    6AF01D73              BAL,15   :ERRORT           TEST SIO
     3631   02 00854    00000D18              DATA     BA(T15SEQ1)
     3632   02 00855    68000859              B        T15M03            NO ERRORS
     3633                            *ERROR 1502
     3634   02 00856    EAF021F3              BAL,15   *:ERROR
     3635   02 00857    000005DE A            DATA     1502              #1502
     3636   02 00858    68000895              B        T15M13
     3637                            *
     3638   02 00859    324015A8     T15M03   LW,4     DELYTMP
     3639   02 0085A    6440085A              BDR,4    %                 DELAY
     3640   02 0085B    6AF01D73              BAL,15   :ERRORT           TEST TIO
     3641   02 0085C    00000D20              DATA     BA(T15SEQ2)
     3642   02 0085D    68000870              B        T15M06            NO ERRORS
     3643   02 0085E    351015A5              STW,1    TST1ERR           SET ERROR FLAG
     3644   02 0085F    32C015A2              LW,12    TST1INDX          LOAD IOCD BYTE COUNT
     3645   02 00860    EAF00217 A            BAL,15   *:DECC            CONVERT TO DECIMAL
     3646   02 00861    35F015C6              STW,15   TST1MSG1+5        STORE IN MESSAGE
     3647   02 00862    EAF0021C A            BAL,15   *:PRINT           PRINT MESSAGE
     3648   02 00863    000015C1              DATA     TST1MSG1          'IOCD BYTE CNT =    XXX'
     3649   02 00864    31D02256              CW,13    =X'66000000'      TEST TIO STATUS
     3650   02 00865    68400869              BCR,4    T15M04            B: CONTR, DEV READY
     3651                            *ERROR 1503
     3652   02 00866    EAF021F3              BAL,15   *:ERROR
     3653   02 00867    000005DF A            DATA     1503              #1503
     3654   02 00868    68000895              B        T15M13
     3655                            *
     3656   02 00869    31D02250     T15M04   CW,13    =X'08000000'      TEST UNUSUAL END STATUS
     3657   02 0086A    6940086E              BCS,4    T15M05            B: UNUSUAL END
     3658                            *ERROR 1504
     3659   02 0086B    EAF021F3              BAL,15   *:ERROR
     3660   02 0086C    000005E0 A            DATA     1504              #1504
     3661   02 0086D    68000870              B        T15M06
     3662                            *
     3663                            *ERROR 1505
     3664   02 0086E    EAF021F3     T15M05   BAL,15   *:ERROR
     3665   02 0086F    000005E1 A            DATA     1505              #1505
     3666                            *
     3667   02 00870    32E015A2     T15M06   LW,14    TST1INDX          IOCD BYTE COUNT INDEX
     3668   02 00871    21E00084 A            CI,14    132               TST1INDX:132
     3669   02 00872    6930089E              BNE      T15M15            B: NOT EQUAL
     3670   02 00873    6AF01D73              BAL,15   :ERRORT           TEST OSB
     3671   02 00874    00000D60              DATA     BA(T15SEQ3)
     3672   02 00875    68000883              B        T15M09            NO ERRORS
     3673   02 00876    351015A5              STW,1    TST1ERR           SET ERROR FLAG
     3674   02 00877    31D02257              CW,13    =X'3F0000'        TEST FOR IOP ERROR
     3675   02 00878    6840087C              BCR,4    T15M07            B: NO ERROR
     3676                            *ERROR 1506
     3677   02 00879    EAF021F3              BAL,15   *:ERROR
     3678   02 0087A    000005E2 A            DATA     1506              #1506
     3679   02 0087B    68000883              B        T15M09
     3680                            *
     3681   02 0087C    31D02258     T15M07   CW,13    =X'800000'        TEST INCORRECT LENGTH STATUS
     3682   02 0087D    68400881              BCR,4    T15M08            B: NO ERROR
     3683                            *
     3684                            *ERROR 1507
     3685   02 0087E    EAF021F3              BAL,15   *:ERROR
     3686   02 0087F    000005E3 A            DATA     1507              #1507
     3687   02 00880    68000883              B        T15M09
     3688                            *
     3689                            *ERROR 1508
     3690   02 00881    EAF021F3     T15M08   BAL,15   *:ERROR
     3691   02 00882    000005E4 A            DATA     1508              #1508
     3692   02 00883    6AF01D73     T15M09   BAL,15   :ERRORT           TEST TDV SET1
     3693   02 00884    00000EB0              DATA     BA(T1TSEQ)
     3694   02 00885    6800088E              B        T15M11            NO ERRORS
     3695   02 00886    351015A5              STW,1    TST1ERR           SET ERROR FLAG
     3696   02 00887    31D02259              CW,13    =X'02000000'      TEST TDV BIT 6 SET
     3697   02 00888    6840088C              BCR,4    T15M10            B: TDV BIT 6 NOT SET
     3698                            *ERROR 1509
     3699   02 00889    EAF021F3              BAL,15   *:ERROR
     3700   02 0088A    000005E5 A            DATA     1509              #1509
     3701   02 0088B    6800088E              B        T15M11
     3702                            *
     3703                            *ERROR 1510
     3704   02 0088C    EAF021F3     T15M10   BAL,15   *:ERROR
     3705   02 0088D    000005E6 A            DATA     1510              #1510
     3706                            *
     3707   02 0088E    72E61C0D     T15M11   LB,14    :STATUSCC,3       TEST BYTE COUNT
     3708   02 0088F    68300893              BEZ      T15M12            B: BYTE COUNT = 0
     3709   02 00890    351015A5              STW,1    TST1ERR           SET ERROR FLAG
     3710                            *ERROR 1512
     3711   02 00891    EAF021F3              BAL,15   *:ERROR
     3712   02 00892    000005E8 A            DATA     1512              #1512
     3713                            *
     3714   02 00893    311015A5     T15M12   CW,1     TST1ERR           TEST ERROR FLAG
     3715   02 00894    69300898              BNE      T15M14            B: NO ERROR
     3716   02 00895    EAF02200     T15M13   BAL,15   *:SENSE
     3717   02 00896    2E000896              WAIT     %
     3718   02 00897    6800084B              B        T15M02            LOOP
     3719   02 00898    331015A2     T15M14   MTW,1    TST1INDX          INCREMENT IOCD BYTE COUNT INDEX
     3720   02 00899    32E015A2              LW,14    TST1INDX          IOCD BYTE COUNT INDEX
     3721   02 0089A    21E00085 A            CI,14    133               TST1INDX:133
     3722   02 0089B    6820084B              BLE      T15M02            B: INDEX <= 133
     3723   02 0089C    6AF02081              BAL,15   RESTM             RESET TEST MODE
     3724   02 0089D    6800049F              B        EXIT              EXIT
     3725   02 0089E    6AF01D73     T15M15   BAL,15   :ERRORT           TEST OSB
     3726   02 0089F    00000D6C              DATA     BA(T15SEQ5)
     3727   02 008A0    68000883              B        T15M09            NO ERRORS
     3728   02 008A1    351015A5              STW,1    TST1ERR           SET ERROR FLAG
     3729   02 008A2    31D02258              CW,13    =X'00800000'      TEST INCORRECT LENGTH STATUS
     3730   02 008A3    694008A7              BCS,4    T15M16            B: INCORRECT LENGTH
     3731                            *ERROR 1513
     3732   02 008A4    EAF021F3              BAL,15   *:ERROR
     3733   02 008A5    000005E9 A            DATA     1513              #1513
     3734   02 008A6    68000883              B        T15M09
     3735                            *
     3736   02 008A7    31D02257     T15M16   CW,13    =X'3F0000'        TEST FOR IOP ERROR
     3737   02 008A8    684008AC              BCR,4    T15M17            B: NO ERRORS
     3738                            *ERROR 1514
     3739   02 008A9    EAF021F3              BAL,15   *:ERROR
     3740   02 008AA    000005EA A            DATA     1514              #1514
     3741   02 008AB    68000883              B        T15M09
     3742                            *
     3743                            *ERROR 1515
     3744   02 008AC    EAF021F3     T15M17   BAL,15   *:ERROR
     3745   02 008AD    000005EB A            DATA     1515              #1515
     3746   02 008AE    68000883              B        T15M09
     3747                            *
     3748         02 00346           T15SEQ1  EQU      TSEQ1
     3749         02 00348           T15SEQ2  EQU      TSEQ2
     3750         02 00358           T15SEQ3  EQU      TSEQ11
     3751         02 0035B           T15SEQ5  EQU      TSEQ12
1 C00   19:44 JUN 20,'83    TELEFILE COMPREHENSIVE LINE PRINTER TEST 960-0606-H02                 PAGE   23
A    3753                            *
     3754                            *
     3755                            *
     3756   02 008AF    22E00048 A   TST116   LI,14    X'48'             TEST MODE(INHIBIT PRINT,BUF CLEAR)
     3757   02 008B0    75E0208D              STB,14   TMBYTE            SAVE
     3758   02 008B1    6AF02065              BAL,15   SELTM             SELECT TEST MODE
     3759   02 008B2    680008B6              B        T16M01            NO ERRORS
     3760                            *ERROR 1601
     3761   02 008B3    EAF021F3              BAL,15   *:ERROR
     3762   02 008B4    00000641 A            DATA     1601              #1601
     3763   02 008B5    6800049F              B        EXIT              EXIT
     3764                            *
     3765   02 008B6    224FFFDF A   T16M01   LI,4     -33               BUFFER INDEX
     3766   02 008B7    32E02255              LW,14    =X'A5A5A5A5'      PATTERN OF 'A5A5A5A5'
     3767   02 008B8    35E822C6              STW,14   BUFFER2+33,4      STORE IN BUFFER2
     3768   02 008B9    654008B8              BIR,4    %-1               B: LOOP TILL BUFFER COMPLETE
     3769   02 008BA    351015A2              STW,1    TST1INDX          SET INDEX TO 1
     3770   02 008BB    22A00000 A   T16M02   LI,10    0
     3771   02 008BC    35A015A5              STW,10   TST1ERR           RESET ERROR FLAG
     3772   02 008BD    22E000C1 A            LI,14    X'C1'             SPACE 1 LINE FORMAT
     3773   02 008BE    75E01A88              STB,14   FORMAT            SAVE
     3774   02 008BF    32E015A2              LW,14    TST1INDX
     3775   02 008C0    55E21A67              STH,14   IOCD13+3,1
     3776   02 008C1    CFC01C3E              HIO,12   *:DEVADDR         ISSUE HIO
     3777   02 008C2    22000D32              LI,0     DA(IOCD13)        LOAD IOCD
     3778   02 008C3    CCC01C3E              SIO,12   *:DEVADDR         PRINT WITH FORMAT
     3779   02 008C4    6AF01FA5              BAL,15   :SAVESIO          SAVE SIO STATUS
     3780   02 008C5    6AF01D73              BAL,15   :ERRORT           TEST SIO
     3781   02 008C6    00000D18              DATA     BA(T16SEQ1)
     3782   02 008C7    680008CB              B        T16M03            NO ERRORS
     3783                            *ERROR 1602
     3784   02 008C8    EAF021F3              BAL,15   *:ERROR
     3785   02 008C9    00000642 A            DATA     1602              #1602
     3786   02 008CA    68000919              B        T16M16
     3787                            *
     3788   02 008CB    324015AB     T16M03   LW,4     DELYTMPF
     3789   02 008CC    644008CC              BDR,4    %                 DELAY
     3790   02 008CD    6AF01D73              BAL,15   :ERRORT           TEST TIO
     3791   02 008CE    00000D20              DATA     BA(T16SEQ2)
     3792   02 008CF    680008E2              B        T16M06            NO ERRORS
     3793   02 008D0    351015A5              STW,1    TST1ERR           SET ERROR FLAG
     3794   02 008D1    32C015A2              LW,12    TST1INDX          INDEX
     3795   02 008D2    EAF00217 A            BAL,15   *:DECC            CONVERT TO EBCDIC
     3796   02 008D3    35F015C6              STW,15   TST1MSG1+5        STORE IN MESSAGE
     3797   02 008D4    EAF0021C A            BAL,15   *:PRINT           PRINT MESSAGE
     3798   02 008D5    000015C1              DATA     TST1MSG1          'IOCD BYTE CNT =   XXX'
     3799   02 008D6    31D02256              CW,13    =X'66000000'      TEST TIO STATUS
     3800   02 008D7    684008DB              BCR,4    T16M04            B: DEV, CONTR READY
     3801                            *ERROR 1603
     3802   02 008D8    EAF021F3              BAL,15   *:ERROR
     3803   02 008D9    00000643 A            DATA     1603              #1603
     3804   02 008DA    68000919              B        T16M16
     3805                            *
     3806   02 008DB    31D02250     T16M04   CW,13    =X'08000000'      TEST UNUSUAL END STATUS
     3807   02 008DC    694008E0              BCS,4    T16M05            B: UNUSUAL END
     3808                            *ERROR 1604
     3809   02 008DD    EAF021F3              BAL,15   *:ERROR
     3810   02 008DE    00000644 A            DATA     1604              #1604
     3811   02 008DF    680008E2              B        T16M06
     3812                            *
     3813                            *ERROR 1605
     3814   02 008E0    EAF021F3     T16M05   BAL,15   *:ERROR
     3815   02 008E1    00000645 A            DATA     1605              #1605
     3816                            *
     3817   02 008E2    32E015A2     T16M06   LW,14    TST1INDX          INDEX
     3818   02 008E3    21E00084 A            CI,14    132               TST1INDX:132
     3819   02 008E4    69300901              BNE      T16M11            B: NOT EQUAL
     3820   02 008E5    6AF01D73              BAL,15   :ERRORT           TEST OSB
     3821   02 008E6    00000D60              DATA     BA(T16SEQ3)
     3822   02 008E7    680008F5              B        T16M09            NO ERRORS
     3823   02 008E8    351015A5              STW,1    TST1ERR           SET ERROR FLAG
     3824   02 008E9    31D02257              CW,13    =X'3F0000'        TEST FOR IOP ERROR
     3825   02 008EA    684008EE              BCR,4    T16M07            B: NO ERRORS
     3826                            *ERROR 1606
     3827   02 008EB    EAF021F3              BAL,15   *:ERROR
     3828   02 008EC    00000646 A            DATA     1606              #1606
     3829   02 008ED    680008F5              B        T16M09
     3830                            *
     3831   02 008EE    31D02258     T16M07   CW,13    =X'800000'        TEST INCORRECT LENGTH STATUS
     3832   02 008EF    694008F3              BCS,4    T16M08            B: INCORRECT LENGTH
     3833                            *ERROR 1607
     3834   02 008F0    EAF021F3              BAL,15   *:ERROR
     3835   02 008F1    00000647 A            DATA     1607              #1607
     3836   02 008F2    680008F5              B        T16M09
     3837                            *
     3838                            *ERROR 1608
     3839   02 008F3    EAF021F3     T16M08   BAL,15   *:ERROR
     3840   02 008F4    00000648 A            DATA     1608              #1608
     3841                            *
     3842   02 008F5    6AF01D73     T16M09   BAL,15   :ERRORT           TEST TDV SET 1
     3843   02 008F6    00000EB0              DATA     BA(T1TSEQ)
     3844   02 008F7    68000912              B        T16M14            NO ERRORS
     3845   02 008F8    351015A5              STW,1    TST1ERR           SET ERROR FLAG
     3846   02 008F9    31D02259              CW,13    =X'02000000'      TEST TDV BIT 6
     3847   02 008FA    694008FE              BCS,4    T16M10            B: TDV BIT 6 SET
     3848                            *ERROR 1609
     3849   02 008FB    EAF021F3              BAL,15   *:ERROR
     3850   02 008FC    00000649 A            DATA     1609              #1609
     3851   02 008FD    68000912              B        T16M14
     3852                            *
     3853                            *ERROR 1610
     3854   02 008FE    EAF021F3     T16M10   BAL,15   *:ERROR
     3855   02 008FF    0000064A A            DATA     1610              #1610
     3856   02 00900    68000912              B        T16M14
     3857   02 00901    6AF01D73     T16M11   BAL,15   :ERRORT           TEST OSB
     3858   02 00902    00000D6C              DATA     BA(T16SEQ5)
     3859   02 00903    680008F5              B        T16M09            NO ERRORS
     3860   02 00904    351015A5              STW,1    TST1ERR           SET ERROR FLAG
     3861   02 00905    31D02258              CW,13    =X'800000'        TEST INCORRECT LENGTH STATUS
     3862   02 00906    6940090A              BCS,4    T16M12            B: INCORRECT LENGTH
     3863                            *ERROR 1611
     3864   02 00907    EAF021F3              BAL,15   *:ERROR
     3865   02 00908    0000064B A            DATA     1611              #1611
     3866   02 00909    680008F5              B        T16M09
     3867                            *
     3868   02 0090A    31D02257     T16M12   CW,13    =X'3F0000'        TEST FOR IOP ERROR
     3869   02 0090B    6840090F              BCR,4    T16M13            B: NO ERROR
     3870                            *ERROR 1612
     3871   02 0090C    EAF021F3              BAL,15   *:ERROR
     3872   02 0090D    0000064C A            DATA     1612              #1612
     3873   02 0090E    680008F5              B        T16M09
     3874                            *
     3875                            *ERROR 1613
     3876   02 0090F    EAF021F3     T16M13   BAL,15   *:ERROR
     3877   02 00910    0000064D A            DATA     1613              #1613
     3878   02 00911    680008F5              B        T16M09
     3879                            *
     3880   02 00912    72E61C0D     T16M14   LB,14    :STATUSCC,3       TEST BYTE COUNT
     3881   02 00913    68300917              BEZ      T16M15            B: BYTE COUNT = 0
     3882   02 00914    351015A5              STW,1    TST1ERR           SET ERROR FLAG
     3883                            *ERROR 1614
     3884   02 00915    EAF021F3              BAL,15   *:ERROR
     3885   02 00916    0000064E A            DATA     1614              #1614
     3886                            *
     3887   02 00917    311015A5     T16M15   CW,1     TST1ERR           TEST ERROR FLAG
     3888   02 00918    6930091C              BNE      T16M17            B: NO ERROR
     3889   02 00919    EAF02200     T16M16   BAL,15   *:SENSE
     3890   02 0091A    2E00091A              WAIT     %
     3891   02 0091B    680008BB              B        T16M02
     3892   02 0091C    331015A2     T16M17   MTW,1    TST1INDX          INCREMENT INDEX
     3893   02 0091D    32E015A2              LW,14    TST1INDX          INDEX
     3894   02 0091E    21E00085 A            CI,14    133               TST1INDX:133
     3895   02 0091F    682008BB              BLE      T16M02            B: INDEX <= 133
     3896   02 00920    6AF02081              BAL,15   RESTM             RESET TEST MODE
     3897   02 00921    6800049F              B        EXIT              EXIT
     3898                            *
     3899         02 00346           T16SEQ1  EQU      TSEQ1
     3900         02 00348           T16SEQ2  EQU      TSEQ2
     3901         02 00358           T16SEQ3  EQU      TSEQ11
     3902         02 0035B           T16SEQ5  EQU      TSEQ12
1 C00   19:44 JUN 20,'83    TELEFILE COMPREHENSIVE LINE PRINTER TEST 960-0606-H02                 PAGE   24
A    3904                            *
     3905                            *
     3906                            *
     3907   02 00922    22E00048 A   TST117   LI,14    X'48'             TEST MODE(INHIBIT PRINT, BUF CLEAR)
     3908   02 00923    75E0208D              STB,14   TMBYTE            SAVE
     3909   02 00924    6AF02065              BAL,15   SELTM             SELECT TEST MODE
     3910   02 00925    68000929              B        T17M01            NO ERROR
     3911                            *ERROR 1701
     3912   02 00926    EAF021F3              BAL,15   *:ERROR
     3913   02 00927    000006A5 A            DATA     1701              #1701
     3914   02 00928    6800049F              B        EXIT              EXIT
     3915                            *
     3916   02 00929    351015A2     T17M01   STW,1    TST1INDX          SET INDEX
     3917   02 0092A    22E000C1 A            LI,14    X'C1'             SPACE 1 LINE FORMAT
     3918   02 0092B    75E022A5              STB,14   BUFFER2           SAVE
     3919   02 0092C    32E015A2     T17M02   LW,14    TST1INDX          INDEX
     3920   02 0092D    55E61A6A              STH,14   IOCD15,3          STORE IN IOCD
     3921   02 0092E    22A00000 A   T17M03   LI,10    0
     3922   02 0092F    35A015A5              STW,10   TST1ERR           RESET ERROR FLAG
     3923   02 00930    CFC01C3E              HIO,12   *:DEVADDR         ISSUE HIO
     3924   02 00931    22000D35              LI,0     DA(IOCD15)        LOAD IOCD
     3925   02 00932    CCC01C3E              SIO,12   *:DEVADDR         SPACE 1 LINE
     3926   02 00933    6AF01FA5              BAL,15   :SAVESIO          SAVE SIO STATUS
     3927   02 00934    6AF01D73              BAL,15   :ERRORT           TEST SIO
     3928   02 00935    00000D18              DATA     BA(T17SEQ1)
     3929   02 00936    6800093A              B        T17M04            NO ERRORS
     3930                            *ERROR 1702
     3931   02 00937    EAF021F3              BAL,15   *:ERROR
     3932   02 00938    000006A6 A            DATA     1702              #1702
     3933   02 00939    6800098C              B        T17M17
     3934                            *
     3935   02 0093A    324015AA     T17M04   LW,4     DELYTMF
     3936   02 0093B    6440093B              BDR,4    %                 DELAY
     3937   02 0093C    311015A2              CW,1     TST1INDX          TEST BYTE COUNT
     3938   02 0093D    69300944              BNE      %+7               B: BYTE COUNT NOT EQUAL TO 1
     3939   02 0093E    6AF01D73              BAL,15   :ERRORT           TEST TIO
     3940   02 0093F    00000D20              DATA     BA(T17SEQ2)
     3941   02 00940    68000954              B        T17M07            B: NO ERRORS
     3942                            *ERROR 1715
     3943   02 00941    EAF021F3              BAL,15   *:ERROR
     3944   02 00942    000006B3 A            DATA     1715              #1715
     3945   02 00943    68000954              B        T17M07
     3946                            *
     3947   02 00944    6AF01D73              BAL,15   :ERRORT           TEST TIO
     3948   02 00945    00002654              DATA     BA(T17SEQ6)
     3949   02 00946    68000954              B        T17M07            NO ERRORS
     3950   02 00947    351015A5              STW,1    TST1ERR           SET ERROR FLAG
     3951   02 00948    31D02256              CW,13    =X'66000000'      TEST TIO STATUS
     3952   02 00949    6840094D              BCR,4    T17M05            B: DEV, CONTR READY
     3953                            *ERROR 1703
     3954   02 0094A    EAF021F3              BAL,15   *:ERROR
     3955   02 0094B    000006A7 A            DATA     1703              #1703
     3956   02 0094C    6800098C              B        T17M17
     3957                            *
     3958   02 0094D    31D02250     T17M05   CW,13    =X'08000000'      TEST UNUSUAL END STATUS
     3959   02 0094E    68400952              BCR,4    T17M06            B:NOT UNUSUAL END
     3960                            *ERROR 1704
     3961   02 0094F    EAF021F3              BAL,15   *:ERROR
     3962   02 00950    000006A8 A            DATA     1704              #1704
     3963   02 00951    68000954              B        T17M07
     3964                            *
     3965                            *ERROR 1705
     3966   02 00952    EAF021F3     T17M06   BAL,15   *:ERROR
     3967   02 00953    000006A9 A            DATA     1705              #1705
     3968                            *
     3969   02 00954    311015A2     T17M07   CW,1     TST1INDX          TEST INDEX
     3970   02 00955    69300972              BNE      T17M12            B: INDEX NOT EQUAL TO 1
     3971   02 00956    6AF01D73              BAL,15   :ERRORT           TEST OSB
     3972   02 00957    00000D60              DATA     BA(T17SEQ3)
     3973   02 00958    68000966              B        T17M10            NO ERRORS
     3974   02 00959    351015A5              STW,1    TST1ERR           SET ERROR FLAG
     3975   02 0095A    31D0225A              CW,13    =X'370000'        TEST FOR IOP ERROR
     3976   02 0095B    6840095F              BCR,4    T17M08            B: NO ERRORS
     3977                            *ERROR 1706
     3978   02 0095C    EAF021F3              BAL,15   *:ERROR
     3979   02 0095D    000006AA A            DATA     1706              #1706
     3980   02 0095E    68000966              B        T17M10
     3981                            *
     3982   02 0095F    31D02258     T17M08   CW,13    =X'800000'        TEST INCORRECT LENGTH STATUS
     3983   02 00960    69400964              BCS,4    T17M09            B: INCORRECT LENGTH
     3984                            *ERROR 1707
     3985   02 00961    EAF021F3              BAL,15   *:ERROR
     3986   02 00962    000006AB A            DATA     1707              #1707
     3987   02 00963    68000966              B        T17M10
     3988                            *
     3989                            *ERROR 1708
     3990   02 00964    EAF021F3     T17M09   BAL,15   *:ERROR
     3991   02 00965    000006AC A            DATA     1708              #1708
     3992                            *
     3993   02 00966    6AF01D73     T17M10   BAL,15   :ERRORT           TEST TDV SET 1
     3994   02 00967    00000EB0              DATA     BA(T1TSEQ)
     3995   02 00968    68000983              B        T17M15            NO ERRORS
     3996   02 00969    351015A5              STW,1    TST1ERR           SET ERROR FLAG
     3997   02 0096A    31D02259              CW,13    =X'02000000'      TEST TDV BIT 6
     3998   02 0096B    6840096F              BCR,4    T17M11            B: TDV BIT 6 NOT SET
     3999                            *ERROR 1709
     4000   02 0096C    EAF021F3              BAL,15   *:ERROR
     4001   02 0096D    000006AD A            DATA     1709              #1709
     4002   02 0096E    68000983              B        T17M15
     4003                            *
     4004                            *ERROR 1710
     4005   02 0096F    EAF021F3     T17M11   BAL,15   *:ERROR
     4006   02 00970    000006AE A            DATA     1710              #1710
     4007   02 00971    68000983              B        T17M15
     4008                            *
     4009   02 00972    6AF01D73     T17M12   BAL,15   :ERRORT           TEST OSB
     4010   02 00973    00000D6C              DATA     BA(T17SEQ5)
     4011   02 00974    68000966              B        T17M10            NO ERRORS
     4012   02 00975    351015A5              STW,1    TST1ERR           SET ERROR FLAG
     4013   02 00976    31D02258              CW,13    =X'800000'        TEST INCORRECT LENGTH STATUS
     4014   02 00977    6940097B              BCS,4    T17M13            B: INCORRECT LENGTH
     4015                            *ERROR 1711
     4016   02 00978    EAF021F3              BAL,15   *:ERROR
     4017   02 00979    000006AF A            DATA     1711              #1711
     4018   02 0097A    68000966              B        T17M10
     4019                            *
     4020   02 0097B    31D02257     T17M13   CW,13    =X'3F0000'        TEST FOR IOP ERROR
     4021   02 0097C    68400980              BCR,4    T17M14            B: NO ERRORS
     4022                            *ERROR 1712
     4023   02 0097D    EAF021F3              BAL,15   *:ERROR
     4024   02 0097E    000006B0 A            DATA     1712              #1712
     4025   02 0097F    68000966              B        T17M10
     4026                            *
     4027                            *ERROR 1713
     4028   02 00980    EAF021F3     T17M14   BAL,15   *:ERROR
     4029   02 00981    000006B1 A            DATA     1713              #1713
     4030   02 00982    68000966              B        T17M10
     4031                            *
     4032   02 00983    32E015A2     T17M15   LW,14    TST1INDX          INDEX
     4033   02 00984    38E00001 A            SW,14    1                 DECREMENT
     4034   02 00985    71E61C0D              CB,14    :STATUSCC,3       TEST BYTE COUNT
     4035   02 00986    6830098A              BE       T17M16            B: BYTE COUNT = INDEX - 1
     4036   02 00987    351015A5              STW,1    TST1ERR           SET ERROR FLAG
     4037                            *ERROR 1714
     4038   02 00988    EAF021F3              BAL,15   *:ERROR
     4039   02 00989    000006B2 A            DATA     1714              #1714
     4040                            *
     4041   02 0098A    311015A5     T17M16   CW,1     TST1ERR           TEST ERROR FLAG
     4042   02 0098B    6930098F              BNE      T17M18            B: NO ERRORS
     4043   02 0098C    EAF02200     T17M17   BAL,15   *:SENSE
     4044   02 0098D    2E00098D              WAIT     %
     4045   02 0098E    6800092E              B        T17M03
     4046                            *
     4047   02 0098F    331015A2     T17M18   MTW,1    TST1INDX          INCREMENT INDEX
     4048   02 00990    32E015A2              LW,14    TST1INDX          INDEX
     4049   02 00991    21E0000A A            CI,14    10                TST1INDX:10
     4050   02 00992    6820092C              BLE      T17M02            B: INDEX <= 10
     4051   02 00993    6AF02081              BAL,15   RESTM             RESET TEST MODE
     4052   02 00994    6800049F              B        EXIT              EXIT
     4053                            *
     4054         02 00346           T17SEQ1  EQU      TSEQ1
     4055         02 00348           T17SEQ2  EQU      TSEQ2
     4056         02 00358           T17SEQ3  EQU      TSEQ11
     4057         02 0035B           T17SEQ5  EQU      TSEQ12
     4058   02 00995    1011121B A   T17SEQ6  :TSEQ    TIOF0,TIOF1,TIOF2,TIOT3,TIOT4,TIOF5,TIOF6,TIOF7
            02 00996    1C151617 A
            02 00997    00000000 A
     4059                            *********************************************************************
     4060                            *********************************************************************
     4061   02 00998    6800049F     TST118   B      EXIT                RESERVED FOR FUTURE USE
     4062   02 00999    6800049F     TST119   B      EXIT                RESERVED FOR FUTURE USE
1 C00   19:44 JUN 20,'83    TELEFILE COMPREHENSIVE LINE PRINTER TEST 960-0606-H02                 PAGE   25
A    4064                            *
     4065                            *
     4066                            *
     4067   02 0099A    22E0004C A   TST120   LI,14    X'4C'             TEST MODE (ADDRESS CNTR, INH PRINT)
     4068   02 0099B    75E0208D              STB,14   TMBYTE            SAVE
     4069   02 0099C    6AF02065              BAL,15   SELTM             SELECT TEST MODE
     4070   02 0099D    680009A1              B        T20M01
     4071                            *ERROR 2001
     4072   02 0099E    EAF021F3              BAL,15   *:ERROR
     4073   02 0099F    000007D1 A            DATA     2001              #2001
     4074   02 009A0    6800049F              B        EXIT              EXIT
     4075                            *
     4076   02 009A1    351015A2     T20M01   STW,1    TST1INDX          SET INDEX
     4077   02 009A2    32E015A2     T20M02   LW,14    TST1INDX          INDEX
     4078   02 009A3    55E61A66              STH,14   IOCD14,3          STORE IN IOCD
     4079   02 009A4    CFC01C3E     T20M03   HIO,12   *:DEVADDR         ISSUE HIO
     4080   02 009A5    22000D33              LI,0     DA(IOCD14)        LOAD IOCD
     4081   02 009A6    CCC01C3E              SIO,12   *:DEVADDR         PRINT A LINE
     4082   02 009A7    324015A8              LW,4     DELYTMP
     4083   02 009A8    644009A8              BDR,4    %                 DELAY
     4084   02 009A9    32E015A2              LW,14    TST1INDX          INDEX
     4085   02 009AA    21E00084 A            CI,14    132               IS IT EQUAL TO 132
     4086   02 009AB    693009B0              BNE      T20M04            B: NO
     4087   02 009AC    6AF01D73              BAL,15   :ERRORT           TEST TIO,OBS,BYT CNT
     4088   02 009AD    00000DB8              DATA     BA(T20SEQ2)
     4089   02 009AE    680009B6              B        T20M06            NO ERRORS
     4090   02 009AF    680009B3              B        T20M05            ERROR
     4091   02 009B0    6AF01D73     T20M04   BAL,15   :ERRORT           TEST TIO,OBS,BYT CNT
     4092   02 009B1    00000DCC              DATA     BA(T20SEQ1)
     4093   02 009B2    680009B6              B        T20M06            NO ERRORS
     4094                            *ERROR 2002
     4095   02 009B3    EAF021F3     T20M05   BAL,15   *:ERROR
     4096   02 009B4    000007D2 A            DATA     2002              #2002
     4097   02 009B5    680009C8              B        T20M08
     4098                            *
     4099   02 009B6    CEC01C3E     T20M06   TDV,12   *:DEVADDR         ISSUE TDV
     4100   02 009B7    72C0000D A            LB,12    13                TDV STATUS
     4101   02 009B8    31C015A2              CW,12    TST1INDX          TDV BIT0-7:TST1INDX
     4102   02 009B9    683009CB              BE       T20M09            B: EQUAL
     4103   02 009BA    EAF00218 A            BAL,15   *:HEXC            CONVERT TDV BIT0-7 TO HEXADECIMAL
     4104   02 009BB    55F015CE              STH,15   TST1MSG2+7        STORE IN MESSAGE
     4105   02 009BC    32C015A2              LW,12    TST1INDX          INDEX
     4106   02 009BD    EAF00218 A            BAL,15   *:HEXC            CONVERT TO HEXADECIMAL
     4107   02 009BE    55F015CC              STH,15   TST1MSG2+5        STORE IN MESSAGE
     4108   02 009BF    EAF0021C A            BAL,15   *:PRINT           PRINT MESSAGE
     4109   02 009C0    000015C7              DATA     TST1MSG2          'ADDR COUNTER   EXP XX  OBS XX'
     4110   02 009C1    72E0000D A            LB,14    13                TDV STATUS
     4111   02 009C2    693009C6              BNEZ     T20M07            B: TDV BIT0-7 NOT EQUAL TO ZERO
     4112                            *ERROR 2003
     4113   02 009C3    EAF021F3              BAL,15   *:ERROR
     4114   02 009C4    000007D3 A            DATA     2003              #2003
     4115   02 009C5    680009C8              B        T20M08
     4116                            *
     4117                            *ERROR 2004
     4118   02 009C6    EAF021F3     T20M07   BAL,15   *:ERROR
     4119   02 009C7    000007D4 A            DATA     2004              #2004
     4120   02 009C8    EAF02200     T20M08   BAL,15   *:SENSE
     4121   02 009C9    2E0009C9              WAIT     %
     4122   02 009CA    680009A4              B        T20M03
     4123   02 009CB    331015A2     T20M09   MTW,1    TST1INDX          INCREMENT INDEX
     4124   02 009CC    32E015A2              LW,14    TST1INDX          INDEX
     4125   02 009CD    21E00084 A            CI,14    132               TST1INDX:132
     4126   02 009CE    682009A2              BLE      T20M02            B: INDEX <= 132
     4127   02 009CF    6AF02081              BAL,15   RESTM             RESET TEST MODE
     4128   02 009D0    6800049F              B        EXIT              EXIT
     4129                            *
     4130         02 00373           T20SEQ1  EQU      TSEQ17
     4131         02 0036E           T20SEQ2  EQU      TSEQ16
1 C00   19:44 JUN 20,'83    TELEFILE COMPREHENSIVE LINE PRINTER TEST 960-0606-H02                 PAGE   26
A    4133                            *
     4134                            *
     4135                            *
     4136   02 009D1    22E0004C A   TST121   LI,14    X'4C'             TEST MODE (ADDRESS CNTR, INH PRINT)
     4137   02 009D2    75E0208D              STB,14   TMBYTE            SAVE
     4138   02 009D3    6AF02065              BAL,15   SELTM             SELECT TEST MODE
     4139   02 009D4    680009D8              B        T21M01            NO ERRORS
     4140                            *ERROR 2101
     4141   02 009D5    EAF021F3              BAL,15   *:ERROR
     4142   02 009D6    00000835 A            DATA     2101              #2101
     4143   02 009D7    6800049F              B        EXIT              EXIT
     4144                            *
     4145   02 009D8    22A00000 A   T21M01   LI,10    0
     4146   02 009D9    35A015A2              STW,10   TST1INDX          RESET INDEX
     4147   02 009DA    22E000C1 A            LI,14    X'C1'             SPACE 1 LINE FORMAT
     4148   02 009DB    75E01A88              STB,14   FORMAT            SAVE
     4149   02 009DC    75A01A69              STB,10   IOCD16+1          STORE ZERO IN IOCD FLAG
     4150   02 009DD    31A015A2     T21M02   CW,10    TST1INDX          IS INDEX = 0
     4151   02 009DE    683009E1              BE       T21M03            B: INDEX = 0
     4152   02 009DF    22E00080 A            LI,14    X'80'             DATA CHAIN FLAG
     4153   02 009E0    75E01A69              STB,14   IOCD16+1          STORE IN FIRST IOCD
     4154   02 009E1    32E015A2     T21M03   LW,14    TST1INDX          INDEX
     4155   02 009E2    55E21A6B              STH,14   IOCD16+3,1        STORE IN IOCD
     4156   02 009E3    CFC01C3E     T21M04   HIO,12   *:DEVADDR         ISSUE HIO
     4157   02 009E4    22000D34              LI,0     DA(IOCD16)        LOAD IOCD
     4158   02 009E5    CCC01C3E              SIO,12   *:DEVADDR         SPACE AND PRINT 1 LINE
     4159   02 009E6    324015AB              LW,4     DELYTMPF
     4160   02 009E7    644009E7              BDR,4    %                 DELAY
     4161   02 009E8    32E015A2              LW,14    TST1INDX          INDEX
     4162   02 009E9    21E00084 A            CI,14    132               IS INDEX = 132
     4163   02 009EA    683009EF              BE       T21M05            B: EQUAL
     4164   02 009EB    6AF01D73              BAL,15   :ERRORT           TEST TIO,OBS,BYT00
     4165   02 009EC    00000DCC              DATA     BA(T21SEQ2)
     4166   02 009ED    680009F5              B        T21M07            NO ERRORS
     4167   02 009EE    680009F2              B        T21M06            ERROR
     4168   02 009EF    6AF01D73     T21M05   BAL,15   :ERRORT           TEST TIO,OBS,BYT00
     4169   02 009F0    00000DB8              DATA     BA(T21SEQ1)
     4170   02 009F1    680009F5              B        T21M07            NO ERRORS
     4171                            *ERROR 2102
     4172   02 009F2    EAF021F3     T21M06   BAL,15   *:ERROR
     4173   02 009F3    00000836 A            DATA     2102              #2102
     4174   02 009F4    68000A07              B        T21M09
     4175                            *
     4176   02 009F5    CEC01C3E     T21M07   TDV,12   *:DEVADDR         ISSUE TDV
     4177   02 009F6    72C0000D A            LB,12    13                TDV STATUS
     4178   02 009F7    31C015A2              CW,12    TST1INDX          TDV BIT0-7:TST1INDX
     4179   02 009F8    68300A0A              BE       T21M10            B: EQUAL
     4180   02 009F9    EAF00218 A            BAL,15   *:HEXC            CONVERT TDV BIT 0-7 TO EBCDIC
     4181   02 009FA    55F015CE              STH,15   TST1MSG2+7        STORE IN MESSAGE
     4182   02 009FB    32C015A2              LW,12    TST1INDX          INDEX
     4183   02 009FC    EAF00218 A            BAL,15   *:HEXC            CONVERT TO EBCDIC
     4184   02 009FD    55F015CC              STH,15   TST1MSG2+5        STORE IN MESSAGE
     4185   02 009FE    EAF0021C A            BAL,15   *:PRINT           PRINT MESSAGE
     4186   02 009FF    000015C7              DATA     TST1MSG2          'ADDR COUNTER   EXP XX  OBS XX'
     4187   02 00A00    31A015A2              CW,10    TST1INDX          IS INDEX = 0
     4188   02 00A01    69300A05              BNE      T21M08            B: NO
     4189                            *ERROR 2103
     4190   02 00A02    EAF021F3              BAL,15   *:ERROR
     4191   02 00A03    00000837 A            DATA     2103              #2103
     4192   02 00A04    68000A07              B        T21M09
     4193                            *
     4194                            *ERROR 2104
     4195   02 00A05    EAF021F3     T21M08   BAL,15   *:ERROR
     4196   02 00A06    00000838 A            DATA     2104              #2104
     4197   02 00A07    EAF02200     T21M09   BAL,15   *:SENSE
     4198   02 00A08    2E000A08              WAIT     %
     4199   02 00A09    680009E3              B        T21M04
     4200   02 00A0A    331015A2     T21M10   MTW,1    TST1INDX          INCREMENT INDEX
     4201   02 00A0B    32E015A2              LW,14    TST1INDX          INDEX
     4202   02 00A0C    21E00084 A            CI,14    132               TST1INDX:132
     4203   02 00A0D    682009DD              BLE      T21M02            B: TST1INDX <= 132
     4204   02 00A0E    6AF02081              BAL,15   RESTM             RESET TEST MODE
     4205   02 00A0F    6800049F              B        EXIT              EXIT
     4206                            *
     4207         02 0036E           T21SEQ1  EQU      TSEQ16
     4208         02 00373           T21SEQ2  EQU      TSEQ17
1 C00   19:44 JUN 20,'83    TELEFILE COMPREHENSIVE LINE PRINTER TEST 960-0606-H02                 PAGE   27
A    4210                            *
     4211                            *
     4212                            *
     4213   02 00A10    22E00044 A   TST122   LI,14    X'44'             TEST MODE (INHIBIT PRINT)
     4214   02 00A11    75E0208D              STB,14   TMBYTE            SAVE
     4215   02 00A12    6AF02065              BAL,15   SELTM             SELECT TEST MODE
     4216   02 00A13    68000A17              B        T22M01            NO ERROR
     4217                            *ERROR 2201
     4218   02 00A14    EAF021F3              BAL,15   *:ERROR
     4219   02 00A15    00000899 A            DATA     2201              #2201
     4220   02 00A16    6800049F              B        EXIT              EXIT
     4221                            *
     4222   02 00A17    351015A2     T22M01   STW,1    TST1INDX          SET INDEX
     4223   02 00A18    CFC01C3E     T22M02   HIO,12   *:DEVADDR         ISSUE HIO
     4224   02 00A19    32E015A2              LW,14    TST1INDX          INDEX
     4225   02 00A1A    55E61A6A              STH,14   IOCD15,3          STORE IN IOCD BYTE CNT
     4226   02 00A1B    22000D35              LI,0     DA(IOCD15)        LOAD IOCD
     4227   02 00A1C    CCC01C3E              SIO,12   *:DEVADDR         SPACE 1 LINE
     4228   02 00A1D    324015AA              LW,4     DELYTMF
     4229   02 00A1E    64400A1E              BDR,4    %                 DELAY
     4230   02 00A1F    311015A2              CW,1     TST1INDX          TEST BYTE COUNT
     4231   02 00A20    68300A27              BE       %+7               B: BYTE COUNT = 1
     4232   02 00A21    6AF01D73              BAL,15   :ERRORT           TEST TIO,OSB
     4233   02 00A22    000028FC              DATA     BA(T22SEQ3)
     4234   02 00A23    68000A2D              B        T22M03            NO ERRORS
     4235                            *ERROR 2205
     4236   02 00A24    EAF021F3              BAL,15   *:ERROR
     4237   02 00A25    0000089D A            DATA     2205              #2205
     4238   02 00A26    68000A32              B        T22M04
     4239                            *
     4240   02 00A27    6AF01D73              BAL,15   :ERRORT           TEST TIO,OSB
     4241   02 00A28    000028EC              DATA     BA(T22SEQ1)
     4242   02 00A29    68000A2D              B        T22M03            NO ERRORS
     4243                            *ERROR 2203
     4244   02 00A2A    EAF021F3              BAL,15   *:ERROR
     4245   02 00A2B    0000089B A            DATA     2203              #2203
     4246   02 00A2C    68000A32              B        T22M04
     4247                            *
     4248   02 00A2D    6AF01D73     T22M03   BAL,15   :ERRORT           TEST TDV SET 5
     4249   02 00A2E    00000D78              DATA     BA(T22SEQ2)
     4250   02 00A2F    68000A35              B        T22M05            NO ERRORS
     4251                            *ERROR 2204
     4252   02 00A30    EAF021F3              BAL,15   *:ERROR
     4253   02 00A31    0000089C A            DATA     2204              #2204
     4254   02 00A32    EAF02200     T22M04   BAL,15   *:SENSE
     4255   02 00A33    2E000A33              WAIT     %
     4256   02 00A34    68000A18              B        T22M02
     4257   02 00A35    331015A2     T22M05   MTW,1    TST1INDX          INCREMENT INDEX
     4258   02 00A36    32E015A2              LW,14    TST1INDX          INDEX
     4259   02 00A37    21E0000A A            CI,14    10                TST1INDX:10
     4260   02 00A38    68200A18              BLE      T22M02            B: TST1INDX <= 10
     4261   02 00A39    6AF02081              BAL,15   RESTM             RESET TEST MODE
     4262   02 00A3A    6800049F              B        EXIT              EXIT
     4263                            *
     4264                            T22SEQ1  :TSEQ    TIOF0,TIOF1,TIOF2,TIOT3,TIOF4,TIOF5,TIOF6,TIOF7,;
     4265   02 00A3B    1011121B A                     OSBF1,OSBF2,OSBF3,OSBF4,OSBF5,OSBF6,OSBF7
            02 00A3C    14151617 A
            02 00A3D    21222324 A
            02 00A3E    25262700 A
     4266         02 0035E           T22SEQ2  EQU      TSEQ13
     4267                            T22SEQ3  :TSEQ    TIOF0,TIOF1,TIOF2,TIOT3,TIOT4,TIOF5,TIOF6,TIOF7,;
     4268   02 00A3F    1011121B A                     OSBF1,OSBF2,OSBF3,OSBF4,OSBF5,OSBF6,OSBF7
            02 00A40    1C151617 A
            02 00A41    21222324 A
            02 00A42    25262700 A
1 C00   19:44 JUN 20,'83    TELEFILE COMPREHENSIVE LINE PRINTER TEST 960-0606-H02                 PAGE   28
A    4270                            *
     4271                            *
     4272                            *
     4273   02 00A43    22E00048 A   TST123   LI,14    X'48'             TEST MODE (INHIBIT  PRINT,BUF CLEAR)
     4274   02 00A44    75E0208D              STB,14   TMBYTE            STORE
     4275   02 00A45    6AF02065              BAL,15   SELTM             SELECT TEST MODE
     4276   02 00A46    68000A4A              B        T23M01            NO ERRORS
     4277                            *ERROR 2301
     4278   02 00A47    EAF021F3              BAL,15   *:ERROR
     4279   02 00A48    000008FD A            DATA     2301              #2301
     4280   02 00A49    6800049F              B        EXIT              EXIT
     4281                            *
     4282   02 00A4A    351015A2     T23M01   STW,1    TST1INDX          SET INDEX
     4283   02 00A4B    224FFFDF A   T23M03   LI,4     -33               BUFFER INDEX
     4284   02 00A4C    22E00000 A            LI,14    0
     4285   02 00A4D    35E822C6              STW,14   BUFFER2+33,4      CLEAR BUFFER
     4286   02 00A4E    35E822E7              STW,14   BUFFER3+33,4      CLEAR BUFFER
     4287   02 00A4F    65400A4D              BIR,4    %-2               B: LOOP TILL BUFFER COMPLETE
     4288   02 00A50    32E015A2              LW,14    TST1INDX          INDEX
     4289   02 00A51    55E61A70              STH,14   IOCD19,3          STORE BYTE COUNT IN IOCD
     4290   02 00A52    CFC01C3E     T23M02   HIO,12   *:DEVADDR         ISSUE HIO
     4291   02 00A53    22000D38              LI,0     DA(IOCD19)        LOAD IOCD
     4292   02 00A54    CCC01C3E              SIO,12   *:DEVADDR         SENSE BUFFER ORDER
     4293   02 00A55    6AF01FA5              BAL,15   :SAVESIO          SAVE SIO
     4294   02 00A56    6AF01D73              BAL,15   :ERRORT           TEST SIO
     4295   02 00A57    00000D18              DATA     BA(T23SEQ1)
     4296   02 00A58    68000A5E              B        T23M04            NO ERROR
     4297                            *ERROR 2302
     4298   02 00A59    EAF021F3              BAL,15   *:ERROR
     4299   02 00A5A    000008FE A            DATA     2302              #2302
     4300   02 00A5B    EAF02200              BAL,15   *:SENSE
     4301   02 00A5C    2E000A5C              WAIT     %
     4302   02 00A5D    68000A52              B        T23M02
     4303                            *
     4304   02 00A5E    32E015A2     T23M04   LW,14    TST1INDX          INDEX
     4305   02 00A5F    20E00003 A            AI,14    3
     4306   02 00A60    6AF01D50              BAL,15   :DELAY            DELAY
     4307   02 00A61    68000A62              B        %+1
     4308   02 00A62    6AF01D73              BAL,15   :ERRORT           TEST TIO
     4309   02 00A63    00000D20              DATA     BA(T23SEQ2)
     4310   02 00A64    68000A74              B        T23M07            NO ERRORS
     4311   02 00A65    72E0000D A            LB,14    13                TIO STATUS
     4312   02 00A66    4BE0224E              AND,14   =X'06'            MASK
     4313   02 00A67    21E00006 A            CI,14    X'06'             IS CONTR BUSY
     4314   02 00A68    69300A6C              BNE      T23M05            B: CONTR NOT BUSY
     4315                            *ERROR 2303
     4316   02 00A69    EAF021F3              BAL,15   *:ERROR
     4317   02 00A6A    000008FF A            DATA     2303              #2303
     4318   02 00A6B    68000A92              B        T23M11
     4319                            *
     4320   02 00A6C    31D02250     T23M05   CW,13    =X'08000000'      TEST UNUSUAL END STATUS
     4321   02 00A6D    69400A71              BCS,4    T23M06            B: UNUSUAL END
     4322                            *ERROR 2305
     4323   02 00A6E    EAF021F3              BAL,15   *:ERROR
     4324   02 00A6F    00000901 A            DATA     2305              #2305
     4325   02 00A70    68000A92              B        T23M11
     4326                            *
     4327                            *ERROR 2304
     4328   02 00A71    EAF021F3     T23M06   BAL,15   *:ERROR
     4329   02 00A72    00000900 A            DATA     2304              #2304
     4330   02 00A73    68000A92              B        T23M11
     4331                            *
     4332   02 00A74    6AF01D73     T23M07   BAL,15   :ERRORT           TEST OBS
     4333   02 00A75    00000D60              DATA     BA(T23SEQ3)
     4334   02 00A76    68000A84              B        T23M10            NO ERRORS
     4335   02 00A77    31D02257              CW,13    =X'3F0000'        TEST FOR IOP ERROR
     4336   02 00A78    68400A7C              BCR,4    T23M08            B: NO ERRORS
     4337                            *ERROR 2306
     4338   02 00A79    EAF021F3              BAL,15   *:ERROR
     4339   02 00A7A    00000902 A            DATA     2306              #2306
     4340   02 00A7B    68000A92              B        T23M11
     4341                            *
     4342   02 00A7C    31D02258     T23M08   CW,13    =X'800000'        TEST INCORRECT LENGTH STATUS
     4343   02 00A7D    68400A81              BCR,4    T23M09            B: CORRECT LENGTH
     4344                            *ERROR 2307
     4345   02 00A7E    EAF021F3              BAL,15   *:ERROR
     4346   02 00A7F    00000903 A            DATA     2307              #2307
     4347   02 00A80    68000A92              B        T23M11
     4348                            *
     4349                            *ERROR 2308
     4350   02 00A81    EAF021F3     T23M09   BAL,15   *:ERROR
     4351   02 00A82    00000904 A            DATA     2308              #2308
     4352   02 00A83    68000A92              B        T23M11
     4353                            *
     4354   02 00A84    72E21C0D     T23M10   LB,14    :STATUSCC,1       TEST BYTE COUNT
     4355   02 00A85    68300A8B              BEZ      T23M12            B: BYTE COUNT = 0
     4356                            *ERROR 2309
     4357   02 00A86    EAF021F3              BAL,15   *:ERROR
     4358   02 00A87    00000905 A            DATA     2309              #2309
     4359   02 00A88    EAF02200              BAL,15   *:SENSE
     4360   02 00A89    2E000A89              WAIT     %
     4361   02 00A8A    68000A52              B        T23M02
     4362   02 00A8B    22400000 A   T23M12   LI,4     0
     4363   02 00A8C    3540211E              STW,4    CHKPAR            IGNORE PARITY
     4364   02 00A8D    3540211F              STW,4    CHKTYPE           COMPARE PRINT BUFFER
     4365   02 00A8E    6AF020A0              BAL,15   BUFCOMP           BUFFER COMPARE
     4366   02 00A8F    68000A95              B        T23M13            CHAR BUFFER CLEAR
     4367                            *ERROR 2310
     4368   02 00A90    EAF021F3              BAL,15   *:ERROR
     4369   02 00A91    00000906 A            DATA     2310              #2310
     4370   02 00A92    EAF02200     T23M11   BAL,15   *:SENSE
     4371   02 00A93    2E000A93              WAIT     %
     4372   02 00A94    68000A52              B        T23M02            LOOP
     4373                            *
     4374   02 00A95    331015A2     T23M13   MTW,1    TST1INDX          INCR INDEX
     4375   02 00A96    32E015A2              LW,14    TST1INDX          INDEX
     4376   02 00A97    21E00085 A            CI,14    133               TST1INDX:133
     4377   02 00A98    68200A4B              BLE      T23M03            B: TST1INDX <= 133
     4378   02 00A99    6AF02081              BAL,15   RESTM             RESET TEST MODE
     4379   02 00A9A    6800049F              B        EXIT              EXIT
     4380                            *
     4381         02 00346           T23SEQ1  EQU      TSEQ1
     4382         02 00348           T23SEQ2  EQU      TSEQ2
     4383         02 00358           T23SEQ3  EQU      TSEQ11
1 C00   19:44 JUN 20,'83    TELEFILE COMPREHENSIVE LINE PRINTER TEST 960-0606-H02                 PAGE   29
A    4385                            *
     4386                            *
     4387                            *
     4388   02 00A9B    22E00048 A   TST124   LI,14    X'48'             TEST MODE (INHIBIT  PRINT,BUF CLEAR)
     4389   02 00A9C    75E0208D              STB,14   TMBYTE            SAVE
     4390   02 00A9D    6AF02065              BAL,15   SELTM             SELECT TEST MODE
     4391   02 00A9E    68000AA2              B        T24M01            NO ERRORS
     4392                            *ERROR 2401
     4393   02 00A9F    EAF021F3              BAL,15   *:ERROR
     4394   02 00AA0    00000961 A            DATA     2401              #2401
     4395   02 00AA1    6800049F              B        EXIT              EXIT
     4396                            *
     4397   02 00AA2    22A00000 A   T24M01   LI,10    0
     4398   02 00AA3    35A015A2              STW,10   TST1INDX          RESET INDEX
     4399   02 00AA4    32E0225B              LW,14    =X'01010101'      PATTERN X'01'
     4400   02 00AA5    35E015A6              STW,14   TST1PATN          SAVE
     4401   02 00AA6    224FFFDF A   T24M02   LI,4     -33               BUFFER INDEX
     4402   02 00AA7    32E015A6              LW,14    TST1PATN          PATTERN
     4403   02 00AA8    35E822C6              STW,14   BUFFER2+33,4      STORE IN BUFFER2
     4404   02 00AA9    65400AA8              BIR,4    %-1               B: LOOP TILL BUFFER COMPLETE
     4405   02 00AAA    CFC01C3E     T24M03   HIO,12   *:DEVADDR         ISSUE HIO
     4406   02 00AAB    22000D29              LI,0     DA(IOCD6)         LOAD IOCD
     4407   02 00AAC    CCC01C3E              SIO,12   *:DEVADDR         PRINT ONE LINE
     4408   02 00AAD    324015A8              LW,4     DELYTMP
     4409   02 00AAE    64400AAE              BDR,4    %                 DELAY
     4410   02 00AAF    6AF01D73              BAL,15   :ERRORT           TEST TIO,OSB,TDVSET1,BYT CNT
     4411   02 00AB0    00000D84              DATA     BA(T24SEQ1)
     4412   02 00AB1    68000AB7              B        T24M04            NO ERRORS
     4413                            *ERROR 2402
     4414   02 00AB2    EAF021F3              BAL,15   *:ERROR
     4415   02 00AB3    00000962 A            DATA     2402              #2402
     4416   02 00AB4    EAF02200              BAL,15   *:SENSE
     4417   02 00AB5    2E000AB5              WAIT     %
     4418   02 00AB6    68000AAA              B        T24M03
     4419                            *
     4420   02 00AB7    224FFFDF A   T24M04   LI,4     -33               BUFFER INDEX
     4421   02 00AB8    22E00000 A            LI,14    0                 CLEAR
     4422   02 00AB9    35E822E7              STW,14   BUFFER3+33,4          BUFFER3
     4423   02 00ABA    65400AB9              BIR,4    %-1               B: LOOP TILL BUFFER3 CLEARED
     4424   02 00ABB    CFC01C3E     T24M05   HIO,12   *:DEVADDR         ISSUE HIO
     4425   02 00ABC    22000D37              LI,0     DA(IOCD18)        LOAD IOCD
     4426   02 00ABD    CCC01C3E              SIO,12   *:DEVADDR         SENSE BUFFER ORDER
     4427   02 00ABE    32E015AC              LW,14    DELYTMS
     4428   02 00ABF    6AF01D50              BAL,15   :DELAY            DELAY
     4429   02 00AC0    68000AC1              B        %+1
     4430   02 00AC1    6AF01D73              BAL,15   :ERRORT           TEST TIO,OSB,TDVSET1,BYTE CNT
     4431   02 00AC2    00000D84              DATA     BA(T24SEQ1)
     4432   02 00AC3    68000AC9              B        T24M06            NO ERRORS
     4433                            *ERROR 2403
     4434   02 00AC4    EAF021F3              BAL,15   *:ERROR
     4435   02 00AC5    00000963 A            DATA     2403              #2403
     4436   02 00AC6    EAF02200              BAL,15   *:SENSE
     4437   02 00AC7    2E000AC7              WAIT     %
     4438   02 00AC8    68000ABB              B        T24M05
     4439   02 00AC9    35A0211F     T24M06   STW,10   CHKTYPE           COMPARE PRINT BUFFER FLAG
     4440   02 00ACA    35A0211E              STW,10   CHKPAR            IGNORE PARITY FLAG
     4441   02 00ACB    6AF020A0              BAL,15   BUFCOMP           COMPARE BUFFER
     4442   02 00ACC    68000AD2              B        T24M07            NO ERRORS
     4443                            *ERROR 2404
     4444   02 00ACD    EAF021F3              BAL,15   *:ERROR
     4445   02 00ACE    00000964 A            DATA     2404              #2404
     4446   02 00ACF    EAF02200              BAL,15   *:SENSE
     4447   02 00AD0    2E000AD0              WAIT     %
     4448   02 00AD1    68000AAA              B        T24M03
     4449   02 00AD2    32E015A2     T24M07   LW,14    TST1INDX          INDEX
     4450   02 00AD3    69300ADB              BNEZ     T24M08            B: INDEX NOT EQUAL TO ZERO
     4451   02 00AD4    32E015A6              LW,14    TST1PATN          PATTERN
     4452   02 00AD5    25E00201 A            SCS,14   1                 SHIFT PATTERN ONE BIT POSITION LEFT
     4453   02 00AD6    35E015A6              STW,14   TST1PATN          SAVE
     4454   02 00AD7    21E000C0 A            CI,14    X'C0'             IS IT BLANK CHAR
     4455   02 00AD8    69400AAA              BCS,4    T24M03            B: YES, SKIP BUILD BUFFER PATTERN
     4456   02 00AD9    21E00100 A            CI,14    X'100'            HAVE PATTERN SHIFTED LEFT 8 BIT POS.
     4457   02 00ADA    68400AA6              BCR,4    T24M02            B: NO
     4458   02 00ADB    331015A2     T24M08   MTW,1    TST1INDX          INCREMENT INDEX
     4459   02 00ADC    32E015A2              LW,14    TST1INDX          INDEX
     4460   02 00ADD    21E00064 A            CI,14    100               TST1INDX:100
     4461   02 00ADE    69200AE9              BG       T24M09            B: GREATER THAN 100
     4462   02 00ADF    226FFFDF A            LI,6     -33               BUFFER INDEX
     4463   02 00AE0    6AF01FEE              BAL,15   :RANDOMX          RANDOM PATTERN
     4464   02 00AE1    224FFFFC A            LI,4     -4                INDEX
     4465   02 00AE2    2250003F A            LI,5     X'3F'
     4466   02 00AE3    7158000F A            CB,5     15,4              TEST FOR BLANK CHAR
     4467   02 00AE4    68400AE0              BCR,4    %-4               B: BLANK CHAR
     4468   02 00AE5    65400AE3              BIR,4    %-2               B: LOOP TILL TESTED 4 CHAR
     4469   02 00AE6    35EC22C6              STW,14   BUFFER2+33,6      STORE IN BUFFER
     4470   02 00AE7    65600AE0              BIR,6    %-7               B: LOOP TILL BUFFER COMPLETE
     4471   02 00AE8    68000AAA              B        T24M03
     4472   02 00AE9    6AF02081     T24M09   BAL,15   RESTM             RESET TEST MODE
     4473   02 00AEA    6800049F              B        EXIT              EXIT
     4474                            *
     4475         02 00361           T24SEQ1  EQU      TSEQ14
1 C00   19:44 JUN 20,'83    TELEFILE COMPREHENSIVE LINE PRINTER TEST 960-0606-H02                 PAGE   30
A    4477                            *
     4478                            *
     4479                            *
     4480   02 00AEB    22E00048 A   TST125   LI,14    X'48'             TEST MODE (INHIBIT  PRINT,BUF CLEAR)
     4481   02 00AEC    75E0208D              STB,14   TMBYTE            SAVE
     4482   02 00AED    6AF02065              BAL,15   SELTM             SELECT TEST MODE
     4483   02 00AEE    68000AF2              B        T25M01            NO ERRORS
     4484                            *ERROR 2501
     4485   02 00AEF    EAF021F3              BAL,15   *:ERROR
     4486   02 00AF0    000009C5 A            DATA     2501              #2501
     4487   02 00AF1    6800049F              B        EXIT              EXIT
     4488                            *
     4489   02 00AF2    22A00000 A   T25M01   LI,10    0
     4490   02 00AF3    35A015A2              STW,10   TST1INDX          RESET INDEX
     4491   02 00AF4    35A015A6              STW,10   TST1PATN          STORE ZERO IN PATTERN
     4492   02 00AF5    224FFFDF A   T25M02   LI,4     -33               BUFFER INDEX
     4493   02 00AF6    32E015A6              LW,14    TST1PATN          PATTERN
     4494   02 00AF7    35E822C6              STW,14   BUFFER2+33,4      STORE IN BUFFER2
     4495   02 00AF8    65400AF7              BIR,4    %-1               B: LOOP TILL BUFFER COMPLETE
     4496   02 00AF9    CFC01C3E     T25M03   HIO,12   *:DEVADDR         ISSUE HIO
     4497   02 00AFA    22000D29              LI,0     DA(IOCD6)         LOAD IOCD
     4498   02 00AFB    CCC01C3E              SIO,12   *:DEVADDR         PRINT ONE LINE
     4499   02 00AFC    324015A8              LW,4     DELYTMP
     4500   02 00AFD    64400AFD              BDR,4    %                 DELAY
     4501   02 00AFE    6AF01D73              BAL,15   :ERRORT           TEST TIO,OSB,TDVSET1,BYTE CNT
     4502   02 00AFF    00000D84              DATA     BA(T25SEQ1)
     4503   02 00B00    68000B06              B        T25M04            NO ERRORS
     4504                            *ERROR 2502
     4505   02 00B01    EAF021F3              BAL,15   *:ERROR
     4506   02 00B02    000009C6 A            DATA     2502              #2502
     4507   02 00B03    EAF02200              BAL,15   *:SENSE
     4508   02 00B04    2E000B04              WAIT     %
     4509   02 00B05    68000AF9              B        T25M03
     4510                            *
     4511   02 00B06    224FFFDF A   T25M04   LI,4     -33               BUFFER INDEX
     4512   02 00B07    35A822E7              STW,10   BUFFER3+33,4      CLEAR BUFFER3
     4513   02 00B08    65400B07              BIR,4    %-1               B: LOOP TILL BUFFER COMPLETE
     4514   02 00B09    CFC01C3E     T25M05   HIO,12   *:DEVADDR         ISSUE HIO
     4515   02 00B0A    22000D37              LI,0     DA(IOCD18)        LOAD IOCD
     4516   02 00B0B    CCC01C3E              SIO,12   *:DEVADDR         SENSE BUFFER ORDER
     4517   02 00B0C    32E015AC              LW,14    DELYTMS
     4518   02 00B0D    6AF01D50              BAL,15   :DELAY            DELAY
     4519   02 00B0E    68000B0F              B        %+1
     4520   02 00B0F    6AF01D73              BAL,15   :ERRORT           TEST TIO,OSB,TDVSET1,BYTE CNT
     4521   02 00B10    00000D84              DATA     BA(T25SEQ1)
     4522   02 00B11    68000B17              B        T25M06            NO ERRORS
     4523                            *ERROR 2503
     4524   02 00B12    EAF021F3              BAL,15   *:ERROR
     4525   02 00B13    000009C7 A            DATA     2503              #2503
     4526   02 00B14    EAF02200              BAL,15   *:SENSE
     4527   02 00B15    2E000B15              WAIT     %
     4528   02 00B16    68000B09              B        T25M05
     4529   02 00B17    35A0211F     T25M06   STW,10   CHKTYPE           COMPARE PRINT BUFFER FLAG
     4530   02 00B18    3510211E              STW,1    CHKPAR            INCLUDE PARITY FLAG
     4531   02 00B19    6AF020A0              BAL,15   BUFCOMP           COMPARE BUFFER
     4532   02 00B1A    68000B20              B        T25M09            NO ERRORS
     4533                            *ERROR 2504
     4534   02 00B1B    EAF021F3              BAL,15   *:ERROR
     4535   02 00B1C    000009C8 A            DATA     2504              #2504
     4536   02 00B1D    EAF02200     T25M08   BAL,15   *:SENSE
     4537   02 00B1E    2E000B1E              WAIT     %
     4538   02 00B1F    68000AF9              B        T25M03
     4539   02 00B20    32E0225B     T25M09   LW,14    =X'01010101'
     4540   02 00B21    66E015A6              AWM,14   TST1PATN          INCREMENT PATTERN
     4541   02 00B22    32E015A6              LW,14    TST1PATN          PATTERN
     4542   02 00B23    4BE0225C              AND,14   =X'1FF'           MASK
     4543   02 00B24    21E00100 A            CI,14    X'100'            PATTERN:X'100'
     4544   02 00B25    68100B29              BGE      %+4
     4545   02 00B26    21E000C0 A            CI,14    X'C0'             TEST FOR BLANK CHAR
     4546   02 00B27    69400AF9              BCS,4    T25M03            B:BLANK CHAR
     4547   02 00B28    68000AF5              B        T25M02
     4548   02 00B29    331015A2              MTW,1    TST1INDX          INCREMENT INDEX
     4549   02 00B2A    32E015A2              LW,14    TST1INDX          INDEX
     4550   02 00B2B    21E00064 A            CI,14    100               INDEX:100
     4551   02 00B2C    68200AF5              BLE      T25M02            B: INDEX <= 100
     4552   02 00B2D    6AF02081              BAL,15   RESTM             RESET TEST MODE
     4553   02 00B2E    6800049F              B        EXIT              EXIT
     4554                            *
     4555         02 00361           T25SEQ1  EQU      TSEQ14
1 C00   19:44 JUN 20,'83    TELEFILE COMPREHENSIVE LINE PRINTER TEST 960-0606-H02                 PAGE   31
A    4557                            *
     4558                            *
     4559                            *
     4560   02 00B2F    22A00000 A   TST126   LI,10    0
     4561   02 00B30    35A015A2              STW,10   TST1INDX          RESET BOTH INDEX
     4562   02 00B31    35A015A4              STW,10   TST1IND1
     4563   02 00B32    22E00048 A   T26M01   LI,14    X'48'             TEST MODE(INHIBIT PRINT, BUF CLEAR)
     4564   02 00B33    75E0208D              STB,14   TMBYTE            SAVE
     4565   02 00B34    6AF02065              BAL,15   SELTM             SELECT TEST MODE
     4566   02 00B35    68000B39              B        T26M02
     4567                            *ERROR 2601
     4568   02 00B36    EAF021F3              BAL,15   *:ERROR
     4569   02 00B37    00000A29 A            DATA     2601              #2601
     4570   02 00B38    6800049F              B        EXIT              EXIT
     4571                            *
     4572   02 00B39    224FFFDF A   T26M02   LI,4     -33               BUFFER INDEX
     4573   02 00B3A    32E0225D              LW,14    =X'40404040'      BLANK CHARACTERS
     4574   02 00B3B    35E822C6              STW,14   BUFFER2+33,4      STORE IN BUFFER2
     4575   02 00B3C    65400B3B              BIR,4    %-1               B: LOOP TILL BUFFER COMPLETE
     4576   02 00B3D    324015A2              LW,4     TST1INDX          INDEX
     4577   02 00B3E    22E000FF A            LI,14    X'FF'             ALL ONE BYTE
     4578   02 00B3F    75E822A5              STB,14   BUFFER2,4         STORE IN BUFFER2 INDEXED POSITION
     4579   02 00B40    CFC01C3E     T26M03   HIO,12   *:DEVADDR         ISSUE HIO
     4580   02 00B41    22000D29              LI,0     DA(IOCD6)         LOAD IOCD
     4581   02 00B42    CCC01C3E              SIO,12   *:DEVADDR         PRINT ONE CHARACTER
     4582   02 00B43    324015A8              LW,4     DELYTMP
     4583   02 00B44    64400B44              BDR,4    %                 DELAY
     4584   02 00B45    6AF01D73              BAL,15   :ERRORT           TEST TIO,OSB,TDVSET1,BYT CNT
     4585   02 00B46    00000D84              DATA     BA(T26SEQ1)
     4586   02 00B47    68000B4B              B        T26M04            NO ERRORS
     4587                            *ERROR 2602
     4588   02 00B48    EAF021F3              BAL,15   *:ERROR
     4589   02 00B49    00000A2A A            DATA     2602              #2602
     4590   02 00B4A    68000B58              B        T26M061
     4591   02 00B4B    224FFFDF A   T26M04   LI,4     -33               BUFFER INDEX
     4592   02 00B4C    35A822E7              STW,10   BUFFER3+33,4      CLEAR BUFFER
     4593   02 00B4D    65400B4C              BIR,4    %-1               B: LOOP TILL BUFFER CLEARED
     4594   02 00B4E    22000D37     T26M05   LI,0     DA(IOCD18)        LOAD IOCD
     4595   02 00B4F    CCC01C3E              SIO,12   *:DEVADDR         SENSE BUFFER ORDER
     4596   02 00B50    32E015AC              LW,14    DELYTMS
     4597   02 00B51    6AF01D50              BAL,15   :DELAY            DELAY
     4598   02 00B52    68000B53              B        %+1
     4599   02 00B53    6AF01D73              BAL,15   :ERRORT           TEST TIO,OSB,TDVSET1,BYT CNT
     4600   02 00B54    00000DA0              DATA     BA(T26SEQ2)
     4601   02 00B55    68000B5B              B        T26M06            NO ERRORS
     4602                            *ERROR 2603
     4603   02 00B56    EAF021F3              BAL,15   *:ERROR
     4604   02 00B57    00000A2B A            DATA     2603              #2603
     4605   02 00B58    EAF02200     T26M061  BAL,15   *:SENSE
     4606   02 00B59    2E000B59              WAIT     %
     4607   02 00B5A    68000B4E              B        T26M05
     4608                            *
     4609   02 00B5B    35A0211F     T26M06   STW,10   CHKTYPE           COMPARE PRINT BUFFER FLAG
     4610   02 00B5C    3510211E              STW,1    CHKPAR            INCLUDE PARITY FLAG
     4611   02 00B5D    6AF020A0              BAL,15   BUFCOMP           COMPARE BUFFER
     4612   02 00B5E    68000B64              B        T26M07            NO ERRORS
     4613                            *ERROR 2604
     4614   02 00B5F    EAF021F3              BAL,15   *:ERROR
     4615   02 00B60    00000A2C A            DATA     2604              #2604
     4616   02 00B61    EAF02200              BAL,15   *:SENSE
     4617   02 00B62    2E000B62              WAIT     %
     4618   02 00B63    68000B40              B        T26M03
     4619   02 00B64    6AF02081     T26M07   BAL,15   RESTM             RESET TEST MODE
     4620   02 00B65    32E015A4              LW,14    TST1IND1          INDEX1
     4621   02 00B66    69300B6B              BNEZ     T26M08            B: NOT EQUAL TO ZERO
     4622   02 00B67    331015A2              MTW,1    TST1INDX          INCREMENT INDEX
     4623   02 00B68    32E015A2              LW,14    TST1INDX          INDEX
     4624   02 00B69    21E00084 A            CI,14    132               INDEX:132
     4625   02 00B6A    69100B32              BL       T26M01            B: INDEX < 132
     4626   02 00B6B    331015A4     T26M08   MTW,1    TST1IND1          INCREMENT INDEX 1
     4627   02 00B6C    32E015A4              LW,14    TST1IND1          INDEX 1
     4628   02 00B6D    21E000C8 A            CI,14    200               INDEX 1:200
     4629   02 00B6E    69200B75              BG       T26M09            B: INDEX 1 > 200
     4630   02 00B6F    6AF01FEE              BAL,15   :RANDOMX          RANDOM NUMBER
     4631   02 00B70    3290000E A            LW,9     14
     4632   02 00B71    22800000 A            LI,8     0
     4633   02 00B72    3680225E              DW,8     =132              BASE 132
     4634   02 00B73    358015A2              STW,8    TST1INDX          SAVE
     4635   02 00B74    68000B32              B        T26M01
     4636   02 00B75    6800049F     T26M09   B        EXIT              EXIT
     4637                            *
     4638         02 00361           T26SEQ1  EQU      TSEQ14
     4639         02 00368           T26SEQ2  EQU      TSEQ15
1 C00   19:44 JUN 20,'83    TELEFILE COMPREHENSIVE LINE PRINTER TEST 960-0606-H02                 PAGE   32
A    4641                            *
     4642                            *
     4643                            *
     4644   02 00B76    22E00048 A   TST127   LI,14    X'48'             TEST MODE (INHIBIT  PRINT,BUF CLEAR)
     4645   02 00B77    75E0208D              STB,14   TMBYTE            SAVE
     4646   02 00B78    6AF02065              BAL,15   SELTM             SELECT TEST MODE
     4647   02 00B79    68000B7D              B        T27M01            NO ERRORS
     4648                            *ERROR 2701
     4649   02 00B7A    EAF021F3              BAL,15   *:ERROR
     4650   02 00B7B    00000A8D A            DATA     2701              #2701
     4651   02 00B7C    6800049F              B        EXIT              EXIT
     4652                            *
     4653   02 00B7D    224FFFDF A   T27M01   LI,4     -33               BUFFER INDEX
     4654   02 00B7E    32E0225D              LW,14    =X'40404040'      BLANK CHARACTERS
     4655   02 00B7F    35E822C6              STW,14   BUFFER2+33,4      STORE IN BUFFER2
     4656   02 00B80    65400B7F              BIR,4    %-1               B: LOOP TILL BUFFER COMPLETE
     4657   02 00B81    CFC01C3E     T27M02   HIO,12   *:DEVADDR         ISSUE HIO
     4658   02 00B82    22000D29              LI,0     DA(IOCD6)         LOAD IOCD
     4659   02 00B83    CCC01C3E              SIO,12   *:DEVADDR         PRINT BLANK CHARACTERS
     4660   02 00B84    324015A8              LW,4     DELYTMP
     4661   02 00B85    64400B85              BDR,4    %                 DELAY
     4662   02 00B86    6AF01D73              BAL,15   :ERRORT           TEST TIO,OSB,TDVSET1, BYT CNT
     4663   02 00B87    00000D84              DATA     BA(T27SEQ1)
     4664   02 00B88    68000B8E              B        T27M03            NO ERRORS
     4665                            *ERROR 2702
     4666   02 00B89    EAF021F3              BAL,15   *:ERROR
     4667   02 00B8A    00000A8E A            DATA     2702              #2702
     4668   02 00B8B    EAF02200              BAL,15   *:SENSE
     4669   02 00B8C    2E000B8C              WAIT     %
     4670   02 00B8D    68000B81              B        T27M02
     4671   02 00B8E    CFC01C3E     T27M03   HIO,12   *:DEVADDR         ISSUE HIO
     4672   02 00B8F    224FFFDF A            LI,4     -33               BUFFER INDEX
     4673   02 00B90    22EFFFFF A            LI,14    -1                ALL ONE'S
     4674   02 00B91    35E822E7              STW,14   BUFFER3+33,4      STORE IN BUFFER3
     4675   02 00B92    65400B91              BIR,4    %-1               B: LOOP TILL BUFFER COMPLETE
     4676   02 00B93    22000D37              LI,0     DA(IOCD18)        LOAD IOCD
     4677   02 00B94    CCC01C3E              SIO,12   *:DEVADDR         SENSE BUFFER ORDER
     4678   02 00B95    32E015AC              LW,14    DELYTMS
     4679   02 00B96    6AF01D50              BAL,15   :DELAY            DELAY
     4680   02 00B97    68000B98              B        %+1
     4681   02 00B98    6AF01D73              BAL,15   :ERRORT           TEST TIO,OSB,TDVSET1,BYT CNT
     4682   02 00B99    00000D84              DATA     BA(T27SEQ1)
     4683   02 00B9A    68000BA0              B        T27M04            NO ERRORS
     4684                            *ERROR 2703
     4685   02 00B9B    EAF021F3              BAL,15   *:ERROR
     4686   02 00B9C    00000A8F A            DATA     2703              #2703
     4687   02 00B9D    EAF02200              BAL,15   *:SENSE
     4688   02 00B9E    2E000B9E              WAIT     %
     4689   02 00B9F    68000B8E              B        T27M03
     4690   02 00BA0    22A00000 A   T27M04   LI,10    0
     4691   02 00BA1    35A0211F              STW,10   CHKTYPE           COMPARE PRINT BUFFER FLAG
     4692   02 00BA2    3510211E              STW,1    CHKPAR            INCLUDE PARITY FLAG
     4693   02 00BA3    6AF020A0              BAL,15   BUFCOMP           COMPARE BUFFER
     4694   02 00BA4    68000BAA              B        T27M05            NO ERRORS
     4695                            *ERROR 2704
     4696   02 00BA5    EAF021F3              BAL,15   *:ERROR
     4697   02 00BA6    00000A90 A            DATA     2704              #2704
     4698   02 00BA7    EAF02200              BAL,15   *:SENSE
     4699   02 00BA8    2E000BA8              WAIT     %
     4700   02 00BA9    68000B81              B        T27M02
     4701   02 00BAA    6AF02081     T27M05   BAL,15   RESTM             RESET TEST MODE
     4702   02 00BAB    6800049F              B        EXIT              EXIT
     4703                            *
     4704         02 00361           T27SEQ1  EQU      TSEQ14
     4705                            *********************************************************************
     4706                            *********************************************************************
     4707   02 00BAC    6800049F     TST128   B      EXIT                RESERVED FOR FUTURE USE
     4708   02 00BAD    6800049F     TST129   B      EXIT                RESERVED FOR FUTURE USE
     4709   02 00BAE    6800049F     TST130   B      EXIT                RESERVED FOR FUTURE USE
1 C00   19:44 JUN 20,'83    TELEFILE COMPREHENSIVE LINE PRINTER TEST 960-0606-H02                 PAGE   33
A    4711                            *
     4712                            *
     4713                            *
     4714   02 00BAF    22E0004A A   TST131   LI,14    X'4A'             TEST MODE (FORMAT REG TDV STATUS)
     4715   02 00BB0    75E0208D              STB,14   TMBYTE            SAVE
     4716   02 00BB1    6AF02065              BAL,15   SELTM             SELECT TEST MODE
     4717   02 00BB2    68000BB6              B        T31M01            NO ERRORS
     4718                            *ERROR 3101
     4719   02 00BB3    EAF021F3              BAL,15   *:ERROR
     4720   02 00BB4    00000C1D A            DATA     3101              #3101
     4721   02 00BB5    6800049F              B        EXIT              EXIT
     4722                            *
     4723   02 00BB6    22A00000 A   T31M01   LI,10    0
     4724   02 00BB7    75A01A88              STB,10   FORMAT            RESET FORMAT
     4725   02 00BB8    CFC01C3E     T31M02   HIO,12   *:DEVADDR         ISSUE HIO
     4726   02 00BB9    22000D2F     T31M03   LI,0     DA(IOCD11)        LOAD IOCD
     4727   02 00BBA    CCC01C3E              SIO,12   *:DEVADDR         ISSUE FORMAT ORDER
     4728   02 00BBB    6AF01FA5              BAL,15   :SAVESIO          SAVE SIO STATUS
     4729   02 00BBC    6AF01D73              BAL,15   :ERRORT           TEST SIO
     4730   02 00BBD    00000D18              DATA     BA(T31SEQ1)
     4731   02 00BBE    68000BC4              B        T31M04            NO ERRORS
     4732                            *ERROR 3102
     4733   02 00BBF    EAF021F3              BAL,15   *:ERROR
     4734   02 00BC0    00000C1E A            DATA     3102              #3102
     4735   02 00BC1    EAF02200              BAL,15   *:SENSE
     4736   02 00BC2    2E000BC2              WAIT     %
     4737   02 00BC3    68000BB8              B        T31M02
     4738   02 00BC4    324015AA     T31M04   LW,4     DELYTMF
     4739   02 00BC5    64400BC5              BDR,4    %                 DELAY
     4740   02 00BC6    6AF01D73              BAL,15   :ERRORT           TEST TIO,OSB,BYT00
     4741   02 00BC7    00000DB8              DATA     BA(T31SEQ2)
     4742   02 00BC8    68000BCE              B        T31M05            NO ERRORS
     4743                            *ERROR 3103
     4744   02 00BC9    EAF021F3              BAL,15   *:ERROR
     4745   02 00BCA    00000C1F A            DATA     3103              #3103
     4746   02 00BCB    EAF02200              BAL,15   *:SENSE
     4747   02 00BCC    2E000BCC              WAIT     %
     4748   02 00BCD    68000BB8              B        T31M02
     4749   02 00BCE    6AF0217E     T31M05   BAL,15   TDVCOMP           TEST FOR CORRECT FORMAT STORAGE
     4750   02 00BCF    68000BD5              B        T31M06            OK
     4751                            *ERROR 3104
     4752   02 00BD0    EAF021F3              BAL,15   *:ERROR
     4753   02 00BD1    00000C20 A            DATA     3104              #3104
     4754   02 00BD2    EAF02200              BAL,15   *:SENSE
     4755   02 00BD3    2E000BD3              WAIT     %
     4756   02 00BD4    68000BB8              B        T31M02
     4757   02 00BD5    73101A88     T31M06   MTB,1    FORMAT            INCREMENT FORMAT BYTE
     4758   02 00BD6    72E01A88              LB,14    FORMAT            FORMAT
     4759   02 00BD7    21E00000 A            CI,14    X'00'             FORMAT:X'00'
     4760   02 00BD8    69300BB9              BNE      T31M03            B: FORMAT <> X'100'
     4761   02 00BD9    22E000FF A            LI,14    X'FF'             ALL ONE'S
     4762   02 00BDA    75E022A5              STB,14   BUFFER2           STORE IN BUFFER2
     4763   02 00BDB    22E00002 A            LI,14    2                 BYTE COUNT
     4764   02 00BDC    55E61A6A              STH,14   IOCD15,3          STORE IN IOCD
     4765   02 00BDD    CFC01C3E     T31M07   HIO,12   *:DEVADDR         ISSUE HIO
     4766   02 00BDE    22000D35              LI,0     DA(IOCD15)        LOAD IOCD
     4767   02 00BDF    CCC01C3E              SIO,12   *:DEVADDR         ISSUE FORMAT ORDER
     4768   02 00BE0    324015AA              LW,4     DELYTMF
     4769   02 00BE1    64400BE1              BDR,4    %                 DELAY
     4770   02 00BE2    6AF01D73              BAL,15   :ERRORT           TEST TIO,OSB,BYT CNT
     4771   02 00BE3    00002FE0              DATA     BA(T31SEQ4)
     4772   02 00BE4    68000BE8              B        T31M08            NO ERRORS
     4773                            *ERROR 3105
     4774   02 00BE5    EAF021F3              BAL,15   *:ERROR
     4775   02 00BE6    00000C21 A            DATA     3105              #3105
     4776   02 00BE7    68000BF3              B        T31M09
     4777                            *
     4778   02 00BE8    52E2000D A   T31M08   LH,14    13,1              BYTE COUNT
     4779   02 00BE9    21E00001 A            CI,14    1                 IS BYTE COUNT = 1
     4780   02 00BEA    68300BEE              BE       T31M11            B: BYTE COUNT = 1
     4781                            *ERROR 3107
     4782   02 00BEB    EAF021F3              BAL,15   *:ERROR
     4783   02 00BEC    00000C23 A            DATA     3107               3107
     4784   02 00BED    68000BF3              B        T31M09
     4785   02 00BEE    6AF01D73     T31M11   BAL,15   :ERRORT           TEST TDV SET 3
     4786   02 00BEF    00002FF4              DATA     BA(T31SEQ5)
     4787   02 00BF0    68000BF6              B        T31M10            NO ERRORS
     4788                            *ERROR 3106
     4789   02 00BF1    EAF021F3              BAL,15   *:ERROR
     4790   02 00BF2    00000C22 A            DATA     3106              #3106
     4791   02 00BF3    EAF02200     T31M09   BAL,15   *:SENSE
     4792   02 00BF4    2E000BF4              WAIT     %
     4793   02 00BF5    68000BDD              B        T31M07
     4794   02 00BF6    6AF02081     T31M10   BAL,15   RESTM             RESET TEST MODE
     4795   02 00BF7    6800049F              B        EXIT              EXIT
     4796                            *
     4797         02 00346           T31SEQ1  EQU      TSEQ1
     4798         02 0036E           T31SEQ2  EQU      TSEQ16
     4799                            T31SEQ4  :TSEQ    TIOF0,TIOF1,TIOF2,TIOT3,TIOT4,TIOF5,TIOF6,TIOF7,;
     4800   02 00BF8    1011121B A                     OSBT0,OSBF1,OSBF2,OSBF3,OSBF4,OSBF5,OSBF6,OSBF7
            02 00BF9    1C151617 A
            02 00BFA    28212223 A
            02 00BFB    24252627 A
            02 00BFC    00000000 A
     4801   02 00BFD    48414243 A   T31SEQ5  :TSEQ    TDVT0,TDVF1,TDVF2,TDVF3,TDVT4,TDVT5,TDVT6,TDVT7
            02 00BFE    4C4D4E4F A
            02 00BFF    00000000 A
1 C00   19:44 JUN 20,'83    TELEFILE COMPREHENSIVE LINE PRINTER TEST 960-0606-H02                 PAGE   34
A    4803                            *
     4804                            *
     4805                            *
     4806   02 00C00    22E0004A A   TST132   LI,14    X'4A'             TEST MODE (FORMAT REG TDV STATUS)
     4807   02 00C01    75E0208D              STB,14   TMBYTE            SAVE
     4808   02 00C02    6AF02065              BAL,15   SELTM             SELECT TEST MODE
     4809   02 00C03    68000C07              B        T32M01            NO ERRORS
     4810                            *ERROR 3201
     4811   02 00C04    EAF021F3              BAL,15   *:ERROR
     4812   02 00C05    00000C81 A            DATA     3201              #3201
     4813   02 00C06    6800049F              B        EXIT              EXIT
     4814                            *
     4815   02 00C07    22E00084 A   T32M01   LI,14    132
     4816   02 00C08    35E015A2              STW,14   TST1INDX          INITIALIZE INDEX
     4817   02 00C09    224FFFDF A            LI,4     -33               BUFFER INDEX
     4818   02 00C0A    22A00000 A            LI,10    0
     4819   02 00C0B    35A822C6              STW,10   BUFFER2+33,4      CLEAR BUFFER2 X'00'
     4820   02 00C0C    65400C0B              BIR,4    %-1               B: LOOP TILL BUFFER COMPLETE
     4821   02 00C0D    6AF01FEE     T32M02   BAL,15   :RANDOMX          RANDOM NUMBER
     4822   02 00C0E    75E01A88              STB,14   FORMAT            SAVE RANDOM BYTE
     4823   02 00C0F    CFC01C3E     T32M03   HIO,12   *:DEVADDR         ISSUE HIO
     4824   02 00C10    32E015A2              LW,14    TST1INDX          INDEX
     4825   02 00C11    55E21A67              STH,14   IOCD13+3,1        STORE IN 2ND IOCD BYTE COUNT
     4826   02 00C12    22000D32              LI,0     DA(IOCD13)        LOAD IOCD
     4827   02 00C13    CCC01C3E              SIO,12   *:DEVADDR         PRINT WITH FORMAT
     4828   02 00C14    6AF01FA5              BAL,15   :SAVESIO          SAVE SIO STATUS
     4829   02 00C15    6AF01D73              BAL,15   :ERRORT           TEST SIO
     4830   02 00C16    00000D18              DATA     BA(T32SEQ1)
     4831   02 00C17    68000C1D              B        T32M04            NO ERRORS
     4832                            *ERROR 3202
     4833   02 00C18    EAF021F3              BAL,15   *:ERROR
     4834   02 00C19    00000C82 A            DATA     3202              #3202
     4835   02 00C1A    EAF02200              BAL,15   *:SENSE
     4836   02 00C1B    2E000C1B              WAIT     %
     4837   02 00C1C    68000C0F              B        T32M03
     4838   02 00C1D    324015AB     T32M04   LW,4     DELYTMPF
     4839   02 00C1E    64400C1E              BDR,4    %                 DELAY
     4840   02 00C1F    32E015A2              LW,14    TST1INDX          INDEX
     4841   02 00C20    21E00084 A            CI,14    132               INDEX:132
     4842   02 00C21    68300C28              BE       T32M05            B: INDEX = 132
     4843   02 00C22    6AF01D73              BAL,15   :ERRORT           TEST TIO,OSB,BYT CNT
     4844   02 00C23    00000DCC              DATA     BA(T32SEQ3)
     4845   02 00C24    68000C30              B        T32M07            NO ERRORS
     4846                            *ERROR 3204
     4847   02 00C25    EAF021F3              BAL,15   *:ERROR
     4848   02 00C26    00000C84 A            DATA     3204              #3204
     4849   02 00C27    68000C2D              B        T32M06
     4850                            *
     4851   02 00C28    6AF01D73     T32M05   BAL,15   :ERRORT           TEST TIO,OSB,BYT CNT
     4852   02 00C29    00000DB8              DATA     BA(T32SEQ2)
     4853   02 00C2A    68000C30              B        T32M07            NO ERRORS
     4854                            *ERROR 3203
     4855   02 00C2B    EAF021F3              BAL,15   *:ERROR
     4856   02 00C2C    00000C83 A            DATA     3203              #3203
     4857   02 00C2D    EAF02200     T32M06   BAL,15   *:SENSE
     4858   02 00C2E    2E000C2E              WAIT     %
     4859   02 00C2F    68000C0F              B        T32M03
     4860   02 00C30    6AF0217E     T32M07   BAL,15   TDVCOMP           TEST FOR CORRECT FORMAT STORAGE
     4861   02 00C31    68000C37              B        T32M08            NO ERRORS
     4862                            *ERROR 3205
     4863   02 00C32    EAF021F3              BAL,15   *:ERROR
     4864   02 00C33    00000C85 A            DATA     3205              #3205
     4865   02 00C34    EAF02200              BAL,15   *:SENSE
     4866   02 00C35    2E000C35              WAIT     %
     4867   02 00C36    68000C0F              B        T32M03
     4868   02 00C37    331015A2     T32M08   MTW,1    TST1INDX          INCREMENT INDEX
     4869   02 00C38    32E015A2              LW,14    TST1INDX          INDEX
     4870   02 00C39    21E00084 A            CI,14    132               INDEX:132
     4871   02 00C3A    68300C3F              BE       T32M09            B: INDEX = 132
     4872   02 00C3B    21E00085 A            CI,14    133               INDEX:133
     4873   02 00C3C    69300C3E              BNE      %+2               B: INDEX <> 132
     4874   02 00C3D    351015A2              STW,1    TST1INDX          SET INDEX TO 1
     4875   02 00C3E    68000C0D              B        T32M02
     4876   02 00C3F    6AF02081     T32M09   BAL,15   RESTM             RESET TEST MODE
     4877   02 00C40    6800049F              B        EXIT              EXIT
     4878                            *
     4879         02 00346           T32SEQ1  EQU      TSEQ1
     4880         02 0036E           T32SEQ2  EQU      TSEQ16
     4881         02 00373           T32SEQ3  EQU      TSEQ17
     4882                            *********************************************************************
     4883   02 00C41    6800049F     TST133   B      EXIT                RESERVED FOR FUTURE USE
     4884   02 00C42    6800049F     TST134   B      EXIT                RESERVED FOR FUTURE USE
1 C00   19:44 JUN 20,'83    TELEFILE COMPREHENSIVE LINE PRINTER TEST 960-0606-H02                 PAGE   35
A    4886                            *
     4887                            *
     4888                            *
     4889   02 00C43    22E00058 A   TST135   LI,14    X'58'             TEST MODE(INPUT CODE DISC)
     4890   02 00C44    75E0208D              STB,14   TMBYTE            SAVE
     4891   02 00C45    6AF02065              BAL,15   SELTM             SELECT TEST MODE
     4892   02 00C46    68000C4A              B        T35M01            NO ERRORS
     4893                            *ERROR 3501
     4894   02 00C47    EAF021F3              BAL,15   *:ERROR
     4895   02 00C48    00000DAD A            DATA     3501              #3501
     4896   02 00C49    6800049F              B        EXIT              EXIT
     4897                            *
     4898   02 00C4A    351015A2     T35M01   STW,1    TST1INDX          SET INDEX TO 1
     4899   02 00C4B    32E015A2     T35M02   LW,14    TST1INDX          INDEX
     4900   02 00C4C    55E61A70              STH,14   IOCD19,3          STORE IN IOCD BYTE COUNT
     4901   02 00C4D    CFC01C3E     T35M03   HIO,12   *:DEVADDR         ISSUE HIO
     4902   02 00C4E    22000D38              LI,0     DA(IOCD19)        LOAD IOCD
     4903   02 00C4F    CCC01C3E              SIO,12   *:DEVADDR         CODE DISC SENSE ORDER
     4904   02 00C50    6AF01FA5              BAL,15   :SAVESIO          SAVE SIO STATUS
     4905   02 00C51    6AF01D73              BAL,15   :ERRORT           TEST SIO
     4906   02 00C52    00000D18              DATA     BA(T35SEQ1)
     4907   02 00C53    68000C59              B        T35M05            NO ERRORS
     4908                            *ERROR 3502
     4909   02 00C54    EAF021F3              BAL,15   *:ERROR
     4910   02 00C55    00000DAE A            DATA     3502              #3502
     4911   02 00C56    EAF02200              BAL,15   *:SENSE
     4912   02 00C57    2E000C57              WAIT     %
     4913   02 00C58    68000C4D              B        T35M03
     4914                            *
     4915   02 00C59    32E015A2     T35M05   LW,14    TST1INDX          INDEX
     4916   02 00C5A    20E00078 A            AI,14    X'78'                                             *A01
     4917   02 00C5B    6AF01D50              BAL,15   :DELAY            DELAY
     4918   02 00C5C    68000C5D              B        %+1
     4919   02 00C5D    6AF01D73              BAL,15   :ERRORT           TEST TIO,OSB,BYT CNT
     4920   02 00C5E    00000DB8              DATA     BA(T35SEQ3)
     4921   02 00C5F    68000C6B              B        T35M08            NO ERRORS
     4922   02 00C60    31D0225F              CW,13    =X'06000000'      IS CONTR READY
     4923   02 00C61    68400C65              BCR,4    T35M06            B: YES
     4924                            *ERROR 3504
     4925   02 00C62    EAF021F3              BAL,15   *:ERROR
     4926   02 00C63    00000DB0 A            DATA     3504              #3504
     4927   02 00C64    68000C67              B        T35M07
     4928                            *
     4929                            *ERROR 3505
     4930   02 00C65    EAF021F3     T35M06   BAL,15   *:ERROR
     4931   02 00C66    00000DB1 A            DATA     3505              #3505
     4932   02 00C67    EAF02200     T35M07   BAL,15   *:SENSE
     4933   02 00C68    2E000C68              WAIT     %
     4934   02 00C69    68000C4D              B        T35M03
     4935   02 00C6A    68000C71              B        T35M09
     4936   02 00C6B    6AF01D73     T35M08   BAL,15   :ERRORT           TEST TDVSET1
     4937   02 00C6C    00000EB0              DATA     BA(T1TSEQ)
     4938   02 00C6D    68000C71              B        T35M09            NO ERRORS
     4939                            *ERROR 3506
     4940   02 00C6E    EAF021F3              BAL,15   *:ERROR
     4941   02 00C6F    00000DB2 A            DATA     3506              #3506
     4942   02 00C70    68000C67              B        T35M07
     4943                            *
     4944   02 00C71    331015A2     T35M09   MTW,1    TST1INDX          INCREMENT INDEX
     4945   02 00C72    32E015A2              LW,14    TST1INDX          INDEX
     4946   02 00C73    31E015C0              CW,14    BYTECNT           INDEX:BYTECNT
     4947   02 00C74    68200C4B              BLE      T35M02            B: INDEX <= BYTECNT
     4948   02 00C75    6AF02081              BAL,15   RESTM             RESET TEST MODE
     4949   02 00C76    6800049F              B        EXIT              EXIT
     4950                            *
     4951         02 00346           T35SEQ1  EQU      TSEQ1
     4952         02 0034B           T35SEQ2  EQU      TSEQ4
     4953         02 0036E           T35SEQ3  EQU      TSEQ16
1 C00   19:44 JUN 20,'83    TELEFILE COMPREHENSIVE LINE PRINTER TEST 960-0606-H02                 PAGE   36
A    4955                            *
     4956                            *
     4957                            *
     4958   02 00C77    22E00058 A   TST136   LI,14    X'58'             TEST MODE(INPUT CODE DISC)
     4959   02 00C78    75E0208D              STB,14   TMBYTE            SAVE
     4960   02 00C79    6AF02065              BAL,15   SELTM             SELECT TEST MODE
     4961   02 00C7A    68000C7E              B        T36M07            NO ERRORS
     4962                            *ERROR 3601
     4963   02 00C7B    EAF021F3              BAL,15   *:ERROR
     4964   02 00C7C    00000E11 A            DATA     3601              #3601
     4965   02 00C7D    6800049F              B        EXIT              EXIT
     4966                            *
     4967   02 00C7E    32E0224D     T36M07   LW,14    =X'80000004'                                     *A04
     4968   02 00C7F    31E015B2              CW,14    TST1FLGM          IS IT MODEL 7442               *A04
     4969   02 00C80    69300C88              BNE      T36M01            B: NO                          *A04
     4970   02 00C81    224FFF7C A   T36M08   LI,4     -132              BUFFER BYTE INDEX              *A04
     4971   02 00C82    225FFF7C A            LI,5     -132              BUFFER BYTE INDEX               *A04
     4972   02 00C83    33100005 A   T36M081  MTW,1    5                 INCR BUFFER BYTE                *A04
     4973   02 00C84    72EA1A39              LB,14    CHARTBL2+33,5     FETCH CHARACTER                 *A04
     4974   02 00C85    75E822C6              STB,14   BUFFER2+33,4      STORE IN BUFFER2               *A04
     4975   02 00C86    65400C83              BIR,4    T36M081           B: LOOP TILL BUFFER COMPLETE    *A04
     4976   02 00C87    68000C8D              B        T36M09                                           *A04
     4977   02 00C88    224FFFC0 A   T36M01   LI,4     -64               BUFFER BYTE INDEX
     4978   02 00C89    72E81A18     T36M02   LB,14    CHARTBL+16,4      FETCH CHARACTER
     4979   02 00C8A    75E822B5              STB,14   BUFFER2+16,4
     4980   02 00C8B    75E822C5              STB,14   BUFFER2+32,4      STORE IN BUFFER2
     4981   02 00C8C    65400C89              BIR,4    T36M02            B: LOOP TILL BUFFER COMPLETE
     4982   02 00C8D    22E00080 A   T36M09   LI,14    128               BYTE COUNT                  *A04
     4983   02 00C8E    55E61A70              STH,14   IOCD19,3          STORE IN IOCD
     4984   02 00C8F    CFC01C3E     T36M03   HIO,12   *:DEVADDR         ISSUE HIO
     4985   02 00C90    22000D38              LI,0     DA(IOCD19)        LOAD IOCD
     4986   02 00C91    CCC01C3E              SIO,12   *:DEVADDR         CODE DISC SENSE ORDER
     4987   02 00C92    32E015AC              LW,14    DELYTMS
     4988   02 00C93    6AF01D50              BAL,15   :DELAY            DELAY
     4989   02 00C94    68000C95              B        %+1
     4990   02 00C95    6AF01D73              BAL,15   :ERRORT           TEST TIO,OSB,BYT CNT,TDVSET1
     4991   02 00C96    00000DA0              DATA     BA(T36SEQ1)
     4992   02 00C97    68000C9D              B        T36M04            NO ERRORS
     4993                            *ERROR 3602
     4994   02 00C98    EAF021F3              BAL,15   *:ERROR
     4995   02 00C99    00000E12 A            DATA     3602              #3602
     4996   02 00C9A    EAF02200              BAL,15   *:SENSE
     4997   02 00C9B    2E000C9B              WAIT     %
     4998   02 00C9C    68000C8F              B        T36M03
     4999   02 00C9D    3510211F     T36M04   STW,1    CHKTYPE           COMPARE CODE DISC
     5000   02 00C9E    3510211E              STW,1    CHKPAR            INCLUDE PARITY
     5001   02 00C9F    6AF020A0              BAL,15   BUFCOMP           BUFFER COMPARE
     5002   02 00CA0    68000CA6              B        T36M05            NO ERRORS
     5003                            *ERROR 3603
     5004   02 00CA1    EAF021F3              BAL,15   *:ERROR
     5005   02 00CA2    00000E13 A            DATA     3603              #3603
     5006   02 00CA3    EAF02200              BAL,15   *:SENSE
     5007   02 00CA4    2E000CA4              WAIT     %
     5008   02 00CA5    68000C8F              B        T36M03
     5009   02 00CA6    6AF02081     T36M05   BAL,15   RESTM             RESET TEST MODE
     5010   02 00CA7    6800049F              B        EXIT              EXIT
     5011                            *
     5012         02 00368           T36SEQ1  EQU      TSEQ15
1 C00   19:44 JUN 20,'83    TELEFILE COMPREHENSIVE LINE PRINTER TEST 960-0606-H02                 PAGE   37
A    5014                            *
     5015                            *
     5016                            *
     5017   02 00CA8    22E00058 A   TST137   LI,14    X'58'             TEST MODE (INPUT CODE DISC)
     5018   02 00CA9    75E0208D              STB,14   TMBYTE            SAVE
     5019   02 00CAA    6AF02065              BAL,15   SELTM             SELECT TEST MODE
     5020   02 00CAB    68000CAF              B        T37M01            NO ERRORS
     5021                            *ERROR 3701
     5022   02 00CAC    EAF021F3              BAL,15   *:ERROR
     5023   02 00CAD    00000E75 A            DATA     3701              #3701
     5024   02 00CAE    6800049F              B        EXIT              EXIT
     5025                            *
     5026   02 00CAF    32E015C0     T37M01   LW,14    BYTECNT           BYTE COUNT
     5027   02 00CB0    55E61A70              STH,14   IOCD19,3          STORE IN IOCD
     5028   02 00CB1    CFC01C3E     T37M02   HIO,12   *:DEVADDR         ISSUE HIO
     5029   02 00CB2    22000D38              LI,0     DA(IOCD19)        LOAD IOCD
     5030   02 00CB3    CCC01C3E              SIO,12   *:DEVADDR         CODE DISC SENSE ORDER
     5031   02 00CB4    22E0000F A            LI,14    15
     5032   02 00CB5    64E00CB5              BDR,14   %                 DELAY
     5033   02 00CB6    22401FFF A            LI,4     X'1FFF'           MAX DELAY COUNT                 *A04
     5034   02 00CB7    64400CB9     T37M03   BDR,4    %+2               DECR DELAY COUNT
     5035   02 00CB8    68000CC9              B        T37M051           MAX DELAY TIME EXCEEDED
     5036   02 00CB9    CDC01C3E              TIO,12   *:DEVADDR         ISSUE TIO
     5037   02 00CBA    32E0000D A            LW,14    13                                                *A04
     5038   02 00CBB    4BE02260              AND,14   =X'FFFF'          BYTE COUNT                      *A04
     5039   02 00CBC    31E015C0              CW,14    BYTECNT           HAS BYTE COUNT REDUCED
     5040   02 00CBD    68300CB7              BE       T37M03            B: NO
     5041   02 00CBE    35E015A4              STW,14   TST1IND1          SAVE BYTE COUNT
     5042   02 00CBF    22A00000 A   T37M04   LI,10    0
     5043   02 00CC0    35A015A2              STW,10   TST1INDX          RESET INDEX
     5044   02 00CC1    CDC01C3E     T37M05   TIO,12   *:DEVADDR         ISSUE TIO
     5045   02 00CC2    52E2000D A            LH,14    13,1              BYTE COUNT
     5046   02 00CC3    31E015A4              CW,14    TST1IND1          HAS BYTE COUNT DECREMENTED
     5047   02 00CC4    69300CD1              BNE      T37M07            B: YES
     5048   02 00CC5    331015A2              MTW,1    TST1INDX          INCREMENT INDEX
     5049   02 00CC6    32E015A2              LW,14    TST1INDX          INDEX
     5050   02 00CC7    31E015A1              CW,14    TST1MAXT          HAS INDEX EXCEED MAX TIME ALLOWED
     5051   02 00CC8    68200CC1              BLE      T37M05            B: NO
     5052   02 00CC9    EAF0021C A   T37M051  BAL,15   *:PRINT
     5053   02 00CCA    00000CDB              DATA     T37MSG            'TIME BETWEEN CODE DISC HAS EXCEED'
     5054                            *ERROR 3702
     5055   02 00CCB    EAF021F3     T37M06   BAL,15   *:ERROR
     5056   02 00CCC    00000E76 A            DATA     3702              #3702
     5057   02 00CCD    EAF02200              BAL,15   *:SENSE
     5058   02 00CCE    2E000CCE              WAIT     %
     5059   02 00CCF    68000CB1              B        T37M02
     5060   02 00CD0    68000CD9              B        T37M08
     5061   02 00CD1    32E0000D A   T37M07   LW,14    13                                                *A04
     5062   02 00CD2    4BE02260              AND,14   =X'FFFF'          BYTE COUNT                      *A04
     5063   02 00CD3    35E015A4              STW,14   TST1IND1          SAVE
     5064   02 00CD4    32E015A2              LW,14    TST1INDX          INDEX
     5065   02 00CD5    19E015A0              CLM,14   TST1MINT          HAS IT EXCEED MAX MIN TIME
     5066   02 00CD6    69900CC9              BCS,9    T37M051           B: YES
     5067   02 00CD7    32E015A4              LW,14    TST1IND1          BYTE COUNT
     5068   02 00CD8    69300CBF              BNEZ     T37M04            B: BYTE COUNT <> 0
     5069   02 00CD9    6AF02081     T37M08   BAL,15   RESTM             RESET TEST MODE
     5070   02 00CDA    6800049F              B        EXIT              EXIT
     5071   02 00CDB    16C3D6C4 A   T37MSG   TEXTC    'CODE DISC TIMING ERROR'
            02 00CDC    C540C4C9 A
            02 00CDD    E2C340E3 A
            02 00CDE    C9D4C9D5 A
            02 00CDF    C740C5D9 A
            02 00CE0    D9D6D940 A
     5072                            *********************************************************************
     5073                            *********************************************************************
     5074   02 00CE1    6800049F     TST138   B      EXIT                RESERVED FOR FUTURE USE
     5075   02 00CE2    6800049F     TST139   B      EXIT                RESERVED FOR FUTURE USE
1 C00   19:44 JUN 20,'83    TELEFILE COMPREHENSIVE LINE PRINTER TEST 960-0606-H02                 PAGE   38
A    5077                            *
     5078                            *
     5079                            *
     5080   02 00CE3    22E000C1 A   TST140   LI,14    X'C1'             TEST MODE(STEP MODE, INHIBIT PRINT)
     5081   02 00CE4    75E0208D              STB,14   TMBYTE            SAVE
     5082   02 00CE5    6AF02065              BAL,15   SELTM             SELECT TEST MODE
     5083   02 00CE6    68000CEA              B        T40M01            NO ERRORS
     5084                            *ERROR 4001
     5085   02 00CE7    EAF021F3              BAL,15   *:ERROR
     5086   02 00CE8    00000FA1 A            DATA     4001              #4001
     5087   02 00CE9    6800049F              B        EXIT              EXIT
     5088                            *
     5089   02 00CEA    224FFFDF A   T40M01   LI,4     -33               BUFFER INDEX
     5090   02 00CEB    32E0225D              LW,14    =X'40404040'
     5091   02 00CEC    35E822C6              STW,14   BUFFER2+33,4      CLEAR BUFFER
     5092   02 00CED    65400CEC              BIR,4    %-1               B: LOOP TILL BUFFER CLEARED
     5093   02 00CEE    CFC01C3E     T40M02   HIO,12   *:DEVADDR         ISSUE HIO
     5094   02 00CEF    22000D29              LI,0     DA(IOCD6)         LOAD IOCD
     5095   02 00CF0    CCC01C3E              SIO,12   *:DEVADDR         PRINT ONE LINE
     5096   02 00CF1    324015A9              LW,4     DELYTMSP
     5097   02 00CF2    64400CF2              BDR,4    %                 DELAY
     5098   02 00CF3    6AF01D73              BAL,15   :ERRORT           TEST TDVSET2
     5099   02 00CF4    00000D38              DATA     BA(T40SEQ1)
     5100   02 00CF5    68000CF9              B        T40M03            NO ERRORS
     5101                            *ERROR 4002
     5102   02 00CF6    EAF021F3              BAL,15   *:ERROR
     5103   02 00CF7    00000FA2 A            DATA     4002              #4002
     5104   02 00CF8    68000D2E              B        T40M10
     5105                            *
     5106   02 00CF9    324015A9     T40M03   LW,4     DELYTMSP
     5107   02 00CFA    64400CFA              BDR,4    %                 DELAY
     5108   02 00CFB    6AF01D73              BAL,15   :ERRORT           TEST TDVSET2
     5109   02 00CFC    00000D40              DATA     BA(T40SEQ2)
     5110   02 00CFD    68000D01              B        T40M04            NO ERRORS
     5111                            *ERROR 4003
     5112   02 00CFE    EAF021F3              BAL,15   *:ERROR
     5113   02 00CFF    00000FA3 A            DATA     4003              #4003
     5114   02 00D00    68000D2E              B        T40M10
     5115                            *
     5116   02 00D01    32E015AC     T40M04   LW,14    DELYTMS
     5117   02 00D02    6AF01D50              BAL,15   :DELAY            DELAY
     5118   02 00D03    68000D04              B        %+1
     5119   02 00D04    6AF01D73              BAL,15   :ERRORT           TEST TDVSET2
     5120   02 00D05    000034D4              DATA     BA(T40SEQ3)
     5121   02 00D06    68000D14              B        T40M07            NO ERRORS
     5122   02 00D07    31D02261              CW,13    =X'04000000'      TEST TDV BIT 5
     5123   02 00D08    69400D0C              BCS,4    T40M05            B: TDV BIT 5 SET
     5124                            *ERROR 4004
     5125   02 00D09    EAF021F3              BAL,15   *:ERROR
     5126   02 00D0A    00000FA4 A            DATA     4004              #4004
     5127   02 00D0B    68000D2E              B        T40M10
     5128                            *
     5129   02 00D0C    31D02259     T40M05   CW,13    =X'02000000'      TEST TDV BIT 6
     5130   02 00D0D    69400D11              BCS,4    T40M06            B: TDV BIT 6 SET
     5131                            *ERROR 4007
     5132   02 00D0E    EAF021F3              BAL,15   *:ERROR
     5133   02 00D0F    00000FA7 A            DATA     4007              #4007
     5134   02 00D10    68000D2E              B        T40M10
     5135                            *
     5136                            *ERROR 4008
     5137   02 00D11    EAF021F3     T40M06   BAL,15   *:ERROR
     5138   02 00D12    00000FA8 A            DATA     4008              #4008
     5139   02 00D13    68000D2E              B        T40M10
     5140                            *
     5141   02 00D14    324015A9     T40M07   LW,4     DELYTMSP
     5142   02 00D15    64400D15              BDR,4    %                 DELAY
     5143   02 00D16    6AF01D73              BAL,15   :ERRORT           TEST TDVSET2
     5144   02 00D17    00000D58              DATA     BA(T40SEQ5)
     5145   02 00D18    68000D1C              B        T40M08            NO ERRORS
     5146                            *ERROR 4005
     5147   02 00D19    EAF021F3              BAL,15   *:ERROR
     5148   02 00D1A    00000FA5 A            DATA     4005              #4005
     5149   02 00D1B    68000D2E              B        T40M10
     5150                            *
     5151   02 00D1C    6AF01D73     T40M08   BAL,15   :ERRORT           TEST TDVSET2
     5152   02 00D1D    00000D38              DATA     BA(T40SEQ1)
     5153   02 00D1E    68000D22              B        T40M09            NO ERRORS
     5154                            *ERROR 4009
     5155   02 00D1F    EAF021F3              BAL,15   *:ERROR
     5156   02 00D20    00000FA9 A            DATA     4009              #4009
     5157   02 00D21    68000D2E              B        T40M10
     5158                            *
     5159   02 00D22    6AF01D73     T40M09   BAL,15   :ERRORT           TEST TIO
     5160   02 00D23    000034DC              DATA     BA(T40SEQ4)
     5161   02 00D24    68000D28              B        T40M11            NO ERRORS
     5162                            *ERROR 4006
     5163   02 00D25    EAF021F3              BAL,15   *:ERROR
     5164   02 00D26    00000FA6 A            DATA     4006              #4006
     5165   02 00D27    68000D2E              B        T40M10
     5166   02 00D28    6AF02081     T40M11   BAL,15   RESTM             RESET TEST MODE
     5167   02 00D29    6AF01D73              BAL,15   :ERRORT           TEST TDV SET 1
     5168   02 00D2A    00000E00              DATA     BA(T40SEQ6)
     5169   02 00D2B    6800049F              B        EXIT              NO ERR - EXIT
     5170                            *ERROR 4010
     5171   02 00D2C    EAF021F3              BAL,15   *:ERROR
     5172   02 00D2D    00000FAA A            DATA     4010               4010
     5173   02 00D2E    EAF02200     T40M10   BAL,15   *:SENSE
     5174   02 00D2F    2E000D2F              WAIT     %
     5175   02 00D30    68000D33              B        T40M12            LOOP
     5176   02 00D31    6AF02081              BAL,15   RESTM             RESET TEST MODE
     5177   02 00D32    6800049F              B        EXIT              EXIT
     5178   02 00D33    6AF02081     T40M12   BAL,15   RESTM             RESET TEST MODE
     5179   02 00D34    68000CE3              B        TST140            LOOP
     5180                            *
     5181         02 0034E           T40SEQ1  EQU      TSEQ5
     5182         02 00350           T40SEQ2  EQU      TSEQ6
     5183   02 00D35    40414A43 A   T40SEQ3  :TSEQ    TDVF0,TDVF1,TDVT2,TDVF3,TDVF4,TDVT5,TDVF6
            02 00D36    444D4600 A
     5184   02 00D37    1011121B A   T40SEQ4  :TSEQ    TIOF0,TIOF1,TIOF2,TIOT3,TIOF5,TIOF6,TIOF7
            02 00D38    15161700 A
     5185         02 00356           T40SEQ5  EQU      TSEQ9
     5186         02 00380           T40SEQ6  EQU      TSEQ21
1 C00   19:44 JUN 20,'83    TELEFILE COMPREHENSIVE LINE PRINTER TEST 960-0606-H02                 PAGE   39
A    5188                            *
     5189                            *
     5190                            *
     5191   02 00D39    22E00040 A   TST141   LI,14    X'40'             TEST MODE(INHIBIT PRINT)
     5192   02 00D3A    75E0208D              STB,14   TMBYTE            SAVE
     5193   02 00D3B    6AF02065              BAL,15   SELTM             SELECT TEST MODE
     5194   02 00D3C    68000D40              B        T41M01            NO ERRORS
     5195                            *ERROR 4101
     5196   02 00D3D    EAF021F3              BAL,15   *:ERROR
     5197   02 00D3E    00001005 A            DATA     4101              #4101
     5198   02 00D3F    6800049F              B        EXIT              EXIT
     5199                            *
     5200   02 00D40    22A00000 A   T41M01   LI,10    0
     5201   02 00D41    35A015A4              STW,10   TST1IND1          RESET BOTH INDEXES
     5202   02 00D42    35A015A2              STW,10   TST1INDX
     5203   02 00D43    224FFF7C A   T41M02   LI,4     -132              BUFFER INDEX
     5204   02 00D44    32E015A2              LW,14    TST1INDX          INDEX PATTERN
     5205   02 00D45    75E822C6              STB,14   BUFFER2+33,4      STORE IN BUFFER2
     5206   02 00D46    65400D45              BIR,4    %-1               B: LOOP TILL BUFFER COMPLETE
     5207   02 00D47    CFC01C3E     T41M03   HIO,12   *:DEVADDR         ISSUE HIO
     5208   02 00D48    22000D29              LI,0     DA(IOCD6)         LOAD IOCD
     5209   02 00D49    CCC01C3E              SIO,12   *:DEVADDR         PRINT ONE LINE
     5210   02 00D4A    32E015AC              LW,14    DELYTMS
     5211   02 00D4B    6AF01D50              BAL,15   :DELAY            DELAY
     5212   02 00D4C    68000D4D              B        %+1
     5213   02 00D4D    6AF01D73              BAL,15   :ERRORT           TEST TIO,OSB,TDVSET1,BYT CNT
     5214   02 00D4E    00000DA0              DATA     BA(T41SEQ1)
     5215   02 00D4F    68000D64              B        T41M06            NO ERRORS
     5216   02 00D50    CDC01C3E              TIO,12   *:DEVADDR         ISSUE TIO
     5217   02 00D51    31D0225F              CW,13    =X'06000000'      IS DEVICE CONTR READY
     5218   02 00D52    68400D56              BCR,4    T41M04            B: YES
     5219                            *ERROR 4102
     5220   02 00D53    EAF021F3              BAL,15   *:ERROR
     5221   02 00D54    00001006 A            DATA     4102              #4102
     5222   02 00D55    68000D80              B        T41M08
     5223                            *
     5224   02 00D56    CEC01C3E     T41M04   TDV,12   *:DEVADDR         ISSUE TDV
     5225   02 00D57    312015B2              CW,2     TST1FLGM          IS IT FOR MODEL 7446
     5226   02 00D58    69300D5C              BNE      %+4               B: NO
     5227   02 00D59    31D02250              CW,13    =X'08000000'      IS BUFFER PARITY SET
     5228   02 00D5A    68400D61              BCR,4    T41M05            B: NO
     5229   02 00D5B    68000D5E              B        %+3
     5230   02 00D5C    31D02253              CW,13    =X'40000000'      IS  TDV BIT 1 SET
     5231   02 00D5D    68400D61              BCR,4    T41M05            B: NO
     5232                            *ERROR 4103
     5233   02 00D5E    EAF021F3              BAL,15   *:ERROR
     5234   02 00D5F    00001007 A            DATA     4103              #4103
     5235   02 00D60    68000D80              B        T41M08
     5236                            *
     5237                            *ERROR 4104
     5238   02 00D61    EAF021F3     T41M05   BAL,15   *:ERROR
     5239   02 00D62    00001008 A            DATA     4104              #4104
     5240   02 00D63    68000D80              B        T41M08
     5241                            *
     5242   02 00D64    224FFFDF A   T41M06   LI,4     -33               BUFFER INDEX
     5243   02 00D65    35A822E7              STW,10   BUFFER3+33,4      CLEAR BUFFER3
     5244   02 00D66    65400D65              BIR,4    %-1               B: LOOP TILL BUFFER3 CLEARED
     5245   02 00D67    22000D37              LI,0     DA(IOCD18)        LOAD IOCD
     5246   02 00D68    CCC01C3E              SIO,12   *:DEVADDR         SENSE BUFFER ORDER
     5247   02 00D69    32E015AC              LW,14    DELYTMS
     5248   02 00D6A    6AF01D50              BAL,15   :DELAY            DELAY
     5249   02 00D6B    68000D6C              B        %+1
     5250   02 00D6C    6AF01D73              BAL,15   :ERRORT           TEST TIO,OSB,TDVSET1,BYT CNT
     5251   02 00D6D    00000DA0              DATA     BA(T41SEQ1)
     5252   02 00D6E    68000D72              B        T41M07            NO ERRORS
     5253                            *ERROR 4105
     5254   02 00D6F    EAF021F3              BAL,15   *:ERROR
     5255   02 00D70    00001009 A            DATA     4105              #4105
     5256   02 00D71    68000D80              B        T41M08
     5257                            *
     5258   02 00D72    224FFFDF A   T41M07   LI,4     -33               BUFFER INDEX
     5259   02 00D73    35A822A5              STW,10   BUFFER1+33,4      CLEAR BUFFER1
     5260   02 00D74    65400D73              BIR,4    %-1               B: LOOP TILL BUFFER1 CLEARED
     5261   02 00D75    22E00021 A            LI,14    33
     5262   02 00D76    35E01D0E              STW,14   :COMWCNT          NUMBER OF WORDS TO BE COMPARED
     5263   02 00D77    22E02284              LI,14    BUFFER1
     5264   02 00D78    35E01D0F              STW,14   :COMBFRA          EXPECTED BUFFER ADDRESS
     5265   02 00D79    22E022C6              LI,14    BUFFER3
     5266   02 00D7A    35E01D10              STW,14   :COMBFRB          OBSERVED BUFFER ADDRESS
     5267   02 00D7B    35A01D11              STW,10   :COMFLAG          RESET ERROR PRINTOUT INHIBIT FLAG
     5268   02 00D7C    6AF01C9E              BAL,15   :COMPARE          COMPARE BUFFER3 TO X'00'
     5269   02 00D7D    68000D83              B        T41M10            NO ERRORS
     5270                            *ERROR 4106
     5271   02 00D7E    EAF021F3     T41M09   BAL,15   *:ERROR
     5272   02 00D7F    0000100A A            DATA     4106              #4106
     5273   02 00D80    EAF02200     T41M08   BAL,15   *:SENSE
     5274   02 00D81    2E000D81              WAIT     %
     5275   02 00D82    68000D47              B        T41M03
     5276   02 00D83    32E0225B     T41M10   LW,14    =X'01010101'
     5277   02 00D84    66E015A2              AWM,14   TST1INDX          INCREMENT BYTE INDEX
     5278   02 00D85    72E015A2              LB,14    TST1INDX          FETCH INDEX
     5279   02 00D86    21E00040 A            CI,14    X'40'             INDEX:X'40'
     5280   02 00D87    69100D43              BL       T41M02            B: INDEX < X'40'
     5281   02 00D88    331015A4              MTW,1    TST1IND1          INCREMENT INDEX 1
     5282   02 00D89    32E015A4              LW,14    TST1IND1          INDEX 1
     5283   02 00D8A    21E0001E A            CI,14    30                INDEX 1:30
     5284   02 00D8B    69200D91              BG       T41M11            B: INDEX > 30
     5285   02 00D8C    224FFFDF A            LI,4     -33               BUFFER INDEX
     5286   02 00D8D    6AF01FEE              BAL,15   :RANDOMX          RANDOM PATTERN
     5287   02 00D8E    35E822C6              STW,14   BUFFER2+33,4      STORE IN BUFFER2
     5288   02 00D8F    65400D8D              BIR,4    %-2               B: LOOP TILL BUFFER COMPLETE
     5289   02 00D90    68000D47              B        T41M03
     5290   02 00D91    6AF02081     T41M11   BAL,15   RESTM             RESET TEST MODE
     5291   02 00D92    6800049F              B        EXIT              EXIT
     5292                            *
     5293         02 00368           T41SEQ1  EQU      TSEQ15
1 C00   19:44 JUN 20,'83    TELEFILE COMPREHENSIVE LINE PRINTER TEST 960-0606-H02                 PAGE   40
A    5295                            *
     5296                            *
     5297   02 00D93    22E000C1 A   TST142   LI,14    X'C1'             SPACE ONE LINE FORMAT
     5298   02 00D94    75E01A88              STB,14   FORMAT            SAVE
     5299   02 00D95    22E00083 A   T42M01   LI,14    X'83'             TEST MODE(STEP MODE, PAPER CONTROL)
     5300   02 00D96    75E0208D              STB,14   TMBYTE            SAVE
     5301   02 00D97    6AF02065              BAL,15   SELTM             SELECT TEST MODE
     5302   02 00D98    68000D9C              B        T42M02            NO ERRORS
     5303                            *ERROR 4201
     5304   02 00D99    EAF021F3              BAL,15   *:ERROR
     5305   02 00D9A    00001069 A            DATA     4201              #4201
     5306   02 00D9B    6800049F              B        EXIT              EXIT
     5307                            *
     5308   02 00D9C    22000D2F     T42M02   LI,0     DA(IOCD11)        LOAD IOCD
     5309   02 00D9D    CCC01C3E              SIO,12   *:DEVADDR         SPACE 1 LINE
     5310   02 00D9E    324015A9              LW,4     DELYTMSP
     5311   02 00D9F    64400D9F              BDR,4    %                 DELAY
     5312   02 00DA0    CEC01C3E              TDV,12   *:DEVADDR         ISSUE TDV
     5313   02 00DA1    324015A9              LW,4     DELYTMSP
     5314   02 00DA2    64400DA2              BDR,4    %                 DELAY
     5315   02 00DA3    22A00000 A            LI,10    0
     5316   02 00DA4    35A015A2              STW,10   TST1INDX          RESET INDEX
     5317   02 00DA5    324015A2     T42M03   LW,4     TST1INDX          INDEX
     5318   02 00DA6    D2E80DEA              LH,14    *T42CT,4          DELAY COUNT
     5319   02 00DA7    35E015A4              STW,14   TST1IND1          SAVE
     5320   02 00DA8    CEC01C3E     T42M04   TDV,12   *:DEVADDR         ISSUE TDV
     5321   02 00DA9    32F0000D A            LW,15    13                TDV STATUS
     5322   02 00DAA    312015B2              CW,2     TST1FLGM          IS IT FOR MODEL 7446
     5323   02 00DAB    68300DB5              BE       T42M042           B: YES
     5324   02 00DAC    72E01A88              LB,14    FORMAT            FORMAT
     5325   02 00DAD    21E000C5 A            CI,14    X'C5'             FORMAT:X'C5'
     5326   02 00DAE    69100DBA              BL       T42M041           B: FORMAT <  X'C5'
     5327   02 00DAF    22E00DF5              LI,14    T42EXP3           FETCH EXPECTED TDV STATUS
     5328   02 00DB0    35E00DEB              STW,14   T42EXP            SAVE
     5329   02 00DB1    22E00E01              LI,14    T42SEQC           FETCH TEST SEQUENCE
     5330   02 00DB2    35E00DEC              STW,14   T42SEQ            SAVE
     5331   02 00DB3    4BF02262              AND,15   =X'3F000000'      MASK
     5332   02 00DB4    68000DBA              B        T42M041
     5333   02 00DB5    312015A2     T42M042  CW,2     TST1INDX         INDEX:2
     5334   02 00DB6    68100DB9              BGE      %+3              B: INDEX GREATER THAN 3
     5335   02 00DB7    4BF02263              AND,15   =X'D9000000'      MASK
     5336   02 00DB8    68000DBA              B        %+2
     5337   02 00DB9    4BF02264              AND,15   =X'99000000'      MASK
     5338   02 00DBA    72E0000F A   T42M041  LB,14    15                TDV BITS 0-7
     5339   02 00DBB    F1E80DEB              CB,14    *T42EXP,4         TDVBITS 0-7:EXP TDVBITS 0-7
     5340   02 00DBC    68300DD9              BE       T42M08            B: EQUAL
     5341   02 00DBD    33F015A4              MTW,-1   TST1IND1          DECR DELAY COUNT
     5342   02 00DBE    69200DA8              BGZ      T42M04            B: DELAY COUNT NOT ZERO
     5343   02 00DBF    22E0106B A            LI,14    4203
     5344   02 00DC0    30E00004 A            AW,14    4
     5345   02 00DC1    35E00DC9              STW,14   T42M06            ERROR NUMBER: 4203+I
     5346   02 00DC2    B2E80DEC              LW,14    *T42SEQ,4         FETCH TDV SEQUENCE
     5347   02 00DC3    35E00DC6              STW,14   T42M05            TEST SEQ I
     5348   02 00DC4    6AF01FA0              BAL,15   :SAVETDV          SAVE TDV
     5349   02 00DC5    6AF01D73              BAL,15   :ERRORT           TEST TDV SET 4
     5350   02 00DC6    00000000 A   T42M05   DATA     0
     5351   02 00DC7    68000DC8              B        %+1               NO ERRORS
     5352                            *ERROR 4203 - 4211
     5353   02 00DC8    EAF021F3              BAL,15   *:ERROR
     5354   02 00DC9    00000000 A   T42M06   DATA     0                 #4203 - 4211
     5355   02 00DCA    EAF02200              BAL,15   *:SENSE
     5356   02 00DCB    2E000DCB              WAIT     %
     5357   02 00DCC    68000DD3              B        T42M07
     5358   02 00DCD    6AF02081              BAL,15   RESTM             RESET TEST MODE
     5359   02 00DCE    73101A88     T42M11   MTB,1    FORMAT            FORMAT = FORMAT + 1
     5360   02 00DCF    72E01A88              LB,14    FORMAT            FORMAT
     5361   02 00DD0    31E015BF              CW,14    FORMAT1           FORMAT:FORMAT1
     5362   02 00DD1    68200D95              BLE      T42M01            B: FORMAT <= FORMAT1
     5363   02 00DD2    6800049F              B        EXIT              EXIT
     5364   02 00DD3    CFC01C3E     T42M07   HIO,12   *:DEVADDR         ISSUE HIO
     5365   02 00DD4    22E00014 A            LI,14    20                20  MSEC
     5366   02 00DD5    6AF01D50              BAL,15   :DELAY            DELAY
     5367   02 00DD6    68000DD7              B        %+1
     5368   02 00DD7    6AF02081              BAL,15   RESTM             RESET TEST MODE
     5369   02 00DD8    68000D95              B        T42M01            LOOP
     5370   02 00DD9    331015A2     T42M08   MTW,1    TST1INDX          INCR INDEX
     5371   02 00DDA    32E015A2              LW,14    TST1INDX          INDEX
     5372   02 00DDB    21E00008 A            CI,14    8                 INDEX:8
     5373   02 00DDC    68200DA5              BLE      T42M03            B: INDEX <= 8
     5374   02 00DDD    6AF02081              BAL,15   RESTM             RESET TEST MODE
     5375   02 00DDE    6AF01D73              BAL,15   :ERRORT           TEST TDV SET 1
     5376   02 00DDF    00000E00              DATA     BA(T42SEQ9)
     5377   02 00DE0    68000DE6              B        T42M09            NO ERRORS
     5378                            *ERROR 4202
     5379   02 00DE1    EAF021F3              BAL,15   *:ERROR
     5380   02 00DE2    0000106A A            DATA     4202              #4202
     5381   02 00DE3    EAF02200              BAL,15   *:SENSE
     5382   02 00DE4    2E000DE4              WAIT     %
     5383   02 00DE5    68000DE8              B        T42M10
     5384   02 00DE6    CFC01C3E     T42M09   HIO,12   *:DEVADDR         ISSUE HIO
     5385   02 00DE7    68000DCE              B        T42M11
     5386   02 00DE8    CFC01C3E     T42M10   HIO,12   *:DEVADDR         ISSUE HIO
     5387   02 00DE9    68000D95              B        T42M01            LOOP
     5388                            *
     5389   02 00DEA    00000000 A   T42CT    DATA     0
     5390   02 00DEB    00000000 A   T42EXP   DATA     0
     5391   02 00DEC    00000000 A   T42SEQ   DATA     0
     5392   02 00DED    0000     A   T42CT1   DATA,2   0,50,2000,2000,8700,5000,2000,30000,5000
            02 00DED 2  0032     A
            02 00DEE    07D0     A
            02 00DEE 2  07D0     A
            02 00DEF    21FC     A
            02 00DEF 2  1388     A
            02 00DF0    07D0     A
            02 00DF0 2  7530     A
            02 00DF1    1388     A
     5393                                     BOUND    4
     5394   02 00DF2    00       A   T42EXP1  DATA,1   0,X'C0',X'C8',X'CC',X'DC',X'4E',X'4F',X'4F',X'0F'
            02 00DF2 1  C0       A
            02 00DF2 2  C8       A
            02 00DF2 3  CC       A
            02 00DF3    DC       A
            02 00DF3 1  4E       A
            02 00DF3 2  4F       A
            02 00DF3 3  4F       A
            02 00DF4    0F       A
     5395                                     BOUND    4
     5396   02 00DF5    00       A   T42EXP3  DATA,1   0,X'00',X'08',X'0C',X'1C',X'0E',X'0F',X'0F',X'0F'
            02 00DF5 1  00       A
            02 00DF5 2  08       A
            02 00DF5 3  0C       A
            02 00DF6    1C       A
            02 00DF6 1  0E       A
            02 00DF6 2  0F       A
            02 00DF6 3  0F       A
            02 00DF7    0F       A
     5397                                     BOUND    4
     5398   02 00DF8    00000D78     T42SEQA  DATA     BA(T42SEQ0),BA(T42SEQ1),BA(T42SEQ2),BA(T42SEQ3)
            02 00DF9    00003828
            02 00DFA    00003834
            02 00DFB    00003840
     5399   02 00DFC    0000384C              DATA     BA(T42SEQ4),BA(T42SEQ5),BA(T42SEQ6),BA(T42SEQ7)
            02 00DFD    00003858
            02 00DFE    00000E28
            02 00DFF    00000E28
     5400   02 00E00    00000E1C              DATA     BA(T42SEQ8)
     5401   02 00E01    00003864     T42SEQC  DATA     BA(T42SEQ19),BA(T42SEQ19),BA(T42SEQ20),BA(T42SEQ21)
            02 00E02    00003864
            02 00E03    0000386C
            02 00E04    00003874
     5402   02 00E05    0000387C              DATA     BA(T42SEQ22),BA(T42SEQ23),BA(T42SEQ24),BA(T42SEQ24)
            02 00E06    00003884
            02 00E07    00000E78
            02 00E08    00000E78
     5403   02 00E09    00000E78              DATA     BA(T42SEQ24)
     5404         02 0035E           T42SEQ0  EQU      TSEQ13
     5405   02 00E0A    48494243 A   T42SEQ1  :TSEQ    TDVT0,TDVT1,TDVF2,TDVF3,TDVF4,TDVF5,TDVF6,TDVF7
            02 00E0B    44454647 A
            02 00E0C    00000000 A
     5406   02 00E0D    48494243 A   T42SEQ2  :TSEQ    TDVT0,TDVT1,TDVF2,TDVF3,TDVT4,TDVF5,TDVF6,TDVF7
            02 00E0E    4C454647 A
            02 00E0F    00000000 A
     5407   02 00E10    48494243 A   T42SEQ3  :TSEQ    TDVT0,TDVT1,TDVF2,TDVF3,TDVT4,TDVT5,TDVF6,TDVF7
            02 00E11    4C4D4647 A
            02 00E12    00000000 A
     5408   02 00E13    4849424B A   T42SEQ4  :TSEQ    TDVT0,TDVT1,TDVF2,TDVT3,TDVT4,TDVT5,TDVF6,TDVF7
            02 00E14    4C4D4647 A
            02 00E15    00000000 A
     5409   02 00E16    40494243 A   T42SEQ5  :TSEQ    TDVF0,TDVT1,TDVF2,TDVF3,TDVT4,TDVT5,TDVT6,TDVF7
            02 00E17    4C4D4E47 A
            02 00E18    00000000 A
     5410         02 0038A           T42SEQ6  EQU      TSEQ25
     5411         02 0038A           T42SEQ7  EQU      TSEQ25
     5412         02 00387           T42SEQ8  EQU      TSEQ24
     5413         02 00380           T42SEQ9  EQU      TSEQ21
     5414   02 00E19    42434445 A   T42SEQ19 :TSEQ    TDVF2,TDVF3,TDVF4,TDVF5,TDVF6,TDVF7
            02 00E1A    46470000 A
     5415   02 00E1B    42434C45 A   T42SEQ20 :TSEQ    TDVF2,TDVF3,TDVT4,TDVF5,TDVF6,TDVF7
            02 00E1C    46470000 A
     5416   02 00E1D    42434C4D A   T42SEQ21 :TSEQ    TDVF2,TDVF3,TDVT4,TDVT5,TDVF6,TDVF7
            02 00E1E    46470000 A
     5417   02 00E1F    424B4C4D A   T42SEQ22 :TSEQ    TDVF2,TDVT3,TDVT4,TDVT5,TDVF6,TDVF7
            02 00E20    46470000 A
     5418   02 00E21    42434C4D A   T42SEQ23 :TSEQ    TDVF2,TDVF3,TDVT4,TDVT5,TDVT6,TDVF7
            02 00E22    4E470000 A
     5419         02 0039E           T42SEQ24 EQU      TSEQ31
     5420   02 00E23    0000     A   T42CT2   DATA,2   0,1000,2000,1000,500,500,500,1000
            02 00E23 2  03E8     A
            02 00E24    07D0     A
            02 00E24 2  03E8     A
            02 00E25    01F4     A
            02 00E25 2  01F4     A
            02 00E26    01F4     A
            02 00E26 2  03E8     A
     5421                                     BOUND    4
     5422   02 00E27    00       A   T42EXP2  DATA,1   0,X'80',X'90',X'D0',X'58',X'58'
            02 00E27 1  80       A
            02 00E27 2  90       A
            02 00E27 3  D0       A
            02 00E28    58       A
            02 00E28 1  58       A
     5423   02 00E28 2  58       A            DATA,1   X'58',X'58',X'58'
            02 00E28 3  58       A
            02 00E29    58       A
     5424                                     BOUND    4
     5425   02 00E2A    000038CC     T42SEQB  DATA     BA(T42SEQ10),BA(T42SEQ11),BA(T42SEQ12),BA(T42SEQ13)
            02 00E2B    000038D4
            02 00E2C    000038DC
            02 00E2D    000038E4
     5426   02 00E2E    000038EC              DATA     BA(T42SEQ14),BA(T42SEQ14),BA(T42SEQ14),BA(T42SEQ14)
            02 00E2F    000038EC
            02 00E30    000038EC
            02 00E31    000038EC
     5427   02 00E32    000038EC              DATA     BA(T42SEQ14)
     5428   02 00E33    40434447 A   T42SEQ10 :TSEQ    TDVF0,TDVF3,TDVF4,TDVF7
            02 00E34    00000000 A
     5429   02 00E35    48434447 A   T42SEQ11 :TSEQ    TDVT0,TDVF3,TDVF4,TDVF7
            02 00E36    00000000 A
     5430   02 00E37    484B4447 A   T42SEQ12 :TSEQ    TDVT0,TDVT3,TDVF4,TDVF7
            02 00E38    00000000 A
     5431   02 00E39    48494B44 A   T42SEQ13 :TSEQ    TDVT0,TDVT1,TDVT3,TDVF4,TDVF7
            02 00E3A    47000000 A
     5432   02 00E3B    40494B4C A   T42SEQ14 :TSEQ    TDVF0,TDVT1,TDVT3,TDVT4,TDVF7
            02 00E3C    47000000 A
1 C00   19:44 JUN 20,'83    TELEFILE COMPREHENSIVE LINE PRINTER TEST 960-0606-H02                 PAGE   41
A    5434                            *
     5435                            *
     5436                            *
     5437   02 00E3D    6AF01D73     TST143   BAL,15   :ERRORT           TEST TDVSET1
     5438   02 00E3E    00003B04              DATA     BA(T43SEQ1)
     5439   02 00E3F    68000E45              B        T43M01            NO ERRORS
     5440                            *ERROR 4301
     5441   02 00E40    EAF021F3              BAL,15   *:ERROR
     5442   02 00E41    000010CD A            DATA     4301              #4301
     5443   02 00E42    EAF02200              BAL,15   *:SENSE
     5444   02 00E43    2E000E43              WAIT     %
     5445   02 00E44    68000E3D              B        TST143            LOOP
     5446                            *
     5447   02 00E45    22E00081 A   T43M01   LI,14    X'81'             TEST MODE (STEP MODE,STATE)
     5448   02 00E46    75E0208D              STB,14   TMBYTE            SAVE
     5449   02 00E47    6AF02065              BAL,15   SELTM             SELECT TEST MODE
     5450   02 00E48    68000E4C              B        T43M02            NO ERRORS
     5451                            *ERROR 4302
     5452   02 00E49    EAF021F3     T43M011  BAL,15   *:ERROR
     5453   02 00E4A    000010CE A            DATA     4302              #4302
     5454   02 00E4B    6800049F              B        EXIT              EXIT
     5455                            *
     5456   02 00E4C    224FFFDF A   T43M02   LI,4     -33               BUFFER INDEX
     5457   02 00E4D    32E02265              LW,14    =X'C5C5C5C5'      X'C5' PATTERN
     5458   02 00E4E    35E822C6              STW,14   BUFFER2+33,4      STORE IN BUFFER2
     5459   02 00E4F    65400E4E              BIR,4    %-1               B: LOOP TILL BUFFER COMPLETE
     5460   02 00E50    CFC01C3E              HIO,12   *:DEVADDR         ISSUE HIO
     5461   02 00E51    22000D29              LI,0     DA(IOCD6)         LOAD IOCD
     5462   02 00E52    CCC01C3E              SIO,12   *:DEVADDR         PRINT ONE LINE
     5463   02 00E53    324015A9              LW,4     DELYTMSP
     5464   02 00E54    64400E54              BDR,4    %                 DELAY
     5465   02 00E55    6AF01D73              BAL,15   :ERRORT           TEST TDVSET2
     5466   02 00E56    00000D38              DATA     BA(T43SEQ2)
     5467   02 00E57    68000E5B              B        T43M03            NO ERRORS
     5468                            *ERROR 4303
     5469   02 00E58    EAF021F3              BAL,15   *:ERROR
     5470   02 00E59    000010CF A            DATA     4303              #4303
     5471   02 00E5A    68000EBA              B        T43M15
     5472                            *
     5473   02 00E5B    324015A9     T43M03   LW,4     DELYTMSP
     5474   02 00E5C    64400E5C              BDR,4    %                 DELAY
     5475   02 00E5D    6AF01D73              BAL,15   :ERRORT           TEST TDVSET2
     5476   02 00E5E    00000D40              DATA     BA(T43SEQ3)
     5477   02 00E5F    68000E63              B        T43M04            NO ERRORS
     5478                            *ERROR 4304
     5479   02 00E60    EAF021F3              BAL,15   *:ERROR
     5480   02 00E61    000010D0 A            DATA     4304              #4304
     5481   02 00E62    68000EBA              B        T43M15
     5482                            *
     5483   02 00E63    32E015AF     T43M04   LW,14    DELAYTMP
     5484   02 00E64    6AF01D50              BAL,15   :DELAY            DELAY
     5485   02 00E65    68000E66              B        %+1
     5486   02 00E66    6AF01D73              BAL,15   :ERRORT           TEST TDVSET2
     5487   02 00E67    00003B0C              DATA     BA(T43SEQ4)
     5488   02 00E68    68000E7D              B        T43M08            NO ERRORS
     5489   02 00E69    72E0000D A            LB,14    13                TDV STATUS
     5490   02 00E6A    4BE02266              AND,14   =X'F8'            MASK OUT ALL EXCEPT TDV BIT0-4
     5491   02 00E6B    21E00020 A            CI,14    X'20'             TDV BIT0-4:X'20'
     5492   02 00E6C    68300E70              BE       T43M05            B: TDV BIT0-4 = X'20'
     5493                            *ERROR 4305
     5494   02 00E6D    EAF021F3              BAL,15   *:ERROR
     5495   02 00E6E    000010D1 A            DATA     4305              #4305
     5496   02 00E6F    68000EBA              B        T43M15
     5497                            *
     5498   02 00E70    31D02261     T43M05   CW,13    =X'04000000'      TEST TDV BIT 5
     5499   02 00E71    69400E75              BCS,4    T43M06            B: TDV BIT 5 SET
     5500                            *ERROR 4306
     5501   02 00E72    EAF021F3              BAL,15   *:ERROR
     5502   02 00E73    000010D2 A            DATA     4306              #4306
     5503   02 00E74    68000EBA              B        T43M15
     5504                            *
     5505   02 00E75    31D02259     T43M06   CW,13    =X'02000000'      TEST TDV BIT 6
     5506   02 00E76    69400E7A              BCS,4    T43M07            B: TDV BIT 6 SET
     5507                            *ERROR 4307
     5508   02 00E77    EAF021F3              BAL,15   *:ERROR
     5509   02 00E78    000010D3 A            DATA     4307              #4307
     5510   02 00E79    68000EBA              B        T43M15
     5511                            *
     5512                            *ERROR 4308
     5513   02 00E7A    EAF021F3     T43M07   BAL,15   *:ERROR
     5514   02 00E7B    000010D4 A            DATA     4308              #4308
     5515   02 00E7C    68000EBA              B        T43M15
     5516                            *
     5517   02 00E7D    32E015AE     T43M08   LW,14    DELAYTMS
     5518   02 00E7E    6AF01D50              BAL,15   :DELAY            DELAY
     5519   02 00E7F    68000E80              B        %+1
     5520   02 00E80    6AF01D73              BAL,15   :ERRORT           TEST TDV SET 2
     5521   02 00E81    00003B18              DATA     BA(T43SEQ7)
     5522   02 00E82    68000E86              B        T43M09            NO ERRORS
     5523                            *ERROR 4309
     5524   02 00E83    EAF021F3              BAL,15   *:ERROR
     5525   02 00E84    000010D5 A            DATA     4309              #4309
     5526   02 00E85    68000EBA              B        T43M15
     5527                            *
     5528   02 00E86    22E00040 A   T43M09   LI,14    X'40'             TEST MODE(NORMAL SET)
     5529   02 00E87    75E0208D              STB,14   TMBYTE            SAVE
     5530   02 00E88    6AF02065              BAL,15   SELTM             SELECT TEST MODE
     5531   02 00E89    68000E8D              B        T43M10            NO ERRORS
     5532                            *ERROR 4310
     5533   02 00E8A    EAF021F3              BAL,15   *:ERROR
     5534   02 00E8B    000010D6 A            DATA     4310              #4310
     5535   02 00E8C    68000EBA              B        T43M15
     5536                            *
     5537   02 00E8D    6AF01D73     T43M10   BAL,15   :ERRORT           TEST TDV SET 1
     5538   02 00E8E    00000E00              DATA     BA(T43SEQ5)
     5539   02 00E8F    68000E9A              B        T43M12            NO ERROR
     5540   02 00E90    312015B2              CW,2     TST1FLGM          IS IT MODEL 7446
     5541   02 00E91    68300E97              BE       T43M11            B: MODEL 7446
     5542   02 00E92    31D02250              CW,13    =X'08000000'      TEST TDV BIT 4
     5543   02 00E93    68400E97              BCR,4    T43M11            B: TDV BIT 4 NOT SET
     5544                            *ERROR 4311
     5545   02 00E94    EAF021F3     T43M101  BAL,15   *:ERROR
     5546   02 00E95    000010D7 A            DATA     4311              #4311
     5547   02 00E96    68000EBA              B        T43M15
     5548                            *
     5549                            *ERROR 4314
     5550   02 00E97    EAF021F3     T43M11   BAL,15   *:ERROR
     5551   02 00E98    000010DA A            DATA     4314              #4314
     5552   02 00E99    68000EBA              B        T43M15
     5553                            *
     5554   02 00E9A    6AF01D73     T43M12   BAL,15   :ERRORT           TEST TIO,OSB,BYTE CNT
     5555   02 00E9B    00000DB8              DATA     BA(T43SEQ6)
     5556   02 00E9C    68000EA0              B        T43M13            NO ERRORS
     5557                            *ERROR 4312
     5558   02 00E9D    EAF021F3              BAL,15   *:ERROR
     5559   02 00E9E    000010D8 A            DATA     4312              #4312
     5560   02 00E9F    68000EBA              B        T43M15
     5561                            *
     5562   02 00EA0    22000D37     T43M13   LI,0     DA(IOCD18)        LOAD IOCD
     5563   02 00EA1    CCC01C3E              SIO,12   *:DEVADDR         SENSE BUFFER ORDER
     5564   02 00EA2    32E015AC              LW,14    DELYTMS
     5565   02 00EA3    6AF01D50              BAL,15   :DELAY            DELAY
     5566   02 00EA4    68000EA5              B        %+1
     5567   02 00EA5    224FFFDF A            LI,4     -33               BUFFER INDEX
     5568   02 00EA6    22A00000 A            LI,10    0
     5569   02 00EA7    35A822A5              STW,10   BUFFER1+33,4      CLEAR BUFFER1 TO X'00'
     5570   02 00EA8    65400EA7              BIR,4    %-1               B: LOOP TILL BUFFER1 CLEARED
     5571   02 00EA9    22E00021 A            LI,14    33
     5572   02 00EAA    35E01D0E              STW,14   :COMWCNT          NUMBER OF WORDS TO BE COMPARED
     5573   02 00EAB    22E02284              LI,14    BUFFER1
     5574   02 00EAC    35E01D0F              STW,14   :COMBFRA          EXPECTED BUFFER ADDRESS
     5575   02 00EAD    22E022C6              LI,14    BUFFER3
     5576   02 00EAE    35E01D10              STW,14   :COMBFRB          OBSERVED BUFFER ADDRESS
     5577   02 00EAF    35A01D11              STW,10   :COMFLAG          RESET ERROR PRINTOUT INHIBIT FLAG
     5578   02 00EB0    6AF01C9E              BAL,15   :COMPARE          COMPARE BUFFER
     5579   02 00EB1    68000EB5              B        T43M14            NO ERRORS
     5580                            *ERROR 4313
     5581   02 00EB2    EAF021F3              BAL,15   *:ERROR
     5582   02 00EB3    000010D9 A            DATA     4313              #4313
     5583   02 00EB4    68000EBA              B        T43M15
     5584                            *
     5585   02 00EB5    6AF01D73     T43M14   BAL,15   :ERRORT           TEST TDV SET 1
     5586   02 00EB6    00000E00              DATA     BA(T43SEQ5)
     5587   02 00EB7    68000EBD              B        T43M16            NO ERRORS
     5588                            *ERROR 4315
     5589   02 00EB8    EAF021F3              BAL,15   *:ERROR
     5590   02 00EB9    000010DB A            DATA     4315              #4315
     5591   02 00EBA    EAF02200     T43M15   BAL,15   *:SENSE
     5592   02 00EBB    2E000EBB              WAIT     %
     5593   02 00EBC    68000EBF              B        T43M17
     5594   02 00EBD    6AF02081     T43M16   BAL,15   RESTM             RESET TEST MODE
     5595   02 00EBE    6800049F              B        EXIT              EXIT
     5596   02 00EBF    6AF02081     T43M17   BAL,15   RESTM             RESET TEST MODE
     5597   02 00EC0    68000E3D              B        TST143            LOOP
     5598                            *
     5599   02 00EC1    42444547 A   T43SEQ1  :TSEQ    TDVF2,TDVF4,TDVF5,TDVF7
            02 00EC2    00000000 A
     5600         02 0034E           T43SEQ2  EQU      TSEQ5
     5601         02 00350           T43SEQ3  EQU      TSEQ6
     5602   02 00EC3    40414A43 A   T43SEQ4  :TSEQ    TDVF0,TDVF1,TDVT2,TDVF3,TDVF4,TDVT5,TDVF6,TDVF7
            02 00EC4    444D4647 A
            02 00EC5    00000000 A
     5603         02 00380           T43SEQ5  EQU      TSEQ21
     5604         02 0036E           T43SEQ6  EQU      TSEQ16
     5605   02 00EC6    40414243 A   T43SEQ7  :TSEQ    TDVF0,TDVF1,TDVF2,TDVF3,TDVT4,TDVT5,TDVF6,TDVF7
            02 00EC7    4C4D4647 A
            02 00EC8    00000000 A
     5606         02 0035E           T43SEQ8  EQU      TSEQ13
1 C00   19:44 JUN 20,'83    TELEFILE COMPREHENSIVE LINE PRINTER TEST 960-0606-H02                 PAGE   42
A    5608                            *
     5609                            *
     5610                            *
     5611   02 00EC9    22E00000 A   TST144   LI,14    0
     5612   02 00ECA    35E015A2              STW,14   TST1INDX          RESET INDEX
     5613   02 00ECB    311015A2     T44M001  CW,1     TST1INDX          INDEX:1
     5614   02 00ECC    68300F47              BE       T44M16            B: INDEX = 1
     5615   02 00ECD    22E00084 A            LI,14    132               BYTE COUNT
     5616   02 00ECE    55E21A6B              STH,14   IOCD16+3,1        STORE IN IOCD
     5617   02 00ECF    22E00080 A            LI,14    X'80'             DATA CHAIN
     5618   02 00ED0    75E01A69              STB,14   IOCD16+1          STORE IN IOCD
     5619   02 00ED1    22E00081 A   T44M002  LI,14    X'81'             TEST MODE (STEP MODE, STATES)
     5620   02 00ED2    75E0208D              STB,14   TMBYTE            SAVE
     5621   02 00ED3    6AF02065              BAL,15   SELTM             SELECT TEST MODE
     5622   02 00ED4    68000ED8              B        T44M01            NO ERRORS
     5623                            *ERROR 4401
     5624   02 00ED5    EAF021F3              BAL,15   *:ERROR
     5625   02 00ED6    00001131 A            DATA     4401              #4401
     5626   02 00ED7    6800049F              B        EXIT              EXIT
     5627                            *
     5628   02 00ED8    224FFFDF A   T44M01   LI,4     -33               BUFFER INDEX
     5629   02 00ED9    32E02265              LW,14    =X'C5C5C5C5'      X'C5' PATTERN
     5630   02 00EDA    35E822C6              STW,14   BUFFER2+33,4      STORE IN BUFFER2
     5631   02 00EDB    65400EDA              BIR,4    %-1               B: LOOP TILL BUFFER COMPLETE
     5632   02 00EDC    22E000C1 A            LI,14    X'C1'             SPACE 1 LINE FORMAT
     5633   02 00EDD    75E01A88              STB,14   FORMAT            SAVE
     5634   02 00EDE    CFC01C3E              HIO,12   *:DEVADDR         ISSUE HIO
     5635   02 00EDF    22000D34              LI,0     DA(IOCD16)        LOAD IOCD
     5636   02 00EE0    CCC01C3E              SIO,12   *:DEVADDR         PRINT WITH FORMAT
     5637   02 00EE1    324015A9              LW,4     DELYTMSP
     5638   02 00EE2    64400EE2              BDR,4    %                 DELAY
     5639   02 00EE3    6AF01D73              BAL,15   :ERRORT           TEST TDV SET 2
     5640   02 00EE4    00000D38              DATA     BA(T44SEQ1)
     5641   02 00EE5    68000EE9              B        T44M02            NO ERRORS
     5642                            *ERROR 4402
     5643   02 00EE6    EAF021F3              BAL,15   *:ERROR
     5644   02 00EE7    00001132 A            DATA     4402              #4402
     5645   02 00EE8    68000F3F              B        T44M13
     5646                            *
     5647   02 00EE9    324015A9     T44M02   LW,4     DELYTMSP
     5648   02 00EEA    64400EEA              BDR,4    %                 DELAY
     5649   02 00EEB    6AF01D73              BAL,15   :ERRORT           TEST TDV SET 2
     5650   02 00EEC    00003D60              DATA     BA(T44SEQ2)
     5651   02 00EED    68000EF1              B        T44M03            NO ERRORS
     5652                            *ERROR 4403
     5653   02 00EEE    EAF021F3              BAL,15   *:ERROR
     5654   02 00EEF    00001133 A            DATA     4403              #4403
     5655   02 00EF0    68000F3F              B        T44M13
     5656                            *
     5657   02 00EF1    32E015AE     T44M03   LW,14    DELAYTMS
     5658   02 00EF2    6AF01D50              BAL,15   :DELAY            DELAY
     5659   02 00EF3    68000EF4              B        %+1
     5660   02 00EF4    6AF01D73              BAL,15   :ERRORT           TEST TDV SET 2
     5661   02 00EF5    00000D58              DATA     BA(T44SEQ3)
     5662   02 00EF6    68000EFA              B        T44M04            NO ERRORS
     5663                            *ERROR 4404
     5664   02 00EF7    EAF021F3              BAL,15   *:ERROR
     5665   02 00EF8    00001134 A            DATA     4404              #4404
     5666   02 00EF9    68000F3F              B        T44M13
     5667                            *
     5668   02 00EFA    324015A8     T44M04   LW,4     DELYTMP
     5669   02 00EFB    64400EFB              BDR,4    %                 DELAY
     5670   02 00EFC    311015A2              CW,1     TST1INDX          INDEX:1
     5671   02 00EFD    68300F4A              BE       T44M18            B: INDEX = 1
     5672   02 00EFE    6AF01D73              BAL,15   :ERRORT           TEST TDV SET 2
     5673   02 00EFF    00003D6C              DATA     BA(T44SEQ4)
     5674   02 00F00    68000F04              B        T44M05            NO ERRORS
     5675                            *ERROR 4405
     5676   02 00F01    EAF021F3              BAL,15   *:ERROR
     5677   02 00F02    00001135 A            DATA     4405              #4405
     5678   02 00F03    68000F3F              B        T44M13
     5679                            *
     5680   02 00F04    32E015AF     T44M05   LW,14    DELAYTMP
     5681   02 00F05    6AF01D50              BAL,15   :DELAY            DELAY
     5682   02 00F06    68000F07              B        %+1
     5683   02 00F07    6AF01D73              BAL,15   :ERRORT           TEST TDV SET 2
     5684   02 00F08    00003D78              DATA     BA(T44SEQ5)
     5685   02 00F09    68000F0D              B        T44M06            NO ERRORS
     5686                            *ERROR 4406
     5687   02 00F0A    EAF021F3              BAL,15   *:ERROR
     5688   02 00F0B    00001136 A            DATA     4406              #4406
     5689   02 00F0C    68000F3F              B        T44M13
     5690                            *
     5691   02 00F0D    32E015AC     T44M06   LW,14    DELYTMS
     5692   02 00F0E    6AF01D50              BAL,15   :DELAY            DELAY
     5693   02 00F0F    68000F10              B        %+1
     5694   02 00F10    6AF01D73              BAL,15   :ERRORT           TEST TDV SET 2
     5695   02 00F11    00003D84              DATA     BA(T44SEQ9)
     5696   02 00F12    68000F16              B        T44M07            NO ERRORS
     5697                            *ERROR 4407
     5698   02 00F13    EAF021F3              BAL,15   *:ERROR
     5699   02 00F14    00001137 A            DATA     4407              #4407
     5700   02 00F15    68000F3F              B        T44M13
     5701                            *
     5702   02 00F16    32E015AC     T44M07   LW,14    DELYTMS
     5703   02 00F17    6AF01D50              BAL,15   :DELAY            DELAY
     5704   02 00F18    68000F19              B        %+1
     5705   02 00F19    6AF01D73              BAL,15   :ERRORT           TEST TDV SET 2 (STATE A)
     5706   02 00F1A    00000D38              DATA     BA(T44SEQ1)
     5707   02 00F1B    68000F1F              B        T44M071           NO ERRORS
     5708                            *ERROR 4413
     5709   02 00F1C    EAF021F3              BAL,15   *:ERROR
     5710   02 00F1D    0000113D A            DATA     4413              #4413
     5711   02 00F1E    68000F3F              B        T44M13
     5712                            *
     5713   02 00F1F    32E015AC     T44M071  LW,14    DELYTMS
     5714   02 00F20    6AF01D50              BAL,15   :DELAY            DELAY
     5715   02 00F21    68000F22              B        %+1
     5716   02 00F22    6AF01D73              BAL,15   :ERRORT           TEST TIO,OSB
     5717   02 00F23    00000DB8              DATA     BA(T44SEQ6)
     5718   02 00F24    68000F28              B        T44M08            NO ERRORS
     5719                            *ERROR 4408
     5720   02 00F25    EAF021F3              BAL,15   *:ERROR
     5721   02 00F26    00001138 A            DATA     4408              #4408
     5722   02 00F27    68000F3F              B        T44M13
     5723                            *
     5724   02 00F28    22E00003 A   T44M08   LI,14    X'03'             TEST MODE(PAPER CONTROL)
     5725   02 00F29    75E0208D              STB,14   TMBYTE            SAVE
     5726   02 00F2A    6AF02065              BAL,15   SELTM             SELECT TEST MODE
     5727   02 00F2B    68000F2F              B        T44M10            NO ERRORS
     5728                            *ERROR 4409
     5729   02 00F2C    EAF021F3     T44M09   BAL,15   *:ERROR
     5730   02 00F2D    00001139 A            DATA     4409              #4409
     5731   02 00F2E    68000F3F              B        T44M13
     5732                            *
     5733   02 00F2F    6AF01D73     T44M10   BAL,15   :ERRORT           TEST TDV SET 4
     5734   02 00F30    00000000 A            DATA     0
     5735   02 00F31    68000F35              B        T44M11            NO ERRORS
     5736                            *ERROR 4410
     5737   02 00F32    EAF021F3              BAL,15   *:ERROR
     5738   02 00F33    0000113A A            DATA     4410              #4410
     5739   02 00F34    68000F3F              B        T44M13
     5740                            *
     5741   02 00F35    22E00040 A   T44M11   LI,14    X'40'             TEST MODE (NORMAL SET)
     5742   02 00F36    75E0208D              STB,14   TMBYTE            SAVE
     5743   02 00F37    6AF02065              BAL,15   SELTM             SELECT TEST MODE
     5744   02 00F38    68000F3A              B        T44M12            NO ERROR
     5745   02 00F39    68000F2C              B        T44M09            ERROR
     5746   02 00F3A    6AF01D73     T44M12   BAL,15   :ERRORT           TEST TDV SET 1
     5747   02 00F3B    00000E00              DATA     BA(T44SEQ8)
     5748   02 00F3C    68000F42              B        T44M15            NO ERRORS
     5749                            *ERROR 4411
     5750   02 00F3D    EAF021F3     T44M14   BAL,15   *:ERROR
     5751   02 00F3E    0000113B A            DATA     4411              #4411
     5752   02 00F3F    EAF02200     T44M13   BAL,15   *:SENSE
     5753   02 00F40    2E000F40              WAIT     %
     5754   02 00F41    68000F56              B        T44M20
     5755   02 00F42    331015A2     T44M15   MTW,1    TST1INDX          INDEX + 1
     5756   02 00F43    6AF02081              BAL,15   RESTM             RESET TEST MODE
     5757   02 00F44    311015A2              CW,1     TST1INDX          INDEX:1
     5758   02 00F45    68300F47              BE       T44M16            INDEX = 1
     5759   02 00F46    6800049F              B        EXIT              EXIT
     5760   02 00F47    22E00000 A   T44M16   LI,14    0
     5761   02 00F48    75E01A69              STB,14   IOCD16+1          RESET IOCD FLAG
     5762   02 00F49    68000ED1              B        T44M002
     5763   02 00F4A    6AF01D73     T44M18   BAL,15   :ERRORT           TEST TDV SET 2 (STATE A )
     5764   02 00F4B    00000D38              DATA     BA(T44SEQ1)
     5765   02 00F4C    68000F50              B        T44M19            NO ERRORS
     5766                            *ERROR 4414
     5767   02 00F4D    EAF021F3              BAL,15   *:ERROR
     5768   02 00F4E    0000113E A            DATA     4414              #4414
     5769   02 00F4F    68000F3F              B        T44M13
     5770                            *
     5771   02 00F50    6AF01D73     T44M19   BAL,15   :ERRORT           TEST TIO OSB STATUS
     5772   02 00F51    00000DCC              DATA     BA(T44SEQ11)
     5773   02 00F52    68000F42              B        T44M15            NO ERRORS
     5774                            *ERROR 4412
     5775   02 00F53    EAF021F3              BAL,15   *:ERROR
     5776   02 00F54    0000113C A            DATA     4412              #4412
     5777   02 00F55    68000F3F              B        T44M13
     5778                            *
     5779   02 00F56    6AF02081     T44M20   BAL,15   RESTM             RESET TEST MODE
     5780   02 00F57    68000ECB              B        T44M001           LOOP
     5781                            *
     5782         02 0034E           T44SEQ1  EQU      TSEQ5
     5783   02 00F58    4041424B A   T44SEQ2  :TSEQ    TDVF0,TDVF1,TDVF2,TDVT3,TDVF4,TDVF5,TDVF6,TDVT7
            02 00F59    4445464F A
            02 00F5A    00000000 A
     5784         02 00356           T44SEQ3  EQU      TSEQ9
     5785   02 00F5B    40494243 A   T44SEQ4  :TSEQ    TDVF0,TDVT1,TDVF2,TDVF3,TDVF4,TDVF5,TDVT6,TDVT7
            02 00F5C    44454E4F A
            02 00F5D    00000000 A
     5786   02 00F5E    40414A43 A   T44SEQ5  :TSEQ    TDVF0,TDVF1,TDVT2,TDVF3,TDVF4,TDVT5,TDVF6,TDVT7
            02 00F5F    444D464F A
            02 00F60    00000000 A
     5787         02 0036E           T44SEQ6  EQU      TSEQ16
     5788         02 00380           T44SEQ8  EQU      TSEQ21
     5789   02 00F61    40414243 A   T44SEQ9  :TSEQ    TDVF0,TDVF1,TDVF2,TDVF3,TDVT4,TDVT5,TDVF6,TDVT7
            02 00F62    4C4D464F A
            02 00F63    00000000 A
     5790         02 0035E           T44SEQ10 EQU      TSEQ13
     5791         02 00373           T44SEQ11 EQU      TSEQ17
     5792                            *********************************************************************
1 C00   19:44 JUN 20,'83    TELEFILE COMPREHENSIVE LINE PRINTER TEST 960-0606-H02                 PAGE   43
A    5794                            *
     5795                            *
     5796                            *
     5797   02 00F64    22E000C6 A   TST145   LI,14    X'C6'
     5798   02 00F65    75E01A88              STB,14   FORMAT            SPACE 6 LINE FORMAT
     5799   02 00F66    22E000C1 A            LI,14    X'C1'                                             *A02
     5800   02 00F67    75E015BF              STB,14   FORMAT1           SPACE 1 LINE FORMAT             *A02
     5801   02 00F68    22E00000 A            LI,14    0                                                 *A02
     5802   02 00F69    35E01020              STW,14   ENDFLAG           RESET END TEST FLAG             *A02
     5803   02 00F6A    22E00000 A   T45M001  LI,14    0                                                 *A02
     5804   02 00F6B    35E01021              STW,14   LOWFLAG           RESET LOW SPEED SPACE LINE FLAG *A02
     5805   02 00F6C    22E00FE0              LI,14    T45CT                                             *A02
     5806   02 00F6D    35E0101D              STW,14   T45CTX            SET PARAMETERS                  *A02
     5807   02 00F6E    22E00FE4              LI,14    T45EXP                TO                          *A02
     5808   02 00F6F    35E0101E              STW,14   T45EXPX               SPACE HIGH SPEED            *A02
     5809   02 00F70    22E00FE6              LI,14    T45SEQ                PARAMETER                   *A02
     5810   02 00F71    35E0101F              STW,14   T45SEQX                                           *A02
     5811   02 00F72    22E00083 A   T45M01   LI,14    X'83'
     5812   02 00F73    75E0208D              STB,14   TMBYTE            TEST MODE(STEP MODE,PAPER CONTROL)
     5813   02 00F74    6AF02065              BAL,15   SELTM             SELECT TEST MODE
     5814   02 00F75    68000F79              B        T45M02            NO ERROR
     5815                            *ERROR 4501
     5816   02 00F76    EAF021F3              BAL,15   *:ERROR
     5817   02 00F77    00001195 A            DATA     4501              #4501
     5818   02 00F78    6800049F              B        EXIT              EXIT
     5819                            *
     5820   02 00F79    22000D2F     T45M02   LI,0     DA(IOCD11)        LOAD IOCD
     5821   02 00F7A    CCC01C3E              SIO,12   *:DEVADDR         SPACE 1 LINE
     5822   02 00F7B    324015A9              LW,4     DELYTMSP
     5823   02 00F7C    64400F7C              BDR,4    %                 DELAY
     5824   02 00F7D    CEC01C3E              TDV,12   *:DEVADDR         ISSUE TDV
     5825   02 00F7E    324015A9              LW,4     DELYTMSP
     5826   02 00F7F    64400F7F              BDR,4    %                 DELAY
     5827   02 00F80    22A00000 A            LI,10    0
     5828   02 00F81    35A015A2              STW,10   TST1INDX          RESET INDEX
     5829   02 00F82    324015A2     T45M03   LW,4     TST1INDX          INDEX
     5830   02 00F83    D2E8101D              LH,14    *T45CTX,4         DELAY COUNT                     *A02
     5831   02 00F84    35E015A4              STW,14   TST1IND1          SAVE
     5832   02 00F85    CEC01C3E     T45M04   TDV,12   *:DEVADDR         ISSUE TDV
     5833   02 00F86    32E01020              LW,14    ENDFLAG           END FLAG                        *A02
     5834   02 00F87    21E00001 A            CI,14    1                 IS IT LAST SPACE TEST           *A02
     5835   02 00F88    69300F8A              BNE      %+2               B: NO                           *A02
     5836   02 00F89    4BD02264              AND,13   =X'99000000'      YES, MASK                       *A02
     5837   02 00F8A    32F0000D A            LW,15    13                STATUS                          *A02
     5838   02 00F8B    72E0000F A            LB,14    15                                                *A02
     5839   02 00F8C    F1E8101E              CB,14    *T45EXPX,4        TDV BITS 0-7:EXP TDV BITS 0-7   *A02
     5840   02 00F8D    68300FA6              BE       T45M08            B: EQUAL
     5841   02 00F8E    33F015A4              MTW,-1   TST1IND1          DECR DELAY COUNT
     5842   02 00F8F    69200F85              BGZ      T45M04            B: DELAY COUNT NOT ZERO
     5843   02 00F90    22E01197 A            LI,14    4503              SPECIFY
     5844   02 00F91    30E00004 A            AW,14    4                     ERROR NUMBER: 4503+I
     5845   02 00F92    35E00F9A              STW,14   T45M06            SAVE
     5846   02 00F93    B2E8101F              LW,14    *T45SEQX,4        SPECIFY                         *A02
     5847   02 00F94    35E00F97              STW,14   T45M05                TEST SEQUENCE
     5848   02 00F95    6AF01FA0              BAL,15   :SAVETDV          SAVE TDV
     5849   02 00F96    6AF01D73              BAL,15   :ERRORT           TEST TDV SET 4
     5850   02 00F97    00000000 A   T45M05   DATA     0
     5851   02 00F98    68000F99              B        %+1               NO ERROR
     5852                            *ERROR 4503-4510
     5853   02 00F99    EAF021F3              BAL,15   *:ERROR
     5854   02 00F9A    00000000 A   T45M06   DATA     0                 #4503-4510
     5855   02 00F9B    EAF02200              BAL,15   *:SENSE
     5856   02 00F9C    2E000F9C              WAIT     %
     5857   02 00F9D    68000FA0              B        T45M07
     5858   02 00F9E    6AF02081              BAL,15   RESTM             RESET TEST MODE
     5859   02 00F9F    68000FB7              B        T45M09
     5860   02 00FA0    CFC01C3E     T45M07   HIO,12   *:DEVADDR         ISSUE HIO
     5861   02 00FA1    22E00014 A            LI,14    20                20 MSEC
     5862   02 00FA2    6AF01D50              BAL,15   :DELAY            DELAY
     5863   02 00FA3    68000FA4              B        %+1
     5864   02 00FA4    6AF02081              BAL,15   RESTM             RESET TEST MODE
     5865   02 00FA5    68000F72              B        T45M01            LOOP
     5866   02 00FA6    331015A2     T45M08   MTW,1    TST1INDX          INCR INDEX
     5867   02 00FA7    32E015A2              LW,14    TST1INDX          INDEX
     5868   02 00FA8    21E00007 A            CI,14    7                 INDEX:7
     5869   02 00FA9    68200F82              BLE      T45M03            B: INDEX <= 7
     5870   02 00FAA    22E00032 A            LI,14    50                                                *A02
     5871   02 00FAB    6AF01D50              BAL,15   :DELAY            DELAY                           *A02
     5872   02 00FAC    68000FAD              B        %+1                                               *A02
     5873   02 00FAD    6AF02081              BAL,15   RESTM             RESET TEST MODE
     5874   02 00FAE    6AF01D73              BAL,15   :ERRORT           TEST TDV SET 1
     5875   02 00FAF    00000E00              DATA     BA(T45SEQ9)
     5876   02 00FB0    68000FB7              B        T45M09            NO ERRORS
     5877                            *ERROR 4502
     5878   02 00FB1    EAF021F3              BAL,15   *:ERROR
     5879   02 00FB2    00001196 A            DATA     4502              #4502
     5880   02 00FB3    EAF02200              BAL,15   *:SENSE
     5881   02 00FB4    2E000FB4              WAIT     %
     5882   02 00FB5    68000FDE              B        T45M10
     5883   02 00FB6    CFC01C3E              HIO,12   *:DEVADDR         ISSUE HIO
     5884   02 00FB7    31101021     T45M09   CW,1     LOWFLAG           IS IT TO SPACE IN HIGH SPEED    *A02
     5885   02 00FB8    69300FCC              BNE      T45M11            B: NO                           *A02
     5886   02 00FB9    32E015BF              LW,14    FORMAT1           EXCHANGE FORMAT                 *A02
     5887   02 00FBA    46E01A88              XW,14    FORMAT                FROM LOW SPEED SLEW         *A02
     5888   02 00FBB    46E015BF              XW,14    FORMAT1               TO HIGH SPEED SLEW          *A02
     5889   02 00FBC    73101A88              MTB,1    FORMAT            INCR FORMAT BYTE                *A02
     5890   02 00FBD    72E01A88              LB,14    FORMAT            FORMAT                          *A02
     5891   02 00FBE    21E000CF A            CI,14    X'CF'             IS IT GREATER THAN X'CF'        *A02
     5892   02 00FBF    68200F6A              BLE      T45M001           B: NO                           *A02
     5893   02 00FC0    31101020     T45M12   CW,1     ENDFLAG           IS TEST ENDED                   *A02
     5894   02 00FC1    6830049F              BE       EXIT              B: YES, EXIT                    *A02
     5895   02 00FC2    35101020              STW,1    ENDFLAG           SET END TEST FLAG               *A02
     5896   02 00FC3    35101021              STW,1    LOWFLAG           SET LOW SPEED FLAG              *A02
     5897   02 00FC4    22E000CF A            LI,14    X'CF'                                             *A02
     5898   02 00FC5    75E01A88              STB,14   FORMAT            SPACE 15 LINE FORMAT            *A02
     5899   02 00FC6    75E015BF              STB,14   FORMAT1                                           *A02
     5900   02 00FC7    22E01003              LI,14    T45EXP1           SET PARAMETERS                  *A02
     5901   02 00FC8    35E0101E              STW,14   T45EXPX               TO SPACE                    *A02
     5902   02 00FC9    22E01005              LI,14    T45SEQA               LOW SPEED                   *A02
     5903   02 00FCA    35E0101F              STW,14   T45SEQX               PARAMETERS                  *A02
     5904   02 00FCB    68000F72              B        T45M01                                            *A02
     5905   02 00FCC    72E01A88     T45M11   LB,14    FORMAT            FORMAT                          *A02
     5906   02 00FCD    21E000CF A            CI,14    X'CF'             IS IT SPACE 15 LINE             *A02
     5907   02 00FCE    68100FC0              BGE      T45M12            B: SPACE 15 LINE                *A02
     5908   02 00FCF    32E01A88              LW,14    FORMAT            FORMAT                          *A02
     5909   02 00FD0    46E015BF              XW,14    FORMAT1           EXCHANGE FORMAT                 *A02
     5910   02 00FD1    46E01A88              XW,14    FORMAT                TO SPACE 1 LINE             *A02
     5911   02 00FD2    22E0100F              LI,14    T45CT2            SET PARAMETERS                  *A02
     5912   02 00FD3    35E0101D              STW,14   T45CTX                TO SPACE                    *A02
     5913   02 00FD4    22E01013              LI,14    T45EXP2               LOW SPEED                   *A02
     5914   02 00FD5    35E0101E              STW,14   T45EXPX               PARAMETERS                  *A02
     5915   02 00FD6    22E01015              LI,14    T45SEQB                                           *A02
     5916   02 00FD7    35E0101F              STW,14   T45SEQX                                           *A02
     5917   02 00FD8    35101021              STW,1    LOWFLAG                                           *A02
     5918   02 00FD9    68000F72              B        T45M01                                            *A02
     5919   02 00FDA    72E01A88              LB,14    FORMAT            FORMAT
     5920   02 00FDB    21E000CF A            CI,14    X'CF'             FORMAT:X'CF'
     5921   02 00FDC    68200F72              BLE      T45M01            B: FORMAT <= X'CF'
     5922   02 00FDD    6800049F              B        EXIT              EXIT
     5923   02 00FDE    CFC01C3E     T45M10   HIO,12   *:DEVADDR         ISSUE HIO
     5924   02 00FDF    68000F72              B        T45M01            LOOP
     5925                            *
     5926   02 00FE0    0000     A   T45CT    DATA,2   0,1000,2000,5000,2000,2000,2000,2000              *A03
            02 00FE0 2  03E8     A
            02 00FE1    07D0     A
            02 00FE1 2  1388     A
            02 00FE2    07D0     A
            02 00FE2 2  07D0     A
            02 00FE3    07D0     A
            02 00FE3 2  07D0     A
     5927                                     BOUND    4
     5928   02 00FE4    00       A   T45EXP   DATA,1   0,X'82',X'A2',X'A6',X'B6',X'F6',X'7E',X'7E'
            02 00FE4 1  82       A
            02 00FE4 2  A2       A
            02 00FE4 3  A6       A
            02 00FE5    B6       A
            02 00FE5 1  F6       A
            02 00FE5 2  7E       A
            02 00FE5 3  7E       A
     5929                                     BOUND    4
     5930   02 00FE6    00003FB8     T45SEQ   DATA     BA(T45SEQ0),BA(T45SEQ1),BA(T45SEQ2),BA(T45SEQ3)
            02 00FE7    00003FC4
            02 00FE8    00003FD0
            02 00FE9    00003FDC
     5931   02 00FEA    00003FE8              DATA     BA(T45SEQ4),BA(T45SEQ5),BA(T45SEQ6),BA(T45SEQ6)
            02 00FEB    00003FF4
            02 00FEC    00004000
            02 00FED    00004000
     5932   02 00FEE    40414243 A   T45SEQ0  :TSEQ    TDVF0,TDVF1,TDVF2,TDVF3,TDVF4,TDVF5,TDVF6,TDVF7
            02 00FEF    44454647 A
            02 00FF0    00000000 A
     5933   02 00FF1    48414243 A   T45SEQ1  :TSEQ    TDVT0,TDVF1,TDVF2,TDVF3,TDVF4,TDVF5,TDVT6,TDVF7
            02 00FF2    44454E47 A
            02 00FF3    00000000 A
     5934   02 00FF4    48414A43 A   T45SEQ2  :TSEQ    TDVT0,TDVF1,TDVT2,TDVF3,TDVF4,TDVF5,TDVT6,TDVF7
            02 00FF5    44454E47 A
            02 00FF6    00000000 A
     5935   02 00FF7    48414A43 A   T45SEQ3  :TSEQ    TDVT0,TDVF1,TDVT2,TDVF3,TDVF4,TDVT5,TDVT6,TDVF7
            02 00FF8    444D4E47 A
            02 00FF9    00000000 A
     5936   02 00FFA    48414A43 A   T45SEQ4  :TSEQ    TDVT0,TDVF1,TDVT2,TDVF3,TDVF4,TDVT5,TDVT6,TDVF7
            02 00FFB    444D4E47 A
            02 00FFC    00000000 A
     5937   02 00FFD    48494A43 A   T45SEQ5  :TSEQ    TDVT0,TDVT1,TDVT2,TDVF3,TDVF4,TDVT5,TDVT6,TDVF7
            02 00FFE    444D4E47 A
            02 00FFF    00000000 A
     5938   02 01000    40494A4B A   T45SEQ6  :TSEQ    TDVF0,TDVT1,TDVT2,TDVT3,TDVT4,TDVT5,TDVT6,TDVF7
            02 01001    4C4D4E47 A
            02 01002    00000000 A
     5939         02 00380           T45SEQ9  EQU      TSEQ21
     5940   02 01003    00       A   T45EXP1  DATA,1   0,X'80',X'90',X'18',X'18',X'18',X'18',X'18'       *A02
            02 01003 1  80       A
            02 01003 2  90       A
            02 01003 3  18       A
            02 01004    18       A
            02 01004 1  18       A
            02 01004 2  18       A
            02 01004 3  18       A
     5941                                     BOUND    4                                                 *A02
     5942   02 01005    000038CC     T45SEQA  DATA     BA(T42SEQ10),BA(T42SEQ11),BA(T42SEQ12)            *A02
            02 01006    000038D4
            02 01007    000038DC
     5943   02 01008    00004034              DATA     BA(T45SEQ10),BA(T45SEQ10),BA(T45SEQ10)            *A02
            02 01009    00004034
            02 0100A    00004034
     5944   02 0100B    00004034              DATA     BA(T45SEQ10),BA(T45SEQ10)                         *A02
            02 0100C    00004034
     5945   02 0100D    404B4C47 A   T45SEQ10 :TSEQ    TDVF0,TDVT3,TDVT4,TDVF7                           *A02
            02 0100E    00000000 A
     5946   02 0100F    0000     A   T45CT2   DATA,2   0,2000,5000,2000,2000,2000,500,500                *A02
            02 0100F 2  07D0     A
            02 01010    1388     A
            02 01010 2  07D0     A
            02 01011    07D0     A
            02 01011 2  07D0     A
            02 01012    01F4     A
            02 01012 2  01F4     A
     5947   02 01013    00       A   T45EXP2  DATA,1   0,X'C0',X'58',X'58',X'58',X'58',X'58',X'58'       *A02
            02 01013 1  C0       A
            02 01013 2  58       A
            02 01013 3  58       A
            02 01014    58       A
            02 01014 1  58       A
            02 01014 2  58       A
            02 01014 3  58       A
     5948                                     BOUND    4                                                 *A02
     5949   02 01015    00003FB8     T45SEQB  DATA     BA(T45SEQ0),BA(T42SEQ1),BA(T42SEQ14),BA(T42SEQ14) *A02
            02 01016    00003828
            02 01017    000038EC
            02 01018    000038EC
     5950   02 01019    000038EC              DATA     BA(T42SEQ14),BA(T42SEQ14),BA(T42SEQ14)            *A02
            02 0101A    000038EC
            02 0101B    000038EC
     5951   02 0101C    000038EC              DATA     BA(T42SEQ14)                                      *A02
     5952   02 0101D    00000000 A   T45CTX   DATA     0                                                 *A02
     5953   02 0101E    00000000 A   T45EXPX  DATA     0                                                 *A02
     5954   02 0101F    00000000 A   T45SEQX  DATA     0                                                 *A02
     5955   02 01020    00000000 A   ENDFLAG  DATA     0                                                 *A02
     5956   02 01021    00000000 A   LOWFLAG  DATA     0                                                 *A02
     5957                            *                                                                   *A02
     5958   02 01022    224FFFDF A   TST146   LI,4     -33               BUFFER INDEX
     5959   02 01023    32E02265              LW,14    =X'C5C5C5C5'      X'C5' PATTERN
     5960   02 01024    35E822C6              STW,14   BUFFER2+33,4      STORE IN BUFFER2
     5961   02 01025    65401024              BIR,4    %-1               B: LOOP TILL BUFFER COMPLETE
     5962   02 01026    22E00083 A   T46M01   LI,14    X'83'
     5963   02 01027    75E0208D              STB,14   TMBYTE            TEST MODE(STEP MODE, PAPER CONTROL)
     5964   02 01028    6AF02065              BAL,15   SELTM             SELECT TEST MODE
     5965   02 01029    6800102D              B        T46M02            NO ERROR
     5966                            *ERROR 4601
     5967   02 0102A    EAF021F3              BAL,15   *:ERROR
     5968   02 0102B    000011F9 A            DATA     4601              #4601
     5969   02 0102C    6800049F              B        EXIT              EXIT
     5970                            *
     5971   02 0102D    CFC01C3E     T46M02   HIO,12   *:DEVADDR         ISSUE HIO
     5972   02 0102E    22000D29              LI,0     DA(IOCD6)         LOAD IOCD
     5973   02 0102F    CCC01C3E              SIO,12   *:DEVADDR         PRINT ONE LINE
     5974   02 01030    324015A9              LW,4     DELYTMSP
     5975   02 01031    64401031              BDR,4    %                 DELAY
     5976   02 01032    6AF01D73              BAL,15   :ERRORT           TEST TDV SET 4
     5977   02 01033    00004164              DATA     BA(T46SEQ1)
     5978   02 01034    68001038              B        T46M03            NO ERROR
     5979                            *ERROR 4602
     5980   02 01035    EAF021F3              BAL,15   *:ERROR
     5981   02 01036    000011FA A            DATA     4602              #4602
     5982   02 01037    68001052              B        T46M08
     5983                            *
     5984   02 01038    22E00005 A   T46M03   LI,14    5                 5 MSEC
     5985   02 01039    6AF01D50              BAL,15   :DELAY            DELAY
     5986   02 0103A    6800103B              B        %+1
     5987   02 0103B    6AF01D73              BAL,15   :ERRORT           TEST TDV SET 4
     5988   02 0103C    00004168              DATA     BA(T46SEQ2)
     5989   02 0103D    68001041              B        T46M04            NO ERROR
     5990                            *ERROR 4603
     5991   02 0103E    EAF021F3              BAL,15   *:ERROR
     5992   02 0103F    000011FB A            DATA     4603              #4603
     5993   02 01040    68001052              B        T46M08
     5994                            *
     5995   02 01041    22E00028 A   T46M04   LI,14    40                40 MSEC
     5996   02 01042    6AF01D50              BAL,15   :DELAY            DELAY
     5997   02 01043    68001044              B        %+1
     5998   02 01044    6AF01D73              BAL,15   :ERRORT           TEST TDV SET 4
     5999   02 01045    00004170              DATA     BA(T46SEQ3)
     6000   02 01046    6800104A              B        T46M06            NO ERROR
     6001                            *ERROR 4604
     6002   02 01047    EAF021F3              BAL,15   *:ERROR
     6003   02 01048    000011FC A            DATA     4604              #4604
     6004   02 01049    68001052              B        T46M08
     6005                            *
     6006   02 0104A    22E0000F A   T46M06   LI,14    15                15 MSEC
     6007   02 0104B    6AF01D50              BAL,15   :DELAY            DELAY
     6008   02 0104C    6800104D              B        %+1
     6009   02 0104D    6AF01D73              BAL,15   :ERRORT           TEST TDV SET 4
     6010   02 0104E    00004178              DATA     BA(T46SEQ4)
     6011   02 0104F    68001055              B        T46M07            NO ERROR
     6012                            *ERROR 4605
     6013   02 01050    EAF021F3              BAL,15   *:ERROR
     6014   02 01051    000011FD A            DATA     4605              #4605
     6015   02 01052    EAF02200     T46M08   BAL,15   *:SENSE
     6016   02 01053    2E001053              WAIT     %
     6017   02 01054    68001057              B        T46M09
     6018   02 01055    6AF02081     T46M07   BAL,15   RESTM             RESET TEST MODE
     6019   02 01056    6800049F              B        EXIT              EXIT
     6020   02 01057    6AF02081     T46M09   BAL,15   RESTM             RESET TEST MODE
     6021   02 01058    68001026              B        T46M01            LOOP
     6022                            *
     6023   02 01059    47000000 A   T46SEQ1  :TSEQ    TDVF7
     6024   02 0105A    40414344 A   T46SEQ2  :TSEQ    TDVF0,TDVF1,TDVF3,TDVF4,TDVT7
            02 0105B    4F000000 A
     6025   02 0105C    40414344 A   T46SEQ3  :TSEQ    TDVF0,TDVF1,TDVF3,TDVF4,TDVF7
            02 0105D    47000000 A
     6026   02 0105E    40494B4C A   T46SEQ4  :TSEQ    TDVF0,TDVT1,TDVT3,TDVT4,TDVF7
            02 0105F    47000000 A
1 C00   19:44 JUN 20,'83    TELEFILE COMPREHENSIVE LINE PRINTER TEST 960-0606-H02                 PAGE   44
A    6028                            *
     6029                            *
     6030                            *
     6031   02 01060    22E00000 A   TST147   LI,14    0
     6032   02 01061    35E015A4              STW,14   TST1IND1          RESET INDEX
     6033   02 01062    22E00000 A   T47M01   LI,14    0
     6034   02 01063    35E015A2              STW,14   TST1INDX          RESET LINE COUNT
     6035   02 01064    224FFFDF A   T47M02   LI,4     -33               BUFFER INDEX
     6036   02 01065    22E00000 A            LI,14    0                 CLEAR REGISTER
     6037   02 01066    35E822C6              STW,14   BUFFER2+33,4      STORE IN BUFFER
     6038   02 01067    65401066              BIR,4    %-1               B: LOOP TILL BUFFER COMPLETE
     6039   02 01068    22400004 A            LI,4     4
     6040   02 01069    314015A4              CW,4     TST1IND1          TST1IND1:4
     6041   02 0106A    683010BE              BE       T47M15            B: BUILD RANDOM COLUMNS, NO OF COL
     6042   02 0106B    313015A4              CW,3     TST1IND1          TST1IND1:3
     6043   02 0106C    683010B9              BE       T47M14            B: BUILD BROADSIDE CHAR 'E'
     6044   02 0106D    312015A4              CW,2     TST1IND1          TST1IND1:2
     6045   02 0106E    683010B2              BE       T47M13            B: BUILD ONE COLUMN RANDOM POSITION
     6046   02 0106F    311015A4              CW,1     TST1IND1          TST1IND1:1
     6047   02 01070    683010AE              BE       T47M12            B: BUILD SLIDING ONE COLUMN PATTERN
     6048   02 01071    22E00000 A   T47M03   LI,14    0
     6049   02 01072    35E015A5              STW,14   TST1ERR           RESET ERROR FLAG
     6050   02 01073    CFC01C3E              HIO,12   *:DEVADDR         ISSUE HIO
     6051   02 01074    22000D25              LI,0     DA(IOCD3)         LOAD IOCD
     6052   02 01075    6AF02010              BAL,15   EXECUTE           PRINT A LINE
     6053   02 01076    6800107A              B        T47M04            NO ERROR
     6054                            *ERROR 4701
     6055   02 01077    EAF021F3              BAL,15   *:ERROR
     6056   02 01078    0000125D A            DATA     4701              #4701
     6057   02 01079    351015A5              STW,1    TST1ERR
     6058                            *
     6059   02 0107A    7510208D     T47M04   STB,1    TMBYTE            TEST MODE
     6060   02 0107B    6AF02065              BAL,15   SELTM             SELECT TEST MODE
     6061   02 0107C    68001080              B        T47M06            NO ERRORS
     6062                            *ERROR 4702
     6063   02 0107D    EAF021F3     T47M05   BAL,15   *:ERROR
     6064   02 0107E    0000125E A            DATA     4702              #4702
     6065   02 0107F    6800109C              B        T47M09
     6066                            *
     6067   02 01080    6AF01D73     T47M06   BAL,15   :ERRORT           TEST TDV SET 2
     6068   02 01081    00000DE0              DATA     BA(T47SEQ1)
     6069   02 01082    68001086              B        T47M07            NO ERRORS
     6070                            *ERROR 4703
     6071   02 01083    EAF021F3              BAL,15   *:ERROR
     6072   02 01084    0000125F A            DATA     4703              #4703
     6073   02 01085    351015A5              STW,1    TST1ERR           SET ERROR FLAG
     6074                            *
     6075   02 01086    312015B2     T47M07   CW,2     TST1FLGM          IS IT MODEL 7446
     6076   02 01087    69301093              BNE      T47M08            B: NO
     6077   02 01088    22E00000 A            LI,14    0                 TEST MODE (NORMAL)
     6078   02 01089    75E0208D              STB,14   TMBYTE            SAVE
     6079   02 0108A    6AF02065              BAL,15   SELTM             SELECT TEST MODE
     6080   02 0108B    6800108D              B        %+2               NO ERROR
     6081   02 0108C    6800107D              B        T47M05            ERROR
     6082   02 0108D    6AF01D73              BAL,15   :ERRORT           TEST TDV SET 1
     6083   02 0108E    00004350              DATA     BA(T47SEQ2)
     6084   02 0108F    68001093              B        T47M08            NO ERROR
     6085                            *ERROR 4704
     6086   02 01090    EAF021F3              BAL,15   *:ERROR
     6087   02 01091    00001260 A            DATA     4704              #4704
     6088   02 01092    351015A5              STW,1    TST1ERR           SET ERROR FLAG
     6089                            *
     6090   02 01093    7530208D     T47M08   STB,3    TMBYTE            TEST MODE (PAPER CONTROL)
     6091   02 01094    6AF02065              BAL,15   SELTM             SELECT TEST MODE
     6092   02 01095    68001097              B        %+2               NO ERRORS
     6093   02 01096    6800107D              B        T47M05            ERROR
     6094   02 01097    6AF01D73              BAL,15   :ERRORT           TEST TDV SET 4
     6095   02 01098    00000000 A   T47M081  DATA     0
     6096   02 01099    680010AA              B        T47M11            NO ERRORS
     6097                            *ERROR 4705
     6098   02 0109A    EAF021F3              BAL,15   *:ERROR
     6099   02 0109B    00001261 A            DATA     4705              #4705
     6100   02 0109C    EAF02200     T47M09   BAL,15   *:SENSE
     6101   02 0109D    2E00109D              WAIT     %
     6102   02 0109E    68001071              B        T47M03            LOOP
     6103   02 0109F    331015A2     T47M10   MTW,1    TST1INDX          INDEX + 1
     6104   02 010A0    6AF02081              BAL,15   RESTM             RESET TEST MODE
     6105   02 010A1    324015A4              LW,4     TST1IND1          INDEX1
     6106   02 010A2    32E810CF              LW,14    T47PCNT,4         FETCH TOTAL LINES TO BE PRINTED
     6107   02 010A3    31E015A2              CW,14    TST1INDX          IS PRINT DONE
     6108   02 010A4    69201064              BG       T47M02            B: NO
     6109   02 010A5    331015A4              MTW,1    TST1IND1          INDEX1 + 1
     6110   02 010A6    32E015A4              LW,14    TST1IND1          INDEX1
     6111   02 010A7    21E00004 A            CI,14    4                 HAVE PRINT TEST COMPLETE
     6112   02 010A8    68201062              BLE      T47M01            B: NO
     6113   02 010A9    6800049F              B        EXIT              EXIT
     6114   02 010AA    22E00000 A   T47M11   LI,14    0
     6115   02 010AB    31E015A5              CW,14    TST1ERR           TEST ERROR FLAG
     6116   02 010AC    6930109C              BNE      T47M09            ERROR
     6117   02 010AD    6800109F              B        T47M10            NO ERROR
     6118   02 010AE    324015A2     T47M12   LW,4     TST1INDX          BUILD
     6119   02 010AF    22E000C5 A            LI,14    X'C5'                 SLIDING ONE
     6120   02 010B0    75E822A5              STB,14   BUFFER2,4             COLUMN PATTERN OF
     6121   02 010B1    68001071              B        T47M03                CHARACTER 'E'
     6122   02 010B2    6AF01FEE     T47M13   BAL,15   :RANDOMX          BUILD
     6123   02 010B3    3250000E A            LW,5     14
     6124   02 010B4    22400000 A            LI,4     0                     ONE COLUMN
     6125   02 010B5    3640225E              DW,4     =132
     6126   02 010B6    22E000C5 A            LI,14    X'C5'                 RANDOM POSITIONING
     6127   02 010B7    75E822A5              STB,14   BUFFER2,4
     6128   02 010B8    68001071              B        T47M03
     6129   02 010B9    32E02265     T47M14   LW,14    =X'C5C5C5C5'      BUILD
     6130   02 010BA    224FFFDF A            LI,4     -33
     6131   02 010BB    35E822C6              STW,14   BUFFER2+33,4          BROADSIDE
     6132   02 010BC    654010BB              BIR,4    %-1
     6133   02 010BD    68001071              B        T47M03                CHARACTER 'E'
     6134   02 010BE    6AF01FEE     T47M15   BAL,15   :RANDOMX          BUILD
     6135   02 010BF    3250000E A            LW,5     14
     6136   02 010C0    22400000 A            LI,4     0                     RANDOM
     6137   02 010C1    3640225E              DW,4     =132
     6138   02 010C2    6AF01FEE              BAL,15   :RANDOMX              COLUMNS,
     6139   02 010C3    3270000E A            LW,7     14
     6140   02 010C4    22600000 A            LI,6     0                     RANDOM
     6141   02 010C5    3660225E              DW,6     =132
     6142   02 010C6    22E000C5 A            LI,14    X'C5'                 NUMBER
     6143   02 010C7    75E822A5     T47M16   STB,14   BUFFER2,4
     6144   02 010C8    33100004 A            MTW,1    4                     OF
     6145   02 010C9    21400085 A            CI,4     133
     6146   02 010CA    681010CD              BGE      %+3                   COLUMN
     6147   02 010CB    646010C7              BDR,6    T47M16
     6148   02 010CC    68001071              B        T47M03
     6149   02 010CD    22400000 A            LI,4     0
     6150   02 010CE    680010C7              B        T47M16
     6151                            *
     6152   02 010CF    0000000F A   T47PCNT  DATA     15,132,30,10,30
            02 010D0    00000084 A
            02 010D1    0000001E A
            02 010D2    0000000A A
            02 010D3    0000001E A
     6153         02 00378           T47SEQ1  EQU      TSEQ18
     6154   02 010D4    47000000 A   T47SEQ2  :TSEQ    TDVF7
     6155   02 010D5    4049424B A   T47SEQ3  :TSEQ    TDVF0,TDVT1,TDVF2,TDVT3,TDVT4,TDVF5,TDVF6,TDVF7
            02 010D6    4C454647 A
            02 010D7    00000000 A
1 C00   19:44 JUN 20,'83    TELEFILE COMPREHENSIVE LINE PRINTER TEST 960-0606-H02                 PAGE   45
A    6157                            *
     6158                            *
     6159                            *
     6160   02 010D8    22E000E0 A   TST148   LI,14    X'E0'             PRINT WITH INHIBIT UPSPACE FORMAT
     6161   02 010D9    75E01A88              STB,14   FORMAT            SAVE
     6162   02 010DA    CFC01C3E              HIO,12   *:DEVADDR         ISSUE HIO
     6163   02 010DB    22000D30              LI,0     DA(IOCD12)        LOAD IOCD
     6164   02 010DC    CCC01C3E              SIO,12   *:DEVADDR         PRINT WITH INHIBIT UPSPACE
     6165   02 010DD    32E015AF              LW,14    DELAYTMP
     6166   02 010DE    6AF01D50              BAL,15   :DELAY            DELAY
     6167   02 010DF    680010E0              B        %+1
     6168   02 010E0    6AF01D73              BAL,15   :ERRORT           TEST TIO,OSb,BYT CNT
     6169   02 010E1    00000DB8              DATA     BA(T48SEQ1)
     6170   02 010E2    680010EB              B        T48M02            NO ERRORS
     6171   02 010E3    31D02256              CW,13    =X'66000000'      ARE DEV, CONTR READY
     6172   02 010E4    684010E8              BCR,4    T48M01            B: YES
     6173                            *ERROR 4801
     6174   02 010E5    EAF021F3              BAL,15   *:ERROR
     6175   02 010E6    000012C1 A            DATA     4801              #4801
     6176   02 010E7    6800110C              B        T48M05
     6177                            *
     6178                            *ERROR 4802
     6179   02 010E8    EAF021F3     T48M01   BAL,15   *:ERROR
     6180   02 010E9    000012C2 A            DATA     4802              #4802
     6181   02 010EA    6800110C              B        T48M05
     6182                            *
     6183   02 010EB    6AF01D73     T48M02   BAL,15   :ERRORT           TEST TDV SET 1
     6184   02 010EC    00000E00              DATA     BA(T48SEQ2)
     6185   02 010ED    680010F1              B        T48M04            NO ERRORS
     6186                            *ERROR 4805
     6187   02 010EE    EAF021F3              BAL,15   *:ERROR
     6188   02 010EF    000012C5 A            DATA     4805              #4805
     6189   02 010F0    6800110C              B        T48M05
     6190                            *
     6191   02 010F1    22E00040 A   T48M04   LI,14    X'40'             TEST MODE (NORMAL SET)
     6192   02 010F2    75E0208D              STB,14   TMBYTE            SAVE
     6193   02 010F3    6AF02065              BAL,15   SELTM             SELECT TEST MODE
     6194   02 010F4    680010F8              B        T48M03            NO ERRORS
     6195                            *ERROR 4803
     6196   02 010F5    EAF021F3              BAL,15   *:ERROR
     6197   02 010F6    000012C3 A            DATA     4803              #4803
     6198   02 010F7    6800110C              B        T48M05
     6199                            *
     6200   02 010F8    22000D37     T48M03   LI,0     DA(IOCD18)        LOAD IOCD
     6201   02 010F9    CCC01C3E              SIO,12   *:DEVADDR         SENSE BUFFER ORDER
     6202   02 010FA    32E015AC              LW,14    DELYTMS
     6203   02 010FB    6AF01D50              BAL,15   :DELAY            DELAY
     6204   02 010FC    680010FD              B        %+1
     6205   02 010FD    224FFFDF A            LI,4     -33               BUFFER INDEX
     6206   02 010FE    22A00000 A            LI,10    0
     6207   02 010FF    35A822A5              STW,10   BUFFER1+33,4      CLEAR BUFFER1
     6208   02 01100    654010FF              BIR,4    %-1               B: LOOP TILL BUFFER1 CLEARED
     6209   02 01101    22E00021 A            LI,14    33
     6210   02 01102    35E01D0E              STW,14   :COMWCNT          NUMBER OF WORDS TO BE COMPARED
     6211   02 01103    22E02284              LI,14    BUFFER1
     6212   02 01104    35E01D0F              STW,14   :COMBFRA          EXPECTED BUFFER ADDRESS
     6213   02 01105    22E022C6              LI,14    BUFFER3
     6214   02 01106    35E01D10              STW,14   :COMBFRB          OBSERVED BUFFER ADDRESS
     6215   02 01107    35A01D11              STW,10   :COMFLAG          RESET ERROR PRINTOUT INHIBIT FLAG
     6216   02 01108    6AF01C9E              BAL,15   :COMPARE          COMPARE BUFFER3 TO X'00'
     6217   02 01109    6800110F              B        T48M06            NO ERRORS
     6218                            *ERROR 4804
     6219   02 0110A    EAF021F3              BAL,15   *:ERROR
     6220   02 0110B    000012C4 A            DATA     4804              #4804
     6221   02 0110C    EAF02200     T48M05   BAL,15   *:SENSE
     6222   02 0110D    2E00110D              WAIT     %
     6223   02 0110E    680010D8              B        TST148            LOOP
     6224   02 0110F    6AF02081     T48M06   BAL,15   RESTM             RESET TEST MODE
     6225   02 01110    6800049F              B        EXIT              EXIT
     6226                            *
     6227         02 0036E           T48SEQ1  EQU      TSEQ16
     6228         02 00380           T48SEQ2  EQU      TSEQ21
1 C00   19:44 JUN 20,'83    TELEFILE COMPREHENSIVE LINE PRINTER TEST 960-0606-H02                 PAGE   46
A    6230                            *
     6231                            *
     6232                            *
     6233   02 01111    22E000C1 A   TST149   LI,14    X'C1'             SPACE ONE LINE FORMAT
     6234   02 01112    75E01A88              STB,14   FORMAT            SAVE
     6235   02 01113    22E00000 A            LI,14    0
     6236   02 01114    35E015A2              STW,14   TST1INDX          RESET INDEX
     6237   02 01115    CFC01C3E     T49M01   HIO,12   *:DEVADDR         ISSUE HIO
     6238   02 01116    22000D22              LI,0     DA(IOCD1)         LOAD IOCD
     6239   02 01117    6AF02010              BAL,15   EXECUTE           SPACE LINE
     6240   02 01118    6800111E              B        T49M02            NO ERRORS
     6241                            *ERROR 4901
     6242   02 01119    EAF021F3              BAL,15   *:ERROR
     6243   02 0111A    00001325 A            DATA     4901              #4901
     6244   02 0111B    EAF02200              BAL,15   *:SENSE
     6245   02 0111C    2E00111C              WAIT     %
     6246   02 0111D    68001115              B        T49M01            LOOP
     6247   02 0111E    7530208D     T49M02   STB,3    TMBYTE            TEST MODE(PAPER CONTROL)
     6248   02 0111F    6AF02065              BAL,15   SELTM             SELECT TEST MODE
     6249   02 01120    68001124              B        T49M04            NO ERRORS
     6250                            *ERROR 4902
     6251   02 01121    EAF021F3     T49M03   BAL,15   *:ERROR
     6252   02 01122    00001326 A            DATA     4902              #4902
     6253   02 01123    68001133              B        T49M07
     6254                            *
     6255   02 01124    6AF01D73     T49M04   BAL,15   :ERRORT           TEST TDV SET 4
     6256   02 01125    00000000 A            DATA     0
     6257   02 01126    6800112A              B        T49M05            NO ERRORS
     6258                            *ERROR 4903
     6259   02 01127    EAF021F3              BAL,15   *:ERROR
     6260   02 01128    00001327 A            DATA     4903              #4903
     6261   02 01129    68001133              B        T49M07
     6262                            *
     6263   02 0112A    7520208D     T49M05   STB,2    TMBYTE            TEST MODE (FORMAT REGISTER)
     6264   02 0112B    6AF02065              BAL,15   SELTM             SELECT TEST MODE
     6265   02 0112C    6800112E              B        T49M06            NO ERRORS
     6266   02 0112D    68001121              B        T49M03            ERROR
     6267   02 0112E    6AF01D73     T49M06   BAL,15   :ERRORT           TEST TDV SET 3
     6268   02 0112F    00004524              DATA     BA(T49SEQ4)
     6269   02 01130    6800113C              B        T49M09            NO ERRORS
     6270                            *ERROR 4904
     6271   02 01131    EAF021F3              BAL,15   *:ERROR
     6272   02 01132    00001328 A            DATA     4904              #4904
     6273   02 01133    EAF02200     T49M07   BAL,15   *:SENSE
     6274   02 01134    2E001134              WAIT     %
     6275   02 01135    68001115              B        T49M01            LOOP
     6276   02 01136    73101A88     T49M08   MTB,1    FORMAT            FORMAT = FORMAT + 1
     6277   02 01137    6AF02081              BAL,15   RESTM             RESET TEST MODE
     6278   02 01138    72E01A88              LB,14    FORMAT            FORMAT
     6279   02 01139    21E000CF A            CI,14    X'CF'             FORMAT:X'CF'
     6280   02 0113A    68201115              BLE      T49M01            FORMAT <= X'CF'
     6281   02 0113B    6800049F              B        EXIT              EXIT
     6282   02 0113C    22E00040 A   T49M09   LI,14    X'40'             TEST MODE (NORMAL SET)
     6283   02 0113D    75E0208D              STB,14   TMBYTE            SAVE
     6284   02 0113E    6AF02065              BAL,15   SELTM             SELECT TEST MODE
     6285   02 0113F    68001141              B        %+2               NO ERRORS
     6286   02 01140    68001121              B        T49M03            ERROR
     6287   02 01141    6AF01D73              BAL,15   :ERRORT           TEST TDV SET 1
     6288   02 01142    00000E00              DATA     BA(T49SEQ3)
     6289   02 01143    68001136              B        T49M08            NO ERRORS
     6290                            *ERROR 4905
     6291   02 01144    EAF021F3     T49M11   BAL,15   *:ERROR
     6292   02 01145    00001329 A            DATA     4905              #4905
     6293   02 01146    68001133              B        T49M07
     6294                            *
     6295   02 01147    40494B4C A   T49SEQ2  :TSEQ    TDVF0,TDVT1,TDVT3,TDVT4
            02 01148    00000000 A
     6296         02 00380           T49SEQ3  EQU      TSEQ21
     6297   02 01149    40494243 A   T49SEQ4  :TSEQ    TDVF0,TDVT1,TDVF2,TDVF3,TDVF4,TDVF5,TDVF6,TDVF7
            02 0114A    44454647 A
            02 0114B    00000000 A
1 C00   19:44 JUN 20,'83    TELEFILE COMPREHENSIVE LINE PRINTER TEST 960-0606-H02                 PAGE   47
A    6299                            *
     6300                            *
     6301                            *
     6302   02 0114C    224FFFDF A   TST150   LI,4     -33               BUFFER INDEX
     6303   02 0114D    32E02265              LW,14    =X'C5C5C5C5'      X'C5' PATTERN
     6304   02 0114E    35E822C6              STW,14   BUFFER2+33,4      STORE IN BUFFER2
     6305   02 0114F    6540114E              BIR,4    %-1               B: LOOP TILL BUFFER COMPLETE
     6306   02 01150    22E000C2 A            LI,14    X'C2'             SPACE 2 LINE FORMAT
     6307   02 01151    75E01A88              STB,14   FORMAT            SAVE
     6308   02 01152    CFC01C3E     T50M01   HIO,12   *:DEVADDR         ISSUE HIO
     6309   02 01153    22000D23              LI,0     DA(IOCD2)         LOAD IOCD
     6310   02 01154    6AF02010              BAL,15   EXECUTE           SPACE 2 LINE
     6311   02 01155    6800115B              B        T50M02            NO ERRORS
     6312                            *ERROR 5001
     6313   02 01156    EAF021F3              BAL,15   *:ERROR
     6314   02 01157    00001389 A            DATA     5001              #5001
     6315   02 01158    EAF02200              BAL,15   *:SENSE
     6316   02 01159    2E001159              WAIT     %
     6317   02 0115A    68001152              B        T50M01
     6318   02 0115B    7530208D     T50M02   STB,3    TMBYTE            TEST MODE (PAPER CONTROL)
     6319   02 0115C    6AF02065              BAL,15   SELTM             SELECT TEST MODE
     6320   02 0115D    68001161              B        T50M03            NO ERRORS
     6321                            *ERROR 5002
     6322   02 0115E    EAF021F3              BAL,15   *:ERROR
     6323   02 0115F    0000138A A            DATA     5002              #5002
     6324   02 01160    68001166              B        T50M04
     6325                            *
     6326   02 01161    6AF01D73     T50M03   BAL,15   :ERRORT           TEST TDV SET 4
     6327   02 01162    00000000 A            DATA     0
     6328   02 01163    68001169              B        T50M05            NO ERRORS
     6329                            *ERROR 5003
     6330   02 01164    EAF021F3              BAL,15   *:ERROR
     6331   02 01165    0000138B A            DATA     5003              #5003
     6332   02 01166    EAF02200     T50M04   BAL,15   *:SENSE
     6333   02 01167    2E001167              WAIT     %
     6334   02 01168    6800116B              B        T50M06
     6335   02 01169    6AF02081     T50M05   BAL,15   RESTM             RESET TEST MODE
     6336   02 0116A    6800049F              B        EXIT              EXIT
     6337   02 0116B    6AF02081     T50M06   BAL,15   RESTM             RESET TEST MODE
     6338   02 0116C    68001152              B        T50M01
     6339                            *
     6340                            *********************************************************************
     6341   02 0116D    6800049F     TST151   B      EXIT                RESERVED FOR FUTURE USE
1 C00   19:44 JUN 20,'83    TELEFILE COMPREHENSIVE LINE PRINTER TEST 960-0606-H02                 PAGE   48
A    6343                            *
     6344                            *
     6345                            *
     6346   02 0116E    224FFFDF A   TST152   LI,4     -33               BUFFER INDEX
     6347   02 0116F    32E01A89              LW,14    CHARBLNK          BLANK CHARACTER
     6348   02 01170    35E822C6              STW,14   BUFFER2+33,4      STORE IN BUFFER2
     6349   02 01171    65401170              BIR,4    %-1               B: LOOP TILL BUFFER COMPLETE
     6350   02 01172    CFC01C3E     T52M01   HIO,12   *:DEVADDR         ISSUE HIO
     6351   02 01173    22A00000 A            LI,10    0
     6352   02 01174    35A015A5              STW,10   TST1ERR           RESET ERROR FLAG
     6353   02 01175    22000D25              LI,0     DA(IOCD3)         LOAD IOCD
     6354   02 01176    6AF02010              BAL,15   EXECUTE           PRINT BLANKS
     6355   02 01177    6800117B              B        T52M02            NO ERROR
     6356                            *ERROR 5201
     6357   02 01178    EAF021F3              BAL,15   *:ERROR
     6358   02 01179    00001451 A            DATA     5201              #5201
     6359   02 0117A    351015A5              STW,1    TST1ERR           SET ERROR FLAG
     6360                            *
     6361   02 0117B    7510208D     T52M02   STB,1    TMBYTE            TEST MODE
     6362   02 0117C    6AF02065              BAL,15   SELTM             SELECT TEST MODE
     6363   02 0117D    68001181              B        T52M04            NO ERROR
     6364                            *ERROR 5202
     6365   02 0117E    EAF021F3     T52M03   BAL,15   *:ERROR
     6366   02 0117F    00001452 A            DATA     5202              #5202
     6367   02 01180    680011A8              B        T52M12
     6368                            *
     6369   02 01181    6AF01D73     T52M04   BAL,15   :ERRORT           TEST TDV SET 2
     6370   02 01182    00000DE0              DATA     BA(T52SEQ1)
     6371   02 01183    68001187              B        T52M05            NO ERRORS
     6372                            *ERROR 5203
     6373   02 01184    EAF021F3              BAL,15   *:ERROR
     6374   02 01185    00001453 A            DATA     5203              #5203
     6375   02 01186    351015A5              STW,1    TST1ERR           SET ERROR FLAG
     6376                            *
     6377   02 01187    7520208D     T52M05   STB,2    TMBYTE            TEST MODE (FORMAT REGISTER)
     6378   02 01188    6AF02065              BAL,15   SELTM             SELECT TEST MODE
     6379   02 01189    6800118B              B        T52M06            NO ERRORS
     6380   02 0118A    6800117E              B        T52M03            ERRORS
     6381   02 0118B    6AF01D73     T52M06   BAL,15   :ERRORT           TEST TDV SET 3
     6382   02 0118C    00000D78              DATA     BA(T52SEQ2)
     6383   02 0118D    68001191              B        T52M07            NO ERRORS
     6384                            *ERROR 5204
     6385   02 0118E    EAF021F3              BAL,15   *:ERROR
     6386   02 0118F    00001454 A            DATA     5204              #5204
     6387   02 01190    351015A5              STW,1    TST1ERR           SET ERROR FLAG
     6388                            *
     6389   02 01191    7530208D     T52M07   STB,3    TMBYTE            TEST MODE (PAPER CONTROL)
     6390   02 01192    6AF02065              BAL,15   SELTM             SELECT TEST MODE
     6391   02 01193    68001195              B        T52M08            NO ERRORS
     6392   02 01194    6800117E              B        T52M03            ERROR
     6393   02 01195    6AF01D73     T52M08   BAL,15   :ERRORT           TEST TDV SET 4
     6394   02 01196    00000000 A            DATA     0
     6395   02 01197    6800119B              B        T52M09            NO ERRORS
     6396                            *ERROR 5205
     6397   02 01198    EAF021F3              BAL,15   *:ERROR
     6398   02 01199    00001455 A            DATA     5205              #5205
     6399   02 0119A    680011A8              B        T52M12
     6400                            *
     6401   02 0119B    22E00004 A   T52M09   LI,14    4                 TEST MODE(ADDRESS COUNTER)
     6402   02 0119C    75E0208D              STB,14   TMBYTE            SAVE
     6403   02 0119D    6AF02065              BAL,15   SELTM             SELECT TEST MODE
     6404   02 0119E    680011A0              B        T52M10            NO ERROR
     6405   02 0119F    6800117E              B        T52M03
     6406   02 011A0    6AF01D73     T52M10   BAL,15   :ERRORT           TEST TDV SET 5
     6407   02 011A1    00000000 A            DATA     0
     6408   02 011A2    680011A6              B        T52M11            NO ERRORS
     6409                            *ERROR 5206
     6410   02 011A3    EAF021F3              BAL,15   *:ERROR
     6411   02 011A4    00001456 A            DATA     5206
     6412   02 011A5    351015A5              STW,1    TST1ERR           SET ERROR FLAG
     6413   02 011A6    32E015A5     T52M11   LW,14    TST1ERR           ERROR FLAG
     6414   02 011A7    683011AB              BEZ      T52M13            B: NO ERRORS
     6415   02 011A8    EAF02200     T52M12   BAL,15   *:SENSE
     6416   02 011A9    2E0011A9              WAIT     %
     6417   02 011AA    68001172              B        T52M01
     6418   02 011AB    6AF02081     T52M13   BAL,15   RESTM             RESET TEST MODE
     6419   02 011AC    6800049F              B        EXIT              EXIT
     6420                            *
     6421         02 00378           T52SEQ1  EQU      TSEQ18
     6422         02 0035E           T52SEQ2  EQU      TSEQ13
1 C00   19:44 JUN 20,'83    TELEFILE COMPREHENSIVE LINE PRINTER TEST 960-0606-H02                 PAGE   49
A    6424                            *
     6425                            *
     6426                            *
     6427   02 011AD    224FFFDF A   TST153   LI,4     -33               BUFFER INDEX
     6428   02 011AE    32E02265              LW,14    =X'C5C5C5C5'      X'C5' PATTERN
     6429   02 011AF    35E822C6              STW,14   BUFFER2+33,4      STORE IN BUFFER2
     6430   02 011B0    654011AF              BIR,4    %-1               B: LOOP TILL BUFFER COMPLETE
     6431   02 011B1    22A00000 A            LI,10    0
     6432   02 011B2    35A015A2              STW,10   TST1INDX          RESET INDEX
     6433   02 011B3    CFC01C3E     T53M01   HIO,12   *:DEVADDR         ISSUE HIO
     6434   02 011B4    22000D25     T53M02   LI,0     DA(IOCD3)         LOAD IOCD
     6435   02 011B5    6AF02010              BAL,15   EXECUTE           PRINT ONE LINE
     6436   02 011B6    680011BC              B        T53M03            NO ERROR
     6437                            *ERROR 5301
     6438   02 011B7    EAF021F3              BAL,15   *:ERROR
     6439   02 011B8    000014B5 A            DATA     5301              #5301
     6440   02 011B9    EAF02200              BAL,15   *:SENSE
     6441   02 011BA    2E0011BA              WAIT     %
     6442   02 011BB    680011B4              B        T53M02
     6443   02 011BC    331015A2     T53M03   MTW,1    TST1INDX          INCREMENT INDEX
     6444   02 011BD    32E015A2              LW,14    TST1INDX          INDEX
     6445   02 011BE    21E0000A A            CI,14    10                INDEX:10
     6446   02 011BF    682011B4              BLE      T53M02            B: INDEX <= 10
     6447   02 011C0    7510208D              STB,1    TMBYTE            TEST MODE (STATES)
     6448   02 011C1    6AF02065              BAL,15   SELTM             SELECT TEST MODE
     6449   02 011C2    680011C6              B        T53M05            NO ERRORS
     6450                            *ERROR 5304
     6451   02 011C3    EAF021F3     T53M04   BAL,15   *:ERROR
     6452   02 011C4    000014B8 A            DATA     5304              #5304
     6453   02 011C5    680011DF              B        T53M10
     6454                            *
     6455   02 011C6    6AF01D73     T53M05   BAL,15   :ERRORT           TEST TDV SET 2
     6456   02 011C7    00000DE0              DATA     BA(T53SEQ1)
     6457   02 011C8    680011CC              B        T53M06            NO ERRORS
     6458                            *ERROR 5305
     6459   02 011C9    EAF021F3              BAL,15   *:ERROR
     6460   02 011CA    000014B9 A            DATA     5305              #5305
     6461   02 011CB    680011DF              B        T53M10
     6462                            *
     6463   02 011CC    7520208D     T53M06   STB,2    TMBYTE            TEST MODE (FORMAT REGISTER)
     6464   02 011CD    6AF02065              BAL,15   SELTM             SELECT TEST MODE
     6465   02 011CE    680011D0              B        T53M07            NO ERROR
     6466   02 011CF    680011C3              B        T53M04
     6467   02 011D0    6AF01D73     T53M07   BAL,15   :ERRORT           TEST TDV SET 3
     6468   02 011D1    00000D78              DATA     BA(T53SEQ2)
     6469   02 011D2    680011D6              B        T53M08            NO ERRORS
     6470                            *ERROR 5307
     6471   02 011D3    EAF021F3              BAL,15   *:ERROR
     6472   02 011D4    000014BB A            DATA     5307              #5307
     6473   02 011D5    680011DF              B        T53M10
     6474                            *
     6475   02 011D6    7530208D     T53M08   STB,3    TMBYTE            TEST MODE (PAPER CONTROL)
     6476   02 011D7    6AF02065              BAL,15   SELTM             SELECT TEST MODE
     6477   02 011D8    680011DA              B        T53M09            NO ERRORS
     6478   02 011D9    680011C3              B        T53M04
     6479   02 011DA    6AF01D73     T53M09   BAL,15   :ERRORT           TEST TDV SET 4
     6480   02 011DB    00000000 A            DATA     0
     6481   02 011DC    680011E2              B        T53M11            NO ERRORS
     6482                            *ERROR 5306
     6483   02 011DD    EAF021F3              BAL,15   *:ERROR
     6484   02 011DE    000014BA A            DATA     5306              #5306
     6485   02 011DF    EAF02200     T53M10   BAL,15   *:SENSE
     6486   02 011E0    2E0011E0              WAIT     %
     6487   02 011E1    680011B3              B        T53M01
     6488   02 011E2    6AF02081     T53M11   BAL,15   RESTM             RESET TEST MODE
     6489   02 011E3    6800049F              B        EXIT              EXIT
     6490                            *
     6491         02 00378           T53SEQ1  EQU      TSEQ18
     6492         02 0035E           T53SEQ2  EQU      TSEQ13
1 C00   19:44 JUN 20,'83    TELEFILE COMPREHENSIVE LINE PRINTER TEST 960-0606-H02                 PAGE   50
A    6494                            *
     6495                            *
     6496                            *
     6497   02 011E4    22E01519 A   TST154   LI,14    5401              SPECIFY ERROR NUMBER
     6498   02 011E5    35E011F5              STW,14   T54M04            SAVE
     6499   02 011E6    22A00000 A   T54ALT   LI,10    0
     6500   02 011E7    35A015A2              STW,10   TST1INDX          RESET INDEX
     6501   02 011E8    35A015A4              STW,10   TST1IND1          RESET CHAR INDEX               *A04
     6502   02 011E9    224FFF7C A   T54M01   LI,4     -132              BUFFER INDEX
     6503   02 011EA    72E615A4              LB,14    TST1IND1,3        PATTERN OF INDEX
     6504   02 011EB    35E0223E              STW,14   INVCHARX          SAVE PATTERN OF INDEX          *A04
     6505   02 011EC    6AF0222C              BAL,15   INVCHAR           FETCH VALID CHARACTER          *A04
     6506   02 011ED    35E015A4              STW,14   TST1IND1          STORE IN INDEX                 *A04
     6507   02 011EE    75E822C6              STB,14   BUFFER2+33,4      STORE IN BUFFER2
     6508   02 011EF    654011EE              BIR,4    %-1               B: LOOP TILL BUFFER COMPLETE
     6509   02 011F0    CFC01C3E     T54M02   HIO,12   *:DEVADDR         ISSUE HIO
     6510   02 011F1    22000D25              LI,0     DA(IOCD3)         LOAD IOCD
     6511   02 011F2    6AF02010              BAL,15   EXECUTE           PRINT ONE LINE
     6512   02 011F3    680011F9              B        T54M03            NO ERRORS
     6513                            *ERROR 5401
     6514   02 011F4    EAF021F3              BAL,15   *:ERROR
     6515   02 011F5    00000000 A   T54M04   DATA     0                 #5401/7001
     6516   02 011F6    EAF02200              BAL,15   *:SENSE
     6517   02 011F7    2E0011F7              WAIT     %
     6518   02 011F8    680011F0              B        T54M02
     6519   02 011F9    331015A2     T54M03   MTW,1    TST1INDX          INCREMENT INDEX
     6520   02 011FA    331015A4              MTW,1    TST1IND1          INCR CHAR INDEX                *A04
     6521   02 011FB    32E015A2              LW,14    TST1INDX          INDEX
     6522   02 011FC    31E00409              CW,14    CHARINDX          CHARACTER INDEX                *A04
     6523   02 011FD    691011E9              BL       T54M01            B: INDEX < 64
     6524   02 011FE    6800049F              B        EXIT              EXIT
1 C00   19:44 JUN 20,'83    TELEFILE COMPREHENSIVE LINE PRINTER TEST 960-0606-H02                 PAGE   51
A    6526                            *
     6527                            *
     6528                            *
     6529   02 011FF    22E00000 A   TST155   LI,14    0
     6530   02 01200    35E015A2              STW,14   TST1INDX          RESET INDEX
     6531   02 01201    75101A6C     T55M01   STB,1    IOCD17            PRINT ORDER
     6532   02 01202    22E00084 A            LI,14    132               BYTE COUNT
     6533   02 01203    75E61A6D              STB,14   IOCD17+1,3        STORE IN IOCD
     6534   02 01204    224FFFDF A            LI,4     -33               BUFFER INDEX
     6535   02 01205    32E02267              LW,14    =X'03030303'      EVEN DATA PATTERN
     6536   02 01206    35E822C6              STW,14   BUFFER2+33,4      STORE IN BUFFER
     6537   02 01207    65401206              BIR,4    %-1               B: LOOP TILL BUFFER COMPLETE
     6538   02 01208    324015A2     T55M011  LW,4     TST1INDX          INDEX
     6539   02 01209    72E81236              LB,14    TMBYTE55,4        FETCH TEST MODE BYTE
     6540   02 0120A    75E0208D              STB,14   TMBYTE            SAVE
     6541   02 0120B    6AF02065              BAL,15   SELTM             SELECT TEST MODE
     6542   02 0120C    68001210              B        T55M02            NO ERRORS
     6543                            *ERROR 5501
     6544   02 0120D    EAF021F3              BAL,15   *:ERROR
     6545   02 0120E    0000157D A            DATA     5501              #5501
     6546   02 0120F    6800049F              B        EXIT              EXIT
     6547                            *
     6548   02 01210    CFC01C3E     T55M02   HIO,12   *:DEVADDR         ISSUE HIO
     6549   02 01211    22000D36              LI,0     DA(IOCD17)        LOAD IOCD
     6550   02 01212    CCC01C3E              SIO,12   *:DEVADDR         ISSUE SIO
     6551   02 01213    22E0003C A            LI,14    60
     6552   02 01214    6AF01D50              BAL,15   :DELAY            DELAY
     6553   02 01215    68001216              B        %+1
     6554   02 01216    324015A2              LW,4     TST1INDX          INDEX
     6555   02 01217    32E81237              LW,14    T55SEQ,4          SPECIFY
     6556   02 01218    35E0121C              STW,14   T55M03                TEST SEQUENCE
     6557   02 01219    2040157E A            AI,4     5502              SPECIFY
     6558   02 0121A    3540121F              STW,4    T55M04                ERROR NUMBER
     6559   02 0121B    6AF01D73              BAL,15   :ERRORT           TEST TDV
     6560   02 0121C    00000000 A   T55M03   DATA     0
     6561   02 0121D    68001221              B        T55M041           NO ERRORS
     6562                            *ERROR 5502-5505
     6563   02 0121E    EAF021F3              BAL,15   *:ERROR
     6564   02 0121F    00000000 A   T55M04   DATA     0                 #5502-5505
     6565   02 01220    68001226              B        T55M042
     6566   02 01221    6AF01D73     T55M041  BAL,15   :ERRORT           TEST FOR UNUSAL END
     6567   02 01222    0000490C              DATA     BA(T55SEQ4)
     6568   02 01223    68001229              B        T55M05            NO ERRORS
     6569                            *ERROR 5506
     6570   02 01224    EAF021F3              BAL,15   *:ERROR
     6571   02 01225    00001582 A            DATA     5506              #5506
     6572   02 01226    EAF02200     T55M042  BAL,15   *:SENSE
     6573   02 01227    2E001227              WAIT     %
     6574   02 01228    68001210              B        T55M02            LOOP
     6575   02 01229    331015A2     T55M05   MTW,1    TST1INDX          INDEX + 1
     6576   02 0122A    32E015A2              LW,14    TST1INDX          INDEX
     6577   02 0122B    21E00003 A            CI,14    3                 INDEX:3
     6578   02 0122C    69101234              BL       T55M07            B: INDEX < 3
     6579   02 0122D    21E00004 A            CI,14    4                 INDEX:4
     6580   02 0122E    68101232              BGE      T55M06            B: INDEX >=4
     6581   02 0122F    22E00040 A            LI,14    64                BYTE COUNT
     6582   02 01230    75E61A6D              STB,14   IOCD17+1,3        STORE IN IOCD
     6583   02 01231    68001208              B        T55M011
     6584   02 01232    6AF02081     T55M06   BAL,15   RESTM             RESET TEST MODE
     6585   02 01233    6800049F              B        EXIT              EXIT
     6586   02 01234    6AF02081     T55M07   BAL,15   RESTM             RESET TEST MODE
     6587   02 01235    68001201              B        T55M01
     6588   02 01236    20A060E0 A   TMBYTE55 DATA     X'20A060E0'
     6589   02 01237    000048EC     T55SEQ   DATA     BA(T55SEQ0),BA(T55SEQ1),BA(T55SEQ3),BA(T55SEQ2)
            02 01238    000048F4
            02 01239    00004904
            02 0123A    000048FC
     6590   02 0123B    49424FE1 A   T55SEQ0  :TSEQ    TDVT1,TDVF2,TDVT7,BYT00
            02 0123C    00000000 A
     6591   02 0123D    49424CE1 A   T55SEQ1  :TSEQ    TDVT1,TDVF2,TDVT4,BYT00
            02 0123E    00000000 A
     6592   02 0123F    49424EE1 A   T55SEQ2  :TSEQ    TDVT1,TDVF2,TDVT6,BYT00
            02 01240    00000000 A
     6593   02 01241    49424DE1 A   T55SEQ3  :TSEQ    TDVT1,TDVF2,TDVT5,BYT00
            02 01242    00000000 A
     6594   02 01243    1C000000 A   T55SEQ4  :TSEQ    TIOT4
     6595                            *
     6596                            *
     6597                            *
     6598   02 01244    22E000E0 A   TST156   LI,14    X'E0'
     6599   02 01245    75E0208D              STB,14   TMBYTE            FORCE IO PARITY TEST MODE
     6600   02 01246    6AF02065              BAL,15   SELTM             SELECT TEST MODE
     6601   02 01247    6800124B              B        T56M01            NO ERROR
     6602                            *ERROR 5601
     6603   02 01248    EAF021F3              BAL,15   *:ERROR
     6604   02 01249    000015E1 A            DATA     5601              #5601
     6605   02 0124A    6800049F              B        EXIT              EXIT
     6606                            *
     6607   02 0124B    22E00000 A   T56M01   LI,14    0
     6608   02 0124C    35E015A6              STW,14   TST1PATN          SET DATA PATTERN TO ZERO
     6609   02 0124D    35E015A5              STW,14   TST1ERR           RESET ERROR FLAG
     6610   02 0124E    35E015A2              STW,14   TST1INDX          RESET INDEX
     6611   02 0124F    351015A4              STW,1    TST1IND1          BYTE COUNT
     6612   02 01250    22E000C0 A            LI,14    X'C0'
     6613   02 01251    75E01A88              STB,14   FORMAT            SPACE 0 LINE FORMAT
     6614   02 01252    324015A2     T56M02   LW,4     TST1INDX          INDEX
     6615   02 01253    32E00225 A            LW,14    :MACHINE          MACHINE TYPE
     6616   02 01254    6830125A              BEZ      T56M03            B: SIGMA 5/7
     6617   02 01255    32E812B6              LW,14    T56BC89,4         FETCH BYTE COUNT
     6618   02 01256    35E015A3              STW,14   TST1EXP           SAVE
     6619   02 01257    32E812B0              LW,14    TSEQ89,4          FETCT TEST SEQUENCE
     6620   02 01258    35E0126D              STW,14   T56M06            SAVE
     6621   02 01259    6800125E              B        T56M04
     6622   02 0125A    32E812B3     T56M03   LW,14    T56BC57,4         FETCH BYTE COUNT
     6623   02 0125B    35E015A3              STW,14   TST1EXP           SAVE
     6624   02 0125C    32E812AD              LW,14    TSEQ57,4          FETCH TEST SEQUENCE
     6625   02 0125D    35E0126D              STW,14   T56M06            SAVE
     6626   02 0125E    32E015A6     T56M04   LW,14    TST1PATN          FETCH DATA PATTERN
     6627   02 0125F    225FFFDF A            LI,5     -33               BUFFER INDEX
     6628   02 01260    35EA22C6              STW,14   BUFFER2+33,5      STORE IN BUFFER
     6629   02 01261    65501260              BIR,5    %-1               B: LOOP TILL BUFFER COMPLETE
     6630   02 01262    32E812BA              LW,14    T56IOCD,4         FETCH IOCD ADDR
     6631   02 01263    35E012B9              STW,14   T1IOCDX           SAVE
     6632   02 01264    32E015A4              LW,14    TST1IND1          BYTE COUNT
     6633   02 01265    55E61A66              STH,14   IOCD14,3          STORE IN IOCD
     6634   02 01266    CFC01C3E     T56M05   HIO,12   *:DEVADDR         ISSUE HIO
     6635   02 01267    320012B9              LW,0     T1IOCDX           LOAD IOCD
     6636   02 01268    CCC01C3E              SIO,12   *:DEVADDR         ISSUE SIO
     6637   02 01269    22E00028 A            LI,14    40
     6638   02 0126A    6AF01D50              BAL,15   :DELAY            DELAY
     6639   02 0126B    6800126C              B        %+1
     6640   02 0126C    6AF01D73              BAL,15   :ERRORT           TEST TDV SET 1
     6641   02 0126D    00000000 A   T56M06   DATA     0
     6642   02 0126E    68001278              B        T56M07            NO ERROR
     6643   02 0126F    32E015A2              LW,14    TST1INDX          INDEX
     6644   02 01270    31E00002 A            CW,14    2                 INDEX:2
     6645   02 01271    69101273              BL       %+2               B: INDEX < 2
     6646   02 01272    33F0000E A            MTW,-1   14
     6647   02 01273    20E015E2 A            AI,14    5602              ERROR NUMBER
     6648   02 01274    35E01276              STW,14   T56M061           SAVE
     6649                            *ERROR 5602-5604
     6650   02 01275    EAF021F3              BAL,15   *:ERROR
     6651   02 01276    00000000 A   T56M061  DATA     0                 #5602-5604
     6652   02 01277    331015A5              MTW,1    TST1ERR           SET ERROR FLAG
     6653                            *
     6654   02 01278    CDC01C3E     T56M07   TIO,12   *:DEVADDR         ISSUE TIO
     6655   02 01279    52E2000D A            LH,14    13,1              FETCH BYTE COUNT
     6656   02 0127A    31E015A3              CW,14    TST1EXP           CURRENT BYTE COUNT:EXP BYTE COUNT
     6657   02 0127B    68301292              BE       T56M08            EQUAL
     6658   02 0127C    32F015A2              LW,15    TST1INDX          INDEX
     6659   02 0127D    69301287              BNEZ     T56M071           B: INDEX > 0
     6660   02 0127E    311015A4              CW,1     TST1IND1          BYTE COUNT:1
     6661   02 0127F    69301283              BNE      %+4               BYTE COUNT > 1
     6662   02 01280    21E00000 A            CI,14    0                 BYTE COUNT:0
     6663   02 01281    68301292              BE       T56M08            B: BYTE COUNT = 0
     6664   02 01282    68001287              B        T56M071           B: ERROR
     6665   02 01283    21E00082 A            CI,14    130               BYTE COUNT:130
     6666   02 01284    69201287              BG       %+3               B: BYTE COUNT > 130
     6667   02 01285    21E00080 A            CI,14    128               BYTE COUNT:128
     6668   02 01286    68101292              BGE      T56M08            B: BYTE COUNT < 128
     6669   02 01287    32C0000E A   T56M071  LW,12    14                OBS BYTE COUNT
     6670   02 01288    EAF00217 A            BAL,15   *:DECC            CONVERT TO EBCDIC
     6671   02 01289    35F012C4              STW,15   T1BCMSG+7         STORE IN MSG
     6672   02 0128A    32C015A3              LW,12    TST1EXP           EXP BYTE COUNT
     6673   02 0128B    EAF00217 A            BAL,15   *:DECC            CONVERT TO EBCDIC
     6674   02 0128C    35F012C1              STW,15   T1BCMSG+4         STORE IN MSG
     6675   02 0128D    EAF0021C A            BAL,15   *:PRINT
     6676   02 0128E    000012BD              DATA     T1BCMSG           'TERM BYTE COUNT EXP XXXX OSB XXXX'
     6677                            *ERROR 5605
     6678   02 0128F    EAF021F3              BAL,15   *:ERROR
     6679   02 01290    000015E5 A            DATA     5605              #5605
     6680   02 01291    68001294              B        T56M09
     6681                            *
     6682   02 01292    32E015A5     T56M08   LW,14    TST1ERR           CHECK FOR ERROR
     6683   02 01293    68301297              BEZ      T56M10            B: NO ERROR
     6684   02 01294    EAF02200     T56M09   BAL,15   *:SENSE
     6685   02 01295    2E001295              WAIT     %
     6686   02 01296    68001266              B        T56M05            LOOP
     6687   02 01297    72E015A6     T56M10   LB,14    TST1PATN          DATA PATTERN
     6688   02 01298    21E000FF A            CI,14    X'FF'             HAS ALL EVEN DATA PATTERN PRINTED
     6689   02 01299    683012A1              BE       T56M11            B: YES
     6690   02 0129A    32E015A2              LW,14    TST1INDX          INDEX
     6691   02 0129B    693012A1              BNEZ     T56M11            INDEX > 0
     6692   02 0129C    32E02268              LW,14    =X'FFFFFFFF'      ALL ONES DATA PATTERN
     6693   02 0129D    35E015A6              STW,14   TST1PATN          SAVE
     6694   02 0129E    22E00084 A            LI,14    132
     6695   02 0129F    35E015A4              STW,14   TST1IND1          BYTE COUNT = 132
     6696   02 012A0    6800125E              B        T56M04            LOOP
     6697   02 012A1    312015A2     T56M11   CW,2     TST1INDX          IS TEST DONE
     6698   02 012A2    692012A5              BG       T56M12            B:NO
     6699   02 012A3    6AF02081              BAL,15   RESTM             RESET TEST MODE
     6700   02 012A4    6800049F              B        EXIT              EXIT
     6701   02 012A5    32E0225B     T56M12   LW,14    =X'01010101'      SET ODD DATA PATTERN
     6702   02 012A6    35E015A6              STW,14   TST1PATN          SAVE
     6703   02 012A7    331015A2              MTW,1    TST1INDX          INCR INDEX
     6704   02 012A8    68001252              B        T56M02            LOOP
     6705                            *
     6706   02 012A9    49424E00 A   T56SEQ1  :TSEQ    TDVT1,TDVF2,TDVT6
     6707   02 012AA    414A4600 A   T56SEQ2  :TSEQ    TDVF1,TDVT2,TDVF6
     6708   02 012AB    41424600 A   T56SEQ3  :TSEQ    TDVF1,TDVF2,TDVF6
     6709   02 012AC    414A4E00 A   T56SEQ4  :TSEQ    TDVF1,TDVT2,TDVT6
     6710   02 012AD    00004AA4     TSEQ57   DATA     BA(T56SEQ1),BA(T56SEQ4),BA(T56SEQ4)
            02 012AE    00004AB0
            02 012AF    00004AB0
     6711   02 012B0    00004AA4     TSEQ89   DATA     BA(T56SEQ1),BA(T56SEQ4),BA(T56SEQ4)
            02 012B1    00004AB0
            02 012B2    00004AB0
     6712   02 012B3    00000083 A   T56BC57  DATA     131,0,132
            02 012B4    00000000 A
            02 012B5    00000084 A
     6713   02 012B6    00000083 A   T56BC89  DATA     131,1,1
            02 012B7    00000001 A
            02 012B8    00000001 A
     6714   02 012B9    00000000 A   T1IOCDX  DATA     0
     6715   02 012BA    00000D33     T56IOCD  DATA     DA(IOCD14),DA(IOCD11),DA(IOCD12)
            02 012BB    00000D2F
            02 012BC    00000D30
     6716   02 012BD    1FE3C5D9 A   T1BCMSG  TEXTC    'TERM BC    EXP XXXX  OSB   XXXX'
            02 012BE    D440C2C3 A
            02 012BF    40404040 A
            02 012C0    C5E7D740 A
            02 012C1    E7E7E7E7 A
            02 012C2    4040D6E2 A
            02 012C3    C2404040 A
            02 012C4    E7E7E7E7 A
     6717   02 012C5    6800049F     TST157   B        EXIT
     6718                            *                                                                   *A04
     6719                            *                                                                   *A04
     6720                            *                                                                   *A04
     6721   02 012C6    22600000 A   TST158   LI,6     0                                                 *A04
     6722   02 012C7    356015A2              STW,6    TST1INDX          RESET INDEX                     *A04
     6723   02 012C8    326015A2     T58M01   LW,6     TST1INDX          INDEX                           *A04
     6724   02 012C9    224FFFDF A            LI,4     -33               BUFFER INDEX                    *A04
     6725   02 012CA    32EC1A39              LW,14    INVCTBL,6         FETCH INVALID CHARACTER         *A04
     6726   02 012CB    35E822C6              STW,14   BUFFER2+33,4      STORE IN BUFFER2                *A04
     6727   02 012CC    654012CB              BIR,4    %-1               B: LOOP TILL BUFFER COMPLETED   *A04
     6728   02 012CD    22000D29     T58M02   LI,0     DA(IOCD6)         LOAD IOCD                       *A04
     6729   02 012CE    CCC01C3E              SIO,12   *:DEVADDR         ISSUE PRINT ORDER               *A04
     6730   02 012CF    22E00040 A            LI,14    64                                                *A04
     6731   02 012D0    6AF01D50              BAL,15   :DELAY            DELAY                           *A04
     6732   02 012D1    680012D2              B        %+1                                               *A04
     6733   02 012D2    6AF01D73              BAL,15   :ERRORT           TEST FOR DEVICE NOT READY       *A04
     6734   02 012D3    00004BF0              DATA     BA(T58SEQ1)                                       *A04
     6735   02 012D4    680012DA              B        T58M03            B: NO ERROR                     *A04
     6736                            *ERROR 5801                                                         *A04
     6737   02 012D5    EAF021F3              BAL,15   *:ERROR                                           *A04
     6738   02 012D6    000016A9 A            DATA     5801              #5801                           *A04
     6739   02 012D7    EAF02200              BAL,15   *:SENSE                                           *A04
     6740   02 012D8    2E0012D8              WAIT     %                                                 *A04
     6741   02 012D9    680012CD              B        T58M02            LOOP                            *A04
     6742   02 012DA    22E0012C A   T58M03   LI,14    300                                               *A04
     6743   02 012DB    6AF01D50              BAL,15   :DELAY            DELAY                           *A04
     6744   02 012DC    680012DD              B        %+1                                               *A04
     6745   02 012DD    331015A2              MTW,1    TST1INDX          INCR INDEX                      *A04
     6746   02 012DE    326015A2              LW,6     TST1INDX          INDEX                           *A04
     6747   02 012DF    31600002 A            CW,6     2                 HAS IT ISSUE PRINT ORDER TWICE  *A04
     6748   02 012E0    691012C8              BL       T58M01            B: NO                           *A04
     6749   02 012E1    32E0224A     T58M06   LW,14    =X'E7E7E7E7'      'XXXX' CHARACTER                *A04
     6750   02 012E2    224FFFDF A            LI,4     -33               BUFFER INDEX                    *A04
     6751   02 012E3    32FC1A39              LW,15    INVCTBL,6         FETCH INVALID CHARACTER         *A04
     6752   02 012E4    55F0000E A            STH,15   14                STORE TWO INVALID CHARACTER     *A04
     6753   02 012E5    35E822C6              STW,14   BUFFER2+33,4      STORE IN BUFFER                 *A04
     6754   02 012E6    654012E5              BIR,4    %-1               B: LOOP TILL BUFFER COMPLETE    *A04
     6755   02 012E7    22000D29     T58M04   LI,0     DA(IOCD6)         LOAD IOCD                       *A04
     6756   02 012E8    CCC01C3E              SIO,12   *:DEVADDR         ISSUE PRINT ORDER               *A04
     6757   02 012E9    22E00040 A            LI,14    64                                                *A04
     6758   02 012EA    6AF01D50              BAL,15   :DELAY            DELAY                           *A04
     6759   02 012EB    680012EC              B        %+1                                               *A04
     6760   02 012EC    6AF01D73              BAL,15   :ERRORT           TEST FOR DEVICE READY           *A04
     6761   02 012ED    00004BF0              DATA     BA(T58SEQ1)                                       *A04
     6762   02 012EE    680012F4              B        T58M05            NO ERRORS                       *A04
     6763                            *ERROR 5802                                                         *A04
     6764   02 012EF    EAF021F3              BAL,15   *:ERROR                                           *A04
     6765   02 012F0    000016A9 A            DATA     5801                                              *A04
     6766   02 012F1    EAF02200              BAL,15   *:SENSE                                           *A04
     6767   02 012F2    2E0012F2              WAIT     %                                                 *A04
     6768   02 012F3    680012E7              B        T58M04            LOOP                            *A04
     6769   02 012F4    22E0012C A   T58M05   LI,14    300                                               *A04
     6770   02 012F5    6AF01D50              BAL,15   :DELAY            DELAY                           *A04
     6771   02 012F6    680012F7              B        %+1                                               *A04
     6772   02 012F7    331015A2              MTW,1    TST1INDX          INCR INDEX                      *A04
     6773   02 012F8    326015A2              LW,6     TST1INDX          INDEX                           *A04
     6774   02 012F9    21600004 A            CI,6     4                 HAS IT ISSUE PRINT ORDER 4 TIMES*A04
     6775   02 012FA    691012E1              BL       T58M06            B: NO                           *A04
     6776   02 012FB    6800049F              B        EXIT              EXIT                            *A04
     6777   02 012FC    191A1B1D A   T58SEQ1  :TSEQ    TIOT1,TIOT2,TIOT3,TIOT5,TIOT6,TIOF7
            02 012FD    1E170000 A
     6778                            *                                                                   *A04
     6779   02 012FE    6800049F     TST159   B        EXIT
1 C00   19:44 JUN 20,'83    TELEFILE COMPREHENSIVE LINE PRINTER TEST 960-0606-H02                 PAGE   52
A    6781                            *
     6782                            *
     6783                            *
     6784   02 012FF    22E00060 A   TST160   LI,14    X'60'
     6785   02 01300    75E022A5              STB,14   BUFFER2           INHIBIT UPSPACE FORMAT
     6786   02 01301    351015A2              STW,1    TST1INDX          BYTE COUNT INDEX
     6787   02 01302    32E015A2     T60M01   LW,14    TST1INDX          BYTE COUNT
     6788   02 01303    55E61A6A              STH,14   IOCD15,3          STORE IN IOCD
     6789   02 01304    22A00000 A   T60M02   LI,10    0
     6790   02 01305    35A015A5              STW,10   TST1ERR           RESET ERROR FLAG
     6791   02 01306    CFC01C3E              HIO,12   *:DEVADDR         ISSUE HIO
     6792   02 01307    22000D35              LI,0     DA(IOCD15)        LOAD IOCD
     6793   02 01308    CCC01C3E              SIO,12   *:DEVADDR         INHIBIT UPSPACE
     6794   02 01309    6AF01FA5              BAL,15   :SAVESIO          SAVE SIO STATUS
     6795   02 0130A    6AF01D73              BAL,15   :ERRORT           TEST SIO
     6796   02 0130B    00000D18              DATA     BA(T60SEQ1)
     6797   02 0130C    68001310              B        T60M03            NO ERRORS
     6798                            *ERROR 6001
     6799   02 0130D    EAF021F3              BAL,15   *:ERROR
     6800   02 0130E    00001771 A            DATA     6001              #6001
     6801   02 0130F    68001336              B        T60M10
     6802                            *
     6803   02 01310    32E015B0     T60M03   LW,14    DELAYS
     6804   02 01311    6AF01D50              BAL,15   :DELAY            DELAY
     6805   02 01312    68001313              B        %+1
     6806   02 01313    6AF01D73              BAL,15   :ERRORT           TEST TIO
     6807   02 01314    00004CF8              DATA     BA(T60SEQ2)
     6808   02 01315    68001319              B        T60M04            DEVICE READY
     6809                            *ERROR 6002
     6810   02 01316    EAF021F3              BAL,15   *:ERROR
     6811   02 01317    00001772 A            DATA     6002              #6002
     6812   02 01318    68001336              B        T60M10
     6813                            *
     6814   02 01319    6AF01D73     T60M04   BAL,15   :ERRORT           TEST FOR PAPER MOTION
     6815   02 0131A    00000E70              DATA     BA(T60SEQ5)
     6816   02 0131B    6800131F              B        T60M05            B: NO PAPER MOTION
     6817                            *ERROR 6003
     6818   02 0131C    EAF021F3              BAL,15   *:ERROR
     6819   02 0131D    00001773 A            DATA     6003              #6003
     6820                            *
     6821   02 0131E    351015A5              STW,1    TST1ERR           SET ERROR FLAG
     6822   02 0131F    32E015A2     T60M05   LW,14    TST1INDX          INDEX
     6823   02 01320    38E00001 A            SW,14    1                 DECREMENT
     6824   02 01321    71E6000D A            CB,14    13,3              TEST BYTE COUNT
     6825   02 01322    68301326              BE       T60M07            B: BYTE COUNT = INDEX-1
     6826   02 01323    351015A5              STW,1    TST1ERR           SET ERROR FLAG
     6827                            *ERROR 6005
     6828   02 01324    EAF021F3     T60M06   BAL,15   *:ERROR
     6829   02 01325    00001775 A            DATA     6005              #6005
     6830                            *
     6831   02 01326    311015B2     T60M07   CW,1     TST1FLGM          IS IT MODEL 7450
     6832   02 01327    6830132A              BE       %+3               B: YES, MODEL 7450
     6833   02 01328    311015A2              CW,1     TST1INDX          BYTE COUNT:1
     6834   02 01329    6930132E              BNE      T60M08            BYTE COUNT NOT EQUAL 1
     6835   02 0132A    6AF01D73              BAL,15   :ERRORT           TEST TIO,OSB,BYTE CNT
     6836   02 0132B    00000E08              DATA     BA(T60SEQ3)
     6837   02 0132C    68001334              B        T60M09            NO ERRORS
     6838   02 0132D    68001331              B        %+4
     6839   02 0132E    6AF01D73     T60M08   BAL,15   :ERRORT           TEST TIO,OSB,BYTE CNT
     6840   02 0132F    00000E34              DATA     BA(T60SEQ4)
     6841   02 01330    68001334              B        T60M09            NO ERRORS
     6842                            *ERROR 6004
     6843   02 01331    EAF021F3              BAL,15   *:ERROR
     6844   02 01332    00001774 A            DATA     6004              #6004
     6845   02 01333    68001336              B        T60M10
     6846                            *
     6847   02 01334    311015A5     T60M09   CW,1     TST1ERR           TEST ERROR FLAG
     6848   02 01335    69301339              BNE      T60M11            B: NO ERRORS
     6849   02 01336    EAF02200     T60M10   BAL,15   *:SENSE
     6850   02 01337    2E001337              WAIT     %
     6851   02 01338    68001304              B        T60M02            LOOP
     6852   02 01339    331015A2     T60M11   MTW,1    TST1INDX          INCREMENT BYTE COUNT
     6853   02 0133A    32E015A2              LW,14    TST1INDX          BYTE COUNT
     6854   02 0133B    21E00002 A            CI,14    2                 BYTE COUNT:2
     6855   02 0133C    68201302              BLE      T60M01            B: BYTE COUNT <= 2
     6856   02 0133D    6800049F              B        EXIT              EXIT
     6857         02 00346           T60SEQ1  EQU      TSEQ1
     6858   02 0133E    11121B15 A   T60SEQ2  :TSEQ    TIOF1,TIOF2,TIOT3,TIOF5,TIOF6
            02 0133F    16000000 A
     6859         02 00382           T60SEQ3  EQU      TSEQ23
     6860         02 0038D           T60SEQ4  EQU      TSEQ26
     6861         02 0039C           T60SEQ5  EQU      TSEQ29
1 C00   19:44 JUN 20,'83    TELEFILE COMPREHENSIVE LINE PRINTER TEST 960-0606-H02                 PAGE   53
A    6863                            *
     6864                            *
     6865                            *
     6866   02 01340    22E00000 A   TST161   LI,14    0
     6867   02 01341    35E015A2              STW,14   TST1INDX          RESET INDEX
     6868   02 01342    22E00060 A            LI,14    X'60'
     6869   02 01343    75E01A88              STB,14   FORMAT            INHIBIT UPSPACE FORMAT
     6870   02 01344    CFC01C3E     T61M01   HIO,12   *:DEVADDR         ISSUE HIO
     6871   02 01345    6EC00000 A            AIO,12   0                 ISSUE AIO
     6872   02 01346    22E00010 A            LI,14    X'10'             IOCD FLAG (ICE)
     6873   02 01347    75E01A73              STB,14   IOCD20+1          STORE IN IOCD
     6874   02 01348    22000D39              LI,0     DA(IOCD20)        LOAD IOCD
     6875   02 01349    6AF01C0E              BAL,15   :IOEXECI          EXECUTE IO
     6876   02 0134A    32E015B0              LW,14    DELAYS
     6877   02 0134B    6AF01D50              BAL,15   :DELAY            DELAY
     6878   02 0134C    6800134D              B        %+1
     6879   02 0134D    6AF01AF7              BAL,15   :TIO              ISSUE TIO
     6880   02 0134E    FFFFC000 A            DATA     X'FFFFC000'
     6881   02 0134F    90004000 A            DATA     X'90004000'
     6882   02 01350    68001359              B        T61M03            NO ERRORS
     6883   02 01351    32D0000D A            LW,13    13                TIO STATUS
     6884   02 01352    69101356              BLZ      T61M02            B: INTERRUPT PENDING
     6885                            *ERROR 6101
     6886   02 01353    EAF021F3              BAL,15   *:ERROR
     6887   02 01354    000017D5 A            DATA     6101              #6101
     6888   02 01355    680013BC              B        T61M17
     6889                            *
     6890                            *ERROR 6102
     6891   02 01356    EAF021F3     T61M02   BAL,15   *:ERROR
     6892   02 01357    000017D6 A            DATA     6102              #6102
     6893   02 01358    680013BC              B        T61M17
     6894                            *
     6895   02 01359    32E015A2     T61M03   LW,14    TST1INDX          IS INDEX SET
     6896   02 0135A    69301362              BNEZ     T61M04            B: YES
     6897   02 0135B    6AF01B06              BAL,15   :AIO              ISSUE AIO
     6898   02 0135C    FFFFC002 A            DATA     X'FFFFC002'
     6899   02 0135D    00100000 A            DATA     X'00100000'
     6900   02 0135E    68001363              B        T61M05            NO ERRORS
     6901                            *ERROR 6103
     6902   02 0135F    EAF021F3              BAL,15   *:ERROR
     6903   02 01360    000017D7 A            DATA     6103              #6103
     6904   02 01361    680013BC              B        T61M17
     6905                            *
     6906   02 01362    CFC01C3E     T61M04   HIO,12   *:DEVADDR         ISSUE HIO
     6907   02 01363    6AF01AF7     T61M05   BAL,15   :TIO              ISSUE TIO
     6908   02 01364    FFFFC000 A            DATA     X'FFFFC000'
     6909   02 01365    10000000 A            DATA     X'10000000'
     6910   02 01366    6800136F              B        T61M07            NOERRORS
     6911   02 01367    32E015A2              LW,14    TST1INDX          IS INDEX SET
     6912   02 01368    6930136C              BNEZ     T61M06            B: YES
     6913                            *ERROR 6114
     6914   02 01369    EAF021F3              BAL,15   *:ERROR
     6915   02 0136A    000017E2 A            DATA     6114              #6114
     6916   02 0136B    680013BC              B        T61M17
     6917                            *
     6918                            *ERROR 6104
     6919   02 0136C    EAF021F3     T61M06   BAL,15   *:ERROR
     6920   02 0136D    000017D8 A            DATA     6104              #6104
     6921   02 0136E    680013BC              B        T61M17
     6922                            *
     6923   02 0136F    22E00040 A   T61M07   LI,14    X'40'             IOCD FLAG (IZC)
     6924   02 01370    75E01A73              STB,14   IOCD20+1          STORE IN IOCD
     6925   02 01371    22000D39              LI,0     DA(IOCD20)        LOAD IOCD
     6926   02 01372    6AF01C0E              BAL,15   :IOEXECI          EXECUTE IO
     6927   02 01373    32E015B0              LW,14    DELAYS
     6928   02 01374    6AF01D50              BAL,15   :DELAY            DELAY
     6929   02 01375    68001376              B        %+1
     6930   02 01376    6AF01AF7              BAL,15   :TIO              ISSUE TIO
     6931   02 01377    FFFFC000 A            DATA     X'FFFFC000'
     6932   02 01378    90004000 A            DATA     X'90004000'
     6933   02 01379    68001382              B        T61M09            NO ERRORS
     6934   02 0137A    32D0000D A            LW,13    13                TIO STATUS
     6935   02 0137B    6910137F              BLZ      T61M08            B: INTERRUPT PENDING
     6936                            *ERROR 6105
     6937   02 0137C    EAF021F3              BAL,15   *:ERROR
     6938   02 0137D    000017D9 A            DATA     6105              #6105
     6939   02 0137E    680013BC              B        T61M17
     6940                            *
     6941                            *ERROR 6106
     6942   02 0137F    EAF021F3     T61M08   BAL,15   *:ERROR
     6943   02 01380    000017DA A            DATA     6106              #6106
     6944   02 01381    680013BC              B        T61M17
     6945                            *
     6946   02 01382    32E015A2     T61M09   LW,14    TST1INDX          IS INDEX SET
     6947   02 01383    6930138B              BNEZ     T61M10            B: YES
     6948   02 01384    6AF01B06              BAL,15   :AIO              ISSUE AIO
     6949   02 01385    FFFFC002 A            DATA     X'FFFFC002'
     6950   02 01386    00200000 A            DATA     X'00200000'
     6951   02 01387    6800138C              B        T61M101           NO ERRORS
     6952                            *ERROR 6107
     6953   02 01388    EAF021F3              BAL,15   *:ERROR
     6954   02 01389    000017DB A            DATA     6107              #6107
     6955   02 0138A    680013BC              B        T61M17
     6956                            *
     6957   02 0138B    CFC01C3E     T61M10   HIO,12   *:DEVADDR         ISSUE HIO
     6958   02 0138C    6AF01AF7     T61M101  BAL,15   :TIO              ISSUE TIO
     6959   02 0138D    FFFFC000 A            DATA     X'FFFFC000'
     6960   02 0138E    10000000 A            DATA     X'10000000'
     6961   02 0138F    68001393              B        T61M11            NO ERRORS
     6962                            *ERROR 6108
     6963   02 01390    EAF021F3              BAL,15   *:ERROR
     6964   02 01391    000017DC A            DATA     6108              #6108
     6965   02 01392    680013BC              B        T61M17
     6966                            *
     6967   02 01393    22000D3A     T61M11   LI,0     DA(IOCD21)        LOAD IOCD
     6968   02 01394    CCC01C3E              SIO,12   *:DEVADDR         ISSUE INVALID ORDER
     6969   02 01395    324015A7              LW,4     DELYTM
     6970   02 01396    64401396              BDR,4    %                 DELAY
     6971   02 01397    6AF01AF7              BAL,15   :TIO              ISSUE TIO
     6972   02 01398    FFFFC000 A            DATA     X'FFFFC000'
     6973   02 01399    98004000 A            DATA     X'98004000'
     6974   02 0139A    680013A3              B        T61M13            NO ERRORS
     6975   02 0139B    32D0000D A            LW,13    13                TIO STATUS
     6976   02 0139C    691013A0              BLZ      T61M12            B: INTERRUPT PENDING
     6977                            *ERROR 6109
     6978   02 0139D    EAF021F3              BAL,15   *:ERROR
     6979   02 0139E    000017DD A            DATA     6109              #6109
     6980   02 0139F    680013BC              B        T61M17
     6981                            *ERROR 6110
     6982   02 013A0    EAF021F3     T61M12   BAL,15   *:ERROR
     6983   02 013A1    000017DE A            DATA     6110              #6110
     6984   02 013A2    680013BC              B        T61M17
     6985                            *
     6986   02 013A3    32E015A2     T61M13   LW,14    TST1INDX          IS INDEX SET
     6987   02 013A4    693013B0              BNEZ     T61M15            B: YES
     6988   02 013A5    6AF01B06              BAL,15   :AIO              ISSUE AIO
     6989   02 013A6    FFFFC002 A            DATA     X'FFFFC002'
     6990   02 013A7    00084000 A            DATA     X'00084000'
     6991   02 013A8    680013B1              B        T61M151           NO ERRORS
     6992                            *ERROR 6111
     6993   02 013A9    EAF021F3              BAL,15   *:ERROR
     6994   02 013AA    000017DF A            DATA     6111              #6111
     6995   02 013AB    680013BC              B        T61M17
     6996                            *
     6997   02 013AC    311015A2     T61M14   CW,1     TST1INDX          IS INDEX SET
     6998   02 013AD    6830049F              BE       EXIT              B: YES, GO TO EXIT
     6999   02 013AE    331015A2              MTW,1    TST1INDX          INCREMENT INDEX
     7000   02 013AF    68001344              B        T61M01            REPEAT
     7001   02 013B0    CFC01C3E     T61M15   HIO,12   *:DEVADDR         ISSUE HIO
     7002   02 013B1    6AF01AF7     T61M151  BAL,15   :TIO              ISSUE TIO
     7003   02 013B2    F7FFC000 A            DATA     X'F7FFC000'
     7004   02 013B3    10000000 A            DATA     X'10000000'
     7005   02 013B4    680013AC              B        T61M14            NO ERRORS
     7006   02 013B5    31D02250              CW,13    =X'08000000'      TEST UNUSUAL END STATUS
     7007   02 013B6    694013BA              BCS,4    T61M16            B: UNUSUAL END
     7008                            *ERROR 6112
     7009   02 013B7    EAF021F3              BAL,15   *:ERROR
     7010   02 013B8    000017E0 A            DATA     6112              #6112
     7011   02 013B9    680013BC              B        T61M17
     7012                            *
     7013                            *ERROR 6113
     7014   02 013BA    EAF021F3     T61M16   BAL,15   *:ERROR
     7015   02 013BB    000017E1 A            DATA     6113              #6113
     7016   02 013BC    EAF02200     T61M17   BAL,15   *:SENSE
     7017   02 013BD    2E0013BD              WAIT     %
     7018   02 013BE    68001344              B        T61M01            LOOP
     7019   02 013BF    680013AC              B        T61M14
1 C00   19:44 JUN 20,'83    TELEFILE COMPREHENSIVE LINE PRINTER TEST 960-0606-H02                 PAGE   54
A    7021                            *
     7022                            *
     7023                            *
     7024   02 013C0    32E013EC     TST162   LW,14    T62XPSD
     7025   02 013C1    35E0005C A            STW,14   X'5C'             SET UP IO INTERRUPT LINKAGE
     7026   02 013C2    6AF01FE3              BAL,15   :INTD             DISARM IO INTERRUPT
     7027   02 013C3    22E00060 A            LI,14    X'60'
     7028   02 013C4    75E01A88              STB,14   FORMAT            INHIBIT UPSPACE FORMAT
     7029   02 013C5    22000D22              LI,0     DA(IOCD1)         LOAD IOCD
     7030   02 013C6    6AF01C0F              BAL,15   :IOEXEC           EXECUTE IO
     7031   02 013C7    224FFFF6 A            LI,4     -10
     7032   02 013C8    654013C8              BIR,4    %                 DELAY
     7033   02 013C9    6AF01D73              BAL,15   :ERRORT           TEST INTERRUPT PENDING
     7034   02 013CA    00004FB4              DATA     BA(T62SEQ1)
     7035   02 013CB    680013CF              B        T62M01            YES, INTERRUPT PENDING
     7036                            *ERROR 6201
     7037   02 013CC    EAF021F3              BAL,15   *:ERROR           #6201
     7038   02 013CD    00001839 A            DATA     6201
     7039   02 013CE    68001413              B        T63M03
     7040                            *
     7041   02 013CF    33001D72     T62M01   MTW,0    :INTRECF          TEST INTERRUPT REC FLAG
     7042   02 013D0    683013D4              BEZ      T62M02            B: PROGRAM WAS NOT INTERRUPTED
     7043                            *ERROR 6202
     7044   02 013D1    EAF021F3              BAL,15   *:ERROR
     7045   02 013D2    0000183A A            DATA     6202              #6202
     7046   02 013D3    680013D9              B        T62M03
     7047                            *
     7048   02 013D4    6AF01FDD     T62M02   BAL,15   :INTAE            ARM AND ENABLE IO
     7049   02 013D5    31101D72              CW,1     :INTRECF          TEST INT. REC FLAG
     7050   02 013D6    683013DD              BE       T62M04            B: INTERRUPT RECEIVE FLAG SET
     7051                            *ERROR 6203
     7052   02 013D7    EAF021F3              BAL,15   *:ERROR
     7053   02 013D8    0000183B A            DATA     6203              #6203
     7054   02 013D9    CFC01C3E     T62M03   HIO,12   *:DEVADDR         ISSUE HIO
     7055   02 013DA    EAF02200              BAL,15   *:SENSE
     7056   02 013DB    2E0013DB              WAIT     %
     7057   02 013DC    680013C0              B        TST162            LOOP
     7058   02 013DD    6AF01FE3     T62M04   BAL,15   :INTD             DISARM IS INTERRUPT
     7059   02 013DE    6800049F              B        EXIT              EXIT
     7060   02 013DF    35101D72     T62REC   STW,1    :INTRECF          SET IO INTER REC'D FLAG
     7061   02 013E0    6ED00000 A            AIO,13   0                 ISSUE AIO
     7062   02 013E1    6AF01D73              BAL,15   :ERRORT           TEST FOR INTERRUPT PENDING CLEARED
     7063   02 013E2    00004FB8              DATA     BA(T62SEQ2)
     7064   02 013E3    680013E6              B        %+3               NO ERROR
     7065                            *ERROR 6204
     7066   02 013E4    EAF021F3              BAL,15   *:ERROR
     7067   02 013E5    0000183C A            DATA     6204              #6204
     7068   02 013E6    0E2013E8              LPSD,2   T62PSD            EXIT
     7069                                     BOUND    8
     7070   02 013E8    00000000 A   T62PSD   DATA     0,0
            02 013E9    00000000 A
     7071   02 013EA    000013DF              DATA     T62REC,0
            02 013EB    00000000 A
     7072   02 013EC    0F0013E8     T62XPSD  XPSD,0   T62PSD
     7073   02 013ED    18000000 A   T62SEQ1  :TSEQ    TIOT0
     7074   02 013EE    10000000 A   T62SEQ2  :TSEQ    TIOF0
1 C00   19:44 JUN 20,'83    TELEFILE COMPREHENSIVE LINE PRINTER TEST 960-0606-H02                 PAGE   55
A    7076                            *
     7077                            *
     7078                            *
     7079   02 013EF    224FFFDF A   TST163   LI,4     -33               BUFFER INDEX
     7080   02 013F0    32E0225D              LW,14    =X'40404040'      BLANK CHARACTERS
     7081   02 013F1    35E822C6              STW,14   BUFFER2+33,4      STORE IN BUFFER2
     7082   02 013F2    654013F1              BIR,4    %-1               B: LOOP TILL COMPLETE
     7083   02 013F3    351015A2              STW,1    TST1INDX          INDEX = 1
     7084   02 013F4    22E00000 A   T63M01   LI,14    0
     7085   02 013F5    35E015A5              STW,14   TST1ERR           RESET ERROR FLAG
     7086   02 013F6    22E00060 A            LI,14    X'60'
     7087   02 013F7    75E01A88              STB,14   FORMAT            INHIBIT UPSPACE FORMAT
     7088   02 013F8    32E015A2              LW,14    TST1INDX          BYTE COUNT
     7089   02 013F9    55E21A67              STH,14   IOCD13+3,1        STORE IN IOCD
     7090   02 013FA    CFC01C3E              HIO,12   *:DEVADDR         ISSUE HIO
     7091   02 013FB    22000D32              LI,0     DA(IOCD13)        LOAD IOCD
     7092   02 013FC    CCC01C3E              SIO,12   *:DEVADDR         PRINT WITH INHIBIT UPSPACE
     7093   02 013FD    6AF01FA5              BAL,15   :SAVESIO          SAVE SIO STATUS
     7094   02 013FE    6AF01D73              BAL,15   :ERRORT           TEST SIO
     7095   02 013FF    00000D18              DATA     BA(T63SEQ4)
     7096   02 01400    68001404              B        T63M011           B: NO ERROR
     7097                            *ERROR 6306
     7098   02 01401    EAF021F3              BAL,15   *:ERROR           #6306
     7099   02 01402    000018A2 A            DATA     6306
     7100   02 01403    6800142A              B        T63M09
     7101   02 01404    32E015B0     T63M011  LW,14    DELAYS
     7102   02 01405    6AF01D50              BAL,15   :DELAY            DELAY
     7103   02 01406    68001407              B        %+1
     7104   02 01407    6AF01D73              BAL,15   :ERRORT           TEST FOR PAPER MOTION
     7105   02 01408    00000E70              DATA     BA(T63SEQ5)
     7106   02 01409    6800140D              B        T63M02            NO PAPER MOTION
     7107   02 0140A    351015A5              STW,1    TST1ERR           RESET ERROR FLAG
     7108                            *ERROR 6301
     7109   02 0140B    EAF021F3              BAL,15   *:ERROR
     7110   02 0140C    0000189D A            DATA     6301              #6301
     7111                            *
     7112   02 0140D    22E00000 A   T63M02   LI,14    0
     7113   02 0140E    51E2000D A            CH,14    13,1              BYTE COUNT:0
     7114   02 0140F    68301413              BE       T63M03            B: BYTE COUNT = 0
     7115   02 01410    351015A5              STW,1    TST1ERR           SET ERROR FLAG
     7116                            *ERROR 6302
     7117   02 01411    EAF021F3              BAL,15   *:ERROR
     7118   02 01412    0000189E A            DATA     6302              #6302
     7119                            *
     7120   02 01413    32E015A2     T63M03   LW,14    TST1INDX          INDEX
     7121   02 01414    21E00084 A            CI,14    132               INDEX:132
     7122   02 01415    6830141C              BE       T63M04            B: INDEX = 132
     7123   02 01416    6AF01D73              BAL,15   :ERRORT           TEST OSB
     7124   02 01417    000050C8              DATA     BA(T63SEQ2)
     7125   02 01418    68001422              B        T63M06            NO ERRORS
     7126                            *ERROR 6303
     7127   02 01419    EAF021F3              BAL,15   *:ERROR
     7128   02 0141A    0000189F A            DATA     6303              #6303
     7129   02 0141B    68001421              B        T63M05
     7130                            *
     7131   02 0141C    6AF01D73     T63M04   BAL,15   :ERRORT           TEST OSB
     7132   02 0141D    000050CC              DATA     BA(T63SEQ3)
     7133   02 0141E    68001422              B        T63M06            NO ERRORS
     7134                            *ERROR 6304
     7135   02 0141F    EAF021F3              BAL,15   *:ERROR
     7136   02 01420    000018A0 A            DATA     6304              #6304
     7137                            *
     7138   02 01421    351015A5     T63M05   STW,1    TST1ERR           SET ERROR FLAG
     7139   02 01422    6AF01D73     T63M06   BAL,15   :ERRORT           TEST TIO,OSB,TDV
     7140   02 01423    00000E48              DATA     BA(T63SEQ1)
     7141   02 01424    68001428              B        T63M07            NO ERRORS
     7142                            *ERROR 6305
     7143   02 01425    EAF021F3              BAL,15   *:ERROR
     7144   02 01426    000018A1 A            DATA     6305              #6305
     7145   02 01427    6800142A              B        T63M09
     7146                            *
     7147   02 01428    311015A5     T63M07   CW,1     TST1ERR           TEST ERROR FLAG
     7148   02 01429    6930142D              BNE      T63M08            B: NO ERROR
     7149   02 0142A    EAF02200     T63M09   BAL,15   *:SENSE
     7150   02 0142B    2E00142B              WAIT     %
     7151   02 0142C    680013F4              B        T63M01            LOOP
     7152   02 0142D    331015A2     T63M08   MTW,1    TST1INDX          INDEX + 1
     7153   02 0142E    32E015A2              LW,14    TST1INDX          INDEX
     7154   02 0142F    21E00085 A            CI,14    133               TST1INDX:133
     7155   02 01430    682013F4              BLE      T63M01            B: TST1INDX <= 133
     7156   02 01431    6800049F              B        EXIT              EXIT
     7157                            *
     7158         02 00392           T63SEQ1  EQU      TSEQ27
     7159   02 01432    28000000 A   T63SEQ2  :TSEQ    OSBT0
     7160   02 01433    20000000 A   T63SEQ3  :TSEQ    OSBF0
     7161         02 00346           T63SEQ4  EQU      TSEQ1
     7162         02 0039C           T63SEQ5  EQU      TSEQ29
1 C00   19:44 JUN 20,'83    TELEFILE COMPREHENSIVE LINE PRINTER TEST 960-0606-H02                 PAGE   56
A    7164                            *
     7165                            *
     7166                            *
     7167   02 01434    224FFFDF A   TST164   LI,4     -33               BUFFER INDEX
     7168   02 01435    32E0225D              LW,14    =X'40404040'      BLANK CHARACTERS
     7169   02 01436    35E822C6              STW,14   BUFFER2+33,4      STORE IN BUFFER2
     7170   02 01437    65401436              BIR,4    %-1               B: LOOP TILL BUFFER COMPLETE
     7171   02 01438    351015A2              STW,1    TST1INDX          INDEX = 1
     7172   02 01439    22E00060 A            LI,14    X'60'
     7173   02 0143A    75E01A88              STB,14   FORMAT            INHIBIT UPSPACE FORMAT
     7174   02 0143B    22E00000 A   T64M01   LI,14    0
     7175   02 0143C    35E015B6              STW,14   TST1FLAG          FIRST PRINT ORDER FLAG
     7176   02 0143D    CFC01C3E              HIO,12   *:DEVADDR         ISSUE HIO
     7177   02 0143E    22E00000 A   T64M02   LI,14    0
     7178   02 0143F    35E015A5              STW,14   TST1ERR           RESET ERROR FLAG
     7179   02 01440    32E015A2              LW,14    TST1INDX          BYTE COUNT
     7180   02 01441    55E21A67              STH,14   IOCD13+3,1        STORE IN IOCD
     7181   02 01442    22000D32              LI,0     DA(IOCD13)        LOAD IOCD
     7182   02 01443    CCC01C3E              SIO,12   *:DEVADDR         PRINT BLANK WITH INHIBIT UPSPACE
     7183   02 01444    6AF01FA5              BAL,15   :SAVESIO          SAVE SIO
     7184   02 01445    6AF01D73              BAL,15   :ERRORT           TEST SIO
     7185   02 01446    00000D18              DATA     BA(T64SEQ7)
     7186   02 01447    6800144E              B        T64M03            NO ERRORS
     7187   02 01448    22E01907 A            LI,14    6407
     7188   02 01449    30E015B6              AW,14    TST1FLAG          SPECIFY ERROR NUMBER
     7189   02 0144A    35E0144C              STW,14   %+2
     7190                            *ERROR 6407/6408
     7191   02 0144B    EAF021F3              BAL,15   *:ERROR           #6407/6408
     7192   02 0144C    00000000 A            DATA     0
     7193   02 0144D    68001485              B        T64M12
     7194                            *
     7195   02 0144E    6AF01D73     T64M03   BAL,15   :ERRORT           TEST FOR PAPER MOTION
     7196   02 0144F    00000E70              DATA     BA(T64SEQ4)
     7197   02 01450    68001457              B        T64M031           NO PAPER MOTION
     7198   02 01451    351015A5              STW,1    TST1ERR           SET ERROR FLAG
     7199   02 01452    22E01901 A            LI,14    6401
     7200   02 01453    30E015B6              AW,14    TST1FLAG          SPECIFY ERROR NUMBER
     7201   02 01454    35E01456              STW,14   %+2               SAVE
     7202                            *ERROR 6401/6402
     7203   02 01455    EAF021F3              BAL,15   *:ERROR
     7204   02 01456    00000000 A            DATA     0                 #6401/6402
     7205                            *
     7206   02 01457    32E015B1     T64M031  LW,14    DELAYSP
     7207   02 01458    6AF01D50              BAL,15   :DELAY            DELAY
     7208   02 01459    6800145A              B        %+1
     7209   02 0145A    22E00000 A   T64M04   LI,14    0
     7210   02 0145B    51E2000D A            CH,14    13,1              BYTE COUNT:0
     7211   02 0145C    68301463              BE       T64M05            B: BYTE COUNT = 0
     7212   02 0145D    351015A5              STW,1    TST1ERR           SET ERROR FLAG
     7213   02 0145E    22E01903 A            LI,14    6403
     7214   02 0145F    30E015B6              AW,14    TST1FLAG          SPECIFY ERROR NUMBER
     7215   02 01460    35E01462              STW,14   %+2
     7216                            *ERROR 6403/6404
     7217   02 01461    EAF021F3              BAL,15   *:ERROR
     7218   02 01462    00000000 A            DATA     0                 #6403/6404
     7219                            *
     7220   02 01463    6AF01D73     T64M05   BAL,15   :ERRORT           TEST TIO,OSB
     7221   02 01464    00000E5C              DATA     BA(T64SEQ1)
     7222   02 01465    6800146C              B        T64M06            NO ERRORS
     7223   02 01466    351015A5              STW,1    TST1ERR           SET ERROR FLAG
     7224   02 01467    22E01905 A            LI,14    6405
     7225   02 01468    30E015B6              AW,14    TST1FLAG          SPECIFY ERROR NUMBER
     7226   02 01469    35E0146B              STW,14   %+2               SAVE
     7227                            *ERROR 6405/6406
     7228   02 0146A    EAF021F3              BAL,15   *:ERROR
     7229   02 0146B    00000000 A            DATA     0                 #6405/6406
     7230                            *
     7231   02 0146C    311015B6     T64M06   CW,1     TST1FLAG          TEST PRINT ORDER FLAG
     7232   02 0146D    6830147D              BE       T64M10            SECOND PRINT ORDER
     7233   02 0146E    6AF01D73              BAL,15   :ERRORT           TEST TDV
     7234   02 0146F    00005250              DATA     BA(T64SEQ2)
     7235   02 01470    68001474              B        T64M07            NO ERRORS
     7236                            *ERROR 6409
     7237   02 01471    EAF021F3              BAL,15   *:ERROR
     7238   02 01472    00001909 A            DATA     6409              #6409
     7239   02 01473    68001476              B        T64M08
     7240                            *
     7241   02 01474    311015A5     T64M07   CW,1     TST1ERR           TEST ERROR FLAG
     7242   02 01475    6930147B              BNE      T64M09            B: NO ERROR
     7243   02 01476    CFC01C3E     T64M08   HIO,12   *:DEVADDR         ISSUE HIO
     7244   02 01477    EAF02200              BAL,15   *:SENSE
     7245   02 01478    2E001478              WAIT     %
     7246   02 01479    6800143E              B        T64M02            LOOP
     7247   02 0147A    6800049F              B        EXIT              EXIT
     7248   02 0147B    351015B6     T64M09   STW,1    TST1FLAG          SECOND PRINT ORDER FLAG
     7249   02 0147C    6800143E              B        T64M02
     7250   02 0147D    6AF01D73     T64M10   BAL,15   :ERRORT           TEST TDV
     7251   02 0147E    00005254              DATA     BA(T64SEQ3)
     7252   02 0147F    68001483              B        T64M11            NO ERRORS
     7253                            *ERROR 6410
     7254   02 01480    EAF021F3              BAL,15   *:ERROR
     7255   02 01481    0000190A A            DATA     6410              #6410
     7256   02 01482    68001485              B        T64M12
     7257                            *
     7258   02 01483    311015A5     T64M11   CW,1     TST1ERR           TEST ERROR FLAG
     7259   02 01484    69301489              BNE      T64M13
     7260   02 01485    CFC01C3E     T64M12   HIO,12   *:DEVADDR         ISSUE HIO
     7261   02 01486    EAF02200              BAL,15   *:SENSE
     7262   02 01487    2E001487              WAIT     %
     7263   02 01488    6800143E              B        T64M02            LOOP
     7264   02 01489    6AF01D73     T64M13   BAL,15   :ERRORT           TEST TYPELINE SECTOR
     7265   02 0148A    00005258              DATA     BA(T64SEQ6)
     7266   02 0148B    6800148F              B        T64M14            NO ERRORS
     7267                            *ERROR 6411
     7268   02 0148C    EAF021F3              BAL,15   *:ERROR
     7269   02 0148D    0000190B A            DATA     6411              6411
     7270                            *
     7271   02 0148E    68001485              B        T64M12
     7272   02 0148F    331015A2     T64M14   MTW,1    TST1INDX          INDEX + 1
     7273   02 01490    32E015A2              LW,14    TST1INDX          INDEX
     7274   02 01491    21E00081 A            CI,14    129               INDEX:129
     7275   02 01492    6820143B              BLE      T64M01            B: INDEX <= 129
     7276   02 01493    6800049F              B        EXIT              EXIT
     7277                            *
     7278         02 00397           T64SEQ1  EQU      TSEQ28
     7279   02 01494    4E000000 A   T64SEQ2  :TSEQ    TDVT6
     7280   02 01495    46000000 A   T64SEQ3  :TSEQ    TDVF6
     7281         02 0039C           T64SEQ4  EQU      TSEQ29
     7282   02 01496    49000000 A   T64SEQ6  :TSEQ    TDVT1
     7283         02 00346           T64SEQ7  EQU      TSEQ1
1 C00   19:44 JUN 20,'83    TELEFILE COMPREHENSIVE LINE PRINTER TEST 960-0606-H02                 PAGE   57
A    7285                            *
     7286                            *
     7287                            *
     7288   02 01497    22E00060 A   TST165   LI,14    X'60'
     7289   02 01498    75E01A88              STB,14   FORMAT            INHIBIT UPSPACE FORMAT
     7290   02 01499    224FFFDF A            LI,4     -33               BUFFER INDEX
     7291   02 0149A    32E0225D              LW,14    =X'40404040'      BLANK CHARACTER
     7292   02 0149B    35E822C6              STW,14   BUFFER2+33,4      STORE IN BUFFERI
     7293   02 0149C    6540149B              BIR,4    %-1               B: LOOP TILL BUFFER COMPLETE
     7294   02 0149D    CFC01C3E     T65M01   HIO,12   *:DEVADDR         ISSUE HIO
     7295   02 0149E    22000D3B              LI,0     DA(IOCD22)        LOAD IOCD
     7296   02 0149F    6AF01C0E              BAL,15   :IOEXECI          INTERRUPT ON DTC ORDER
     7297   02 014A0    31101C8D              CW,1     MOD50ERR          TEST FOR MODEL 7450 PRINT ERROR FLG
     7298   02 014A1    693014A5              BNE      T65M05            B: NO ERROR
     7299                            *ERROR 6504
     7300   02 014A2    EAF021F3              BAL,15   *:ERROR
     7301   02 014A3    00001968 A            DATA     6504              6504
     7302                            *
     7303   02 014A4    351015A5              STW,1    TST1ERR           SET ERROR FLAG
     7304   02 014A5    32E015B1     T65M05   LW,14    DELAYSP
     7305   02 014A6    6AF01D50              BAL,15   :DELAY            DELAY
     7306   02 014A7    680014A8              B        %+1
     7307   02 014A8    6AF01AF7              BAL,15   :TIO              ISSUE TIO
     7308   02 014A9    FFFFC000 A            DATA     X'FFFFC000'
     7309   02 014AA    90004000 A            DATA     X'90004000'
     7310   02 014AB    680014B4              B        T65M03            NO ERRORS
     7311   02 014AC    32D0000D A            LW,13    13                TIO STATUS
     7312   02 014AD    691014B1              BLZ      T65M02            B: INTERRUPT PENDING
     7313                            *ERROR 6501
     7314   02 014AE    EAF021F3              BAL,15   *:ERROR
     7315   02 014AF    00001965 A            DATA     6501              #6501
     7316   02 014B0    680014BA              B        T65M04
     7317                            *
     7318                            *ERROR 6502
     7319   02 014B1    EAF021F3     T65M02   BAL,15   *:ERROR
     7320   02 014B2    00001966 A            DATA     6502              #6502
     7321   02 014B3    680014BA              B        T65M04
     7322                            *
     7323   02 014B4    6AF01B06     T65M03   BAL,15   :AIO              ISSUE AIO
     7324   02 014B5    FFFFC002 A            DATA     X'FFFFC002'
     7325   02 014B6    40000000 A            DATA     X'40000000'
     7326   02 014B7    680014BE              B        T65M06            NO ERRORS
     7327                            *ERROR 6503
     7328   02 014B8    EAF021F3              BAL,15   *:ERROR
     7329   02 014B9    00001967 A            DATA     6503              #6503
     7330   02 014BA    EAF02200     T65M04   BAL,15   *:SENSE
     7331   02 014BB    2E0014BB              WAIT     %
     7332   02 014BC    6800149D              B        T65M01            LOOP
     7333   02 014BD    6800049F              B        EXIT              EXIT
     7334   02 014BE    311015A5     T65M06   CW,1     TST1ERR           TEST FOR ERROR
     7335   02 014BF    683014BA              BE       T65M04            B: ERROR
     7336   02 014C0    6800049F              B        EXIT              EXIT
1 C00   19:44 JUN 20,'83    TELEFILE COMPREHENSIVE LINE PRINTER TEST 960-0606-H02                 PAGE   58
A    7338                            *
     7339                            *
     7340                            *
     7341   02 014C1    22E00060 A   TST166   LI,14    X'60'
     7342   02 014C2    75E01A88              STB,14   FORMAT            INHIBIT UP SPACE FORMAT
     7343   02 014C3    224FFFDF A            LI,4     -33               BUFFER INDEX
     7344   02 014C4    32E0225D              LW,14    =X'40404040'      BLANK CHARACTER
     7345   02 014C5    35E822C6              STW,14   BUFFER2+33,4      STORE IN BUFFERI
     7346   02 014C6    654014C5              BIR,4    %-1               B: LOOP TILL BUFFER COMPLETE
     7347   02 014C7    CFC01C3E     T66M01   HIO,12   *:DEVADDR         ISSUE HIO
     7348   02 014C8    22E00005 A            LI,14    X'05'             PRINT WITH FORMAT ORDER
     7349   02 014C9    75E01A7A              STB,14   IOCD23            STORE IN IOCD
     7350   02 014CA    22000D3D              LI,0     DA(IOCD23)        LOAD IOCD
     7351   02 014CB    CCC01C3E              SIO,12   *:DEVADDR         PRINT WITH INHIBIT UPSPACE
     7352   02 014CC    6AF01FA5              BAL,15   :SAVESIO          SAVE SIO STATUS
     7353   02 014CD    6AF01D73              BAL,15   :ERRORT           TEST SIO
     7354   02 014CE    00000D18              DATA     BA(T66SEQ1)
     7355   02 014CF    680014D3              B        T66M011           B: NO ERRORS
     7356                            *ERROR 6612
     7357   02 014D0    EAF021F3              BAL,15   *:ERROR
     7358   02 014D1    000019D4 A            DATA     6612              6612
     7359                            *
     7360   02 014D2    680014F3              B        T66M06
     7361   02 014D3    32E015B1     T66M011  LW,14    DELAYSP
     7362   02 014D4    25E00401 A            SAS,14   1
     7363   02 014D5    6AF01D50              BAL,15   :DELAY            DELAY
     7364   02 014D6    680014D7              B        %+1
     7365   02 014D7    6AF01AF7              BAL,15   :TIO              ISSUE TIO
     7366   02 014D8    FFFFC000 A            DATA     X'FFFFC000'
     7367   02 014D9    10000000 A            DATA     X'10000000'
     7368   02 014DA    680014EA              B        T66M04            NO ERRORS
     7369   02 014DB    72E0000D A            LB,14    13                TIO STATUS
     7370   02 014DC    21E00006 A            CI,14    X'06'             IS CONTR BUSY
     7371   02 014DD    684014E2              BCR,4    T66M02            B: NOT BUSY
     7372   02 014DE    CFC01C3E              HIO,12   *:DEVADDR         ISSUE HIO
     7373                            *ERROR 6601
     7374   02 014DF    EAF021F3              BAL,15   *:ERROR
     7375   02 014E0    000019C9 A            DATA     6601              #6601
     7376   02 014E1    680014F3              B        T66M06
     7377                            *
     7378   02 014E2    31D02251     T66M02   CW,13    =X'EF000000'      IS CONTR BITS IN ERROR
     7379   02 014E3    684014E7              BCR,4    T66M03            B: NO
     7380                            *ERROR 6602
     7381   02 014E4    EAF021F3              BAL,15   *:ERROR
     7382   02 014E5    000019CA A            DATA     6602              #6602
     7383   02 014E6    680014F3              B        T66M06
     7384                            *
     7385                            *ERROR 6603
     7386   02 014E7    EAF021F3     T66M03   BAL,15   *:ERROR
     7387   02 014E8    000019CB A            DATA     6603              #6603
     7388   02 014E9    680014F3              B        T66M06
     7389                            *
     7390   02 014EA    72E61C0D     T66M04   LB,14    :STATUSCC,3       BYTE COUNT
     7391   02 014EB    683014EF              BEZ      T66M05            B: BYTE COUNT = 0
     7392                            *ERROR 6604
     7393   02 014EC    EAF021F3              BAL,15   *:ERROR
     7394   02 014ED    000019CC A            DATA     6604              #6604
     7395   02 014EE    680014F3              B        T66M06
     7396                            *
     7397   02 014EF    21C00D40     T66M05   CI,12    DA(IOCD23+6)      TEST FOR LAST IOCD
     7398   02 014F0    683014F6              BE       T66M07            2ND IOCD
     7399                            *ERROR 6605
     7400   02 014F1    EAF021F3              BAL,15   *:ERROR
     7401   02 014F2    000019CD A            DATA     6605              #6605
     7402   02 014F3    EAF02200     T66M06   BAL,15   *:SENSE
     7403   02 014F4    2E0014F4              WAIT     %
     7404   02 014F5    680014C7              B        T66M01            LOOP
     7405   02 014F6    CFC01C3E     T66M07   HIO,12   *:DEVADDR         ISSUE HIO
     7406   02 014F7    22E00000 A            LI,14    0
     7407   02 014F8    75E01A7A              STB,14   IOCD23            STORE INVALID ORDER
     7408   02 014F9    22000D3D              LI,0     DA(IOCD23)        LOAD IOCD
     7409   02 014FA    6AF01AF2              BAL,15   :SIO              ISSUE INVALID ORDER
     7410   02 014FB    9700C000 A            DATA     X'9700C000'
     7411   02 014FC    10000000 A            DATA     X'10000000'
     7412   02 014FD    68001501              B        %+4               NO ERRORS
     7413                            *ERROR 6611
     7414   02 014FE    EAF021F3              BAL,15   *:ERROR
     7415   02 014FF    000019D3 A            DATA     6611              #6611
     7416   02 01500    6800151F              B        T66M12
     7417                            *
     7418   02 01501    324015A7              LW,4     DELYTM
     7419   02 01502    64401502              BDR,4    %                 DELAY
     7420   02 01503    6AF01AF7              BAL,15   :TIO              ISSUE TIO
     7421   02 01504    FFFFC000 A            DATA     X'FFFFC000'
     7422   02 01505    18000000 A            DATA     X'18000000'
     7423   02 01506    68001516              B        T66M10            NO ERRORS
     7424   02 01507    72E0000D A            LB,14    13                TIO STATUS
     7425   02 01508    21E00006 A            CI,14    X'06'             IS CONTR BUSY
     7426   02 01509    6840150E              BCR,4    T66M08            B: NO, CONTR READY
     7427   02 0150A    CFC01C3E              HIO,12   *:DEVADDR         ISSUE HIO
     7428                            *ERROR 6606
     7429   02 0150B    EAF021F3              BAL,15   *:ERROR
     7430   02 0150C    000019CE A            DATA     6606              #6606
     7431   02 0150D    6800151F              B        T66M12
     7432                            *
     7433   02 0150E    31D02250     T66M08   CW,13    =X'08000000'      TEST FOR UNUSUAL END
     7434   02 0150F    69401513              BCS,4    T66M09            B: UNUSUAL END
     7435                            *ERROR 6607
     7436   02 01510    EAF021F3              BAL,15   *:ERROR
     7437   02 01511    000019CF A            DATA     6607              #6607
     7438   02 01512    6800151F              B        T66M12
     7439                            *
     7440                            *ERROR 6608
     7441   02 01513    EAF021F3     T66M09   BAL,15   *:ERROR
     7442   02 01514    000019D0 A            DATA     6608              #6608
     7443   02 01515    6800151F              B        T66M12
     7444                            *
     7445   02 01516    71161C0D     T66M10   CB,1     :STATUSCC,3       TEST BYTE COUNT
     7446   02 01517    6830151B              BE       T66M11            B: BYTE COUNT = 1
     7447                            *ERROR 6609
     7448   02 01518    EAF021F3              BAL,15   *:ERROR
     7449   02 01519    000019D1 A            DATA     6609              #6609
     7450   02 0151A    6800151F              B        T66M12
     7451                            *
     7452   02 0151B    21C00D3D     T66M11   CI,12    DA(IOCD23)        TEST 1ST IOCD
     7453   02 0151C    6830049F              BE       EXIT              EXIT
     7454                            *ERROR 6610
     7455   02 0151D    EAF021F3              BAL,15   *:ERROR
     7456   02 0151E    000019D2 A            DATA     6610              #6610
     7457   02 0151F    EAF02200     T66M12   BAL,15   *:SENSE
     7458   02 01520    2E001520              WAIT     %
     7459   02 01521    680014F6              B        T66M07            LOOP
     7460   02 01522    6800049F              B        EXIT              EXIT
     7461         02 00346           T66SEQ1  EQU      TSEQ1
     7462   02 01523    6800049F     TST167   B        EXIT              RESERVE FOR FUTURE USE
1 C00   19:44 JUN 20,'83    TELEFILE COMPREHENSIVE LINE PRINTER TEST 960-0606-H02                 PAGE   59
A    7464                            *
     7465                            *
     7466                            *
     7467   02 01524    22E000C1 A   TST168   LI,14    X'C1'
     7468   02 01525    75E01A88              STB,14   FORMAT            SPACE 1 LINE FORMAT
     7469   02 01526    CFC01C3E     T68M01   HIO,12   *:DEVADDR         ISSUE HIO
     7470   02 01527    22000D2F              LI,0     DA(IOCD11)        LOAD IOCD
     7471   02 01528    6AF01C0F              BAL,15   :IOEXEC           SPACE 1 LINE
     7472   02 01529    6AF01D73              BAL,15   :ERRORT           TEST FOR PAPER MOTION
     7473   02 0152A    00000E74              DATA     BA(T68SEQ2)
     7474   02 0152B    6800152F              B        T68M02            PAPER MOTION
     7475                            *ERROR 6802
     7476   02 0152C    EAF021F3              BAL,15   *:ERROR
     7477   02 0152D    00001A92 A            DATA     6802              #6802
     7478   02 0152E    68001537              B        T68M03
     7479   02 0152F    22E00258 A   T68M02   LI,14    600                                               *A01
     7480   02 01530    6AF01D50              BAL,15   :DELAY            DELAY
     7481   02 01531    68001532              B        %+1
     7482   02 01532    6AF01D73              BAL,15   :ERRORT           TEST TIO,OSB,TDV
     7483   02 01533    00000E5C              DATA     BA(T68SEQ1)
     7484   02 01534    6800049F              B        EXIT              NO ERRORS, EXIT
     7485                            *ERROR 6801
     7486   02 01535    EAF021F3              BAL,15   *:ERROR
     7487   02 01536    00001A91 A            DATA     6801              #6801
     7488   02 01537    EAF02200     T68M03   BAL,15   *:SENSE
     7489   02 01538    2E001538              WAIT     %
     7490   02 01539    68001526              B        T68M01            LOOP
     7491   02 0153A    6800049F              B        EXIT              EXIT
     7492         02 00397           T68SEQ1  EQU      TSEQ28
     7493         02 0039D           T68SEQ2  EQU      TSEQ30
1 C00   19:44 JUN 20,'83    TELEFILE COMPREHENSIVE LINE PRINTER TEST 960-0606-H02                 PAGE   60
A    7495                            *
     7496                            *
     7497                            *
     7498   02 0153B    22E00000 A   TST169   LI,14    0
     7499   02 0153C    35E015A2              STW,14   TST1INDX          RESET INDEX
     7500   02 0153D    22E00001 A            LI,14    1                 SET BIT 7
     7501   02 0153E    A5E015A2              SLS,14   *TST1INDX         ADJUST BIT
     7502   02 0153F    75E022A5              STB,14   BUFFER2           STORE 1 BYTE IN BUFFER2
     7503   02 01540    75161A67              STB,1    IOCD14+1,3        STORE BYTE COUNT
     7504   02 01541    CFC01C3E     T69M01   HIO,12   *:DEVADDR         ISSUE HIO
     7505   02 01542    22000D33              LI,0     DA(IOCD14)        LOAD IOCD
     7506   02 01543    6AF01C0F              BAL,15   :IOEXEC           PRINT A CHAR
     7507   02 01544    6AF01D73              BAL,15   :ERRORT           TEST FOR PAPER MOTION
     7508   02 01545    00000E70              DATA     BA(T69SEQ2)
     7509   02 01546    6800154A              B        T69M02            B: NO PAPER MOTION
     7510                            *ERROR 6907
     7511   02 01547    EAF021F3              BAL,15   *:ERROR
     7512   02 01548    00001AFB A            DATA     6907              #6907
     7513   02 01549    68001555              B        T69M03
     7514                            *
     7515   02 0154A    22E00258 A   T69M02   LI,14    600                                               *A01
     7516   02 0154B    6AF01D50              BAL,15   :DELAY            DELAY
     7517   02 0154C    6800154D              B        %+1
     7518   02 0154D    6AF01D73              BAL,15   :ERRORT           TEST TIO,OSB,TDV
     7519   02 0154E    00000000 A   T69M011  DATA     0
     7520   02 0154F    68001555              B        T69M03            NO ERROR
     7521   02 01550    22E01AF5 A            LI,14    6901
     7522   02 01551    30E015A2              AW,14    TST1INDX          SPECIFY ERROR NUMBER
     7523   02 01552    35E01554              STW,14   %+2               SAVE
     7524                            *ERROR 6901-6906
     7525   02 01553    EAF021F3              BAL,15   *:ERROR
     7526   02 01554    00000000 A            DATA     0                 #6901-6906
     7527   02 01555    EAF02200     T69M03   BAL,15   *:SENSE
     7528   02 01556    2E001556              WAIT     %
     7529   02 01557    68001541              B        T69M01            LOOP
     7530   02 01558    331015A2     T69M04   MTW,1    TST1INDX          INDEX + 1
     7531   02 01559    32E015A2              LW,14    TST1INDX          INDEX
     7532   02 0155A    21E00005 A            CI,14    5                 INDEX:5
     7533   02 0155B    6820153D              BLE      TST169+2          B: INDEX <= 5
     7534   02 0155C    6800049F              B        EXIT              EXIT
     7535         02 00392           T69SEQ1  EQU      TSEQ27
     7536         02 0039C           T69SEQ2  EQU      TSEQ29
1 C00   19:44 JUN 20,'83    TELEFILE COMPREHENSIVE LINE PRINTER TEST 960-0606-H02                 PAGE   61
A    7538                            *
     7539                            *
     7540                            *
     7541   02 0155D    22E01B59 A   TST170   LI,14    7001              SPECIFY ERROR NO 7001
     7542   02 0155E    35E011F5              STW,14   T54M04            STORE IN TST154
     7543   02 0155F    680011E6              B        T54ALT
1 C00   19:44 JUN 20,'83    TELEFILE COMPREHENSIVE LINE PRINTER TEST 960-0606-H02                 PAGE   62
A    7545                            *
     7546                            *
     7547                            *
     7548   02 01560    22A00000 A   TST171   LI,10    0
     7549   02 01561    35A015A2              STW,10   TST1INDX          RESET INDEX
     7550   02 01562    224FFFDF A   T71M01   LI,4     -33               BUFFER INDEX
     7551   02 01563    35A822C6              STW,10   BUFFER2+33,4      STORE IN BUFFER2
     7552   02 01564    65401563              BIR,4    %-1               B: LOOP TILL BUFFER COMPLETE
     7553   02 01565    324015A2              LW,4     TST1INDX          INDEX
     7554   02 01566    22E000C5 A            LI,14    X'C5'             CHAR 'E'
     7555   02 01567    75E822A5              STB,14   BUFFER2,4         STORE IN BUFFER2
     7556   02 01568    331015A2              MTW,1    TST1INDX          BYTE COUNT
     7557   02 01569    32E015A2              LW,14    TST1INDX          BYTE COUNT
     7558   02 0156A    55E21A83              STH,14   IOCD24+1,1        STORE IN IOCD
     7559   02 0156B    CFC01C3E     T71M02   HIO,12   *:DEVADDR         ISSUE HIO
     7560   02 0156C    22000D41              LI,0     DA(IOCD24)        LOAD IOCD
     7561   02 0156D    6AF02010              BAL,15   EXECUTE           PRINT ONE  LINE
     7562   02 0156E    68001579              B        T71M03            NO ERROR
     7563   02 0156F    32C015A2              LW,12    TST1INDX          INDEX
     7564   02 01570    EAF00217 A            BAL,15   *:DECC            CONVERT TO DECIMAL
     7565   02 01571    35F015E3              STW,15   T71MSG+4          STORE IN MESSAGE
     7566   02 01572    EAF0021C A            BAL,15   *:PRINT
     7567   02 01573    000015DF              DATA     T71MSG            'COLUMN ERROR   XXXX'
     7568                            *ERROR 7101
     7569   02 01574    EAF021F3              BAL,15   *:ERROR
     7570   02 01575    00001BBD A            DATA     7101              #7101
     7571   02 01576    EAF02200              BAL,15   *:SENSE
     7572   02 01577    2E001577              WAIT     %
     7573   02 01578    6800156B              B        T71M02            LOOP
     7574   02 01579    32E015A2     T71M03   LW,14    TST1INDX          INDEX
     7575   02 0157A    21E00084 A            CI,14    132               INDEX:132
     7576   02 0157B    68201562              BLE      T71M01            B: INDEX <=132
     7577   02 0157C    6800049F              B        EXIT              EXIT
     7578                            *
     7579   02 0157D    6800049F     TST172   B        EXIT              RESERVE FOR FUTURE USE
     7580                            *
1 C00   19:44 JUN 20,'83    TELEFILE COMPREHENSIVE LINE PRINTER TEST 960-0606-H02                 PAGE   63
A    7582                            *
     7583                            *
     7584                            *
     7585   02 0157E    22E00000 A   TST173   LI,14    0
     7586   02 0157F    35E015B4              STW,14   TSTP1             RESET PARAMETER 1
     7587   02 01580    351015B6              STW,1    TST1FLAG          SET FLAG
     7588   02 01581    324015B4     T73M01   LW,4     TSTP1             PARAMETER 1
     7589   02 01582    32E815B7              LW,14    LINECNT,4         FETCH LINE COUNT
     7590   02 01583    35E0194C              STW,14   TST3LINE          SAVE
     7591   02 01584    22E000C4 A            LI,14    X'C4'             SPACE 4 LINE FORMAT
     7592   02 01585    75E01A88              STB,14   FORMAT               SAVE
     7593   02 01586    22E00000 A            LI,14    0
     7594   02 01587    35E015B5              STW,14   EXECERR1          RESET ERROR FLAG
     7595   02 01588    6800171A              B        TST3C             GO TO TST3C
     7596                            *
     7597   02 01589    32E015B5     TST173A  LW,14    EXECERR1          TEST ERROR FLAG
     7598   02 0158A    68301596              BEZ      T73M02            B: NO ERROR
     7599   02 0158B    32E015B4              LW,14    TSTP1             PARAMETER 1
     7600   02 0158C    21E00004 A            CI,14    4                 :P1:4
     7601   02 0158D    6820158F              BLE      %+2               B: :P1 <= 4
     7602   02 0158E    38E00002 A            SW,14    2                 DECREMENT :P1 BY 2
     7603   02 0158F    20E01C85 A            AI,14    7301              SPECIFY ERROR NUMBER
     7604   02 01590    35E01592              STW,14   %+2               SAVE
     7605                            *ERROR 7301-7307
     7606   02 01591    EAF021F3              BAL,15   *:ERROR           #7301-7307
     7607   02 01592    00000000 A            DATA     0
     7608   02 01593    EAF02200              BAL,15   *:SENSE
     7609   02 01594    2E001594              WAIT     %
     7610   02 01595    68001581              B        T73M01            LOOP
     7611   02 01596    331015B4     T73M02   MTW,1    TSTP1             :P1+1
     7612   02 01597    32E015B4              LW,14    TSTP1             :P1
     7613   02 01598    21E00005 A            CI,14    5                 :P1:5
     7614   02 01599    69101581              BL       T73M01             B: :P1 < 5
     7615   02 0159A    21E00006 A            CI,14    6                 :P1:6
     7616   02 0159B    68201596              BLE      T73M02            B: :P1 <= 6
     7617   02 0159C    21E00008 A            CI,14    8                 :P1:8
     7618   02 0159D    68201581              BLE      T73M01            B: :P1 <= 8
     7619   02 0159E    6800049F              B        EXIT              EXIT
     7620                            *
     7621                                     BOUND    8
     7622   02 015A0    0000000B A   TST1MINT DATA     X'B'              MIN TIME
     7623   02 015A1    0000006A A   TST1MAXT DATA     X'6A'             MAXIMUM TIME                    *A04
     7624   02 015A2    00000000 A   TST1INDX DATA     0
     7625   02 015A3    00000000 A   TST1EXP  DATA     0
     7626   02 015A4    00000000 A   TST1IND1 DATA     0
     7627   02 015A5    00000000 A   TST1ERR  DATA     0
     7628   02 015A6    00000000 A   TST1PATN DATA     0
     7629   02 015A7    0000000D A   DELYTM   DATA     13
     7630   02 015A8    00000145 A   DELYTMP  DATA     325
     7631   02 015A9    0000000D A   DELYTMSP DATA     13
     7632   02 015AA    00000145 A   DELYTMF  DATA     325
     7633   02 015AB    00000145 A   DELYTMPF DATA     325
     7634   02 015AC    00000190 A   DELYTMS  DATA     400                                               *A04
     7635   02 015AD    00000023 A   DELAYTM2 DATA     35
     7636   02 015AE    00000014 A   DELAYTMS DATA     20
     7637   02 015AF    00000064 A   DELAYTMP DATA     100
     7638   02 015B0    0000001E A   DELAYS   DATA     30
     7639   02 015B1    000000C8 A   DELAYSP  DATA     200
     7640   02 015B2    00000000 A   TST1FLGM DATA     0
     7641   02 015B3    00000000 A   TST1SAVE DATA     0
     7642   02 015B4    00000000 A   TSTP1    DATA     0
     7643   02 015B5    00000000 A   EXECERR1 DATA     0
     7644   02 015B6    00000000 A   TST1FLAG DATA     0
     7645   02 015B7    00000020 A   LINECNT  DATA     32,32,132,36,263
            02 015B8    00000020 A
            02 015B9    00000084 A
            02 015BA    00000024 A
            02 015BB    00000107 A
     7646   02 015BC    00000000 A   TMBYTE1  DATA     0
     7647   02 015BD    00000000 A   TMBYTE2  DATA     0
     7648   02 015BE    00000000 A   TMBYTE3  DATA     0
     7649   02 015BF    00000000 A   FORMAT1  DATA     0
     7650   02 015C0    00000000 A   BYTECNT  DATA     0
     7651   02 015C1    17C9D6C3 A   TST1MSG1 TEXTC    'IOCD BYTE CNT =     XXX'
            02 015C2    C440C2E8 A
            02 015C3    E3C540C3 A
            02 015C4    D5E3407E A
            02 015C5    40404040 A
            02 015C6    40E7E7E7 A
     7652   02 015C7    1DC1C4C4 A   TST1MSG2 TEXTC    'ADDR COUNTER   EXP XX  OSB XX'
            02 015C8    D940C3D6 A
            02 015C9    E4D5E3C5 A
            02 015CA    D9404040 A
            02 015CB    C5E7D740 A
            02 015CC    E7E74040 A
            02 015CD    D6E2C240 A
            02 015CE    E7E74040 A
     7653   02 015CF    23C6D6D9 A   TST1MSG3 TEXTC    'FORMAT REG ERROR:    EXP XX  OSB XX'
            02 015D0    D4C1E340 A
            02 015D1    D9C5C740 A
            02 015D2    C5D9D9D6 A
            02 015D3    D97A4040 A
            02 015D4    4040C5E7 A
            02 015D5    D740E7E7 A
            02 015D6    4040D6E2 A
            02 015D7    C240E7E7 A
     7654   02 015D8    1AE2E4C2 A   TST1MSG4 TEXTC    'SUBTEST  XX NOT APPLICABLE'
            02 015D9    E3C5E2E3 A
            02 015DA    4040E7E7 A
            02 015DB    40D5D6E3 A
            02 015DC    40C1D7D7 A
            02 015DD    D3C9C3C1 A
            02 015DE    C2D3C540 A
     7655   02 015DF    13C3D6D3 A   T71MSG   TEXTC    'COLUMN ERROR   XXXX'
            02 015E0    E4D4D540 A
            02 015E1    C5D9D9D6 A
            02 015E2    D9404040 A
            02 015E3    E7E7E7E7 A
     7656                            *                                                                      *
     7657                            *        *** TST2 - RANDOM EXERCISER ***                               *
     7658                            *                                                                      *
     7659                            * THIS DIRECTIVE ALLOWS THE USER TO RANDOMLY EXERCISE THE LINE         *
     7660                            * PRINTER.                                                             *
     7661                            *                                                                      *
     7662                            *   P1 =  CYCLE COUNT                                                  *
     7663                            *         (0 < P1 <= 99999)                                            *
     7664                            *                                                                      *
     7665                            * P1 ALLOWS THE USER TO TERMINATE THE TEST AFTER A FIXED NUMBER OF     *
     7666                            * CYCLES HAVE BEEN PERFORMED.                                          *
     7667                            *                                                                      *
     7668                            *                                                                      *
     7669                            * TEST VARIATIONS                                                      *
     7670                            * ---------------                                                      *
     7671                            *   NONE                                                               *
     7672                            *                                                                      *
     7673   02 015E4    35200423     TST2     STW,2    TSTFLAG           SET FLAG
     7674   02 015E5    32500201 A            LW,5     :P1               TEST INPUT
     7675   02 015E6    2151869F A            CI,5     99999                 PARAMETER P1 (CYCLE COUNT)
     7676   02 015E7    682015EC              BLE      %+5               B: P1 VALID
     7677   02 015E8    3510030A A            STW,1    :PIT10            PARAMETER IN ERROR: P1 > 99999
     7678   02 015E9    EAF00229 A            BAL,15   *:PREPORT         REPORT PAR. ERROR
     7679   02 015EA    00000324              DATA     :DIC+4            'TST2'
     7680   02 015EB    E8000214 A            B        *:MONITOR         EXIT
     7681                            *
     7682   02 015EC    32500201 A   TST2ALT  LW,5     :P1               CYCLE COUNT
     7683   02 015ED    683015E8              BEZ      %-5               B: P1 EQUAL TO ZERO
     7684   02 015EE    355016F8              STW,5    T2CCOUNT          SAVE CYCLE COUNT
     7685   02 015EF    35202216              STW,2    ITHTEST           SET INTER/TRAP
     7686   02 015F0    22402202              LI,4     ITHDLR
     7687   02 015F1    3540030F A            STW,4    :PIT15            INVOKE HDLR
     7688   02 015F2    224015EC              LI,4     TST2ALT
     7689   02 015F3    35402218              STW,4    ITHRST            TEST RESTART ADDRESS
     7690   02 015F4    6AF015FD              BAL,15   T2EXEC            EXECUTE RANDOM EXERCISER
     7691   02 015F5    33F016F8              MTW,-1   T2CCOUNT          DECREMENT CYCLE COUNT
     7692   02 015F6    692015F4              BGZ      %-2               B:     LOOP TILL CYCLE COUNT = 0
     7693   02 015F7    31200423              CW,2     TSTFLAG           IS IT TST2
     7694   02 015F8    6930041F              BNE      TST0B             B: NO, TST0
     7695                            *
     7696   02 015F9    EAF02200              BAL,15   *:SENSE           TEST SENSE SW 1,3
     7697   02 015FA    2E0015FA              WAIT     %                 WAIT
     7698   02 015FB    680015EC              B        TST2ALT           LOOP
     7699   02 015FC    E8000214 A            B        *:MONITOR         EXIT
     7700                            *
     7701                            *                                                                      *
     7702                            *        *** T2EXEC - EXECUTE RANDOM EXERCISE ***                      *
     7703                            *                                                                      *
     7704                            * THIS CALLS UPON A SET OF MODULES THAT PRINT SPECIFIC PATTERNS        *
     7705                            *                                                                      *
     7706   02 015FD    35F016F5     T2EXEC   STW,15   T2EXRTN           SAVE RETURN
     7707   02 015FE    22E000F1 A            LI,14    X'F1'             FETCH FORMAT
     7708   02 015FF    75E01A88              STB,14   FORMAT            SAVE
     7709   02 01600    22000D22              LI,0     DA(IOCD1)         LOAD IOCD
     7710   02 01601    6AF02010              BAL,15   EXECUTE           SKIP TO TOP OF PAGE
     7711   02 01602    68001603              B        %+1
     7712   02 01603    22E05C10              LI,14    BA(TST2MSG)       MESSAGE BYTE ADDRESS
     7713   02 01604    55E21A56              STH,14   IOCD8,1           STORE IN IOCD
     7714   02 01605    22E00010 A            LI,14    16                FETCH BYTE COUNT
     7715   02 01606    55E21A57              STH,14   IOCD8+1,1         STORE IN IOCD
     7716   02 01607    22000D2B              LI,0     DA(IOCD8)         LOAD IOCD
     7717   02 01608    6AF02010              BAL,15   EXECUTE           PRINT HEADER MESSAGE
     7718   02 01609    6800160A              B        %+1
     7719   02 0160A    6AF02154              BAL,15   PRINTPOS          PRINT CHAR POSITION
     7720   02 0160B    351016F7              STW,1    T2MODN            SAVE RANDOM MODULE INDEX
     7721   02 0160C    6AF01615     T2EXEC01 BAL,15   T2MOD0            SPACE N LINES
     7722   02 0160D    324016F7              LW,4     T2MODN            RANDOM MODULE
     7723   02 0160E    32E816EC              LW,14    T2MODX,4              ADDRESS
     7724   02 0160F    EAF0000E A            BAL,15   *14               EXECUTE RANDOM MODULE
     7725   02 01610    331016F7              MTW,1    T2MODN            INCREMENT RANDOM MODULE INDEX
     7726   02 01611    32E016F7              LW,14    T2MODN            RANDOM MODULE INDEX
     7727   02 01612    21E00005 A            CI,14    5                 HAS IT RAN ALL  5 RANDOM MODULE
     7728   02 01613    6820160C              BLE      T2EXEC01          B: NO, LOOP TILL TEST COMPLETE
     7729   02 01614    E80016F5              B        *T2EXRTN          EXIT
     7730                            *
     7731                            *                                                                      *
     7732                            *        *** T2MOD0 - SPACE N LINES ***                                *
     7733                            *                                                                      *
     7734                            * THIS SPACES N LINES WHERE THE RANDOM NUMBER : 2 <= N =< 6            *
     7735                            *                                                                      *
     7736   02 01615    35F016F4     T2MOD0   STW,15   TST2RTN           SAVE RETURN ADDRESS
     7737   02 01616    6AF01FEE              BAL,15   :RANDOMX          FETCH RANDOM NUMBER
     7738   02 01617    3290000E A            LW,9     14                CALCULATE
     7739   02 01618    22800000 A            LI,8     0                     BASE 5
     7740   02 01619    36802269              DW,8     =5                    RANDOM NUMBER
     7741   02 0161A    208000C2 A            AI,8     X'C2'             CONVERT TO SPACE N LINE FORMAT CHAR
     7742   02 0161B    75801A88              STB,8    FORMAT            SAVE
     7743   02 0161C    22000D22              LI,0     DA(IOCD1)         LOAD IOCD
     7744   02 0161D    6AF02010              BAL,15   EXECUTE           SPACE N LINES
     7745   02 0161E    6800161F              B        %+1
     7746   02 0161F    E80016F4              B        *TST2RTN          EXIT
     7747                            *
     7748                            *                                                                      *
     7749                            *        *** T2MOD1 - FIXED PATTERN (INHIBIT UPSPACE) ***              *
     7750                            *                                                                      *
     7751                            * RANDOM CHARACTER PRINTED AT RANDOM POSITIONS (WITH UPSPACE INHIBIT)  *
     7752                            * UNTILL ALL POSITIONS PRINTED. AUTOMATIC UPSPACE WITH FINAL PRINT.    *
     7753                            * PRINT 10 LINES.                                                      *
     7754                            *                                                                      *
     7755   02 01620    35F016F4     T2MOD1   STW,15   TST2RTN           SAVE RETURN ADDRESS
     7756   02 01621    22E000E0 A            LI,14    X'E0'             INHIBIT UPSPACE FORMAT
     7757   02 01622    75E01A88              STB,14   FORMAT            SAVE
     7758   02 01623    22EFFFEC A            LI,14    -20               PRINT WITH AUTOMATIC UPSPACE INDEX
     7759   02 01624    35E016F9              STW,14   TST2LOOP          SAVE
     7760   02 01625    22E00000 A   T2MOD101 LI,14    0                 INITIALIZE LOWER LIMIT  OF PRINT
     7761   02 01626    22F0002B A            LI,15    43                INITIALIZE UPPER LIMIT OF PRINT
     7762   02 01627    15E016FC              STD,14   TST2X1            SAVE
     7763   02 01628    22EFFFFA A            LI,14    -6                 PRINT WITH INHIBIT UPSPACE INDEX
     7764   02 01629    35E016FA              STW,14   TST2LINE          SAVE
     7765                            *                             BUILD RANDOM PATTERN INTO BUFFER1
     7766   02 0162A    224FFF7C A            LI,4     -132              BUFFER INDEX
     7767   02 0162B    6AF0223F     T2MOD102 BAL,15   INVCHARR          FETCH VALID CHARACTER          *A04
     7768   02 0162C    21E0003F A            CI,14    X'3F'             IS IT BLANK CHARACTER
     7769   02 0162D    6840162B              BCR,4    %-2               B: YES
     7770   02 0162E    75E822A5              STB,14   BUFFER1+33,4      STORE IN BUFFER1
     7771   02 0162F    6540162B              BIR,4    T2MOD102          B: LOOP TILL BUF FILLED
     7772                            *                             CLEAR BUFFER2 TO X'40' BYTES
     7773   02 01630    224FFFDF A   T2MOD103 LI,4     -33               BUFFER INDEX
     7774   02 01631    32E01A89              LW,14    CHARBLNK          BLANK CHARACTERS
     7775   02 01632    35E822C6              STW,14   BUFFER2+33,4      STORE IN BUFFER2
     7776   02 01633    65401632              BIR,4    %-1               B: LOOP TILL BUFFER FILLED WITH BLNK
     7777   02 01634    224FFF7C A            LI,4     -132              BUFFER INDEX
     7778   02 01635    72E822A5     T2MOD104 LB,14    BUFFER1+33,4      CHARACTER
     7779   02 01636    19E016FC              CLM,14   TST2X1            TEST FOR CHAR UPPER LIMITS
     7780   02 01637    69901639              BCS,9    T2MOD105          CHAR ALREADY PRINTED
     7781   02 01638    75E822C6              STB,14   BUFFER2+33,4      STORE IN BUFFER2
     7782   02 01639    65401635     T2MOD105 BIR,4    T2MOD104          B: LOOP TILL ENTIRE BUFFER  SCANNED
     7783   02 0163A    331016FA              MTW,1    TST2LINE          INCREMENT INHIBIT UPSPACE INDEX
     7784   02 0163B    68101643              BGEZ     T2MOD106          B: AUTOMATIC UPSPACE
     7785   02 0163C    22000D23              LI,0     DA(IOCD2)         LOAD IOCD
     7786   02 0163D    6AF01FFC              BAL,15   EXECUTEX          PRINT W INHIBIT UPSPACE
     7787   02 0163E    6800163F              B        %+1
     7788   02 0163F    22E0002C A            LI,14    44                NEXT RANDOM NUMBER RANGE
     7789   02 01640    66E016FC              AWM,14   TST2X1            NEW LOWER LIMITS OFCHARACTERS
     7790   02 01641    66E016FD              AWM,14   TST2X2            NEW UPPER LIMITS OFCHARACTERS
     7791   02 01642    68001630              B        T2MOD103          REPEAT SCANNING BUFFER
     7792   02 01643    22000D25     T2MOD106 LI,0     DA(IOCD3)         LOAD IOCD
     7793   02 01644    6AF01FFC              BAL,15   EXECUTEX          PRINT W AUTOMATIC UPSPACE
     7794   02 01645    68001646              B        %+1
     7795   02 01646    22E08A10              LI,14    BA(BUFFER1)       BUFFER1 BYTE ADDRESS
     7796   02 01647    55E21A4C              STH,14   IOCD4,1           SAVE IN IOCD
     7797   02 01648    22000D26              LI,0     DA(IOCD4)         LOAD IOCD
     7798   02 01649    6AF01FFC              BAL,15   EXECUTEX          PRINT 2ND LINE
     7799   02 0164A    6800164B              B        %+1
     7800   02 0164B    331016F9              MTW,1    TST2LOOP          INCREMENT PRINT WITH UPSPACE INDEX
     7801   02 0164C    69101625              BLZ      T2MOD101          B: REPEAT IN NEW LINE
     7802   02 0164D    E80016F4              B        *TST2RTN          EXIT
     7803                            *
     7804                            *                                                                      *
     7805                            *        *** T2MOD2 - BLOCK SHIFTING (LINE CONSTANT) ***               *
     7806                            *                                                                      *
     7807                            * PATTERN OF 4 BLOCKS (10 LINES X 4 CHARACTERS) OF RANDOM CHARACTERS   *
     7808                            * SHIFTED FROM ONE SIDE OF PAGE TO THE OTHER. EACH LINE CONTAINS THE   *
     7809                            * SAME CHARACTER.                                                      *
     7810                            *                                                                      *
     7811   02 0164E    35F016F4     T2MOD2   STW,15   TST2RTN           SAVE RETURN ADDRESS
     7812   02 0164F    22E000C1 A            LI,14    X'C1'             SPACE 1 LINE PRINT FORMAT
     7813   02 01650    75E01A88              STB,14   FORMAT            SAVE
     7814   02 01651    22EFFFC8 A            LI,14    -56               MARCHING INDEX
     7815   02 01652    35E016F9              STW,14   TST2LOOP          SAVE
     7816   02 01653    22E08A94              LI,14    BA(BUFFER2)       BUFFER2 BYTE ADDRESS
     7817   02 01654    55E21A4C              STH,14   IOCD4,1           SAVE IN IOCD
     7818                            *                             CLEAR BUFFER1 AND BUFFER2 WITH BLANKS
     7819   02 01655    224FFFDF A            LI,4     -33               BUFFER INDEX
     7820   02 01656    32E01A89              LW,14    CHARBLNK          BLANK CHARACTERS
     7821   02 01657    35E822A5              STW,14   BUFFER1+33,4      STORE IN BUFFER1
     7822   02 01658    35E822C6              STW,14   BUFFER2+33,4      STORE IN BUFFER2
     7823   02 01659    65401657              BIR,4    %-2               B: LOOP TILL BUFFERS FILLED
     7824   02 0165A    22EFFFF6 A   T2MOD201 LI,14    -10                PRINT LINE INDEX
     7825   02 0165B    35E016FA              STW,14   TST2LINE          SAVE
     7826                            *                             BUILD PATTERN OF 4 4-CHAR OF RANDOM CHAR.
     7827   02 0165C    6AF0223F              BAL,15   INVCHARR          FETCH VALID CHARACTER          *A04
     7828   02 0165D    21E0003F A            CI,14    X'3F'             iS IT BLANK CHARACTER
     7829   02 0165E    6840165C              BCR,4    %-2               B: YES
     7830   02 0165F    75E4000E A            STB,14   14,2              SAVE TWO CHAR OF SAME RANDOM CHAR
     7831   02 01660    22400000 A            LI,4     0                 RESET BUFFER INDEX
     7832   02 01661    55E822A5              STH,14   BUFFER2,4
     7833   02 01662    20400001 A            AI,4     1                 STORE RANDOM CHARACTER
     7834   02 01663    55E822A5              STH,14   BUFFER2,4             IN BUFFER2
     7835   02 01664    20400002 A            AI,4     2                 INCREMENT BUFFER INDEX
     7836   02 01665    2140000C A            CI,4     12                HAS BUILD PATTERN COMPLETE
     7837   02 01666    69101661              BL       %-5               B: NO, LOOP TILL BUILD PATTERN COMPL
     7838                            *
     7839   02 01667    22000D26              LI,0     DA(IOCD4)         LOAD IOCD
     7840   02 01668    6AF01FFC              BAL,15   EXECUTEX          PRINT PATTERN OF 4 4-CHARACTER
     7841   02 01669    6800166A              B        %+1
     7842   02 0166A    331016FA              MTW,1    TST2LINE          INCREMENT PRINT LINE INDEX
     7843   02 0166B    6910165C              BLZ      T2MOD201+2        B: REPEAT WITH NEW RANDOM CHARACTER
     7844   02 0166C    331016F9              MTW,1    TST2LOOP          INCREMENT MARCHING INDEX
     7845   02 0166D    E81016F4              BGEZ     *TST2RTN          B: EXIT
     7846   02 0166E    22000D22              LI,0     DA(IOCD1)         LOAD IOCD
     7847   02 0166F    6AF02010              BAL,15   EXECUTE           SPACE 1 LINE
     7848   02 01670    68001671              B        %+1
     7849   02 01671    33E01A4C              MTW,-2   IOCD4             DECREMENT IOCD BYTE ADDRESS
     7850   02 01672    6800165A              B        T2MOD201          REPEAT NEXT GROUP OF 4 BLOCKS
     7851                            *                                                                      *
     7852                            *        *** T2MOD3 - BLOCK SHIFTING (BLOCK CONSTANT) ***              *
     7853                            * PATTERN OF 4 BLOCKS (4 LINES X 10 CHARACTERS) OF RANDOM CHARACTERS   *
     7854                            * SHIFTED FROM ONE SIDE OF PAGE TO THE OTHER. EACH BLOCK CONTAINS THE  *
     7855                            * SAME CHARACTER.                                                      *
     7856                            *                                                                      *
     7857   02 01673    35F016F4     T2MOD3   STW,15   TST2RTN           SAVE RETURN ADDRESS
     7858   02 01674    22E000C1 A            LI,14    X'C1'             SPACE 1 LINE PRINT FORMAT
     7859   02 01675    75E01A88              STB,14   FORMAT            SAVE
     7860                            *                             CLEAR BUFFER1 AND BUFFER2 WITH BLANKS
     7861   02 01676    224FFFDF A            LI,4     -33               BUFFER INDEX
     7862   02 01677    32E01A89              LW,14    CHARBLNK          BLANK CHARACTERS
     7863   02 01678    35E822A5              STW,14   BUFFER1+33,4      STORE IN BUFFER1
     7864   02 01679    35E822C6              STW,14   BUFFER2+33,4      STORE IN BUFFER2
     7865   02 0167A    65401678              BIR,4    %-2               B: LOOP TILL BUFFERS FILLED
     7866   02 0167B    22EFFFD4 A            LI,14    -44               MARCHING INDEX
     7867   02 0167C    35E016F9              STW,14   TST2LOOP          SAVE
     7868   02 0167D    22E08A94              LI,14    BA(BUFFER2)       BUFFER2 BYTE ADDRESS
     7869   02 0167E    55E21A4C              STH,14   IOCD4,1           SAVE IN IOCD
     7870   02 0167F    22EFFFFC A   T2MOD301 LI,14    -4                 PRINT LINE INDEX
     7871   02 01680    35E016FA              STW,14   TST2LINE          SAVE
     7872                            *                             BUILD PATTERN OF 4 10-CHAR  RANDOM CHAR
     7873   02 01681    22400000 A   T2MOD302 LI,4     0                 RESET BUFFER INDEX
     7874   02 01682    6AF0223F              BAL,15   INVCHARR          FETCH VALID CHARACTER          *A04
     7875   02 01683    21E0003F A            CI,14    X'3F'             iS IT BLANK CHARACTER
     7876   02 01684    68401682              BCR,4    %-2               B: YES
     7877   02 01685    75E4000E A            STB,14   14,2              SAVE TWO CHAR OF SAME RANDOM CHAR
     7878   02 01686    225FFFFB A            LI,5     -5                CHARACTERS INDEX
     7879   02 01687    55E822A5              STH,14   BUFFER2,4         STORE RANDOM CHARACTERS IN BUFFER2
     7880   02 01688    33100004 A            MTW,1    4                 INCREMENT BUFFER INDEX
     7881   02 01689    65501687              BIR,5    %-2               B: LOOP TILL STORED 10 CHARACTERS
     7882   02 0168A    21400017 A            CI,4     23                HAS BUILDING PATTERN COMPLETE
     7883   02 0168B    6810168E              BGE      T2MOD303          B: BUILDING PATTERN COMPLETED
     7884   02 0168C    20400001 A            AI,4     1                 INCREMENT BUFFER INDEX
     7885   02 0168D    68001682              B        T2MOD302+1        REPEAT NEXT 10 CHARACTERS
     7886                            *
     7887   02 0168E    22000D26     T2MOD303 LI,0     DA(IOCD4)         LOAD IOCD
     7888   02 0168F    6AF01FFC              BAL,15   EXECUTEX          PRINT PATTERN OF 4 10-CHAR
     7889   02 01690    68001691              B        %+1
     7890   02 01691    331016FA              MTW,1    TST2LINE          INCREMENT PRINT LINE INDEX
     7891   02 01692    6910168E              BLZ      T2MOD303          B: REPEAT NEXT LINE
     7892   02 01693    331016F9              MTW,1    TST2LOOP          INCREMENT MARCHING INDEX
     7893   02 01694    E81016F4              BGEZ     *TST2RTN          B: EXIT
     7894   02 01695    22000D22              LI,0     DA(IOCD1)         LOAD IOCD
     7895   02 01696    6AF02010              BAL,15   EXECUTE           SPACE 1 LINE
     7896   02 01697    68001698              B        %+1
     7897   02 01698    33E01A4C              MTW,-2   IOCD4             DECREMENT IOCD BYTE ADDRESS
     7898   02 01699    6800167F              B        T2MOD301          REPEAT NEXT GROUP OF 4 BLOCKS
     7899                            *
     7900                            *                                                                      *
     7901                            *        *** T2MOD4 - VARIABLE LOADING ***                             *
     7902                            *                                                                      *
     7903                            * VARIABLE LOADING PATTERN CONSISTS OF COMBINATIONS OF PRINT DRUM      *
     7904                            * CONTIGUOUS CHARACTERS TAKEN 2 AT A TIME, 4 AT A TIME AND 8 AT A      *
     7905                            * TIME. TEST REPEATED USING CHARACTERS SPACED NON-CONTIGUOUSLY.        *
     7906                            *                                                                      *
     7907   02 0169A    35F016F4     T2MOD4   STW,15   TST2RTN           SAVE RETURN ADDRESS
     7908   02 0169B    22E000C1 A            LI,14    X'C1'             SPACE 1 LINE FORMAT
     7909   02 0169C    75E01A88              STB,14   FORMAT            SAVE
     7910   02 0169D    22E00000 A            LI,14    0                 RESET NON-CONTIGUOUSLY CHARACTER
     7911   02 0169E    35E016FC              STW,14   TST2X1                FLAG, SAVE
     7912   02 0169F    353016F9              STW,3    TST2LOOP          BLOCK COUNT
     7913   02 016A0    22EFFFF8 A   T2MOD401 LI,14    -8                LINE COUNT
     7914   02 016A1    35E016FA              STW,14   TST2LINE          SAVE
     7915   02 016A2    6AF016B1              BAL,15   T2MOD402          BUILD PATTERN
     7916   02 016A3    22000D25              LI,0     DA(IOCD3)         LOAD IOCD
     7917   02 016A4    6AF01FFC              BAL,15   EXECUTEX          PRINT A LINE
     7918   02 016A5    680016A6              B        %+1
     7919   02 016A6    331016FA              MTW,1    TST2LINE          INCREMENT LINE COUNT
     7920   02 016A7    691016A2              BLZ      T2MOD401+2        B: BUILD NEXT PATTERN AND PRINT
     7921   02 016A8    22000D22              LI,0     DA(IOCD1)         LOAD IOCD
     7922   02 016A9    6AF02010              BAL,15   EXECUTE           SPACE 1 LINE
     7923   02 016AA    680016AB              B        %+1
     7924   02 016AB    33F016F9              MTW,-1   TST2LOOP          DECREMENT LOOP COUNT
     7925   02 016AC    692016A0              BGZ      T2MOD401          B: REPEAT USING DIFFERENT GROUP PATN
     7926   02 016AD    311016FC              CW,1     TST2X1            HAS NON-CONTIGUOUSLY CHAR FLAG SET
     7927   02 016AE    E83016F4              BE       *TST2RTN          B: YES, EXIT
     7928   02 016AF    351016FC              STW,1    TST2X1            SET NON-CONTIGUOUSLY CHAR FLAG
     7929   02 016B0    6800169F              B        T2MOD401-1        REPEAT USING NON-CONTIGUOUSLY CHAR
     7930                            *                             BUILD PATTERN
     7931   02 016B1    35F016F6     T2MOD402 STW,15   T2MODRTN          SAVE RETURN ADDRESS
     7932   02 016B2    311016FC              CW,1     TST2X1            IS IT FOR NON-CONTIGUOUSLY CHARACTER
     7933   02 016B3    683016BE              BE       T2MOD403          B: YES
     7934                            *                             FETCH ANY 8 CONTIGUOUS   CHARACTER
     7935   02 016B4    224FFFF8 A            LI,4     -8                8 CHARCTER INDEX
     7936   02 016B5    6AF0223F              BAL,15   INVCHARR          FETCH RANDOM VALID CHARACTER   *A04
     7937   02 016B6    4BE0211D              AND,14   CHARMASK          MASK                            *A04
     7938   02 016B7    3260000E A            LW,6     14                SAVE IN INDEX REG
     7939   02 016B8    F2EC194E     T2MOD409 LB,14    *CHARTBLX,6       FETCH CHAR                     *A04
     7940   02 016B9    75E81700              STB,14   T2MODPAT+2,4      SAVE
     7941   02 016BA    33100006 A            MTW,1    6                 INCREMENT INDEX FOR NEXT CONTIGUOUS
     7942   02 016BB    4B60211D              AND,6    CHARMASK          MASK                            *A04
     7943   02 016BC    654016B8              BIR,4    T2MOD409          B: FETCH NEXT CONTIGUOUS CHAR  *A04
     7944   02 016BD    680016C4              B        T2MOD404
     7945                            *                             FETCH ANY 8 NON-CONTIGUOUSLY CHARACTER
     7946   02 016BE    22400000 A   T2MOD403 LI,4     0                 RESET INDEX                     *A04
     7947   02 016BF    6AF0223F     T2MOD411 BAL,15   INVCHARR          FETCH RANDOM CHARACTER          *A04
     7948   02 016C0    75E816FE              STB,14   T2MODPAT,4        STORE CHARACTER                 *A04
     7949   02 016C1    33100004 A            MTW,1    4                 INCR INDEX                      *A04
     7950   02 016C2    21400008 A            CI,4     8                 HAS 8 CHARACTERS STORED         *A04
     7951   02 016C3    691016BF              BL       T2MOD411          B: NO                           *A04
     7952                            *                             BUILD CHARACTER  FIELDS INTO BUFFER2
     7953   02 016C4    226FFFF8 A   T2MOD404 LI,6     -8                INDEX
     7954   02 016C5    72EC1700              LB,14    T2MODPAT+2,6      FETCH CHARACTER
     7955   02 016C6    21E0226A              CI,14    =X'3F'            IS IT A BLANK CHAR              *A04
     7956   02 016C7    684016CA              BCR,4    T2MOD405          B: YES                          *A04
     7957   02 016C8    656016C5              BIR,6    T2MOD404+1        B: LOOP TILL ALL CHAR TESTED FOR BLK
     7958   02 016C9    680016CD              B        T2MOD406
     7959   02 016CA    6AF0223F     T2MOD405 BAL,15   INVCHARR          FETCH RANDOM CHARACTER         *A04
     7960   02 016CB    75EC1700              STB,14   T2MODPAT+2,6      SAVE RANDOM CHAR                *A04
     7961   02 016CC    680016C5              B        T2MOD404+1                                        *A04
     7962   02 016CD    22400000 A   T2MOD406 LI,4     0                 RESET BUFFER INDEX
     7963   02 016CE    22EFFFFC A            LI,14    -4
     7964   02 016CF    31E016FA              CW,14    TST2LINE          OFFSET CHAR FIELD?
     7965   02 016D0    682016D9              BLE      T2MOD408          B: YES,OFFSET CHAR FIELD
     7966   02 016D1    326016F9     T2MOD407 LW,6     TST2LOOP          FETCH BLOCK COUNT
     7967   02 016D2    325C1700              LW,5     T2MODIND,6        FETCH CHARACTER FIELD INDEX
     7968   02 016D3    52EA1700              LH,14    T2MODPAT+2,5      FETCH TWO CHARACTERS
     7969   02 016D4    55E822A5              STH,14   BUFFER2,4         STORE IN BUFFER2
     7970   02 016D5    33100004 A            MTW,1    4                 INCREMENT BUFFER INDEX
     7971   02 016D6    21400042 A            CI,4     66                HAS BUFFER FILLED
     7972   02 016D7    E81016F6              BGE      *T2MODRTN         B: YES, EXIT
     7973   02 016D8    655016D3              BIR,5    T2MOD407+2        B: FETCH NEXT TWO CHAR
     7974   02 016D9    52E01A89     T2MOD408 LH,14    CHARBLNK          STORE IN BUFFER2
     7975   02 016DA    55E822A5              STH,14   BUFFER2,4         STORE IN BUFFER2
     7976   02 016DB    33100004 A            MTW,1    4                 INCREMENT BUFFER INDEX
     7977   02 016DC    680016D1              B        T2MOD407          BUILD ANOTHER FIELD CHAR
     7978                            *
     7979                            *
     7980                            *        *** T2MOD5 - BROADSIDE ***
     7981                            *
     7982                            * BROADSIDE PATTERN OF 40 RANDOM CHARACTERS                            *
     7983                            *                                                                      *
     7984   02 016DD    35F016F4     T2MOD5   STW,15   TST2RTN           SAVE RETURN
     7985   02 016DE    325016F2              LW,5     T2LCOUNT          LINE COUNT
     7986   02 016DF    6AF0223F     T2MOD501 BAL,15   INVCHARR          FETCH RANDOM CHARACTER         *A04
     7987   02 016E0    21E0003F A            CI,14    X'3F'             iS IT BLANK CHARACTER
     7988   02 016E1    684016DF              BCR,4    %-2               B: YES
     7989   02 016E2    75E4000E A            STB,14   14,2              FETCH RANDOM CHARACTER
     7990   02 016E3    55E0000E A            STH,14   14                SAME 2 RANDOM CHARACTER
     7991   02 016E4    224FFFDF A            LI,4     -33               BUFFER INDEX
     7992   02 016E5    35E822C6              STW,14   BUFFER2+33,4      STORE  IN BUFFER
     7993   02 016E6    654016E5              BIR,4    %-1               B: LOOP TILL BUFFER COMPLETE
     7994   02 016E7    22000D25              LI,0     DA(IOCD3)         LOAD IOCD
     7995   02 016E8    6AF01FFC              BAL,15   EXECUTEX          PRINT A LINE
     7996   02 016E9    680016EA              B        %+1               NO ERRORS
     7997   02 016EA    645016DF              BDR,5    T2MOD501          B:PRINT ANOTHER LINE
     7998   02 016EB    E80016F4              B        *TST2RTN          EXIT
     7999   02 016EC    00001615     T2MODX   DATA     T2MOD0            SPACE N LINES
     8000   02 016ED    00001620              DATA     T2MOD1            FIXED PATTERN
     8001   02 016EE    0000164E              DATA     T2MOD2            BLOCK SHIFTING(LINE CONSTANT)
     8002   02 016EF    00001673              DATA     T2MOD3            BLOCK SHIFTING(BLOCK CONSTANT)
     8003   02 016F0    0000169A              DATA     T2MOD4            VARIABLE LOADING
     8004   02 016F1    000016DD              DATA     T2MOD5
     8005   02 016F2    00000064 A   T2LCOUNT DATA     100
     8006   02 016F3    00000000 A   TST2FLG  DATA     0
     8007   02 016F4                 TST2RTN  RES      1                 RETURN ADDRESS
     8008   02 016F5                 T2EXRTN  RES      1                 RETURN ADDRESS
     8009   02 016F6                 T2MODRTN RES      1                 RETURN ADDRESS
     8010   02 016F7    00000000 A   T2MODN   DATA     0                 RANDOM MODULE INDEX
     8011   02 016F8    00000000 A   T2CCOUNT DATA     0
     8012   02 016F9                 TST2LOOP RES      1
     8013   02 016FA                 TST2LINE RES      1
     8014                                     BOUND    8
     8015   02 016FC                 TST2X1   RES      1
     8016   02 016FD                 TST2X2   RES      1
     8017   02 016FE    00000000 A   T2MODPAT DATA     0,0
            02 016FF    00000000 A
     8018   02 01700    00000000 A   T2MODIND DATA     0
     8019   02 01701    FFFFFFFC A            DATA     -4
     8020   02 01702    FFFFFFFE A            DATA     -2
     8021   02 01703    FFFFFFFF A            DATA     -1
     8022   02 01704    D9C1D5C4 A   TST2MSG  TEXT     'RANDOM EXERCISER'
            02 01705    D6D440C5 A
            02 01706    E7C5D9C3 A
            02 01707    C9E2C5D9 A
     8023                            *                                                                      *
     8024                            *        *** TST3 - UTILITY TEST ROUTINES ***                          *
     8025                            *                                                                      *
     8026                            * THIS DIRECTIVE ALLOWS THE USER TO SELECT UTILITY TEST ROUTINES BY    *
     8027                            * SPECIFYING IN PARAMETER 1 THE DESIRED TEST:                          *
     8028                            *                                                                      *
     8029                            *   P1 = 0 HAMMER REGISTRATION                                         *
     8030                            *   P1 = 1 CHECKERBOARD PATTERN                                        *
     8031                            *   P1 = 2 RIPPLE  PATTERN                                             *
     8032                            *   P1 = 3 PRINTER SPEED                                               *
     8033                            *   P1 = 4 PRINTER LOAD                                                *
     8034                            *   P1 = 5 BROADSIDE PATTERN                                           *
     8035                            *   P1 = 6 SELECTABLE PATTERN/POSITION                                 *
     8036                            *   P1 = 7 SPACE LINES                                                 *
     8037                            *   P1 = 8 CHANNEL SEARCH                                              *
     8038                            *   P1 = 9 UTILITY TEST                                                *
     8039                            *    P1 = 10 LINE PRINTER CLEANER                                  *A04
     8040                            *                                                                      *
     8041                            *    NO OTHER VALUES OF P1 ARE ALLOWED.                                *
     8042                            *                                                                      *
     8043                            *    PARAMETERS 2,3, AND 4 ARE DEFINED BY THE SPECIFIC TEST            *
     8044                            *                                                                      *
     8045   02 01708    32500201 A   TST3     LW,5     :P1               TEST INPUT
     8046   02 01709    2150000B A            CI,5     11                    PARAMETER P1 (UTILITY TEST) *A04
     8047   02 0170A    6820170F              BLE      %+5               B: P1 VALID
     8048   02 0170B    3510030A A            STW,1    :PIT10            PARAMETER IN ERROR: P1 > 8
     8049   02 0170C    EAF00229 A            BAL,15   *:PREPORT         REPORT PAR. ERROR
     8050   02 0170D    00000326              DATA     :DIC+6            'TST3'
     8051   02 0170E    E8000214 A            B        *:MONITOR         EXIT
     8052                            *
     8053   02 0170F    35300423              STW,3    TSTFLAG           SET TST3 FLAG
     8054   02 01710    22E000F1 A            LI,14    X'F1'             SKIP TO TOP OF PAGE FORMAT
     8055   02 01711    75E01A88              STB,14   FORMAT            SAVE
     8056   02 01712    355015B4              STW,5    TSTP1             SAVE PARAMETER 1
     8057   02 01713    22E00000 A            LI,14    0
     8058   02 01714    35E015B6              STW,14   TST1FLAG          RESET TEST FLAG
     8059   02 01715    22E7A120 A            LI,14    500000            MAX LINE COUNT
     8060   02 01716    71220211 A            CB,2     :PSW,1            FETCH PARAMETER COUNT
     8061   02 01717    69201719              BG       TST3C-1          P2 NOT SPECIFIED
     8062   02 01718    32E00202 A   TST3D    LW,14    :P2               LINE COUNT
     8063   02 01719    35E0194C              STW,14   TST3LINE          SAVE
     8064   02 0171A    325015B4     TST3C    LW,5     TSTP1             FETCH  UTILITY TEST NUMBER
     8065   02 0171B    313015B4              CW,3     TSTP1             TEST FOR PRINTER SPEED TEST
     8066   02 0171C    6930171F              BNE      %+3               B: NOT PRINTER SPEED TEST
     8067   02 0171D    22E000F0 A            LI,14    X'F0'
     8068   02 0171E    75E01A88              STB,14   FORMAT            SKIP TO BOTTOM OF PAGE FORMAT
     8069   02 0171F    35302216              STW,3    ITHTEST           SET INT/TRAP
     8070   02 01720    22E02202              LI,14    ITHDLR
     8071   02 01721    35E0030F A            STW,14   :PIT15            INVOKE HDLR
     8072   02 01722    22E01708              LI,14    TST3
     8073   02 01723    35E02218              STW,14   ITHRST            TEST RESTART ADDRESS
     8074   02 01724    32EA1957              LW,14    TABLEMSG,5        MESSAGE ADDRESS
     8075   02 01725    F250000E A            LB,5     *14               BYTE COUNT
     8076   02 01726    55521A51              STH,5    IOCD5+3,1         STORE IN IOCD
     8077   02 01727    25E00002 A            SLS,14   2                 MESSAGE BYTE ADDRESS WITH BYTE COUNT
     8078   02 01728    20E00001 A            AI,14    1                 MESSAGE BYTE ADDRESS
     8079   02 01729    55E21A50              STH,14   IOCD5+2,1         SAVE IN IOCD
     8080   02 0172A    22000D27              LI,0     DA(IOCD5)         LOAD IOCD
     8081   02 0172B    6AF01C0F              BAL,15   :IOEXEC           PRINT HEADER MESSAGE
     8082   02 0172C    CDC01C3E              TIO,12   *:DEVADDR         TEST IF PRINTER PRINTED MESSAGE
     8083   02 0172D    69C0172C              BCS,12   %-1               B: LOOP TILL MESSAGE PRINTED
     8084   02 0172E    325015B4              LW,5     TSTP1
     8085   02 0172F    21500009 A            CI,5     9                 IS IT FOR TST3,9
     8086   02 01730    68301732              BE       %+2              B: YES, SKIP PRINT CHAR POS
     8087   02 01731    6AF02154              BAL,15   PRINTPOS          PRINT CHAR POSITION
     8088   02 01732    325015B4              LW,5     TSTP1             FETCH
     8089   02 01733    325A1962              LW,5     TST3TST,5             UTILITY TEST ADDRESS
     8090   02 01734    E8000005 A            B        *5                START UTILITY TEST
     8091   02 01735    33F0194C     TST3A    MTW,-1   TST3LINE          DECR LINE COUNT
     8092   02 01736    E920000F A            BGZ      *15               B: LINE COUNT > 0
     8093   02 01737    311015B6     TST3B    CW,1     TST1FLAG          IS IT TST1
     8094   02 01738    68301589              BE       TST173A           YES, TST1
     8095   02 01739    691018E8              BL       TST3901           TST3,9
     8096   02 0173A    EAF02200              BAL,15   *:SENSE           TEST SW 1,3
     8097   02 0173B    2E00173B              WAIT     %
     8098   02 0173C    68001708              B        TST3              LOOP
     8099   02 0173D    E8000214 A            B        *:MONITOR         RETURN TO MONITOR
     8100                            *                                                                      *
     8101                            *        *** TST30 - HAMMER REGISTRATION TEST PATTERN ***              *
     8102                            *                                                                      *
     8103                            * GENERATES A PATTERN OF BROADSIDE CHARACTER 'E' CONTINUOUSLY.         *
     8104                            *                                                                      *
     8105                            * P1 = 0.                                                              *
     8106                            * P2 = LINE COUNT                                                      *
     8107                            *                                                                      *
     8108                            * NO OTHER PARAMETERS REQUIRED.                                        *
     8109                            *                                                                      *
     8110   02 0173E    224FFFDF A   TST30    LI,4     -33               GET BUFFER INDEX
     8111   02 0173F    32502265              LW,5     =X'C5C5C5C5'      GET WORD OF CHARACTER E
     8112   02 01740    355822C6              STW,5    BUFFER2+33,4      STORE IN PRINT BUFFER
     8113   02 01741    65401740              BIR,4    %-1               LOOP IF BUFFER NOT FILLED
     8114   02 01742    22000D25              LI,0     DA(IOCD3)         LOAD IOCD
     8115   02 01743    6AF02010              BAL,15   EXECUTE           PRINT A LINE
     8116   02 01744    68001746              B        %+2               NO ERROR
     8117   02 01745    351015B5              STW,1    EXECERR1          SET ERROR FLAG
     8118   02 01746    6AF01735              BAL,15   TST3A             TEST LINE COUNT
     8119   02 01747    68001743              B        %-4
     8120                            *                                                                      *
     8121                            *        *** TST31 - CHECKERBOARD PATTERN ***                          *
     8122                            *                                                                      *
     8123                            * THE PATTERN CONSISTS OF ALTERNATING CHARACTER 'E' AND BLANK          *
     8124                            *                                                                      *
     8125                            * P1 = 1                                                               *
     8126                            * P2 = LINE COUNT                                                      *
     8127                            *                                                                      *
     8128                            * NO OTHER PARAMETERS REQUIRED.                                        *
     8129                            *                                                                      *
     8130   02 01748    32E0226B     TST31    LW,14    =X'C540C540'      ALTERNATING CHAR 'E' AND BLANK
     8131   02 01749    224FFFDF A            LI,4     -33               BUFFER INDEX
     8132   02 0174A    35E822C6              STW,14   BUFFER2+33,4      STORE CHARACTERS IN BUFFER2
     8133   02 0174B    6540174A              BIR,4    %-1               B: LOOP TILL BUFFER COMPLETED
     8134                            *
     8135   02 0174C    22E00040 A            LI,14    X'40'             BLANK CHARACTER
     8136   02 0174D    75E622A4              STB,14   BUFFER1+32,3      STORE IN LAST BYTE OF BUFFER1
     8137   02 0174E    22E08A94              LI,14    BA(BUFFER2)       BUFFER2 BYTE ADDRESS
     8138   02 0174F    55E21A4C              STH,14   IOCD4,1           STORE IN IOCD MEMORY BYTE ADDRESS
     8139   02 01750    22000D26     TST3101  LI,0     DA(IOCD4)         LOAD IOCD
     8140   02 01751    6AF02010              BAL,15   EXECUTE           PRINT ONE LINE
     8141   02 01752    68001754              B        %+2               NO ERROR
     8142   02 01753    351015B5              STW,1    EXECERR1          SET ERROR FLAG
     8143   02 01754    6AF01735              BAL,15   TST3A             TEST LINE COUNT
     8144   02 01755    52E21A4C              LH,14    IOCD4,1           FETCH MEMORY BYTE ADDRESS
     8145   02 01756    4BE02260              AND,14   =X'FFFF'
     8146   02 01757    21E08A94              CI,14    BA(BUFFER2)       IS IT EQUAL TO BUFFER2 BYTE ADDRESS
     8147   02 01758    6930175B              BNE      %+3               B: NOT EQUAL
     8148   02 01759    33F01A4C              MTW,-1   IOCD4             DECREMENT IOCD BYTE ADDRESS
     8149   02 0175A    68001750              B        TST3101           LOOP TO PRINT ANOTHER LINE
     8150   02 0175B    33101A4C              MTW,1    IOCD4             INCREMENT IOCD BYTE ADDRESS
     8151   02 0175C    68001750              B        TST3101           LOOP TO PRINT ANOTHER LINE
     8152                            *                                                                      *
     8153                            *        *** TST32 -  RIPPLE PATTERN ***                               *
     8154                            *                                                                      *
     8155                            * GENERATES A PATTERN CONSISTING OF ALL CHARACTERS PER LINE, EACH      *
     8156                            * SUCCEEDING LINE HAVING THE CHARACTERS SHIFTED ONE POSITION TO        *
     8157                            * THE LEFT.                                                            *
     8158                            *                                                                      *
     8159                            * P1 = 2.                                                              *
     8160                            * P2 = LINE COUNT                                                      *
     8161                            *                                                                      *
     8162                            * NO OTHER PARAMETERS USED.                                            *
     8163                            *                                                                      *
     8164   02 0175D    224FFFC0 A   TST32    LI,4     -64               BUFFER INDEX
     8165   02 0175E    52E20335              LH,14    :CDB,1            FETCH MODEL NUMBER             *A04
     8166   02 0175F    21E01D12 A            CI,14    7442              IS IT 7442                     *A04
     8167   02 01760    6930176F              BNE      TST3205           B: NO                          *A04
     8168   02 01761    22E00000 A            LI,14    0                 FETCH CHARACTER                *A04
     8169   02 01762    22600000 A   TST3203  LI,6     0                 CHARACTER BYTE INDEX           *A04
     8170   02 01763    35E0223E     TST3204  STW,14   INVCHARX          SAVE CHARACTER                 *A04
     8171   02 01764    6AF0222C              BAL,15   INVCHAR           FETCH VALID CHARACTER          *A04
     8172   02 01765    75EC2246              STB,14   INVCX,6           SAVE CHARACTER IN WORD         *A04
     8173   02 01766    3310000E A            MTW,1    14                NEXT CHARACTER                 *A04
     8174   02 01767    33100006 A            MTW,1    6                 INCR CHARACTER BYTE INDEX      *A04
     8175   02 01768    21600004 A            CI,6     4                 HAS 4 CHAR STORED IN WD        *A04
     8176   02 01769    69101763              BL       TST3204           B: NO                          *A04
     8177   02 0176A    32F02246              LW,15    INVCX             FETCH 4 CHARACTER              *A04
     8178   02 0176B    35F822C4              STW,15   BUFFER1+64,4      STORE IN BUFFER1               *A04
     8179   02 0176C    21600004 A            CI,6     4                 HAS 4 CHAR STORED              *A04
     8180   02 0176D    65401762              BIR,4    TST3203           B: LOOP TILL 256 BYTE COMPETE  *A04
     8181   02 0176E    68001773              B        TST3201                                          *A04
     8182   02 0176F    32E0226C     TST3205  LW,14    =X'00010203'      FETCH WORD OF INCR BYTE        *A04
     8183   02 01770    35E822C4              STW,14   BUFFER1+64,4      STORE IN BUFFER1
     8184   02 01771    30E0226D              AW,14    =X'04040404'      INCREMENT BYTES
     8185   02 01772    65401770              BIR,4    %-2               B: LOOP TILL 256 INCR BYTES COMPLETE
     8186                            *
     8187   02 01773    22E08A10     TST3201  LI,14    BA(BUFFER1)       INITIALIZE
     8188   02 01774    55E21A4C              STH,14   IOCD4,1               BYTE ADDRESS
     8189   02 01775    3AE00409              LCW,14   CHARINDX          SET                             *A04
     8190   02 01776    35E0194B              STW,14   TST3CNT               COUNTER
     8191   02 01777    22000D26     TST3202  LI,0     DA(IOCD4)         LOAD IOCD
     8192   02 01778    6AF02010              BAL,15   EXECUTE           PRINT ONE LINE
     8193   02 01779    6800177B              B        %+2               NO ERROR
     8194   02 0177A    351015B5              STW,1    EXECERR1          SET ERROR FLAG
     8195   02 0177B    6AF01735              BAL,15   TST3A             TEST LINE COUNT
     8196   02 0177C    3310194B              MTW,1    TST3CNT           INCREMENT COUNTER
     8197   02 0177D    68101773              BGEZ     TST3201           B: YES, REPEAT RIPPLE TEST
     8198   02 0177E    33101A4C              MTW,1    IOCD4             INCREMENT BYTE ADDRESS
     8199   02 0177F    68001777              B        TST3202           PRINT ANOTHER LINE
     8200                            *                                                                      *
     8201                            *        *** TST33- PRINTER SPEED ***                                  *
     8202                            *                                                                      *
     8203                            * A 36-LINE PATTERN OF CHARACTERS IS PRINTED TO PRODUCE MAXIMUM PRINT  *
     8204                            * RATE. THE AVERAGE TIME TO PRINT AND UPSPACE IS CALCULATED AND THE    *
     8205                            * PRINTER SPEED IS REPORTED.                                           *
     8206                            *                                                                      *
     8207                            * P1 = 3                                                               *
     8208                            * P2 = CHAR COUNT                                                      *
     8209                            *                                                                      *
     8210                            * NO OTHER PARAMETER USED.                                             *
     8211                            *
     8212   02 01780    32E0191E     TST33    LW,14    TST33MTW          STORE MODIFY TEST WORD INSTRUCTION
     8213   02 01781    35E00055 A            STW,14   X'55'                 IN COUNTER PULSE INTERRUPT LOC
     8214   02 01782    32E0191F              LW,14    TST33CTZ          STORE COUNTER EQUAL ZERO INTERRUPT
     8215   02 01783    35E0005B A            STW,14   X'5B'
     8216   02 01784    311015B2              CW,1     TST1FLGM          IS IT FOR MODEL 7450
     8217   02 01785    6930179A              BNE      TST3301-1         B: NOT MODEL 7450
     8218   02 01786    72E20211 A            LB,14    :PSW,1            FETCH NUMBER OF PARAMETER ENTERED
     8219   02 01787    21E00002 A            CI,14    2                 COMPARE TO 2
     8220   02 01788    69301793              BNE      TST33011          P2 NOT SPECIFIED
     8221   02 01789    32400202 A            LW,4     :P2               FETCH P2
     8222   02 0178A    68301793              BEZ      TST33011          P2 = 0
     8223   02 0178B    21400040 A            CI,4     64                P2:64
     8224   02 0178C    68201794              BLE      TST33011+1        B: P2 LESS OR EQUAL TO 64
     8225   02 0178D    31300423              CW,3     TSTFLAG           IS IT FOR TST3
     8226   02 0178E    69301793              BNE      TST33011          B: NOT FOR TST3
     8227   02 0178F    3520030A A            STW,2    :PIT10            PARAMETER IN ERROR :P2 GREATER 64
     8228   02 01790    EAF00229 A            BAL,15   *:PREPORT         REPORT PAR. ERROR
     8229   02 01791    00000326              DATA     :DIC+6            'TST3'
     8230   02 01792    E8000214 A            B        *:MONITOR         RETURN TO MONITOR
     8231   02 01793    2240002C A   TST33011 LI,4     44                CHAR COUNT
     8232   02 01794    35401950              STW,4    LASTCHAR          SAVE
     8233   02 01795    33F00004 A            MTW,-1   4                 ADJUST P2
     8234   02 01796    F2E8194E              LB,14    *CHARTBLX,4       FETCH SYNC CHARACTER
     8235   02 01797    75E4000E A            STB,14   14,2              BUILD
     8236   02 01798    55E0000E A            STH,14   14                   ONE WORD
     8237   02 01799    35E0194F              STW,14   SYNCCHAR          SAVE
     8238   02 0179A    225FFF7C A            LI,5     -132              BUFFER INDEX
     8239   02 0179B    22400000 A   TST3301  LI,4     0                 RESET COUNTER
     8240   02 0179C    F2E8194E              LB,14    *CHARTBLX,4       FETCH CHAR
     8241   02 0179D    75EA22A5              STB,14   BUFFER1+33,5      STORE IN BUFFER
     8242   02 0179E    33100004 A            MTW,1    4                 INCREMENT COUNTER
     8243   02 0179F    655017A1              BIR,5    %+2               B: FETCH NEXT CHARACTER
     8244   02 017A0    680017A4              B        %+4               BUFFER FILLED
     8245   02 017A1    31401950              CW,4     LASTCHAR          IS IT THE LAST CHAR
     8246   02 017A2    6810179B              BGE      TST3301           B: 42ND CHARACTER, RECYLE
     8247   02 017A3    6800179C              B        TST3301+1         FETCH NEXT CHARACTER
     8248                            *
     8249   02 017A4    32E0194F              LW,14    SYNCCHAR          FETCH SYNC CHARACTER
     8250   02 017A5    224FFFDF A            LI,4     -33               BUFFER INDEX
     8251   02 017A6    35E822C6              STW,14   BUFFER2+33,4      STORE SYNC CHARACTER IN BUFFER
     8252   02 017A7    654017A6              BIR,4    %-1               B: LOOP TILL BUFFER FILLED
     8253                            *
     8254   02 017A8    224FFFDC A            LI,4     -36               SET
     8255   02 017A9    32E0226E              LW,14    =X'0FFFFFFF'      SET
     8256   02 017AA    35E01924              STW,14   TST33CT               COUNTER
     8257   02 017AB    6AF01D60              BAL,15   :DELAYAE          ARM/ENABLE COUNTER 4 INTERRUPT
     8258   02 017AC    22501A0B A            LI,5     6667              DELAY 10 MILLISECOND
     8259   02 017AD    645017AD              BDR,5    %
     8260   02 017AE    22000D29              LI,0     DA(IOCD6)         LOAD IOCD
     8261   02 017AF    6AF01C0F              BAL,15   :IOEXEC           PRINT SYNC PATTERN
     8262   02 017B0    32501951              LW,5     IOMDT              IO MAX DELAY TIME
     8263   02 017B1    CDC01C3E              TIO,12   *:DEVADDR         TEST FOR CHANNEL END
     8264   02 017B2    68C017B5              BCR,12   %+3               B: CHANNEL END DETECTED
     8265   02 017B3    645017B1              BDR,5    %-2               B: LOOP TILL CHANNEL END DETECTED
     8266   02 017B4    680017FF              B        TST3305           TIO MAX DELAY TIME EXCEEDED
     8267   02 017B5    32501951     TST3302  LW,5     IOMDT              IO MAX DELAY TIME
     8268   02 017B6    22000D2A              LI,0     DA(IOCD7)         LOAD IOCD
     8269   02 017B7    CCC01C3E              SIO,12   *:DEVADDR         PRINT A LINE
     8270   02 017B8    68C017BB              BCR,12   %+3               B: SIO ACCEPTED
     8271   02 017B9    645017B7              BDR,5    %-2               B: LOOP TILL SIO ACCEPTED
     8272   02 017BA    680017FF              B        TST3305           SIO MAX DELAY TIME EXCEEDED
     8273   02 017BB    32E01924              LW,14    TST33CT           FETCH COUNT
     8274   02 017BC    35E01925              STW,14   TST33SAV          SAVE
     8275   02 017BD    32501951              LW,5     IOMDT              IO MAX DELAY TIME
     8276   02 017BE    CDC01C3E              TIO,12   *:DEVADDR         TEST FOR CHANNEL END
     8277   02 017BF    68C017C2              BCR,12   %+3               B: CHANNEL END DETECTED
     8278   02 017C0    645017BE              BDR,5    %-2               B: LOOP TILL CHANNEL END DETECTED
     8279   02 017C1    680017FF              B        TST3305           TIO MAX DELAY TIME EXCEEDED
     8280   02 017C2    311015B2              CW,1     TST1FLGM          IS IT FOR MODEL 7450
     8281   02 017C3    693017CF              BNE      TST33021          B: NOT MODEL 7450
     8282   02 017C4    32501951              LW,5     IOMDT              IO MAX DELAY TIME
     8283   02 017C5    22000D2A              LI,0     DA(IOCD7)         LOAD IOCD
     8284   02 017C6    CCC01C3E              SIO,12   *:DEVADDR         PRINT 2ND LINE
     8285   02 017C7    68C017CA              BCR,12   %+3               B: SIO ACCEPTED
     8286   02 017C8    645017C6              BDR,5    %-2               B: LOOP TILL SIO ACCEPTED
     8287   02 017C9    680017FF              B        TST3305           SIO MAX DELAY TIME EXCEEDED
     8288   02 017CA    32501951              LW,5     IOMDT              IO MAX DELAY TIME
     8289   02 017CB    CDC01C3E              TIO,12   *:DEVADDR         TEST FOR CHANNEL END
     8290   02 017CC    68C017CF              BCR,12   %+3               B: CHANNEL END DETECTED
     8291   02 017CD    645017CB              BDR,5    %-2               B: LOOP TILL CHANNEL END DETECTED
     8292   02 017CE    680017FF              B        TST3305           TIO MAX DELAY TIME EXCEEDED
     8293   02 017CF    32E01925     TST33021 LW,14    TST33SAV
     8294   02 017D0    38E01924              SW,14    TST33CT           SUBTRACT FROM STARTING COUNT
     8295   02 017D1    35E8194B              STW,14   TST33PT+36,4      SAVE COUNT IN TABLE
     8296   02 017D2    654017B5              BIR,4    TST3302           B: LOOP TILL TABLE COMPLETE
     8297   02 017D3    6AF01D64              BAL,15   :DELAYD           DISARM COUNTER 4 INTERRUPT
     8298   02 017D4    224FFFDC A            LI,4     -36               TABLE INDEX
     8299   02 017D5    22E00000 A            LI,14    0                 RESET ACCUMULATOR
     8300   02 017D6    30E8194B              AW,14    TST33PT+36,4      ADD PRINT TIME TO ACCUMULATOR
     8301   02 017D7    654017D6              BIR,4    %-1               B: LOOP TILL ADDED ALL 36-LINE
     8302   02 017D8    3250226F              LW,5     =1080000          CALCUTE
     8303   02 017D9    3640000E A            DW,4     14                    LINE PER MINUTE
     8304   02 017DA    32C00005 A            LW,12    5                 LINES PER MINUTE
     8305   02 017DB    EAF00217 A            BAL,15   *:DECC            CONVERT TO EBCDIC
     8306   02 017DC    35F01971              STW,15   TST33MSG+4        STORE IN MESSAGE
     8307                            *                             SEARCH TST33PT FOR MAX, MIN TIMES
     8308   02 017DD    224FFFDC A            LI,4     -36               SEARCH TABLE INDEX
     8309   02 017DE    32C8194B              LW,12    TST33PT+36,4      FIRST TIMING IN
     8310   02 017DF    32D0000C A            LW,13    12                    MAX AND MIN REG
     8311   02 017E0    31C8194B     TST3303  CW,12    TST33PT+36,4      COMPARE TABLE WITH MAX
     8312   02 017E1    681017E4              BGE      %+3               B: MAX GREATER THAN TABLE
     8313   02 017E2    32C8194B              LW,12    TST33PT+36,4      FETCH NEW MAX FROM TABLE
     8314   02 017E3    680017E7              B        TST3304
     8315   02 017E4    31D8194B              CW,13    TST33PT+36,4      COMPARE TABLE WITH MIN
     8316   02 017E5    682017E7              BLE      TST3304           B: MIN LESS THAN TABLE
     8317   02 017E6    32D8194B              LW,13    TST33PT+36,4      FETCH NEW MIN FROM TABLE
     8318   02 017E7    654017E0     TST3304  BIR,4    TST3303           B: LOOP TILL SEARCH COMPLETE
     8319   02 017E8    25C00501 A            SAD,12   1                 CONVERT MAX AND MIN TO MILLISECOND
     8320   02 017E9    EAF00217 A            BAL,15   *:DECC            CONVERT MAX TO EBCDIC
     8321   02 017EA    35F01977              STW,15   TST33MSG+10       STORE IN MESSAGE
     8322   02 017EB    32C0000D A            LW,12    13                FETCH MIN
     8323   02 017EC    EAF00217 A            BAL,15   *:DECC            CONVERT TO EBCDIC
     8324   02 017ED    35F0197A              STW,15   TST33MSG+13       STORE IN MESSAGE
     8325   02 017EE    22E000C2 A            LI,14    X'C2'             SPACE 2 LINE PRINT FORMAT
     8326   02 017EF    75E01A88              STB,14   FORMAT            SAVE
     8327   02 017F0    22E00038 A            LI,14    56                FETCH BYTE COUNT
     8328   02 017F1    55E21A51              STH,14   IOCD5+3,1         STORE IN IOCD
     8329   02 017F2    22E065B4              LI,14    BA(TST33MSG)      MESSAGE BYTE ADDRESS
     8330   02 017F3    55E21A50              STH,14   IOCD5+2,1         STORE IN IOCD
     8331   02 017F4    22000D27              LI,0     DA(IOCD5)         LOAD IOCD
     8332   02 017F5    52E20335              LH,14    :CDB,1            FETCH MODEL NUMBER
     8333   02 017F6    21E01D1A A            CI,14    7450              IS IT MODEL 7450
     8334   02 017F7    693017FA              BNE      %+3               B: NOT MODEL 7450
     8335   02 017F8    6AF01C48              BAL,15   MOD7450           PRINT 1ST LINE
     8336   02 017F9    680017FA              B        %+1
     8337   02 017FA    CCC01C3E              SIO,12   *:DEVADDR         PRINT MESSAGE
     8338   02 017FB    32501951              LW,5     IOMDT              IO MAX DELAY TIME
     8339   02 017FC    CDC01C3E              TIO,12   *:DEVADDR         TEST FOR CHANNEL END
     8340   02 017FD    68C01802              BCR,12   %+5               B: CHANNEL END DETECTED
     8341   02 017FE    645017FC              BDR,5    %-2               B: LOOP TILL CHANNEL END DETECTED
     8342   02 017FF    EAF0021C A   TST3305  BAL,15   *:PRINT           TIO MAX DELAY TIME EXCEEDED
     8343   02 01800    00001952              DATA     IOMDTMSG          'IO MAX DELAY TIME EXCEEDED'
     8344   02 01801    E8000214 A            B        *:MONITOR         RETURN TO MONITOR
     8345   02 01802    68001737              B        TST3B             GO TO TST3
     8346                            *
     8347   02 01803    6AF01D64     TST33CTR BAL,15   :DELAYD           DISARM COUNTER 4
     8348   02 01804    EAF0021C A            BAL,15   *:PRINT           PRINT MESSAGE
     8349   02 01805    0000197B              DATA     TSTCTZMG
     8350   02 01806    E8000214 A            B        *:MONITOR         RETURN TO MONITOR
     8351                            *                                                                      *
     8352                            *        *** TST34 - PRINTER LOAD TEST PATTERN ***                     *
     8353                            *                                                                      *
     8354                            * GENERATES A PATTERN OF AN INCREASING NUMBER OF CHARACTER 'E' EACH    *
     8355                            * LINE TILL 132 POSITION PRINTED, THEN DECREASING NUMBER OF            *
     8356                            * CHARACTER 'E' EACH LINE.                                             *
     8357                            *                                                                      *
     8358                            * P1 = 4.                                                              *
     8359                            * P2 = LINE COUNT                                                      *
     8360                            *                                                                      *
     8361                            * NO OTHER PARAMETERS REQUIRED.                                        *
     8362                            *                                                                      *
     8363   02 01807    224FFFDF A   TST34    LI,4     -33               BUFFER INDEX
     8364   02 01808    32501A89              LW,5     CHARBLNK          BLANK CHARACTERS
     8365   02 01809    32602265              LW,6     =X'C5C5C5C5'      CHARACTER 'E'
     8366   02 0180A    355822A5              STW,5    BUFFER1+33,4      STORE BLANK CHARACTERS
     8367   02 0180B    355822E7              STW,5    BUFFER3+33,4      STORE BLANK CHARACTERS
     8368   02 0180C    356822C6              STW,6    BUFFER2+33,4      STORE CHARACTER 'E'
     8369   02 0180D    6540180A              BIR,4    %-3               B: LOOP TILL BUFFERS COMPLETE
     8370   02 0180E    22E08B17     TST3401  LI,14    BA(BUFFER3)-1     BYTE ADDRESS
     8371   02 0180F    55E21A4C              STH,14   IOCD4,1           STORE IN IOCD
     8372   02 01810    22E00107 A            LI,14    263               SET TOTAL
     8373   02 01811    35E0194B              STW,14   TST3CNT               LINE INDEX
     8374   02 01812    22000D26     TST3402  LI,0     DA(IOCD4)         LOAD IOCD
     8375   02 01813    6AF02010              BAL,15   EXECUTE           PRINT ONE LINE
     8376   02 01814    68001816              B        %+2               NO ERROR
     8377   02 01815    351015B5              STW,1    EXECERR1          SET ERROR FLAG
     8378   02 01816    6AF01735              BAL,15   TST3A             TEST LINE COUNT
     8379   02 01817    33F01A4C              MTW,-1   IOCD4             DECREMENT IOCD BYTE ADDRESS
     8380   02 01818    33F0194B              MTW,-1   TST3CNT           DECREMENT LINE INDEX
     8381   02 01819    69201812              BGZ      TST3402           B: LOOP TILL PRINTER LOAD TEST COMPL
     8382   02 0181A    6800180E              B        TST3401           REPEAT
     8383                            *                                                                      *
     8384                            *        *** TST35 - BROADSIDE PATTERN ***                             *
     8385                            *                                                                      *
     8386                            * GENERATES A 64-LINE PATTERN OF ALL PRINTABLE CHARACTERS BROADSIDE    *
     8387                            *                                                                      *
     8388                            * P1 = 5.                                                              *
     8389                            * P2 = LINE COUNT                                                      *
     8390                            *                                                                      *
     8391                            * NO OTHER PARAMETERS REQUIRED.                                        *
     8392                            *                                                                      *
     8393   02 0181B    32400409     TST35    LW,4     CHARINDX          CHARACTER INDEX                *A04
     8394   02 0181C    3540194B              STW,4    TST3CNT           SAVE
     8395   02 0181D    3A60194B     TST3501  LCW,6    TST3CNT           CHARACTER INDEX             *A04
     8396   02 0181E    33100006 A            MTW,1    6                                                *A04
     8397   02 0181F    224FFFDF A            LI,4     -33               BUFFER INDEX
     8398   02 01820    32E00409              LW,14    CHARINDX          CHARACTER INDEX                *A04
     8399   02 01821    25E0027E A            SCS,14   -2                                               *A04
     8400   02 01822    4BE0224F              AND,14   =X'FFFFFF'                                       *A04
     8401   02 01823    52F20335              LH,15    :CDB,1            FETCH MODEL NUMBER             *A04
     8402   02 01824    21F01D12 A            CI,15    7442              IS IT 7442                     *A04
     8403   02 01825    69301828              BNE      %+3               B: NO                          *A04
     8404   02 01826    20E01A22              AI,14    CHARTBLS          CALCULATE CHAR ADDR            *A04
     8405   02 01827    68001829              B        %+2                                              *A04
     8406   02 01828    30E0194E              AW,14    CHARTBLX          CALCULATE CHARACTER ADDR       *A04
     8407   02 01829    F25C000E A            LB,5     *14,6             FETCH ONE CHARACTER            *A04
     8408   02 0182A    75540005 A            STB,5    5,2               FILL REGISTER
     8409   02 0182B    55500005 A            STH,5    5                     WITH THE CHARACTER
     8410   02 0182C    355822C6              STW,5    BUFFER2+33,4      STORE IT IN BUFFER
     8411   02 0182D    6540182C              BIR,4    %-1               B: LOOP TILL BUFFER COMPLETE
     8412                            *
     8413   02 0182E    22000D25              LI,0     DA(IOCD3)         LOAD IOCD
     8414   02 0182F    6AF02010              BAL,15   EXECUTE           PRINT ONE LINE
     8415   02 01830    68001831              B        %+1
     8416   02 01831    6AF01735              BAL,15   TST3A             TEST LINE COUNT
     8417   02 01832    33100006 A            MTW,1    6                 INCREMENT CHARACTER INDEX     *A04
     8418   02 01833    6910181F              BLZ      TST3501+2         B: FETCH NEXT CHARACTER       *A04
     8419   02 01834    6800181B              B        TST35             REPEAT
     8420                            *                                                                      *
     8421                            *  *** TST36 - SELECTABLE CHARACTER/PRINT POSITION TEST PATTERN ***    *
     8422                            *                                                                      *
     8423                            * GENERATES A SELECTABLE CHARACTER AND POSITION(S) PATTERN             *
     8424                            *                                                                      *
     8425                            * P1 = 6.                                                              *
     8426                            * P2 = LINE COUNT                                                      *
     8427                            * P3 = GROUP/DATA LINE                                              *A04
     8428                            * P4 = GROUP/SPACE LINE                                             *A04
     8429                            *                                                                      *
     8430                            * NO OTHER PARAMETERS REQUIRED                                         *
     8431                            *                                                                      *
     8432                            * USE DATA DIRECTIVE  FOR SELECTING CHARACTER AND POSITION(S).         *
     8433                            *                                                                      *
     8434   02 01835    32E01ACD     TST36    LW,14    :DATAP1           DATA PARAMETER
     8435   02 01836    21E00004 A            CI,14    4                 TEST FOR CHAR/POS SPECIFIED
     8436   02 01837    6830183B              BE       %+4               B: CHAR/POS SPECIFIED
     8437   02 01838    EAF0021C A            BAL,15   *:PRINT           PRINT ERROR MESSAGE
     8438   02 01839    00001986              DATA     TST36MSG          'CHARACTER/POSITION NOT SPECIFIED'
     8439   02 0183A    E8000214 A            B        *:MONITOR         EXIT TO MONITOR
     8440   02 0183B    224FFFDF A            LI,4     -33               BUFFER INDEX
     8441   02 0183C    32E01A89              LW,14    CHARBLNK          BLANK CHARACTER
     8442   02 0183D    35E822C6              STW,14   BUFFER2+33,4      STORE IN BUFFER
     8443   02 0183E    6540183D              BIR,4    %-1               B: LOOP TILL BUFFER COMPLETE
     8444                            *
     8445   02 0183F    22700000 A            LI,7     0                 RESET CHARACTER INDEX
     8446   02 01840    32501ACE              LW,5     :DATAP2           STARTING COLUMN
     8447   02 01841    33F00005 A            MTW,-1   5                 COLUMN INDEX
     8448   02 01842    72EE1AD0     TST3601  LB,14    :DATAP4,7         FETCH ONE CHARACTER
     8449   02 01843    75EA22A5              STB,14   BUFFER2,5         STORE IN BUFFER
     8450   02 01844    33100005 A            MTW,1    5                 INCREMENT COLUMN INDEX
     8451   02 01845    33100007 A            MTW,1    7                 INCREMENT CHARACTER INDEX
     8452   02 01846    4B700003 A            AND,7    3                 MASK OFF GREATER THAN 4 COUNT
     8453   02 01847    31501ACF              CW,5     :DATAP3           IS IT LAST CHARACTER
     8454   02 01848    69101842              BL       TST3601           B: NO
     8455   02 01849    72E20211 A            LB,14    :PSW,1            FETCH NO OF PARAMETER ENTERED
     8456   02 0184A    21E00003 A            CI,14    3                 COMPARE:3
     8457   02 0184B    6910184F              BL       TST3602           B: P3 NOT SPECIFIED
     8458   02 0184C    68301863              BE       TST3604           B: P4 NOT SPECIFIED
     8459   02 0184D    32E00203 A   TST3603  LW,14    :P3               LINE COUNT/GROUP
     8460   02 0184E    35E0194D              STW,14   T3LINE1           SAVE
     8461   02 0184F    22000D25     TST3602  LI,0     DA(IOCD3)         LOAD IOCD
     8462   02 01850    6AF02010              BAL,15   EXECUTE           PRINT ONE LINE
     8463   02 01851    68001852              B        %+1
     8464   02 01852    6AF01735              BAL,15   TST3A             TEST LINE COUNT
     8465   02 01853    72E20211 A            LB,14    :PSW,1            FETCH NO. OF PARAMETER ENTERED
     8466   02 01854    21E00003 A            CI,14    3                 COMPARE TO 3
     8467   02 01855    6910184F              BL       TST3602           B: P3 NOT SPECIFIED
     8468   02 01856    33F0194D              MTW,-1   T3LINE1           DECR LINE COUNT
     8469   02 01857    6920184F              BGZ      TST3602           B: LINE COUNT > 0
     8470   02 01858    32E00204 A            LW,14    :P4               SPACE LINE/GROUP
     8471   02 01859    6830184D              BEZ      TST3603           SPACE LINE = 0
     8472   02 0185A    35E0194D              STW,14   T3LINE1           SAVE
     8473   02 0185B    22E000C1 A            LI,14    X'C1'
     8474   02 0185C    75E01A88              STB,14   FORMAT            SPACE 1 LINE FORMAT
     8475   02 0185D    22000D22              LI,0     DA(IOCD1)         LOAD IOCD
     8476   02 0185E    6AF02010              BAL,15   EXECUTE           SPACE LINE
     8477   02 0185F    68001860              B        %+1               NO ERROR
     8478   02 01860    33F0194D              MTW,-1   T3LINE1           DECR LINE COUNT
     8479   02 01861    6920185D              BGZ      %-4               B: LINE COUNT > 0
     8480   02 01862    6800184D              B        TST3603           REPEAT
     8481   02 01863    22E00004 A   TST3604  LI,14    4
     8482   02 01864    35E0030A A            STW,14   :PIT10            PARAMETER IN ERROR
     8483   02 01865    EAF00229 A            BAL,15   *:PREPORT         REPORT PAR. ERROR
     8484   02 01866    00000326              DATA     :DIC+6            'TST3'
     8485   02 01867    E8000214 A            B        *:MONITOR         RETURN TO MONITOR
     8486                            *
     8487                            *                                                                      *
     8488                            *        *** TST37 - SPACE LINE ***                                    *
     8489                            *                                                                      *
     8490                            * SPACE ORDERS ARE ISSUE TO EACH OF THE 15 POSSIBLE POSITION IN        *
     8491                            * SEQUENCE.                                                            *
     8492                            *                                                                      *
     8493                            * P1 = 7.                                                              *
     8494                            *                                                                      *
     8495                            * NO OTHER PARAMETER REQUIRED.                                         *
     8496                            *                                                                      *
     8497   02 01868    22E00000 A   TST37    LI,14    0                 RESET
     8498   02 01869    35E0194B              STW,14   TST3CNT               SPACE COUNT
     8499   02 0186A    22E00060 A            LI,14    X'60'             INHIBIT UPSPACE
     8500   02 0186B    75E01A88              STB,14   FORMAT                AFTER PRINT FORMAT
     8501   02 0186C    72E01990              LB,14    TST37M1           FETCH BYTE COUNT
     8502   02 0186D    55E21A5B              STH,14   IOCD9+3,1         STORE IN IOCD
     8503   02 0186E    22E06641              LI,14    BA(TST37M1)+1     FETCH IOCD BYTE ADDRESS
     8504   02 0186F    55E21A5A              STH,14   IOCD9+2,1         STORE IN IOCD
     8505   02 01870    22000D2C              LI,0     DA(IOCD9)         LOAD IOCD
     8506   02 01871    6AF02010              BAL,15   EXECUTE           PRINT A LINE WITH INHIBIT UPSPACE
     8507   02 01872    68001874              B        %+2               NO ERROR
     8508   02 01873    351015B5              STW,1    EXECERR1          SET ERROR FLAG
     8509   02 01874    22E0003B A            LI,14    59                FETCH BYTE COUNT
     8510   02 01875    55E61A56              STH,14   IOCD8,3           STORE IN IOCD
     8511   02 01876    22E06660              LI,14    BA(TST37M2)       FETCH IOCD BYTE ADDRESS
     8512   02 01877    55E21A56              STH,14   IOCD8,1           STORE IN IOCD
     8513   02 01878    22000D2B              LI,0     DA(IOCD8)         LOAD IOCD
     8514   02 01879    6AF02010              BAL,15   EXECUTE           PRINT A LINE
     8515   02 0187A    6800187B              B        %+1
     8516   02 0187B    22E000C0 A            LI,14    X'C0'             SPACE 0 LINE
     8517   02 0187C    75E01A88              STB,14   FORMAT                FORMAT
     8518   02 0187D    32C0194B     TST3701  LW,12    TST3CNT           NUMBER OF SPACES
     8519   02 0187E    EAF00217 A            BAL,15   *:DECC            CONVERT TO EBCDIC
     8520   02 0187F    55F219A9              STH,15   TST37M3+2,1       STORE IN MESSAGE
     8521   02 01880    72E019A7              LB,14    TST37M3           FETCH BYTE COUNT
     8522   02 01881    55E21A5B              STH,14   IOCD9+3,1         STORE IN IOCD
     8523   02 01882    22E0669D              LI,14    BA(TST37M3)+1     FETCH IOCD BYTE ADDRESS
     8524   02 01883    55E21A5A              STH,14   IOCD9+2,1         STORE IN IOCD
     8525   02 01884    22000D2C              LI,0     DA(IOCD9)         LOAD IOCD
     8526   02 01885    6AF02010              BAL,15   EXECUTE           PRINT MESSAGE
     8527   02 01886    68001888              B        %+2               NO ERROR
     8528   02 01887    351015B5              STW,1    EXECERR1          SET ERROR FLAG
     8529   02 01888    3310194B              MTW,1    TST3CNT           INCREMENT SPACE COUNT
     8530   02 01889    73101A88              MTB,1    FORMAT            INCREMENT SPACE FORMAT
     8531   02 0188A    32C0194B              LW,12    TST3CNT           SPACE FORMAT
     8532   02 0188B    52E20335              LH,14    :CDB,1            FETCH MODEL NUMBER
     8533   02 0188C    21E01D1A A            CI,14    7450              IS IT MODEL 7450
     8534   02 0188D    69301891              BNE      TST3704           B: NOT MODEL 7450
     8535   02 0188E    21C00007 A            CI,12    7                 CP: SPACE LINE:7
     8536   02 0188F    6820187D              BLE      TST3701           B: SPACE LINE LESS OR EQUAL TO 7
     8537   02 01890    69201737              BG       TST3B             B: SPACE LINE GREATER THAN 7
     8538   02 01891    21C0000A A   TST3704  CI,12    10                CP: SPACE LINE:10
     8539   02 01892    6910187D              BL       TST3701           B: SPACE LINE IS LESS THAN 10
     8540   02 01893    692018A0              BG       TST3703           B: SPACE LINE IS GREATER THAN 10
     8541   02 01894    72E019AC     TST3702  LB,14    TST37TP           FETCH BYTE COUNT
     8542   02 01895    55E21A5B              STH,14   IOCD9+3,1         STORE IN IOCD
     8543   02 01896    22E066B1              LI,14    BA(TST37TP)+1     FETCH IOCD BYTE ADDRESS
     8544   02 01897    55E21A5A              STH,14   IOCD9+2,1         STORE IN IOCD
     8545   02 01898    32D02270              LW,13    =X'F1000000'      TOP OF PAGE FORMAT
     8546   02 01899    46D01A88              XW,13    FORMAT            EXCHANGE FORMAT
     8547   02 0189A    22000D2C              LI,0     DA(IOCD9)         LOAD IOCD
     8548   02 0189B    6AF02010              BAL,15   EXECUTE           SKIP TO TOP OF PAGE
     8549   02 0189C    6800189E              B        %+2               NO ERROR
     8550   02 0189D    351015B5              STW,1    EXECERR1          SET ERROR FLAG
     8551   02 0189E    46D01A88              XW,13    FORMAT            EXCHANGE FORMAT
     8552   02 0189F    6800187D              B        TST3701           NEXT SPACE FORMAT
     8553   02 018A0    21C0000D A   TST3703  CI,12    13                CP: SPACE LINE:13
     8554   02 018A1    68301894              BE       TST3702           B: SPACE LINE EQUAL 13
     8555   02 018A2    21C0000F A            CI,12    15                CP: SPACE LINE:15
     8556   02 018A3    6910187D              BL       TST3701           B: SPACE LINE LESS THAN 15
     8557   02 018A4    68301894              BE       TST3702           B: SPACE LINE EQUAL 15
     8558   02 018A5    68001737              B        TST3B             GO TO TST3
     8559                            *
     8560                            *                                                                      *
     8561                            *        *** TST38 - CHANNEL SEARCH ***                                *
     8562                            *                                                                      *
     8563                            * CHANNEL SEARCHES ARE ISSUE TO THE OPERATOR-SPECIFIED CHANNEL         *
     8564                            *                                                                      *
     8565                            * P1 = 8.                                                              *
     8566                            * P2 = CHANNEL NUMBER  0 <= P2 <= 7                                    *
     8567                            *  P3 = 1 SEARCH CHANNEL WITH INHIBIT UPSPACE                       *A02
     8568                            * P2 NOT SPECIFIED - SEARCH ALL CHANNELS SEQUENCE
     8569                            *                                                                      *
     8570                            * NO OTHER PARAMETERS REQUIRED.                                        *
     8571                            *                                                                      *
     8572   02 018A6    311015B6     TST38    CW,1     TST1FLAG          IS IT FUNCTIONAL TEST
     8573   02 018A7    682018AC              BLE      TST3804           B: YES
     8574   02 018A8    32C00202 A            LW,12    :P2               SKIP TO CHANNEL
     8575   02 018A9    72E20211 A            LB,14    :PSW,1            FETCH NUMBER OF PARAMETER ENTERED
     8576   02 018AA    21E00002 A            CI,14    2                 COMPARE TO 2
     8577   02 018AB    681018AD              BGE      %+2               P2 SPECIFIED                    *A02
     8578   02 018AC    22C00000 A   TST3804  LI,12    0                 SKIP TO CHANNEL 0
     8579   02 018AD    35C0194B              STW,12   TST3CNT           SAVE SKIP TO CHANNEL
     8580   02 018AE    22E000F0 A            LI,14    X'F0'                                             *A02
     8581   02 018AF    35E018E3              STW,14   FMTCODE           FORMAT CODE                     *A02
     8582   02 018B0    21C00007 A            CI,12    7                 IS PARAMETER GREATER THAN 7
     8583   02 018B1    682018DB              BLE      TST3805           B: NO                           *A02
     8584   02 018B2    3520030A A            STW,2    :PIT10            PARAMETER IN ERROR: P2 > 7
     8585   02 018B3    EAF00229 A            BAL,15   *:PREPORT         REPORT PAR. ERROR
     8586   02 018B4    00000326              DATA     :DIC+6            'TST3'
     8587   02 018B5    E8000214 A            B        *:MONITOR         EXIT TO MONITOR
     8588   02 018B6    32C0194B     TST3802  LW,12    TST3CNT           CHANNEL NUMBER                  *A02
     8589   02 018B7    49C018E3              OR,12    FMTCODE           MERGE WITH FORMAT CODE          *A02
     8590   02 018B8    EAF00218 A            BAL,15   *:HEXC            CONVERT TO HEX                  *A02
     8591   02 018B9    55F019B5              STH,15   TST38MSG+5        STORE IN MESSAGE
     8592   02 018BA    32C0194B              LW,12    TST3CNT           SKIP TO CHANNEL
     8593   02 018BB    49C018E3              OR,12    FMTCODE           MERGE WITH FORMAT CODE          *A02
     8594   02 018BC    75C01A88              STB,12   FORMAT            SAVE IN FORMAT
     8595   02 018BD    72E019B0              LB,14    TST38MSG          FETCH BYTE COUNT
     8596   02 018BE    55E61A5A              STH,14   IOCD9+2,3         STORE IN IOCD
     8597   02 018BF    22E066C1              LI,14    BA(TST38MSG)+1    FETCH MEMORY BYTE ADDRESS
     8598   02 018C0    55E21A5A              STH,14   IOCD9+2,1         STORE IN IOCD
     8599   02 018C1    22000D22     TST3801  LI,0     DA(IOCD1)         LOAD IOCD
     8600   02 018C2    6AF02010              BAL,15   EXECUTE           SKIP TO CHANNEL XX
     8601   02 018C3    680018C5              B        %+2               NO ERROR
     8602   02 018C4    351015B5              STW,1    EXECERR1          SET ERROR FLAG
     8603   02 018C5    22E00060 A            LI,14    X'60'
     8604   02 018C6    75E01A88              STB,14   FORMAT            INHIBIT AUTOMATIC UPSPACE FORMAT
     8605   02 018C7    22000D2C              LI,0     DA(IOCD9)         LOAD IOCD
     8606   02 018C8    6AF02010              BAL,15   EXECUTE           PRINT MESSAGE
     8607   02 018C9    680018CB              B        %+2               NO ERROR
     8608   02 018CA    351015B5              STW,1    EXECERR1          SET ERROR FLAG
     8609   02 018CB    311015B6              CW,1     TST1FLAG          IS IT FUNCTIONAL TEST
     8610   02 018CC    682018D0              BLE      %+4               B: YES
     8611   02 018CD    72C20211 A            LB,12    :PSW,1            FETCH NUMBER OF PARAMETER ENTERED
     8612   02 018CE    21C00002 A            CI,12    2                 COMPARE TO 2
     8613   02 018CF    68101737              BGE      TST3B             B: P2 SPECIFIED                 *A02
     8614   02 018D0    3310194B              MTW,1    TST3CNT           INCREMENT SKIP TO CHANNEL
     8615   02 018D1    32C0194B              LW,12    TST3CNT           SKIP TO CHANNEL
     8616   02 018D2    52E20335              LH,14    :CDB,1            FETCH MODEL NUMBER
     8617   02 018D3    21E01D1A A            CI,14    7450              IS IT MODEL 7450
     8618   02 018D4    693018D8              BNE      TST3803           B: NOT MODEL 7450
     8619   02 018D5    21C00001 A            CI,12    1                 COMPARE TO 1
     8620   02 018D6    682018B6              BLE      TST3802           B: SKIP TO CHANNEL <= 7
     8621   02 018D7    68001737              B        TST3B             GO TO TST3
     8622   02 018D8    21C00007 A   TST3803  CI,12    7                 COMPARE TO 7
     8623   02 018D9    682018B6              BLE      TST3802           B: SKIP TO CHANNEL <= 7
     8624   02 018DA    68001737              B        TST3B             GO TO TST3
     8625   02 018DB    31100203 A   TST3805  CW,1     :P3               IS IT FOR SKIP WITH INH. UPS PCE*A02
     8626   02 018DC    693018B6              BNE      TST3802           B: NO                           *A02
     8627   02 018DD    52E20335              LH,14    :CDB,1            MODEL NUMBER                    *A02
     8628   02 018DE    21E01D16 A            CI,14    7446              IS IT MODEL 7446                *A02
     8629   02 018DF    693018B6              BNE      TST3802           B: NO                           *A02
     8630   02 018E0    22E000D0 A            LI,14    X'D0'             SKIP WITH INHIBIT UPSPACE FORMAT*A02
     8631   02 018E1    35E018E3              STW,14   FMTCODE                                           *A02
     8632   02 018E2    680018B6              B        TST3802                                           *A02
     8633   02 018E3    00000000 A   FMTCODE  DATA     0                                                 *A02
     8634                            *                                                                      *
     8635                            *                                                                      *
     8636                            *        *** TST39 - UTILITY TEST ***                                  *
     8637                            *                                                                      *
     8638                            * RUN ALL UTILITY TEST IN SEQUENCE                                     *
     8639                            *                                                                      *
     8640                            * P1 = 9                                                               *
     8641                            * P2 = LINE COUNT                                                      *
     8642                            *                                                                      *
     8643                            * NO OTHER PARAMETER REQUIRES                                          *
     8644                            *                                                                      *
     8645   02 018E4    22E00000 A   TST39    LI,14    0
     8646   02 018E5    35E015B4              STW,14   TSTP1             RESET P1 COUNT
     8647   02 018E6    352015B6              STW,2    TST1FLAG          SET TST39 FLAG
     8648   02 018E7    68001718              B        TST3D             RUN UTILITY TEST
     8649   02 018E8    331015B4     TST3901  MTW,1    TSTP1             INCREMENT P1
     8650   02 018E9    22E000C4 A            LI,14    X'C4'
     8651   02 018EA    75E01A88              STB,14   FORMAT            SPACE 4 LINE FORMAT
     8652   02 018EB    32E015B4              LW,14    TSTP1             P1
     8653   02 018EC    21E00006 A            CI,14    6                 TSTP1:6
     8654   02 018ED    69101718              BL       TST3D             RUN UTILITY TEST
     8655   02 018EE    683018E8              BE       TST3901           B: INCREMENT P1
     8656   02 018EF    21E00008 A            CI,14    8                 TSTP1:8
     8657   02 018F0    68201718              BLE      TST3D             TSTP1 <= 8
     8658   02 018F1    EAF02200              BAL,15   *:SENSE
     8659   02 018F2    2E0018F2              WAIT     %
     8660   02 018F3    680018E4              B        TST39             LOOP
     8661   02 018F4    E8000214 A            B        *:MONITOR         RETURN TO MONITOR
     8662                            *                                                                  *A04
     8663                            *                                                                  *A04
     8664                            *        *** TST310 - LINE PRINTER CLEANER TEST ***                *A04
     8665                            *
     8666                            * PRINT RIPPLE PATTERN WITH INHIBIT UPSPACE                        *A04
     8667                            *                                                                  *A04
     8668                            * P1 = 10                                                          *A04
     8669                            * P2 = LINE COUNT                                                  *A04
     8670                            *                                                                  *A04
     8671                            * NO OTHER PARAMETER REQUIRES                                      *A04
     8672                            *                                                                  *A04
     8673   02 018F5    71220211 A   TST310   CB,2     :PSW,1            TEST PARAMETER COUNT           *A04
     8674   02 018F6    682018F9              BLE      TST31001          B: P2 SPECIFIED                *A04
     8675   02 018F7    22E00040 A            LI,14    64                                               *A04
     8676   02 018F8    35E0194C              STW,14   TST3LINE          SET LINE COUNT                 *A04
     8677   02 018F9    224FFFC0 A   TST31001 LI,4     -64               BUFFER INDEX                   *A04
     8678   02 018FA    52E20335              LH,14    :CDB,1            FETCH MODEL NUMBER             *A04
     8679   02 018FB    21E01D12 A            CI,14    7442              IS IT 7442                     *A04
     8680   02 018FC    6930190B              BNE      TST31005          B: NO                          *A04
     8681   02 018FD    22E00000 A            LI,14    0                 FETCH CHARACTER                *A04
     8682   02 018FE    22600000 A   TST31003 LI,6     0                 CHARACTER BYTE INDEX           *A04
     8683   02 018FF    35E0223E     TST31004 STW,14   INVCHARX          SAVE CHARACTER                 *A04
     8684   02 01900    6AF0222C              BAL,15   INVCHAR           FETCH VALID CHARACTER          *A04
     8685   02 01901    75EC2246              STB,14   INVCX,6           SAVE CHARACTER IN WORD         *A04
     8686   02 01902    3310000E A            MTW,1    14                NEXT CHARACTER                 *A04
     8687   02 01903    33100006 A            MTW,1    6                 INCR CHARACTER BYTE INDEX      *A04
     8688   02 01904    21600004 A            CI,6     4                 HAS 4 CHAR STORED IN WD        *A04
     8689   02 01905    691018FF              BL       TST31004          B: NO                          *A04
     8690   02 01906    32F02246              LW,15    INVCX             FETCH 4 CHARACTER              *A04
     8691   02 01907    35F822C4              STW,15   BUFFER1+64,4      STORE IN BUFFER1               *A04
     8692   02 01908    21600004 A            CI,6     4                 HAS 4 CHAR STORED              *A04
     8693   02 01909    654018FE              BIR,4    TST31003          B: LOOP TILL 256 BYTE COMPETE  *A04
     8694   02 0190A    6800190F              B        TST31006                                         *A04
     8695   02 0190B    32E0226C     TST31005 LW,14    =X'00010203'      FETCH WORD OF INCR BYTE        *A04
     8696   02 0190C    35E822C4              STW,14   BUFFER1+64,4      STORE IN BUFFER1               *A04
     8697   02 0190D    30E0226D              AW,14    =X'04040404'      INCREMENT BYTES                *A04
     8698   02 0190E    6540190C              BIR,4    %-2               B: LOOP TILL 256 INCR BYTES   *A04
     8699   02 0190F    22E00060 A   TST31006 LI,14    X'60'             INHIBIT UPSPACE FORMAT         *A04
     8700   02 01910    75E01A88              STB,14   FORMAT            SAVE                           *A04
     8701   02 01911    22E08A10     TST31007 LI,14    BA(BUFFER1)       INITIALIZE                     *A04
     8702   02 01912    55E21A86              STH,14   IOCD25+2,1            BYTE ADDR                  *A04
     8703   02 01913    22EFFFC0 A            LI,14    -64                                              *A04
     8704   02 01914    35E0194B              STW,14   TST3CNT           SET COUNTER                    *A04
     8705   02 01915    22000D42     TST31002 LI,0     DA(IOCD25)        LOAD IOCD                      *A04
     8706   02 01916    6AF02010              BAL,15   EXECUTE           PRINT A LINE                   *A04
     8707   02 01917    68001919              B        %+2               NO ERROR                       *A04
     8708   02 01918    351015B5              STW,1    EXECERR1          SET ERROR FLAG                 *A04
     8709   02 01919    6AF01735              BAL,15   TST3A             TEST LINE COUNT                *A04
     8710   02 0191A    3310194B              MTW,1    TST3CNT           INCR COUNTER                   *A04
     8711   02 0191B    68101911              BGEZ     TST31007          B: REPEAT RIPPLE TEST          *A04
     8712   02 0191C    33101A86              MTW,1    IOCD25+2          INCR BYTE ADDR                 *A04
     8713   02 0191D    68001915              B        TST31002          LOOP                           *A04
     8714   02 0191E    33F01924     TST33MTW MTW,-1   TST33CT
     8715   02 0191F    0F001920     TST33CTZ XPSD,0   TST33Z
     8716                                     BOUND    8
     8717   02 01920    00000000 A   TST33Z   DATA     0,0
            02 01921    00000000 A
     8718   02 01922    00001803              DATA     TST33CTR,0
            02 01923    00000000 A
     8719   02 01924    00000000 A   TST33CT  DATA     0
     8720   02 01925    00000000 A   TST33SAV DATA     0
     8721   02 01926    00000000 A   TST33X   DATA     0
     8722   02 01927                 TST33PT  RES      36
     8723   02 0194B    00000000 A   TST3CNT  DATA     0
     8724   02 0194C    00000000 A   TST3LINE DATA     0
     8725   02 0194D    00000000 A   T3LINE1  DATA     0
     8726   02 0194E    00000000 A   CHARTBLX DATA     0
     8727   02 0194F    00000000 A   SYNCCHAR DATA     0
     8728   02 01950    00000000 A   LASTCHAR DATA     0
     8729   02 01951    00009C40 A   IOMDT    DATA     40000
     8730   02 01952    10C9D640 A   IOMDTMSG TEXTC    'IO DELAY TIMEOUT'
            02 01953    C4C5D3C1 A
            02 01954    E840E3C9 A
            02 01955    D4C5D6E4 A
            02 01956    E3404040 A
     8731                            *
     8732   02 01957    000019B6     TABLEMSG DATA     HDMSG1
     8733   02 01958    000019BD              DATA     HDMSG2
     8734   02 01959    000019C3              DATA     HDMSG3
     8735   02 0195A    000019C9              DATA     HDMSG4
     8736   02 0195B    000019CE              DATA     HDMSG5
     8737   02 0195C    000019D3              DATA     HDMSG6
     8738   02 0195D    000019D7              DATA     HDMSG7
     8739   02 0195E    000019E0              DATA     HDMSG8
     8740   02 0195F    000019E6              DATA     HDMSG9
     8741   02 01960    000019EE              DATA     HDMSG10
     8742   02 01961    000019F2              DATA     HDMSG11                                          *A04
     8743   02 01962    0000173E     TST3TST  DATA     TST30             HAMMER REGISTRATION TEST PATTERN
     8744   02 01963    00001748              DATA     TST31             CHECKERBOARD PATTERN
     8745   02 01964    0000175D              DATA     TST32             RIPPLE TEST PATTERN
     8746   02 01965    00001780              DATA     TST33             PRINTER SPEED TEST
     8747   02 01966    00001807              DATA     TST34             PRINTER LOAD TEST PATTERN
     8748   02 01967    0000181B              DATA     TST35             BROADSIDE TEST PATTERN
     8749   02 01968    00001835              DATA     TST36             SELECTABLE CHAR/PRINT POSITION TEST
     8750   02 01969    00001868              DATA     TST37             SKIP LINE TEST
     8751   02 0196A    000018A6              DATA     TST38             CHANNEL SEARCH TEST
     8752   02 0196B    000018E4              DATA     TST39             LINE PRINTER CLEANER TEST   *A04
     8753   02 0196C    000018F5             DATA     TST310           LINE PRINTER CLEANER TEST    *A04
     8754                            *
     8755   02 0196D    40D3C9D5 A   TST33MSG TEXT     ' LINES/MINUTE = XXXX    '
            02 0196E    C5E261D4 A
            02 0196F    C9D5E4E3 A
            02 01970    C5407E40 A
            02 01971    E7E7E7E7 A
            02 01972    40404040 A
     8756   02 01973    D4E261D3 A            TEXT     'MS/LINE:  MAX.= XXXX  MIN.= XXXX'
            02 01974    C9D5C57A A
            02 01975    4040D4C1 A
            02 01976    E74B7E40 A
            02 01977    E7E7E7E7 A
            02 01978    4040D4C9 A
            02 01979    D54B7E40 A
            02 0197A    E7E7E7E7 A
     8757   02 0197B    2AC3D5E3 A   TSTCTZMG TEXTC    'CNT4 = 0 INTER RECD  BEFORE TST33 COMPLETE'
            02 0197C    F4407E40 A
            02 0197D    F040C9D5 A
            02 0197E    E3C5D940 A
            02 0197F    D9C5C3C4 A
            02 01980    4040C2C5 A
            02 01981    C6D6D9C5 A
            02 01982    40E3E2E3 A
            02 01983    F3F340C3 A
            02 01984    D6D4D7D3 A
            02 01985    C5E3C540 A
     8758   02 01986    27C5D9D9 A   TST36MSG TEXTC    'ERROR: CHARACTER/POSITION NOT SPECIFIED'
            02 01987    D6D97A40 A
            02 01988    C3C8C1D9 A
            02 01989    C1C3E3C5 A
            02 0198A    D961D7D6 A
            02 0198B    E2C9E3C9 A
            02 0198C    D6D540D5 A
            02 0198D    D6E340E2 A
            02 0198E    D7C5C3C9 A
            02 0198F    C6C9C5C4 A
     8759   02 01990    1FE2E4D7 A   TST37M1  TEXTC    'SUPPRESS SPACE AFTER PRINT ----'
            02 01991    D7D9C5E2 A
            02 01992    E240E2D7 A
            02 01993    C1C3C540 A
            02 01994    C1C6E3C5 A
            02 01995    D940D7D9 A
            02 01996    C9D5E340 A
            02 01997    60606060 A
     8760   02 01998    40404040 A   TST37M2  TEXT     '                                '
            02 01999    40404040 A
            02 0199A    40404040 A
            02 0199B    40404040 A
            02 0199C    40404040 A
            02 0199D    40404040 A
            02 0199E    40404040 A
            02 0199F    40404040 A
     8761   02 019A0    60606060 A            TEXT     '---- SHOULD PRINT SAME LINE'
            02 019A1    40E2C8D6 A
            02 019A2    E4D3C440 A
            02 019A3    D7D9C9D5 A
            02 019A4    E340E2C1 A
            02 019A5    D4C540D3 A
            02 019A6    C9D5C540 A
     8762   02 019A7    11E2D7C1 A   TST37M3  TEXTC    'SPACED   XX LINES'
            02 019A8    C3C5C440 A
            02 019A9    4040E7E7 A
            02 019AA    40D3C9D5 A
            02 019AB    C5E24040 A
     8763   02 019AC    0FE3D6D7 A   TST37TP  TEXTC    'TOP - OF - PAGE'
            02 019AD    406040D6 A
            02 019AE    C6406040 A
            02 019AF    D7C1C7C5 A
     8764   02 019B0    15E2D2C9 A   TST38MSG TEXTC    'SKIPPED TO CHANNEL XX'
            02 019B1    D7D7C5C4 A
            02 019B2    40E3D640 A
            02 019B3    C3C8C1D5 A
            02 019B4    D5C5D340 A
            02 019B5    E7E74040 A
     8765   02 019B6    18C8C1D4 A   HDMSG1   TEXTC    'HAMMER REGISTRATION TEST'
            02 019B7    D4C5D940 A
            02 019B8    D9C5C7C9 A
            02 019B9    E2E3D9C1 A
            02 019BA    E3C9D6D5 A
            02 019BB    40E3C5E2 A
            02 019BC    E3404040 A
     8766   02 019BD    14C3C8C5 A   HDMSG2   TEXTC    'CHECKERBOARD PATTERN'
            02 019BE    C3D2C5D9 A
            02 019BF    C2D6C1D9 A
            02 019C0    C440D7C1 A
            02 019C1    E3E3C5D9 A
            02 019C2    D5404040 A
     8767   02 019C3    15C3C8C1 A   HDMSG3   TEXTC    'CHARACTER RIPPLE TEST'
            02 019C4    D9C1C3E3 A
            02 019C5    C5D940D9 A
            02 019C6    C9D7D7D3 A
            02 019C7    C540E3C5 A
            02 019C8    E2E34040 A
     8768   02 019C9    12D7D9C9 A   HDMSG4   TEXTC    'PRINTER SPEED TEST'
            02 019CA    D5E3C5D9 A
            02 019CB    40E2D7C5 A
            02 019CC    C5C440E3 A
            02 019CD    C5E2E340 A
     8769   02 019CE    11D7D9C9 A   HDMSG5   TEXTC    'PRINTER LOAD TEST'
            02 019CF    D5E3C5D9 A
            02 019D0    40D3D6C1 A
            02 019D1    C440E3C5 A
            02 019D2    E2E34040 A
     8770   02 019D3    0EC2D9D6 A   HDMSG6   TEXTC    'BROADSIDE TEST'
            02 019D4    C1C4E2C9 A
            02 019D5    C4C540E3 A
            02 019D6    C5E2E340 A
     8771   02 019D7    20E2C5D3 A   HDMSG7   TEXTC    'SELECTABLE PATTERN/POSITION TEST'
            02 019D8    C5C3E3C1 A
            02 019D9    C2D3C540 A
            02 019DA    D7C1E3E3 A
            02 019DB    C5D9D561 A
            02 019DC    D7D6E2C9 A
            02 019DD    E3C9D6D5 A
            02 019DE    40E3C5E2 A
            02 019DF    E3404040 A
     8772   02 019E0    17D7D9C9 A   HDMSG8   TEXTC    'PRINTER LINE SPACE TEST'
            02 019E1    D5E3C5D9 A
            02 019E2    40D3C9D5 A
            02 019E3    C540E2D7 A
            02 019E4    C1C3C540 A
            02 019E5    E3C5E2E3 A
     8773   02 019E6    1CD7D9C9 A   HDMSG9   TEXTC    'PRINTER VERTICAL FORMAT TEST'
            02 019E7    D5E3C5D9 A
            02 019E8    40E5C5D9 A
            02 019E9    E3C9C3C1 A
            02 019EA    D340C6D6 A
            02 019EB    D9D4C1E3 A
            02 019EC    40E3C5E2 A
            02 019ED    E3404040 A
     8774   02 019EE    0CE4E3C9 A   HDMSG10  TEXTC    'UTILITY TEST'                                   *A04
            02 019EF    D3C9E3E8 A
            02 019F0    40E3C5E2 A
            02 019F1    E3404040 A
     8775   02 019F2    19D3C9D5 A   HDMSG11  TEXTC    'LINE PRINTER CLEANER TEST'                      *A04
            02 019F3    C540D7D9 A
            02 019F4    C9D5E3C5 A
            02 019F5    D940C3D3 A
            02 019F6    C5C1D5C5 A
            02 019F7    D940E3C5 A
            02 019F8    E2E34040 A
     8776                            *                                                                      *
     8777                            *                *** INDEXED PRINTER  CHARACTERS              ***      *
     8778                            *                *** CHARACTER SEQUENCE = PRINT DRUM SEQUENCE ***      *
     8779                            *                                                                      *
     8780   02 019F9    40F0F1F2 A   CHARTBL1 DATA     X'40F0F1F2'          0 1 2
     8781   02 019FA    F3F4F5F6 A            DATA     X'F3F4F5F6'       3 4 5 6
     8782   02 019FB    F7F8F94B A            DATA     X'F7F8F94B'       7 8 9 .
     8783   02 019FC    606BC5E3 A            DATA     X'606BC5E3'       - , E T
     8784   02 019FD    C1C9E2D6 A            DATA     X'C1C9E2D6'       A I S O
     8785   02 019FE    D5C8D9C4 A            DATA     X'D5C8D9C4'       N H R D
     8786   02 019FF    D3E4C3D4 A            DATA     X'D3E4C3D4'       L U C M
     8787   02 01A00    C6E6E8D7 A            DATA     X'C6E6E8D7'       F W Y P
     8788   02 01A01    C7C2D2D1 A            DATA     X'C7C2D2D1'       G B K J
     8789   02 01A02    D8E7E9E5 A            DATA     X'D8E7E9E5'       Q X Z V
     8790   02 01A03    5C4E615E A            DATA     X'5C4E615E'       * + / ;
     8791   02 01A04    7E4D5D4C A            DATA     X'7E4D5D4C'       = ( ) <
     8792   02 01A05    6E7A7C7B A            DATA     X'6E7A7C7B'       > : @ #
     8793   02 01A06    6C7D5B4F A            DATA     X'6C7D5B4F'       % , % |
     8794   02 01A07    50F3F4F5 A            DATA     X'50F3F4F5'       & O J K
     8795   02 01A08    40F0F1F2 A   CHARTBL  DATA     X'40F0F1F2'         0 1 2
     8796   02 01A09    F3F4F5F6 A            DATA     X'F3F4F5F6'       3 4 5 6
     8797   02 01A0A    F74BF86B A            DATA     X'F74BF86B'       7 . 8 ,
     8798   02 01A0B    F960C5E3 A            DATA     X'F960C5E3'       9 - E T
     8799   02 01A0C    C1C9E2D6 A            DATA     X'C1C9E2D6'       A I S O
     8800   02 01A0D    D5C8D9C4 A            DATA     X'D5C8D9C4'       N H R D
     8801   02 01A0E    D3E4C3D4 A            DATA     X'D3E4C3D4'       L U C M
     8802   02 01A0F    C6E6E8D7 A            DATA     X'C6E6E8D7'       F W Y P
     8803   02 01A10    C7E5C2D2 A            DATA     X'C7E5C2D2'       G V B K
     8804   02 01A11    D1D8E7E9 A            DATA     X'D1D8E7E9'       J O X Z
     8805   02 01A12    5B5C614E A            DATA     X'5B5C614E'       % * / +
     8806   02 01A13    7A7E7D4D A            DATA     X'7A7E7D4D'       : = , (
     8807   02 01A14    5D6E4C7B A            DATA     X'5D6E4C7B'       ) > < #
     8808   02 01A15    507F6C7C A            DATA     X'507F6C7C'       & " % @
     8809   02 01A16    4F6A5A6D A   CHARTBLA DATA     X'4F6A5A6D'
     8810   02 01A17    6F5E4A5F A            DATA     X'6F5E4A5F'       ? ; ` ~
     8811   02 01A18    40C5E3C1 A   CHARTBL2 DATA     X'40C5E3C1'         E T A                        *A04
     8812   02 01A19    C9E2D6D5 A            DATA     X'C9E2D6D5'       I S O N                        *A04
     8813   02 01A1A    C8D9C4D3 A            DATA     X'C8D9C4D3'       H R D L                        *A04
     8814   02 01A1B    E4F0F1F2 A            DATA     X'E4F0F1F2'       U 0 1 2                        *A04
     8815   02 01A1C    F3F4F5F6 A            DATA     X'F3F4F5F6'       3 4 5 6                        *A04
     8816   02 01A1D    F74BF86B A            DATA     X'F74BF86B'       7 ' 8 ,                        *A04
     8817   02 01A1E    F960C3D4 A            DATA     X'F960C3D4'       9 - C M                        *A04
     8818   02 01A1F    C6E6E8D7 A            DATA     X'C6E6E8D7'       F W Y P                        *A04
     8819   02 01A20    C7E5C2D2 A            DATA     X'C7E5C2D2'       G V B K                        *A04
     8820   02 01A21    D1D8E7E9 A            DATA     X'D1D8E7E9'       J Q X Z                        *A04
     8821   02 01A22    5B5C4A61 A   CHARTBLS DATA     X'5B5C4A61'       % * & /                        *A04
     8822   02 01A23    4E7A7E4D A            DATA     X'4E7A7E4D'       + : = (                        *A04
     8823   02 01A24    7D5D6E4C A            DATA     X'7D5D6E4C'       ' ) > .                        *A04
     8824   02 01A25    7B507F6C A            DATA     X'7B507F6C'       # & " %                        *A04
     8825   02 01A26    7CB16F5A A            DATA     X'7CB16F5A'       @ > ? !                        *A04
     8826   02 01A27    5F4F5EB4 A            DATA     X'5F4F5EB4'           ; (                        *A04
     8827   02 01A28    B5456341 A            DATA     X'B5456341'       ) E T A                        *A04
     8828   02 01A29    49625655 A            DATA     X'49625655'       I S O N                        *A04
     8829   02 01A2A    48594453 A            DATA     X'48594453'       H R D L                        *A04
     8830   02 01A2B    64707172 A            DATA     X'64707172'       U 0 1 2                        *A04
     8831   02 01A2C    73747576 A            DATA     X'73747576'       3 4 5 6                        *A04
     8832   02 01A2D    77CB78EB A            DATA     X'77CB78EB'       7 ' 8 ,                        *A04
     8833   02 01A2E    79E04354 A            DATA     X'79E04354'       9 - C M                        *A04
     8834   02 01A2F    46666857 A            DATA     X'46666857'       F W Y P                        *A04
     8835   02 01A30    47654252 A            DATA     X'47654252'       G  V B K                       *A04
     8836   02 01A31    51586785 A            DATA     X'51586785'       J  Q X E                       *A04
     8837   02 01A32    A38189A2 A            DATA     X'A38189A2'       T  A I S                       *A04
     8838   02 01A33    96958899 A            DATA     X'96958899'       O  N H R                       *A04
     8839   02 01A34    8493A483 A            DATA     X'8493A483'       D  L U C                       *A04
     8840   02 01A35    9486A6A8 A            DATA     X'9486A6A8'       M  F W Y                       *A04
     8841   02 01A36    9787A582 A            DATA     X'9787A582'       P  G V B                       *A04
     8842   02 01A37    929198A7 A            DATA     X'929198A7'       K  J P X                       *A04
     8843   02 01A38    A9000000 A            DATA     X'A9000000'       Z                              *A04
     8844   02 01A39    000A0B0C A   INVCTBL  DATA     X'000A0B0C'                                       *A04
     8845   02 01A3A    0D0E0F10 A            DATA     X'0D0E0F10'                                       *A04
     8846   02 01A3B    1A1B1C1D A            DATA     X'1A1B1C1D'                                       *A04
     8847   02 01A3C    1E1F2021 A            DATA     X'1E1F2021'                                       *A04
     8848   02 01A3D    2A2B2C2D A            DATA     X'2A2B2C2D'                                       *A04
     8849   02 01A3E    2E2F3032 A            DATA     X'2E2F3032'                                       *A04
     8850   02 01A3F    33363738 A            DATA     X'33363738'                                       *A04
     8851   02 01A40    393A3B3C A            DATA     X'393A3B3C'                                       *A04
     8852   02 01A41    3D3E3F6A A            DATA     X'3D3E3F6A'                                       *A04
     8853   02 01A42    6D000000 A            DATA     X'6D000000'                                       *A04
     8854                            *
     8855                                     BOUND    8
     8856   02 01A44    03006A20     IOCD1    GEN,8,24 X'03',BA(FORMAT)  FORMAT
     8857   02 01A45    10000001 A            GEN,8,24 X'10',1
     8858   02 01A46    05006A20     IOCD2    GEN,8,24 X'05',BA(FORMAT)  FORMAT
     8859   02 01A47    80000001 A            GEN,8,24 X'80',1           (DATA CHAIN)
     8860   02 01A48    05008A94              GEN,8,24 X'05',BA(BUFFER2) PRINT
     8861   02 01A49    10000084 A            GEN,8,24 X'10',132
     8862   02 01A4A    01008A94     IOCD3    GEN,8,24 X'01',BA(BUFFER2) PRINT
     8863   02 01A4B    10000084 A            GEN,8,24 X'10',132
     8864   02 01A4C    01008A94     IOCD4    GEN,8,24 X'01',BA(BUFFER2) PRINT
     8865   02 01A4D    10000084 A            GEN,8,24 X'10',132         (VARIABLE BUFFER ADDRESS)
     8866   02 01A4E    05006A20     IOCD5    GEN,8,24 X'05',BA(FORMAT)  FORMAT
     8867   02 01A4F    80000001 A            GEN,8,24 X'80',1           (DATA CHAIN)
     8868   02 01A50    05000000 A            GEN,8,24 X'05',0           PRINT
     8869   02 01A51    00000000 A            GEN,8,24 X'00',0           (VARIABLE BUFFER ADDR, BYTE CNT)
     8870   02 01A52    01008A94     IOCD6    GEN,8,24 X'01',BA(BUFFER2) PRINT
     8871   02 01A53    00000084 A            GEN,8,24 X'00',132
     8872   02 01A54    01008A10     IOCD7    GEN,8,24 X'01',BA(BUFFER1) PRINT
     8873   02 01A55    00000084 A            GEN,8,24 X'00',132
     8874   02 01A56    01000000 A   IOCD8    GEN,8,24 X'01',0           PRINT
     8875   02 01A57    10000000 A            GEN,8,24 X'10',0           (VARIABLE BUFFER ADDR, BYTE CNT)
     8876   02 01A58    05006A20     IOCD9    GEN,8,24 X'05',BA(FORMAT)  FORMAT
     8877   02 01A59    80000001 A            GEN,8,24 X'80',1           (DATA CHAIN)
     8878   02 01A5A    05000000 A            GEN,8,24 X'05',0           PRINT
     8879   02 01A5B    10000000 A            GEN,8,24 X'10',0           (VARIABLE BUFFER ADDR, BYTE CNT)
     8880   02 01A5C    00008A94     IOCD10   GEN,8,24 X'00',BA(BUFFER2) ORDER
     8881   02 01A5D    00000001 A            GEN,8,24 X'00',1           (VARIABLE ORDER)
     8882   02 01A5E    03006A20     IOCD11   GEN,8,24 X'03',BA(FORMAT)  FORMAT
     8883   02 01A5F    00000001 A            GEN,8,24 X'00',1
     8884   02 01A60    05006A20     IOCD12   GEN,8,24 X'05',BA(FORMAT)  FORMAT
     8885   02 01A61    80000001 A            GEN,8,24 X'80',1           (DATA CHAIN)
     8886   02 01A62    05008A94              GEN,8,24 X'05',BA(BUFFER2) PRINT
     8887   02 01A63    00000084 A            GEN,8,24 X'00',132
     8888   02 01A64    05006A20     IOCD13   GEN,8,24 X'05',BA(FORMAT)  FORMAT
     8889   02 01A65    80000001 A            GEN,8,24 X'80',1           (DATA CHAIN)
     8890   02 01A66    01008A94     IOCD14   GEN,8,24 X'01',BA(BUFFER2) PRINT
     8891   02 01A67    00000000 A            GEN,8,24 X'00',0           (VARIABLE BYTE CNT)
     8892   02 01A68    05006A20     IOCD16   GEN,8,24 X'05',BA(FORMAT)  FORMAT
     8893   02 01A69    00000001 A            GEN,8,24 X'00',1           (VARIABLE FLAG)
     8894   02 01A6A    03008A94     IOCD15   GEN,8,24 X'03',BA(BUFFER2) PRINT
     8895   02 01A6B    00000000 A            GEN,8,24 X'00',0           (VARIABLE BYTE CNT)
     8896   02 01A6C    00008A94     IOCD17   GEN,8,24 X'00',BA(BUFFER2)
     8897   02 01A6D    00000000 A            GEN,8,24 X'00',0           (VARIABLE ORDER, BYTE CNT)
     8898   02 01A6E    04008B18     IOCD18   GEN,8,24 X'04',BA(BUFFER3) SENSE ORDER
     8899   02 01A6F    00000084 A            GEN,8,24 X'00',132
     8900   02 01A70    04008B18     IOCD19   GEN,8,24 X'04',BA(BUFFER3) SENSE ORDER
     8901   02 01A71    00000000 A            GEN,8,24 X'00',0           (VARIABLE BYTE COUNT)
     8902   02 01A72    03006A20     IOCD20   GEN,8,24 X'03',BA(FORMAT)  FORMAT
     8903   02 01A73    00000001 A            GEN,8,24 0,1               (VARIABLE FLAG)
     8904   02 01A74    00006A20     IOCD21   GEN,8,24 X'00',BA(FORMAT)  FORMAT
     8905   02 01A75    04000001 A            GEN,8,24 X'04',1           (INVALID ORDER)
     8906   02 01A76    45006A20     IOCD22   GEN,8,24 X'45',BA(FORMAT)  PRINT WITH FORMAT
     8907   02 01A77    80000001 A            GEN,8,24 X'80',1           (DATA CHAIN)
     8908   02 01A78    45008A94              GEN,8,24 X'45',BA(BUFFER2)
     8909   02 01A79    00000084 A            GEN,8,24 X'00',132
     8910   02 01A7A    00006A20     IOCD23   GEN,8,24 X'00',BA(FORMAT)  VARIABLE ORDER
     8911   02 01A7B    80000001 A            GEN,8,24 X'80',1
     8912   02 01A7C    05008A94              GEN,8,24 X'05',BA(BUFFER2)
     8913   02 01A7D    20000084 A            GEN,8,24 X'20',132
     8914   02 01A7E    05006A20              GEN,8,24 X'05',BA(FORMAT)
     8915   02 01A7F    80000001 A            GEN,8,24 X'80',1
     8916   02 01A80    05008A94              GEN,8,24 X'05',BA(BUFFER2)
     8917   02 01A81    00000084 A            GEN,8,24 0,132
     8918   02 01A82    01008A94     IOCD24   GEN,8,24 X'01',BA(BUFFER2) PRINT
     8919   02 01A83    10000001 A            GEN,8,24 X'10',1           (CHANNEL END)
     8920   02 01A84    05006A20     IOCD25   GEN,8,24 X'05',BA(FORMAT)  FORMAT                          *A04
     8921   02 01A85    80000001 A            GEN,8,24 X'80',1           (DATA CHAIN)                    *A04
     8922   02 01A86    05008A10              GEN,8,24 X'05',BA(BUFFER1) PRINT                           *A04
     8923   02 01A87    10000084 A            GEN,8,24 X'10',132                                         *A04
     8924                            *
     8925   02 01A88    00000000 A   FORMAT   DATA     0
     8926   02 01A89    40404040 A   CHARBLNK DATA     X'40404040'       BLANK CHARACTERS
     8927                            *
1 C00   19:44 JUN 20,'83    TELEFILE COMPREHENSIVE LINE PRINTER TEST 960-0606-H02                 PAGE   64
A    8929                            *
     8930                            *        *** DATA - DIRECTIVE ***                                      *
     8931                            *                                                                      *
     8932                            * THIS DIRECTIVE ALLOWS THE USER TO DEFINE THE DATA PATTERN TO BE      *
     8933                            * USED WITH THE UTILITY TEST  (TST36 ONLY).                            *
     8934                            *                                                                      *
     8935                            * PARAMETER P1 DETERMINES THE PATTERN TYPE:                            *
     8936                            *                                                                      *
     8937                            *    P1 = 0 - FIXED DATA PATTERN                                       *
     8938                            *             P2 - 8 HEXADECIMAL DIGITS FIXED DATA PATTERN             *
     8939                            *                                                                      *
     8940                            *    P1 = 1 - INCREMENT DATA PATTERN                                   *
     8941                            *             P2 - 8 HEXADECIMAL DIGITS STARTING PATTERN               *
     8942                            *             P3 - 8 HEXADECIMAL DIGITS INCREMENT VALUE                *
     8943                            *                                                                      *
     8944                            *    P1 = 2 - RANDOM DATA PATTERN                                      *
     8945                            *             P2 - 8 HEXADECIMAL DIGITS RANDOM NUMBER SEED             *
     8946                            *             (THIS SEED WILL ONLY BE USED FOR WRITTING; THE SEED FOR  *
     8947                            *              READ DATA IS OBTAINED FROM THE 1ST WORD OF THE BUFFER)  *
     8948                            *                                                                      *
     8949                            *    P1 = 3 - SPREAD 4 BYTE SEEK ADDRESS AS DATA.                      *
     8950                            *                                                                      *
     8951                            *    P1 = 4 - SPECIFY PRINT PATTERN                                    *
     8952                            *             P2 - STARTING COLUMN (1 THRU 132)                        *
     8953                            *             P3 - ENDING COLUMN (1 THRU 132)                          *
     8954                            *             P4 - EBCDIC CHARACTER STRING                             *
     8955                            *             0 < P2 <= P3 <= 132                                      *
     8956                            *                                                                      *
     8957                            * NO OTHER VALUES OF P1 ARE ALLOWED. PARAMETERS 2 AND 3 ARE REQUIRED   *
     8958                            * IF INDICATED ABOVE. (RANGE: 0 <= P2 OR P3 <= FFFFFFFF)               *
     8959                            *                                                                      *
     8960   02 01A8A    35101AD1     :DATA    STW,1    PARNOERR          SET INITIAL PAR NO
     8961   02 01A8B    72820211 A            LB,8     :PSW,1            FETCH PAR COUNT
     8962   02 01A8C    22E00004 A            LI,14    4
     8963   02 01A8D    31E00201 A            CW,14    :P1               COMP 4 TO P1
     8964   02 01A8E    68101A94              BGE      %+6               B: P1<=4
     8965   02 01A8F    32801AD1     :DATA1   LW,8     PARNOERR
     8966   02 01A90    3580030A A            STW,8    :PIT10            SAVE PAR NO
     8967   02 01A91    EAF00229 A            BAL,15   *:PREPORT         PRINT PARAMETER ERROR
     8968   02 01A92    00000328              DATA     :DIC+8
     8969   02 01A93    E8000214 A            B        *:MONITOR         EXIT TO MONITOR
     8970   02 01A94    31300201 A            CW,3     :P1               COMP 3 TO P1
     8971   02 01A95    68101AA8              BGE      :DATA2            B: P1<= 3
     8972   02 01A96    32E00202 A            LW,14    :P2               FETCH P2
     8973   02 01A97    69201A9A              BGZ      %+3               B: P2 = 0 >
     8974   02 01A98    35201AD1              STW,2    PARNOERR          SET PAR NO
     8975   02 01A99    68001A8F              B        :DATA1            GO TO PRINT PAR ERROR
     8976   02 01A9A    31E00203 A            CW,14    :P3               COMP P2 TO P3
     8977   02 01A9B    69201A98              BG       %-3               B: GO TO PRINT PAR ERROR
     8978   02 01A9C    32E00203 A            LW,14    :P3               FETCH P3
     8979   02 01A9D    21E00132 A            CI,14    X'132'            COMP P3 TO X'132'
     8980   02 01A9E    68201AA1              BLE      :DATA4            B: P3 > X'132'
     8981   02 01A9F    35301AD1              STW,3    PARNOERR          SET PAR NO
     8982   02 01AA0    68001A8F              B        :DATA1
     8983   02 01AA1    32E00202 A   :DATA4   LW,14    :P2               FETCH P2
     8984   02 01AA2    6AF01ABF              BAL,15   HEXTDECC          CONVERT HEX TO DECIMAL
     8985   02 01AA3    35A00202 A            STW,10   :P2               STORE IN P2
     8986   02 01AA4    32E00203 A            LW,14    :P3               FETCH P3
     8987   02 01AA5    6AF01ABF              BAL,15   HEXTDECC          CONVERT HEX TO DECIMAL
     8988   02 01AA6    35A00203 A            STW,10   :P3               STORE IN P3
     8989   02 01AA7    68001ABB              B        :DATA3
     8990   02 01AA8    21800001 A   :DATA2   CI,8     1
     8991   02 01AA9    69101A8F              BL       :DATA1            B: PARCNT < 1
     8992   02 01AAA    33101AD1              MTW,1    PARNOERR          INCR. PAR NO
     8993   02 01AAB    31300201 A            CW,3     :P1               COMPARE 3 TO P1
     8994   02 01AAC    69301AB0              BNE      %+4               B: 3 NE P1
     8995   02 01AAD    21800002 A            CI,8     2
     8996   02 01AAE    68101A8F              BGE      :DATA1            B: PARCNT => 2
     8997   02 01AAF    68001ABB              B        :DATA3            PARAMETERS OK
     8998   02 01AB0    21800002 A            CI,8     2
     8999   02 01AB1    69101A8F              BL       :DATA1            B: PARCNT < 2
     9000   02 01AB2    33101AD1              MTW,1    PARNOERR          INCR. PAR NO.
     9001   02 01AB3    31100201 A            CW,1     :P1               COMPARE 1 TO P1
     9002   02 01AB4    68301AB8              BE       %+4               B: 1 = P1
     9003   02 01AB5    21800003 A            CI,8     3
     9004   02 01AB6    68101A8F              BGE      :DATA1            B: PARCNT NE 3
     9005   02 01AB7    68001ABB              B        :DATA3
     9006   02 01AB8    33101AD1              MTW,1    PARNOERR          INCR. PAR NO
     9007   02 01AB9    21800003 A            CI,8     3
     9008   02 01ABA    69301A8F              BNE      :DATA1            B: 3 NE CNT
     9009   02 01ABB    02200040 A   :DATA3   LCI      4
     9010   02 01ABC    2AA00201 A            LM,R10   :P1               FETCH AND STORE
     9011   02 01ABD    2BA01ACD              STM,10   :DATAP1               PARAMETERS
     9012   02 01ABE    E8000214 A            B        *:MONITOR         EXIT TO MONITOR
     9013                            *
     9014   02 01ABF    22A00000 A   HEXTDECC LI,10    0                 CLEAR ACCMULATOR
     9015   02 01AC0    7294000E A            LB,9     14,2              FETCH FIRST 4 BITS
     9016   02 01AC1    4B902271              AND,9    =X'F'
     9017   02 01AC2    23800064 A            MI,8     100               MULTIPLY BY 100
     9018   02 01AC3    30A00009 A            AW,10    9                 ADD TO ACCUMULATOR
     9019   02 01AC4    7296000E A            LB,9     14,3              FETCH SECOND 4 BITS
     9020   02 01AC5    4B902272              AND,9    =X'F0'
     9021   02 01AC6    2590047C A            SAS,9    -4
     9022   02 01AC7    2380000A A            MI,8    10                MULTIPLY BY 10
     9023   02 01AC8    30A00009 A            AW,10    9                 ADD TO ACCUMULATOR
     9024   02 01AC9    7296000E A            LB,9     14,3              FETCH LAST 4 BITS
     9025   02 01ACA    4B902271              AND,9    =X'F'
     9026   02 01ACB    30A00009 A            AW,10    9                 ADD TO ACCUMULATOR
     9027   02 01ACC    E800000F A            B        *15               EXIT
     9028                            *
     9029   02 01ACD    00000000 A   :DATAP1  DATA     0
     9030   02 01ACE    00000000 A   :DATAP2  DATA     0
     9031   02 01ACF    00000000 A   :DATAP3  DATA     0
     9032   02 01AD0    00000000 A   :DATAP4  DATA     0
     9033   02 01AD1    00000000 A   PARNOERR DATA     0                 PARAMETER NO. ERROR
     9034                            *
1 C00   19:44 JUN 20,'83    TELEFILE COMPREHENSIVE LINE PRINTER TEST 960-0606-H02                 PAGE   65
A    9036                            *                                                                      *
     9037                            *             *** LIMIT DIRECTIVE ***                                  *
     9038                            * THIS DIRECTIVE ALLOWS THE USER TO LIMIT PROGRAM OPERATIONS           *
     9039                            * SPECIFIED BY P1 AND P2.                                              *
     9040                            *                                                                      *
     9041                            *     P1 = 1  LIMIT COMPARE ERROR PRINTOUT TO P2 LIMES.                *
     9042                            *                                                                      *
     9043                            *     P1 = 2  LIMIT RANDOM EXERCISER RANDOM DELAY TIME BETWEEN      *
     9044                            *             P2 AND P3 MILLISECONDS (WHERE 0<=P2<=P3<=99,999).       *
     9045                            *
     9046   02 01AD2    32400201 A   :LIMIT   LW,4     :P1               PARAMETER P1
     9047   02 01AD3    21400001 A            CI,4     1
     9048   02 01AD4    68301ADB              BE       :LIM1             P1 = 1
     9049   02 01AD5    21400002 A            CI,4     2
     9050   02 01AD6    68301AE4              BE       :LIM3             P1 = 2
     9051   02 01AD7    3510030A A            STW,1    :PIT10            ERROR: P1 > 2
     9052   02 01AD8    EAF00229 A   :LIM0    BAL,15   *:PREPORT         REPORT
     9053   02 01AD9    0000032A              DATA     :DIC+10           'LIMT'
     9054   02 01ADA    E8000214 A            B        *:MONITOR         RETURN TO MONITOR
     9055   02 01ADB    32500203 A   :LIM1    LW,5     :P3               PARAMETER  P3
     9056   02 01ADC    68301ADF              BEZ      %+3               P3 = 0
     9057   02 01ADD    3530030A A   :LIM2    STW,3    :PIT10            ERROR: P3 > 0
     9058   02 01ADE    68001AD8              B        :LIM0             GO TO REPORT
     9059   02 01ADF    32800202 A            LW,8     :P2               PARAMETER P2
     9060   02 01AE0    69201AE2              BGZ      %+2               P2>0; COMPARE COUNT = P2
     9061   02 01AE1    2280FFFF A            LI,8     X'FFFF'           SET COMPARE COUNT TO MAX
     9062   02 01AE2    35801D12              STW,8    :COMPLIM          SAVE
     9063   02 01AE3    E8000214 A            B        *:MONITOR         RETURN TO MONITOR
     9064   02 01AE4    32500202 A   :LIM3    LW,5     :P2               PARAMETER P2
     9065   02 01AE5    31500203 A            CW,5     :P3               P2:P3
     9066   02 01AE6    68201AE9              BLE      %+3               P2<=P3
     9067   02 01AE7    3520030A A            STW,2    :PIT10            ERROR: P2>P3
     9068   02 01AE8    68001AD8              B        :LIM0             GO TO REPORT
     9069   02 01AE9    32600203 A            LW,6     :P3               PARAMETER P3
     9070   02 01AEA    2161869F A            CI,6     99999             TEST FOR P3<= 99999
     9071   02 01AEB    69201ADD              BG       :LIM2             ERROR: P3>99999
     9072   02 01AEC    02200030 A            LCI      3
     9073   02 01AED    2B401AEF              STM,4    :LIMITP1          SAVE P1,P2,P3
     9074   02 01AEE    E8000214 A            B        *:MONITOR         RETURN TO MOMITOR
     9075                            *
     9076   02 01AEF    00000000 A   :LIMITP1 DATA     0
     9077   02 01AF0    00000000 A   :LIMITP2 DATA     0
     9078   02 01AF1    00000000 A   :LIMITP3 DATA     0
1 C00   19:44 JUN 20,'83    TELEFILE COMPREHENSIVE LINE PRINTER TEST 960-0606-H02                 PAGE   66
A    9080                            *
     9081                            *                *** ISSUE SIO, TIO, HIO, TDV, AIO ***
     9082                            *
     9083                            * THE ISSUE SUBROUTINE ISSUES AN SIO, TIO, HIO, TDV, OR AIO TO
     9084                            *  SPECIFIED DEVICE.  STATUS MASK IS COMPARED WITH RETURNED DEVICE
     9085                            *   STATUS, CONDITION CODES.  ERROR CONDITIONS ARE PRINTED.
     9086                            *
     9087                            *       INPUT PARAMETERS:
     9088                            *
     9089                            *
     9090                            *
     9091                            *               <<CALLING SEQUENCE >>
     9092                            *
     9093                            *        BAL,15   (NAME OF SEQUENCE DESIRED; :SIO  :TIO  :HIO :TDV,:AIO)
     9094                            *        DATA     (MASK 0=MASK OUT BIT POSITION, 1=SAVE BIT POSITION
     9095                            *       *              FOR BIT POSITIONS 0-17
     9096                            *       *              BIT POSITION 30 = COMPARE DEV-ADDR <AIO ONLY>
     9097                            *       *              BIT POSITION 31 = IF 1 INHIBIT PRINTING)
     9098                            *        DATA     (EXPECTED STATUS BIT POSITIONS 0-15
     9099                            *       *         (EXPECTED CONDITION CODES 16,17)
     9100                            *        B        (RETURNS HERE IF NO ERROR)
     9101                            *                 (RETURNS HERE IF THERE WAS AN ERROR)
     9102                            *
     9103                            *
     9104                            *
     9105                            *       REGISTERS DISTURBED:
     9106                            *
     9107                            *                 14
     9108                            *
     9109                            *       OUTPUT PARAMETERS:
     9110                            *
     9111                            *         NORMAL EXIT-RETURN ADDRESS
     9112                            *
     9113                            *                 I S S U E  S I O
     9114                            *
     9115   02 01AF2    CCC01C3E     :SIO     SIO,12   *:DEVADDR         ISSUE SIO
     9116   02 01AF3    35D01C0D              STW,13   :STATUSCC         SAVE STATUS
     9117   02 01AF4    74041C0D              STCF     :STATUSCC,2       SAVE CONDITION CODES
     9118   02 01AF5    22E00000 A   :SIO1    LI,14    0                 LOAD TYPE OF OPERATION
     9119   02 01AF6    68001B0B              B        :STATEST          GO TEST STATUS & CONDITION CODES
     9120                            *
     9121                            *                 I S S U E  T I O
     9122                            *
     9123   02 01AF7    CDC01C3E     :TIO     TIO,12   *:DEVADDR         ISSUE TIO
     9124   02 01AF8    35D01C0D              STW,13   :STATUSCC         SAVE STATUS
     9125   02 01AF9    74041C0D              STCF     :STATUSCC,2       SAVE CONDITION CODES
     9126   02 01AFA    22E00001 A   :TIO1    LI,14    1                 LOAD TYPE OF OPERATION
     9127   02 01AFB    68001B0B              B        :STATEST          GO TEST STATUS & CONDITION CODES
     9128                            *
     9129                            *                 I S S U E  H I O
     9130                            *
     9131   02 01AFC    CFC01C3E     :HIO     HIO,12   *:DEVADDR         ISSUE HIO
     9132   02 01AFD    35D01C0D              STW,13   :STATUSCC         SAVE STATUS
     9133   02 01AFE    74041C0D              STCF     :STATUSCC,2       SAVE CONDITION CODES
     9134   02 01AFF    22E00002 A   :HIO1    LI,14    2                 LOAD TYPE OF OPERATION
     9135   02 01B00    68001B0B              B        :STATEST          GO TEST STATUS & CONDITION CODES
     9136                            *
     9137                            *                 I S S U E  T D V
     9138                            *
     9139   02 01B01    CEC01C3E     :TDV     TDV,12   *:DEVADDR         ISSUE TDV
     9140   02 01B02    35D01C0D              STW,13   :STATUSCC         SAVE STATUS
     9141   02 01B03    74041C0D              STCF     :STATUSCC,2       SAVE CONDITION CODES
     9142   02 01B04    22E00003 A   :TDV1    LI,14    3                 LOAD TYPE OF OPERATION
     9143   02 01B05    68001B0B              B        :STATEST          GO TEST STATUS & CONDITION CODES
     9144                            *
     9145                            *                 I S S U E  A I O
     9146                            *
     9147   02 01B06    6ED00000 A   :AIO     AIO,13   0                 ISSUE AIO
     9148   02 01B07    35D01C0D              STW,13   :STATUSCC         SAVE STATUS
     9149   02 01B08    74041C0D              STCF     :STATUSCC,2       SAVE CONDITION CODES
     9150   02 01B09    22E00004 A   :AIO1    LI,14    4                 LOAD TYPE OF OPERATION
     9151   02 01B0A    68001B0B              B        :STATEST          GO TEST STATUS & CONDITION CODES
     9152                            *
     9153                            *
     9154                            *                 T E S T  F O R  A N Y  E R R O R S
     9155                            *
     9156                            *
     9157   02 01B0B    35E01C0C     :STATEST STW,14   :TYPE             SAVE TYPE OF I/O OPERATION
     9158   02 01B0C    35F01C0B              STW,15   :IORTN
     9159   02 01B0D    B2E01C0B              LW,14    *:IORTN           FETCH MASK
     9160   02 01B0E    B2F21C0B              LW,15    *:IORTN,1         FETCH EXPECTED STATUS
     9161   02 01B0F    4BE02273              AND,14   L(X'FFFFC000')    MASK OUT; PRINT INHIBIT & DEV AD BIT
     9162   02 01B10    4BF0000E A            AND,15   14                MASK EXPECTED STATUS
     9163   02 01B11    4BE01C0D              AND,14   :STATUSCC         MASK RECEIVED STATUS TO MASK
     9164   02 01B12    31E0000F A            CW,14    15                COMPARE RECEIVED AND EXPECTED STATUS
     9165   02 01B13    69301B1A              BNE      :CCTEST           IF ERROR GO TEST CONDITION CODES
     9166   02 01B14    B1201C0B              CW,2     *:IORTN           IS THIS A TEST OF DEV ADDR
     9167   02 01B15    E8441C0B              BAZ      *:IORTN,2         IF NOT RETURN
     9168   02 01B16    32E0000D A            LW,14    13                LOAD RECEIVED STATUS
     9169   02 01B17    4BE02274              AND,14   L(X'7FF')         MASKOUT ALL BUT DEVICE ADDR
     9170   02 01B18    31E01C3E              CW,14    :DEVADDR          COMPARE WITH EXPECTED DEV ADDR
     9171   02 01B19    E8341C0B              BE       *:IORTN,2         IF EQUAL RETURN
     9172                            *
     9173                            *
     9174                            *
     9175   02 01B1A    B1101C0B     :CCTEST  CW,1     *:IORTN           TEST PRINT INHIBIT BIT
     9176   02 01B1B    E9461C0B              BANZ     *:IORTN,3         IF SET TAKE ERROR RETURN
     9177   02 01B1C    15401C02              STD,4    :REG0405          SAVE REGISTERS 4 & 5
     9178   02 01B1D    15C01C06              STD,12   :REG1213          SAVE REGISTERS 12 & 13
     9179   02 01B1E    32C01C3E              LW,12    :DEVADDR          LOAD EXPECTED DEVICE ADDRESS
     9180   02 01B1F    EAF00218 A            BAL,15   *:HEXC            CONVERT EBCDIC
     9181   02 01B20    35F01BE1              STW,15   :DAERM+6          SAVE IN DEVICE ADDR ERROR MESSAGE
     9182   02 01B21    35F01BF1              STW,15   :STATEM1+12       SAVE IN STATUS MESSAGE
     9183   02 01B22    70341C0D              LCF      :STATUSCC,2       LOAD CONDITION CODES
     9184   02 01B23    32401C0C              LW,4     :TYPE             LOAD TYPE OF I/O OPERATION
     9185   02 01B24    22500000 A            LI,5     0                 ZERO CC3,4
     9186   02 01B25    68C01B33              BCR,12   :DEVADER          CC1,2 = 0,0
     9187   02 01B26    68801B29              BCR,8    :CCERR1           CC1,2 = 0,1
     9188   02 01B27    68401B2E              BCR,4    :CCERR2           CC1,2 = 1,0
     9189   02 01B28    68001B40              B        :CCERR3           CC1,2 = 1,1
     9190                            *
     9191                            *                 C C 1 , 2  =  0 , 1
     9192                            *
     9193   02 01B29    32581B82     :CCERR1  LW,5     :ERRADR1,4        LOAD ADDRESS OF MSG
     9194   02 01B2A    35501B2C              STW,5    %+2               SAVE ADDRESS OF MSG
     9195   02 01B2B    EAF0021C A            BAL,15   *:PRINT           PRINT MSG
     9196   02 01B2C    00000000 A            DATA     0
     9197   02 01B2D    68001B33              B        :DEVADER          GO TO TEST DEV ADDR
     9198                            *
     9199                            *                 C C 1 , 2  =  1 , 0
     9200                            *
     9201   02 01B2E    32581B87     :CCERR2  LW,5     :ERRADR2,4        LOAD ADDRESS OF MSG
     9202   02 01B2F    35501B31              STW,5    %+2               SAVE ADDRESS OF MSG
     9203   02 01B30    EAF0021C A            BAL,15   *:PRINT           PRINT MSG
     9204   02 01B31    00000000 A            DATA     0
     9205   02 01B32    68001B3D              B        :DEVEXIT          GO TO ERROR EXIT
     9206                            *
     9207                            *                 R E P O R T  D E V - A D D R  I F  I T  E X I S T S
     9208                            *
     9209   02 01B33    21400004 A   :DEVADER CI,4     4                 TEST FOR AIO
     9210   02 01B34    69301B4A              BNE      :STATERR              IF NOT,GO TEST STATUS
     9211   02 01B35    32C0000D A            LW,12    13                LOAD DEVICE ADDRESS
     9212   02 01B36    4BC02275              AND,12   L(X'1FFF')        SAVE ONLY DEVICE ADDRESS
     9213   02 01B37    31C01C3E              CW,12    :DEVADDR          IS IT = TO EXPECTED ADDRESS
     9214   02 01B38    68301B4A              BE       :STATERR              GO TO TEST STATUS
     9215   02 01B39    EAF00218 A            BAL,15   *:HEXC            CONVERT TO EBCDIC
     9216   02 01B3A    35F01BE4              STW,15   :DAERM+9          SAVE IN DEVICE ERROR MESSAGE
     9217   02 01B3B    EAF0021C A            BAL,15   *:PRINT           PRINTOUT DEVICE ADDRESS ERROR
     9218   02 01B3C    00001BDB              DATA     :DAERM            MESSAGE
     9219   02 01B3D    12401C02     :DEVEXIT LD,4     :REG0405          RESTORE REG 4 & 5
     9220   02 01B3E    12C01C06              LD,12    :REG1213          RESTORE REG 12 & 13
     9221   02 01B3F    E8061C0B              B        *:IORTN,3         TAKE ERROR RETURN
     9222                            *
     9223                            *                 C C 1, 2  =  1 , 1
     9224                            *
     9225   02 01B40    32581B8C     :CCERR3  LW,5     :ERRADR3,4        LOAD ERROR MSG ADDRESS
     9226   02 01B41    35501B48              STW,5    :CCPRINT          SAVE ADDRESS OF MESSAGE TO BE PRINTED
     9227   02 01B42    22500004 A            LI,5     4                 LOAD INDEX
     9228   02 01B43    21400004 A            CI,4     4                 IS THIS AN AIO
     9229   02 01B44    68301B47              BE       %+3               IF SO DON'T ADD DEVICE ADDRESS
     9230   02 01B45    32C01BE1              LW,12    :DAERM+6          LOAD A CONVERTED DEV ADDR
     9231   02 01B46    B5CA1B48              STW,12   *:CCPRINT,5       SAVE DEVICE ADDRESS
     9232   02 01B47    EAF0021C A            BAL,15   *:PRINT           PRINT ERROR
     9233   02 01B48    00000000 A   :CCPRINT DATA     0
     9234   02 01B49    68001B3D              B        :DEVEXIT          TAKE ERROR EXIT
     9235                            *
     9236                            *                 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
     9237                            *
     9238   02 01B4A    B2E01C0B     :STATERR LW,14    *:IORTN           FETCH MASK
     9239   02 01B4B    B2F21C0B              LW,15    *:IORTN,1         FETCH EXPECTED STATUS
     9240   02 01B4C    4BE02273              AND,14   L(X'FFFFC000')    SAVE ONLY STATUS
     9241   02 01B4D    4BF0000E A            AND,15   14                MASK TO EXPECTED CONDITIONS
     9242   02 01B4E    4BE01C0D              AND,14   :STATUSCC         MASK RECEIVED STATUS TO MASK
     9243   02 01B4F    31E0000F A            CW,14    15                ARE THEY EQUAL
     9244   02 01B50    68301B3D              BE       :DEVEXIT              IF TAKE ERROR EXIT
     9245   02 01B51    32581BFD              LW,5     :STATTYP,4        LOAD TYPE OF OPERATION
     9246   02 01B52    46501BE5              XW,5     :STATEM1          SAVE TYPE OF OPERATION AND FETCH BC
     9247   02 01B53    72500005 A            LB,5     5                 POSITION BYTE COUNT
     9248   02 01B54    75501BE5              STB,5    :STATEM1          SAVE MESSAGE BYTE COUNT
     9249   02 01B55    EAF0021C A            BAL,15   *:PRINT           PRINT STATUS ERROR HEADER MSG
     9250   02 01B56    00001BE5              DATA     :STATEM1
     9251   02 01B57    15601C04              STD,6    :REG0607          SAVE REGISTER 6 & 7
     9252                            *
     9253   02 01B58    22600002 A            LI,6     2                 LOAD POINTER
     9254   02 01B59    B2701C0B              LW,7     *:IORTN           LOAD MASK
     9255   02 01B5A    B2C21C0B              LW,12    *:IORTN,1         LOAD EXPECTED STATUS
     9256   02 01B5B    68001B5D              B        %+2               GO TO STATUS MESSAGE BUILDING
     9257                            *
     9258                            *
     9259   02 01B5C    32C01C0D     :STATER1 LW,12    :STATUSCC         LOAD RECEIVED STATUS
     9260   02 01B5D    25700074 A            SLS,7    -12
     9261   02 01B5E    25C00074 A            SLS,12   -12               POSITION CC AND STATUS
     9262   02 01B5F    6AF01B73              BAL,15   :BINCOVT          GO TO CONVERT CC
     9263   02 01B60    25F00070 A            SLS,15   -16               POSITION CC
     9264   02 01B61    55F21BFA              STH,15   :STATEM2+8,1      STORE CC IN MSG
     9265   02 01B62    22500012 A            LI,5     18                MSG BYTE INDEX=18
     9266   02 01B63    22400004 A            LI,4     4                 MINOR INDEX=4
     9267   02 01B64    6AF01B73              BAL,15   :BINCOVT          CONVERT BINARY TO EBCDIC MASKED
     9268   02 01B65    75FA1BF5              STB,15   :STATEM2+3,5      STATUS BIT TO ERROR MSG
     9269   02 01B66    205FFFFF A            AI,5     -1                BYTE INDEX-1
     9270   02 01B67    25F00078 A            SLS,15   -8                ADJUST CONVERTED STATUS BITS
     9271   02 01B68    64401B65              BDR,4    %-3               MINOR INDEX-1 NOT ZERO
     9272   02 01B69    64501B63              BDR,5    %-6               BYTE INDEX-1 NOT ZERO
     9273   02 01B6A    325C1BFA              LW,5     :EXPOBS-1,6       LOAD EITHER 'OBS' OR 'EXP' MSG
     9274   02 01B6B    46501BF2              XW,5     :STATEM2          SAVE TYPE OF OPERATION & FETCH MG BC
     9275   02 01B6C    72500005 A            LB,5     5                 POSITION MSG BYTE COUNT
     9276   02 01B6D    75501BF2              STB,5    :STATEM2          SAVE MESSAGE BYTE COUNT
     9277   02 01B6E    EAF0021C A            BAL,15   *:PRINT           GO PRINT OUT MSG
     9278   02 01B6F    00001BF2              DATA     :STATEM2
     9279   02 01B70    64601B5C              BDR,6    :STATER1          IS THERE ANY MSG LEFT
     9280   02 01B71    12601C04              LD,6     :REG0607          RESTORE REGISTER 6 & 7
     9281   02 01B72    68001B3D              B        :DEVEXIT          TAKE ERROR EXIT
     9282                            *
     9283                            *
     9284                            *
     9285   02 01B73    15401C08     :BINCOVT STD,4    :BIN0405          SAVE REGISTERS 4 & 5
     9286   02 01B74    35F01C0A              STW,15   :BINRTN           SAVE REGISTER  15
     9287   02 01B75    EAF00216 A            BAL,15   *:BINC            GO CONVERT BINARY TO EBCDIC
     9288   02 01B76    680C1B76              B        %,6               IF IT IS EXPECT MASK
     9289   02 01B77    68001B80              B        :BINEXIT          IF IT IS RECEIVED EXIT
     9290   02 01B78    22400003 A   :BINCOT1 LI,4     3                 LOAD INCREMENT POINTER
     9291   02 01B79    225000E7 A            LI,5     'X'               LOAD A 'X'
     9292   02 01B7A    2570027F A   :BINCOT2 SCS,7    -1                TEST A BIT
     9293   02 01B7B    33000007 A            MTW,0    7                 TEST FOR NEGATIVE
     9294   02 01B7C    69101B7E              BLZ      %+2               IF NEGATIVE,DON'T ADD 'X'
     9295   02 01B7D    7558000F A            STB,5    15,4              STORE 'X'
     9296   02 01B7E    204FFFFF A            AI,4     -1                INCREMENT STORAGE POINTER
     9297   02 01B7F    68101B7A              BGEZ     :BINCOT2          GO TO TEST NEXT BYTE
     9298   02 01B80    12401C08     :BINEXIT LD,4     :BIN0405          RESTORE REGISTER 4 & 5
     9299   02 01B81    E8001C0A              B        *:BINRTN          RETURN
     9300                            *
     9301   02 01B82    00001B91     :ERRADR1 DATA     :CCERM1           ERROR ADDRESS 1-F
     9302   02 01B83    00001B96              DATA     :CCERM2
     9303   02 01B84    00001B9C              DATA     :CCERM3
     9304   02 01B85    00001BA2              DATA     :CCERM4
     9305   02 01B86    00001BA8              DATA     :CCERM5
     9306   02 01B87    00001BAD     :ERRADR2 DATA     :CCERM6
     9307   02 01B88    00001BB1              DATA     :CCERM7
     9308   02 01B89    00001BB5              DATA     :CCERM8
     9309   02 01B8A    00001BB9              DATA     :CCERM9
     9310   02 01B8B    00001BBD              DATA     :CCERMA
     9311   02 01B8C    00001BC1     :ERRADR3 DATA     :CCERMB
     9312   02 01B8D    00001BC6              DATA     :CCERMC
     9313   02 01B8E    00001BCB              DATA     :CCERMD
     9314   02 01B8F    00001BD0              DATA     :CCERME
     9315   02 01B90    00001BD5              DATA     :CCERMF
     9316   02 01B91    10E2C9D6 A   :CCERM1  TEXTC    'SIO-NOT ACCEPTED'
            02 01B92    60D5D6E3 A
            02 01B93    40C1C3C3 A
            02 01B94    C5D7E3C5 A
            02 01B95    C4404040 A
     9317   02 01B96    14E3C9D6 A   :CCERM2  TEXTC    'TIO-SIO NOT POSSIBLE'
            02 01B97    60E2C9D6 A
            02 01B98    40D5D6E3 A
            02 01B99    40D7D6E2 A
            02 01B9A    E2C9C2D3 A
            02 01B9B    C5404040 A
     9318   02 01B9C    14C8C9D6 A   :CCERM3  TEXTC    'HIO-DEV BUSY AT HALT'
            02 01B9D    60C4C5E5 A
            02 01B9E    40C2E4E2 A
            02 01B9F    E840C1E3 A
            02 01BA0    40C8C1D3 A
            02 01BA1    E3404040 A
     9319   02 01BA2    16E3C4E5 A   :CCERM4  TEXTC    'TDV-CC1,2=01-TEST MODE'
            02 01BA3    60C3C3F1 A
            02 01BA4    6BF27EF0 A
            02 01BA5    F160E3C5 A
            02 01BA6    E2E340D4 A
            02 01BA7    D6C4C540 A
     9320   02 01BA8    10C1C9D6 A   :CCERM5  TEXTC    'AIO-UE INTERRUPT'
            02 01BA9    60E4C540 A
            02 01BAA    C9D5E3C5 A
            02 01BAB    D9D9E4D7 A
            02 01BAC    E3404040 A
     9321   02 01BAD    0CE2C9D6 A   :CCERM6  TEXTC    'SIO-CC1,2=10'
            02 01BAE    60C3C3F1 A
            02 01BAF    6BF27EF1 A
            02 01BB0    F0404040 A
     9322   02 01BB1    0CE3C9D6 A   :CCERM7  TEXTC    'TIO-CC1,2=10'
            02 01BB2    60C3C3F1 A
            02 01BB3    6BF27EF1 A
            02 01BB4    F0404040 A
     9323   02 01BB5    0CC8C9D6 A   :CCERM8  TEXTC    'HIO-CC1,2=10'
            02 01BB6    60C3C3F1 A
            02 01BB7    6BF27EF1 A
            02 01BB8    F0404040 A
     9324   02 01BB9    0CE3C4E5 A   :CCERM9  TEXTC    'TDV-CC1,2=10'
            02 01BBA    60C3C3F1 A
            02 01BBB    6BF27EF1 A
            02 01BBC    F0404040 A
     9325   02 01BBD    0CC1C9D6 A   :CCERMA  TEXTC    'AIO-CC1,2=10'
            02 01BBE    60C3C3F1 A
            02 01BBF    6BF27EF1 A
            02 01BC0    F0404040 A
     9326   02 01BC1    13E2C9D6 A   :CCERMB  TEXTC    'SIO-NO AR-DEV  XXXX'
            02 01BC2    60D5D640 A
            02 01BC3    C1D960C4 A
            02 01BC4    C5E54040 A
            02 01BC5    E7E7E7E7 A
     9327   02 01BC6    13E3C9D6 A   :CCERMC  TEXTC    'TIO-NO AR-DEV  XXXX'
            02 01BC7    60D5D640 A
            02 01BC8    C1D960C4 A
            02 01BC9    C5E54040 A
            02 01BCA    E7E7E7E7 A
     9328   02 01BCB    13C8C9D6 A   :CCERMD  TEXTC    'HIO-NO AR-DEV  XXXX'
            02 01BCC    60D5D640 A
            02 01BCD    C1D960C4 A
            02 01BCE    C5E54040 A
            02 01BCF    E7E7E7E7 A
     9329   02 01BD0    13E3C4E5 A   :CCERME  TEXTC    'TDV-NO AR-DEV  XXXX'
            02 01BD1    60D5D640 A
            02 01BD2    C1D960C4 A
            02 01BD3    C5E54040 A
            02 01BD4    E7E7E7E7 A
     9330   02 01BD5    16C1C9D6 A   :CCERMF  TEXTC    'AIO-NO INTERRUPT RECOG'
            02 01BD6    60D5D640 A
            02 01BD7    C9D5E3C5 A
            02 01BD8    D9D9E4D7 A
            02 01BD9    E340D9C5 A
            02 01BDA    C3D6C740 A
     9331   02 01BDB    27C1C9D6 A   :DAERM   TEXTC    'AIO-DEV ADDR ERR: EXP  XXXX   REC  XXXX'
            02 01BDC    60C4C5E5 A
            02 01BDD    40C1C4C4 A
            02 01BDE    D940C5D9 A
            02 01BDF    D97A40C5 A
            02 01BE0    E7D74040 A
            02 01BE1    E7E7E7E7 A
            02 01BE2    404040D9 A
            02 01BE3    C5C34040 A
            02 01BE4    E7E7E7E7 A
     9332   02 01BE5    33404040 A   :STATEM1 TEXTC    '           0123 4567 8901 2345 CC1,2 DEV ADDR   XXX'
            02 01BE6    40404040 A
            02 01BE7    40404040 A
            02 01BE8    F0F1F2F3 A
            02 01BE9    40F4F5F6 A
            02 01BEA    F740F8F9 A
            02 01BEB    F0F140F2 A
            02 01BEC    F3F4F540 A
            02 01BED    C3C3F16B A
            02 01BEE    F240C4C5 A
            02 01BEF    E540C1C4 A
            02 01BF0    C4D94040 A
            02 01BF1    40E7E7E7 A
     9333   02 01BF2    23404040 A   :STATEM2 TEXTC    '    STATUS XXXX XXXX XXXX XXXX   XX'
            02 01BF3    40E2E3C1 A
            02 01BF4    E3E4E240 A
            02 01BF5    E7E7E7E7 A
            02 01BF6    40E7E7E7 A
            02 01BF7    E740E7E7 A
            02 01BF8    E7E740E7 A
            02 01BF9    E7E7E740 A
            02 01BFA    4040E7E7 A
     9334   02 01BFB    40D6C2E2 A   :EXPOBS  TEXT     ' OBS'
     9335   02 01BFC    40C5E7D7 A            TEXT     ' EXP'
     9336   02 01BFD    40E2C9D6 A   :STATTYP TEXT     ' SIO',' TIO',' HIO',' TDV',' AIO'
            02 01BFE    40E3C9D6 A
            02 01BFF    40C8C9D6 A
            02 01C00    40E3C4E5 A
            02 01C01    40C1C9D6 A
     9337                                     BOUND    8
     9338   02 01C02    00000000 A   :REG0405 DATA     0,0               STORAGE FOR REGS  4 &  5
            02 01C03    00000000 A
     9339   02 01C04    00000000 A   :REG0607 DATA     0,0               STORAGE FOR REG 6 & 7
            02 01C05    00000000 A
     9340   02 01C06    00000000 A   :REG1213 DATA     0,0               STORAGE FOR REGS 12 & 13
            02 01C07    00000000 A
     9341   02 01C08    00000000 A   :BIN0405 DATA     0,0
            02 01C09    00000000 A
     9342   02 01C0A    00000000 A   :BINRTN  DATA     0
     9343   02 01C0B    00000000 A   :IORTN   DATA     0                 STORAGE FOR REG  15
     9344   02 01C0C    00000000 A   :TYPE    DATA     0                 ISSUE TYPE
     9345                            :STATUSCC  ;
     9346   02 01C0D    00000000 A            DATA     0                 RECEVIED STATUS AND CONDITION CODES
1 C00   19:44 JUN 20,'83    TELEFILE COMPREHENSIVE LINE PRINTER TEST 960-0606-H02                 PAGE   67
A    9348                            *
     9349                            *               *** IO EXECUTE ***
     9350                            *
     9351                            * THE IO EXECUTE SUBROUTINE ISSUES A TIO, SIO TO SPECIFIED DEVICE.
     9352                            *  THE SUBROUTINE LOOPS UPON DETECTION OF STATUS OR CC ERROR.
     9353                            *
     9354                            *       INPUT PARAMETERS:
     9355                            *
     9356                            *         REG 0   -DA(IOCD)
     9357                            *         REG 15  -RETURN ADDRESS
     9358                            *         :DEVADDR-DEVICE ADDRESS
     9359                            *
     9360                            *       REGISTERS DISTURBED:
     9361                            *
     9362                            *         (NONE)
     9363                            *
     9364                            *       OUTPUT PARAMETERS:
     9365                            *
     9366                            *         REG 12-SIO COMMAND ADDRESS
     9367                            *         REG 13-SIO DEVICE STATUS, BYTE COUNT
     9368                            *
     9369                            *       WAIT CONDITION-PROGRAM ENTERS WAIT STATE (1) AFTER UNSUCCESSFUL
     9370                            *                      HIO, IO RESET, TIO SEQUENCE OR (2) IF DEVICE
     9371                            *                      MANUAL CONDITION IS DETECTED.
     9372                            *
     9373   02 01C0E    35101C8A     :IOEXECI STW,1    MOD50FLG          SET INTERRUPT FLAG
     9374   02 01C0F    35401C3A     :IOEXEC  STW,R4   :IOSAVE           SAVE REGISTERS 4,11,14,15
     9375   02 01C10    35B01C3B              STW,R11  :IOSAVE+1
     9376   02 01C11    15E01C3C              STD,R14  :IOSAVE+2
     9377   02 01C12    22E00000 A            LI,14    0
     9378   02 01C13    35E01C8D              STW,14   MOD50ERR          RESET FLAG
     9379   02 01C14    6AF01AF7     :IOEXEC1 BAL,R15  :TIO              ISSUE TIO
     9380   02 01C15    9700C000 A            DATA     X'9700C000'       EXPECTED STATUS
     9381   02 01C16    10000000 A            DATA     X'10000000'       EXPECTED STATUS
     9382   02 01C17    68001C19              B        %+2
     9383   02 01C18    68001C2A              B        :IOERR1           TIO STATUS ERROR
     9384   02 01C19    4BD02276              AND,R13  =X'10000000'      MASK DEV STATUS FOR AUTO TEST
     9385   02 01C1A    68301C37              BCR,3    :IOERR2           DEVICE MANUAL ERROR
     9386   02 01C1B    52E20335              LH,14    :CDB,1            FETCH MODEL NUMBER
     9387   02 01C1C    21E01D1A A            CI,14    7450              IS IT MODEL 7450
     9388   02 01C1D    69301C21              BNE      %+4               B: NO
     9389   02 01C1E    6AF01C48              BAL,15   MOD7450           MODEL 7450 - START IO
     9390   02 01C1F    68001C21              B        %+2               NO ERROR
     9391   02 01C20    35101C8D              STW,1    MOD50ERR          SET ERROR FLAG
     9392   02 01C21    6AF01AF2              BAL,R15  :SIO              ISSUE SIO
     9393   02 01C22    9700C000 A            DATA     X'9700C000'       STATUS MASK
     9394   02 01C23    10000000 A            DATA     X'10000000'       EXPECTED STATUS
     9395   02 01C24    68001C26              B        %+2
     9396   02 01C25    68001C14              B        :IOEXEC1          SIO STATUS ERROR-LOOP TO ISSUE TIO
     9397   02 01C26    32401C3A              LW,R4    :IOSAVE           RESTORE REGISTERS 4,11,14,15
     9398   02 01C27    32B01C3B              LW,R11   :IOSAVE+1
     9399   02 01C28    12E01C3C              LD,R14   :IOSAVE+2
     9400   02 01C29    E800000F A            B        *R15              EXIT
     9401                            *                                   TIO STATUS ERROR
     9402   02 01C2A    6AF01AFC     :IOERR1  BAL,R15  :HIO              ISSUE HIO
     9403   02 01C2B    10008000 A            DATA     X'10008000'       STATUS MASK
     9404   02 01C2C    10000000 A            DATA     X'10000000'       EXPECTED STATUS
     9405   02 01C2D    68001C14              B        :IOEXEC1          HIO STATUS ERROR-LOOP TO ISSUE TIO
     9406   02 01C2E    6D000042 A            WD,0     X'42'             IO RESET
     9407   02 01C2F    6D000042 A            WD,0     X'42'
     9408   02 01C30    6AF01AF7              BAL,R15  :TIO              ISSUE TIO
     9409   02 01C31    9700C000 A            DATA     X'9700C000'       STATUS MASK
     9410   02 01C32    10000000 A            DATA     X'10000000'       EXPECTED STATUS
     9411   02 01C33    68001C14              B        :IOEXEC1          LOOP TO ISSUE TIO
     9412                            *                                   ENTER WAIT STATE
     9413   02 01C34    EAF0022B A   :IOERR1A WAITPROC :IOERM1           'CLEAR WAIT TO CONTINUE'        *A01
            02 01C35    00001C3F
     9414   02 01C36    68001C14              B        :IOEXEC1          LOOP TO ISSUE TIO
     9415                            *                                   DEVICE MANUAL ERROR
     9416   02 01C37    EAF0021C A   :IOERR2  BAL,15   *:PRINT           PRINT ERROR MSG
     9417   02 01C38    00001C45              DATA     :IOERM2
     9418   02 01C39    68001C34              B        :IOERR1A          GO TO WAIT
     9419                            *
     9420                                     BOUND    8
     9421   02 01C3A                 :IOSAVE  RES      4                 REGISTERS 4,11,14,15
     9422   02 01C3E    00000002 A   :DEVADDR DATA     2                 DEVICE ADDRESS
     9423   02 01C3F    16C3D3C5 A   :IOERM1  TEXTC    'CLEAR WAIT TO CONTINUE'
            02 01C40    C1D940E6 A
            02 01C41    C1C9E340 A
            02 01C42    E3D640C3 A
            02 01C43    D6D5E3C9 A
            02 01C44    D5E4C540 A
     9424   02 01C45    0AC4C5E5 A   :IOERM2  TEXTC    'DEV MANUAL'
            02 01C46    40D4C1D5 A
            02 01C47    E4C1D340 A
     9425                            *
     9426                            *        *** MODEL 7450 - PRINT 1ST LINE ***
     9427                            *
     9428                            * THIS SUBROUTINE PRINTS THE FIRST LINE FOR MODEL 7450.
     9429                            * THE SUBROUTINE LOOPS UPON DETECTION OF PRINT FAULT.
     9430   02 01C48    35F01C89     MOD7450  STW,15   MOD50RTN          SAVE RETURN
     9431   02 01C49    32E00000 A            LW,14    0                 DA(IOCD)
     9432   02 01C4A    25E00001 A            SLS,14   1                 WA(IOCD)
     9433   02 01C4B    F2C0000E A            LB,12    *14               ORDER
     9434   02 01C4C    31C00002 A            CW,12    2                 IS IT FOR PRINT OR PRINT W FORMAT
     9435   02 01C4D    E9401C89              BCS,4    *MOD50RTN         B: NO, RETURN
     9436   02 01C4E    CEC01C3E     MOD50A   TDV,12   *:DEVADDR         ISSUE TDV
     9437   02 01C4F    31D02259              CW,13    =X'02000000'      IS IT FOR FIRST LINE
     9438   02 01C50    68401C57              BCR,4    MOD50B            B: YES
     9439   02 01C51    CFC01C3E              HIO,12   *:DEVADDR         ISSUE HIO
     9440   02 01C52    EAF0021C A            BAL,15   *:PRINT
     9441   02 01C53    00001C8E              DATA     MOD50MG1          'PRINT FAULT-EXPECTED 1ST LINE'
     9442   02 01C54    EAF02200              BAL,15   *:SENSE
     9443   02 01C55    2E001C55              WAIT     %
     9444   02 01C56    68001C4E              B        MOD50A            LOOP
     9445   02 01C57    31101C8A     MOD50B   CW,1     MOD50FLG          IS IO INTERRUPT EXPECTED
     9446   02 01C58    69301C5B              BNE      MOD50C            B: NO
     9447   02 01C59    32E01C88              LW,14    MOD50XPS
     9448   02 01C5A    35E0005C A            STW,14   X'5C'             ENTER IO INTER XPSD INTO LOC.
     9449   02 01C5B    CCC01C3E     MOD50C   SIO,12   *:DEVADDR         PRINT 1ST LINE
     9450   02 01C5C    32C01C8B              LW,12    MOD50DTM          MAX DELAY TIME
     9451   02 01C5D    35C01C8C              STW,12   MOD50DT           SAVE
     9452   02 01C5E    31101C8A              CW,1     MOD50FLG          IS IT TO EXPECT IO INTERRUPT
     9453   02 01C5F    68301C64              BE       MOD50D-1          B: EXPECTED IO INTURRPT
     9454   02 01C60    CDC01C3E              TIO,12   *:DEVADDR         ISSUE TIO
     9455   02 01C61    68C01C70              BCR,12   MOD50E            CHANNEL END DETECTED
     9456   02 01C62    33F01C8C              MTW,-1   MOD50DT           DECR DELAY COUNT
     9457   02 01C63    69201C60              BGZ      %-3
     9458   02 01C64    6AF01FDD              BAL,15   :INTAE            ARM AND ENABLE IO INTERRUPT
     9459   02 01C65    33001D72     MOD50D   MTW,0    :INTRECF          TEST INTR REC5D FLAG
     9460   02 01C66    69301C70              BNEZ     MOD50E            SET - INTER REC'D
     9461   02 01C67    33F01C8C              MTW,-1   MOD50DT           DECR DELAY TIME
     9462   02 01C68    69201C65              BGZ      MOD50D            DELAY NOT 0
     9463   02 01C69    6AF01FE3     MOD50G   BAL,15   :INTD             DISARM IO INTERRUPT
     9464   02 01C6A    EAF0021C A            BAL,15   *:PRINT
     9465   02 01C6B    0000204F              DATA     EXECMSG           'IO INTER NOT REC'D'
     9466   02 01C6C    33101C89              MTW,1    MOD50RTN          INCR EXIT ADDR
     9467   02 01C6D    22E00000 A   MOD50F   LI,14    0
     9468   02 01C6E    35E01C8A              STW,14   MOD50FLG          RESET FLAG
     9469   02 01C6F    E8001C89              B        *MOD50RTN         RETURN
     9470   02 01C70    6AF01FE3     MOD50E   BAL,15   :INTD             DISARM IO INTER
     9471   02 01C71    32E004B2              LW,14    TST1LMT           SUBTEST NO
     9472   02 01C72    21E00041 A            CI,14    65                IS IT FOR SUBTEST NO 65
     9473   02 01C73    69301C77              BNE      %+4               B: NO
     9474   02 01C74    32E015B1              LW,14    DELAYSP
     9475   02 01C75    6AF01D50              BAL,15   :DELAY            DELAY
     9476   02 01C76    68001C77              B        %+1
     9477   02 01C77    CEC01C3E              TDV,12   *:DEVADDR         ISSUE TDV
     9478   02 01C78    31D02259              CW,13    =X'02000000'      IS IT TO PRINT 2ND LINE
     9479   02 01C79    69401C6D              BCS,4    MOD50F            B: YES
     9480   02 01C7A    CFC01C3E              HIO,12   *:DEVADDR         ISSUE HIO
     9481   02 01C7B    EAF0021C A            BAL,15   *:PRINT
     9482   02 01C7C    00001C96              DATA     MOD50MG2          'PRINT FAULT-EXPECTED 2ND LINE'
     9483   02 01C7D    EAF02200              BAL,15   *:SENSE
     9484   02 01C7E    2E001C7E              WAIT     %
     9485   02 01C7F    68001C71              B        MOD50E+1          LOOP
     9486   02 01C80    68001C6C              B        MOD50F-1          ERROR EXIT
     9487   02 01C81    6ED00000 A   MOD50REC AIO,13   0                 ISSUE AIO
     9488   02 01C82    35101D72              STW,1    :INTRECF          SET INTR FLAG
     9489   02 01C83    0E201C84              LPSD,2   MOD50PSD          EXIT
     9490                                     BOUND    8
     9491   02 01C84    00000000 A   MOD50PSD DATA     0,0
            02 01C85    00000000 A
     9492   02 01C86    00001C81              DATA     MOD50REC,0
            02 01C87    00000000 A
     9493   02 01C88    0F001C84     MOD50XPS XPSD,0   MOD50PSD
     9494   02 01C89    00000000 A   MOD50RTN DATA     0
     9495   02 01C8A    00000000 A   MOD50FLG DATA     0
     9496   02 01C8B    00010000 A   MOD50DTM DATA     X'10000'
     9497   02 01C8C    00000000 A   MOD50DT  DATA     0
     9498   02 01C8D    00000000 A   MOD50ERR DATA     0
     9499   02 01C8E    1DD7D9C9 A   MOD50MG1 TEXTC    'PRINT FAULT-EXPECTED 1ST LINE'
            02 01C8F    D5E340C6 A
            02 01C90    C1E4D3E3 A
            02 01C91    60C5E7D7 A
            02 01C92    C5C3E3C5 A
            02 01C93    C440F1E2 A
            02 01C94    E340D3C9 A
            02 01C95    D5C54040 A
     9500   02 01C96    1DD7D9C9 A   MOD50MG2 TEXTC    'PRINT FAULT-EXPECTED 2ND LINE'
            02 01C97    D5E340C6 A
            02 01C98    C1E4D3E3 A
            02 01C99    60C5E7D7 A
            02 01C9A    C5C3E3C5 A
            02 01C9B    C440F2D5 A
            02 01C9C    C440D3C9 A
            02 01C9D    D5C54040 A
1 C00   19:44 JUN 20,'83    TELEFILE COMPREHENSIVE LINE PRINTER TEST 960-0606-H02                 PAGE   68
A    9502                            *
     9503                            *                   *** C O M P A R E ***
     9504                            *
     9505                            * THE COMPARE SUBROUTINE COMPARES TWO BUFFER AREAS A WORD AT A
     9506                            *  TIME. AN ERROR COUNT IS GENERATED WHEN UNEQUAL COMPARES ARE
     9507                            *   SENSED. UNEQUAL WORDS ARE PRINTED. ERROR EXIT IF ONE OR MORE
     9508                            *    UNEQUAL COMPARES SENSED.
     9509                            *
     9510                            *       INPUT PARAMETERS:
     9511                            *
     9512                            *           REG 15  -RETURN ADDRESS
     9513                            *           :COMWCNT-NUMBER OF WORDS TO BE COMPARED
     9514                            *           :COMBFRA-EXPECTED BUFFER ADDRESS
     9515                            *           :COMBFRB-OBSERVED BUFFER ADDRESS
     9516                            *           :COMFLAG-ERROR PRINTOUT INHIBIT FLAG (INHIBIT IF <>0)
     9517                            *                    (REGISTERS 8 THRU 11 CAN BE USED AS BUFFERS)
     9518                            *
     9519                            *       REGISTERS DISTURBED:
     9520                            *
     9521                            *           (NONE)
     9522                            *
     9523                            *       OUTPUT PARAMETERS:
     9524                            *
     9525                            *           NORMAL EXIT-RETURN ADDRESS
     9526                            *           ERROR EXIT -RETURN ADDRESS +1
     9527                            *           :COMERRT   -COUNT OF COMPARE ERRORS
     9528                            *
     9529   02 01C9E    02200000 A   :COMPARE LCI      0
     9530   02 01C9F    2B001CF9              STM,R0   :COMTEM1          SAVE REGISTERS 0-15
     9531   02 01CA0    22500000 A            LI,R5    0
     9532   02 01CA1    15501D0C              STD,R5   :COMERRT          CLEAR ERROR TOTAL, HDR FLAG
     9533   02 01CA2    32401D0F              LW,R4    :COMBFRA          EXPECTED BUFFER ADDRESS A
     9534   02 01CA3    32501D10              LW,R5    :COMBFRB          OBSERVED BUFFER ADDRESS B
     9535   02 01CA4    30401D0E              AW,R4    :COMWCNT          BUFFER A + WORD COUNT
     9536   02 01CA5    30501D0E              AW,R5    :COMWCNT          BUFFER B + WORD COUNT
     9537   02 01CA6    15401D0A              STD,R4   :COMTEM2          SAVE FINAL BFR ADDRESSES
     9538   02 01CA7    3A401D0E              LCW,R4   :COMWCNT          -(WORD COUNT)
     9539   02 01CA8    B2581D0A     :COM1    LW,R5    *:COMTEM2,R4      BUFFER A WORD
     9540   02 01CA9    B1581D0B              CW,R5    *:COMTEM2+1,R4    BUFFER A WORD:BUFFER B WORD
     9541   02 01CAA    69301CB2              BCS,3    :COM2             UNEQUAL COMPARISON
     9542   02 01CAB    65401CA8              BIR,R4   :COM1             WORD COUNT NOT 0
     9543   02 01CAC    32401D0C              LW,R4    :COMERRT          ERROR TOTAL
     9544   02 01CAD    68301CAF              BCR,3    %+2               NO ERROR
     9545   02 01CAE    33101D08              MTW,1    :COMTEM1+15       ERROR-RETURN ADDRESS +1
     9546   02 01CAF    02200000 A            LCI      0
     9547   02 01CB0    2A001CF9              LM,R0    :COMTEM1          RESTORE REGISTERS 0-15
     9548   02 01CB1    E800000F A            B        *R15              EXIT
     9549                            *                                   COMPARE ERROR
     9550   02 01CB2    312015B2     :COM2    CW,2     TST1FLGM          IS IT MODEL 7446
     9551   02 01CB3    69301CC4              BNE      :COM21            B NO
     9552   02 01CB4    B2A81D0B              LW,10    *:COMTEM2+1,4     BUFFER B WORD
     9553   02 01CB5    22B00080 A            LI,11    X'80'
     9554   02 01CB6    71B0000A A            CB,11    10                IS BYTE = X'80'
     9555   02 01CB7    69301CB9              BNE      %+2               B: NO
     9556   02 01CB8    49502277              OR,5     =X'80000000'      SET BIT 0
     9557   02 01CB9    71B2000A A            CB,11    10,1              IS BYTE = X'80'
     9558   02 01CBA    69301CBC              BNE      %+2               B: NO
     9559   02 01CBB    49502258              OR,5     =X'800000'        SET BIT 0
     9560   02 01CBC    71B4000A A            CB,11    10,2              IS BYTE = X'80'
     9561   02 01CBD    69301CBF              BNE      %+2               B: NO
     9562   02 01CBE    49502278              OR,5     =X'8000'          SET BIT 0
     9563   02 01CBF    71B6000A A            CB,11    10,3              IS BYTE = X'80'
     9564   02 01CC0    69301CC2              BNE      %+2               B: NO
     9565   02 01CC1    49502279              OR,5     =X'80'            SET BIT 0
     9566   02 01CC2    B1581D0B              CW,5     *:COMTEM2+1,4     BUFFER A WORD:BUFFER B WORD
     9567   02 01CC3    68301CAB              BE       :COM1+3           B: EQUAL
     9568   02 01CC4    33101D0C     :COM21   MTW,1    :COMERRT          INCR ERROR COUNT
     9569   02 01CC5    32601D11              LW,R6    :COMFLAG          PRINT INHIBIT FLAG
     9570   02 01CC6    69301CAB              BCS,3    :COM1+3           PRINT INHIBIT <>0 -RETURN TO COMPARE
     9571   02 01CC7    32601D0C              LW,R6    :COMERRT          ERROR TOTAL
     9572   02 01CC8    31601D12              CW,R6    :COMPLIM          TEST FOR MAX PRINTOUT
     9573   02 01CC9    69201CAE              BG       :COM1+6           MAX PRINTOUT - BIPASS PO
     9574   02 01CCA    32601D0D              LW,R6    :COMTEM3          HEADER FLAG
     9575   02 01CCB    69301CDF              BCS,3    :COM3             FLAG NOT 0 -NO ERR MSG HDR REQ'D
     9576                            *                                   PRINT ERROR MSG HEADER
     9577   02 01CCC    33101D0D              MTW,1    :COMTEM3          SET HDR FLAG
     9578   02 01CCD    32C01C3E              LW,R12   :DEVADDR          DEVICE ADDRESS
     9579   02 01CCE    EAF00218 A            BAL,R15  *:HEXC            CONVERT TO EBCDIC
     9580   02 01CCF    35F01D1B              STW,R15  :COMERM1+8        ENTER INTO HDR MSG
     9581   02 01CD0    EAF0021C A            BAL,R15  *:PRINT           PRINT ERROR MSG HEADER
     9582   02 01CD1    00001D13              DATA     :COMERM1
     9583   02 01CD2    32C01D0F              LW,R12   :COMBFRA          EXPECTED BUFFER ADDRESS
     9584   02 01CD3    EAF00218 A            BAL,R15  *:HEXC            CONVERT TO HEXADECIMAL IN EBCDIC
     9585   02 01CD4    22600001 A            LI,R6    1                 INDEX=1
     9586   02 01CD5    55F01D20              STH,R15  :COMERM2+4        BFR ADDR TO MSG
     9587   02 01CD6    52F0000F A            LH,R15   R15
     9588   02 01CD7    55FC1D1F              STH,R15  :COMERM2+3,R6
     9589   02 01CD8    32C01D10              LW,R12   :COMBFRB          OBSERVED BUFFER ADDRESS
     9590   02 01CD9    EAF00218 A            BAL,R15  *:HEXC            CONVERT TO HEXADECIMAL IN EBCDIC
     9591   02 01CDA    35F01D24              STW,R15  :COMERM2+8        BFR ADDR TO MSG
     9592   02 01CDB    EAF0021C A            BAL,R15  *:PRINT           PRINT ERROR MSG HEADER
     9593   02 01CDC    00001D1C              DATA     :COMERM2
     9594   02 01CDD    EAF0021C A            BAL,R15  *:PRINT           PRINT ERROR MSG HEADER
     9595   02 01CDE    00001D25              DATA     :COMERM3
     9596                            *                                   PRINT EXPECTED, OBSERVED WORDS
     9597   02 01CDF    32C01D0E     :COM3    LW,R12   :COMWCNT          NUMBER OF WORDS
     9598   02 01CE0    30C00004 A            AW,R12   R4                WRD CNT=NUM WORDS + WRD CNT INDEX
     9599   02 01CE1    EAF00218 A            BAL,R15  *:HEXC            CONVERT TO HEXADECIMAL IN EBCDIC
     9600   02 01CE2    35F01D41              STW,R15  :COMERM4+13       WRD CNT TO MSG
     9601   02 01CE3    B2C81D0A              LW,R12   *:COMTEM2,R4      EXPECTED WORD
     9602   02 01CE4    22D01D34              LI,R13   :COMERM4          ERROR MSG ADDR
     9603   02 01CE5    6AE01CEE              BAL,R14  :COM4             ENTER EXP WRD INTO MSG
     9604   02 01CE6    EAF0021C A            BAL,R15  *:PRINT           PRINT EXPECTED WORD MSG
     9605   02 01CE7    00001D34              DATA     :COMERM4
     9606   02 01CE8    B2C81D0B              LW,R12   *:COMTEM2+1,R4    OBSERVED WORD
     9607   02 01CE9    22D01D42              LI,R13   :COMERM5          ERROR MSG ADDR
     9608   02 01CEA    6AE01CEE              BAL,R14  :COM4             ENTER OBS WRD INTO MSG
     9609   02 01CEB    EAF0021C A            BAL,R15  *:PRINT           PRINT OBSERVED WORD MSG
     9610   02 01CEC    00001D42              DATA     :COMERM5
     9611   02 01CED    68001CAB              B        :COM1+3           RETURN TO COMPARISON
     9612                            *                                   ENTER STATUS BITS INTO MESSAGE
     9613   02 01CEE    22600030 A   :COM4    LI,R6    48                BYTE INDEX=48
     9614   02 01CEF    22700004 A            LI,R7    4                 MINOR INDEX=4
     9615   02 01CF0    EAF00216 A            BAL,R15  *:BINC            CONVERT TO BINARY IN EBCDIC
     9616   02 01CF1    F5FC000D A            STB,R15  *R13,R6           BIT TO MSG
     9617   02 01CF2    33F00006 A            MTW,-1   R6                BYTE INDEX -1
     9618   02 01CF3    25F00078 A            SLS,R15  -8                ADJUST EBCDIC BITS
     9619   02 01CF4    64701CF1              BDR,R7   %-3               MINOR LOOP INDEX NOT 0
     9620   02 01CF5    33F00006 A            MTW,-1   R6                BYTE INDEX -1
     9621   02 01CF6    21600009 A            CI,R6    9                 BYTE INDEX:9
     9622   02 01CF7    69201CEF              BCS,2    :COM4+1           BYTE INDEX NOT MINIMUM
     9623   02 01CF8    E800000E A            B        *R14              ENTER COMPLETE-EXIT
     9624                            *
     9625   02 01CF9                 :COMTEM1 RES      16                REGISTERS 0-15
     9626                                     BOUND    8
     9627   02 01D0A    00000000 A   :COMTEM2 DATA     0,0               BUFFER A ADDR, BUFFER B ADDR
            02 01D0B    00000000 A
     9628   02 01D0C    00000000 A   :COMERRT DATA     0                 COMPARE ERROR TOTAL
     9629   02 01D0D    00000000 A   :COMTEM3 DATA     0                 MESSAGE HEADER FLAG
     9630   02 01D0E    00000000 A   :COMWCNT DATA     0                 BUFFER WORD COUNT
     9631   02 01D0F    00000000 A   :COMBFRA DATA     0                 EXPECTED BUFFER A
     9632   02 01D10    00000000 A   :COMBFRB DATA     0                 OBSERVED BUFFER B
     9633   02 01D11    00000000 A   :COMFLAG DATA     0                 PRINT INHIBIT FLAG
     9634   02 01D12    0000FFFF A   :COMPLIM DATA     X'FFFF'           COMPARE LIMIT COUNT
     9635   02 01D13    23D9C5C1 A   :COMERM1 TEXTC    'READ COMPARE ERROR    DEV ADDR XXXX'
            02 01D14    C440C3D6 A
            02 01D15    D4D7C1D9 A
            02 01D16    C540C5D9 A
            02 01D17    D9D6D940 A
            02 01D18    404040C4 A
            02 01D19    C5E540C1 A
            02 01D1A    C4C4D940 A
            02 01D1B    E7E7E7E7 A
     9636   02 01D1C    23C5E7D7 A   :COMERM2 TEXTC    'EXP BFR ADDR XXXX OBS BFR ADDR XXXX'
            02 01D1D    40C2C6D9 A
            02 01D1E    40C1C4C4 A
            02 01D1F    D940E7E7 A
            02 01D20    E7E740D6 A
            02 01D21    C2E240C2 A
            02 01D22    C6D940C1 A
            02 01D23    C4C4D940 A
            02 01D24    E7E7E7E7 A
     9637                            :COMERM3 TEXTC    ;
     9638   02 01D25    38404040 A    '         0123 4567 8901 2345 6789 0123 4567 8901  WD CNT'
            02 01D26    40404040 A
            02 01D27    4040F0F1 A
            02 01D28    F2F340F4 A
            02 01D29    F5F6F740 A
            02 01D2A    F8F9F0F1 A
            02 01D2B    40F2F3F4 A
            02 01D2C    F540F6F7 A
            02 01D2D    F8F940F0 A
            02 01D2E    F1F2F340 A
            02 01D2F    F4F5F6F7 A
            02 01D30    40F8F9F0 A
            02 01D31    F14040E6 A
            02 01D32    C440C3D5 A
            02 01D33    E3404040 A
     9639   02 01D34    37C5E7D7 A   :COMERM4 TEXT     ' EXPECTED   '
            02 01D35    C5C3E3C5 A
            02 01D36    C4404040 A
     9640         0000000B                    DO       11
     9641   02 01D37    40404040 A            DATA     X'40404040'       SPACES
     9642                                     FIN
            02 01D38    40404040 A
            02 01D39    40404040 A
            02 01D3A    40404040 A
            02 01D3B    40404040 A
            02 01D3C    40404040 A
            02 01D3D    40404040 A
            02 01D3E    40404040 A
            02 01D3F    40404040 A
            02 01D40    40404040 A
            02 01D41    40404040 A
     9643   02 01D42    34D6C2E2 A   :COMERM5 TEXT     ' OBSERVED   '
            02 01D43    C5D9E5C5 A
            02 01D44    C4404040 A
     9644         0000000B                    DO       11
     9645   02 01D45    40404040 A            DATA     X'40404040'       SPACES
     9646                                     FIN
            02 01D46    40404040 A
            02 01D47    40404040 A
            02 01D48    40404040 A
            02 01D49    40404040 A
            02 01D4A    40404040 A
            02 01D4B    40404040 A
            02 01D4C    40404040 A
            02 01D4D    40404040 A
            02 01D4E    40404040 A
            02 01D4F    40404040 A
1 C00   19:44 JUN 20,'83    TELEFILE COMPREHENSIVE LINE PRINTER TEST 960-0606-H02                 PAGE   69
A    9648                            *
     9649                            *                *** DELAY FOR I/O INTERRUPT ***
     9650                            *
     9651                            * THE DELAY SUBROUTINE DELAYS TO AWAIT THE I/O INTERRUPT. TIMEOUT OCCURS
     9652                            *  WHEN SPECIFIED MAXIMUM DELAY TIME IS REACHED.
     9653                            *
     9654                            *       INPUT PARAMETERS:
     9655                            *
     9656                            *         REG 14- MAX DELAY TIME (DELAY =  (R14) MILLISECONDS)
     9657                            *         REG 15- RETURN ADDRESS
     9658                            *
     9659                            *       REGISTERS DISTURBED:
     9660                            *
     9661                            *         (NONE)
     9662                            *
     9663                            *       OUTPUT PARAMETERS:
     9664                            *
     9665                            *         INTERRUPT REC'D EXIT-RETURN ADDRESS
     9666                            *         DELAY TIMEOUT EXIT  -RETURN ADDRESS +1
     9667                            *                             (INTERRUPTS ARMED, ENABLED IF FLAG <>0)
     9668                            *
     9669   02 01D50    35F01D69     :DELAY   STW,R15  :DELSAVE          SAVE REGISTER 15
     9670   02 01D51    25E0007F A            SLS,R14  -1                DELAY TIME /2
     9671   02 01D52    3310000E A            MTW,1    R14               COMPENSATE FOR IMMEDIATE CTR4 INTER

        2*  02 01D53    33000336              MTW,0    :CDB+1            SKIP IF LONG TIMER              *H02
        3*  02 01D54    68301D56              BEZ      %+2                FLAG NOT SET (NEW PRINTERS)    *H02

        5*  02 01D55    25E00002 A            SLS,R14  2                 IMMENSE DELAYS                  *H02

     9672   02 01D56    35E01D68              STW,R14  :DELTIME          TIME TO CTR 4 DECR POSITION
     9673   02 01D57    6AF01D60              BAL,R15  :DELAYAE          ARM AND ENABLE COUNTER 4 INTERRUPTS
     9674   02 01D58    32F01D72              LW,R15   :INTRECF          I/O INTERRUPT RECEIVED FLAG
     9675   02 01D59    68301D58              BCR,3    %-1               FLAG=0,I/O INTERRUPT NOT RECEIVED
     9676   02 01D5A    6AF01D64              BAL,R15  :DELAYD           DISARM COUNTER 4 INTERRUPTS
     9677   02 01D5B    32F01D69     :DELEXIT LW,R15   :DELSAVE          RESTORE REGISTER 15
     9678   02 01D5C    E800000F A            B        *R15              EXIT
     9679                            *                                   DELAY TIMEOUT
     9680   02 01D5D    6AF01D64     :DELTO   BAL,R15  :DELAYD           DISARM COUNTER 4 INTERRUPTS
     9681   02 01D5E    33101D69              MTW,1    :DELSAVE          RETURN ADDRESS +1
     9682   02 01D5F    68001D5B              B        :DELEXIT          GO TO DELAY TIMEOUT EXIT
     9683                            *                                   ARM/ENABLE COUNTER 4 INTERRUPTS
     9684   02 01D60    35F01D6A     :DELAYAE STW,R15  :DELSAVE+1        SAVE REGISTER 15
     9685   02 01D61    22F01040 A            LI,R15   X'1040'           BITS 19,25
     9686   02 01D62    6DF01200 A            WD,R15   X'1200'           ARM AND ENABLE CTR 4 INTERRUPTS
     9687   02 01D63    E8001D6A              B        *:DELSAVE+1       EXIT
     9688                            *                                   DISARM COUNTER 4 INTERRUPTS
     9689   02 01D64    35F01D6A     :DELAYD  STW,R15  :DELSAVE+1        SAVE REGISTER 15
     9690   02 01D65    22F01040 A            LI,R15   X'1040'           BITS 19,25
     9691   02 01D66    6DF01100 A            WD,R15   X'1100'           DISARM COUNTER 4 INTERRUPTS
     9692   02 01D67    E8001D6A              B        *:DELSAVE+1       EXIT
     9693                            *
     9694   02 01D68    00000000 A   :DELTIME DATA     0                 DELAY TIME CTR 4 DECREMENT POSITION
     9695   02 01D69    00000000 A   :DELSAVE DATA     0,0               REGISTER 15
            02 01D6A    00000000 A
     9696                                     BOUND    8
     9697   02 01D6C    00000000 A   :DELAYTO DATA     0,0
            02 01D6D    00000000 A
     9698   02 01D6E    00001D5D              DATA     :DELTO,0
            02 01D6F    00000000 A
     9699   02 01D70    0F001D6C     :DELXPSD XPSD,0   :DELAYTO
     9700   02 01D71    33F01D68     :DELMTW  MTW,-1   :DELTIME
     9701   02 01D72    00000000 A   :INTRECF DATA     0                 INTERRUPT RECEIVED FLAG
1 C00   19:44 JUN 20,'83    TELEFILE COMPREHENSIVE LINE PRINTER TEST 960-0606-H02                 PAGE   70
A    9703                            *
     9704                            *                *** ERROR ROUTINE (MODIFIED) ***
     9705                            *
     9706                            * THIS SUBROUTINE ACCEPTS A STRING OF BYTES, EACH OF WHICH IDENTIFIES
     9707                            * THE STATUS TYPE (BITS 0 - 3), THE BIT TEST (BIT 4) AND THE STATUS
     9708                            * MASK (BITS 5 - 7). THE TESTS WILL BE PERFORMED IN THE SEQUENCE OF THE
     9709                            * BYTE STRING, WITH EACH TEST CHECKING A SPECIFIC STATUS BIT FOR THE
     9710                            * TRUE OR FALSE CONDITION. A ZERO BYTE   WILL INDICATE THE END OF THE
     9711                            * BYTE STRING. ALL UNSPECIFIED BIT POSITIONS WILL NOT BE TESTED        *
     9712                            *
     9713                            * THE BYTE HAS THE FOLLOWING FORMAT:
     9714                            *
     9715                            * BITS 0 - 3                 BIT 4    BITS 5 - 7
     9716                            * ----------                 -----    ----------
     9717                            * 0 NOT ALLOWED              0 FALSE  0 MASK X'80', BYT   -, COM2<COM1
     9718                            * 1 TIO STATUS               1 TRUE   1 MASK X'40', BYT = 0, COM2=COM1
     9719                            * 2 OPERATIONAL STATUS (TIO)   TEST   2 MASK X'20', BYT  +1, COM2=COM1+1
     9720                            * 3 HIO STATUS                        3 MASK X'10', BYT  +2, COM2=COM1+2
     9721                            * 4 TDV STATUS                        4 MASK X'08', BYT  +3, COM2=COM1+3
     9722                            * 5 SIO STATUS                        5 MASK X'04', BYT  +4, COM2=COM1+4
     9723                            * 6 AIO STATUS                        6 MASK X'02', BYT  +5, COM2=COM1+5
     9724                            * 7 INTERRUPT STATUS (AIO)            7 MASK X'01', BYT  +6, COM2=COM1+6
     9725                            * 8 SENSE BYTE A
     9726                            * 9 SENSE BYTE B
     9727                            * A NOT ASSIGNED
     9728                            * B NOT ASSIGNED
     9729                            * C NOT ASSIGNED
     9730                            * D NOT ASSIGNED
     9731                            * E BYTE COUNT TEST (TIO)
     9732                            * F COMMAND ADDR TEST (TIO)
     9733                            *
     9734                            *
     9735                            * SUBROUTINES ARE PROVIDED TO STORE STATUS INFORMATION INTO A TABLE.
     9736                            * IF THE TIO, HIO, TDV, OSB, BYTE CNT, OR COMMAND ADR HAS NOT BEEN
     9737                            * STORED IN THE TABLE, THE ERROR ROUTINE  SR WILL ISSUE THE APPROPRIATE
     9738                            * I/O INSTRUCTION AND STORE THE STATUS BEFORE TESTING COMMENCES.
     9739                            *
     9740                            * CALLING SEQUENCE: BAL,15 :ERRORT
     9741                            *                   DATA   BA(TSEQNNN)
     9742                            * NORMAL EXIT:      B      (CONTINUE TEST)
     9743                            * ERROR  EXIT:             (IDENTIFY SUBTEST)
     9744                            *
     9745                            * REGISTERS DISTURBED: NONE (R1 = 1, R2 = 2, R3 = 3)
     9746                            *
     9747                            * VARIABLES REQUIRED: STATUS IN SAVE TABLE
     9748                            *                     STARTING COMMAND ADR
     9749                            *
     9750                            * OTHER SUBROUTINES: CLEAR STATUS SAVE TABLE (:SAVECLR)
     9751                            *                    STORE STATUS IN SAVE TABLE (:SAVETIO,:SAVEHIO,
     9752                            *                    :SAVETDV,:SAVESIO,:SAVEAIO,:SAVESSA,SAVESSB,:TIO,
     9753                            *                    :TDV,:HIO)
     9754                            *
     9755                            *
     9756                            * THE FOLLOWING EQUATE STATEMENTS ASSIGN LABELS TO BYTE VALUES
     9757                            *
     9758                            TIOF0,TIOF1,TIOF2,TIOF3,TIOF4,TIOF5,TIOF6,TIOF7  :TSEQEQU  X'10'
     9759                            TIOT0,TIOT1,TIOT2,TIOT3,TIOT4,TIOT5,TIOT6,TIOT7  :TSEQEQU  X'18'
     9760                            OSBF0,OSBF1,OSBF2,OSBF3,OSBF4,OSBF5,OSBF6,OSBF7  :TSEQEQU  X'20'
     9761                            OSBT0,OSBT1,OSBT2,OSBT3,OSBT4,OSBT5,OSBT6,OSBT7  :TSEQEQU  X'28'
     9762                            HIOF0,HIOF1,HIOF2,HIOF3,HIOF4,HIOF5,HIOF6,HIOF7  :TSEQEQU  X'30'
     9763                            HIOT0,HIOT1,HIOT2,HIOT3,HIOT4,HIOT5,HIOT6,HIOT7  :TSEQEQU  X'38'
     9764                            TDVF0,TDVF1,TDVF2,TDVF3,TDVF4,TDVF5,TDVF6,TDVF7  :TSEQEQU  X'40'
     9765                            TDVT0,TDVT1,TDVT2,TDVT3,TDVT4,TDVT5,TDVT6,TDVT7  :TSEQEQU  X'48'
     9766                            SIOF0,SIOF1,SIOF2,SIOF3,SIOF4,SIOF5,SIOF6,SIOF7  :TSEQEQU  X'50'
     9767                            SIOT0,SIOT1,SIOT2,SIOT3,SIOT4,SIOT5,SIOT6,SIOT7  :TSEQEQU  X'58'
     9768                            AIOF0,AIOF1,AIOF2,AIOF3,AIOF4,AIOF5,AIOF6,AIOF7  :TSEQEQU  X'60'
     9769                            AIOT0,AIOT1,AIOT2,AIOT3,AIOT4,AIOT5,AIOT6,AIOT7  :TSEQEQU  X'68'
     9770                            ISBF0,ISBF1,ISBF2,ISBF3,ISBF4,ISBF5,ISBF6,ISBF7  :TSEQEQU  X'70'
     9771                            ISBT0,ISBT1,ISBT2,ISBT3,ISBT4,ISBT5,ISBT6,ISBT7  :TSEQEQU  X'78'
     9772                            SBAF0,SBAF1,SBAF2,SBAF3,SBAF4,SBAF5,SBAF6,SBAF7  :TSEQEQU  X'80'
     9773                            SBAT0,SBAT1,SBAT2,SBAT3,SBAT4,SBAT5,SBAT6,SBAT7  :TSEQEQU  X'88'
     9774                            SBBF0,SBBF1,SBBF2,SBBF3,SBBF4,SBBF5,SBBF6,SBBF7  :TSEQEQU  X'90'
     9775                            SBBT0,SBBT1,SBBT2,SBBT3,SBBT4,SBBT5,SBBT6,SBBT7  :TSEQEQU  X'98'
     9776                            BYTN0,BYT00,BYT01,BYT02,BYT03,BYT04,BYT05,BYT06  :TSEQEQU  X'E0'
     9777                            COMNG,COM00,COM01,COM02,COM03,COM04,COM05,COM06  :TSEQEQU  X'F0'
     9778                            *
     9779   02 01D73    02200000 A   :ERRORT  LCI      0
     9780   02 01D74    2B001E50              STM,0    :ERRTMP1          SAVE ALL REGISTERS
     9781   02 01D75    B250000F A            LW,5     *15               FETCH BYTE ADDR
     9782   02 01D76    22000000 A            LI,0     0
     9783   02 01D77    35001E61              STW,0    :ERRTFLG          RESET ERROR FLAG
     9784   02 01D78    35001E9E              STW,0    :ERRTFG1           RESET PRINT HEADER FLAG
     9785   02 01D79    726A0000 A   :ERRT0   LB,6     0,5               FETCH BYTE
     9786   02 01D7A    68301E16              BCR,3    :ERRT13           BRANCH: BYTE = 0
     9787   02 01D7B    22700000 A            LI,7     0
     9788   02 01D7C    2560037C A            SCD,6    -4                BITS 0 - 3 RIGHT JUSTIFIED
     9789   02 01D7D    35601E60              STW,6    :ERRTMP3          SAVE INDEX
     9790   02 01D7E    2160000A A            CI,6     10
     9791   02 01D7F    69101D85              BCS,1    :ERRT1            BRANCH: RANGE OF INDEX 1 - 9
     9792   02 01D80    2160000D A            CI,6     13
     9793   02 01D81    69201E02              BCS,2    :ERRT11           BRANCH: RANGE OF INDEX 14 - 15
     9794   02 01D82    EAF0022B A            WAITPROC WAITMSG1          /// HALT ///                    *A01
            02 01D83    00002228
     9795   02 01D84    68001D82              B        %-2               PROGRAM ERRORS                  *A01
     9796                            *
     9797   02 01D85    328C1FC8     :ERRT1   LW,8     :SAVETAB,6        FETCH STATUS
     9798   02 01D86    69101DAC              BCS,1    :ERRT6            BRANCH: STATUS IN TABLE
     9799   02 01D87    21600005 A            CI,6     5
     9800   02 01D88    69101D8C              BCS,1    :ERRT2            BRANCH: RANGE OF INDEX 1 - 4
     9801   02 01D89    EAF0022B A            WAITPROC WAITMSG1          /// HALT ///                    *A01
            02 01D8A    00002228
     9802   02 01D8B    68001D89              B        %-2               PROGRAM ERROR                   *A01
     9803   02 01D8C    21600003 A   :ERRT2   CI,6     3
     9804   02 01D8D    69301D96              BCS,3    :ERRT3            BRANCH: NOT HIO TEST
     9805   02 01D8E    6AF01AFC              BAL,15   :HIO              ISSUE HIO AND TEST CC1
     9806   02 01D8F    00008000 A            DATA     X'00008000',0
            02 01D90    00000000 A
     9807   02 01D91    68001D93              B        %+2
     9808   02 01D92    68001E00              B        :ERRT10           BRANCH: NO ADDR RECOG OR BUSY SIOP
     9809   02 01D93    15C01E5C              STD,R12  :ERRTMP1+12       SAVE STATUS
     9810   02 01D94    6AF01F9B              BAL,15   :SAVEHIO          STORE HIO STATUS IN TABLE
     9811   02 01D95    68001D85              B        :ERRT1            FETCH STATUS
     9812                            *
     9813   02 01D96    21600004 A   :ERRT3   CI,6     4
     9814   02 01D97    69301DA0              BCS,3    :ERRT4            BRANCH: NOT TDV TEST
     9815   02 01D98    6AF01B01              BAL,15   :TDV              ISSUE TDV AND TEST CC1
     9816   02 01D99    00008000 A            DATA     X'00008000',0
            02 01D9A    00000000 A
     9817   02 01D9B    68001D9D              B        %+2
     9818   02 01D9C    68001E00              B        :ERRT10           BRANCH: NO ADDR RECOG OR BUSY SIOP
     9819   02 01D9D    15C01E5C              STD,R12  :ERRTMP1+12       SAVE STATUS
     9820   02 01D9E    6AF01FA0              BAL,15   :SAVETDV          STORE TDV STATUS
     9821   02 01D9F    68001D85              B        :ERRT1            FETCH STATUS
     9822                            *
     9823   02 01DA0    6AF01DA2     :ERRT4   BAL,15   :ERRT5            ISSUE TIO AND STORE STATUS
     9824   02 01DA1    68001D85              B        :ERRT1
     9825                            *
     9826   02 01DA2    35F01DAB     :ERRT5   STW,15   :ERRT5X           SAVE EXIT ADDR
     9827   02 01DA3    6AF01AF7              BAL,15   :TIO              ISSUE TIO AND TEST CC1
     9828   02 01DA4    00008000 A            DATA     X'00008000',0
            02 01DA5    00000000 A
     9829   02 01DA6    68001DA8              B        %+2
     9830   02 01DA7    68001E00              B        :ERRT10           BRANCH: NO ADDR RECOG OR BUSY SIOP
     9831   02 01DA8    15C01E5C              STD,R12  :ERRTMP1+12       SAVE STATUS
     9832   02 01DA9    6AF01F8D              BAL,15   :SAVETIO          STORE TIO STATUS, OSB, BYT, COM
     9833   02 01DAA    E8001DAB              B        *:ERRT5X          EXIT                    IN TABLE
     9834   02 01DAB    00000000 A   :ERRT5X  DATA     0                 EXIT ADDR
     9835                            *
     9836   02 01DAC    22600000 A   :ERRT6   LI,6     0
     9837   02 01DAD    25600301 A            SCD,6    1                 T/F BIT
     9838   02 01DAE    35601E9F              STW,6    :ERRTMP2          SAVE TRUE/FALSE TEST FLAG
     9839   02 01DAF    25700203 A            SCS,7    3                 BIT POSITION
     9840   02 01DB0    35701E9D              STW,7    :ERRBITS          SAVE
     9841   02 01DB1    3A700007 A            LCW,7    7                 FORM -(BIT POSITION)
     9842   02 01DB2    25600207 A            SCS,6    7                 ADJUST T/F BIT
     9843   02 01DB3    49602278              OR,6     =X'8000'          ADD IN MASK BIT
     9844   02 01DB4    4B70227A              AND,7    =X'FF'            MASK
     9845   02 01DB5    A5600007 A            SLS,6    *7                ADJUST MASK, BIT
     9846   02 01DB6    49800006 A            OR,8     6                 ADD TO TABLE VALUE
     9847   02 01DB7    72940006 A            LB,9     6,2               MASK
     9848   02 01DB8    71920008 A            CB,9     8,1               COMPARE MASK TO STATUS
     9849   02 01DB9    69401DBD              BCS,4    :ERRT7            BRANCH: MATCH BETWEEN STATUS & MASK
     9850   02 01DBA    33001E9F              MTW,0    :ERRTMP2          TEST TRUE/FALSE FLAG
     9851   02 01DBB    68301DC0              BCR,3    :ERRT8            BRANCH: FALSE TEST SUCCESSFUL
     9852   02 01DBC    68001DC4              B        :ERRT9            BRANCH: TRUE TEST UNSUCCESSFUL
     9853                            *
     9854   02 01DBD    33001E9F     :ERRT7   MTW,0    :ERRTMP2          TEST TRUE/FALSE FLAG
     9855   02 01DBE    68301DC4              BCR,3    :ERRT9            BRANCH: FALSE TEST UNSUCCESSFUL
     9856   02 01DBF    68001DC0              B        :ERRT8            BRANCH: TRUE TEST SUCESSFUL
     9857                            *
     9858   02 01DC0    32601E60     :ERRT8   LW,6     :ERRTMP3          FETCH INDEX
     9859   02 01DC1    358C1FC8              STW,8    :SAVETAB,6        SAVE STATUS IN TABLE
     9860   02 01DC2    33100005 A   :ERRT8A  MTW,1    5                 INCR BYTE ADDRESS
     9861   02 01DC3    68001D79              B        :ERRT0            TEST NEXT BYTE
     9862                            *
     9863   02 01DC4    32601E60     :ERRT9   LW,6     :ERRTMP3          FETCH INDEX
     9864   02 01DC5    358C1FC8              STW,8    :SAVETAB,6        SAVE STATUS IN TABLE
     9865   02 01DC6    32601E60     :ERRT9A  LW,6     :ERRTMP3          FETCH INDEX
     9866   02 01DC7    21600004 A            CI,6     4                 IS IT FOR TDV
     9867   02 01DC8    69301DEE              BNE      :ERRT9D1          B: NO
     9868   02 01DC9    32E015B2              LW,14    TST1FLGM          LINE PRINTER MODEL FLAG
     9869   02 01DCA    21E00006 A            CI,14    6                 IS IT FOR TEST MODE LINE PRINTER
     9870   02 01DCB    69401DD3              BCS,4    :ERRT9B           B: LINE PRINTER WITH TEST MODE
     9871   02 01DCC    311015B2              CW,1     TST1FLGM          IS IT FOR MODEL 7450
     9872   02 01DCD    68301DD0              BE       %+3               B: YES
     9873   02 01DCE    22E01E76              LI,14    ERRTTBB           FETCH TDV DOUBLEWORD ADR (7440/7445)
     9874   02 01DCF    68001DD1              B        %+2
     9875   02 01DD0    22E01E72              LI,14    ERRTTBA           FETCH TDV DOUBLEWORD ADR (7450)
     9876   02 01DD1    35E01E8E              STW,14   :ERRTTB+4         SAVE
     9877   02 01DD2    68001DE9              B        :ERRT9D
     9878   02 01DD3    7240208D     :ERRT9B  LB,4     TMBYTE            TEST MODE BYTE
     9879   02 01DD4    4B40227B              AND,4    =7                MASK
     9880   02 01DD5    31101E9E              CW,1     :ERRTFG1          HAS HEADER MESSAGE PRINTED
     9881   02 01DD6    68301DDC              BE       :ERRT9C           B: YES
     9882   02 01DD7    32E81F45              LW,14    :ERRTTDV,4        FETCH TDV SET HEADER ADDR
     9883   02 01DD8    35E01DDA              STW,14   %+2               SAVE
     9884   02 01DD9    EAF0021C A            BAL,15   *:PRINT
     9885   02 01DDA    00000000 A            DATA     0                 'TDV SET X - XXXXXXXXXXXXXXXXX'
     9886   02 01DDB    35101E9E              STW,1    :ERRTFG1          SET PRINTED HEADER MSG FLAG
     9887   02 01DDC    312015B2     :ERRT9C  CW,2     TST1FLGM          IS IT FOR MODEL 7446
     9888   02 01DDD    68301DE0              BE       %+3               B: YES
     9889   02 01DDE    32E81E9A              LW,14    ERRTTBD,4         FETCH TDV DOUBLEWORD ADR (7441)
     9890   02 01DDF    68001DE1              B        %+2
     9891   02 01DE0    32E81E92              LW,14    ERRTTBC,4         FETCH TDV DOUBLEWORD ADR (7446)
     9892   02 01DE1    35E01E8E              STW,14   :ERRTTB+4         SAVE
     9893   02 01DE2    21400002 A            CI,4     2                 TDV SET:2
     9894   02 01DE3    68201DE9              BLE      :ERRT9D           B: TDV SET <= 3
     9895   02 01DE4    312015B2              CW,2     TST1FLGM          IS IT FOR MODEL 7446
     9896   02 01DE5    69301DC2              BNE      :ERRT8A           B: NOT MODEL 7446
     9897   02 01DE6    21400006 A            CI,4     6                 TDV SET:7
     9898   02 01DE7    68301DE9              BE       :ERRT9D           B: TDV SET =  7
     9899   02 01DE8    68001DC2              B        :ERRT8A
     9900   02 01DE9    21400002 A   :ERRT9D  CI,4     2               IS IT TDV SET 3
     9901   02 01DEA    69301DEE              BNE      %+4                B: NO
     9902   02 01DEB    32401E9D              LW,4     :ERRBITS           FETCH BIT SELECTED
     9903   02 01DEC    21400003 A            CI,4     3                 IS IT GREATER THAN BIT 4
     9904   02 01DED    69201DC2              BG       :ERRT8A            B: GREATER THAN BIT 4
     9905   02 01DEE    327C1F20     :ERRT9D1 LW,7     :ERRTYPE,6        FETCH WORD CORRESP. TO INDEX
     9906   02 01DEF    35701EA1              STW,7    :ERRTMG1+1        STORE IN OUTPUT FORMAT
     9907   02 01DF0    327C1E8A              LW,7     :ERRTTB,6         FETCH INDEX FROM INDEX TABLE
     9908   02 01DF1    32601E9D              LW,6     :ERRBITS          FETCH BIT SELECTED
     9909   02 01DF2    D2EC0007 A            LH,14    *7,6              FETCH DOUBLEWORD
     9910   02 01DF3    9280000E A            LD,8     *14                   ERROR MESSAGE
     9911   02 01DF4    15801EA4              STD,8    :ERRTMG1+4        STORE DOUBLEWORD TO OUTPUT FORMAT
     9912   02 01DF5    206000F0 A            AI,6     X'F0'             CHANGE HEX TO EBCDIC
     9913   02 01DF6    75621EA3              STB,6    :ERRTMG1+3,1      STORE BIT NUMBER IN OUTPUT FORMAT
     9914   02 01DF7    32601E9F              LW,6     :ERRTMP2          FETCH TRUE OR FALSE BIT
     9915   02 01DF8    206000F0 A            AI,6     X'F0'             CHANGE TO EBCDIC
     9916   02 01DF9    75641EA7              STB,6    :ERRTMG1+7,2      STORE T/F BIT IN OUTPUT FORMAT
     9917   02 01DFA    32601E9F              LW,6     :ERRTMP2          T/F BIT
     9918   02 01DFB    48600001 A            EOR,6    1                 COMPLEMENT T/F BIT
     9919   02 01DFC    206000F0 A            AI,6     X'F0'             CHANGE TO EBCDIC
     9920   02 01DFD    75601EA9              STB,6    :ERRTMG1+9,0      STORE COMPLEMENTED T/F BIT
     9921   02 01DFE    EAF0021C A            BAL,15   *:PRINT
     9922   02 01DFF    00001EA0              DATA     :ERRTMG1
     9923                            *
     9924   02 01E00    33101E61     :ERRT10  MTW,1    :ERRTFLG          INCR. ERROR TALLY
     9925   02 01E01    68001DC2              B        :ERRT8A
     9926                            *
     9927   02 01E02    330C1FC8     :ERRT11  MTW,0    :SAVETAB,6        TEST FOR STATUS PRESENT
     9928   02 01E03    69101E05              BCS,1    %+2               PRESENT
     9929   02 01E04    6AF01DA2              BAL,15   :ERRT5            ISSUE/SAVE TIO STATUS
     9930   02 01E05    2160000F A            CI,6     15                CMDW TEST
     9931   02 01E06    68301E0E              BE       :ERRT12           YES
     9932   02 01E07    52C21FD6              LH,12    :SAVETAB+14,1     BYTE COUNT
     9933   02 01E08    68301DC2              BEZ      :ERRT8A           ZERO - GO TO UPDATE BYTE ADDR
     9934   02 01E09    EAF00218 A            BAL,15   *:HEXC            CONVERT TO HEXADECIMAL
     9935   02 01E0A    35F01F3F              STW,15   :ERRTM3+5         STORE IN MESSAGE
     9936   02 01E0B    EAF0021C A            BAL,15   *:PRINT
     9937   02 01E0C    00001F3A              DATA     :ERRTM3           'BYTE COUNT NOT 0'
     9938   02 01E0D    68001E00              B        :ERRT10           GO TO INCR ERROR COUNT
     9939   02 01E0E    25600304 A   :ERRT12  SCD,6    4
     9940   02 01E0F    4B60227B              AND,6    =7                CMD DIFF
     9941   02 01E10    30601FDC              AW,6     :SAVCOM1          ADD INITIAL CMD ADDR
     9942   02 01E11    51621FD7              CH,6     :SAVETAB+15,R1    TEST FOR PRESET CMD ADDR
     9943   02 01E12    68301DC2              BE       :ERRT8A           EQUAL - GO TO UPDATE BYTE ADR
     9944   02 01E13    EAF0021C A            BAL,15   *:PRINT
     9945   02 01E14    00001F40              DATA     :ERRTM4           'CMD ADDR INCORRECT'
     9946   02 01E15    68001E00              B        :ERRT10           GO TO INCR ERROR COUNT
     9947                            *
     9948   02 01E16    224FFFF7 A   :ERRT13  LI,4     -9                SET INDEX
     9949   02 01E17    32881FD2              LW,8     :SAVETAB+10,4     FETCH STATUS
     9950   02 01E18    68101E28              BCR,1    :ERRT14           BRANCH: NO STATUS
     9951   02 01E19    72940008 A            LB,9     8,2               FETCH CURRENT MASK
     9952   02 01E1A    69301E1F              BCS,3    :ERRT13A           B: STATUS PREVIOUSLY TESTED
     9953   02 01E1B    22A00000 A            LI,10    0
     9954   02 01E1C    75A00008 A            STB,10   8                 RESET STATUS FLAG
     9955   02 01E1D    35881FD2              STW,8    :SAVETAB+10,4     RESTORE WORD IN TABLE
     9956   02 01E1E    68001E28              B        :ERRT14
     9957   02 01E1F    22A00000 A   :ERRT13A LI,10    0
     9958   02 01E20    75A00008 A            STB,10   8                 RESET STATUS FLAG
     9959   02 01E21    35881FD2              STW,8    :SAVETAB+10,4     RESTORE WORD IN TABLE
     9960   02 01E22    72A20008 A            LB,10    8,1               STATUS
     9961   02 01E23    72B40008 A            LB,11    8,2               MASK
     9962   02 01E24    4BA0000B A            AND,10   11                MASK STATUS
     9963   02 01E25    72B60008 A            LB,11    8,3               CURRENT STATUS
     9964   02 01E26    48A0000B A            EOR,10   11                COMPARE
     9965   02 01E27    69301E2E              BCS,3    :ERRT15           BRANCH: STATUS IN ERROR
     9966   02 01E28    65401E17     :ERRT14  BIR,4    :ERRT13+1         BRANCH: TEST NEXT STATUS
     9967   02 01E29    02200000 A            LCI      0
     9968   02 01E2A    2A001E50              LM,0     :ERRTMP1          RESTORE REGISTERS
     9969   02 01E2B    33001E61              MTW,0    :ERRTFLG          TEST ERROR FLAG
     9970   02 01E2C    E832000F A            BCR,3    *15,1             NORMAL EXIT
     9971   02 01E2D    E804000F A            B        *15,2             ERROR EXIT
     9972                            *
     9973   02 01E2E    32C81F2A     :ERRT15  LW,12    :ERRTYPE+10,4     FETCH STATUS TYPE
     9974   02 01E2F    35C01F2B              STW,12   :ERRTM1+1         STORE SATUS ID
     9975   02 01E30    32C01C3E              LW,12    :DEVADDR          DEV ADDR
     9976   02 01E31    EAF00218 A            BAL,15   *:HEXC            CONVERT TO EBCDIC
     9977   02 01E32    35F01F31              STW,15   :ERRTM1+7         ENTER INTO MSG
     9978   02 01E33    EAF0021C A            BAL,15   *:PRINT           PRINT LINE 1
     9979   02 01E34    00001F2A              DATA     :ERRTM1           MSG = '   TIO 01234567'
     9980   02 01E35    72C20008 A            LB,12    8,1               FETCH STATUS BYTE
     9981   02 01E36    EAF00216 A            BAL,15   *:BINC            CONVERT FOUR BYTES
     9982   02 01E37    35F01F35              STW,15   :ERRTM2+3         STORE IN MSG AREA
     9983   02 01E38    EAF00216 A            BAL,15   *:BINC            CONVERT FOUR BYTES
     9984   02 01E39    35F01F34              STW,15   :ERRTM2+2         STORE IN MSG AREA
     9985   02 01E3A    EAF0021C A            BAL,15   *:PRINT           PRINT LINE 2
     9986   02 01E3B    00001F32              DATA     :ERRTM2           MSG = 'STATUS BBBBBBBB'
     9987   02 01E3C    72C60008 A            LB,12    8,3               FETCH CURRENT STATUS
     9988   02 01E3D    EAF00216 A            BAL,15   *:BINC            CONVERT 4 BYTES
     9989   02 01E3E    35F01F39              STW,15   :ERRTM11+3        STORE IN MSG
     9990   02 01E3F    EAF00216 A            BAL,15   *:BINC            CONVERT 4 BYTES
     9991   02 01E40    35F01F38              STW,15   :ERRTM11+2        STORE IN MSG
     9992   02 01E41    72C40008 A            LB,12    8,2               MASK STATUS
     9993   02 01E42    75C0000C A            STB,12   12                MOVE MASK TO HI ORDER BYTE
     9994   02 01E43    220000E7 A            LI,0     X'E7'             'X'
     9995   02 01E44    22700000 A            LI,7     0                 INDEX
     9996   02 01E45    22F00008 A            LI,15    8                 BIT COUNT
     9997   02 01E46    32C0000C A            LW,12    12                TEST FOR MASK BIT = 1
     9998   02 01E47    69101E49              BLZ      %+2               MASK BIT = 1
     9999   02 01E48    750E1F38              STB,0    :ERRTM11+2,7      STORE 'X' INTO MSG
    10000   02 01E49    33100007 A            MTW,1    7                 INCR INDEX
    10001   02 01E4A    25C00001 A            SLS,12   1                 ADJUST MASK
    10002   02 01E4B    64F01E46              BDR,15   %-5               LOOP TIL BIT COUNT = 0
    10003   02 01E4C    EAF0021C A            BAL,15   *:PRINT           PRINT LINE 3
    10004   02 01E4D    00001F36              DATA     :ERRTM11          MSG =  'MASK  MMMMMMMM'
    10005   02 01E4E    33101E61              MTW,1    :ERRTFLG          INCR ERROR TALLY
    10006   02 01E4F    68001E28              B        :ERRT14
    10007                            *
    10008                                     BOUND 8
    10009   02 01E50                 :ERRTMP1 RES      16                REGISTER SAVE AREA
    10010   02 01E60    00000000 A   :ERRTMP3 DATA     0                 INDEX
    10011   02 01E61    00000000 A   :ERRTFLG DATA     0
    10012                            :ERRTTBA DATA,2   INTPEND,NOTOP,UNAVAIL,AUTO,;
    10013   02 01E62    1ECE     N                     UE,NOTOP,UNAVAIL,NOTUSED  TIO,SIO HIO STATUS
            02 01E62 2  1EE0     N
            02 01E63    1F1C     N
            02 01E63 2  1EAC     N
            02 01E64    1F18     N
            02 01E64 2  1EE0     N
            02 01E65    1F1C     N
            02 01E65 2  1EE2     N
    10014                            :ERRTTBB DATA,2   INCLEN,TRANSM,TRANSMEM,MEMADR,;       BIT 0-7
    10015   02 01E66    1ECC     N                     IOPMEM,IOPCONT,IOPHALT,SIOPBUSY        OSB STATUS
            02 01E66 2  1F14     N
            02 01E67    1F16     N
            02 01E67 2  1EDC     N
            02 01E68    1ED8     N
            02 01E68 2  1ED4     N
            02 01E69    1ED6     N
            02 01E69 2  1F02     N
    10016                            :ERRTTBD DATA,2   NOTUSED,DTCINT,NOTUSED,NOTUSED,;  BIT 0-7
    10017   02 01E6A    1EE2     N                     NOTUSED,NOTUSED,NOTUSED,NOTUSED       AIO STATUS
            02 01E6A 2  1EB8     N
            02 01E6B    1EE2     N
            02 01E6B 2  1EE2     N
            02 01E6C    1EE2     N
            02 01E6C 2  1EE2     N
            02 01E6D    1EE2     N
            02 01E6D 2  1EE2     N
    10018                            :ERRTTBE DATA,2   INCLEN,TRANSM,ZBCINT,CEINT,;         BIT 0-7
    10019   02 01E6E    1ECC     N                     UEINT,NOTUSED,NOTUSED,NOTUSED         ISB STATUS
            02 01E6E 2  1F14     N
            02 01E6F    1F1E     N
            02 01E6F 2  1EB6     N
            02 01E70    1F1A     N
            02 01E70 2  1EE2     N
            02 01E71    1EE2     N
            02 01E71 2  1EE2     N
    10020                            ERRTTBA  DATA,2   NOTUSED,TLODD,PAPLOW,PAPTOP,;    MODEL 7450
    10021   02 01E72    1EE2     N                     PAPMOV,PAPRUN,PORDER,MPUSED      BIT0-7 TDV STATUS
            02 01E72 2  1F10     N
            02 01E73    1EE8     N
            02 01E73 2  1EEE     N
            02 01E74    1EEA     N
            02 01E74 2  1EEC     N
            02 01E75    1EF2     N
            02 01E75 2  1EDE     N
    10022                            ERRTTBB  DATA,2   NOTUSED,PFAULT,PAPLOW,PAPTOP,;   MODEL 7440/7445
    10023   02 01E76    1EE2     N                     PAPMOV,PAPRUN,NOTUSED,NOTUSED    BIT0-7 TDV STATUS
            02 01E76 2  1EF0     N
            02 01E77    1EE8     N
            02 01E77 2  1EEE     N
            02 01E78    1EEA     N
            02 01E78 2  1EEC     N
            02 01E79    1EE2     N
            02 01E79 2  1EE2     N
    10024                            ERRTTBD1 DATA,2   NOTUSED,BUPAR,PAPLOW,PAPTOP,;     MODEL 7441 TDV
    10025   02 01E7A    1EE2     N                     INTLK,PAPRUN,IOPAR,PSLOW            NORMAL SET
            02 01E7A 2  1EAE     N
            02 01E7B    1EE8     N
            02 01E7B 2  1EEE     N
            02 01E7C    1ED0     N
            02 01E7C 2  1EEC     N
            02 01E7D    1ED2     N
            02 01E7D 2  1EFC     N
    10026                            ERRTTBC1 DATA,2   NOTUSED,RECOVRY2,RECOVRY1,PAPTOP,;     MODEL 7446 TDV
    10027   02 01E7E    1EE2     N                     BUPAR,CDPAR,IOPAR,PRINTERR          NOMAL SET
            02 01E7E 2  1EF8     N
            02 01E7F    1EF6     N
            02 01E7F 2  1EEE     N
            02 01E80    1EAE     N
            02 01E80 2  1EB4     N
            02 01E81    1ED2     N
            02 01E81 2  1EF4     N
    10028                            ERRTTBC2 DATA,2   STATEA,STATEB,STATEC,STATED,;
    10029   02 01E82    1F06     N                     STATEE,SCOMP,SEMON,CBREC             STATES
            02 01E82 2  1F08     N
            02 01E83    1F0A     N
            02 01E83 2  1F0C     N
            02 01E84    1F0E     N
            02 01E84 2  1EFE     N
            02 01E85    1F00     N
            02 01E85 2  1EB2     N
    10030                            ERRTTBC3 DATA,2   FMSE,FMSP,FMIUP,LMCLK,FM4,;
    10031   02 01E86    1EBC     N                     FM5,FM6,FM7                          FORMAT REGISTER
            02 01E86 2  1EBE     N
            02 01E87    1EC0     N
            02 01E87 2  1EDA     N
            02 01E88    1EC2     N
            02 01E88 2  1EC4     N
            02 01E89    1EC6     N
            02 01E89 2  1EC8     N
    10032                                     BOUND    8
    10033   02 01E8A    00000000 A   :ERRTTB  DATA     0,:ERRTTBA,:ERRTTBB,:ERRTTBA,0,:ERRTTBA
            02 01E8B    00001E62
            02 01E8C    00001E66
            02 01E8D    00001E62
            02 01E8E    00000000 A
            02 01E8F    00001E62
    10034   02 01E90    00001E6A              DATA     :ERRTTBD,:ERRTTBE
            02 01E91    00001E6E
    10035   02 01E92    00001E7E     ERRTTBC  DATA     ERRTTBC1,ERRTTBC2,ERRTTBC3,0,0,0,0,0
            02 01E93    00001E82
            02 01E94    00001E86
            02 01E95    00000000 A
            02 01E96    00000000 A
            02 01E97    00000000 A
            02 01E98    00000000 A
            02 01E99    00000000 A
    10036   02 01E9A    00001E7A     ERRTTBD  DATA     ERRTTBD1,ERRTTBC2,ERRTTBC3
            02 01E9B    00001E82
            02 01E9C    00001E86
    10037   02 01E9D    00000000 A   :ERRBITS DATA     0
    10038   02 01E9E    00000000 A   :ERRTFG1 DATA     0
    10039   02 01E9F    00000000 A   :ERRTMP2 DATA     0
    10040   02 01EA0    24404040 A   :ERRTMG1 TEXTC    '   XXX BIT  X (XXXXXXXX) EXP X OBS X'
            02 01EA1    E7E7E740 A
            02 01EA2    C2C9E340 A
            02 01EA3    40E7404D A
            02 01EA4    E7E7E7E7 A
            02 01EA5    E7E7E7E7 A
            02 01EA6    5D40C5E7 A
            02 01EA7    D740E740 A
            02 01EA8    D6C2E240 A
            02 01EA9    E7404040 A
    10041                                     BOUND    8
    10042   02 01EAA    40C1C6C5 A   AFERR    TEXT     ' AFERR  '
            02 01EAB    D9D94040 A
    10043   02 01EAC    4040C1E4 A   AUTO     TEXT     '  AUTO  '
            02 01EAD    E3D64040 A
    10044   02 01EAE    40C2E4D7 A   BUPAR    TEXT     ' BUPAR  '
            02 01EAF    C1D94040 A
    10045   02 01EB0    40C2E4D7 A   BUPAR1   TEXT     ' BUPAR1 '
            02 01EB1    C1D9F140 A
    10046   02 01EB2    40C3C2D9 A   CBREC    TEXT     ' CBREC  '
            02 01EB3    C5C34040 A
    10047   02 01EB4    40C3C4D7 A   CDPAR    TEXT     ' CDPAR  '
            02 01EB5    C1D94040 A
    10048   02 01EB6    40C3C540 A   CEINT    TEXT     ' CE INT '
            02 01EB7    C9D5E340 A
    10049   02 01EB8    C4E3C340 A   DTCINT   TEXT     'DTC INT '
            02 01EB9    C9D5E340 A
    10050   02 01EBA    C5C3C8D6 A   ECHOERR  TEXT     'ECHOERR '
            02 01EBB    C5D9D940 A
    10051   02 01EBC    40C6D4E2 A   FMSE     TEXT     ' FMSE   '
            02 01EBD    C5404040 A
    10052   02 01EBE    40C6D4E2 A   FMSP     TEXT     ' FMSP   '
            02 01EBF    D7404040 A
    10053   02 01EC0    40C6D4C9 A   FMIUP    TEXT     ' FMIUP  '
            02 01EC1    E4D74040 A
    10054   02 01EC2    40C6D4F4 A   FM4      TEXT     ' FM4    '
            02 01EC3    40404040 A
    10055   02 01EC4    40C6D4F5 A   FM5      TEXT     ' FM5    '
            02 01EC5    40404040 A
    10056   02 01EC6    40C6D4F6 A   FM6      TEXT     ' FM6    '
            02 01EC7    40404040 A
    10057   02 01EC8    40C6D4F7 A   FM7      TEXT     ' FM7    '
            02 01EC9    40404040 A
    10058   02 01ECA    40C8E2C3 A   HSCLOK   TEXT     ' HSCLOK '
            02 01ECB    D3D6D240 A
    10059   02 01ECC    C9D5C340 A   INCLEN   TEXT     'INC LEN '
            02 01ECD    D3C5D540 A
    10060   02 01ECE    C9D5E340 A   INTPEND  TEXT     'INT PEND'
            02 01ECF    D7C5D5C4 A
    10061   02 01ED0    4040C9D5 A   INTLK    TEXT     '  INTLK '
            02 01ED1    E3D3D240 A
    10062   02 01ED2    40C9D6D7 A   IOPAR    TEXT     ' IOPAR  '
            02 01ED3    C1D94040 A
    10063   02 01ED4    C9D6D740 A   IOPCONT  TEXT     'IOP CONT'
            02 01ED5    C3D6D5E3 A
    10064   02 01ED6    C9D6D740 A   IOPHALT  TEXT     'IOP HALT'
            02 01ED7    C8C1D3E3 A
    10065   02 01ED8    C9D6D740 A   IOPMEM   TEXT     'IOP MEM '
            02 01ED9    D4C5D440 A
    10066   02 01EDA    40D3D4C3 A   LMCLK    TEXT     ' LMCLK  '
            02 01EDB    D3D24040 A
    10067   02 01EDC    D4C5D440 A   MEMADR   TEXT     'MEM ADR '
            02 01EDD    C1C4D940 A
    10068   02 01EDE    D4D740E4 A   MPUSED   TEXT     'MP USED '
            02 01EDF    E2C5C440 A
    10069   02 01EE0    40D5D6E3 A   NOTOP    TEXT     ' NOT OP '
            02 01EE1    40D6D740 A
    10070   02 01EE2    D5D6E340 A   NOTUSED  TEXT     'NOT USED'
            02 01EE3    E4E2C5C4 A
    10071   02 01EE4    D6E5C5D9 A   OVERRUN  TEXT     'OVERRUN '
            02 01EE5    D9E4D540 A
    10072   02 01EE6    40D7C1D7 A   PAPERR   TEXT     ' PAPERR '
            02 01EE7    C5D9D940 A
    10073   02 01EE8    D7C1D740 A   PAPLOW   TEXT     'PAP LOW '
            02 01EE9    D3D6E640 A
    10074   02 01EEA    D7C1D740 A   PAPMOV   TEXT     'PAP MOV '
            02 01EEB    D4D6E540 A
    10075   02 01EEC    D7C1D740 A   PAPRUN   TEXT     'PAP RUN '
            02 01EED    D9E4D540 A
    10076   02 01EEE    D7C1D740 A   PAPTOP   TEXT     'PAP TOP '
            02 01EEF    E3D6D740 A
    10077   02 01EF0    D740C6C1 A   PFAULT   TEXT     'P FAULT '
            02 01EF1    E4D3E340 A
    10078   02 01EF2    D740D6D9 A   PORDER   TEXT     'P ORDER '
            02 01EF3    C4C5D940 A
    10079   02 01EF4    D7D9C9D5 A   PRINTERR TEXT     'PRINTERR'
            02 01EF5    E3C5D9D9 A
    10080   02 01EF6    D9C5C3D6 A   RECOVRY1 TEXT     'RECOVRY|'
            02 01EF7    E5D9E84F A
    10081   02 01EF8    D9C5C3D6 A   RECOVRY2 TEXT     'RECOVRY2'
            02 01EF9    E5D9E8F2 A
    10082   02 01EFA    D9C5C3D6 A   RECOVRY3 TEXT     'RECOVRY3'
            02 01EFB    E5D9E8F3 A
    10083   02 01EFC    40D7E2D3 A   PSLOW    TEXT     ' PSLOW  '
            02 01EFD    D6E64040 A
    10084   02 01EFE    40E2C3D6 A   SCOMP    TEXT     ' SCOMP  '
            02 01EFF    D4D74040 A
    10085   02 01F00    40E2C5D4 A   SEMON    TEXT     ' SEMON  '
            02 01F01    D6D54040 A
    10086   02 01F02    E2C9D6D7 A   SIOPBUSY TEXT     'SIOPBUSY'
            02 01F03    C2E4E2E8 A
    10087   02 01F04    40E2D7C5 A   SPERR    TEXT     ' SPERR  '
            02 01F05    D9D94040 A
    10088   02 01F06    E2E3C1E3 A   STATEA   TEXT     'STATE A '
            02 01F07    C540C140 A
    10089   02 01F08    E2E3C1E3 A   STATEB   TEXT     'STATE B '
            02 01F09    C540C240 A
    10090   02 01F0A    E2E3C1E3 A   STATEC   TEXT     'STATE C '
            02 01F0B    C540C340 A
    10091   02 01F0C    E2E3C1E3 A   STATED   TEXT     'STATE D '
            02 01F0D    C540C440 A
    10092   02 01F0E    E2E3C1E3 A   STATEE   TEXT     'STATE E '
            02 01F0F    C540C540 A
    10093   02 01F10    40E3D340 A   TLODD    TEXT     ' TL ODD '
            02 01F11    D6C4C440 A
    10094   02 01F12    E3D9C1D5 A   TRANSERR TEXT     'TRANSERR'
            02 01F13    E2C5D9D9 A
    10095   02 01F14    40E3D9C1 A   TRANSM   TEXT     ' TRANSM '
            02 01F15    D5E2D440 A
    10096   02 01F16    E3D9C1D5 A   TRANSMEM TEXT     'TRANSMEM'
            02 01F17    E2D4C5D4 A
    10097   02 01F18    4040E4C5 A   UE       TEXT     '  UE    '
            02 01F19    40404040 A
    10098   02 01F1A    40E4C540 A   UEINT    TEXT     ' UE INT '
            02 01F1B    C9D5E340 A
    10099   02 01F1C    E4D5C1E5 A   UNAVAIL  TEXT     'UNAVAIL '
            02 01F1D    C1C9D340 A
    10100   02 01F1E    E9C2C340 A   ZBCINT   TEXT     'ZBC INT '
            02 01F1F    C9D5E340 A
    10101   02 01F20    00000000 A   :ERRTYPE DATA  0,'TIO ','OSB ','HIO ','TDV ','SIO ','AIO ','ISB ','SBA '
            02 01F21    E3C9D640 A
            02 01F22    D6E2C240 A
            02 01F23    C8C9D640 A
            02 01F24    E3C4E540 A
            02 01F25    E2C9D640 A
            02 01F26    C1C9D640 A
            02 01F27    C9E2C240 A
            02 01F28    E2C2C140 A
    10102   02 01F29    E2C2F640 A            DATA      'SB6 '
    10103   02 01F2A    1F404040 A   :ERRTM1  TEXTC    '   XXX 01234567   DEV ADDR XXXX'
            02 01F2B    E7E7E740 A
            02 01F2C    F0F1F2F3 A
            02 01F2D    F4F5F6F7 A
            02 01F2E    404040C4 A
            02 01F2F    C5E540C1 A
            02 01F30    C4C4D940 A
            02 01F31    E7E7E7E7 A
    10104   02 01F32    0FE2E3C1 A   :ERRTM2  TEXTC    'STATUS BBBBBBBB'
            02 01F33    E3E4E240 A
            02 01F34    C2C2C2C2 A
            02 01F35    C2C2C2C2 A
    10105   02 01F36    0F4040D4 A   :ERRTM11 TEXTC    '  MASK MMMMMMMM' MSG
            02 01F37    C1E2D240 A
            02 01F38    D4D4D4D4 A
            02 01F39    D4D4D4D4 A
    10106   02 01F3A    17E3C5D9 A   :ERRTM3  TEXTC    'TERM BC EXP 0  OSB XXXX'
            02 01F3B    D440C2C3 A
            02 01F3C    40C5E7D7 A
            02 01F3D    40F04040 A
            02 01F3E    D6E2C240 A
            02 01F3F    E7E7E7E7 A
    10107   02 01F40    12C3D4C4 A   :ERRTM4  TEXTC    'CMD ADDR INCORRECT'
            02 01F41    40C1C4C4 A
            02 01F42    D940C9D5 A
            02 01F43    C3D6D9D9 A
            02 01F44    C5C3E340 A
    10108   02 01F45    00001F4C     :ERRTTDV DATA     :ERRTDV1,:ERRTDV2,:ERRTDV3,:ERRTDV4
            02 01F46    00001F54
            02 01F47    00001F5D
            02 01F48    00001F64
    10109   02 01F49    00001F6D              DATA     :ERRTDV5,:ERRTDV6,:ERRTDV7
            02 01F4A    00001F74
            02 01F4B    00001F7D
    10110   02 01F4C    1DE3C4E5 A   :ERRTDV1 TEXTC    'TDV SET 1 - NORMAL TDV STATUS'
            02 01F4D    40E2C5E3 A
            02 01F4E    40F14060 A
            02 01F4F    40D5D6D9 A
            02 01F50    D4C1D340 A
            02 01F51    E3C4E540 A
            02 01F52    E2E3C1E3 A
            02 01F53    E4E24040 A
    10111   02 01F54    22E3C4E5 A   :ERRTDV2 TEXTC    'TDV SET 2 - PRINTER STATES/CONTROL'
            02 01F55    40E2C5E3 A
            02 01F56    40F24060 A
            02 01F57    40D7D9C9 A
            02 01F58    D5E3C5D9 A
            02 01F59    40E2E3C1 A
            02 01F5A    E3C5E261 A
            02 01F5B    C3D6D5E3 A
            02 01F5C    D9D6D340 A
    10112   02 01F5D    1BE3C4E5 A   :ERRTDV3 TEXTC    'TDV SET 3 - FORMAT REGISTER'
            02 01F5E    40E2C5E3 A
            02 01F5F    40F34060 A
            02 01F60    40C6D6D9 A
            02 01F61    D4C1E340 A
            02 01F62    D9C5C7C9 A
            02 01F63    E2E3C5D9 A
    10113   02 01F64    20E3C4E5 A   :ERRTDV4 TEXTC    'TDV SET 4 - PAPER MOTION CONTROL'
            02 01F65    40E2C5E3 A
            02 01F66    40F44060 A
            02 01F67    40D7C1D7 A
            02 01F68    C5D940D4 A
            02 01F69    D6E3C9D6 A
            02 01F6A    D540C3D6 A
            02 01F6B    D5E3D9D6 A
            02 01F6C    D3404040 A
    10114   02 01F6D    1BE3C4E5 A   :ERRTDV5 TEXTC    'TDV SET 5 - ADDRESS COUNTER'
            02 01F6E    40E2C5E3 A
            02 01F6F    40F54060 A
            02 01F70    40C1C4C4 A
            02 01F71    D9C5E2E2 A
            02 01F72    40C3D6E4 A
            02 01F73    D5E3C5D9 A
    10115   02 01F74    23E3C4E5 A   :ERRTDV6 TEXTC    'TDV SET 6 - VERTICAL FORMAT CONTROL'
            02 01F75    40E2C5E3 A
            02 01F76    40F64060 A
            02 01F77    40E5C5D9 A
            02 01F78    E3C9C3C1 A
            02 01F79    D340C6D6 A
            02 01F7A    D9D4C1E3 A
            02 01F7B    40C3D6D5 A
            02 01F7C    E3D9D6D3 A
    10116   02 01F7D    1CE3C4E5 A   :ERRTDV7 TEXTC    'TDV SET 7 - ERROR SET STATUS'
            02 01F7E    40E2C5E3 A
            02 01F7F    40F74060 A
            02 01F80    40C5D9D9 A
            02 01F81    D6D940E2 A
            02 01F82    C5E340E2 A
            02 01F83    E3C1E3E4 A
            02 01F84    E2404040 A
    10117                            *
    10118                            *                 *** SAVECLR                                ***
    10119                            *                 *** SAVETIO, -HIO,-TDV,-SIO,-AIO,-SSA,-SSB ***
    10120                            *                     ROUTINES
    10121                            *
    10122                            * THE SUBROUTINES CLEAR THE STATUS SAVE TABLE ('SAVETAB') AND STORE
    10123                            * THE SELECTED STATUS IN THE CELL.
    10124                            *
    10125                            * CALLING SEQUENCE: BAL,15  :SAVE---
    10126                            * NORMAL EXIT:      ---     ---
    10127                            *
    10128                            * REGISTERS DISTURBED: NONE (R1 = 1, R2 = 2, R3 = 3)
    10129                            *
    10130                            * VARIABLES REQUIRED: R13 - IOSTATUS AND BYTE COUNT
    10131                            *                     R12 - CURRENT COMMAND ADDR
    10132                            *
    10133                            * OTHER SUBROUTINES: NONE
    10134                            *
    10135                            *
    10136   02 01F85    15401FD8     :SAVECLR STD,4    :SAVETMP          SAVE R4 AND R5
    10137   02 01F86    224FFFE0 A            LI,4     -32               INDEX
    10138   02 01F87    22500000 A            LI,5     0                 0
    10139   02 01F88    55581FD8              STH,5    :SAVETAB+16,4     CLEAR FLAG AND CURRENT STATUS
    10140   02 01F89    65401F8A              BIR,4    %+1               INCR R4
    10141   02 01F8A    65401F88              BIR,4    %-2               LOOP
    10142   02 01F8B    12401FD8              LD,4     :SAVETMP          RESTORE R4 AND R5
    10143   02 01F8C    E800000F A            B        *15               EXIT
    10144                            *
    10145   02 01F8D    15401FD8     :SAVETIO STD,4    :SAVETMP          SAVE R4 AND R5
    10146   02 01F8E    35D01FDA              STW,13   :SAVETMP+2       SAVE STATUS
    10147   02 01F8F    22401FC9              LI,4     WA(:SAVETAB+1)    INDEX - TIO STATUS
    10148   02 01F90    6A501FBF              BAL,5    :SAVEALL          STORE STATUS
    10149   02 01F91    22401FCA              LI,4     WA(:SAVETAB+2)    INDEX - OSB
    10150   02 01F92    6A501FBF              BAL,5    :SAVEALL          STORE STATUS
    10151   02 01F93    32D01FDA              LW,13    :SAVETMP+2        FETCH STATUS
    10152   02 01F94    55D21FD6              STH,13   :SAVETAB+14,1     STORE BYTE COUNT
    10153   02 01F95    225FFFFF A            LI,5     -1
    10154   02 01F96    75501FD6              STB,5    :SAVETAB+14,0     SET FLAG
    10155   02 01F97    55C21FD7              STH,12   :SAVETAB+15,1     STORE CURRENT COMMAND ADDR
    10156   02 01F98    75501FD7              STB,5    :SAVETAB+15,0     SET FLAG
    10157   02 01F99    12401FD8              LD,4     :SAVETMP          RESTORE R4 AND R5
    10158   02 01F9A    E800000F A            B        *15               EXIT
    10159                            *
    10160   02 01F9B    15401FD8     :SAVEHIO STD,4    :SAVETMP          SAVE R4 AND R5
    10161   02 01F9C    22401FCB              LI,4     WA(:SAVETAB+3)    INDEX - HIO STATUS
    10162   02 01F9D    6A501FBF              BAL,5    :SAVEALL          STORE STATUS
    10163   02 01F9E    12401FD8              LD,4     :SAVETMP          RESTORE R4 AND R5
    10164   02 01F9F    E800000F A            B        *15               EXIT
    10165   02 01FA0    15401FD8     :SAVETDV STD,4    :SAVETMP          SAVE R4 AND R5
    10166   02 01FA1    22401FCC              LI,4     WA(:SAVETAB+4)    INDEX - TDV STATUS
    10167   02 01FA2    6A501FBF              BAL,5    :SAVEALL          STORE STATUS
    10168   02 01FA3    12401FD8              LD,4     :SAVETMP          RESTORE R4 AND R5
    10169   02 01FA4    E800000F A            B        *15               EXIT
    10170                            *
    10171   02 01FA5    15401FD8     :SAVESIO STD,4    :SAVETMP          SAVE R4 AND R5
    10172   02 01FA6    22401FCD              LI,4     WA(:SAVETAB+5)    INDEX - SIO
    10173   02 01FA7    6A501FBF              BAL,5    :SAVEALL          STORE STATUS
    10174   02 01FA8    12401FD8              LD,4     :SAVETMP          RESTORE R4 AND R5
    10175   02 01FA9    E800000F A            B        *15               EXIT
    10176                            *
    10177   02 01FAA    15401FD8     :SAVEAIO STD,4    :SAVETMP          SAVE R4 AND R5
    10178   02 01FAB    35D01FDA              STW,13   :SAVETMP+2        SAVE STATUS
    10179   02 01FAC    22401FCE              LI,4      WA(:SAVETAB+6)   INDEX - AIO
    10180   02 01FAD    6A501FBF              BAL,5    :SAVEALL          STORE STATUS
    10181   02 01FAE    22401FCF              LI,4      WA(:SAVETAB+7)   INDEX - ISB
    10182   02 01FAF    6A501FBF              BAL,5    :SAVEALL          STORE STATUS
    10183   02 01FB0    32D01FDA              LW,13    :SAVETMP+2        FETCH STATUS
    10184   02 01FB1    12401FD8              LD,4     :SAVETMP          RESTORE R4 AND R5
    10185   02 01FB2    E800000F A            B        *15               EXIT
    10186                            *
    10187   02 01FB3    15401FD8     :SAVESSA STD,4    :SAVETMP          SAVE R4 AND R5
    10188   02 01FB4    75D0000D A            STB,13    13                MOVE SBA TO MSB OF R13
    10189   02 01FB5    22401FD0              LI,4     WA(:SAVETAB+8)    SAVE STATUS
    10190   02 01FB6    6A501FBF              BAL,5    :SAVEALL          RESTORE R4 AND R5
    10191   02 01FB7    12401FD8              LD,4     :SAVETMP          RESTORE R4 AND R5
    10192   02 01FB8    E800000F A            B        *15               EXIT
    10193                            *
    10194   02 01FB9    15401FD8     :SAVESSB STD,4    :SAVETMP          SAVE R4 AND R5
    10195   02 01FBA    75D0000D A            STB,13   13                 MOVE SBB TO MSB OF R13
    10196   02 01FBB    22401FD1              LI,4     WA(:SAVETAB+9)    SAVE STATUS
    10197   02 01FBC    6A501FBF              BAL,5    :SAVEALL          RESTORE R4 AND R5
    10198   02 01FBD    12401FD8              LD,4     :SAVETMP          RESTORE R4 AND R5
    10199   02 01FBE    E800000F A            B        *15               EXIT
    10200                            *
    10201   02 01FBF    35501FDB     :SAVEALL STW,5    :SAVETMP+3        SAVE EXIT ADDR
    10202   02 01FC0    22500000 A            LI,5     0
    10203   02 01FC1    D5520004 A            STH,5    *4,1              CLEAR CURRENT STATUS,MASK
    10204   02 01FC2    25D00208 A            SCS,13   +8
    10205   02 01FC3    F5D20004 A            STB,13   *4,1              STORE STATUS
    10206   02 01FC4    225FFFFF A            LI,5     -1
    10207   02 01FC5    F5500004 A            STB,5    *4,0              STORE FLAG
    10208   02 01FC6    E8001FDB              B        *:SAVETMP+3        EXIT
    10209                            *
    10210                                     BOUND    8
    10211         02 01FC8           :SAVETAB EQU      %
    10212   02 01FC8    00000000 A            DATA     0                 UNDEFINED                    0
    10213   02 01FC9    00000000 A            DATA     0                 TIO STATUS                  1
    10214   02 01FCA    00000000 A            DATA     0                 OSB STATUS                  2
    10215   02 01FCB    00000000 A            DATA     0                 HIO STATUS                  3
    10216   02 01FCC    00000000 A            DATA     0                 TDV STATUS                  4
    10217   02 01FCD    00000000 A            DATA     0                 SIO STATUS                  5
    10218   02 01FCE    00000000 A            DATA     0                 AIO STATUS                  6
    10219   02 01FCF    00000000 A            DATA     0                 ISB STATUS                  7
    10220   02 01FD0    00000000 A            DATA     0                 SBA STATUS                  8
    10221   02 01FD1    00000000 A            DATA     0                 SBB STATUS                  9
    10222   02 01FD2    00000000 A            DATA     0,0,0,0           NOT ASSIGNED                 10 - 13
            02 01FD3    00000000 A
            02 01FD4    00000000 A
            02 01FD5    00000000 A
    10223   02 01FD6    00000000 A            DATA     0,0               BYTE COUNT, COMMAND ADR      14 - 15
            02 01FD7    00000000 A
    10224   02 01FD8    00000000 A   :SAVETMP DATA     0,0,0,0           4 TEMP LOC
            02 01FD9    00000000 A
            02 01FDA    00000000 A
            02 01FDB    00000000 A
    10225   02 01FDC    00000000 A   :SAVCOM1 DATA     0                 ORIGINAL COMMAND ADDR
    10226                            *
1 C00   19:44 JUN 20,'83    TELEFILE COMPREHENSIVE LINE PRINTER TEST 960-0606-H02                 PAGE   71
A   10228                            *                 *** ARM AND ENABLE IO INTERRUPT ***
    10229                            *
    10230   02 01FDD    35F01FE9     :INTAE   STW,15   :INTSAV1          SAVE EXIT ADR
    10231   02 01FDE    22F00000 A            LI,15    0
    10232   02 01FDF    35F01D72              STW,15   :INTRECF          CLEAR IO INTER REC'D FLAG
    10233   02 01FE0    22F00020 A            LI,15    X'20'             ARM AND ENABLE
    10234   02 01FE1    6DF01200 A            WD,15    X'1200'             IO INTERRUPT
    10235   02 01FE2    E8001FE9              B        *:INTSAV1         EXIT
    10236                            *
    10237                            *
    10238                            *                 *** DISARM IO INTERRUPT ***
    10239                            *
    10240   02 01FE3    35F01FEA     :INTD    STW,15   :INTSAV2          SAVE EXIT ADR
    10241   02 01FE4    22F00020 A            LI,15    X'20'
    10242   02 01FE5    6DF01100 A            WD,15    X'1100'           DISARM IO INTERRUPT
    10243   02 01FE6    22F00000 A            LI,R15   0
    10244   02 01FE7    35F01D72              STW,R15  :INTRECF           RESET INTERRUPT REC'D FLAG
    10245   02 01FE8    E8001FEA              B        *:INTSAV2         EXIT
    10246                            *
    10247   02 01FE9    00000000 A   :INTSAV1 DATA     0                 EXIT ADR
    10248   02 01FEA    00000000 A   :INTSAV2 DATA     0
1 C00   19:44 JUN 20,'83    TELEFILE COMPREHENSIVE LINE PRINTER TEST 960-0606-H02                 PAGE   72
A   10250                            *
    10251                            *        MODIFIED PSEUDORANDOM NUMBER GENERATOR
    10252                            *
    10253                            *                 THE ALGORITHM
    10254                            *
    10255                            *        THE CALCULATION OF THE NEXT NUMBER X(N+1) DEPENDS ON THE
    10256                            *                 PREVIOUS NUMBER X(N) AND THE VALUE OF TWO INTERNAL
    10257                            *                 COUNTERS M1 AND M2.  THE TWO COUNTERS ARE CHANGED
    10258                            *                 BY UNITY EACH TIME A RANDOM NUMBER IS GENERATED, THE
    10259                            *                 ONE COUNTER INCREASING AND THE OTHER DECREASING.
    10260                            *
    10261                            *                 THE PROCEDURE
    10262                            *
    10263                            *        X(N+1) = M1 (+) M2 (+) M(X(N)), WHERE (+)=EXCLUSIVE OR
    10264                            *
    10265                            *        OPTION-1, USES INTERNAL VALUES OF M1, M2 AND X.  RESULTS
    10266                            *                 FOUND IN REGISTER-14.
    10267                            *
    10268                            *        OPTION-1 CALLING SEQUENCE
    10269                            *
    10270                            *        BAL,15   :RANDOMX
    10271                            *
    10272                            *        OPTION-2, USES INTERNAL VALUES OF M1 AND M2.  USER PROVIDES
    10273                            *                 SEED IN REGISTER-14.  RESULT IN REGISTER-14.
    10274                            *
    10275                            *        OPTION-2 CALLING SEQUENCE
    10276                            *
    10277                            *        LW,14    :SEED             SEED IN REGISTER-14.
    10278                            *        BAL,15   :RANDOM
    10279                            *
    10280                            *        OPTION-3, USER PROVIDES M1,M2 AND X.  RESULT IN REGISTER-14.
    10281                            *
    10282                            *        OPTION-3 CALLING SEQUENCE
    10283                            *
    10284                            *        LW,12    :M1               M1 = VALUE OF COUNTER 1
    10285                            *        LW,13    :M2               M2 = VALUE OF COUNTER 2
    10286                            *        LW,14    :SEED             SEED = RANDOM NUMBER SEED
    10287                            *        BAL,15   :RANDOMY
    10288                            *
    10289                            *
    10290   02 01FEB    35C01FF8     :RANDOMY STW,12   :M1               OPTION-3 ENTRY
    10291   02 01FEC    35D01FF9              STW,13   :M2               SAVE PARAMETERS
    10292                            *
    10293   02 01FED    35E01FFA     :RANDOM  STW,14   :SEED             OPTION-2 ENTRY
    10294                            *
    10295   02 01FEE    33101FF8     :RANDOMX MTW,1    :M1               OPTION-1 ENTRY
    10296   02 01FEF    68301FF1              BCR,3    %+2               TEST, M1 + 1 = 0
    10297   02 01FF0    33F01FF9              MTW,-1   :M2               NO, M2 = M2 - 1
    10298   02 01FF1    32E01FFA              LW,14    :SEED
    10299   02 01FF2    25E0020D A            SCS,14   13                GENERATE M(SEED) BY ARITHMETIC MEANS
    10300   02 01FF3    30E01FFB              AW,14    :K                ADD CONSTANT :K
    10301   02 01FF4    48E01FF8              EOR,14   :M1               M(SEED) (+) M1, WHERE (+) = EOR
    10302   02 01FF5    48E01FF9              EOR,14   :M2               M(SEED) (+) M1 (+) M2
    10303   02 01FF6    35E01FFA              STW,14   :SEED             SEED = M(SEED) (+) M1 (+) M2
    10304   02 01FF7    E800000F A            B        *15
    10305                            *
    10306   02 01FF8    12B9B0A1 A   :M1      DATA     314159265         PI - PRE-SET M1 VALUE
    10307   02 01FF9    1033C4D7 A   :M2      DATA     271828183         E - PRE-SET M2 VALUE
    10308   02 01FFA    544B2FBA A   :SEED    DATA     1414213562        SQRT(2) - PRE-SET SEED VALUE
    10309   02 01FFB    22679CB1 A   :K       DATA     577215665         GAMMA - CONSTANT
1 C00   19:44 JUN 20,'83    TELEFILE COMPREHENSIVE LINE PRINTER TEST 960-0606-H02                 PAGE   73
A   10311                            *                                                                      *
    10312                            *             *** EXECUTE  ***                                         *
    10313                            *                                                                      *
    10314                            * THE EXECUTE ROUTINE ISSUE AN SIO AND DELAYS UNTIL THE CE INTERRUPT   *
    10315                            * IS RECEIVED. STATUS IS TESTED AND ERROR EXIT TAKEN IF STATUS ERROR   *
    10316                            * EXISTS.                                                              *
    10317                            *                                                                      *
    10318                            *  REG. REQUIRED: NONE                                                 *
    10319                            *                                                                      *
    10320   02 01FFC    02200040 A   EXECUTEX LCI      4
    10321   02 01FFD    2BC0204B              STM,12   EXECSAV           SAVE REG 12-15
    10322   02 01FFE    32E01D71              LW,14    :DELMTW           MODIFY TEST WORD INSTRUCTION
    10323   02 01FFF    35E00055 A            STW,14   X'55'             SAVE
    10324   02 02000    32E01D70              LW,14    :DELXPSD          SET IO INTERRUPT LINKAGE
    10325   02 02001    35E0005B A            STW,14   X'5B'
    10326   02 02002    6AF01FEE              BAL,15   :RANDOMX          RANDOM NUMBER
    10327   02 02003    32F0000E A            LW,15    14                MOVE RANDOM NUMBER
    10328   02 02004    22E00000 A            LI,14    0
    10329   02 02005    31201AEF              CW,2     :LIMITP1          TEST FOR DELAY LIMITS SPECIFIED
    10330   02 02006    69302012              BNE      EXECUTE+2         LIMIT NOT SPECIED
    10331   02 02007    32C01AF1              LW,12    :LIMITP3          HI LIMIT
    10332   02 02008    38C01AF0              SW,12    :LIMITP2          HI LIMIT - LO LIMIT
    10333   02 02009    6930200B              BNEZ     %+2               B: DELAY GREATER THAN 0
    10334   02 0200A    68002012              B        EXECUTE+2         DELAY = 0
    10335   02 0200B    36E0000C A            DW,14    12
    10336   02 0200C    30E01AF0              AW,14    :LIMITP2          DELAY = LO LIMIT + RANDOM NUMBER
    10337   02 0200D    6AF01D50     EXECX2   BAL,15   :DELAY            DELAY
    10338   02 0200E    6800200F              B        %+1
    10339   02 0200F    68002012              B        EXECUTE+2
    10340   02 02010    02200040 A   EXECUTE  LCI      4
    10341   02 02011    2BC0204B              STM,12   EXECSAV           SAVE REG. 12-15
    10342   02 02012    32C02046              LW,12    EXECXPSD
    10343   02 02013    35C0005C A            STW,12   X'5C'             ENTER IO INTER XPSD INTO LOC.
    10344   02 02014    22C00000 A            LI,12    0
    10345   02 02015    35C02047              STW,12   EXECERR           RESET ERROR FLAG
    10346   02 02016    6AF01C0E              BAL,15   :IOEXECI
    10347   02 02017    6AF01FDD              BAL,15   :INTAE            ARM/ENABLE IO INTERRUPT
    10348   02 02018    32C02048              LW,12    EXECDTM           MAX DELAY TIME
    10349   02 02019    35C02049              STW,12   EXECDT            SAVE
    10350   02 0201A    33001D72              MTW,0    :INTRECF          TEST INTER REC'D FLAG
    10351   02 0201B    69302025              BNEZ     EXEC2             SET - INTER REC'D
    10352   02 0201C    33F02049              MTW,-1   EXECDT            DECR DELAY TIME
    10353   02 0201D    6920201A              BGZ      %-3               DELAY TIME NOT 0
    10354   02 0201E    6AF01FE3              BAL,15   :INTD             DISARM IO INTERRUPT
    10355   02 0201F    EAF0021C A            BAL,15   *:PRINT
    10356   02 02020    0000204F              DATA     EXECMSG           'IO INTER NOT REC'D'
    10357   02 02021    3310204E              MTW,1    EXECSAV+3         INCR EXIT ADDR
    10358   02 02022    02200040 A   EXEC1    LCI      4
    10359   02 02023    2AC0204B              LM,12    EXECSAV           RESTORE REG. 12-15
    10360   02 02024    E800000F A            B        *15               EXIT
    10361   02 02025    6AF01FE3     EXEC2    BAL,15   :INTD             DISARM IO INTER
    10362   02 02026    33002047              MTW,0    EXECERR           TEST ERROR FLAG
    10363   02 02027    68302022              BEZ      EXEC1             NO ERROR- EXIT NORMAL
    10364   02 02028    31102216              CW,1     ITHTEST           TST1?
    10365   02 02029    68302021              BE       EXEC1-1           YES-BIPASS PRINTOUT
    10366   02 0202A    6AF021A3              BAL,15   PIOCD
    10367   02 0202B    32C02216              LW,12    ITHTEST           TEST NUMBER
    10368   02 0202C    EAF00218 A            BAL,15   *:HEXC            CONVERT TO EBCDIC
    10369   02 0202D    75F02057              STB,15   EXECMSG1+1        ENTER INTO MSG
    10370   02 0202E    EAF0021C A            BAL,15   *:PRINT
    10371   02 0202F    00002056              DATA     EXECMSG1          'TSTX - ERROR (SEE ABOVE STATUS)'
    10372   02 02030    68002021              B        EXEC1-1           GO TO EXIT
    10373                            *
    10374   02 02031    6AF01B06     EXECREC  BAL,15   :AIO              ISSUE AIO,TEST STATUS, DEV ADDR
    10375   02 02032    FF7FC002 A            DATA     X'FF7FC002'       MASK
    10376   02 02033    00100000 A            DATA     X'00100000'       EXPECTED STATUS
    10377   02 02034    68002036              B        %+2               NO ERROR
    10378   02 02035    35102047              STW,1    EXECERR           SET ERROR FLAG
    10379   02 02036    6AF01AF7              BAL,15   :TIO              ISSUE TIO, TEST STATUS
    10380   02 02037    FF7FC000 A            DATA     X'FF7FC000'       MASK
    10381   02 02038    10000000 A            DATA     X'10000000'       EXPECTED STATUS
    10382   02 02039    6800203B              B        %+2               NO ERROR
    10383   02 0203A    35102047              STW,1    EXECERR           SET ERROR FLAG
    10384   02 0203B    6AF01B01              BAL,15   :TDV              ISSUE TDV, TEST STATUS
    10385   02 0203C    00000000 A   EXECREC1 DATA     0                 MASK
    10386   02 0203D    00000000 A            DATA     0                 EXPECTED STATUS
    10387   02 0203E    68002040              B        %+2               NO ERROR
    10388   02 0203F    35102047              STW,1    EXECERR           SET ERROR FLAG
    10389   02 02040    35101D72              STW,1    :INTRECF          SET IO INTER REC'D FLAG
    10390   02 02041    0E202042              LPSD,2   EXECPSD           EXIT
    10391                            *
    10392                                     BOUND    8
    10393   02 02042    00000000 A   EXECPSD  DATA     0,0
            02 02043    00000000 A
    10394   02 02044    00002031              DATA     EXECREC,0
            02 02045    00000000 A
    10395   02 02046    0F002042     EXECXPSD XPSD,0   EXECPSD
    10396   02 02047    00000000 A   EXECERR  DATA     0
    10397   02 02048    00080000 A   EXECDTM  DATA     X'80000'                                          *A02
    10398   02 02049    00000000 A   EXECDT   DATA     0
    10399   02 0204A    00000005 A   EXECDELT DATA     5
    10400   02 0204B                 EXECSAV  RES      4
    10401   02 0204F    19C9D640 A   EXECMSG  TEXTC    'IO INTERRUPT NOT RECEIVED'
            02 02050    C9D5E3C5 A
            02 02051    D9D9E4D7 A
            02 02052    E340D5D6 A
            02 02053    E340D9C5 A
            02 02054    C3C5C9E5 A
            02 02055    C5C44040 A
    10402   02 02056    1DE3E2E3 A   EXECMSG1 TEXTC    'TSTX ERROR (SEE ABOVE STATUS)'
            02 02057    E740C5D9 A
            02 02058    D9D6D940 A
            02 02059    4DE2C5C5 A
            02 0205A    40C1C2D6 A
            02 0205B    E5C540E2 A
            02 0205C    E3C1E3E4 A
            02 0205D    E25D4040 A
    10403   02 0205E    1BC9D6C3 A   EXECMSG2 TEXTC    'IOCD   XXXXXXXX    XXXXXXXX'
            02 0205F    C4404040 A
            02 02060    E7E7E7E7 A
            02 02061    E7E7E7E7 A
            02 02062    40404040 A
            02 02063    E7E7E7E7 A
            02 02064    E7E7E7E7 A
    10404                            *                                                                      *
    10405                            *        *** SELTM - SELECT TEST MODE ***                              *
    10406                            *        *** RESTM - RESET TEST MODE ***                               *
    10407                            *                                                                      *
    10408                            * THESE ROUTINES SELECT OR RESET THE TEST MODE OF THE DEVICE           *
    10409                            * CONTROLLER. UNSUCCESSFUL SELECTION RESULTS IN AN ERROR EXIT          *
    10410                            *                                                                      *
    10411   02 02065    3500208C     SELTM    STW,0    SELTMSAV          SAVE IOCD ADDRESS
    10412   02 02066    32C0227C              LW,12    =X'F8000000'      MASK
    10413   02 02067    31C0208D              CW,12    TMBYTE            IS TEST MODE BYTE NORMAL SET
    10414   02 02068    6840206A              BCR,4    %+2               B:NORMAL
    10415   02 02069    351021FA              STW,1    TMFLAG            SET TEST MODE FLAG
    10416   02 0206A    22001048              LI,0     DA(IOCDTM)        LOAD IOCD
    10417   02 0206B    CCC01C3E              SIO,12   *:DEVADDR         SELECT TEST MODE
    10418   02 0206C    22400043 A            LI,4     67
    10419   02 0206D    6440206D              BDR,4    %                 DELAY  100 MICROSECOND
    10420   02 0206E    3200208C              LW,0     SELTMSAV          RESTORE IOCD ADDR
    10421   02 0206F    CEC01C3E              TDV,12   *:DEVADDR         ISSUE TDV
    10422   02 02070    E940000F A            BCS,4    *15               CC1,2=01 (TEST MODE) - EXIT
    10423   02 02071    32C0208D              LW,12    TMBYTE            TEST MODE BYTE
    10424   02 02072    E830000F A            BEZ      *15               TEST MODE BYTE = 0, EXIT
    10425   02 02073    35F02078              STW,15   SELTMX            SAVE RETURN ADDR
    10426   02 02074    EAF0021C A            BAL,15   *:PRINT           PRINT MSG
    10427   02 02075    00002079              DATA     SELTMERR          'TEST MODE SELECTION ERROR'
    10428   02 02076    351021D5              STW,1    PIOCDFLG          SET PRINTED IOCD FLAG
    10429   02 02077    E8022078              B        *SELTMX,1         EXIT+1
    10430   02 02078    00000000 A   SELTMX   DATA     0
    10431   02 02079    1FE3D440 A   SELTMERR TEXTC    'TM SELECT ERR. EXP TDV CC1,2=01'
            02 0207A    E2C5D3C5 A
            02 0207B    C3E340C5 A
            02 0207C    D9D94B40 A
            02 0207D    C5E7D740 A
            02 0207E    E3C4E540 A
            02 0207F    C3C3F16B A
            02 02080    F27EF0F1 A
    10432                            *
    10433   02 02081    CFC01C3E     RESTM    HIO,12   *:DEVADDR         ISSUE HIO
    10434   02 02082    22E00000 A            LI,14    0
    10435   02 02083    75E0208D              STB,14   TMBYTE
    10436   02 02084    22001048              LI,0     DA(IOCDTM)
    10437   02 02085    CCC01C3E              SIO,12   *:DEVADDR         RESET TEST MODE
    10438   02 02086    22400043 A            LI,4     67
    10439   02 02087    64402087              BDR,4    %                 DELAY  100 MICROSECOND
    10440   02 02088    CFC01C3E              HIO,12   *:DEVADDR         ISSUE HIO
    10441   02 02089    22400578 A            LI,4     1400              2 MSEC
    10442   02 0208A    6440208A              BDR,4    %                 DELAY
    10443   02 0208B    E800000F A            B        *15               EXIT
    10444                            *
    10445   02 0208C    00000000 A   SELTMSAV DATA     0
    10446   02 0208D    00000000 A   TMBYTE   DATA     0
    10447   02 0208E    00000000 A   TMBYTER  DATA     0
    10448                                     BOUND    8
    10449   02 02090    07008234     IOCDTM   GEN,8,24 X'07',BA(TMBYTE)  SELECT, RESET TEST MODE
    10450   02 02091    00000001 A            GEN,8,24 X'00',1
    10451   02 02092    07008238     IOCDTMR  GEN,8,24 X'07',BA(TMBYTER) RESET TEST MODE
    10452   02 02093    00000001 A            GEN,8,24 X'00',1
    10453   02 02094    07008234     IOCDTM1  GEN,8,24 X'07',BA(TMBYTE)  TEST MODE
    10454   02 02095    00000001 A            GEN,8,24 X'00',1           (VARIABLE FLAG)
    10455   02 02096    00008234     IOCDTM2  GEN,8,24 X'00',BA(TMBYTE)  TEST MODE
    10456   02 02097    04000001 A            GEN,8,24 X'04',1           (INVALID ORDER)
    10457   02 02098    00008234     IOCDTM3  GEN,8,24 X'00',BA(TMBYTE)  TEST MODE
    10458   02 02099    00000001 A            GEN,8,24 X'00',1           (VARIABLE ORDER)
    10459   02 0209A    00008234     IOCDTM4  GEN,8,24 X'00',BA(TMBYTE)  TEST MODE
    10460   02 0209B    00000001 A            GEN,8,24 X'00',1           (VARIABLE ORDER, FLAG)
    10461   02 0209C    00008234     IOCDTM5  GEN,8,24 0,BA(TMBYTE)      TEST MODE
    10462   02 0209D    20000001 A            GEN,8,24 X'20',1           (COMMAND CHAINING, VARIABLE ORDER)
    10463   02 0209E    07008238              GEN,8,24 X'07',BA(TMBYTER)
    10464   02 0209F    00000001 A            GEN,8,24 X'00',1
1 C00   19:44 JUN 20,'83    TELEFILE COMPREHENSIVE LINE PRINTER TEST 960-0606-H02                 PAGE   74
A   10466                            *                                                                      *
    10467                            *             *** BUFCOMP - BUFFER COMPARE ***                         *
    10468                            *                                                                      *
    10469                            * THIS ROUTINE COMPARES THE EXPECTED AND OBSERVED 132-BYTE PRINT BUFFER*
    10470                            * DATA OR THE EXPECTED AND OBSERVED CODE DISC DATA. ERROR PRINTOUTS    *
    10471                            * OCCUR FOR NON-COMPARISONS.                                           *
    10472                            *                                                                      *
    10473                            *  VARIABLES:    CHKTYPE = 0  COMPARE PRINT BUFFER                     *
    10474                            *                        = 1  COMPARE CODE DISC                        *
    10475                            *                CHKPAR  = 0  IGNORE PARITY                            *
    10476                            *                        = 1  INCLUDE PARITY                           *
    10477                            *                BUFFER2 = EXPECTED BUFFER                             *
    10478                            *                BUFFER3 = OBSERVED BUFFER                             *
    10479                            *                                                                      *
    10480   02 020A0    022000C0 A   BUFCOMP  LCI      12
    10481   02 020A1    2B402122              STM,4    BUFSAV            SAVE REG.4-15
    10482   02 020A2    22400000 A            LI,4     0
    10483   02 020A3    35402121              STW,4    BUFTALLY          RESET TALLY
    10484   02 020A4    35402120              STW,4    BUFHDRF           RESET HDR FLAG
    10485   02 020A5    312015B2              CW,2     TST1FLGM          IS IT FOR MODEL 7446
    10486   02 020A6    693020BA              BNE      BUFC1             B: NO
    10487   02 020A7    3110211F              CW,1     CHKTYPE           IS IT FOR CODE DISC
    10488   02 020A8    693020BA              BNE      BUFC1             B: NO
    10489   02 020A9    226FFFC0 A            LI,6     -64               BUFFER INDEX
    10490   02 020AA    72EC22D6              LB,14    BUFFER3+16,6      FETCH ONE CHAR
    10491   02 020AB    21E00040 A            CI,14    X'40'             IS IT STARTING SYNC
    10492   02 020AC    694020B1              BCS,4    BUFC01            B: STARTING SYNC
    10493   02 020AD    656020AA              BIR,6    %-3               B: LOOP TILL STARTING SYNC FOUNDED
    10494   02 020AE    EAF0021C A            BAL,15   *:PRINT
    10495   02 020AF    0000214E              DATA     BUFMSG5           'NO CODE DISC SYNC CHAR'
    10496   02 020B0    6800210B              B        BUFC7             GO TO ERROR EXIT
    10497   02 020B1    227FFFC0 A   BUFC01   LI,7     -64               BUFFER1 INDEX
    10498   02 020B2    72EC22D6              LB,14    BUFFER3+16,6      FETCH BUFFER3
    10499   02 020B3    75EE2294              STB,14   BUFFER1+16,7      STORE IN BUFFER1
    10500   02 020B4    33100006 A            MTW,1    6                 INCR BUFFER3 INDEX
    10501   02 020B5    657020B2              BIR,7    BUFC01+1          B: LOOP TILL BUFFER ADJUSTED
    10502   02 020B6    226FFFF0 A            LI,6     -16               BUFFER INDEX
    10503   02 020B7    32EC2294              LW,14    BUFFER1+16,6      FETCH BUFFER1
    10504   02 020B8    35EC22D6              STW,14   BUFFER3+16,6      STORE IN BUFFER3
    10505   02 020B9    656020B7              BIR,6    %-2               B: LOOP TILL BUFFER COMPLETED
    10506   02 020BA    72C822A5     BUFC1    LB,12    BUFFER2,4         EXP BYTE
    10507   02 020BB    72D822C6              LB,13    BUFFER3,4         OBS BYTE
    10508   02 020BC    4BC0211D              AND,12   CHARMASK          MASK CHARACTER                  *A04
    10509   02 020BD    3110211F              CW,1     CHKTYPE          IS IT FOR CODE DISC
    10510   02 020BE    683020C1              BE       %+3              B: YES
    10511   02 020BF    32C0000C A            LW,12    12               EXP BYTE
    10512   02 020C0    683020C8              BEZ      BUFC11           B: BYTE = 0
    10513   02 020C1    312015B2              CW,2     TST1FLGM          IS IT MODEL 7446
    10514   02 020C2    693020C8              BNE      BUFC11            B:NO
    10515   02 020C3    3110211F              CW,1     CHKTYPE           IS IT FOR CODE DISC
    10516   02 020C4    693020C7              BNE      BUFC11-1          B: NO
    10517   02 020C5    21D00040 A            CI,13    X'40'             IS IT STARTING SYNC
    10518   02 020C6    684020C8              BCR,4    BUFC11            B: NO
    10519   02 020C7    49C0227D              OR,12    =X'40'            SET BIT 1
    10520   02 020C8    312015B2     BUFC11   CW,2     TST1FLGM          IS IT MODEL 7446                *A04
    10521   02 020C9    683020CE              BE       BUFC12            B: YES                          *A04
    10522   02 020CA    32E0000C A            LW,14    12                FETCH EXPECTED BYTE             *A04
    10523   02 020CB    4BE0226A              AND,14   =X'3F'            MASK                            *A04
    10524   02 020CC    693020CE              BNEZ     %+2               IS IT ZERO                      *A04
    10525   02 020CD    22C00000 A            LI,12    0                 YES, LOAD ZERO IN EXPECTED BYTE *A04
    10526   02 020CE    3110211E     BUFC12   CW,1     CHKPAR            TEST FOR PARITY INCLUDED        *A04
    10527   02 020CF    683020FD              BE       BUFC6             INCLUDED
    10528   02 020D0    4BD0227E              AND,13   =X'7F'            MASK OUT OBS BYTE BIT 0 (PARITY)
    10529   02 020D1    31C0000D A   BUFC2    CW,12    13                COMPARE BYTES
    10530   02 020D2    683020ED              BE       BUFC4             EQUAL
    10531   02 020D3    33002120              MTW,0    BUFHDRF           TEST ERROR PRINTOUT HEADER FLAG
    10532   02 020D4    693020DD              BNEZ     BUFC3             SET-BIPASS HDR PRINT
    10533   02 020D5    3250211F              LW,5     CHKTYPE           COMPARE TYPE = INDEX
    10534   02 020D6    325A212F              LW,5     BUFMSG1,5         MSG ADDR
    10535   02 020D7    355020D9              STW,5    %+2               SAVE
    10536   02 020D8    EAF0021C A            BAL,15   *:PRINT           PRINT ERROR HDR1
    10537   02 020D9    00000000 A            DATA     0
    10538   02 020DA    EAF0021C A            BAL,15   *:PRINT           PRINT HDR2
    10539   02 020DB    0000213B              DATA     BUFMSG2
    10540   02 020DC    35102120              STW,1    BUFHDRF           SET HDR FLAG
    10541   02 020DD    22502145     BUFC3    LI,5     BUFMSG3+3
    10542   02 020DE    6AF02112              BAL,15   BUFENTR           ENTER EXP BYTE INTO MSG
    10543   02 020DF    32C00004 A            LW,12    4                 INDEX=BYTE NUMBER
    10544   02 020E0    EAF00217 A            BAL,15   *:DECC            CONVERT TO EBCDEC
    10545   02 020E1    35F02148              STW,15   BUFMSG3+6         ENTER INTO MSG
    10546   02 020E2    32C0000D A            LW,12    13                OBS BYTE
    10547   02 020E3    2250214C              LI,5     BUFMSG4+3         MSG ADDR
    10548   02 020E4    6AF02112              BAL,15   BUFENTR           ENTER BYTE INTO MSG
    10549   02 020E5    EAF0021C A            BAL,15   *:PRINT
    10550   02 020E6    00002142              DATA     BUFMSG3           EXP DATA MSG
    10551   02 020E7    EAF0021C A            BAL,15   *:PRINT
    10552   02 020E8    00002149              DATA     BUFMSG4           OBS DATA MSG
    10553   02 020E9    66102121              AWM,1    BUFTALLY          INCR BUFFER TALLY
    10554   02 020EA    32502121              LW,5     BUFTALLY
    10555   02 020EB    31501D12              CW,5     :COMPLIM          TEST FOR MAX PRINT (PER 'LIMT'DIR)
    10556   02 020EC    6810210B              BGE      BUFC7             FINISHED-GO TO ERROR EXIT
    10557   02 020ED    20400001 A   BUFC4    AI,4     1                 INDEX+1
    10558   02 020EE    314015C0              CW,4     BYTECNT           INDEX:BYTE CNT
    10559   02 020EF    693020F5              BNE      BUFC5             INDEX <> 128
    10560   02 020F0    3110211F              CW,1     CHKTYPE           TEST COMPARE TYPE
    10561   02 020F1    693020BA              BNE      BUFC1             NOT CODE DISC- LOOP
    10562   02 020F2    33002121     BUFC41   MTW,0    BUFTALLY          TEST FOR ERRORS                 *A04
    10563   02 020F3    6830210C              BEZ      BUFC8             NO ERRORS - GO TO EXIT
    10564   02 020F4    6800210B              B        BUFC7             ERROR(S) - GO TO ERROR EXIT
    10565   02 020F5    3110211F     BUFC5    CW,1     CHKTYPE                                           *A04
    10566   02 020F6    693020FA              BNE      BUFC51                                            *A04
    10567   02 020F7    21400080 A            CI,4     128                                               *A04
    10568   02 020F8    681020F2              BGE      BUFC41                                            *A04
    10569   02 020F9    680020BA              B        BUFC1             LOOP TO TEST ANOTHER BYTE       *A04
    10570   02 020FA    21400084 A   BUFC51   CI,4     132               INDEX: 132                      *A04
    10571   02 020FB    681020F2              BGE      BUFC41            INDEX => 132 - GO EXIT          *A04
    10572   02 020FC    680020BA              B        BUFC1             LOOP TO TEST ANOTHER BYTE
    10573   02 020FD    3110211F     BUFC6    CW,1     CHKTYPE           IS IT CODE DISC
    10574   02 020FE    68302101              BE       %+3               YES,INCLUDE PARITY
    10575   02 020FF    32C0000C A            LW,12    12
    10576   02 02100    6830210F              BEZ      BUFC9             =X'00'
    10577   02 02101    3280211C              LW,8     CHARBIT           FETCH LOOP COUNT                *A04
    10578   02 02102    22500000 A            LI,5     0                 CLEAR TALLY
    10579   02 02103    75C60006 A            STB,12   6,3               MOVE BYTE
    10580   02 02104    48500006 A            EOR,5    6                 COUNT BIT (HALF ADD)
    10581   02 02105    2560007F A            SLS,6    -1                ADJUST BYTE
    10582   02 02106    64802104              BDR,8    %-2               LOOP
    10583   02 02107    31500001 A            CW,5     1                 TEST RESULT
    10584   02 02108    6940210A              BCS,4    %+2               ODD NUMBER OF BITS (LEAVE PARITY RST
    10585   02 02109    49C02279              OR,12    =X'80'            EVEN NUMBER -SET PARITY BIT
    10586   02 0210A    680020D1              B        BUFC2             GO TO COMPARE
    10587   02 0210B    3310212D     BUFC7    MTW,1    BUFSAV+11         EXIT + 1
    10588   02 0210C    022000C0 A   BUFC8    LCI      12
    10589   02 0210D    2A402122              LM,4     BUFSAV            RESTORE REG.4-15
    10590   02 0210E    E800000F A            B        *15               EXIT
    10591   02 0210F    312015B2     BUFC9    CW,2     TST1FLGM          IS IT MODEL 7446
    10592   02 02110    693020D1              BNE      BUFC2             B: NO
    10593   02 02111    68002109              B        BUFC7-2           B: YES, 7446
    10594                            *
    10595   02 02112    35F0212E     BUFENTR  STW,15   BUFSAV1           SAVE RETURN ADDR
    10596   02 02113    EAF00216 A            BAL,15   *:BINC            CONVERT LSH OF BYTE
    10597   02 02114    D5F60005 A            STH,15   *5,3              SAVE IN MSG
    10598   02 02115    52F0000F A            LH,15    15
    10599   02 02116    D5F40005 A            STH,15   *5,2
    10600   02 02117    EAF00216 A            BAL,15   *:BINC            CONVERT MSH OF BYTE
    10601   02 02118    D5F20005 A            STH,15   *5,1              SAVE IN MSG
    10602   02 02119    52F0000F A            LH,15    15
    10603   02 0211A    D5F00005 A            STH,15   *5
    10604   02 0211B    E800212E              B        *BUFSAV1          EXIT
    10605                            *
    10606                            *
    10607   02 0211C    00000006 A   CHARBIT  DATA     6                                                 *A04
    10608   02 0211D    0000003F A   CHARMASK DATA     X'3F'                                             *A04
    10609   02 0211E    00000000 A   CHKPAR   DATA     0
    10610   02 0211F    00000000 A   CHKTYPE  DATA     0
    10611   02 02120    00000000 A   BUFHDRF  DATA     0
    10612   02 02121    00000000 A   BUFTALLY DATA     0
    10613   02 02122                 BUFSAV   RES      12
    10614   02 0212E    00000000 A   BUFSAV1  DATA     0
    10615   02 0212F    00002131     BUFMSG1  DATA     BUFMSG11
    10616   02 02130    00002137              DATA     BUFMSG12
    10617   02 02131    16C3C8C1 A   BUFMSG11 TEXTC    'CHARACTER BUFFER ERROR'
            02 02132    D9C1C3E3 A
            02 02133    C5D940C2 A
            02 02134    E4C6C6C5 A
            02 02135    D940C5D9 A
            02 02136    D9D6D940 A
    10618   02 02137    0FC3D6C4 A   BUFMSG12 TEXTC    'CODE DISC ERROR'
            02 02138    C540C4C9 A
            02 02139    E2C340C5 A
            02 0213A    D9D9D6D9 A
    10619   02 0213B    1B404040 A   BUFMSG2  TEXTC    '           P1234567 BYTE NO'
            02 0213C    40404040 A
            02 0213D    40404040 A
            02 0213E    D7F1F2F3 A
            02 0213F    F4F5F6F7 A
            02 02140    40C2E8E3 A
            02 02141    C540D5D6 A
    10620   02 02142    1BC5E7D7 A   BUFMSG3  TEXTC    'EXP BYTE   XXXXXXXX    XXXX'
            02 02143    40C2E8E3 A
            02 02144    C5404040 A
            02 02145    E7E7E7E7 A
            02 02146    E7E7E7E7 A
            02 02147    40404040 A
            02 02148    E7E7E7E7 A
    10621   02 02149    13D6C2E2 A   BUFMSG4  TEXTC    'OBS BYTE   XXXXXXXX'
            02 0214A    40C2E8E3 A
            02 0214B    C5404040 A
            02 0214C    E7E7E7E7 A
            02 0214D    E7E7E7E7 A
    10622   02 0214E    16D5D640 A   BUFMSG5  TEXTC    'NO CODE DISC SYNC CHAR'
            02 0214F    C3D6C4C5 A
            02 02150    40C4C9E2 A
            02 02151    C340E2E8 A
            02 02152    D5C340C3 A
            02 02153    C8C1D940 A
1 C00   19:44 JUN 20,'83    TELEFILE COMPREHENSIVE LINE PRINTER TEST 960-0606-H02                 PAGE   75
A   10624                            *
    10625                            *        *** PRINT POSITION HEADER MESSAGE ***
    10626                            *
    10627                            * THIS SUBROUTINE ALLOWS THE USER TO OBSERVE CORRECTLY PRINTED
    10628                            * POSITIONS.
    10629                            *
    10630   02 02154    35F02179     PRINTPOS STW,15   PRPOSRTN          SAVE RETURN ADDRSS
    10631   02 02155    22500000 A            LI,5     0                 RESET POSITION COUNTER
    10632   02 02156    35502178              STW,5    PRPOSFLG          RESET PRINT POSITION FLAG
    10633   02 02157    224FFFDF A            LI,4     -33               BUFFER INDEX
    10634   02 02158    355822C6              STW,5    BUFFER2+33,4      CLEAR BUFFER
    10635   02 02159    65402158              BIR,4    %-1               B: LOOP TILL BUFFER CLEAR
    10636   02 0215A    22400000 A            LI,4     0                 RESET CHAR COUNTER
    10637   02 0215B    72E8217A     PRPOS1   LB,14    PRPOSNUM,4        FETCH CHAR NUMBER
    10638   02 0215C    75EA22A5              STB,14   BUFFER2,5         STORE IN BUFFER
    10639   02 0215D    2050000A A            AI,5     10                INCR BUFFER POSITION BY 10
    10640   02 0215E    31102178              CW,1     PRPOSFLG          TEST PRINT POSITION FLAG
    10641   02 0215F    68302162              BE       %+3               B: FLAG SET
    10642   02 02160    33F00005 A            MTW,-1   5                 DECR BUFFER POSITION BY 1
    10643   02 02161    35102178              STW,1    PRPOSFLG          SET FLAG
    10644   02 02162    33100004 A            MTW,1    4                 INCR CHAR COUNTER
    10645   02 02163    21500084 A            CI,5     132               IS PRINT POSITION EQUAL TO 132
    10646   02 02164    6820215B              BLE      PRPOS1            B: PRINT POSITION LESS THAN 132
    10647   02 02165    22000D25              LI,0     DA(IOCD3)         LOAD IOCD
    10648   02 02166    6AF02010              BAL,15   EXECUTE           PRINT A LINE
    10649   02 02167    68002168              B        %+1
    10650   02 02168    225FFF7C A            LI,5     -132              BUFFER INDEX
    10651   02 02169    22400001 A            LI,4     1                 START WITH CHAR '1'
    10652   02 0216A    6800216C              B        %+2
    10653   02 0216B    22400000 A   PRPOS2   LI,4     0                 START WITH CHAR '0'
    10654   02 0216C    72E8217A              LB,14    PRPOSNUM,4        FETCH CHAR NUMBER
    10655   02 0216D    75EA22C6              STB,14   BUFFER2+33,5      STORE IN BUFFER
    10656   02 0216E    33100004 A            MTW,1    4                 INCR CHAR COUNT
    10657   02 0216F    65502171              BIR,5    %+2               B: BUFFER NOT COMPLETELY FILLED
    10658   02 02170    68002174              B        PRPOS3            B: BUFFER COMPLETED
    10659   02 02171    21400009 A            CI,4     9                 IS CHAR NUMBER EQUAL 9
    10660   02 02172    6820216C              BLE      PRPOS2+1          B: CHAR NUMBER <= 9
    10661   02 02173    6800216B              B        PRPOS2            B: CHAR NUMBER > 9
    10662   02 02174    22000D25     PRPOS3   LI,0     DA(IOCD3)         LOAD IOCD
    10663   02 02175    6AF02010              BAL,15   EXECUTE           PRINT A LINE
    10664   02 02176    68002177              B        %+1
    10665   02 02177    E8002179              B        *PRPOSRTN         EXIT
    10666                            *
    10667   02 02178    00000000 A   PRPOSFLG DATA     0
    10668   02 02179    00000000 A   PRPOSRTN DATA     0
    10669   02 0217A    F0F1F2F3 A   PRPOSNUM DATA     X'F0F1F2F3'
    10670   02 0217B    F4F5F6F7 A            DATA     X'F4F5F6F7'
    10671   02 0217C    F8F9F0F1 A            DATA     X'F8F9F0F1'
    10672   02 0217D    F2F3F4F5 A            DATA     X'F2F3F4F5'
    10673   02 0217E    02200040 A   TDVCOMP  LCI      4
    10674   02 0217F    2BC0219F              STM,12   TDVCSAVE          SAVE REGISTERS
    10675   02 02180    CEC01C3E              TDV,12   *:DEVADDR         ISSUE TDV
    10676   02 02181    72E01A88              LB,14    FORMAT            FETCH FORMAT
    10677   02 02182    72C01A88              LB,12    FORMAT
    10678   02 02183    4BC02271              AND,12   =X'0F'            MASK
    10679   02 02184    21E00010 A            CI,14    X'10'             IS D3 TRUE
    10680   02 02185    6840218C              BCR,4    TDVC1             B: NO
    10681   02 02186    21E00020 A            CI,14    X'20'             IS D2 TRUE
    10682   02 02187    6840218A              BCR,4    %+3               NO
    10683   02 02188    49C02279              OR,12    =X'80'            D2.D3
    10684   02 02189    68002192              B        TDVC3
    10685   02 0218A    49C0227F              OR,12    =X'A0'            ND2.D3
    10686   02 0218B    68002192              B        TDVC3
    10687   02 0218C    21E00080 A   TDVC1    CI,14    X'80'             IS D0*ND3 TRUE
    10688   02 0218D    6840218F              BCR,4    TDVC2             B: NO
    10689   02 0218E    49C0227D              OR,12    =X'40'            EXP TDV 1 = 1
    10690   02 0218F    21E00020 A   TDVC2    CI,14    X'20'             IS D2*ND3 TRUE
    10691   02 02190    68402192              BCR,4    TDVC3             B: NO
    10692   02 02191    49C02280              OR,12    =X'20'            EXP TDV 2 = 1
    10693   02 02192    71C0000D A   TDVC3    CB,12    13                EXP TDV:OSB TDV
    10694   02 02193    6830219C              BE       TDVC4             B: EXP TDV = OSB TDV
    10695   02 02194    EAF00218 A            BAL,15   *:HEXC            CONVERT EXP TO EBCDIC
    10696   02 02195    55F215D5              STH,15   TST1MSG3+6,1      STORE IN MESSAGE
    10697   02 02196    72C0000D A            LB,12    13                OSB
    10698   02 02197    EAF00218 A            BAL,15   *:HEXC            CONVERT EXP TO EBCDIC
    10699   02 02198    55F215D7              STH,15   TST1MSG3+8,1      STORE IN MESSAGE
    10700   02 02199    EAF0021C A            BAL,15   *:PRINT           PRINT MESSAGE
    10701   02 0219A    000015CF              DATA     TST1MSG3          'FORMAT REG ERROR EXP XX OSB XX'
    10702   02 0219B    331021A2              MTW,1    TDVCSAVE+3        SET ERROR EXIT
    10703   02 0219C    02200040 A   TDVC4    LCI      4
    10704   02 0219D    2AC0219F              LM,12    TDVCSAVE          RESTORE REGISTERS
    10705   02 0219E    E800000F A            B        *15               EXIT
    10706                            *
    10707   02 0219F                 TDVCSAVE RES      4                 SAVED REGISTER
1 C00   19:44 JUN 20,'83    TELEFILE COMPREHENSIVE LINE PRINTER TEST 960-0606-H02                 PAGE   76
A   10709                            *
    10710                            *
    10711                            *
    10712   02 021A3    02200040 A   PIOCD    LCI      4
    10713   02 021A4    2BC021D1              STM,12   PIOCDSAV          SAVE REGISTERS 12-15
    10714   02 021A5    32E00000 A            LW,14    0                 DA(IOCD)
    10715   02 021A6    25E00001 A            SLS,14   1                 WA(IOCD)
    10716   02 021A7    F2D0000E A            LB,13    *14               ORDER
    10717   02 021A8    683021BC              BEZ      PIOCD2-3           ORDER BYTE = 0
    10718   02 021A9    4BD02271              AND,13   =X'F'             MASK
    10719   02 021AA    21D00003 A            CI,13    3                 IS IT FORMAT ORDER
    10720   02 021AB    683021AE              BE       %+3               B: YES, PRINT FORMAT ORDER
    10721   02 021AC    21D00005 A            CI,13    5                 IS IT PRINT WITH FORMAT ORDER
    10722   02 021AD    693021B6              BNE      PIOCD1-1          B: NO
    10723   02 021AE    B2C0000E A            LW,12    *14               IOCD
    10724   02 021AF    4BC02260              AND,12   =X'FFFF'          FORMAT BYTE ADDR
    10725   02 021B0    25C0007E A            SLS,12   -2                FORMAT WORD ADDR
    10726   02 021B1    F2C0000C A            LB,12    *12               FORMAT
    10727   02 021B2    EAF00218 A            BAL,15   *:HEXC            CONVERT TO HEX
    10728   02 021B3    55F021DF              STH,15   PIOCDMG1+2        STORE IN MESSAGE
    10729   02 021B4    EAF0021C A            BAL,15   *:PRINT
    10730   02 021B5    000021DD              DATA     PIOCDMG1          'FORMAT XX'
    10731   02 021B6    680021BF              B        PIOCD2            PRINT IOCD
    10732   02 021B7    B2C0000E A   PIOCD1   LW,12    *14               LSH IOCD
    10733   02 021B8    31C02281              CW,12    =X'A0000000'      TEST FOR DATA OR CMD CHAINING
    10734   02 021B9    684021BC              BCR,4    %+3               NO
    10735   02 021BA    30E00001 A            AW,14    1                 WA(IOCD)
    10736   02 021BB    680021BF              B        PIOCD2            PRINT IOCD
    10737   02 021BC    02200040 A            LCI      4
    10738   02 021BD    2AC021D1              LM,12    PIOCDSAV          RESTORE REGISTER 12-15
    10739   02 021BE    E800000F A            B        *15               EXIT
    10740   02 021BF    B2C0000E A   PIOCD2   LW,12    *14               MSH IOCD
    10741   02 021C0    B2F0000E A            LW,15    *14
    10742   02 021C1    4BF02260              AND,15   =X'FFFF'          MEMORY BYTE ADDR
    10743   02 021C2    25F0007E A            SLS,15   -2                MEMORY WORD ADDRESS
    10744   02 021C3    55F2000C A            STH,15   12,1               SAVE
    10745   02 021C4    EAF00218 A            BAL,15   *:HEXC            CONVERT TO EBCIDIC
    10746   02 021C5    35F021D9              STW,15   PIOCDMSG+3        SAVE
    10747   02 021C6    EAF00218 A            BAL,15   *:HEXC            CONVERT TO EBCIDIC
    10748   02 021C7    35F021D8              STW,15   PIOCDMSG+2        SAVE
    10749   02 021C8    30E00001 A            AW,14    1
    10750   02 021C9    B2C0000E A          LW,12    *14                 LSH IOCD
    10751   02 021CA    EAF00218 A            BAL,15   *:HEXC            CONVERT TO EBCDIC
    10752   02 021CB    35F021DC              STW,15   PIOCDMSG+6        SAVE
    10753   02 021CC    EAF00218 A            BAL,15   *:HEXC            CONVERT TO EBCDIC
    10754   02 021CD    35F021DB              STW,15   PIOCDMSG+5        SAVE
    10755   02 021CE    EAF0021C A            BAL,15   *:PRINT
    10756   02 021CF    000021D6              DATA     PIOCDMSG          'IOCD XXXXXXXX XXXXXXXX'
    10757   02 021D0    680021B7              B        PIOCD1
    10758   02 021D1                 PIOCDSAV RES      4
    10759   02 021D5    00000000 A   PIOCDFLG DATA     0
    10760   02 021D6    1BC9D6C3 A   PIOCDMSG TEXTC    'IOCD   XXXXXXXX    XXXXXXXX'
            02 021D7    C4404040 A
            02 021D8    E7E7E7E7 A
            02 021D9    E7E7E7E7 A
            02 021DA    40404040 A
            02 021DB    E7E7E7E7 A
            02 021DC    E7E7E7E7 A
    10761   02 021DD    09C6D6D9 A   PIOCDMG1 TEXTC    'FORMAT XX'
            02 021DE    D4C1E340 A
            02 021DF    E7E74040 A
    10762   02 021E0    35F021F4     ERROR    STW,15   :ERRORX           SAVE RETURN ADDRESS
    10763   02 021E1    311021D5              CW,1     PIOCDFLG          HAVE IOCD PRINTED
    10764   02 021E2    683021E5              BE       %+3               B: YES
    10765   02 021E3    351021D5              STW,1    PIOCDFLG          NO, SET FLAG
    10766   02 021E4    6AF021A3              BAL,15   PIOCD             PRINT IOCD
    10767   02 021E5    311021FA              CW,1     TMFLAG            IS TEST MODE FLAG SET
    10768   02 021E6    693021F0              BNE      ERROR1            B:NO
    10769   02 021E7    22C00000 A            LI,12    0
    10770   02 021E8    35C021FA              STW,12   TMFLAG            RESET TEST MODE FLAG
    10771   02 021E9    72C0208D              LB,12    TMBYTE            TEST MODE
    10772   02 021EA    21C00008 A            CI,12    8                 IS IT NORMAL TEST MODE
    10773   02 021EB    691021F0              BL       ERROR1            NORMAL TEST MODE
    10774   02 021EC    EAF00218 A            BAL,15   *:HEXC            CONVERT TO HEX
    10775   02 021ED    55F221F9              STH,15   TMMSG+4,1         STORE IN MSG
    10776   02 021EE    EAF0021C A            BAL,15   *:PRINT
    10777   02 021EF    000021F5              DATA     TMMSG             'TEST MODE BYTE = XX'
    10778   02 021F0    32F021F4     ERROR1   LW,15    :ERRORX           RETURN ADDRESS
    10779   02 021F1    32F021F4              LW,15    :ERRORX           RETURN ADDRESS
    10780   02 021F2    E800021B A            B        *:MERROR
    10781   02 021F3    000021E0     :ERROR   DATA     ERROR
    10782   02 021F4    00000000 A   :ERRORX  DATA     0
    10783   02 021F5    13E3C5E2 A   TMMSG    TEXTC    'TEST MODE BYTE = XX'
            02 021F6    E340D4D6 A
            02 021F7    C4C540C2 A
            02 021F8    E8E3C540 A
            02 021F9    7E40E7E7 A
    10784   02 021FA    00000000 A   TMFLAG   DATA     0
    10785   02 021FB    35F02201     SENSE    STW,15   :SENSEX           SAVE RETURN
    10786   02 021FC    22F00000 A            LI,15    0
    10787   02 021FD    35F021D5              STW,15   PIOCDFLG          RESET PRINT IOCD FLAG
    10788   02 021FE    32F02201              LW,15    :SENSEX           RETURN ADDRESS
    10789   02 021FF    E800021D A            B        *:MSENSE          SENSE SW 1,3
    10790   02 02200    000021FB     :SENSE   DATA     SENSE
    10791   02 02201    00000000 A   :SENSEX  DATA     0
1 C00   19:44 JUN 20,'83    TELEFILE COMPREHENSIVE LINE PRINTER TEST 960-0606-H02                 PAGE   77
A   10793                            *             *** INTERRUPT/TRAP HANDLER ***
    10794                            *
    10795                            * PARAMETERS REQ'D:
    10796                            * ----------------
    10797                            *   ITHTEST - TEST BEING PERFORMED (1=TST1,2=TST2,3=TST3)
    10798                            *   ITHSUBT - SUBTEST BEING PERFORMED (TST1 ONLY)
    10799                            *   ITHRST  - RESTART ADDRESS
    10800                            *
    10801   02 02202    35F02219     ITHDLR   STW,15   ITHSAVE           SAVE RETURN ADDRESS
    10802   02 02203    32C02216              LW,12    ITHTEST           TEST NUMBER
    10803   02 02204    EAF00218 A            BAL,15   *:HEXC            CONVERT TO EBCDIC
    10804   02 02205    75F2221B              STB,15   ITHM2+1,1         ENTER INTO MSG
    10805   02 02206    EAF0021C A            BAL,15   *:PRINT
    10806   02 02207    0000221A              DATA     ITHM2             'TSTX WILL BE RESTARTED'
    10807   02 02208    31102216              CW,1     ITHTEST           TST1?
    10808   02 02209    6930220F              BNE      %+6               NO
    10809   02 0220A    32C02217              LW,12    ITHSUBT           SUBTEST NUMBER
    10810   02 0220B    EAF00217 A            BAL,15   *:DECC            CONVERT TO EBCDIC
    10811   02 0220C    55F22223              STH,15   ITHM3+3,1         ENTER INTO MSG
    10812   02 0220D    EAF0021C A            BAL,15   *:PRINT
    10813   02 0220E    00002220              DATA     ITHM3             'SUBTEST NO. XX'
    10814   02 0220F    32C01C3E              LW,12    :DEVADDR          DEVICE ADDRESS
    10815   02 02210    EAF00218 A            BAL,15   *:HEXC            CONVERT TO EBCDIC
    10816   02 02211    35F02227              STW,15   ITHM4+3           ENTER INTO MSG
    10817   02 02212    EAF0021C A            BAL,15   *:PRINT
    10818   02 02213    00002224              DATA     ITHM4             'DEVICE NO.XXXX'
    10819   02 02214    32F02218              LW,15    ITHRST            (R15)=RESTART ADDRESS
    10820   02 02215    E8002219              B        *ITHSAVE          RETURN TO MONITOR INTER/TRAP HANDLER
    10821                            *
    10822   02 02216    00000000 A   ITHTEST  DATA     0
    10823   02 02217    00000000 A   ITHSUBT  DATA     0
    10824   02 02218    00000000 A   ITHRST   DATA     0
    10825   02 02219    00000000 A   ITHSAVE  DATA     0
    10826   02 0221A    1740E3E2 A   ITHM2    TEXTC    ' TSTX WILL BE RESTARTED'
            02 0221B    E3E740E6 A
            02 0221C    C9D3D340 A
            02 0221D    C2C540D9 A
            02 0221E    C5E2E3C1 A
            02 0221F    D9E3C5C4 A
    10827   02 02220    0F40E2E4 A   ITHM3    TEXTC    ' SUBTEST NO. XX'
            02 02221    C2E3C5E2 A
            02 02222    E340D5D6 A
            02 02223    4B40E7E7 A
    10828   02 02224    0F40C4C5 A   ITHM4    TEXTC    ' DEVICE NO.XXXX'
            02 02225    E5C9C3C5 A
            02 02226    40D5D64B A
            02 02227    E7E7E7E7 A
    10829   02 02228    0DD7D9D6 A   WAITMSG1 TEXTC    'PROGRAM ERROR'                                   *A01
            02 02229    C7D9C1D4 A
            02 0222A    40C5D9D9 A
            02 0222B    D6D94040 A
    10830   02 0222C    52E20335     INVCHAR  LH,14    :CDB,1            FETCH MODEL NUMBER             *A04
    10831   02 0222D    21E01D12 A            CI,14    7442              IS IT MODEL 7442               *A04
    10832   02 0222E    68302231              BE       INVCHAR1          B: YES                         *A04
    10833   02 0222F    32E0223E              LW,14    INVCHARX          RESTORE R14                    *A04
    10834   02 02230    E800000F A            B        *15               EXIT                           *A04
    10835   02 02231    35602245     INVCHAR1 STW,6    SAVREGX           SAVE REG 6                     *A04
    10836   02 02232    32E0223E              LW,14    INVCHARX          FETCH CHARACTER                *A04
    10837   02 02233    22600000 A            LI,6     0                 RESET INDEX                    *A04
    10838   02 02234    4BE0227E              AND,14   =X'7F'            MASK CHARACTER                 *A04
    10839   02 02235    71EC1A39     INVCHAR2 CB,14    INVCTBL,6         IS CHARACTER INVALID           *A04
    10840   02 02236    6830223C              BE       INVCHAR3          B: YES                         *A04
    10841   02 02237    33100006 A            MTW,1    6                 INCR INDEX                     *A04
    10842   02 02238    21600026 A            CI,6     38                HAS SEARCH COMPLETED            *A04
    10843   02 02239    69102235              BL       INVCHAR2          B: SEARCH NOT COMPLETE          *A04
    10844   02 0223A    32602245              LW,6     SAVREGX           RESTORE REG 6                   *A04
    10845   02 0223B    E800000F A            B        *15               EXIT                            *A04
    10846   02 0223C    3310000E A   INVCHAR3 MTW,1    14                NEXT CHARACTER                  *A04
    10847   02 0223D    68002233              B        INVCHAR1+2        TEST NEXT CHARACTER             *A04
    10848   02 0223E    00000000 A   INVCHARX DATA     0                                                 *A04
    10849                            *                                                                   *A04
    10850   02 0223F    35F02244     INVCHARR STW,15   INVCRX            SAVE RETURN ADDRESS             *A04
    10851   02 02240    6AF01FEE              BAL,15   :RANDOMX          FETCH RANDOM CHARACTER          *A04
    10852   02 02241    75E6223E              STB,14   INVCHARX,3        SAVE A CHARACTER                *A04
    10853   02 02242    6AF0222C              BAL,15   INVCHAR           FETCH VALID CHARACTER           *A04
    10854   02 02243    E8002244              B        *INVCRX           EXIT                            *A04
    10855   02 02244    00000000 A   INVCRX   DATA     0                                                 *A04
    10856   02 02245    00000000 A   SAVREGX           DATA     0                                       *A04     *B00
    10857   02 02246    00000000 A   INVCX             DATA     0                                       *A04     *B00
    10858                            *                                                                   *A04
    10859                            USERPROG END
            02 02247    00002E01 01
            02 02248    EF7FC000 A
            02 02249    5C5C5C5C A
            02 0224A    E7E7E7E7 A
            02 0224B    E9E9E9E9 A
            02 0224C    AC7FC000 A
            02 0224D    80000004 A
            02 0224E    00000006 A
            02 0224F    00FFFFFF A
            02 02250    08000000 A
            02 02251    EF000000 A
            02 02252    00000060 A
            02 02253    40000000 A
            02 02254    01000000 A
            02 02255    A5A5A5A5 A
            02 02256    66000000 A
            02 02257    003F0000 A
            02 02258    00800000 A
            02 02259    02000000 A
            02 0225A    00370000 A
            02 0225B    01010101 A
            02 0225C    000001FF A
            02 0225D    40404040 A
            02 0225E    00000084 A
            02 0225F    06000000 A
            02 02260    0000FFFF A
            02 02261    04000000 A
            02 02262    3F000000 A
            02 02263    D9000000 A
            02 02264    99000000 A
            02 02265    C5C5C5C5 A
            02 02266    000000F8 A
            02 02267    03030303 A
            02 02268    FFFFFFFF A
            02 02269    00000005 A
            02 0226A    0000003F A
            02 0226B    C540C540 A
            02 0226C    00010203 A
            02 0226D    04040404 A
            02 0226E    0FFFFFFF A
            02 0226F    00107AC0 A
            02 02270    F1000000 A
            02 02271    0000000F A
            02 02272    000000F0 A
            02 02273    FFFFC000 A
            02 02274    000007FF A
            02 02275    00001FFF A
            02 02276    10000000 A
            02 02277    80000000 A
            02 02278    00008000 A
            02 02279    00000080 A
            02 0227A    000000FF A
            02 0227B    00000007 A
            02 0227C    F8000000 A
            02 0227D    00000040 A
            02 0227E    0000007F A
            02 0227F    000000A0 A
            02 02280    00000020 A
            02 02281    A0000000 A

  CONTROL SECTION SUMMARY: 01 02E7C   PT 0     02 02282   PT 0
  * NO UNDEFINED SYMBOLS
  *    ERROR SEVERITY LEVEL: 0
  * NO ERROR LINES
1 C00   19:44 JUN 20,'83    TELEFILE COMPREHENSIVE LINE PRINTER TEST 960-0606-H02                 PAGE   78
A  AFERR          10042-TEXT
   AIOF0           9768-:TSEQEQU
   AIOF1           9768-:TSEQEQU
   AIOF2           9768-:TSEQEQU
   AIOF3           9768-:TSEQEQU
   AIOF4           9768-:TSEQEQU
   AIOF5           9768-:TSEQEQU
   AIOF6           9768-:TSEQEQU
   AIOF7           9768-:TSEQEQU
   AIOT0           9769-:TSEQEQU
   AIOT1           9769-:TSEQEQU
   AIOT2           9769-:TSEQEQU
   AIOT3           9769-:TSEQEQU
   AIOT4           9769-:TSEQEQU
   AIOT5           9769-:TSEQEQU
   AIOT6           9769-:TSEQEQU
   AIOT7           9769-:TSEQEQU
   ASECTMLT        1990-ASECT
   ASECTPIT        2039-ASECT
   AUTO           10012/DATA   10043-TEXT
   BUFCOMP         4365/BAL     4441/BAL     4531/BAL     4611/BAL     4693/BAL     5001/BAL    10480-LCI
   BUFC01         10492/BCS    10497-LI     10501/BIR
   BUFC1          10486/BNE    10488/BNE    10506-LB     10561/BNE    10569/B      10572/B
   BUFC11         10512/BEZ    10514/BNE    10516/BNE    10518/BCR    10520-CW
   BUFC12         10521/BE     10526-CW
   BUFC2          10529-CW     10586/B      10592/BNE
   BUFC3          10532/BNEZ   10541-LI
   BUFC4          10530/BE     10557-AI
   BUFC41         10562-MTW    10568/BGE    10571/BGE
   BUFC5          10559/BNE    10565-CW
   BUFC51         10566/BNE    10570-CI
   BUFC6          10527/BE     10573-CW
   BUFC7          10496/B      10556/BGE    10564/B      10587-MTW    10593/B
   BUFC8          10563/BEZ    10588-LCI
   BUFC9          10576/BEZ    10591-CW
   BUFENTR        10542/BAL    10548/BAL    10595-STW
   BUFFER1          0.8-EQU     5259/STW     5263/LI      5569/STW     5573/LI      6207/STW     6211/LI
      7770/STB     7778/LB      7795/LI      7821/STW     7863/STW     8136/STB     8178/STW     8183/STW
      8187/LI      8241/STB     8366/STW     8691/STW     8696/STW     8701/LI      8872/GEN     8922/GEN
     10499/STB    10503/LW
   BUFFER2          0.9-EQU     3620/STW     3767/STW     3918/STB     4285/STW     4403/STW     4469/STW
      4494/STW     4574/STW     4578/STB     4655/STW     4762/STB     4819/STW     4974/STB     4979/STB
      4980/STB     5091/STW     5205/STB     5287/STW     5458/STW     5630/STW     5960/STW     6037/STW
      6120/STB     6127/STB     6131/STW     6143/STB     6304/STW     6348/STW     6429/STW     6507/STB
      6536/STW     6628/STW     6726/STW     6753/STW     6785/STB     7081/STW     7169/STW     7292/STW
      7345/STW     7502/STB     7551/STW     7555/STB     7775/STW     7781/STB     7816/LI      7822/STW
      7832/STH     7834/STH     7864/STW     7868/LI      7879/STH     7969/STH     7975/STH     7992/STW
      8112/STW     8132/STW     8137/LI      8146/CI      8251/STW     8368/STW     8410/STW     8442/STW
      8449/STB     8860/GEN     8862/GEN     8864/GEN     8870/GEN     8880/GEN     8886/GEN     8890/GEN
      8894/GEN     8896/GEN     8908/GEN     8912/GEN     8916/GEN     8918/GEN    10506/LB     10634/STW
     10638/STB    10655/STB
   BUFFER3         0.10-EQU     4286/STW     4422/STW     4512/STW     4592/STW     4674/STW     5243/STW
      5265/LI      5575/LI      6213/LI      8367/STW     8370/LI      8898/GEN     8900/GEN    10490/LB
     10498/LB     10504/STW    10507/LB
   BUFHDRF        10484/STW    10531/MTW    10540/STW    10611-DATA
   BUFMSG1        10534/LW     10615-DATA
   BUFMSG11       10615/DATA   10617-TEXTC
   BUFMSG12       10616/DATA   10618-TEXTC
   BUFMSG2        10539/DATA   10619-TEXTC
   BUFMSG3        10541/LI     10545/STW    10550/DATA   10620-TEXTC
   BUFMSG4        10547/LI     10552/DATA   10621-TEXTC
   BUFMSG5        10495/DATA   10622-TEXTC
   BUFSAV         10481/STM    10587/MTW    10589/LM     10613-RES
   BUFSAV1        10595/STW    10604/B*     10614-DATA
   BUFTALLY       10483/STW    10553/AWM    10554/LW     10562/MTW    10612-DATA
   BUPAR          10024/DATA   10026/DATA   10044-TEXT
   BUPAR1         10045-TEXT
   BYTECNT         2431/STW     2459/STW     4946/CW      5026/LW      5039/CW      7650-DATA   10558/CW
   BYTN0           9776-:TSEQEQU
   BYT00           2160/:TSEQ   2163/:TSEQ   2166/:TSEQ   2169/:TSEQ   6590/:TSEQ   6591/:TSEQ   6592/:TSEQ
      6593/:TSEQ   9776-:TSEQEQU
   BYT01           9776-:TSEQEQU
   BYT02           9776-:TSEQEQU
   BYT03           9776-:TSEQEQU
   BYT04           9776-:TSEQEQU
   BYT05           9776-:TSEQEQU
   BYT06           9776-:TSEQEQU
   CATALOG          0.2-EQU      0.4/EQU
   CBREC          10028/DATA   10046-TEXT
   CDPAR          10026/DATA   10047-TEXT
   CEINT          10018/DATA   10048-TEXT
   CHARBIT         2235/STW     2298/STW    10577/LW     10607-DATA
   CHARBLNK        6347/LW      7774/LW      7820/LW      7862/LW      7974/LH      8364/LW      8441/LW
      8926-DATA
   CHARINDX        2233/STW     2296/STW     2303-DATA    6522/CW      8189/LCW     8393/LW      8398/LW
   CHARMASK        2237/STW     2300/STW     7937/AND     7942/AND    10508/AND    10608-DATA
   CHARTBL         2230/LI      4978/LB      8795-DATA
   CHARTBLA        2241/STB     2243/STB     2280/STB     2282/STB     8809-DATA
   CHARTBLS        8404/AI      8821-DATA
   CHARTBLX        2231/STW     2256/STW     2294/STW     7939/LB*     8234/LB*     8240/LB*     8406/AW
      8726-DATA
   CHARTBL1        2255/LI      8780-DATA
   CHARTBL2        2293/LI      4973/LB      8811-DATA
   CHKPAR          4363/STW     4440/STW     4530/STW     4610/STW     4692/STW     5000/STW    10526/CW
     10609-DATA
   CHKTYPE         4364/STW     4439/STW     4529/STW     4609/STW     4691/STW     4999/STW    10487/CW
     10509/CW     10515/CW     10533/LW     10560/CW     10565/CW     10573/CW     10610-DATA
   CODE            1921-CNAME
   COMNG           9777-:TSEQEQU
   COM00           9777-:TSEQEQU
   COM01           9777-:TSEQEQU
   COM02           9777-:TSEQEQU
   COM03           9777-:TSEQEQU
   COM04           9777-:TSEQEQU
   COM05           9777-:TSEQEQU
   COM06           9777-:TSEQEQU
   CSECTDIC        2086-CSECT
   DATAADDR         253-DATA
   DELAYS          6803/LW      6876/LW      6927/LW      7101/LW      7638-DATA
   DELAYSP         7206/LW      7304/LW      7361/LW      7639-DATA    9474/LW
   DELAYTMP        5483/LW      5680/LW      6165/LW      7637-DATA
   DELAYTMS        5517/LW      5657/LW      7636-DATA
   DELAYTM2        7635-DATA
   DELYTM          2673/LW      2734/LW      2776/LW      2826/LW      2867/LW      2931/LW      2977/LW
      3110/LW      3157/LW      6969/LW      7418/LW      7629-DATA
   DELYTMF         3935/LW      4228/LW      4738/LW      4768/LW      7632-DATA
   DELYTMP         3288/LW      3638/LW      4082/LW      4408/LW      4499/LW      4582/LW      4660/LW
      5668/LW      7630-DATA
   DELYTMPF        3788/LW      4159/LW      4838/LW      7633-DATA
   DELYTMS         4427/LW      4517/LW      4596/LW      4678/LW      4987/LW      5116/LW      5210/LW
      5247/LW      5564/LW      5691/LW      5702/LW      5713/LW      6202/LW      7634-DATA
   DELYTMSP        3244/LW      3272/LW      3305/LW      3383/LW      3393/LW      3418/LW      3507/LW
      3517/LW      3534/LW      3544/LW      3554/LW      5096/LW      5106/LW      5141/LW      5310/LW
      5313/LW      5463/LW      5473/LW      5637/LW      5647/LW      5822/LW      5825/LW      5974/LW
      7631-DATA
   DPM             1852/GOTO    1980-EQU
   DTCINT         10016/DATA   10049-TEXT
   ECHOERR        10050-TEXT
   ENDFLAG         5802/STW     5833/LW      5893/CW      5895/STW     5955-DATA
   ERROR          10762-STW    10781/DATA
   ERROR1         10768/BNE    10773/BL     10778-LW
   ERRTTBA         9875/LI     10020-DATA
   ERRTTBB         9873/LI     10022-DATA
   ERRTTBC         9891/LW     10035-DATA
   ERRTTBC1       10026-DATA   10035/DATA
   ERRTTBC2       10028-DATA   10035/DATA   10036/DATA
   ERRTTBC3       10030-DATA   10035/DATA   10036/DATA
   ERRTTBD         9889/LW     10036-DATA
   ERRTTBD1       10024-DATA   10036/DATA
   EXECDELT       10399-DATA
   EXECDT         10349/STW    10352/MTW    10398-DATA
   EXECDTM        10348/LW     10397-DATA
   EXECERR        10345/STW    10362/MTW    10378/STW    10383/STW    10388/STW    10396-DATA
   EXECERR1        7594/STW     7597/LW      7643-DATA    8117/STW     8142/STW     8194/STW     8377/STW
      8508/STW     8528/STW     8550/STW     8602/STW     8608/STW     8708/STW
   EXECMSG         9465/DATA   10356/DATA   10401-TEXTC
   EXECMSG1       10369/STB    10371/DATA   10402-TEXTC
   EXECMSG2       10403-TEXTC
   EXECPSD        10390/LPSD   10393-DATA   10395/XPSD
   EXECREC        10374-BAL    10394/DATA
   EXECREC1        2229/STW     2278/STW    10385-DATA
   EXECSAV        10321/STM    10341/STM    10357/MTW    10359/LM     10400-RES
   EXECUTE         6052/BAL     6239/BAL     6310/BAL     6354/BAL     6435/BAL     6511/BAL     7561/BAL
      7710/BAL     7717/BAL     7744/BAL     7847/BAL     7895/BAL     7922/BAL     8115/BAL     8140/BAL
      8192/BAL     8375/BAL     8414/BAL     8462/BAL     8476/BAL     8506/BAL     8514/BAL     8526/BAL
      8548/BAL     8600/BAL     8606/BAL     8706/BAL    10330/BNE    10334/B      10339/B      10340-LCI
     10648/BAL    10663/BAL
   EXECUTEX        7786/BAL     7793/BAL     7798/BAL     7840/BAL     7888/BAL     7917/BAL     7995/BAL
     10320-LCI
   EXECXPSD       10342/LW     10395-XPSD
   EXECX2         10337-BAL
   EXEC1          10358-LCI    10363/BEZ    10365/BE     10372/B
   EXEC2          10351/BNEZ   10361-BAL
   EXIT            2520-EQU     2576/B       2583/B       2641/BGE     2755/BGE     2897/BE      2952/B
      2959/B       3016/B       3192/BE      3199/B       3202/B       3203/B       3204/B       3217/B
      3338/B       3358/B       3462/B       3482/B       3592/B       3603/B       3615/B       3724/B
      3763/B       3897/B       3914/B       4052/B       4061/B       4062/B       4074/B       4128/B
      4143/B       4205/B       4220/B       4262/B       4280/B       4379/B       4395/B       4473/B
      4487/B       4553/B       4570/B       4636/B       4651/B       4702/B       4707/B       4708/B
      4709/B       4721/B       4795/B       4813/B       4877/B       4883/B       4884/B       4896/B
      4949/B       4965/B       5010/B       5024/B       5070/B       5074/B       5075/B       5087/B
      5169/B       5177/B       5198/B       5291/B       5306/B       5363/B       5454/B       5595/B
      5626/B       5759/B       5818/B       5894/BE      5922/B       5969/B       6019/B       6113/B
      6225/B       6281/B       6336/B       6341/B       6419/B       6489/B       6524/B       6546/B
      6585/B       6605/B       6700/B       6717/B       6776/B       6779/B       6856/B       6998/BE
      7059/B       7156/B       7247/B       7276/B       7333/B       7336/B       7453/BE      7460/B
      7462/B       7484/B       7491/B       7534/B       7577/B       7579/B       7619/B
   FMIUP          10030/DATA   10053-TEXT
   FMSE           10030/DATA   10051-TEXT
   FMSP           10030/DATA   10052-TEXT
   FMTCODE         8581/STW     8589/OR      8593/OR      8631/STW     8633-DATA
   FM4            10030/DATA   10054-TEXT
   FM5            10030/DATA   10055-TEXT
   FM6            10030/DATA   10056-TEXT
   FM7            10030/DATA   10057-TEXT
   FORMAT          3371/STB     3495/STB     3773/STB     4148/STB     4724/STB     4757/MTB     4758/LB
      4822/STB     5298/STB     5324/LB      5359/MTB     5360/LB      5633/STB     5798/STB     5887/XW
      5889/MTB     5890/LB      5898/STB     5905/LB      5908/LW      5910/XW      5919/LB      6161/STB
      6234/STB     6276/MTB     6278/LB      6307/STB     6613/STB     6869/STB     7028/STB     7087/STB
      7173/STB     7289/STB     7342/STB     7468/STB     7592/STB     7708/STB     7742/STB     7757/STB
      7813/STB     7859/STB     7909/STB     8055/STB     8068/STB     8326/STB     8474/STB     8500/STB
      8517/STB     8530/MTB     8546/XW      8551/XW      8594/STB     8604/STB     8651/STB     8700/STB
      8856/GEN     8858/GEN     8866/GEN     8876/GEN     8882/GEN     8884/GEN     8888/GEN     8892/GEN
      8902/GEN     8904/GEN     8906/GEN     8910/GEN     8914/GEN     8920/GEN     8925-DATA   10676/LB
     10677/LB
   FORMAT1         2433/STW     2461/STW     5361/CW      5800/STB     5886/LW      5888/XW      5899/STB
      5909/XW      7649-DATA
   HDMSG1          8732/DATA    8765-TEXTC
   HDMSG10         8741/DATA    8774-TEXTC
   HDMSG11         8742/DATA    8775-TEXTC
   HDMSG2          8733/DATA    8766-TEXTC
   HDMSG3          8734/DATA    8767-TEXTC
   HDMSG4          8735/DATA    8768-TEXTC
   HDMSG5          8736/DATA    8769-TEXTC
   HDMSG6          8737/DATA    8770-TEXTC
   HDMSG7          8738/DATA    8771-TEXTC
   HDMSG8          8739/DATA    8772-TEXTC
   HDMSG9          8740/DATA    8773-TEXTC
   HEXTDECC        8984/BAL     8987/BAL     9014-LI
   HIOF0           9762-:TSEQEQU
   HIOF1           9762-:TSEQEQU
   HIOF2           9762-:TSEQEQU
   HIOF3           9762-:TSEQEQU
   HIOF4           9762-:TSEQEQU
   HIOF5           9762-:TSEQEQU
   HIOF6           9762-:TSEQEQU
   HIOF7           9762-:TSEQEQU
   HIOT0           9763-:TSEQEQU
   HIOT1           9763-:TSEQEQU
   HIOT2           9763-:TSEQEQU
   HIOT3           9763-:TSEQEQU
   HIOT4           9763-:TSEQEQU
   HIOT5           9763-:TSEQEQU
   HIOT6           9763-:TSEQEQU
   HIOT7           9763-:TSEQEQU
   HSCLOK         10058-TEXT
   I               1826-SET     1828/GEN     1828/GEN     1828/GEN     1828/GEN     1829-SET     1829/SET
   INCLEN         10014/DATA   10018/DATA   10059-TEXT
   INITIALA        2213-LI      2222/BCS     2224/BG
   INITIALB        2246/BE      2265-LI
   INITIALC        2248/BE      2270-STW
   INITIALD        2250/BE      2276-STW
   INITIALE        2252/BE      2287-LW
   INITIALX        2206/STW     2215/B*      2264/B*      2269/B*      2275/B*      2286/B*      2301/B*
      2304-DATA
   INTLK          10024/DATA   10061-TEXT
   INTPEND        10012/DATA   10060-TEXT
   INVCHAR         6505/BAL     8171/BAL     8684/BAL    10830-LH     10853/BAL
   INVCHARR        7767/BAL     7827/BAL     7874/BAL     7936/BAL     7947/BAL     7959/BAL     7986/BAL
     10850-STW
   INVCHARX        6504/STW     8170/STW     8683/STW    10833/LW     10836/LW     10848-DATA   10852/STB
   INVCHAR1       10832/BE     10835-STW    10847/B
   INVCHAR2       10839-CB     10843/BL
   INVCHAR3       10840/BE     10846-MTW
   INVCRX         10850/STW    10854/B*     10855-DATA
   INVCTBL         6725/LW      6751/LW      8844-DATA   10839/CB
   INVCX           8172/STB     8177/LW      8685/STB     8690/LW     10857-DATA
   IOCDTM          2662/LI     10416/LI     10436/LI     10449-GEN
   IOCDTMR         2724/LI     10451-GEN
   IOCDTM1         2773/STB     2774/LI      2823/STB     2824/LI     10453-GEN
   IOCDTM2         2865/LI     10455-GEN
   IOCDTM3         2928/STB     2929/LI     10457-GEN
   IOCDTM4         2971/STB     2973/STB     2974/LI      2997/STB     2999/STB     3003/STB     3005/STB
     10459-GEN
   IOCDTM5         3107/STB     3108/LI      3145/CI      3154/STB     3155/LI      3191/CI     10461-GEN
   IOCD1           6238/LI      7029/LI      7709/LI      7743/LI      7846/LI      7894/LI      7921/LI
      8475/LI      8599/LI      8856-GEN
   IOCD10          2591/STB     2592/LI      3231/STB     3232/LI      8880-GEN
   IOCD11          3372/LI      4726/LI      5308/LI      5820/LI      6715/DATA    7470/LI      8882-GEN
   IOCD12          3496/LI      6163/LI      6715/DATA    8884-GEN
   IOCD13          3775/STH     3777/LI      4825/STH     4826/LI      7089/STH     7091/LI      7180/STH
      7181/LI      8888-GEN
   IOCD14          3626/STH     3627/LI      4078/STH     4080/LI      6633/STH     6715/DATA    7503/STB
      7505/LI      8890-GEN
   IOCD15          3920/STH     3924/LI      4225/STH     4226/LI      4764/STH     4766/LI      6788/STH
      6792/LI      8894-GEN
   IOCD16          4149/STB     4153/STB     4155/STH     4157/LI      5616/STH     5618/STB     5635/LI
      5761/STB     8892-GEN
   IOCD17          6531/STB     6533/STB     6549/LI      6582/STB     8896-GEN
   IOCD18          4425/LI      4515/LI      4594/LI      4676/LI      5245/LI      5562/LI      6200/LI
      8898-GEN
   IOCD19          4289/STH     4291/LI      4900/STH     4902/LI      4983/STH     4985/LI      5027/STH
      5029/LI      8900-GEN
   IOCD2           6309/LI      7785/LI      8858-GEN
   IOCD20          6873/STB     6874/LI      6924/STB     6925/LI      8902-GEN
   IOCD21          6967/LI      8904-GEN
   IOCD22          7295/LI      8906-GEN
   IOCD23          7349/STB     7350/LI      7397/CI      7407/STB     7408/LI      7452/CI      8910-GEN
   IOCD24          7558/STH     7560/LI      8918-GEN
   IOCD25          8702/STH     8705/LI      8712/MTW     8920-GEN
   IOCD3           6051/LI      6353/LI      6434/LI      6510/LI      7792/LI      7916/LI      7994/LI
      8114/LI      8413/LI      8461/LI      8862-GEN    10647/LI     10662/LI
   IOCD4           7796/STH     7797/LI      7817/STH     7839/LI      7849/MTW     7869/STH     7887/LI
      7897/MTW     8138/STH     8139/LI      8144/LH      8148/MTW     8150/MTW     8188/STH     8191/LI
      8198/MTW     8371/STH     8374/LI      8379/MTW     8864-GEN
   IOCD5           8076/STH     8079/STH     8080/LI      8328/STH     8330/STH     8331/LI      8866-GEN
   IOCD6           4406/LI      4497/LI      4580/LI      4658/LI      5094/LI      5208/LI      5461/LI
      5972/LI      6728/LI      6755/LI      8260/LI      8870-GEN
   IOCD7           8268/LI      8283/LI      8872-GEN
   IOCD8           7713/STH     7715/STH     7716/LI      8510/STH     8512/STH     8513/LI      8874-GEN
   IOCD9           8502/STH     8504/STH     8505/LI      8522/STH     8524/STH     8525/LI      8542/STH
      8544/STH     8547/LI      8596/STH     8598/STH     8605/LI      8876-GEN
   IOMDT           8262/LW      8267/LW      8275/LW      8282/LW      8288/LW      8338/LW      8729-DATA
   IOMDTMSG        8343/DATA    8730-TEXTC
   IOPAR          10024/DATA   10026/DATA   10062-TEXT
   IOPCONT        10014/DATA   10063-TEXT
   IOPHALT        10014/DATA   10064-TEXT
   IOPMEM         10014/DATA   10065-TEXT
   ISBF0           9770-:TSEQEQU
   ISBF1           9770-:TSEQEQU
   ISBF2           9770-:TSEQEQU
   ISBF3           9770-:TSEQEQU
   ISBF4           9770-:TSEQEQU
   ISBF5           9770-:TSEQEQU
   ISBF6           9770-:TSEQEQU
   ISBF7           9770-:TSEQEQU
   ISBT0           9771-:TSEQEQU
   ISBT1           9771-:TSEQEQU
   ISBT2           9771-:TSEQEQU
   ISBT3           9771-:TSEQEQU
   ISBT4           9771-:TSEQEQU
   ISBT5           9771-:TSEQEQU
   ISBT6           9771-:TSEQEQU
   ISBT7           9771-:TSEQEQU
   ITHDLR          2484/LI      7686/LI      8070/LI     10801-STW
   ITHM2          10804/STB    10806/DATA   10826-TEXTC
   ITHM3          10811/STH    10813/DATA   10827-TEXTC
   ITHM4          10816/STW    10818/DATA   10828-TEXTC
   ITHRST          2487/STW     7689/STW     8073/STW    10819/LW     10824-DATA
   ITHSAVE        10801/STW    10820/B*     10825-DATA
   ITHSUBT         2482/STW    10809/LW     10823-DATA
   ITHTEST         2483/STW     7685/STW     8069/STW    10364/CW     10367/LW     10802/LW     10807/CW
     10822-DATA
   L               9161/AND     9169/AND     9212/AND     9240/AND
   LASTCHAR        2260/STW     2268/STW     2274/STW     2290/STW     8232/STW     8245/CW      8728-DATA
   LIMTADDR         269-DATA
   LINECNT         7589/LW      7645-DATA
   LMCLK          10030/DATA   10066-TEXT
   LOWFLAG         5804/STW     5884/CW      5896/STW     5917/STW     5956-DATA
   MEMADR         10014/DATA   10067-TEXT
   MOD50A          9436-TDV     9444/B
   MOD50B          9438/BCR     9445-CW
   MOD50C          9446/BNE     9449-SIO
   MOD50D          9453/BE      9459-MTW     9462/BGZ
   MOD50DT         9451/STW     9456/MTW     9461/MTW     9497-DATA
   MOD50DTM        9450/LW      9496-DATA
   MOD50E          9455/BCR     9460/BNEZ    9470-BAL     9485/B
   MOD50ERR        7297/CW      9378/STW     9391/STW     9498-DATA
   MOD50F          9467-LI      9479/BCS     9486/B
   MOD50FLG        9373/STW     9445/CW      9452/CW      9468/STW     9495-DATA
   MOD50G          9463-BAL
   MOD50MG1        9441/DATA    9499-TEXTC
   MOD50MG2        9482/DATA    9500-TEXTC
   MOD50PSD        9489/LPSD    9491-DATA    9493/XPSD
   MOD50REC        9487-AIO     9492/DATA
   MOD50RTN        9430/STW     9435/BCS*    9466/MTW     9469/B*      9494-DATA
   MOD50XPS        9447/LW      9493-XPSD
   MOD7450         8335/BAL     9389/BAL     9430-STW
   MPUSED         10020/DATA   10068-TEXT
   NEW             1852/GOTO    1857-SET
   NOP             1933/LW      1936-NOP
   NOTOP          10012/DATA   10012/DATA   10069-TEXT
   NOTUSED        10012/DATA   10016/DATA   10016/DATA   10016/DATA   10016/DATA   10016/DATA   10016/DATA
     10016/DATA   10018/DATA   10018/DATA   10018/DATA   10020/DATA   10022/DATA   10022/DATA   10022/DATA
     10024/DATA   10026/DATA   10070-TEXT
   OLD             1852/GOTO    1853-SET
   OSBF0           2157/:TSEQ   2160/:TSEQ   2163/:TSEQ   2166/:TSEQ   2176/:TSEQ   2185/:TSEQ   7160/:TSEQ
      9760-:TSEQEQU
   OSBF1           2157/:TSEQ   2158/:TSEQ   2160/:TSEQ   2163/:TSEQ   2166/:TSEQ   2169/:TSEQ   2176/:TSEQ
      2180/:TSEQ   2182/:TSEQ   2185/:TSEQ   2195/:TSEQ   4264/:TSEQ   4267/:TSEQ   4799/:TSEQ
      9760-:TSEQEQU
   OSBF2           2157/:TSEQ   2158/:TSEQ   2160/:TSEQ   2163/:TSEQ   2166/:TSEQ   2169/:TSEQ   2176/:TSEQ
      2180/:TSEQ   2182/:TSEQ   2185/:TSEQ   2195/:TSEQ   4264/:TSEQ   4267/:TSEQ   4799/:TSEQ
      9760-:TSEQEQU
   OSBF3           2157/:TSEQ   2158/:TSEQ   2160/:TSEQ   2163/:TSEQ   2166/:TSEQ   2169/:TSEQ   2176/:TSEQ
      2180/:TSEQ   2182/:TSEQ   2185/:TSEQ   2195/:TSEQ   4264/:TSEQ   4267/:TSEQ   4799/:TSEQ
      9760-:TSEQEQU
   OSBF4           2157/:TSEQ   2158/:TSEQ   2160/:TSEQ   2163/:TSEQ   2166/:TSEQ   2169/:TSEQ   2176/:TSEQ
      2180/:TSEQ   2182/:TSEQ   2185/:TSEQ   2195/:TSEQ   4264/:TSEQ   4267/:TSEQ   4799/:TSEQ
      9760-:TSEQEQU
   OSBF5           2157/:TSEQ   2158/:TSEQ   2160/:TSEQ   2163/:TSEQ   2166/:TSEQ   2169/:TSEQ   2176/:TSEQ
      2180/:TSEQ   2182/:TSEQ   2185/:TSEQ   2185/:TSEQ   2195/:TSEQ   4264/:TSEQ   4267/:TSEQ   4799/:TSEQ
      9760-:TSEQEQU
   OSBF6           2157/:TSEQ   2158/:TSEQ   2160/:TSEQ   2163/:TSEQ   2166/:TSEQ   2169/:TSEQ   2176/:TSEQ
      2180/:TSEQ   2182/:TSEQ   2195/:TSEQ   4264/:TSEQ   4267/:TSEQ   4799/:TSEQ   9760-:TSEQEQU
   OSBF7           2157/:TSEQ   2158/:TSEQ   2160/:TSEQ   2163/:TSEQ   2166/:TSEQ   2169/:TSEQ   2176/:TSEQ
      2180/:TSEQ   2182/:TSEQ   2185/:TSEQ   2195/:TSEQ   4264/:TSEQ   4267/:TSEQ   4799/:TSEQ
      9760-:TSEQEQU
   OSBT0           2158/:TSEQ   2169/:TSEQ   2180/:TSEQ   4799/:TSEQ   7159/:TSEQ   9761-:TSEQEQU
   OSBT1           9761-:TSEQEQU
   OSBT2           9761-:TSEQEQU
   OSBT3           9761-:TSEQEQU
   OSBT4           9761-:TSEQEQU
   OSBT5           9761-:TSEQEQU
   OSBT6           9761-:TSEQEQU
   OSBT7           9761-:TSEQEQU
   OVERRUN        10071-TEXT
   PAPERR         10072-TEXT
   PAPLOW         10020/DATA   10022/DATA   10024/DATA   10073-TEXT
   PAPMOV         10020/DATA   10022/DATA   10074-TEXT
   PAPRUN         10020/DATA   10022/DATA   10024/DATA   10075-TEXT
   PAPTOP         10020/DATA   10022/DATA   10024/DATA   10026/DATA   10076-TEXT
   PARNOERR        8960/STW     8965/LW      8974/STW     8981/STW     8992/MTW     9000/MTW     9006/MTW
      9033-DATA
   PFAULT         10022/DATA   10077-TEXT
   PIOCD          10366/BAL    10712-LCI    10766/BAL
   PIOCDFLG        2478/STW     2545/STW    10428/STW    10759-DATA   10763/CW     10765/STW    10787/STW
   PIOCDMG1       10728/STH    10730/DATA   10761-TEXTC
   PIOCDMSG       10746/STW    10748/STW    10752/STW    10754/STW    10756/DATA   10760-TEXTC
   PIOCDSAV       10713/STM    10738/LM     10758-RES
   PIOCD1         10722/BNE    10732-LW     10757/B
   PIOCD2         10717/BEZ    10731/B      10736/B      10740-LW
   PORDER         10020/DATA   10078-TEXT
   PRINT           1926-BAL     1932/BDR
   PRINTERR       10026/DATA   10079-TEXT
   PRINTPOS        7719/BAL     8087/BAL    10630-STW
   PRPOSFLG       10632/STW    10640/CW     10643/STW    10667-DATA
   PRPOSNUM       10637/LB     10654/LB     10669-DATA
   PRPOSRTN       10630/STW    10665/B*     10668-DATA
   PRPOS1         10637-LB     10646/BLE
   PRPOS2         10653-LI     10660/BLE    10661/B
   PRPOS3         10658/B      10662-LI
   PSLOW          10024/DATA   10083-TEXT
   RECOVERX        2312/STW     2331/B*      2333-DATA
   RECOVRY1       10026/DATA   10080-TEXT
   RECOVRY2       10026/DATA   10081-TEXT
   RECOVRY3       10082-TEXT
   RESTM           2465/BAL     3337/BAL     3339/BAL     3461/BAL     3463/BAL     3591/BAL     3593/BAL
      3723/BAL     3896/BAL     4051/BAL     4127/BAL     4204/BAL     4261/BAL     4378/BAL     4472/BAL
      4552/BAL     4619/BAL     4701/BAL     4794/BAL     4876/BAL     4948/BAL     5009/BAL     5069/BAL
      5166/BAL     5176/BAL     5178/BAL     5290/BAL     5358/BAL     5368/BAL     5374/BAL     5594/BAL
      5596/BAL     5756/BAL     5779/BAL     5858/BAL     5864/BAL     5873/BAL     6018/BAL     6020/BAL
      6104/BAL     6224/BAL     6277/BAL     6335/BAL     6337/BAL     6418/BAL     6488/BAL     6584/BAL
      6586/BAL     6699/BAL    10433-HIO
   REV             1904-CNAME
   REVBRNCH        1934/STW     2318-EQU
   REVCOUNT        1901-SET     1906/DO      1910-SET     1910/SET     1915/GEN     2319/DO
   REVEND          1911/DO      1979-REV
   REVISION        1923/LW      1924/LW    1943.2-REV
   REVPRINT        1923-LW      2322/BAL
   REVSTART        1902-SET     1907-SET     1914/ORG
   S:PT             0.4/EQU
   S:UFV            0.8/EQU      0.9/EQU     0.10/EQU
   SAVREGX        10835/STW    10844/LW     10856-DATA
   SBAF0           9772-:TSEQEQU
   SBAF1           9772-:TSEQEQU
   SBAF2           9772-:TSEQEQU
   SBAF3           9772-:TSEQEQU
   SBAF4           9772-:TSEQEQU
   SBAF5           9772-:TSEQEQU
   SBAF6           9772-:TSEQEQU
   SBAF7           9772-:TSEQEQU
   SBAT0           9773-:TSEQEQU
   SBAT1           9773-:TSEQEQU
   SBAT2           9773-:TSEQEQU
   SBAT3           9773-:TSEQEQU
   SBAT4           9773-:TSEQEQU
   SBAT5           9773-:TSEQEQU
   SBAT6           9773-:TSEQEQU
   SBAT7           9773-:TSEQEQU
   SBBF0           9774-:TSEQEQU
   SBBF1           9774-:TSEQEQU
   SBBF2           9774-:TSEQEQU
   SBBF3           9774-:TSEQEQU
   SBBF4           9774-:TSEQEQU
   SBBF5           9774-:TSEQEQU
   SBBF6           9774-:TSEQEQU
   SBBF7           9774-:TSEQEQU
   SBBT0           9775-:TSEQEQU
   SBBT1           9775-:TSEQEQU
   SBBT2           9775-:TSEQEQU
   SBBT3           9775-:TSEQEQU
   SBBT4           9775-:TSEQEQU
   SBBT5           9775-:TSEQEQU
   SBBT6           9775-:TSEQEQU
   SBBT7           9775-:TSEQEQU
   SCOMP          10028/DATA   10084-TEXT
   SELTM           3211/BAL     3353/BAL     3477/BAL     3610/BAL     3758/BAL     3909/BAL     4069/BAL
      4138/BAL     4215/BAL     4275/BAL     4390/BAL     4482/BAL     4565/BAL     4646/BAL     4716/BAL
      4808/BAL     4891/BAL     4960/BAL     5019/BAL     5082/BAL     5193/BAL     5301/BAL     5449/BAL
      5530/BAL     5621/BAL     5726/BAL     5743/BAL     5813/BAL     5964/BAL     6060/BAL     6079/BAL
      6091/BAL     6193/BAL     6248/BAL     6264/BAL     6284/BAL     6319/BAL     6362/BAL     6378/BAL
      6390/BAL     6403/BAL     6448/BAL     6464/BAL     6476/BAL     6541/BAL     6600/BAL    10411-STW
   SELTMERR       10427/DATA   10431-TEXTC
   SELTMSAV       10411/STW    10420/LW     10445-DATA
   SELTMX         10425/STW    10429/B*     10430-DATA
   SEMON          10028/DATA   10085-TEXT
   SENSE          10785-STW    10790/DATA
   SIOF0           2149/:TSEQ   9766-:TSEQEQU
   SIOF1           2149/:TSEQ   9766-:TSEQEQU
   SIOF2           2149/:TSEQ   9766-:TSEQEQU
   SIOF3           9766-:TSEQEQU
   SIOF4           9766-:TSEQEQU
   SIOF5           2149/:TSEQ   9766-:TSEQEQU
   SIOF6           2149/:TSEQ   9766-:TSEQEQU
   SIOF7           2149/:TSEQ   9766-:TSEQEQU
   SIOPBUSY       10014/DATA   10086-TEXT
   SIOT0           9767-:TSEQEQU
   SIOT1           9767-:TSEQEQU
   SIOT2           9767-:TSEQEQU
   SIOT3           2149/:TSEQ   9767-:TSEQEQU
   SIOT4           9767-:TSEQEQU
   SIOT5           9767-:TSEQEQU
   SIOT6           9767-:TSEQEQU
   SIOT7           9767-:TSEQEQU
   SPERR          10087-TEXT
   STATEA         10028/DATA   10088-TEXT
   STATEB         10028/DATA   10089-TEXT
   STATEC         10028/DATA   10090-TEXT
   STATED         10028/DATA   10091-TEXT
   STATEE         10028/DATA   10092-TEXT
   SYNCCHAR        2239/STW     2258/STW     2272/STW     2292/STW     8237/STW     8249/LW      8727-DATA
   TABLEMSG        8074/LW      8732-DATA
   TDVCOMP         4749/BAL     4860/BAL    10673-LCI
   TDVCSAVE       10674/STM    10702/MTW    10704/LM     10707-RES
   TDVC1          10680/BCR    10687-CI
   TDVC2          10688/BCR    10690-CI
   TDVC3          10684/B      10686/B      10691/BCR    10693-CB
   TDVC4          10694/BE     10703-LCI
   TDVF0           2153/:TSEQ   2154/:TSEQ   2155/:TSEQ   2156/:TSEQ   2159/:TSEQ   2160/:TSEQ   2163/:TSEQ
      2173/:TSEQ   2174/:TSEQ   2175/:TSEQ   2178/:TSEQ   2179/:TSEQ   2193/:TSEQ   2194/:TSEQ   3598/:TSEQ
      5183/:TSEQ   5409/:TSEQ   5428/:TSEQ   5432/:TSEQ   5602/:TSEQ   5605/:TSEQ   5783/:TSEQ   5785/:TSEQ
      5786/:TSEQ   5789/:TSEQ   5932/:TSEQ   5938/:TSEQ   5945/:TSEQ   6024/:TSEQ   6025/:TSEQ   6026/:TSEQ
      6155/:TSEQ   6295/:TSEQ   6297/:TSEQ   9764-:TSEQEQU
   TDVF1           2152/:TSEQ   2154/:TSEQ   2155/:TSEQ   2156/:TSEQ   2159/:TSEQ   2160/:TSEQ   2163/:TSEQ
      2172/:TSEQ   2174/:TSEQ   2175/:TSEQ   2178/:TSEQ   2182/:TSEQ   2192/:TSEQ   3598/:TSEQ   4801/:TSEQ
      5183/:TSEQ   5602/:TSEQ   5605/:TSEQ   5783/:TSEQ   5786/:TSEQ   5789/:TSEQ   5932/:TSEQ   5933/:TSEQ
      5934/:TSEQ   5935/:TSEQ   5936/:TSEQ   6024/:TSEQ   6025/:TSEQ   6707/:TSEQ   6708/:TSEQ   6709/:TSEQ
      9764-:TSEQEQU
   TDVF2           2152/:TSEQ   2153/:TSEQ   2155/:TSEQ   2156/:TSEQ   2159/:TSEQ   2160/:TSEQ   2172/:TSEQ
      2173/:TSEQ   2175/:TSEQ   2178/:TSEQ   2179/:TSEQ   2182/:TSEQ   2185/:TSEQ   2190/:TSEQ   2193/:TSEQ
      2194/:TSEQ   2195/:TSEQ   3598/:TSEQ   4801/:TSEQ   5405/:TSEQ   5406/:TSEQ   5407/:TSEQ   5408/:TSEQ
      5409/:TSEQ   5414/:TSEQ   5415/:TSEQ   5416/:TSEQ   5417/:TSEQ   5418/:TSEQ   5599/:TSEQ   5605/:TSEQ
      5783/:TSEQ   5785/:TSEQ   5789/:TSEQ   5932/:TSEQ   5933/:TSEQ   6155/:TSEQ   6297/:TSEQ   6590/:TSEQ
      6591/:TSEQ   6592/:TSEQ   6593/:TSEQ   6706/:TSEQ   6708/:TSEQ   9764-:TSEQEQU
   TDVF3           2152/:TSEQ   2153/:TSEQ   2154/:TSEQ   2156/:TSEQ   2159/:TSEQ   2172/:TSEQ   2173/:TSEQ
      2178/:TSEQ   2179/:TSEQ   2190/:TSEQ   4801/:TSEQ   5183/:TSEQ   5405/:TSEQ   5406/:TSEQ   5407/:TSEQ
      5409/:TSEQ   5414/:TSEQ   5415/:TSEQ   5416/:TSEQ   5418/:TSEQ   5428/:TSEQ   5429/:TSEQ   5602/:TSEQ
      5605/:TSEQ   5785/:TSEQ   5786/:TSEQ   5789/:TSEQ   5932/:TSEQ   5933/:TSEQ   5934/:TSEQ   5935/:TSEQ
      5936/:TSEQ   5937/:TSEQ   6024/:TSEQ   6025/:TSEQ   6297/:TSEQ   9764-:TSEQEQU
   TDVF4           2152/:TSEQ   2153/:TSEQ   2154/:TSEQ   2155/:TSEQ   2159/:TSEQ   2160/:TSEQ   2172/:TSEQ
      2174/:TSEQ   2175/:TSEQ   2188/:TSEQ   2191/:TSEQ   3598/:TSEQ   5183/:TSEQ   5405/:TSEQ   5414/:TSEQ
      5428/:TSEQ   5429/:TSEQ   5430/:TSEQ   5431/:TSEQ   5599/:TSEQ   5602/:TSEQ   5783/:TSEQ   5785/:TSEQ
      5786/:TSEQ   5932/:TSEQ   5933/:TSEQ   5934/:TSEQ   5935/:TSEQ   5936/:TSEQ   5937/:TSEQ   6024/:TSEQ
      6025/:TSEQ   6297/:TSEQ   9764-:TSEQEQU
   TDVF5           2159/:TSEQ   2160/:TSEQ   2174/:TSEQ   2175/:TSEQ   2182/:TSEQ   2185/:TSEQ   2193/:TSEQ
      2194/:TSEQ   2195/:TSEQ   5405/:TSEQ   5406/:TSEQ   5414/:TSEQ   5415/:TSEQ   5599/:TSEQ   5783/:TSEQ
      5785/:TSEQ   5932/:TSEQ   5933/:TSEQ   5934/:TSEQ   6155/:TSEQ   6297/:TSEQ   9764-:TSEQEQU
   TDVF6           2159/:TSEQ   2160/:TSEQ   2163/:TSEQ   2172/:TSEQ   2174/:TSEQ   2175/:TSEQ   2191/:TSEQ
      2192/:TSEQ   2193/:TSEQ   2194/:TSEQ   5183/:TSEQ   5405/:TSEQ   5406/:TSEQ   5407/:TSEQ   5408/:TSEQ
      5414/:TSEQ   5415/:TSEQ   5416/:TSEQ   5417/:TSEQ   5602/:TSEQ   5605/:TSEQ   5783/:TSEQ   5786/:TSEQ
      5789/:TSEQ   5932/:TSEQ   6155/:TSEQ   6297/:TSEQ   6707/:TSEQ   6708/:TSEQ   7280/:TSEQ
      9764-:TSEQEQU
   TDVF7           2159/:TSEQ   2160/:TSEQ   2172/:TSEQ   2174/:TSEQ   2175/:TSEQ   2193/:TSEQ   5405/:TSEQ
      5406/:TSEQ   5407/:TSEQ   5408/:TSEQ   5409/:TSEQ   5414/:TSEQ   5415/:TSEQ   5416/:TSEQ   5417/:TSEQ
      5418/:TSEQ   5428/:TSEQ   5429/:TSEQ   5430/:TSEQ   5431/:TSEQ   5432/:TSEQ   5599/:TSEQ   5602/:TSEQ
      5605/:TSEQ   5932/:TSEQ   5933/:TSEQ   5934/:TSEQ   5935/:TSEQ   5936/:TSEQ   5937/:TSEQ   5938/:TSEQ
      5945/:TSEQ   6023/:TSEQ   6025/:TSEQ   6026/:TSEQ   6154/:TSEQ   6155/:TSEQ   6297/:TSEQ
      9764-:TSEQEQU
   TDVT0           2152/:TSEQ   2172/:TSEQ   4801/:TSEQ   5405/:TSEQ   5406/:TSEQ   5407/:TSEQ   5408/:TSEQ
      5429/:TSEQ   5430/:TSEQ   5431/:TSEQ   5933/:TSEQ   5934/:TSEQ   5935/:TSEQ   5936/:TSEQ   5937/:TSEQ
      9765-:TSEQEQU
   TDVT1           2153/:TSEQ   2173/:TSEQ   2179/:TSEQ   2193/:TSEQ   2194/:TSEQ   2195/:TSEQ   5405/:TSEQ
      5406/:TSEQ   5407/:TSEQ   5408/:TSEQ   5409/:TSEQ   5431/:TSEQ   5432/:TSEQ   5785/:TSEQ   5937/:TSEQ
      5938/:TSEQ   6026/:TSEQ   6155/:TSEQ   6295/:TSEQ   6297/:TSEQ   6590/:TSEQ   6591/:TSEQ   6592/:TSEQ
      6593/:TSEQ   6706/:TSEQ   7282/:TSEQ   9765-:TSEQEQU
   TDVT2           2154/:TSEQ   2174/:TSEQ   5183/:TSEQ   5602/:TSEQ   5786/:TSEQ   5934/:TSEQ   5935/:TSEQ
      5936/:TSEQ   5937/:TSEQ   5938/:TSEQ   6707/:TSEQ   6709/:TSEQ   9765-:TSEQEQU
   TDVT3           2155/:TSEQ   2174/:TSEQ   2193/:TSEQ   2194/:TSEQ   3598/:TSEQ   5408/:TSEQ   5417/:TSEQ
      5430/:TSEQ   5431/:TSEQ   5432/:TSEQ   5783/:TSEQ   5938/:TSEQ   5945/:TSEQ   6026/:TSEQ   6155/:TSEQ
      6295/:TSEQ   9765-:TSEQEQU
   TDVT4           2156/:TSEQ   2178/:TSEQ   2179/:TSEQ   2189/:TSEQ   2190/:TSEQ   2193/:TSEQ   2194/:TSEQ
      4801/:TSEQ   5406/:TSEQ   5407/:TSEQ   5408/:TSEQ   5409/:TSEQ   5415/:TSEQ   5416/:TSEQ   5417/:TSEQ
      5418/:TSEQ   5432/:TSEQ   5605/:TSEQ   5789/:TSEQ   5938/:TSEQ   5945/:TSEQ   6026/:TSEQ   6155/:TSEQ
      6295/:TSEQ   6591/:TSEQ   9765-:TSEQEQU
   TDVT5           2172/:TSEQ   2173/:TSEQ   2178/:TSEQ   2179/:TSEQ   2190/:TSEQ   4801/:TSEQ   5183/:TSEQ
      5407/:TSEQ   5408/:TSEQ   5409/:TSEQ   5416/:TSEQ   5417/:TSEQ   5418/:TSEQ   5602/:TSEQ   5605/:TSEQ
      5786/:TSEQ   5789/:TSEQ   5935/:TSEQ   5936/:TSEQ   5937/:TSEQ   5938/:TSEQ   6593/:TSEQ
      9765-:TSEQEQU
   TDVT6           2173/:TSEQ   2178/:TSEQ   2179/:TSEQ   2190/:TSEQ   4801/:TSEQ   5409/:TSEQ   5418/:TSEQ
      5785/:TSEQ   5933/:TSEQ   5934/:TSEQ   5935/:TSEQ   5936/:TSEQ   5937/:TSEQ   5938/:TSEQ   6592/:TSEQ
      6706/:TSEQ   6709/:TSEQ   7279/:TSEQ   9765-:TSEQEQU
   TDVT7           2173/:TSEQ   2178/:TSEQ   2179/:TSEQ   2190/:TSEQ   3598/:TSEQ   4801/:TSEQ   5783/:TSEQ
      5785/:TSEQ   5786/:TSEQ   5789/:TSEQ   6024/:TSEQ   6590/:TSEQ   9765-:TSEQEQU
   TEXTADR         1925/STW     1927-DATA
   TIOF0           2150/:TSEQ   2151/:TSEQ   2160/:TSEQ   2163/:TSEQ   2166/:TSEQ   2169/:TSEQ   2176/:TSEQ
      2180/:TSEQ   2182/:TSEQ   2185/:TSEQ   2195/:TSEQ   4058/:TSEQ   4264/:TSEQ   4267/:TSEQ   4799/:TSEQ
      5184/:TSEQ   7074/:TSEQ   9758-:TSEQEQU
   TIOF1           2150/:TSEQ   2160/:TSEQ   2163/:TSEQ   2166/:TSEQ   2169/:TSEQ   2176/:TSEQ   2180/:TSEQ
      2182/:TSEQ   2185/:TSEQ   2195/:TSEQ   4058/:TSEQ   4264/:TSEQ   4267/:TSEQ   4799/:TSEQ   5184/:TSEQ
      6858/:TSEQ   9758-:TSEQEQU
   TIOF2           2150/:TSEQ   2160/:TSEQ   2163/:TSEQ   2166/:TSEQ   2169/:TSEQ   2176/:TSEQ   2180/:TSEQ
      2182/:TSEQ   2185/:TSEQ   2195/:TSEQ   4058/:TSEQ   4264/:TSEQ   4267/:TSEQ   4799/:TSEQ   5184/:TSEQ
      6858/:TSEQ   9758-:TSEQEQU
   TIOF3           9758-:TSEQEQU
   TIOF4           2150/:TSEQ   2151/:TSEQ   2160/:TSEQ   2163/:TSEQ   2166/:TSEQ   2169/:TSEQ   2176/:TSEQ
      2182/:TSEQ   2185/:TSEQ   2195/:TSEQ   4264/:TSEQ   9758-:TSEQEQU
   TIOF5           2150/:TSEQ   2160/:TSEQ   2163/:TSEQ   2166/:TSEQ   2169/:TSEQ   2176/:TSEQ   2180/:TSEQ
      2182/:TSEQ   2185/:TSEQ   2195/:TSEQ   4058/:TSEQ   4264/:TSEQ   4267/:TSEQ   4799/:TSEQ   5184/:TSEQ
      6858/:TSEQ   9758-:TSEQEQU
   TIOF6           2150/:TSEQ   2160/:TSEQ   2163/:TSEQ   2166/:TSEQ   2169/:TSEQ   2176/:TSEQ   2180/:TSEQ
      2182/:TSEQ   2185/:TSEQ   2195/:TSEQ   4058/:TSEQ   4264/:TSEQ   4267/:TSEQ   4799/:TSEQ   5184/:TSEQ
      6858/:TSEQ   9758-:TSEQEQU
   TIOF7           2150/:TSEQ   2151/:TSEQ   2160/:TSEQ   2163/:TSEQ   2166/:TSEQ   2169/:TSEQ   2176/:TSEQ
      2180/:TSEQ   2182/:TSEQ   2185/:TSEQ   2195/:TSEQ   4058/:TSEQ   4264/:TSEQ   4267/:TSEQ   4799/:TSEQ
      5184/:TSEQ   6777/:TSEQ   9758-:TSEQEQU
   TIOT0           7073/:TSEQ   9759-:TSEQEQU
   TIOT1           2151/:TSEQ   6777/:TSEQ   9759-:TSEQEQU
   TIOT2           2151/:TSEQ   6777/:TSEQ   9759-:TSEQEQU
   TIOT3           2150/:TSEQ   2151/:TSEQ   2160/:TSEQ   2163/:TSEQ   2166/:TSEQ   2169/:TSEQ   2176/:TSEQ
      2180/:TSEQ   2182/:TSEQ   2185/:TSEQ   2195/:TSEQ   2519/:TSEQ   4058/:TSEQ   4264/:TSEQ   4267/:TSEQ
      4799/:TSEQ   5184/:TSEQ   6777/:TSEQ   6858/:TSEQ   9759-:TSEQEQU
   TIOT4           2180/:TSEQ   4058/:TSEQ   4267/:TSEQ   4799/:TSEQ   6594/:TSEQ   9759-:TSEQEQU
   TIOT5           2151/:TSEQ   6777/:TSEQ   9759-:TSEQEQU
   TIOT6           2151/:TSEQ   6777/:TSEQ   9759-:TSEQEQU
   TIOT7           9759-:TSEQEQU
   TITLE            0.4-EQU    455.1/TITLE 2142.1/TEXTC
   TLODD          10020/DATA   10093-TEXT
   TMBYTE          2657/STB     2708/LB      2752/LB      2756/STB     2769/STB     2924/STB     2967/STB
      3102/STB     3210/STB     3352/STB     3476/STB     3609/STB     3757/STB     3908/STB     4068/STB
      4137/STB     4214/STB     4274/STB     4389/STB     4481/STB     4564/STB     4645/STB     4715/STB
      4807/STB     4890/STB     4959/STB     5018/STB     5081/STB     5192/STB     5300/STB     5448/STB
      5529/STB     5620/STB     5725/STB     5742/STB     5812/STB     5963/STB     6059/STB     6078/STB
      6090/STB     6192/STB     6247/STB     6263/STB     6283/STB     6318/STB     6361/STB     6377/STB
      6389/STB     6402/STB     6447/STB     6463/STB     6475/STB     6540/STB     6599/STB     9878/LB
     10413/CW     10423/LW     10435/STB    10446-DATA   10449/GEN    10453/GEN    10455/GEN    10457/GEN
     10459/GEN    10461/GEN    10771/LB
   TMBYTER         2659/STB     3104/STB    10447-DATA   10451/GEN    10463/GEN
   TMBYTE1         7646-DATA
   TMBYTE2         7647-DATA
   TMBYTE3         7648-DATA
   TMBYTE55        6539/LB      6588-DATA
   TMFLAG          2477/STW    10415/STW    10767/CW     10770/STW    10784-DATA
   TMMSG          10775/STH    10777/DATA   10783-TEXTC
   TRANSERR       10094-TEXT
   TRANSM         10014/DATA   10018/DATA   10095-TEXT
   TRANSMEM       10014/DATA   10096-TEXT
   TSEQ1           2149-:TSEQ   3343/EQU     3467/EQU     3597/EQU     3748/EQU     3899/EQU     4054/EQU
      4381/EQU     4797/EQU     4879/EQU     4951/EQU     6857/EQU     7161/EQU     7283/EQU     7461/EQU
   TSEQ11          2157-:TSEQ   3750/EQU     3901/EQU     4056/EQU     4383/EQU
   TSEQ12          2158-:TSEQ   3751/EQU     3902/EQU     4057/EQU
   TSEQ13          2159-:TSEQ   4266/EQU     5404/EQU     5606/EQU     5790/EQU     6422/EQU     6492/EQU
   TSEQ14          2160-:TSEQ   4475/EQU     4555/EQU     4638/EQU     4704/EQU
   TSEQ15          2163-:TSEQ   4639/EQU     5012/EQU     5293/EQU
   TSEQ16          2166-:TSEQ   4131/EQU     4207/EQU     4798/EQU     4880/EQU     4953/EQU     5604/EQU
      5787/EQU     6227/EQU
   TSEQ17          2169-:TSEQ   4130/EQU     4208/EQU     4881/EQU     5791/EQU
   TSEQ18          2172-:TSEQ   2421/LI      6153/EQU     6421/EQU     6491/EQU
   TSEQ19          2173-:TSEQ
   TSEQ2           2150-:TSEQ   3346/EQU     3470/EQU     3601/EQU     3749/EQU     3900/EQU     4055/EQU
      4382/EQU
   TSEQ20          2174-:TSEQ   2449/LI
   TSEQ21          2175-:TSEQ   5186/EQU     5413/EQU     5603/EQU     5788/EQU     5939/EQU     6228/EQU
      6296/EQU
   TSEQ23          2176-:TSEQ   6859/EQU
   TSEQ24          2178-:TSEQ   2442/LI      5412/EQU
   TSEQ25          2179-:TSEQ   2437/LI      5410/EQU     5411/EQU
   TSEQ26          2180-:TSEQ   6860/EQU
   TSEQ27          2182-:TSEQ   2261/LI      7158/EQU     7535/EQU
   TSEQ28          2185-:TSEQ   7278/EQU     7492/EQU
   TSEQ29          2188-:TSEQ   6861/EQU     7162/EQU     7281/EQU     7536/EQU
   TSEQ30          2189-:TSEQ   7493/EQU
   TSEQ31          2190-:TSEQ   2445/LI      5419/EQU
   TSEQ34          2191-:TSEQ   2407/LW
   TSEQ35          2192-:TSEQ   2435/LW
   TSEQ36          2193-:TSEQ   2409/LI
   TSEQ37          2194-:TSEQ   2414/LI
   TSEQ38          2195-:TSEQ   2283/LI
   TSEQ4           2151-:TSEQ   3344/EQU     4952/EQU
   TSEQ5           2152-:TSEQ   3342/EQU     3466/EQU     3596/EQU     5181/EQU     5600/EQU     5782/EQU
   TSEQ57          6624/LW      6710-DATA
   TSEQ6           2153-:TSEQ   3345/EQU     3600/EQU     5182/EQU     5601/EQU
   TSEQ7           2154-:TSEQ
   TSEQ8           2155-:TSEQ   3468/EQU
   TSEQ89          6619/LW      6711-DATA
   TSEQ9           2156-:TSEQ   3469/EQU     3599/EQU     5185/EQU     5784/EQU
   TSTCTZMG        8349/DATA    8757-TEXTC
   TSTFLAG         2344/STW     2357-DATA    2374/STW     2501/CW      7673/STW     7693/CW      8053/STW
      8225/CW
   TSTP1           7586/STW     7588/LW      7599/LW      7611/MTW     7612/LW      7642-DATA    8056/STW
      8064/LW      8065/CW      8084/LW      8088/LW      8646/STW     8649/MTW     8652/LW
   TST0             163/DATA    2089/:PROCDIC             2343-LI      2354/B
   TST0A           2349-LI      2502/BNE
   TST0ADDR         163-DATA
   TST0B           2352-BAL     7694/BNE
   TST1             183/DATA    2090/:PROCDIC             2374-STW
   TST1ADDR         183-DATA
   TST1ALT         2348/B       2377-LW      2505/B
   TST1ERR         3624/STW     3643/STW     3673/STW     3695/STW     3709/STW     3714/CW      3728/STW
      3771/STW     3793/STW     3823/STW     3845/STW     3860/STW     3882/STW     3887/CW      3922/STW
      3950/STW     3974/STW     3996/STW     4012/STW     4036/STW     4041/CW      6049/STW     6057/STW
      6073/STW     6088/STW     6115/CW      6352/STW     6359/STW     6375/STW     6387/STW     6412/STW
      6413/LW      6609/STW     6652/MTW     6682/LW      6790/STW     6821/STW     6826/STW     6847/CW
      7085/STW     7107/STW     7115/STW     7138/STW     7147/CW      7178/STW     7198/STW     7212/STW
      7223/STW     7241/CW      7258/CW      7303/STW     7334/CW      7627-DATA
   TST1EXP         2660/STB     2709/CB      2757/STB     6618/STW     6623/STW     6656/CW      6672/LW
      7625-DATA
   TST1FLAG        7175/STW     7188/AW      7200/AW      7214/AW      7225/AW      7231/CW      7248/STW
      7587/STW     7644-DATA    8058/STW     8093/CW      8572/CW      8609/CW      8647/STW
   TST1FLGM        2254/STW     2266/STW     2270/STW     2276/STW     2288/STW     2462/LW      2466/LW
      4968/CW      5225/CW      5322/CW      5540/CW      6075/CW      6831/CW      7640-DATA    8216/CW
      8280/CW      9550/CW      9868/LW      9871/CW      9887/CW      9895/CW     10485/CW     10513/CW
     10520/CW     10591/CW
   TST1FLG1        2376/STW     2471/STW     2507/CW      2518-DATA
   TST1G           2469/AND     2494/LW      2523-DATA
   TST1INDX        2589/STW     2590/LW      2638/MTW     2639/LW      2642/CW      2768/STW     2794/LW
      2810/LW      2844/LW      2885/LW      2896/CW      2898/MTW     2965/STW     2988/CW      2990/STW
      2992/STW     3030/LW      3051/LW      3072/LW      3617/STW     3625/LW      3644/LW      3667/LW
      3719/MTW     3720/LW      3769/STW     3774/LW      3794/LW      3817/LW      3892/MTW     3893/LW
      3916/STW     3919/LW      3937/CW      3969/CW      4032/LW      4047/MTW     4048/LW      4076/STW
      4077/LW      4084/LW      4101/CW      4105/LW      4123/MTW     4124/LW      4146/STW     4150/CW
      4154/LW      4161/LW      4178/CW      4182/LW      4187/CW      4200/MTW     4201/LW      4222/STW
      4224/LW      4230/CW      4257/MTW     4258/LW      4282/STW     4288/LW      4304/LW      4374/MTW
      4375/LW      4398/STW     4449/LW      4458/MTW     4459/LW      4490/STW     4548/MTW     4549/LW
      4561/STW     4576/LW      4622/MTW     4623/LW      4634/STW     4816/STW     4824/LW      4840/LW
      4868/MTW     4869/LW      4874/STW     4898/STW     4899/LW      4915/LW      4944/MTW     4945/LW
      5043/STW     5048/MTW     5049/LW      5064/LW      5202/STW     5204/LW      5277/AWM     5278/LB
      5316/STW     5317/LW      5333/CW      5370/MTW     5371/LW      5612/STW     5613/CW      5670/CW
      5755/MTW     5757/CW      5828/STW     5829/LW      5866/MTW     5867/LW      6034/STW     6103/MTW
      6107/CW      6118/LW      6236/STW     6432/STW     6443/MTW     6444/LW      6500/STW     6519/MTW
      6521/LW      6530/STW     6538/LW      6554/LW      6575/MTW     6576/LW      6610/STW     6614/LW
      6643/LW      6658/LW      6690/LW      6697/CW      6703/MTW     6722/STW     6723/LW      6745/MTW
      6746/LW      6772/MTW     6773/LW      6786/STW     6787/LW      6822/LW      6833/CW      6852/MTW
      6853/LW      6867/STW     6895/LW      6911/LW      6946/LW      6986/LW      6997/CW      6999/MTW
      7083/STW     7088/LW      7120/LW      7152/MTW     7153/LW      7171/STW     7179/LW      7272/MTW
      7273/LW      7499/STW     7501/SLS*    7522/AW      7530/MTW     7531/LW      7549/STW     7553/LW
      7556/MTW     7557/LW      7563/LW      7574/LW      7624-DATA
   TST1IND1        2966/STW     2993/MTW     2994/CW      3001/CW      3027/CW      4562/STW     4620/LW
      4626/MTW     4627/LW      5041/STW     5046/CW      5063/STW     5067/LW      5201/STW     5281/MTW
      5282/LW      5319/STW     5341/MTW     5831/STW     5841/MTW     6032/STW     6040/CW      6042/CW
      6044/CW      6046/CW      6105/LW      6109/MTW     6110/LW      6501/STW     6503/LB      6506/STW
      6520/MTW     6611/STW     6632/LW      6660/CW      6695/STW     7626-DATA
   TST1LMT         2392/STD     2396/STW     2398/STW     2468/LW      2481/LW      2488/CW      2497/MTW
      2498/LW      2499/CW      2509/LW      2517-DATA    9471/LW
   TST1MAXT        5050/CW      7623-DATA
   TST1MINT        5065/CLM     7622-DATA
   TST1MSG1        3646/STW     3648/DATA    3796/STW     3798/DATA    7651-TEXTC
   TST1MSG2        4104/STH     4107/STH     4109/DATA    4181/STH     4184/STH     4186/DATA    7652-TEXTC
   TST1MSG3        7653-TEXTC  10696/STH    10699/STH    10701/DATA
   TST1MSG4        2511/STH     2513/DATA    7654-TEXTC
   TST1PATN        4400/STW     4402/LW      4451/LW      4453/STW     4491/STW     4493/LW      4540/AWM
      4541/LW      6608/STW     6626/LW      6687/LB      6693/STW     6702/STW     7628-DATA
   TST1SAVE        7641-DATA
   TST101          2381-STW     2386/BG      2391/B       2395/BNE
   TST102          2378/BEZ     2394-CW
   TST103          2393/B       2399-LH
   TST104          2479-BAL
   TST105          2497-MTW     2508/BE      2520/EQU
   TST1051         2470/BEZ     2507-CW
   TST107          2405/BE      2407-LW
   TST108          2401/BE      2403/BE      2435-LW
   TST109          2406/B       2434/B       2462-LW      2486/LI      2500/BLE
   TST11           2523/DATA    2544-HIO     2582/B
   TST110          2523/DATA    3204-B
   TST111          2523/DATA    3209-LI      3340/B
   TST112          2523/DATA    3351-LI      3464/B
   TST113          2523/DATA    3475-LI      3594/B
   TST114          2523/DATA    3603-B
   TST115          2523/DATA    3608-LI
   TST116          2523/DATA    3756-LI
   TST117          2523/DATA    3907-LI
   TST118          2523/DATA    4061-B
   TST119          2523/DATA    4062-B
   TST12           2523/DATA    2588-LI      2646/B       2652/B
   TST120          2523/DATA    4067-LI
   TST121          2523/DATA    4136-LI
   TST122          2523/DATA    4213-LI
   TST123          2523/DATA    4273-LI
   TST124          2523/DATA    4388-LI
   TST125          2523/DATA    4480-LI
   TST126          2523/DATA    4560-LI
   TST127          2523/DATA    4644-LI
   TST128          2523/DATA    4707-B
   TST129          2523/DATA    4708-B
   TST13           2523/DATA    2657-STB
   TST130          2523/DATA    4709-B
   TST131          2523/DATA    4714-LI
   TST132          2523/DATA    4806-LI
   TST133          2523/DATA    4883-B
   TST134          2523/DATA    4884-B
   TST135          2523/DATA    4889-LI
   TST136          2523/DATA    4958-LI
   TST137          2523/DATA    5017-LI
   TST138          2523/DATA    5074-B
   TST139          2523/DATA    5075-B
   TST14           2523/DATA    2767-LI
   TST140          2523/DATA    5080-LI      5179/B
   TST141          2523/DATA    5191-LI
   TST142          2523/DATA    5297-LI
   TST143          2523/DATA    5437-BAL     5445/B       5597/B
   TST144          2523/DATA    5611-LI
   TST145          2523/DATA    5797-LI
   TST146          2523/DATA    5958-LI
   TST147          2523/DATA    6031-LI
   TST148          2523/DATA    6160-LI      6223/B
   TST149          2523/DATA    6233-LI
   TST15           2523/DATA    2923-LI
   TST150          2523/DATA    6302-LI
   TST151          2523/DATA    6341-B
   TST152          2523/DATA    6346-LI
   TST153          2523/DATA    6427-LI
   TST154          2523/DATA    6497-LI
   TST155          2523/DATA    6529-LI
   TST156          2523/DATA    6598-LI
   TST157          2523/DATA    6717-B
   TST158          2523/DATA    6721-LI
   TST159          2523/DATA    6779-B
   TST16           2523/DATA    2964-LI
   TST160          2523/DATA    6784-LI
   TST161          2523/DATA    6866-LI
   TST162          2523/DATA    7024-LW      7057/B
   TST163          2523/DATA    7079-LI
   TST164          2523/DATA    7167-LI
   TST165          2523/DATA    7288-LI
   TST166          2523/DATA    7341-LI
   TST167          2523/DATA    7462-B
   TST168          2523/DATA    7467-LI
   TST169          2523/DATA    7498-LI      7533/BLE
   TST17           2523/DATA    3102-STB
   TST170          2523/DATA    7541-LI
   TST171          2523/DATA    7548-LI
   TST172          2523/DATA    7579-B
   TST173          2523/DATA    7585-LI
   TST173A         7597-LW      8094/BE
   TST18           2523/DATA    3202-B
   TST19           2523/DATA    3203-B
   TST2             201/DATA    2091/:PROCDIC             7673-STW
   TST2ADDR         201-DATA
   TST2ALT         2351/B       7682-LW      7688/LI      7698/B
   TST2FLG         8006-DATA
   TST2LINE        7764/STW     7783/MTW     7825/STW     7842/MTW     7871/STW     7890/MTW     7914/STW
      7919/MTW     7964/CW      8013-RES
   TST2LOOP        7759/STW     7800/MTW     7815/STW     7844/MTW     7867/STW     7892/MTW     7912/STW
      7924/MTW     7966/LW      8012-RES
   TST2MSG         7712/LI      8022-TEXT
   TST2RTN         7736/STW     7746/B*      7755/STW     7802/B*      7811/STW     7845/BGEZ*   7857/STW
      7893/BGEZ*   7907/STW     7927/BE*     7984/STW     7998/B*      8007-RES
   TST2X1          7762/STD     7779/CLM     7789/AWM     7911/STW     7926/CW      7928/STW     7932/CW
      8015-RES
   TST2X2          7790/AWM     8016-RES
   TST3             211/DATA    2092/:PROCDIC             8045-LW      8072/LI      8098/B
   TST3A           8091-MTW     8118/BAL     8143/BAL     8195/BAL     8378/BAL     8416/BAL     8464/BAL
      8709/BAL
   TST3ADDR         211-DATA
   TST3B           8093-CW      8345/B       8537/BG      8558/B       8613/BGE     8621/B       8624/B
   TST3C           7595/B       8061/BG      8064-LW
   TST3CNT         8190/STW     8196/MTW     8373/STW     8380/MTW     8394/STW     8395/LCW     8498/STW
      8518/LW      8529/MTW     8531/LW      8579/STW     8588/LW      8592/LW      8614/MTW     8615/LW
      8704/STW     8710/MTW     8723-DATA
   TST3D           8062-LW      8648/B       8654/BL      8657/BLE
   TST3LINE        7590/STW     8063/STW     8091/MTW     8676/STW     8724-DATA
   TST3TST         8089/LW      8743-DATA
   TST30            212/DATA    8110-LI      8743/DATA
   TST30ADR         212-DATA
   TST31            213/DATA    8130-LW      8744/DATA
   TST31ADR         213-DATA
   TST310           222/DATA    8673-CB      8753/DATA
   TST310AD         222-DATA
   TST31001        8674/BLE     8677-LI
   TST31002        8705-LI      8713/B
   TST31003        8682-LI      8693/BIR
   TST31004        8683-STW     8689/BL
   TST31005        8680/BNE     8695-LW
   TST31006        8694/B       8699-LI
   TST31007        8701-LI      8711/BGEZ
   TST3101         8139-LI      8149/B       8151/B
   TST32            214/DATA    8164-LI      8745/DATA
   TST32ADR         214-DATA
   TST3201         8181/B       8187-LI      8197/BGEZ
   TST3202         8191-LI      8199/B
   TST3203         8169-LI      8180/BIR
   TST3204         8170-STW     8176/BL
   TST3205         8167/BNE     8182-LW
   TST33            215/DATA    8212-LW      8746/DATA
   TST33ADR         215-DATA
   TST33CT         8256/STW     8273/LW      8294/SW      8714/MTW     8719-DATA
   TST33CTR        8347-BAL     8718/DATA
   TST33CTZ        8214/LW      8715-XPSD
   TST33MSG        8306/STW     8321/STW     8324/STW     8329/LI      8755-TEXT
   TST33MTW        8212/LW      8714-MTW
   TST33PT         8295/STW     8300/AW      8309/LW      8311/CW      8313/LW      8315/CW      8317/LW
      8722-RES
   TST33SAV        8274/STW     8293/LW      8720-DATA
   TST33X          8721-DATA
   TST33Z          8715/XPSD    8717-DATA
   TST3301         8217/BNE     8239-LI      8246/BGE     8247/B
   TST33011        8220/BNE     8222/BEZ     8224/BLE     8226/BNE     8231-LI
   TST3302         8267-LW      8296/BIR
   TST33021        8281/BNE     8293-LW
   TST3303         8311-CW      8318/BIR
   TST3304         8314/B       8316/BLE     8318-BIR
   TST3305         8266/B       8272/B       8279/B       8287/B       8292/B       8342-BAL
   TST34            216/DATA    8363-LI      8747/DATA
   TST34ADR         216-DATA
   TST3401         8370-LI      8382/B
   TST3402         8374-LI      8381/BGZ
   TST35            217/DATA    8393-LW      8419/B       8748/DATA
   TST35ADR         217-DATA
   TST3501         8395-LCW     8418/BLZ
   TST36            218/DATA    8434-LW      8749/DATA
   TST36ADR         218-DATA
   TST36MSG        8438/DATA    8758-TEXTC
   TST3601         8448-LB      8454/BL
   TST3602         8457/BL      8461-LI      8467/BL      8469/BGZ
   TST3603         8459-LW      8471/BEZ     8480/B
   TST3604         8458/BE      8481-LI
   TST37            219/DATA    8497-LI      8750/DATA
   TST37ADR         219-DATA
   TST37M1         8501/LB      8503/LI      8759-TEXTC
   TST37M2         8511/LI      8760-TEXT
   TST37M3         8520/STH     8521/LB      8523/LI      8762-TEXTC
   TST37TP         8541/LB      8543/LI      8763-TEXTC
   TST3701         8518-LW      8536/BLE     8539/BL      8552/B       8556/BL
   TST3702         8541-LB      8554/BE      8557/BE
   TST3703         8540/BG      8553-CI
   TST3704         8534/BNE     8538-CI
   TST38            220/DATA    8572-CW      8751/DATA
   TST38ADR         220-DATA
   TST38MSG        8591/STH     8595/LB      8597/LI      8764-TEXTC
   TST3801         8599-LI
   TST3802         8588-LW      8620/BLE     8623/BLE     8626/BNE     8629/BNE     8632/B
   TST3803         8618/BNE     8622-CI
   TST3804         8573/BLE     8578-LI
   TST3805         8583/BLE     8625-CW
   TST39            221/DATA    8645-LI      8660/B       8752/DATA
   TST39ADR         221-DATA
   TST3901         8095/BL      8649-MTW     8655/BE
   T1BCMSG         6671/STW     6674/STW     6676/DATA    6716-TEXTC
   T1IOCDX         6631/STW     6635/LW      6714-DATA
   T1M01           2549/B       2555-BAL
   T1M02           2558/B       2564-BAL
   T1M03           2567/B       2573-BAL
   T1M04           2553/B       2562/B       2571/B       2580-BAL
   T1TSEQ          2198-DATA    2408/STW     2436/STW     3693/DATA    3843/DATA    3994/DATA    4937/DATA
   T1TSEQ1         2491/DATA    2519-:TSEQ
   T11M01          3212/B       3219-HIO     3230/B
   T11M02          3224/B       3231-STB
   T11M03          3234/BCS     3240-BAL
   T11M04          3238/B       3244-LW
   T11M05          3252/BE      3258-LB
   T11M06          3261/BE      3268-BAL
   T11M07          3248/B       3272-LW
   T11M08          3294/BCR     3301-BAL
   T11M09          3292/B       3305-LW
   T11M10          3311/BGEZ    3317-BAL
   T11M11          3309/B       3321-BAL
   T11M12          3323/B       3329-LB
   T11M13          3242/B       3256/B       3265/B       3270/B       3282/B       3287/B       3298/B
      3303/B       3315/B       3319/B       3327/B       3334-BAL
   T11M14          3330/BEZ     3337-BAL
   T11M15          3278/BGEZ    3285-BAL
   T11M16          3276/B       3288-LW
   T11M17          3336/B       3339-BAL
   T11SEQ1         3223/DATA    3275/DATA    3308/DATA    3342-EQU
   T11SEQ2         3237/DATA    3343-EQU
   T11SEQ3         3247/DATA    3344-EQU
   T11SEQ4         3291/DATA    3345-EQU
   T11SEQ5         3322/DATA    3346-EQU
   T12M01          3354/B       3360-BAL     3368/B
   T12M02          3362/B       3370-LI
   T12M03          3377/B       3383-LW
   T12M04          3387/B       3393-LW
   T12M05          3399/BCS     3406-BAL
   T12M06          3397/B       3410-BAL
   T12M07          3412/B       3418-LW
   T12M08          3424/BGEZ    3431-BAL
   T12M09          3422/B       3435-BAL
   T12M10          3441/BE      3447-HIO
   T12M11          3437/B       3453-LB
   T12M12          3381/B       3391/B       3403/B       3408/B       3416/B       3428/B       3433/B
      3445/B       3451/B       3458-BAL
   T12M13          3454/BEZ     3461-BAL
   T12M14          3460/B       3463-BAL
   T12SEQ1         3361/DATA    3386/DATA    3421/DATA    3466-EQU
   T12SEQ2         3376/DATA    3467-EQU
   T12SEQ3         3396/DATA    3468-EQU
   T12SEQ4         3411/DATA    3469-EQU
   T12SEQ5         3436/DATA    3470-EQU
   T13M01          3478/B       3484-BAL     3492/B
   T13M02          3486/B       3494-LI
   T13M03          3501/B       3507-LW
   T13M04          3511/B       3517-LW
   T13M05          3523/BCS     3530-BAL
   T13M06          3521/B       3534-LW
   T13M07          3538/B       3544-LW
   T13M08          3548/B       3554-LW
   T13M09          3558/B       3564-BAL
   T13M10          3570/BE      3576-HIO
   T13M11          3505/B       3515/B       3527/B       3532/B       3542/B       3552/B       3562/B
      3574/B       3580-BAL     3589/B
   T13M12          3566/B       3584-LB
   T13M13          3583/B       3585/BEZ     3591-BAL
   T13M14          3582/B       3593-BAL
   T13SEQ1         3485/DATA    3510/DATA    3557/DATA    3596-EQU
   T13SEQ2         3500/DATA    3597-EQU
   T13SEQ3         3520/DATA    3598-:TSEQ
   T13SEQ4         3537/DATA    3599-EQU
   T13SEQ5         3547/DATA    3600-EQU
   T13SEQ6         3565/DATA    3601-EQU
   T15M01          3611/B       3617-STW
   T15M02          3622-HIO     3718/B       3722/BLE
   T15M03          3632/B       3638-LW
   T15M04          3650/BCR     3656-CW
   T15M05          3657/BCS     3664-BAL
   T15M06          3642/B       3661/B       3667-LW
   T15M07          3675/BCR     3681-CW
   T15M08          3682/BCR     3690-BAL
   T15M09          3672/B       3679/B       3687/B       3692-BAL     3727/B       3734/B       3741/B
      3746/B
   T15M10          3697/BCR     3704-BAL
   T15M11          3694/B       3701/B       3707-LB
   T15M12          3708/BEZ     3714-CW
   T15M13          3636/B       3654/B       3716-BAL
   T15M14          3715/BNE     3719-MTW
   T15M15          3669/BNE     3725-BAL
   T15M16          3730/BCS     3736-CW
   T15M17          3737/BCR     3744-BAL
   T15SEQ1         3631/DATA    3748-EQU
   T15SEQ2         3641/DATA    3749-EQU
   T15SEQ3         3671/DATA    3750-EQU
   T15SEQ5         3726/DATA    3751-EQU
   T16M01          3759/B       3765-LI
   T16M02          3770-LI      3891/B       3895/BLE
   T16M03          3782/B       3788-LW
   T16M04          3800/BCR     3806-CW
   T16M05          3807/BCS     3814-BAL
   T16M06          3792/B       3811/B       3817-LW
   T16M07          3825/BCR     3831-CW
   T16M08          3832/BCS     3839-BAL
   T16M09          3822/B       3829/B       3836/B       3842-BAL     3859/B       3866/B       3873/B
      3878/B
   T16M10          3847/BCS     3854-BAL
   T16M11          3819/BNE     3857-BAL
   T16M12          3862/BCS     3868-CW
   T16M13          3869/BCR     3876-BAL
   T16M14          3844/B       3851/B       3856/B       3880-LB
   T16M15          3881/BEZ     3887-CW
   T16M16          3786/B       3804/B       3889-BAL
   T16M17          3888/BNE     3892-MTW
   T16SEQ1         3781/DATA    3899-EQU
   T16SEQ2         3791/DATA    3900-EQU
   T16SEQ3         3821/DATA    3901-EQU
   T16SEQ5         3858/DATA    3902-EQU
   T17M01          3910/B       3916-STW
   T17M02          3919-LW      4050/BLE
   T17M03          3921-LI      4045/B
   T17M04          3929/B       3935-LW
   T17M05          3952/BCR     3958-CW
   T17M06          3959/BCR     3966-BAL
   T17M07          3941/B       3945/B       3949/B       3963/B       3969-CW
   T17M08          3976/BCR     3982-CW
   T17M09          3983/BCS     3990-BAL
   T17M10          3973/B       3980/B       3987/B       3993-BAL     4011/B       4018/B       4025/B
      4030/B
   T17M11          3998/BCR     4005-BAL
   T17M12          3970/BNE     4009-BAL
   T17M13          4014/BCS     4020-CW
   T17M14          4021/BCR     4028-BAL
   T17M15          3995/B       4002/B       4007/B       4032-LW
   T17M16          4035/BE      4041-CW
   T17M17          3933/B       3956/B       4043-BAL
   T17M18          4042/BNE     4047-MTW
   T17SEQ1         3928/DATA    4054-EQU
   T17SEQ2         3940/DATA    4055-EQU
   T17SEQ3         3972/DATA    4056-EQU
   T17SEQ5         4010/DATA    4057-EQU
   T17SEQ6         3948/DATA    4058-:TSEQ
   T2CCOUNT        7684/STW     7691/MTW     8011-DATA
   T2EXEC          7690/BAL     7706-STW
   T2EXEC01        7721-BAL     7728/BLE
   T2EXRTN         7706/STW     7729/B*      8008-RES
   T2LCOUNT        7985/LW      8005-DATA
   T2MODIND        7967/LW      8018-DATA
   T2MODN          7720/STW     7722/LW      7725/MTW     7726/LW      8010-DATA
   T2MODPAT        7940/STB     7948/STB     7954/LB      7960/STB     7968/LH      8017-DATA
   T2MODRTN        7931/STW     7972/BGE*    8009-RES
   T2MODX          7723/LW      7999-DATA
   T2MOD0          7721/BAL     7736-STW     7999/DATA
   T2MOD1          7755-STW     8000/DATA
   T2MOD101        7760-LI      7801/BLZ
   T2MOD102        7767-BAL     7771/BIR
   T2MOD103        7773-LI      7791/B
   T2MOD104        7778-LB      7782/BIR
   T2MOD105        7780/BCS     7782-BIR
   T2MOD106        7784/BGEZ    7792-LI
   T2MOD2          7811-STW     8001/DATA
   T2MOD201        7824-LI      7843/BLZ     7850/B
   T2MOD3          7857-STW     8002/DATA
   T2MOD301        7870-LI      7898/B
   T2MOD302        7873-LI      7885/B
   T2MOD303        7883/BGE     7887-LI      7891/BLZ
   T2MOD4          7907-STW     8003/DATA
   T2MOD401        7913-LI      7920/BLZ     7925/BGZ     7929/B
   T2MOD402        7915/BAL     7931-STW
   T2MOD403        7933/BE      7946-LI
   T2MOD404        7944/B       7953-LI      7957/BIR     7961/B
   T2MOD405        7956/BCR     7959-BAL
   T2MOD406        7958/B       7962-LI
   T2MOD407        7966-LW      7973/BIR     7977/B
   T2MOD408        7965/BLE     7974-LH
   T2MOD409        7939-LB      7943/BIR
   T2MOD411        7947-BAL     7951/BL
   T2MOD5          7984-STW     8004/DATA
   T2MOD501        7986-BAL     7997/BDR
   T2M01           2599/BCR     2606-BAL
   T2M02           2596/B       2610-LI
   T2M03           2618/BCR     2626-BAL
   T2M04           2615/B       2630-LB
   T2M05           2632/BE      2638-MTW     2643/BCS     2645/BCS     2650/B
   T2M06           2603/B       2608/B       2623/B       2628/B       2636/B       2647-BAL
   T20M01          4070/B       4076-STW
   T20M02          4077-LW      4126/BLE
   T20M03          4079-HIO     4122/B
   T20M04          4086/BNE     4091-BAL
   T20M05          4090/B       4095-BAL
   T20M06          4089/B       4093/B       4099-TDV
   T20M07          4111/BNEZ    4118-BAL
   T20M08          4097/B       4115/B       4120-BAL
   T20M09          4102/BE      4123-MTW
   T20SEQ1         4092/DATA    4130-EQU
   T20SEQ2         4088/DATA    4131-EQU
   T21M01          4139/B       4145-LI
   T21M02          4150-CW      4203/BLE
   T21M03          4151/BE      4154-LW
   T21M04          4156-HIO     4199/B
   T21M05          4163/BE      4168-BAL
   T21M06          4167/B       4172-BAL
   T21M07          4166/B       4170/B       4176-TDV
   T21M08          4188/BNE     4195-BAL
   T21M09          4174/B       4192/B       4197-BAL
   T21M10          4179/BE      4200-MTW
   T21SEQ1         4169/DATA    4207-EQU
   T21SEQ2         4165/DATA    4208-EQU
   T22M01          4216/B       4222-STW
   T22M02          4223-HIO     4256/B       4260/BLE
   T22M03          4234/B       4242/B       4248-BAL
   T22M04          4238/B       4246/B       4254-BAL
   T22M05          4250/B       4257-MTW
   T22SEQ1         4241/DATA    4264-:TSEQ
   T22SEQ2         4249/DATA    4266-EQU
   T22SEQ3         4233/DATA    4267-:TSEQ
   T23M01          4276/B       4282-STW
   T23M02          4290-HIO     4302/B       4361/B       4372/B
   T23M03          4283-LI      4377/BLE
   T23M04          4296/B       4304-LW
   T23M05          4314/BNE     4320-CW
   T23M06          4321/BCS     4328-BAL
   T23M07          4310/B       4332-BAL
   T23M08          4336/BCR     4342-CW
   T23M09          4343/BCR     4350-BAL
   T23M10          4334/B       4354-LB
   T23M11          4318/B       4325/B       4330/B       4340/B       4347/B       4352/B       4370-BAL
   T23M12          4355/BEZ     4362-LI
   T23M13          4366/B       4374-MTW
   T23SEQ1         4295/DATA    4381-EQU
   T23SEQ2         4309/DATA    4382-EQU
   T23SEQ3         4333/DATA    4383-EQU
   T24M01          4391/B       4397-LI
   T24M02          4401-LI      4457/BCR
   T24M03          4405-HIO     4418/B       4448/B       4455/BCS     4471/B
   T24M04          4412/B       4420-LI
   T24M05          4424-HIO     4438/B
   T24M06          4432/B       4439-STW
   T24M07          4442/B       4449-LW
   T24M08          4450/BNEZ    4458-MTW
   T24M09          4461/BG      4472-BAL
   T24SEQ1         4411/DATA    4431/DATA    4475-EQU
   T25M01          4483/B       4489-LI
   T25M02          4492-LI      4547/B       4551/BLE
   T25M03          4496-HIO     4509/B       4538/B       4546/BCS
   T25M04          4503/B       4511-LI
   T25M05          4514-HIO     4528/B
   T25M06          4522/B       4529-STW
   T25M08          4536-BAL
   T25M09          4532/B       4539-LW
   T25SEQ1         4502/DATA    4521/DATA    4555-EQU
   T26M01          4563-LI      4625/BL      4635/B
   T26M02          4566/B       4572-LI
   T26M03          4579-HIO     4618/B
   T26M04          4586/B       4591-LI
   T26M05          4594-LI      4607/B
   T26M06          4601/B       4609-STW
   T26M061         4590/B       4605-BAL
   T26M07          4612/B       4619-BAL
   T26M08          4621/BNEZ    4626-MTW
   T26M09          4629/BG      4636-B
   T26SEQ1         4585/DATA    4638-EQU
   T26SEQ2         4600/DATA    4639-EQU
   T27M01          4647/B       4653-LI
   T27M02          4657-HIO     4670/B       4700/B
   T27M03          4664/B       4671-HIO     4689/B
   T27M04          4683/B       4690-LI
   T27M05          4694/B       4701-BAL
   T27SEQ1         4663/DATA    4682/DATA    4704-EQU
   T3LINE1         8460/STW     8468/MTW     8472/STW     8478/MTW     8725-DATA
   T3M01           2661-HIO     2758/B       2761/B
   T3M02           2666/B       2673-LW
   T3M03           2681/BCR     2688-LB
   T3M04           2690/BCR     2697-BAL
   T3M05           2678/B       2701-LB
   T3M06           2702/BEZ     2708-LB
   T3M07           2710/BE      2716-TDV
   T3M08           2718/BCS     2724-LI
   T3M09           2728/B       2734-LW
   T3M10           2739/B       2745-TDV
   T3M11           2746/BCR     2752-LB      2762/B
   T3M12           2671/B       2686/B       2694/B       2699/B       2706/B       2714/B       2722/B
      2732/B       2743/B       2750/B       2759-BAL
   T31M01          4717/B       4723-LI
   T31M02          4725-HIO     4737/B       4748/B       4756/B
   T31M03          4726-LI      4760/BNE
   T31M04          4731/B       4738-LW
   T31M05          4742/B       4749-BAL
   T31M06          4750/B       4757-MTB
   T31M07          4765-HIO     4793/B
   T31M08          4772/B       4778-LH
   T31M09          4776/B       4784/B       4791-BAL
   T31M10          4787/B       4794-BAL
   T31M11          4780/BE      4785-BAL
   T31SEQ1         4730/DATA    4797-EQU
   T31SEQ2         4741/DATA    4798-EQU
   T31SEQ4         4771/DATA    4799-:TSEQ
   T31SEQ5         4786/DATA    4801-:TSEQ
   T32M01          4809/B       4815-LI
   T32M02          4821-BAL     4875/B
   T32M03          4823-HIO     4837/B       4859/B       4867/B
   T32M04          4831/B       4838-LW
   T32M05          4842/BE      4851-BAL
   T32M06          4849/B       4857-BAL
   T32M07          4845/B       4853/B       4860-BAL
   T32M08          4861/B       4868-MTW
   T32M09          4871/BE      4876-BAL
   T32SEQ1         4830/DATA    4879-EQU
   T32SEQ2         4852/DATA    4880-EQU
   T32SEQ3         4844/DATA    4881-EQU
   T35M01          4892/B       4898-STW
   T35M02          4899-LW      4947/BLE
   T35M03          4901-HIO     4913/B       4934/B
   T35M05          4907/B       4915-LW
   T35M06          4923/BCR     4930-BAL
   T35M07          4927/B       4932-BAL     4942/B
   T35M08          4921/B       4936-BAL
   T35M09          4935/B       4938/B       4944-MTW
   T35SEQ1         4906/DATA    4951-EQU
   T35SEQ2         4952-EQU
   T35SEQ3         4920/DATA    4953-EQU
   T36M01          4969/BNE     4977-LI
   T36M02          4978-LB      4981/BIR
   T36M03          4984-HIO     4998/B       5008/B
   T36M04          4992/B       4999-STW
   T36M05          5002/B       5009-BAL
   T36M07          4961/B       4967-LW
   T36M08          4970-LI
   T36M081         4972-MTW     4975/BIR
   T36M09          4976/B       4982-LI
   T36SEQ1         4991/DATA    5012-EQU
   T37MSG          5053/DATA    5071-TEXTC
   T37M01          5020/B       5026-LW
   T37M02          5028-HIO     5059/B
   T37M03          5034-BDR     5040/BE
   T37M04          5042-LI      5068/BNEZ
   T37M05          5044-TIO     5051/BLE
   T37M051         5035/B       5052-BAL     5066/BCS
   T37M06          5055-BAL
   T37M07          5047/BNE     5061-LW
   T37M08          5060/B       5069-BAL
   T4M01           2770-HIO     2899/B       2917/B
   T4M02           2783/BLZ     2790-BAL
   T4M03           2781/B       2794-LW
   T4M04           2795/BNEZ    2805-HIO
   T4M05           2799/B       2806-BAL
   T4M06           2811/BNEZ    2818-BAL
   T4M07           2809/B       2822-LI
   T4M08           2833/BLZ     2840-BAL
   T4M09           2831/B       2844-LW
   T4M10           2845/BNEZ    2855-HIO
   T4M101          2849/B       2856-BAL
   T4M11           2859/B       2865-LI
   T4M12           2874/BLZ     2881-BAL
   T4M13           2872/B       2885-LW
   T4M14           2896-CW      2904/B       2918/B
   T4M15           2886/BNEZ    2900-HIO
   T4M151          2890/B       2901-BAL
   T4M16           2906/BCS     2913-BAL
   T4M17           2787/B       2792/B       2803/B       2815/B       2820/B       2837/B       2842/B
      2853/B       2863/B       2878/B       2883/B       2894/B       2910/B       2915-BAL
   T40M01          5083/B       5089-LI
   T40M02          5093-HIO
   T40M03          5100/B       5106-LW
   T40M04          5110/B       5116-LW
   T40M05          5123/BCS     5129-CW
   T40M06          5130/BCS     5137-BAL
   T40M07          5121/B       5141-LW
   T40M08          5145/B       5151-BAL
   T40M09          5153/B       5159-BAL
   T40M10          5104/B       5114/B       5127/B       5134/B       5139/B       5149/B       5157/B
      5165/B       5173-BAL
   T40M11          5161/B       5166-BAL
   T40M12          5175/B       5178-BAL
   T40SEQ1         5099/DATA    5152/DATA    5181-EQU
   T40SEQ2         5109/DATA    5182-EQU
   T40SEQ3         5120/DATA    5183-:TSEQ
   T40SEQ4         5160/DATA    5184-:TSEQ
   T40SEQ5         5144/DATA    5185-EQU
   T40SEQ6         5168/DATA    5186-EQU
   T41M01          5194/B       5200-LI
   T41M02          5203-LI      5280/BL
   T41M03          5207-HIO     5275/B       5289/B
   T41M04          5218/BCR     5224-TDV
   T41M05          5228/BCR     5231/BCR     5238-BAL
   T41M06          5215/B       5242-LI
   T41M07          5252/B       5258-LI
   T41M08          5222/B       5235/B       5240/B       5256/B       5273-BAL
   T41M09          5271-BAL
   T41M10          5269/B       5276-LW
   T41M11          5284/BG      5290-BAL
   T41SEQ1         5214/DATA    5251/DATA    5293-EQU
   T42CT           2425/STW     2453/STW     5318/LH*     5389-DATA
   T42CT1          2452/LI      5392-DATA
   T42CT2          2424/LI      5420-DATA
   T42EXP          2427/STW     2455/STW     5328/STW     5339/CB*     5390-DATA
   T42EXP1         2454/LI      5394-DATA
   T42EXP2         2426/LI      5422-DATA
   T42EXP3         5327/LI      5396-DATA
   T42M01          5299-LI      5362/BLE     5369/B       5387/B
   T42M02          5302/B       5308-LI
   T42M03          5317-LW      5373/BLE
   T42M04          5320-TDV     5342/BGZ
   T42M041         5326/BL      5332/B       5338-LB
   T42M042         5323/BE      5333-CW
   T42M05          5347/STW     5350-DATA
   T42M06          5345/STW     5354-DATA
   T42M07          5357/B       5364-HIO
   T42M08          5340/BE      5370-MTW
   T42M09          5377/B       5384-HIO
   T42M10          5383/B       5386-HIO
   T42M11          5359-MTB     5385/B
   T42SEQ          2429/STW     2457/STW     5330/STW     5346/LW*     5391-DATA
   T42SEQA         2456/LI      5398-DATA
   T42SEQB         2428/LI      5425-DATA
   T42SEQC         5329/LI      5401-DATA
   T42SEQ0         5398/DATA    5404-EQU
   T42SEQ1         5398/DATA    5405-:TSEQ   5949/DATA
   T42SEQ10        5425/DATA    5428-:TSEQ   5942/DATA
   T42SEQ11        5425/DATA    5429-:TSEQ   5942/DATA
   T42SEQ12        5425/DATA    5430-:TSEQ   5942/DATA
   T42SEQ13        5425/DATA    5431-:TSEQ
   T42SEQ14        5426/DATA    5426/DATA    5426/DATA    5426/DATA    5427/DATA    5432-:TSEQ   5949/DATA
      5949/DATA    5950/DATA    5950/DATA    5950/DATA    5951/DATA
   T42SEQ19        5401/DATA    5401/DATA    5414-:TSEQ
   T42SEQ2         5398/DATA    5406-:TSEQ
   T42SEQ20        5401/DATA    5415-:TSEQ
   T42SEQ21        5401/DATA    5416-:TSEQ
   T42SEQ22        5402/DATA    5417-:TSEQ
   T42SEQ23        5402/DATA    5418-:TSEQ
   T42SEQ24        5402/DATA    5402/DATA    5403/DATA    5419-EQU
   T42SEQ3         5398/DATA    5407-:TSEQ
   T42SEQ4         5399/DATA    5408-:TSEQ
   T42SEQ5         5399/DATA    5409-:TSEQ
   T42SEQ6         5399/DATA    5410-EQU
   T42SEQ7         5399/DATA    5411-EQU
   T42SEQ8         5400/DATA    5412-EQU
   T42SEQ9         5376/DATA    5413-EQU
   T43M01          5439/B       5447-LI
   T43M011         5452-BAL
   T43M02          5450/B       5456-LI
   T43M03          5467/B       5473-LW
   T43M04          5477/B       5483-LW
   T43M05          5492/BE      5498-CW
   T43M06          5499/BCS     5505-CW
   T43M07          5506/BCS     5513-BAL
   T43M08          5488/B       5517-LW
   T43M09          5522/B       5528-LI
   T43M10          5531/B       5537-BAL
   T43M101         5545-BAL
   T43M11          5541/BE      5543/BCR     5550-BAL
   T43M12          5539/B       5554-BAL
   T43M13          5556/B       5562-LI
   T43M14          5579/B       5585-BAL
   T43M15          5471/B       5481/B       5496/B       5503/B       5510/B       5515/B       5526/B
      5535/B       5547/B       5552/B       5560/B       5583/B       5591-BAL
   T43M16          5587/B       5594-BAL
   T43M17          5593/B       5596-BAL
   T43SEQ1         5438/DATA    5599-:TSEQ
   T43SEQ2         5466/DATA    5600-EQU
   T43SEQ3         5476/DATA    5601-EQU
   T43SEQ4         5487/DATA    5602-:TSEQ
   T43SEQ5         5538/DATA    5586/DATA    5603-EQU
   T43SEQ6         5555/DATA    5604-EQU
   T43SEQ7         5521/DATA    5605-:TSEQ
   T43SEQ8         5606-EQU
   T44M001         5613-CW      5780/B
   T44M002         5619-LI      5762/B
   T44M01          5622/B       5628-LI
   T44M02          5641/B       5647-LW
   T44M03          5651/B       5657-LW
   T44M04          5662/B       5668-LW
   T44M05          5674/B       5680-LW
   T44M06          5685/B       5691-LW
   T44M07          5696/B       5702-LW
   T44M071         5707/B       5713-LW
   T44M08          5718/B       5724-LI
   T44M09          5729-BAL     5745/B
   T44M10          2416/STW     2444/STW     5727/B       5733-BAL
   T44M11          5735/B       5741-LI
   T44M12          5744/B       5746-BAL
   T44M13          5645/B       5655/B       5666/B       5678/B       5689/B       5700/B       5711/B
      5722/B       5731/B       5739/B       5752-BAL     5769/B       5777/B
   T44M14          5750-BAL
   T44M15          5748/B       5755-MTW     5773/B
   T44M16          5614/BE      5758/BE      5760-LI
   T44M18          5671/BE      5763-BAL
   T44M19          5765/B       5771-BAL
   T44M20          5754/B       5779-BAL
   T44SEQ1         5640/DATA    5706/DATA    5764/DATA    5782-EQU
   T44SEQ10        5790-EQU
   T44SEQ11        5772/DATA    5791-EQU
   T44SEQ2         5650/DATA    5783-:TSEQ
   T44SEQ3         5661/DATA    5784-EQU
   T44SEQ4         5673/DATA    5785-:TSEQ
   T44SEQ5         5684/DATA    5786-:TSEQ
   T44SEQ6         5717/DATA    5787-EQU
   T44SEQ8         5747/DATA    5788-EQU
   T44SEQ9         5695/DATA    5789-:TSEQ
   T45CT           5805/LI      5926-DATA
   T45CTX          5806/STW     5830/LH*     5912/STW     5952-DATA
   T45CT2          5911/LI      5946-DATA
   T45EXP          5807/LI      5928-DATA
   T45EXPX         5808/STW     5839/CB*     5901/STW     5914/STW     5953-DATA
   T45EXP1         5900/LI      5940-DATA
   T45EXP2         5913/LI      5947-DATA
   T45M001         5803-LI      5892/BLE
   T45M01          5811-LI      5865/B       5904/B       5918/B       5921/BLE     5924/B
   T45M02          5814/B       5820-LI
   T45M03          5829-LW      5869/BLE
   T45M04          5832-TDV     5842/BGZ
   T45M05          5847/STW     5850-DATA
   T45M06          5845/STW     5854-DATA
   T45M07          5857/B       5860-HIO
   T45M08          5840/BE      5866-MTW
   T45M09          5859/B       5876/B       5884-CW
   T45M10          5882/B       5923-HIO
   T45M11          5885/BNE     5905-LB
   T45M12          5893-CW      5907/BGE
   T45SEQ          5809/LI      5930-DATA
   T45SEQA         5902/LI      5942-DATA
   T45SEQB         5915/LI      5949-DATA
   T45SEQX         5810/STW     5846/LW*     5903/STW     5916/STW     5954-DATA
   T45SEQ0         5930/DATA    5932-:TSEQ   5949/DATA
   T45SEQ1         5930/DATA    5933-:TSEQ
   T45SEQ10        5943/DATA    5943/DATA    5943/DATA    5944/DATA    5944/DATA    5945-:TSEQ
   T45SEQ2         5930/DATA    5934-:TSEQ
   T45SEQ3         5930/DATA    5935-:TSEQ
   T45SEQ4         5931/DATA    5936-:TSEQ
   T45SEQ5         5931/DATA    5937-:TSEQ
   T45SEQ6         5931/DATA    5931/DATA    5938-:TSEQ
   T45SEQ9         5875/DATA    5939-EQU
   T46M01          5962-LI      6021/B
   T46M02          5965/B       5971-HIO
   T46M03          5978/B       5984-LI
   T46M04          5989/B       5995-LI
   T46M06          6000/B       6006-LI
   T46M07          6011/B       6018-BAL
   T46M08          5982/B       5993/B       6004/B       6015-BAL
   T46M09          6017/B       6020-BAL
   T46SEQ1         5977/DATA    6023-:TSEQ
   T46SEQ2         5988/DATA    6024-:TSEQ
   T46SEQ3         5999/DATA    6025-:TSEQ
   T46SEQ4         6010/DATA    6026-:TSEQ
   T47M01          6033-LI      6112/BLE
   T47M02          6035-LI      6108/BG
   T47M03          6048-LI      6102/B       6121/B       6128/B       6133/B       6148/B
   T47M04          6053/B       6059-STB
   T47M05          6063-BAL     6081/B       6093/B
   T47M06          6061/B       6067-BAL
   T47M07          6069/B       6075-CW
   T47M08          6076/BNE     6084/B       6090-STB
   T47M081         2417/STW     2447/STW     6095-DATA
   T47M09          6065/B       6100-BAL     6116/BNE
   T47M10          6103-MTW     6117/B
   T47M11          6096/B       6114-LI
   T47M12          6047/BE      6118-LW
   T47M13          6045/BE      6122-BAL
   T47M14          6043/BE      6129-LW
   T47M15          6041/BE      6134-BAL
   T47M16          6143-STB     6147/BDR     6150/B
   T47PCNT         6106/LW      6152-DATA
   T47SEQ1         6068/DATA    6153-EQU
   T47SEQ2         6083/DATA    6154-:TSEQ
   T47SEQ3         6155-:TSEQ
   T48M01          6172/BCR     6179-BAL
   T48M02          6170/B       6183-BAL
   T48M03          6194/B       6200-LI
   T48M04          6185/B       6191-LI
   T48M05          6176/B       6181/B       6189/B       6198/B       6221-BAL
   T48M06          6217/B       6224-BAL
   T48SEQ1         6169/DATA    6227-EQU
   T48SEQ2         6184/DATA    6228-EQU
   T49M01          6237-HIO     6246/B       6275/B       6280/BLE
   T49M02          6240/B       6247-STB
   T49M03          6251-BAL     6266/B       6286/B
   T49M04          2420/STW     2448/STW     6249/B       6255-BAL
   T49M05          6257/B       6263-STB
   T49M06          6265/B       6267-BAL
   T49M07          6253/B       6261/B       6273-BAL     6293/B
   T49M08          6276-MTB     6289/B
   T49M09          6269/B       6282-LI
   T49M11          6291-BAL
   T49SEQ2         2418/LI      6295-:TSEQ
   T49SEQ3         6288/DATA    6296-EQU
   T49SEQ4         6268/DATA    6297-:TSEQ
   T5M01           2925-HIO     2958/B
   T5M02           2938/BLZ     2945-BAL
   T5M03           2936/B       2949-BAL
   T5M04           2942/B       2947/B       2956-BAL
   T50M01          6308-HIO     6317/B       6338/B
   T50M02          6311/B       6318-STB
   T50M03          2411/STW     2439/STW     6320/B       6326-BAL
   T50M04          6324/B       6332-BAL
   T50M05          6328/B       6335-BAL
   T50M06          6334/B       6337-BAL
   T52M01          6350-HIO     6417/B
   T52M02          6355/B       6361-STB
   T52M03          6365-BAL     6380/B       6392/B       6405/B
   T52M04          6363/B       6369-BAL
   T52M05          6371/B       6377-STB
   T52M06          6379/B       6381-BAL
   T52M07          6383/B       6389-STB
   T52M08          2412/STW     2440/STW     6391/B       6393-BAL
   T52M09          6395/B       6401-LI
   T52M10          2423/STW     2451/STW     6404/B       6406-BAL
   T52M11          6408/B       6413-LW
   T52M12          6367/B       6399/B       6415-BAL
   T52M13          6414/BEZ     6418-BAL
   T52SEQ1         6370/DATA    6421-EQU
   T52SEQ2         6382/DATA    6422-EQU
   T53M01          6433-HIO     6487/B
   T53M02          6434-LI      6442/B       6446/BLE
   T53M03          6436/B       6443-MTW
   T53M04          6451-BAL     6466/B       6478/B
   T53M05          6449/B       6455-BAL
   T53M06          6457/B       6463-STB
   T53M07          6465/B       6467-BAL
   T53M08          6469/B       6475-STB
   T53M09          2413/STW     2441/STW     6477/B       6479-BAL
   T53M10          6453/B       6461/B       6473/B       6485-BAL
   T53M11          6481/B       6488-BAL
   T53SEQ1         6456/DATA    6491-EQU
   T53SEQ2         6468/DATA    6492-EQU
   T54ALT          6499-LI      7543/B
   T54M01          6502-LI      6523/BL
   T54M02          6509-HIO     6518/B
   T54M03          6512/B       6519-MTW
   T54M04          6498/STW     6515-DATA    7542/STW
   T55M01          6531-STB     6587/B
   T55M011         6538-LW      6583/B
   T55M02          6542/B       6548-HIO     6574/B
   T55M03          6556/STW     6560-DATA
   T55M04          6558/STW     6564-DATA
   T55M041         6561/B       6566-BAL
   T55M042         6565/B       6572-BAL
   T55M05          6568/B       6575-MTW
   T55M06          6580/BGE     6584-BAL
   T55M07          6578/BL      6586-BAL
   T55SEQ          6555/LW      6589-DATA
   T55SEQ0         6589/DATA    6590-:TSEQ
   T55SEQ1         6589/DATA    6591-:TSEQ
   T55SEQ2         6589/DATA    6592-:TSEQ
   T55SEQ3         6589/DATA    6593-:TSEQ
   T55SEQ4         6567/DATA    6594-:TSEQ
   T56BC57         6622/LW      6712-DATA
   T56BC89         6617/LW      6713-DATA
   T56IOCD         6630/LW      6715-DATA
   T56M01          6601/B       6607-LI
   T56M02          6614-LW      6704/B
   T56M03          6616/BEZ     6622-LW
   T56M04          6621/B       6626-LW      6696/B
   T56M05          6634-HIO     6686/B
   T56M06          6620/STW     6625/STW     6641-DATA
   T56M061         6648/STW     6651-DATA
   T56M07          6642/B       6654-TIO
   T56M071         6659/BNEZ    6664/B       6669-LW
   T56M08          6657/BE      6663/BE      6668/BGE     6682-LW
   T56M09          6680/B       6684-BAL
   T56M10          6683/BEZ     6687-LB
   T56M11          6689/BE      6691/BNEZ    6697-CW
   T56M12          6698/BG      6701-LW
   T56SEQ1         6706-:TSEQ   6710/DATA    6711/DATA
   T56SEQ2         6707-:TSEQ
   T56SEQ3         6708-:TSEQ
   T56SEQ4         6709-:TSEQ   6710/DATA    6710/DATA    6711/DATA    6711/DATA
   T58M01          6723-LW      6748/BL
   T58M02          6728-LI      6741/B
   T58M03          6735/B       6742-LI
   T58M04          6755-LI      6768/B
   T58M05          6762/B       6769-LI
   T58M06          6749-LW      6775/BL
   T58SEQ1         6734/DATA    6761/DATA    6777-:TSEQ
   T6INTR          3018-BAL     3097/DATA
   T6INTR01        3021/B       3027-CW
   T6INTR02        3031/BNEZ    3041-HIO
   T6INTR03        3029/BE      3051-LW
   T6INTR04        3052/BNEZ    3062-HIO
   T6INTR05        3028/BL      3072-LW
   T6INTR06        3073/BNEZ    3083-HIO
   T6INTR07        3025/B       3035/B       3039/B       3045/B       3049/B       3056/B       3060/B
      3066/B       3070/B       3077/B       3081/B       3087/B       3092-STW
   T6M01           2970-LI      3014/B
   T6M02           2974-LI      2991/B       3000/B       3006/B
   T6M03           2980/BE      2987-BAL
   T6M04           2989/BE      2992-STW
   T6M05           2995/BL      3001-CW
   T6M06           2985/B       3007-BAL
   T6M07           3009/B       3012-HIO
   T6M08           3002/BL      3011/B       3015-AIO
   T6PSD           3093/LPSD    3094/XPSD    3096-DATA
   T6XPSD          2968/LW      3094-XPSD
   T60M01          6787-LW      6855/BLE
   T60M02          6789-LI      6851/B
   T60M03          6797/B       6803-LW
   T60M04          6808/B       6814-BAL
   T60M05          6816/B       6822-LW
   T60M06          6828-BAL
   T60M07          6825/BE      6831-CW
   T60M08          6834/BNE     6839-BAL
   T60M09          6837/B       6841/B       6847-CW
   T60M10          6801/B       6812/B       6845/B       6849-BAL
   T60M11          6848/BNE     6852-MTW
   T60SEQ1         6796/DATA    6857-EQU
   T60SEQ2         6807/DATA    6858-:TSEQ
   T60SEQ3         6836/DATA    6859-EQU
   T60SEQ4         6840/DATA    6860-EQU
   T60SEQ5         6815/DATA    6861-EQU
   T61M01          6870-HIO     7000/B       7018/B
   T61M02          6884/BLZ     6891-BAL
   T61M03          6882/B       6895-LW
   T61M04          6896/BNEZ    6906-HIO
   T61M05          6900/B       6907-BAL
   T61M06          6912/BNEZ    6919-BAL
   T61M07          6910/B       6923-LI
   T61M08          6935/BLZ     6942-BAL
   T61M09          6933/B       6946-LW
   T61M10          6947/BNEZ    6957-HIO
   T61M101         6951/B       6958-BAL
   T61M11          6961/B       6967-LI
   T61M12          6976/BLZ     6982-BAL
   T61M13          6974/B       6986-LW
   T61M14          6997-CW      7005/B       7019/B
   T61M15          6987/BNEZ    7001-HIO
   T61M151         6991/B       7002-BAL
   T61M16          7007/BCS     7014-BAL
   T61M17          6888/B       6893/B       6904/B       6916/B       6921/B       6939/B       6944/B
      6955/B       6965/B       6980/B       6984/B       6995/B       7011/B       7016-BAL
   T62M01          7035/B       7041-MTW
   T62M02          7042/BEZ     7048-BAL
   T62M03          7046/B       7054-HIO
   T62M04          7050/BE      7058-BAL
   T62PSD          7068/LPSD    7070-DATA    7072/XPSD
   T62REC          7060-STW     7071/DATA
   T62SEQ1         7034/DATA    7073-:TSEQ
   T62SEQ2         7063/DATA    7074-:TSEQ
   T62XPSD         7024/LW      7072-XPSD
   T63M01          7084-LI      7151/B       7155/BLE
   T63M011         7096/B       7101-LW
   T63M02          7106/B       7112-LI
   T63M03          7039/B       7114/BE      7120-LW
   T63M04          7122/BE      7131-BAL
   T63M05          7129/B       7138-STW
   T63M06          7125/B       7133/B       7139-BAL
   T63M07          7141/B       7147-CW
   T63M08          7148/BNE     7152-MTW
   T63M09          7100/B       7145/B       7149-BAL
   T63SEQ1         7140/DATA    7158-EQU
   T63SEQ2         7124/DATA    7159-:TSEQ
   T63SEQ3         7132/DATA    7160-:TSEQ
   T63SEQ4         7095/DATA    7161-EQU
   T63SEQ5         7105/DATA    7162-EQU
   T64M01          7174-LI      7275/BLE
   T64M02          7177-LI      7246/B       7249/B       7263/B
   T64M03          7186/B       7195-BAL
   T64M031         7197/B       7206-LW
   T64M04          7209-LI
   T64M05          7211/BE      7220-BAL
   T64M06          7222/B       7231-CW
   T64M07          7235/B       7241-CW
   T64M08          7239/B       7243-HIO
   T64M09          7242/BNE     7248-STW
   T64M10          7232/BE      7250-BAL
   T64M11          7252/B       7258-CW
   T64M12          7193/B       7256/B       7260-HIO     7271/B
   T64M13          7259/BNE     7264-BAL
   T64M14          7266/B       7272-MTW
   T64SEQ1         7221/DATA    7278-EQU
   T64SEQ2         7234/DATA    7279-:TSEQ
   T64SEQ3         7251/DATA    7280-:TSEQ
   T64SEQ4         7196/DATA    7281-EQU
   T64SEQ6         7265/DATA    7282-:TSEQ
   T64SEQ7         7185/DATA    7283-EQU
   T65M01          7294-HIO     7332/B
   T65M02          7312/BLZ     7319-BAL
   T65M03          7310/B       7323-BAL
   T65M04          7316/B       7321/B       7330-BAL     7335/BE
   T65M05          7298/BNE     7304-LW
   T65M06          7326/B       7334-CW
   T66M01          7347-HIO     7404/B
   T66M011         7355/B       7361-LW
   T66M02          7371/BCR     7378-CW
   T66M03          7379/BCR     7386-BAL
   T66M04          7368/B       7390-LB
   T66M05          7391/BEZ     7397-CI
   T66M06          7360/B       7376/B       7383/B       7388/B       7395/B       7402-BAL
   T66M07          7398/BE      7405-HIO     7459/B
   T66M08          7426/BCR     7433-CW
   T66M09          7434/BCS     7441-BAL
   T66M10          7423/B       7445-CB
   T66M11          7446/BE      7452-CI
   T66M12          7416/B       7431/B       7438/B       7443/B       7450/B       7457-BAL
   T66SEQ1         7354/DATA    7461-EQU
   T68M01          7469-HIO     7490/B
   T68M02          7474/B       7479-LI
   T68M03          7478/B       7488-BAL
   T68SEQ1         7483/DATA    7492-EQU
   T68SEQ2         7473/DATA    7493-EQU
   T69M01          7504-HIO     7529/B
   T69M011         2263/STW     2285/STW     7519-DATA
   T69M02          7509/B       7515-LI
   T69M03          7513/B       7520/B       7527-BAL
   T69M04          7530-MTW
   T69SEQ1         7535-EQU
   T69SEQ2         7508/DATA    7536-EQU
   T7M01           3105-HIO     3152/B
   T7M02           3119/BCR     3126-CW
   T7M03           3127/BCR     3134-BAL
   T7M04           3116/B       3138-LB
   T7M05           3139/BEZ     3145-CI
   T7M06           3124/B       3131/B       3136/B       3143/B       3150-BAL
   T7M07           3146/BE      3153-HIO     3198/B
   T7M08           3165/BCR     3172-CW
   T7M09           3173/BCS     3180-BAL
   T7M10           3162/B       3184-CB
   T7M11           3185/BE      3191-CI
   T7M12           3170/B       3177/B       3182/B       3189/B       3196-BAL
   T71MSG          7565/STW     7567/DATA    7655-TEXTC
   T71M01          7550-LI      7576/BLE
   T71M02          7559-HIO     7573/B
   T71M03          7562/B       7574-LW
   T73M01          7588-LW      7610/B       7614/BL      7618/BLE
   T73M02          7598/BEZ     7611-MTW     7616/BLE
   UE             10012/DATA   10097-TEXT
   UEINT          10018/DATA   10098-TEXT
   UNAVAIL        10012/DATA   10012/DATA   10099-TEXT
   USERPROG         0.8/EQU      0.9/EQU     0.10/EQU    10859-END
   VERSION          0.3-EQU      0.4/EQU
   WAITMSG1        9794/WAITPROC             9801/WAITPROC            10829-TEXTC
   WAITPROC        1850-CNAME
   WAITPRO1        1856/GOTO    1860-PEND
   X               1853/SET
   ZBCINT         10018/DATA   10100-TEXT
   :AIO            2573/BAL     2796/BAL     2846/BAL     2887/BAL     2949/BAL     3032/BAL     3053/BAL
      3074/BAL     6897/BAL     6948/BAL     6988/BAL     7323/BAL     9147-AIO    10374/BAL
   :AIO1           9150-LI
   :BCDC           2001-EQU
   :BINC           2003-EQU     9287/BAL*    9615/BAL*    9981/BAL*    9983/BAL*    9988/BAL*    9990/BAL*
     10596/BAL*   10600/BAL*
   :BINCOT1        9290-LI
   :BINCOT2        9292-SCS     9297/BGEZ
   :BINCOVT        9262/BAL     9267/BAL     9285-STD
   :BINEXIT        9289/B       9298-LD
   :BINRTN         9286/STW     9299/B*      9342-DATA
   :BIN0405        9285/STD     9298/LD      9341-DATA
   :CCERMA         9310/DATA    9325-TEXTC
   :CCERMB         9311/DATA    9326-TEXTC
   :CCERMC         9312/DATA    9327-TEXTC
   :CCERMD         9313/DATA    9328-TEXTC
   :CCERME         9314/DATA    9329-TEXTC
   :CCERMF         9315/DATA    9330-TEXTC
   :CCERM1         9301/DATA    9316-TEXTC
   :CCERM2         9302/DATA    9317-TEXTC
   :CCERM3         9303/DATA    9318-TEXTC
   :CCERM4         9304/DATA    9319-TEXTC
   :CCERM5         9305/DATA    9320-TEXTC
   :CCERM6         9306/DATA    9321-TEXTC
   :CCERM7         9307/DATA    9322-TEXTC
   :CCERM8         9308/DATA    9323-TEXTC
   :CCERM9         9309/DATA    9324-TEXTC
   :CCERR1         9187/BCR     9193-LW
   :CCERR2         9188/BCR     9201-LW
   :CCERR3         9189/B       9225-LW
   :CCPRINT        9226/STW     9231/STW*    9233-DATA
   :CCTEST         9165/BNE     9175-CW
   :CDB            2113/GEN     2113/GEN     2132-EQU     2209/LH      2220/LW      2244/LH      2399/LH
      8165/LH      8332/LH      8401/LH      8532/LH      8616/LH      8627/LH      8678/LH      9386/LH
    9671.2/MTW    10830/LH
   :CDBEND         2113/GEN     2137-EQU
   :CDBM           2113/GEN     2122-EQU
   :CDBMEND        2113/GEN     2130-EQU
   :CDT            2046/DATA    2047/DATA    2112-EQU
   :CDTEND         2047/DATA    2114-EQU
   :COMBFRA        5264/STW     5574/STW     6212/STW     9533/LW      9583/LW      9631-DATA
   :COMBFRB        5266/STW     5576/STW     6214/STW     9534/LW      9589/LW      9632-DATA
   :COMERM1        9580/STW     9582/DATA    9635-TEXTC
   :COMERM2        9586/STH     9588/STH     9591/STW     9593/DATA    9636-TEXTC
   :COMERM3        9595/DATA    9637-TEXTC
   :COMERM4        9600/STW     9602/LI      9605/DATA    9639-TEXT
   :COMERM5        9607/LI      9610/DATA    9643-TEXT
   :COMERRT        9532/STD     9543/LW      9568/MTW     9571/LW      9628-DATA
   :COMFLAG        5267/STW     5577/STW     6215/STW     9569/LW      9633-DATA
   :COMPARE        5268/BAL     5578/BAL     6216/BAL     9529-LCI
   :COMPLIM        9062/STW     9572/CW      9634-DATA   10555/CW
   :COMTEM1        9530/STM     9545/MTW     9547/LM      9625-RES
   :COMTEM2        9537/STD     9539/LW*     9540/CW*     9552/LW*     9566/CW*     9601/LW*     9606/LW*
      9627-DATA
   :COMTEM3        9574/LW      9577/MTW     9629-DATA
   :COMWCNT        5262/STW     5572/STW     6210/STW     9535/AW      9536/AW      9538/LCW     9597/LW
      9630-DATA
   :COM1           9539-LW      9542/BIR     9567/BE      9570/BCS     9573/BG      9611/B
   :COM2           9541/BCS     9550-CW
   :COM21          9551/BNE     9568-MTW
   :COM3           9575/BCS     9597-LW
   :COM4           9603/BAL     9608/BAL     9613-LI      9622/BCS
   :CURBCNT        2007-EQU
   :DAERM          9181/STW     9216/STW     9218/DATA    9230/LW      9331-TEXTC
   :DATA            253/DATA    2093/:PROCDIC             8960-STW
   :DATAP1         8434/LW      9011/STM     9029-DATA
   :DATAP2         8446/LW      9030-DATA
   :DATAP3         8453/CW      9031-DATA
   :DATAP4         8448/LB      9032-DATA
   :DATA1          8965-LW      8975/B       8982/B       8991/BL      8996/BGE     8999/BL      9004/BGE
      9008/BNE
   :DATA2          8971/BGE     8990-CI
   :DATA3          8989/B       8997/B       9005/B       9009-LCI
   :DATA4          8980/BLE     8983-LW
   :DECC           2004-EQU     2510/BAL*    3645/BAL*    3795/BAL*    6670/BAL*    6673/BAL*    7564/BAL*
      8305/BAL*    8320/BAL*    8323/BAL*    8519/BAL*   10544/BAL*   10810/BAL*
   :DELAY          4306/BAL     4428/BAL     4518/BAL     4597/BAL     4679/BAL     4917/BAL     4988/BAL
      5117/BAL     5211/BAL     5248/BAL     5366/BAL     5484/BAL     5518/BAL     5565/BAL     5658/BAL
      5681/BAL     5692/BAL     5703/BAL     5714/BAL     5862/BAL     5871/BAL     5985/BAL     5996/BAL
      6007/BAL     6166/BAL     6203/BAL     6552/BAL     6638/BAL     6731/BAL     6743/BAL     6758/BAL
      6770/BAL     6804/BAL     6877/BAL     6928/BAL     7102/BAL     7207/BAL     7305/BAL     7363/BAL
      7480/BAL     7516/BAL     9475/BAL     9669-STW    10337/BAL
   :DELAYAE        8257/BAL     9673/BAL     9684-STW
   :DELAYD         2328/BAL     8297/BAL     8347/BAL     9676/BAL     9680/BAL     9689-STW
   :DELAYTO        9697-DATA    9699/XPSD
   :DELEXIT        9677-LW      9682/B
   :DELMTW         2472/LW      9700-MTW    10322/LW
   :DELSAVE        9669/STW     9677/LW      9681/MTW     9684/STW     9687/B*      9689/STW     9692/B*
      9695-DATA
   :DELTIME        9672/STW     9694-DATA    9700/MTW
   :DELTO          9680-BAL     9698/DATA
   :DELXPSD        2474/LW      9699-XPSD   10324/LW
   :DEVADDR        2225/STW     2330/HIO*    2544/HIO*    2597/HIO*    2619/HIO*    2651/HIO*    2661/HIO*
      2667/HIO*    2682/HIO*    2716/TDV*    2745/TDV*    2770/HIO*    2805/HIO*    2855/HIO*    2900/HIO*
      2925/HIO*    3010/HIO*    3012/HIO*    3041/HIO*    3062/HIO*    3083/HIO*    3105/HIO*    3120/HIO*
      3153/HIO*    3166/HIO*    3219/HIO*    3220/TDV*    3233/SIO*    3373/SIO*    3447/HIO*    3497/SIO*
      3576/HIO*    3622/HIO*    3628/SIO*    3776/HIO*    3778/SIO*    3923/HIO*    3925/SIO*    4079/HIO*
      4081/SIO*    4099/TDV*    4156/HIO*    4158/SIO*    4176/TDV*    4223/HIO*    4227/SIO*    4290/HIO*
      4292/SIO*    4405/HIO*    4407/SIO*    4424/HIO*    4426/SIO*    4496/HIO*    4498/SIO*    4514/HIO*
      4516/SIO*    4579/HIO*    4581/SIO*    4595/SIO*    4657/HIO*    4659/SIO*    4671/HIO*    4677/SIO*
      4725/HIO*    4727/SIO*    4765/HIO*    4767/SIO*    4823/HIO*    4827/SIO*    4901/HIO*    4903/SIO*
      4984/HIO*    4986/SIO*    5028/HIO*    5030/SIO*    5036/TIO*    5044/TIO*    5093/HIO*    5095/SIO*
      5207/HIO*    5209/SIO*    5216/TIO*    5224/TDV*    5246/SIO*    5309/SIO*    5312/TDV*    5320/TDV*
      5364/HIO*    5384/HIO*    5386/HIO*    5460/HIO*    5462/SIO*    5563/SIO*    5634/HIO*    5636/SIO*
      5821/SIO*    5824/TDV*    5832/TDV*    5860/HIO*    5883/HIO*    5923/HIO*    5971/HIO*    5973/SIO*
      6050/HIO*    6162/HIO*    6164/SIO*    6201/SIO*    6237/HIO*    6308/HIO*    6350/HIO*    6433/HIO*
      6509/HIO*    6548/HIO*    6550/SIO*    6634/HIO*    6636/SIO*    6654/TIO*    6729/SIO*    6756/SIO*
      6791/HIO*    6793/SIO*    6870/HIO*    6906/HIO*    6957/HIO*    6968/SIO*    7001/HIO*    7054/HIO*
      7090/HIO*    7092/SIO*    7176/HIO*    7182/SIO*    7243/HIO*    7260/HIO*    7294/HIO*    7347/HIO*
      7351/SIO*    7372/HIO*    7405/HIO*    7427/HIO*    7469/HIO*    7504/HIO*    7559/HIO*    8082/TIO*
      8263/TIO*    8269/SIO*    8276/TIO*    8284/SIO*    8289/TIO*    8337/SIO*    8339/TIO*    9115/SIO*
      9123/TIO*    9131/HIO*    9139/TDV*    9170/CW      9179/LW      9213/CW      9422-DATA    9436/TDV*
      9439/HIO*    9449/SIO*    9454/TIO*    9477/TDV*    9480/HIO*    9578/LW      9975/LW     10417/SIO*
     10421/TDV*   10433/HIO*   10437/SIO*   10440/HIO*   10675/TDV*   10814/LW
   :DEVADER        9186/BCR     9197/B       9209-CI
   :DEVEXIT        9205/B       9219-LD      9234/B       9244/BE      9281/B
   :DIC            2043/DATA    2044/DATA    2088-EQU     2383/DATA    7679/DATA    8050/DATA    8229/DATA
      8484/DATA    8586/DATA    8968/DATA    9053/DATA
   :DICEND         2044/DATA    2096-EQU     2112/EQU
   :DICILEN        2025-EQU
   :DICINDX        2024-EQU
   :DTLFLAG        2020-EQU
   :DUMP           1999-EQU
   :ERRADR1        9193/LW      9301-DATA
   :ERRADR2        9201/LW      9306-DATA
   :ERRADR3        9225/LW      9311-DATA
   :ERRBITS        9840/STW     9902/LW      9908/LW     10037-DATA
   :ERROR          2551/BAL*    2560/BAL*    2569/BAL*    2578/BAL*    2601/BAL*    2606/BAL*    2621/BAL*
      2626/BAL*    2634/BAL*    2669/BAL*    2684/BAL*    2692/BAL*    2697/BAL*    2704/BAL*    2712/BAL*
      2720/BAL*    2730/BAL*    2741/BAL*    2748/BAL*    2785/BAL*    2790/BAL*    2801/BAL*    2813/BAL*
      2818/BAL*    2835/BAL*    2840/BAL*    2851/BAL*    2861/BAL*    2876/BAL*    2881/BAL*    2892/BAL*
      2908/BAL*    2913/BAL*    2940/BAL*    2945/BAL*    2954/BAL*    2983/BAL*    3023/BAL*    3037/BAL*
      3047/BAL*    3058/BAL*    3068/BAL*    3079/BAL*    3089/BAL*    3122/BAL*    3129/BAL*    3134/BAL*
      3141/BAL*    3148/BAL*    3168/BAL*    3175/BAL*    3180/BAL*    3187/BAL*    3194/BAL*    3215/BAL*
      3226/BAL*    3240/BAL*    3254/BAL*    3263/BAL*    3268/BAL*    3280/BAL*    3285/BAL*    3296/BAL*
      3301/BAL*    3313/BAL*    3317/BAL*    3325/BAL*    3332/BAL*    3356/BAL*    3364/BAL*    3379/BAL*
      3389/BAL*    3401/BAL*    3406/BAL*    3414/BAL*    3426/BAL*    3431/BAL*    3443/BAL*    3449/BAL*
      3456/BAL*    3480/BAL*    3488/BAL*    3503/BAL*    3513/BAL*    3525/BAL*    3530/BAL*    3540/BAL*
      3550/BAL*    3560/BAL*    3572/BAL*    3578/BAL*    3587/BAL*    3613/BAL*    3634/BAL*    3652/BAL*
      3659/BAL*    3664/BAL*    3677/BAL*    3685/BAL*    3690/BAL*    3699/BAL*    3704/BAL*    3711/BAL*
      3732/BAL*    3739/BAL*    3744/BAL*    3761/BAL*    3784/BAL*    3802/BAL*    3809/BAL*    3814/BAL*
      3827/BAL*    3834/BAL*    3839/BAL*    3849/BAL*    3854/BAL*    3864/BAL*    3871/BAL*    3876/BAL*
      3884/BAL*    3912/BAL*    3931/BAL*    3943/BAL*    3954/BAL*    3961/BAL*    3966/BAL*    3978/BAL*
      3985/BAL*    3990/BAL*    4000/BAL*    4005/BAL*    4016/BAL*    4023/BAL*    4028/BAL*    4038/BAL*
      4072/BAL*    4095/BAL*    4113/BAL*    4118/BAL*    4141/BAL*    4172/BAL*    4190/BAL*    4195/BAL*
      4218/BAL*    4236/BAL*    4244/BAL*    4252/BAL*    4278/BAL*    4298/BAL*    4316/BAL*    4323/BAL*
      4328/BAL*    4338/BAL*    4345/BAL*    4350/BAL*    4357/BAL*    4368/BAL*    4393/BAL*    4414/BAL*
      4434/BAL*    4444/BAL*    4485/BAL*    4505/BAL*    4524/BAL*    4534/BAL*    4568/BAL*    4588/BAL*
      4603/BAL*    4614/BAL*    4649/BAL*    4666/BAL*    4685/BAL*    4696/BAL*    4719/BAL*    4733/BAL*
      4744/BAL*    4752/BAL*    4774/BAL*    4782/BAL*    4789/BAL*    4811/BAL*    4833/BAL*    4847/BAL*
      4855/BAL*    4863/BAL*    4894/BAL*    4909/BAL*    4925/BAL*    4930/BAL*    4940/BAL*    4963/BAL*
      4994/BAL*    5004/BAL*    5022/BAL*    5055/BAL*    5085/BAL*    5102/BAL*    5112/BAL*    5125/BAL*
      5132/BAL*    5137/BAL*    5147/BAL*    5155/BAL*    5163/BAL*    5171/BAL*    5196/BAL*    5220/BAL*
      5233/BAL*    5238/BAL*    5254/BAL*    5271/BAL*    5304/BAL*    5353/BAL*    5379/BAL*    5441/BAL*
      5452/BAL*    5469/BAL*    5479/BAL*    5494/BAL*    5501/BAL*    5508/BAL*    5513/BAL*    5524/BAL*
      5533/BAL*    5545/BAL*    5550/BAL*    5558/BAL*    5581/BAL*    5589/BAL*    5624/BAL*    5643/BAL*
      5653/BAL*    5664/BAL*    5676/BAL*    5687/BAL*    5698/BAL*    5709/BAL*    5720/BAL*    5729/BAL*
      5737/BAL*    5750/BAL*    5767/BAL*    5775/BAL*    5816/BAL*    5853/BAL*    5878/BAL*    5967/BAL*
      5980/BAL*    5991/BAL*    6002/BAL*    6013/BAL*    6055/BAL*    6063/BAL*    6071/BAL*    6086/BAL*
      6098/BAL*    6174/BAL*    6179/BAL*    6187/BAL*    6196/BAL*    6219/BAL*    6242/BAL*    6251/BAL*
      6259/BAL*    6271/BAL*    6291/BAL*    6313/BAL*    6322/BAL*    6330/BAL*    6357/BAL*    6365/BAL*
      6373/BAL*    6385/BAL*    6397/BAL*    6410/BAL*    6438/BAL*    6451/BAL*    6459/BAL*    6471/BAL*
      6483/BAL*    6514/BAL*    6544/BAL*    6563/BAL*    6570/BAL*    6603/BAL*    6650/BAL*    6678/BAL*
      6737/BAL*    6764/BAL*    6799/BAL*    6810/BAL*    6818/BAL*    6828/BAL*    6843/BAL*    6886/BAL*
      6891/BAL*    6902/BAL*    6914/BAL*    6919/BAL*    6937/BAL*    6942/BAL*    6953/BAL*    6963/BAL*
      6978/BAL*    6982/BAL*    6993/BAL*    7009/BAL*    7014/BAL*    7037/BAL*    7044/BAL*    7052/BAL*
      7066/BAL*    7098/BAL*    7109/BAL*    7117/BAL*    7127/BAL*    7135/BAL*    7143/BAL*    7191/BAL*
      7203/BAL*    7217/BAL*    7228/BAL*    7237/BAL*    7254/BAL*    7268/BAL*    7300/BAL*    7314/BAL*
      7319/BAL*    7328/BAL*    7357/BAL*    7374/BAL*    7381/BAL*    7386/BAL*    7393/BAL*    7400/BAL*
      7414/BAL*    7429/BAL*    7436/BAL*    7441/BAL*    7448/BAL*    7455/BAL*    7476/BAL*    7486/BAL*
      7511/BAL*    7525/BAL*    7569/BAL*    7606/BAL*   10781-DATA
   :ERRORT         2490/BAL     3222/BAL     3236/BAL     3246/BAL     3274/BAL     3290/BAL     3307/BAL
      3321/BAL     3360/BAL     3375/BAL     3385/BAL     3395/BAL     3410/BAL     3420/BAL     3435/BAL
      3484/BAL     3499/BAL     3509/BAL     3519/BAL     3536/BAL     3546/BAL     3556/BAL     3564/BAL
      3630/BAL     3640/BAL     3670/BAL     3692/BAL     3725/BAL     3780/BAL     3790/BAL     3820/BAL
      3842/BAL     3857/BAL     3927/BAL     3939/BAL     3947/BAL     3971/BAL     3993/BAL     4009/BAL
      4087/BAL     4091/BAL     4164/BAL     4168/BAL     4232/BAL     4240/BAL     4248/BAL     4294/BAL
      4308/BAL     4332/BAL     4410/BAL     4430/BAL     4501/BAL     4520/BAL     4584/BAL     4599/BAL
      4662/BAL     4681/BAL     4729/BAL     4740/BAL     4770/BAL     4785/BAL     4829/BAL     4843/BAL
      4851/BAL     4905/BAL     4919/BAL     4936/BAL     4990/BAL     5098/BAL     5108/BAL     5119/BAL
      5143/BAL     5151/BAL     5159/BAL     5167/BAL     5213/BAL     5250/BAL     5349/BAL     5375/BAL
      5437/BAL     5465/BAL     5475/BAL     5486/BAL     5520/BAL     5537/BAL     5554/BAL     5585/BAL
      5639/BAL     5649/BAL     5660/BAL     5672/BAL     5683/BAL     5694/BAL     5705/BAL     5716/BAL
      5733/BAL     5746/BAL     5763/BAL     5771/BAL     5849/BAL     5874/BAL     5976/BAL     5987/BAL
      5998/BAL     6009/BAL     6067/BAL     6082/BAL     6094/BAL     6168/BAL     6183/BAL     6255/BAL
      6267/BAL     6287/BAL     6326/BAL     6369/BAL     6381/BAL     6393/BAL     6406/BAL     6455/BAL
      6467/BAL     6479/BAL     6559/BAL     6566/BAL     6640/BAL     6733/BAL     6760/BAL     6795/BAL
      6806/BAL     6814/BAL     6835/BAL     6839/BAL     7033/BAL     7062/BAL     7094/BAL     7104/BAL
      7123/BAL     7131/BAL     7139/BAL     7184/BAL     7195/BAL     7220/BAL     7233/BAL     7250/BAL
      7264/BAL     7353/BAL     7472/BAL     7482/BAL     7507/BAL     7518/BAL     9779-LCI
   :ERRORX        10762/STW    10778/LW     10779/LW     10782-DATA
   :ERRTDV1       10108/DATA   10110-TEXTC
   :ERRTDV2       10108/DATA   10111-TEXTC
   :ERRTDV3       10108/DATA   10112-TEXTC
   :ERRTDV4       10108/DATA   10113-TEXTC
   :ERRTDV5       10109/DATA   10114-TEXTC
   :ERRTDV6       10109/DATA   10115-TEXTC
   :ERRTDV7       10109/DATA   10116-TEXTC
   :ERRTFG1        9784/STW     9880/CW      9886/STW    10038-DATA
   :ERRTFLG        9783/STW     9924/MTW     9969/MTW    10005/MTW    10011-DATA
   :ERRTMG1        9906/STW     9911/STD     9913/STB     9916/STB     9920/STB     9922/DATA   10040-TEXTC
   :ERRTMP1        9780/STM     9809/STD     9819/STD     9831/STD     9968/LM     10009-RES
   :ERRTMP2        9838/STW     9850/MTW     9854/MTW     9914/LW      9917/LW     10039-DATA
   :ERRTMP3        9789/STW     9858/LW      9863/LW      9865/LW     10010-DATA
   :ERRTM1         9974/STW     9977/STW     9979/DATA   10103-TEXTC
   :ERRTM11        9989/STW     9991/STW     9999/STB    10004/DATA   10105-TEXTC
   :ERRTM2         9982/STW     9984/STW     9986/DATA   10104-TEXTC
   :ERRTM3         9935/STW     9937/DATA   10106-TEXTC
   :ERRTM4         9945/DATA   10107-TEXTC
   :ERRTTB         9876/STW     9892/STW     9907/LW     10033-DATA
   :ERRTTBA       10012-DATA   10033/DATA   10033/DATA   10033/DATA
   :ERRTTBB       10014-DATA   10033/DATA
   :ERRTTBD       10016-DATA   10034/DATA
   :ERRTTBE       10018-DATA   10034/DATA
   :ERRTTDV        9882/LW     10108-DATA
   :ERRTYPE        9905/LW      9973/LW     10101-DATA
   :ERRT0          9785-LB      9861/B
   :ERRT1          9791/BCS     9797-LW      9811/B       9821/B       9824/B
   :ERRT10         9808/B       9818/B       9830/B       9924-MTW     9938/B       9946/B
   :ERRT11         9793/BCS     9927-MTW
   :ERRT12         9931/BE      9939-SCD
   :ERRT13         9786/BCR     9948-LI      9966/BIR
   :ERRT13A        9952/BCS     9957-LI
   :ERRT14         9950/BCR     9956/B       9966-BIR    10006/B
   :ERRT15         9965/BCS     9973-LW
   :ERRT2          9800/BCS     9803-CI
   :ERRT3          9804/BCS     9813-CI
   :ERRT4          9814/BCS     9823-BAL
   :ERRT5          9823/BAL     9826-STW     9929/BAL
   :ERRT5X         9826/STW     9833/B*      9834-DATA
   :ERRT6          9798/BCS     9836-LI
   :ERRT7          9849/BCS     9854-MTW
   :ERRT8          9851/BCR     9856/B       9858-LW
   :ERRT8A         9860-MTW     9896/BNE     9899/B       9904/BG      9925/B       9933/BEZ     9943/BE
   :ERRT9          9852/B       9855/BCR     9863-LW
   :ERRT9A         9865-LW
   :ERRT9B         9870/BCS     9878-LB
   :ERRT9C         9881/BE      9887-CW
   :ERRT9D         9877/B       9894/BLE     9898/BE      9900-CI
   :ERRT9D1        9867/BNE     9905-LW
   :EXPOBS         9273/LW      9334-TEXT
   :HEXC           2005-EQU     4103/BAL*    4106/BAL*    4180/BAL*    4183/BAL*    8590/BAL*    9180/BAL*
      9215/BAL*    9579/BAL*    9584/BAL*    9590/BAL*    9599/BAL*    9934/BAL*    9976/BAL*   10368/BAL*
     10695/BAL*   10698/BAL*   10727/BAL*   10745/BAL*   10747/BAL*   10751/BAL*   10753/BAL*   10774/BAL*
     10803/BAL*   10815/BAL*
   :HIO            2546/BAL     9131-HIO     9402/BAL     9805/BAL
   :HIO1           9134-LI
   :INITIAL        2049/DATA    2206-STW
   :INTAE          2976/BAL     7048/BAL     9458/BAL    10230-STW    10347/BAL
   :INTD           2327/BAL     2479/BAL     2981/BAL     2987/BAL     7026/BAL     7058/BAL     9463/BAL
      9470/BAL    10240-STW    10354/BAL    10361/BAL
   :INTRECF        2979/CW      3092/STW     7041/MTW     7049/CW      7060/STW     9459/MTW     9488/STW
      9674/LW      9701-DATA   10232/STW    10244/STW    10350/MTW    10389/STW
   :INTSAV1       10230/STW    10235/B*     10247-DATA
   :INTSAV2       10240/STW    10245/B*     10248-DATA
   :IOERM1         9413/WAITPROC             9423-TEXTC
   :IOERM2         9417/DATA    9424-TEXTC
   :IOERR1         9383/B       9402-BAL
   :IOERR1A        9413-WAITPROC             9418/B
   :IOERR2         9385/BCR     9416-BAL
   :IOEXEC         2775/BAL     2825/BAL     2866/BAL     2930/BAL     2975/BAL     3109/BAL     3156/BAL
      7030/BAL     7471/BAL     7506/BAL     8081/BAL     8261/BAL     9374-STW
   :IOEXECI        6875/BAL     6926/BAL     7296/BAL     9373-STW    10346/BAL
   :IOEXEC1        9379-BAL     9396/B       9405/B       9411/B       9414/B
   :IORTN          9158/STW     9159/LW*     9160/LW*     9166/CW*     9167/BAZ*    9171/BE*     9175/CW*
      9176/BANZ*   9221/B*      9238/LW*     9239/LW*     9254/LW*     9255/LW*     9343-DATA
   :IOSAVE         9374/STW     9375/STW     9376/STD     9397/LW      9398/LW      9399/LD      9421-RES
   :K             10300/AW     10309-DATA
   :KSRADR         2016-EQU
   :LIMIT           269/DATA    2094/:PROCDIC             9046-LW
   :LIMITP1        9073/STM     9076-DATA   10329/CW
   :LIMITP2        9077-DATA   10332/SW     10336/AW
   :LIMITP3        9078-DATA   10331/LW
   :LIM0           9052-BAL     9058/B       9068/B
   :LIM1           9048/BE      9055-LW
   :LIM2           9057-STW     9071/BG
   :LIM3           9050/BE      9064-LW
   :LOADIN         2015-EQU
   :MACHINE        2017-EQU     6615/LW
   :MEMLAST        2027-EQU
   :MEMSIZE        2026-EQU
   :MERROR         2008-EQU    10780/B*
   :MLT            1858/BAL*    1993-EQU     1995/EQU     1996/EQU     1997/EQU     1998/EQU     1999/EQU
      2000/EQU     2001/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     2020/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        2002-EQU     2355/B*      2384/B*      2493/B*      2506/B*      2514/B*      7680/B*
      7699/B*      8051/B*      8099/B*      8230/B*      8344/B*      8350/B*      8439/B*      8485/B*
      8587/B*      8661/B*      8969/B*      9012/B*      9054/B*      9063/B*      9074/B*
   :MONPBF         2029-EQU
   :MONWAIT        2011-EQU
   :MRECOVR        2012-EQU
   :MSENSE         2010-EQU    10789/B*
   :MSGIN          2014-EQU
   :MSGOUT         2013-EQU
   :M1            10290/STW    10295/MTW    10301/EOR    10306-DATA
   :M2            10291/STW    10297/MTW    10302/EOR    10307-DATA
   :PITEND         2058-EQU     2059/DO
   :PITLAST        2057-EQU     2059/DO
   :PIT0           2041-DATA    2058/EQU
   :PIT1           2042-DATA
   :PIT10          2051-DATA    2212/STW     2381/STW     2390/STW     7677/STW     8048/STW     8227/STW
      8482/STW     8584/STW     8966/STW     9051/STW     9057/STW     9067/STW
   :PIT11          2052-DATA
   :PIT12          2053-DATA    2214/STW     2227/STW
   :PIT15          2056-DATA    2485/STW     7687/STW     8071/STW
   :PIT2           2043-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     2382/BAL*    7678/BAL*    8049/BAL*    8228/BAL*    8483/BAL*    8585/BAL*
      8967/BAL*    9052/BAL*
   :PRINT          1926/BAL*    2009-EQU     2512/BAL*    3647/BAL*    3797/BAL*    4108/BAL*    4185/BAL*
      5052/BAL*    6675/BAL*    7566/BAL*    8342/BAL*    8348/BAL*    8437/BAL*    9195/BAL*    9203/BAL*
      9217/BAL*    9232/BAL*    9249/BAL*    9277/BAL*    9416/BAL*    9440/BAL*    9464/BAL*    9481/BAL*
      9581/BAL*    9592/BAL*    9594/BAL*    9604/BAL*    9609/BAL*    9884/BAL*    9921/BAL*    9936/BAL*
      9944/BAL*    9978/BAL*    9985/BAL*   10003/BAL*   10355/BAL*   10370/BAL*   10426/BAL*   10494/BAL*
     10536/BAL*   10538/BAL*   10549/BAL*   10551/BAL*   10700/BAL*   10729/BAL*   10755/BAL*   10776/BAL*
     10805/BAL*   10812/BAL*   10817/BAL*
   :PROCDIC        1867-CNAME
   :PROGID         2042/DATA    2142-EQU
   :PSW            2000-EQU     8060/CB      8218/LB      8455/LB      8465/LB      8575/LB      8611/LB
      8673/CB      8961/LB
   :P1             1995-EQU     2345/STW     2350/STW     2377/LW      7674/LW      7682/LW      8045/LW
      8963/CW      8970/CW      8993/CW      9001/CW      9010/LM      9046/LW
   :P2             1996-EQU     2347/STW     2385/CW      2387/LW      2394/CW      8062/LW      8221/LW
      8574/LW      8972/LW      8983/LW      8985/STW     9059/LW      9064/LW
   :P3             1997-EQU     8459/LW      8625/CW      8976/CW      8978/LW      8986/LW      8988/STW
      9055/LW      9065/CW      9069/LW
   :P4             1998-EQU     8470/LW
   :QSENSE         2022-EQU
   :RANDOM        10293-STW
   :RANDOMX        4463/BAL     4630/BAL     4821/BAL     5286/BAL     6122/BAL     6134/BAL     6138/BAL
      7737/BAL    10295-MTW    10326/BAL    10851/BAL
   :RANDOMY       10290-STW
   :RECOVER        2045/DATA    2208/BAL     2312-STW
   :REG0405        9177/STD     9219/LD      9338-DATA
   :REG0607        9251/STD     9280/LD      9339-DATA
   :REG1213        9178/STD     9220/LD      9340-DATA
   :RELBIAS        2018-EQU
   :REMOTE         2030-EQU     2207/BAL
   :RLOADER        2019-EQU
   :SAVCOM1        9941/AW     10225-DATA
   :SAVEAIO       10177-STD
   :SAVEALL       10148/BAL    10150/BAL    10162/BAL    10167/BAL    10173/BAL    10180/BAL    10182/BAL
     10190/BAL    10197/BAL    10201-STW
   :SAVECLR        2329/BAL     2480/BAL    10136-STD
   :SAVEHIO        9810/BAL    10160-STD
   :SAVESIO        3235/BAL     3374/BAL     3498/BAL     3629/BAL     3779/BAL     3926/BAL     4293/BAL
      4728/BAL     4828/BAL     4904/BAL     6794/BAL     7093/BAL     7183/BAL     7352/BAL    10171-STD
   :SAVESSA       10187-STD
   :SAVESSB       10194-STD
   :SAVETAB        9797/LW      9859/STW     9864/STW     9927/MTW     9932/LH      9942/CH      9949/LW
      9955/STW     9959/STW    10139/STH    10147/LI     10149/LI     10152/STH    10154/STB    10155/STH
     10156/STB    10161/LI     10166/LI     10172/LI     10179/LI     10181/LI     10189/LI     10196/LI
     10211-EQU
   :SAVETDV        3221/BAL     5348/BAL     5848/BAL     9820/BAL    10165-STD
   :SAVETIO        9832/BAL    10145-STD
   :SAVETMP       10136/STD    10142/LD     10145/STD    10146/STW    10151/LW     10157/LD     10160/STD
     10163/LD     10165/STD    10168/LD     10171/STD    10174/LD     10177/STD    10178/STW    10183/LW
     10184/LD     10187/STD    10191/LD     10194/STD    10198/LD     10201/STW    10208/B*     10224-DATA
   :SEED          10293/STW    10298/LW     10303/STW    10308-DATA
   :SENSE          2352/BAL*    2503/BAL*    2580/BAL*    2647/BAL*    2759/BAL*    2915/BAL*    2956/BAL*
      3007/BAL*    3150/BAL*    3196/BAL*    3228/BAL*    3334/BAL*    3366/BAL*    3458/BAL*    3490/BAL*
      3580/BAL*    3716/BAL*    3889/BAL*    4043/BAL*    4120/BAL*    4197/BAL*    4254/BAL*    4300/BAL*
      4359/BAL*    4370/BAL*    4416/BAL*    4436/BAL*    4446/BAL*    4507/BAL*    4526/BAL*    4536/BAL*
      4605/BAL*    4616/BAL*    4668/BAL*    4687/BAL*    4698/BAL*    4735/BAL*    4746/BAL*    4754/BAL*
      4791/BAL*    4835/BAL*    4857/BAL*    4865/BAL*    4911/BAL*    4932/BAL*    4996/BAL*    5006/BAL*
      5057/BAL*    5173/BAL*    5273/BAL*    5355/BAL*    5381/BAL*    5443/BAL*    5591/BAL*    5752/BAL*
      5855/BAL*    5880/BAL*    6015/BAL*    6100/BAL*    6221/BAL*    6244/BAL*    6273/BAL*    6315/BAL*
      6332/BAL*    6415/BAL*    6440/BAL*    6485/BAL*    6516/BAL*    6572/BAL*    6684/BAL*    6739/BAL*
      6766/BAL*    6849/BAL*    7016/BAL*    7055/BAL*    7149/BAL*    7244/BAL*    7261/BAL*    7330/BAL*
      7402/BAL*    7457/BAL*    7488/BAL*    7527/BAL*    7571/BAL*    7608/BAL*    7696/BAL*    8096/BAL*
      8658/BAL*    9442/BAL*    9483/BAL*   10790-DATA
   :SENSEX        10785/STW    10788/LW     10791-DATA
   :SIO            2593/BAL     2663/BAL     2725/BAL     7409/BAL     9115-SIO     9392/BAL
   :SIO1           9118-LI
   :STATEM1        9182/STW     9246/XW      9248/STB     9250/DATA    9332-TEXTC
   :STATEM2        9264/STH     9268/STB     9274/XW      9276/STB     9278/DATA    9333-TEXTC
   :STATERR        9210/BNE     9214/BE      9238-LW
   :STATER1        9259-LW      9279/BDR
   :STATEST        9119/B       9127/B       9135/B       9143/B       9151/B       9157-STW
   :STATTYP        9245/LW      9336-TEXT
   :STATUSCC       2598/LCF     2616/LB      2630/LB      2679/LB      2688/LB      2701/LB      3138/LB
      3184/CB      3329/LB      3453/LB      3584/LB      3707/LB      3880/LB      4034/CB      4354/LB
      7390/LB      7445/CB      9116/STW     9117/STCF    9124/STW     9125/STCF    9132/STW     9133/STCF
      9140/STW     9141/STCF    9148/STW     9149/STCF    9163/AND     9183/LCF     9242/AND     9259/LW
      9345-DATA
   :TDV            2564/BAL     9139-TDV     9815/BAL    10384/BAL
   :TDV1           9142-LI
   :TIO            2555/BAL     2612/BAL     2675/BAL     2736/BAL     2778/BAL     2806/BAL     2828/BAL
      2856/BAL     2869/BAL     2901/BAL     2933/BAL     3018/BAL     3042/BAL     3063/BAL     3084/BAL
      3113/BAL     3159/BAL     6879/BAL     6907/BAL     6930/BAL     6958/BAL     6971/BAL     7002/BAL
      7307/BAL     7365/BAL     7420/BAL     9123-TIO     9379/BAL     9408/BAL     9827/BAL    10379/BAL
   :TIO1           9126-LI
   :TSEQ           1823-CNAME
   :TSEQEQU        1836-CNAME
   :TYPE           9157/STW     9184/LW      9344-DATA
   :WAIT           2023-EQU
   :1BYTEIN        2006-EQU
