1 C00   21:10 JUN 20,'83                                                                          PAGE    1
A      1                     2.000  +2,2                                                                *H02
       2                     2.010  CATALOG  EQU      C'0607'                                           *H00
       3                     3.000  +3,3                                                                *H02
       4                     3.010  VERSION  EQU      C'H02'                                            *H02
       5                     9.000  +9,441                                                              *H02
       6                   858.000  +858,885                                                            *H00
       7                   858.010           SPACE                                                      *H00
       8                   923.000  +923,927                                                            *H00
       9                   923.010           SPACE                                                      *H00
      10                   932.000  +932,937                                                            *H00
      11                   932.010           REV      'MODEL 7461 = PRINTRONIX 64 CHAR SET'             *H00
      12                   932.020           REV      'MODEL 7462 = PRINTRONIX 96 CHAR SET'             *H00
      13                   932.030           REV      'MODEL 7463 = DATAPRODUCTS 64 CHAR SET'           *H00
      14                   932.040           REV      'MODEL 7464 = DATAPRODUCTS 96 CHAR SET'           *H00
      15                   932.050           REV      'MODEL 7465 = STC-BAND-LP 64 CHAR SET'            *H00
      16                   932.060           REV      'MODEL 7466 = STC-BAND-LP 96 CHAR SET'            *H00
      17                   939.000  +939,940                                                            *H00
      18                   939.020           REV      '  TYPE=0 : LOAD ELECTRONIC VFU INHIBITED'        *H00
      19                   939.022           REV      ' '                                               *H02
      20                   939.024           REV      '  TYPE>0 : LINES PER PAGE FOR ELECTRONIC VFU'    *H02
      21                   939.030           REV      ' '                                               *H00
      22                   939.040           REV      '  THE ELECTRONIC VFU IS RELOADED EACH TIME'      *H00
      23                   939.050           REV      '  THE CORRESPONDING SYST DIRECTIVE IS GIVEN'     *H02
      24                  1090.000  +1090,1090                                                          *H00
      25                  1090.010           DATA     0                 TYPE (INHIBIT VFU LOAD)         *H02
      26                  1129.000  +1129                                                               *H00
      27                  1129.010           SPACE                                                      *H00
      28                  1129.020  LVFU     EQU      %                                                 *H00
      29                  1129.030           LH,4     :CDB,1            GET MODEL NUMBER                *H00
      30                  1129.040           CI,4     7462               COMPARE WITH PRINTRONIX        *H02
      31                  1129.042           BG       LVFU1               AND SKIP IF DATAPRODUCTS      *H02
      32                  1129.044           SPACE                                                      *H02
      33                  1129.046  LVFU0    EQU      %                                                 *H02
      34                  1129.048           LW,0     :CDB+1            GET EVFU INDICATOR              *H02
      35                  1129.050           BEZ      LVFUX              SKIP IF ZERO                   *H02
      36                  1129.052           SPACE                                                      *H02
      37                  1129.054           CI,0     132               CHECK FOR MAXIMUM               *H02
      38                  1129.056           BLE      %+2                LINES PER PAGE                 *H02
      39                  1129.058           LI,0     132                                               *H02
      40                  1129.060           SPACE                                                      *H02
      41                  1129.062           STH,0    EVFUPX+1,1        PLACE IN IOCD                   *H02
      42                  1129.064           SPACE                                                      *H02
      43                  1129.066           LI,0     DA(EVFUPX)        SET FOR LOAD                    *H02
      44                  1129.068           B        LVFUY              EVFU - PRINTRONIX              *H02
      45                  1129.070           SPACE                                                      *H02
      46                  1129.072  LVFU1    EQU      %                                                 *H02
      47                  1129.074           LW,0     :CDB+1            GET EVFU INDICATOR              *H02
      48                  1129.076           BEZ      LVFUX              SKIP IF ZERO                   *H02
      49                  1129.078           SPACE                                                      *H02
      50                  1129.080           CI,R0    143               CHECK FOR MAXIMUM               *H02
      51                  1129.082           BLE      %+2                LINES PER PAGE                 *H02
      52                  1129.084           LI,R0    143                                               *H02
      53                  1129.086           SPACE                                                      *H02
      54                  1129.088           SLS,0    1                 HALF WORD PER LINE              *H02
      55                  1129.090           STH,0    EVFUDP+1,1         STORE IN CHANNEL PROGRAM       *H02
      56                  1129.092           SPACE                                                      *H02
      57                  1129.094           LI,0     DA(EVFUDP)        SET FOR LOAD                    *H02
      58                  1129.096           B        LVFUY              EVFU - DATA PRODUCTS           *H02
      59                  1129.150           SPACE                                                      *H00
      60                  1129.152  LVFUY    EQU      %                                                 *H02
      61                  1129.160           BAL,15   EXECUTE           DO STANDARD I/O                 *H00
      62                  1129.170           B        LVFUX              SKIP IF SUCCESSFUL             *H00
      63                  1129.180           SPACE                                                      *H00
      64                  1129.190           BAL,15   *:SENSE           DO STANDARD LOOP                *H00
      65                  1129.200           WAIT     %                                                 *H00
      66                  1129.210           B        LVFU                                              *H00
      67                  1129.220           SPACE                                                      *H00
      68                  1129.230  LVFUX    EQU      %                                                 *H00
      69                  1140.000  +1140                                                               *H02
      70                  1140.002           SPACE                                                      *H02
      71                  1150.000  +1150                                                               *H02
      72                  1150.010           SPACE                                                      *H02
      73                  1159.000  +1159                                                               *H02
      74                  1159.010           SPACE                                                      *H02
      75                  1168.000  +1168                                                               *H02
      76                  1168.010           SPACE                                                      *H02
      77                  1177.000  +1177                                                               *H02
      78                  1177.010           SPACE                                                      *H02
      79                  1184.000  +1184                                                               *H00
      80                  1184.010           PAGE                                                       *H00
      81                  1184.020           BOUND    8                                                 *H00
      82                  1184.030  EVFUPX   GEN,8,24 X'09',BA(EVFUPXB0) PRINTRONIX VFU IMAGE           *H00
      83                  1184.040           GEN,8,24 X'1C',BA(EVFUPXB2)-BA(EVFUPXB0)                   *H00
      84                  1184.050           SPACE                                                      *H00
      85                  1184.060  EVFUDP   GEN,8,24 X'07',BA(EVFUDPB0) DATAPRODUCTS VFU IMAGE         *H00
      86                  1184.070           GEN,8,24 X'1C',BA(EVFUDPB2)-BA(EVFUDPB0)                   *H00
      87                  1184.080           SPACE                                                      *H00
      88                  1184.090  EVFUPXB0 EQU      %                                                 *H00
      89                  1184.100  EVFULIST SET      '1','2','3','4','5','6','7','8','9',X'FA',X'FB'   *H00
      90                  1184.110  EVFUINDX DO       NUM(EVFULIST)                                     *H00
      91                  1184.120           DATA,1   EVFULIST(EVFUINDX)                                *H00
      92                  1184.130           DATA,1   X'FC',X'FC',X'FC',X'FC'                           *H00
      93                  1184.140           FIN                                                        *H00
      94                  1184.150           DATA,1   '0'                                               *H00
      95                  1184.160  EVFUPXB1 EQU      %                                                 *H00
      96                  1184.165           SPACE                                                      *H00
      97                  1184.170           DO       132-5*NUM(EVFULIST)                               *H02
      98                  1184.172           DATA,1   X'FC'                                             *H00
      99                  1184.174           FIN                                                        *H00
     100                  1184.200  EVFUPXB2 EQU      %                                                 *H00
     101                  1184.202           SPACE                                                      *H00
     102                  1184.210           BOUND    4                                                 *H00
     103                  1184.220           SPACE                                                      *H00
     104                  1184.230  DPGEN    FNAME                                                      *H00
     105                  1184.240           PROC                                                       *H00
     106                  1184.250           DO       AF(1)<7                                           *H00
     107                  1184.260  DPMSK    SET      X'10000'**-(AF(1)+2)                              *H00
     108                  1184.270           ELSE                                                       *H00
     109                  1184.280  DPMSK    SET      X'10000'**-(AF(1)+4)                              *H00
     110                  1184.290           FIN                                                        *H00
     111                  1184.300           PEND     DPMSK                                             *H00
     112                  1184.310           SPACE                                                      *H00
     113                  1184.320  EVFUDPB0 EQU      %                                                 *H00
     114                  1184.330  EVFUINDX DO       11                                                *H00
     115                  1184.340           DATA,2   DPGEN(EVFUINDX)                                   *H00
     116                  1184.350           DATA,2   0,0,0,0                                           *H00
     117                  1184.360           FIN                                                        *H00
     118                  1184.370           DATA,2   DPGEN(12)                                         *H00
     119                  1184.380  EVFUDPB1 EQU      %                                                 *H00
     120                  1184.390           SPACE                                                      *H00
     121                  1184.400           DO       143-HA(EVFUDPB1)+HA(EVFUDPB0)                     *H00
     122                  1184.410           DATA,2   0                                                 *H00
     123                  1184.420           FIN                                                        *H00
     124                  1184.430  EVFUDPB2 EQU      %                                                 *H00
     125                  1184.440           SPACE                                                      *H00
     126                  1184.450           BOUND    4                                                 *H00
     127                  1195.000  +1195,1199                                                          *H00
     128                  1195.010           SPACE                                                      *H00
     129                  1201.000  +1201,1203                                                          *H00
     130                  1205.000  +1205,1205                                                          *H00
     131                  1205.010           SPACE                                                      *H00
     132                  1246.000  +1246,1247                                                          *H00
     133                  1247.000  +1247                                                               *H01
     134                  1247.010           SPACE                                                      *H01
     135                  1247.020           LH,0     :CDB,1            LOOK FOR STC BAND PRINTER       *H01
     136                  1247.030           CI,0     7464               AND EXIT IF DRUM-LIKE          *H01
     137                  1247.040           BLE      *R15                                              *H01
     138                  1363.000  +1363                                                               *H00
     139                  1363.010           SPACE                                                      *H00
     140                  1375.000  +1375                                                               *H00
     141                  1375.010           SPACE                                                      *H00
     142                  1873.000  +1873                                                               *H00
     143                  1873.010           SPACE                                                      *H00
     144                  1873.020           LH,0     :CDB,1            PRINTRONIX PRINTERS             *H00
     145                  1873.030           CI,0     7462               BEHAVE LIKE DRUM PRINTERS      *H01
     146                  1873.040           BLE      %+5                                               *H00
     147                  1873.050           SPACE                                                      *H00
     148                  1875.000  +1875,1875                                                          *H00
     149                  1875.010           BEZ      %+3                (EMPIRICALLY DETERMINED)       *H00
     150                  1875.020           SPACE                                                      *H00
     151                  2128.000  +2128,2128                                                          *H00
     152                  2128.010  T11M02   LI,14    1024              INCREASE FOR PRINTRONIX         *H00
     153                  2213.000  +2213,2213                                                          *H00
     154                  2213.010           TEXT     'COLUMN 65 THRU 100 MUST BE BLANK'                *H00
     155                  2215.000  +2215,2215                                                          *H00
     156                  2215.010           TEXT     'COLUMN 2 THRU 60 MUST BE BLANK    '              *H00
     157                  2426.000  +2426                                                               *H00
     158                  2426.010           SPACE                                                      *H00
     159                  2426.020           LH,4     :CDB,1            THESE TYPE OF PRINTERS          *H00
     160                  2426.030           CI,4     7462               DO NOT SHOW TOP-OF-FORM        *H01
     161                  2426.040           BLE      EXIT                SO SUPPRESS ERROR             *H00
     162                  2426.050           SPACE                                                      *H00
     163                  2465.000  +2465                                                               *H00
     164                  2465.010           SPACE                                                      *H00
     165                  2474.000  +2474                                                               *H00
     166                  2474.010           SPACE                                                      *H00
     167                  3503.000  +3503                                                               *H00
     168                  3503.010           SPACE                                                      *H00
     169                  3510.000  +3510                                                               *H00
     170                  3510.010           SPACE                                                      *H00
     171                  3512.000  +3512,3512                                                          *H00
     172                  3518.000  +3518                                                               *H00
     173                  3518.010           SPACE                                                      *H00
     174                  9999.999  +END
1 C00   21:10 JUN 20,'83                                                                          PAGE    2
A   .SS BA,HA,WA,DA,LF,CF,AF,AFA,NAME,NUM,ABSVAL
    .SS R0,R1,R2,R3,R4,R5,R6,R7,R8,R9,R10,R11,R12,R13,R14,R15
    .SS X1,X2,X3,X4,X5,X6,X7,SCOR,TCOR,%,%%
    .END
1 C00   21:10 JUN 20,'83    TELEFILE LINE PRINTER DIAGNOSTIC 960-0607-H02                         PAGE    3
A       1                                     PCC
        1*        TEXT               CATALOG  EQU      C'0607'                                           *H00
        2*        TEXT               VERSION  EQU      C'H02'                                            *H02
        4                            TITLE    EQU      S:PT('TELEFILE LINE PRINTER DIAGNOSTIC ',;
        5         TEXT                                 '960-',CATALOG,'-',VERSION)

        7                                     SYSTEM   SIG7FDP

1 C00   21:10 JUN 20,'83    TELEFILE LINE PRINTER DIAGNOSTIC 960-0607-H02                         PAGE    4
A     443                            *                        ***************
      444                            *                        *             *
      445                            *                        * FAULT INDEX *
      446                            *                        *             *
      447                            *                        ***************
      448                            *
      449                            *
      450                            * FAULT INDEX DESCRIPTION - FUNCTIONAL SUBTESTS
      451                            * ---------------------------------------------
      452                            * THE FAULT INDEX CONTAINS A BRIEF DESCRIPTION OF EACH FUNCTIONAL
      453                            * SUBTEST AND A LIST OF ASSOCIATED ERROR NUMBERS WITH A BRIEF
      454                            * DESCRIPTION OF EACH ERROR. THE SUBTESTS AND ERROR NUMBERS ARE ARRANGED
      455                            * IN ASCENDING SEQUENCE. THE DESCRIPTION OF SUBTEST NN IS NUMBERED NN00.
      456                            * THE FIRST TWO DIGITS OF THE ERROR NUMBER CORRESPONDS TO THE ASSOCIATED
      457                            * SUBTEST; THE LAST TWO NUMBERS CORRESPOND TO THE INDIVIDUAL ERRORS
      458                            * WITHIN THE SUBTEST.
      459                            *
      460                            * FUNCTIONAL SUBTEST DESCRIPTION
      461                            * ------------------------------
      462                            *
      463                            * THE FUNCTIONAL SUBTEST DESCRIPTIONS PRESENTED IN THE FAULT INDEX ARE
      464                            * PRESENTED TO DEFINE THE CURRENT OPERATION BEING PERFORMED FOR EACH
      465                            * SUBTEST AND TO AID IN DEFINING THE NATURE OF THE FAILURE.
      466                            *
      467                            * DESCRIPTIVE ERROR MESSAGES
      468                            * ---------------------------
      469                            * ERROR MESSAGES MAY BE PRECEDED BY DESCRIPTIVE MESSAGES WHICH QUALIFY
      470                            * THE ERROR AND AID IN FAILURE ISOLATION.
      471                            *
      472                            * TDV STATUS SETS DESCRIPTION
      473                            * ---------------------------
      474                            * REFERENCES IN THE FAULT DESCRIPTIONS TO TDV STATUS SETS ARE
      475                            * THESE STATUS SETS ARE AVAILABLE TO THE TEST PROGRAM AND ARE IN PART
      476                            * SIMILAR TO THE PRINTER MAINTENANCE PANEL INDICATORS.
      477                            *
      478                            *
      479                            * TDV BIT 0    NOT USED
      480                            * TDV BIT 1    RECOVERY MODE 2
      481                            * TDV BIT 2    RECOVERY MODE 1
      482                            * TDV BIT 3    TOP OF PAGE
      483                            * TDV BIT 4-5  NOT USED
      484                            * TDV BIT 6    IO PARITY ERROR
      485                            * TDV BIT 7    NOT USED
      486                            *
      487                            *
      488                            *
      489                            *
      490                            *
      491                            * 0100 TST1,1 HIO, TIO, TDV AND AIO INSTRUCTION RECOGNITION  /
      492                            *      ------ ------------------------- HIO, TIO, TDV AND AIO INSTR.
      493                            *      ARE ISSUED AND  CONDITION CODES, STATUS TESTED.
      494                            *
      495                            * 0101 HIO INSTR. COND. CODES OR STATUS ERROR.
      496                            *
      497                            * 0102 TIO INSTR. COND. CODES OR STATUS ERROR.
      498                            *
      499                            * 0103 TDV INSTR. COND. CODES OR STATUS ERROR.
      500                            *
      501                            * 0104 AIO INSTR. COND. CODE ERROR. EXPECT NO INTERRUPT RECOGNITION.
      502                            *
      503                            * 0200 TST1,2 SIO INVALID ORDER
      504                            *      ------ ----------------------------   SIO IS ISSUED WITH
      505                            *      ALL INVALID ORDERS AND CONTR. TESTED FOR UNUSUAL END.
      506                            *
      507                            * 0201 SIO INSTR. COND. CODES NOT 00 AS EXPECTED.
      508                            *
      509                            * 0202 SIO INSTR. STATUS ERROR.
      510                            *
      511                            * 0203 TIO INSTR. INDICATES CONTR. BUSY 50 USEC AFTER SIO. EXPECT UE.
      512                            *
      513                            * 0204 TIO INSTR. INDICATES STATUS ERROR AFTER SIO (INVALID ORDER).
      514                            *      EXPECTED UE, CONTR. NOT BUSY.
      515                            *
      516                            * 0205 TIO INSTR. TERMINAL BYTE COUNT NOT = 1 INDICATING CONTR.
      517                            *      ACCEPTED ONE BYTE FOR INVALID ORDER.
      518                            *
      519                            *
      520                            * 0300 TST1,3  FORMAT ORDER - INHIBIT UPSPACE
      521                            *      ------- ------------------------------ A FORMAT ORDER OF
      522                            *      A BYTE COUNT OF ONE, THEN A BYTE COUNT OF TWO, ARE ISSUED.
      523                            *      TERMINAL STATUS IS VERIFIED AND THAT NO PAPER MOTION HAS OCCURRED
      524                            *
      525                            * 0301 SIO STATUS ERROR FOR FORMAT ORDER.
      526                            *
      527                            * 0302 DEVICE, CONTROLLER BUSY BEYOND NORMAL TERMINATION TIME FOR FORMAT
      528                            *      ORDER.
      529                            *
      530                            * 0303 TDV STATUS ERROR.
      531                            *
      532                            * 0304 STATUS ERROR FOR FORMAT ORDER.
      533                            *
      534                            * 0305 BYTE COUNT DID NOT DECR. AFTER FORMAT ORDER.
      535                            *
      536                            * 0500 TST1,05 INTERRUPT GENERATION AND HIO, AIO INSTR. RESETING
      537                            *      ------ -------------------------------------------------
      538                            *                  THE FOLLOWING ORDERS ARE ISSUED: X'03',X'03', AND
      539                            *      X'00' IN ORDER TO TEST THE GENERATION OF ICE, IZC AND IUE. AIO
      540                            *      AND HIO INSTR. ARE ISSUED TO TEST THE INTERRUPT CLEARING.
      541                            *
      542                            * 0501 TIO INSTR. INDICATES IP STATUS NOT PRESENT AFTER X'03' ORDER
      543                            *      WITH ICE FLAG SET.
      544                            *
      545                            * 0502 TIO INSTR. COND. CODE OR STATUS ERROR AFTER X'03' ORDER ISSUED
      546                            *      WITH ICE FLAG SET.
      547                            *
      548                            * 0503 AIO INSTR. COND. CODE, STATUS OR DEVICE ADDRESS ERROR FOLLOWING
      549                            *      A X'03' ORDER RAISING IP.
      550                            *
      551                            * 0504 HIO INSTR. DID NOT CLEAR IP IN CONTR.
      552                            *
      553                            * 0505 TIO INSTR. INDICATES IP NOT SET BY X'03' ORDER WITH IZC FLAG SET.
      554                            *
      555                            * 0506 TIO INSTR. COND. CODE OR STATUS ERROR AFTER X'03' ORDER WITH IZC
      556                            *      FLAG SET.
      557                            *
      558                            * 0507 AIO INSTR. COND. CODE, STATUS OR DEVICE ADDRESS ERROR AFTER
      559                            *      X'03' ORDER WITH IZC FLAG SET
      560                            *
      561                            * 0508 AIO OR HIO INSTR. DID NOT RESET IP STATUS IN CONTR.
      562                            *
      563                            * 0509 TIO INDICATES X'00' ORDER WITH IUE FLAG SET DID NOT SET IP
      564                            *      IN CONTR.
      565                            *
      566                            * 0510 TIO INDICATES COND. CODE OR STATUS ERROR AFTER X'00' ORDER WITH
      567                            *      IUE FLAG SET
      568                            *
      569                            * 0511 AIO COND. CODE, STATUS OR DEVICE ADDRESS ERROR AFTER X'00' ORDER
      570                            *      WITH IUE FLAG SET.
      571                            *
      572                            * 0512 TIO INDICATES NO UE STATUS FOR X'00' ORDER.
      573                            *
      574                            * 0513 TIO COND. CODE OR STATUS ERROR AFTER AIO OR HIO ISSUED WITH
      575                            *      IP STATUS PRESENT.
      576                            *
      577                            * 0514 AIO DID NOT RESET IP STATUS IN CONTR.
      578                            *
      579                            * 0600 TST1,06 IO INTERRUPT GENERATION
      580                            *      ------- --------------------------- A FORMAT WITH ICE FLAG IS
      581                            *      ISSUED. VERIFY THAT THE PROGRAM IS INTERRUPTED WHEN THE IO
      582                            *      INTERRUPT IS ARMED AND ENABLED.
      583                            *
      584                            * 0601 TIO INSTR. INDICATES IP NOT SET BY SIO, IO INTERRUPT IS DISARMED.
      585                            *
      586                            * 0602 PROGRAM WAS INTERRUPTED WHILE IO INTERRUPT WAS DISARMED.
      587                            *
      588                            * 0603 PROGRAM WAS NOT INTERRUPTED WHILE IO INTERRUPT WAS ARMED/ENABLED.
      589                            *
      590                            * 0604 TIO INDICATES IP NOT CLEARED BY AIO INSTRUCTION
      591                            *
      592                            * 0700 TST1,07 PRINT WITH FORMAT - INHIBIT UPSPACE(BLANK CHARACTERS)
      593                            *      ------- ---------------------------------------------------
      594                            *                   A PRINT W FORMAT ORDER IS ISSUED TO PERFORM A PRINT
      595                            *      OPERATION WITH INHIBIT UPSPACE FORMAT. TERMINAL STATUS AND NO
      596                            *      PAPER MOTION IS VERIFIED. BYTES OF 2 THUR 134 ARE TRANSFERRED.
      597                            *
      598                            * 0701 TDV STATUS ERROR.
      599                            *
      600                            * 0702 BYTE COUNT NOT EQUAL TO ZERO AFTER A PRINT W FORMAT ORDER
      601                            *
      602                            * 0703 IL NOT SET FOR BYTE COUNT GREATER THAN 132.
      603                            *
      604                            * 0704 IL SET FOR BYTE COUNT LESS OR  EQUAL TO 132.
      605                            *
      606                            * 0705 STATUS ERROR FOR PRINT W FORMAT.
      607                            *
      608                            * 0706 SIO STATUS ERROR FOR PRINT W FORMAT.
      609                            *
      610                            *
      611                            * 0800 TST1,08 DATA TRANSMISSION COMPLETE(DTC) INTERRUPT /
      612                            *      ------- ---------------------------------------------------------
      613                            *      USING PRINT W FORMAT AND INTERRUPT ON DATA TRANSMISSION COMPLETE,
      614                            *      VERIFY DATA TRANSM. COMPLETE INTERRUPT IS GENERATED.
      615                            *
      616                            * 0801 DATA TRANSMISSION COMPLETE INTERRUPT NOT GENERATED.
      617                            *
      618                            * 0802 TIO INDICATES COND. CODE OR STATUS ERROR FOR X'45' ORDER.
      619                            *      EXPECTED IP STATUS.
      620                            *
      621                            * 0803 AIO COND. CODE, STATUS OR DEVICE ADDRESS ERROR AFTER DTC
      622                            *      INTERRUPT GENERATED IN CONTR. EXPECTED AIO STATUS BIT 1 SET.
      623                            *
      624                            *
      625                            * 0900 TST1,09 COMMAND CHAINING
      626                            *      ------- ---------------------------- USING THE INVALID
      627                            *      ORDER, VERIFY THE COMMAND CHAINING OPERATION; VERIFY THAT THE
      628                            *      UE STATUS TERMINATES THE COMMAND CHAINING.
      629                            *
      630                            * 0901 TIO INDICATES CONTR BUSY BEYOND NORMAL TERMINATION TIME FOR
      631                            *      COMMAND CHAIN OPERATION.
      632                            *
      633                            * 0902 TIO INDICATES STATUS ERROR DURING COMMAND CHAINING OPERATION.
      634                            *
      635                            * 0903 TIO INDICATES OPERATTIONAL STATUS ERROR FOLLOWING COMMAND CHAIN
      636                            *      OPERATION.
      637                            *
      638                            * 0904 BYTE COUNT NOT 0 FOLLOWING COMMAND CHAINING OPERATION.
      639                            *
      640                            * 0905 TIO INDICATES COMMAND CHAINING TERMINATED WITH FIRST IOCD
      641                            *      INSTEAD OF SECOND IOCD.
      642                            *
      643                            * 0906 CONTR. BUSY WITH INVALID ORDER.
      644                            *
      645                            * 0907 TIO INDICATES UE NOT GENERATED FOR INVALID ORDER.
      646                            *
      647                            * 0908 TIO STATUS ERROR FOLLOWING INVALID ORDER COMMAND CHAINED.
      648                            *
      649                            * 0909 TERMINAL BYTE COUNT ZERO  FOLLOWING AN INVALID ORDER COMMAND
      650                            *      CHAINED
      651                            *
      652                            * 0910 COMMAND CHAINING NOT TERMINATED BY UE OF INVALID ORDER.
      653                            *
      654                            * 0911 SIO STATUS ERROR FOR INVALID ORDER COMMAND CHAINED
      655                            *
      656                            * 0912 SIO STATUS ERROR FOR COMMAND CHAINED
      657                            *
      658                            * 1100 TST1,11 FORMAT - SPACE ONE LINE
      659                            *      ------- -------------------------- A FORMAT ORDER IS ISSUE TO
      660                            *      SPACE ONE LINE. VERIFY THAT PAPER MOTION AND NO PRINT OPERATION
      661                            *      OCCURS.
      662                            *
      663                            *
      664                            * 1101 STATUS ERROR FOR FORMAT ORDER.
      665                            *
      666                            *
      667                            * 1300 TST1,13 PRINT BROADSIDE PATTERN
      668                            *      ------- ---------------------------- A BROADSIDE PATTERN OF ALL
      669                            *      CHARACTERS ARE PRINTED. TERMINAL STATUS IS TESTED.
      670                            *
      671                            * 1301 STATUS ERROR FOR BROADSIDE LINE.
      672                            *
      673                            * 1400 TST1,14 PRINT - SLIDING ONE COLUMN PATTERN /
      674                            *      ------- --------------------------------------- PRINT WITH
      675                            *      AUTO UPSPACE IS ISSUED WITH INCREMENTING BYTE COUNTS OF A
      676                            *      SLIDING 1 COLUMN PATTERN. VERIFY THAT NO PRINT ERRORS OCCUR.
      677                            *
      678                            * 1401 STATUS ERROR FOR A PRINT ORDER.
      679                            * 1500 TST1,15 UNAVAILABLE CHARACTER PRINT TEST
      680                            *      ------------------------------------------
      681                            *      THIS TEST WILL PRINT A LINE COMPOSED OF ALL 8-BIT
      682                            *      CODES BETWEEN 0 AND 127 CORRESPONDING TO UNAVAILABLE
      683                            *      CHARACTERS FOLLOWED BY A SIMILAR LINE COMPOSED OF
      684                            *      ALL 8-BIT CODES BETWEEN 128 AND 255 CORRESPONDING TO
      685                            *     UNAVAILABLE CHARACTERS.
      686                            *
      687                            * 1501  INVALID CHARS PRINT STATUS ERROR FOR 8-BIT CODES 0 TO 127.
      688                            *
      689                            * 1502  INVALID CHARS PRINT STATUS ERR FOR 8-BIT CODES 128 TO 255.
      690                            *
      691                            *
      692                            *
      693                            * 1700 TST1,17 SPACE LINE TEST
      694                            *      -----------------------
      695                            *      THIS TEST WILL ISSUE SPACE LINES TO TEST THE CORRECT MAPPING
      696                            *      OF THE FORMAT CODE. OPERATOR IS TO OBSERVE IF LINE PRINTER
      697                            *      HAVE SPACED THE CORRECT SPACE.
      698                            *
      699                            * 1701 SPACE XX LINES IO STATUS ERROR.
      700                            *
      701                            * 1702 SKIP TO TOP OF PAGE  IO STATUS ERROR.
      702                            *
      703                            * 1800 TST1,18 SKIP CHANNEL TEST
      704                            *      --------------------------
      705                            *      THIS TEST WILL ISSUE SKIP TO CHANNEL TO TEST THE CORRECT
      706                            *      MAPPING OF THE FORMAT CODE . OPERATOR TO OBSERVE THE
      707                            *      LINE PRINTER HAVE SKIPPED TO THE CORRECT CHANNEL.
      708                            *
      709                            * 1801 SKIPPED TO CHANNEL XX IO STATUS ERRORS.
      710                            *
      711                            * 1802 PRINT MESSAGE IO STATUS ERROR.
      712                            *
      713                            * 1900 TST1,19 DETECT TOP OF PAGE TEST
      714                            *      -------------------------------
      715                            *      THIS TEST WILL ISSUE SKIP TO BOTTOM OF PAGE THEN SPACE
      716                            *      ONE LINE UNTIL TOP OF PAGE DETECTED.
      717                            *
      718                            * 1901 SKIP TO BOTTOM OF PAGE IO STATUS ERROR
      719                            *
      720                            * 1902 SPACE ONE LINE IO STATUS ERRORS.
      721                            *
      722                            * 1903 TOP OF PAGE NOT DETECTED.
      723                            *
      724                            *
      725                            * 2000 TST1,20 PATTERN AND FORMAT TEST
      726                            *      ------- ----------------------- RUN A SELECTED SET OF UTILITY TESTS
      727                            *      IN SEQUENCE. VERIFY THAT NO PRINT ERROR OR PAPER FAULT OCCUR.
      728                            *
      729                            * 2001 STATUS ERROR FOR HAMMER REGISTRATION
      730                            *
      731                            * 2002 STATUS ERROR FOR CHECKERBOARD PATTERN
      732                            *
      733                            * 2003 STATUS ERROR FOR RIPPLE TEST PATTERN
      734                            *
      735                            * 2004 STATUS ERROR FOR PRINTER SPEED TEST
      736                            *
      737                            * 2005 STATUS ERROR FOR PRINTER LOAD TEST
      738                            *
      739                            * 2006 STATUS ERROR FOR SPACE LINE TEST
      740                            *
      741                            * 2007 STATUS ERROR FOR CHANNEL SEARCH TEST
      742                            *
      743                            * 2008 STATUS ERROR FOR PAPER SLEW SPEED TEST.
      744                            *
      745                            *
      746                            * 2200 TST1,22 IOP HALT TEST    (SIGMA 7-9)
      747                            *      ------- ------------------------
      748                            *
      749                            *      THIS TEST WILL GENERATE AN IOP HALT AT THE END OF A DATA
      750                            *      TRANSMISSION OF 1 THRU 8 BYTES WITH UPSPACING INHIBITED.
      751                            *      AFTER THE GENERATION OF EACH IOP HALT,THE ENTIRE LINE
      752                            *      WILL BE PRINTED. THIS WILL VERIFY THE INHIBIT UPSPACE
      753                            *      AND THE REPONSE TO AN IOP HALT.
      754                            *
      755                            * 2201 SIO STATUS ERROR WITH TWO TIC'S
      756                            *
      757                            * 2202 IO STATUS ERROR WITH TWO TIC'S
      758                            *
      759                            * 2203 SIO STATUS ERROR WITH ONE TIC
      760                            *
      761                            * 2204 IO STATUS ERROR WITH ONE TIC
      762                            *
      763                            * PRINTING AND SPACING:
      764                            *----------------------
      765                            *
      766                            * TST1,11 - SPACE 1 LINE
      767                            *
      768                            * TST1,13 - PRINT 64 LINES BROADSIDE PATTERN OF ALL PRINTABLE CHAR
      769                            *
      770                            * TST1,14 - PRINT 132 SLIDING ONE COLUMN PATTERN
      771                            *
      772                            * TST1,15 - PRINT 2 LINES OF UNAVAILABLE CHARACTERS
      773                            *
      774                            * TST1,17 SPACE MANY LINES
      775                            *
      776                            * TST1,18 SKIP MANY LINES
      777                            *
      778                            * TST1,19 GO TO TOP OF PAGE
      779                            *
      780                            *
      781                            * TST1,20 - PRINT 32 LINES BROADSIDE CHAR 'E'
      782                            *         - PRINT 32 LINES OF ALTERNATING BLANK AND CHAR 'E'
      783                            *         - PRINT 132 LINES OF RIPPLE TEST PATTERN
      784                            *         - PRINT 36  PRINTER SPEED TEST
      785                            *         - PRINT 263 PRINTER LOAD TEST PATTERN
      786                            *         - SPACE 1 TO 15 LINES IN SEQUENCE TWO TIMES
      787                            *         - SKIP TO CHANNEL 1 TO 12 IN SEQUENCE TWO TIMES
      788                            *         - SPACE 15 LINES  PAPER SLEW SPEED TEST
      789                            *
      790                            *
      791                            * TST1,22 - PRINT 8 LINES OF ALL XXXX CHARACTERS
      792                            *
      793                            *
      794                            *
      795         00000000           R0       EQU      0
      796         00000001           R1       EQU      1
      797         00000002           R2       EQU      2
      798         00000003           R3       EQU      3
      799         00000004           R4       EQU      4
      800         00000005           R5       EQU      5
      801         00000006           R6       EQU      6
      802         00000007           R7       EQU      7
      803         00000008           R8       EQU      8
      804         00000009           R9       EQU      9
      805         0000000A           R10      EQU      X'A'
      806         0000000B           R11      EQU      X'B'
      807         0000000C           R12      EQU      X'C'
      808         0000000D           R13      EQU      X'D'
      809         0000000E           R14      EQU      X'E'
      810         0000000F           R15      EQU      X'F'
      811                            *
      812                            * PROCEDURE
      813                            *
      814         00000000           :TSEQ    CNAME
      815                                     PROC
      816                            LF       EQU      %
      817                            I        SET 1
      818                                     DO       NUM(AF)/4+1
      819                                     GEN,8,8,8,8  AF(I),AF(I+1),AF(I+2),AF(I+3)
      820                            I        SET      I+4
      821                                     FIN
      822                                     PEND
      823                            *
      824                            *
      825                            *        PROCEDURE
      826                            *
      827         00000000           :TSEQEQU CNAME
      828                                     PROC
      829                            LF(1)    EQU      AF(1)
      830                            LF(2)    EQU      AF(1)+1
      831                            LF(3)    EQU      AF(1)+2
      832                            LF(4)    EQU      AF(1)+3
      833                            LF(5)    EQU      AF(1)+4
      834                            LF(6)    EQU      AF(1)+5
      835                            LF(7)    EQU      AF(1)+6
      836                            LF(8)    EQU      AF(1)+7
      837                                     PEND
      838                            *
      839                            *  PROCEDURE FOR GENERATING NEW AND OLD VERSION OF THIS PROGRAM
      840                            *
      841         00000000           WAITPROC CNAME
      842                                     PROC
      843                            LF       BAL,15   *:MLT+43          NEW VERSION
      844                                     DATA     AF(1)
      845                                     PEND
      846                            *
      847                            *  PROCEDURES
      848                            *  ----------
      849                            *
      850                            *  PROCEDURE  FOR GENERATING DICTONARY DOUBLE WORDS
      851                            *
      852         00000000           :PROCDIC CNAME
      853                                     PROC
      854                            LF       GEN,32,3,3,3,3,4,16  AF(1),ABSVAL(AF(2)),ABSVAL(AF(3)),;
      855                                                          ABSVAL(AF(4)),ABSVAL(AF(5)),;
      856                                                          ABSVAL(AF(6)),ABSVAL(AF(7))
      857                                     PEND

      886         00000000           REVCOUNT SET      0
      887         00000000           REVSTART SET      0
      888                            *
      889         00000000           REV      CNAME
      890                                     PROC
      891                                     DO       REVCOUNT=0
      892                            REVSTART SET      %
      893                            LF       RES      1
      894                                     FIN
      895                            REVCOUNT SET      REVCOUNT+1
      896                                     DO       SCOR(LF,REVEND)
      897                                     TEXTC    AF
      898                                     CODE
      899                                     ORG      REVSTART
      900                                     GEN,32   REVCOUNT
      901                                     ELSE
      902                                     TEXTC    AF
      903                                     FIN
      904                                     PEND
      905                            *
      906         00000000           CODE     CNAME
      907                                     PROC
      908                            REVPRINT LW,3     REVISION
      909                                     LW,4     =REVISION+1
      910                                     STW,4    TEXTADR
      911                            PRINT    BAL,15   *:PRINT
      912                            TEXTADR  DATA     0
      913                                     LB,5     *4
      914                                     AI,5     4
      915                                     SLS,5    -2
      916                                     AW,4     5
      917                                     BDR,3    PRINT-1
      918                                     LW,4     NOP
      919                                     STW,4    REVBRNCH
      920                                     B        *%-1
      921                            NOP      NOP
      922                                     PEND

      928   01 02E00                          ORG      X'2E00'
            01 02E00
      929   01 02E01    01404040 A   REVISION REV      ' '
      930   01 02E02    17E2E8E2 A            REV      'SYST,MODEL,TYPE,ADDRESS'
            01 02E03    E36BD4D6 A
            01 02E04    C4C5D36B A
            01 02E05    E3E8D7C5 A
            01 02E06    6BC1C4C4 A
            01 02E07    D9C5E2E2 A
      931   01 02E08    01404040 A            REV      ' '
        1*  01 02E09    23D4D6C4 A            REV      'MODEL 7461 = PRINTRONIX 64 CHAR SET'             *H00
            01 02E0A    C5D340F7 A
            01 02E0B    F4F6F140 A
            01 02E0C    7E40D7D9 A
            01 02E0D    C9D5E3D9 A
            01 02E0E    D6D5C9E7 A
            01 02E0F    40F6F440 A
            01 02E10    C3C8C1D9 A
            01 02E11    40E2C5E3 A
        2*  01 02E12    23D4D6C4 A            REV      'MODEL 7462 = PRINTRONIX 96 CHAR SET'             *H00
            01 02E13    C5D340F7 A
            01 02E14    F4F6F240 A
            01 02E15    7E40D7D9 A
            01 02E16    C9D5E3D9 A
            01 02E17    D6D5C9E7 A
            01 02E18    40F9F640 A
            01 02E19    C3C8C1D9 A
            01 02E1A    40E2C5E3 A
        3*  01 02E1B    25D4D6C4 A            REV      'MODEL 7463 = DATAPRODUCTS 64 CHAR SET'           *H00
            01 02E1C    C5D340F7 A
            01 02E1D    F4F6F340 A
            01 02E1E    7E40C4C1 A
            01 02E1F    E3C1D7D9 A
            01 02E20    D6C4E4C3 A
            01 02E21    E3E240F6 A
            01 02E22    F440C3C8 A
            01 02E23    C1D940E2 A
            01 02E24    C5E34040 A
        4*  01 02E25    25D4D6C4 A            REV      'MODEL 7464 = DATAPRODUCTS 96 CHAR SET'           *H00
            01 02E26    C5D340F7 A
            01 02E27    F4F6F440 A
            01 02E28    7E40C4C1 A
            01 02E29    E3C1D7D9 A
            01 02E2A    D6C4E4C3 A
            01 02E2B    E3E240F9 A
            01 02E2C    F640C3C8 A
            01 02E2D    C1D940E2 A
            01 02E2E    C5E34040 A
        5*  01 02E2F    24D4D6C4 A            REV      'MODEL 7465 = STC-BAND-LP 64 CHAR SET'            *H00
            01 02E30    C5D340F7 A
            01 02E31    F4F6F540 A
            01 02E32    7E40E2E3 A
            01 02E33    C360C2C1 A
            01 02E34    D5C460D3 A
            01 02E35    D740F6F4 A
            01 02E36    40C3C8C1 A
            01 02E37    D940E2C5 A
            01 02E38    E3404040 A
        6*  01 02E39    24D4D6C4 A            REV      'MODEL 7466 = STC-BAND-LP 96 CHAR SET'            *H00
            01 02E3A    C5D340F7 A
            01 02E3B    F4F6F640 A
            01 02E3C    7E40E2E3 A
            01 02E3D    C360C2C1 A
            01 02E3E    D5C460D3 A
            01 02E3F    D740F9F6 A
            01 02E40    40C3C8C1 A
            01 02E41    D940E2C5 A
            01 02E42    E3404040 A
      938   01 02E43    01404040 A            REV      ' '
        1*  01 02E44    284040E3 A            REV      '  TYPE=0 : LOAD ELECTRONIC VFU INHIBITED'        *H00
            01 02E45    E8D7C57E A
            01 02E46    F0407A40 A
            01 02E47    D3D6C1C4 A
            01 02E48    40C5D3C5 A
            01 02E49    C3E3D9D6 A
            01 02E4A    D5C9C340 A
            01 02E4B    E5C6E440 A
            01 02E4C    C9D5C8C9 A
            01 02E4D    C2C9E3C5 A
            01 02E4E    C4404040 A
        2*  01 02E4F    01404040 A            REV      ' '                                               *H02
        3*  01 02E50    2C4040E3 A            REV      '  TYPE>0 : LINES PER PAGE FOR ELECTRONIC VFU'    *H02
            01 02E51    E8D7C56E A
            01 02E52    F0407A40 A
            01 02E53    D3C9D5C5 A
            01 02E54    E240D7C5 A
            01 02E55    D940D7C1 A
            01 02E56    C7C540C6 A
            01 02E57    D6D940C5 A
            01 02E58    D3C5C3E3 A
            01 02E59    D9D6D5C9 A
            01 02E5A    C340E5C6 A
            01 02E5B    E4404040 A
        4*  01 02E5C    01404040 A            REV      ' '                                               *H00
        5*  01 02E5D    2A4040E3 A            REV      '  THE ELECTRONIC VFU IS RELOADED EACH TIME'      *H00
            01 02E5E    C8C540C5 A
            01 02E5F    D3C5C3E3 A
            01 02E60    D9D6D5C9 A
            01 02E61    C340E5C6 A
            01 02E62    E440C9E2 A
            01 02E63    40D9C5D3 A
            01 02E64    D6C1C4C5 A
            01 02E65    C440C5C1 A
            01 02E66    C3C840E3 A
            01 02E67    C9D4C540 A
        6*  01 02E68    2B4040E3 A            REV      '  THE CORRESPONDING SYST DIRECTIVE IS GIVEN'     *H02
            01 02E69    C8C540C3 A
            01 02E6A    D6D9D9C5 A
            01 02E6B    E2D7D6D5 A
            01 02E6C    C4C9D5C7 A
            01 02E6D    40E2E8E2 A
            01 02E6E    E340C4C9 A
            01 02E6F    D9C5C3E3 A
            01 02E70    C9E5C540 A
            01 02E71    C9E240C7 A
            01 02E72    C9E5C5D5 A
      941   01 02E73    01404040 A   REVEND   REV      ' '
            01 02E74    32302E00
            01 02E75    3240141C
            01 02E76    35402E78
            01 02E77    EAF0021C
            01 02E78    00000000 A
            01 02E79    F2500004 A
            01 02E7A    20500004 A
            01 02E7B    2550007E A
            01 02E7C    30400005 A
            01 02E7D    64302E76
            01 02E7E    32402E81
            01 02E7F    3540041B
            01 02E80    E8002E7F
            01 02E81    02000000 A
            01 02E00    00000011 A
1 C00   21:10 JUN 20,'83    TELEFILE LINE PRINTER DIAGNOSTIC 960-0607-H02                         PAGE    5
A     943                            *
      944                            *  MONITOR LINK TABLE
      945                            *  ------------------
      946                            *                     THIS TABLE IS LOADED BY THE MONITOR FOR THE
      947                            *  PURPOSE OF ESTABLISHING COMMUNICATIONS BETWEEN THE TEST PROGRAM AND
      948                            *  THE MONITOR (DPM).
      949                            *
      950   01 00200                          ORG      X'200'
            01 00200
      951                            *
      952         01 00200           :MLT     EQU      %                 ABSOLUTE RECOVERY LOCATION
      954         01 00201           :P1      EQU      :MLT+1            DIRECTIVE PARAMETER 1
      955         01 00202           :P2      EQU      :MLT+2            DIRECTIVE PARAMETER 2
      956         01 00203           :P3      EQU      :MLT+3            DIRECTIVE PARAMETER 3
      957         01 00204           :P4      EQU      :MLT+4            DIRECTIVE PARAMETER 4
      958         01 0020F           :DUMP    EQU      :MLT+15           ADDR OF MEMORY DUMP ROUTINE
      959         01 00211           :PSW     EQU      :MLT+17           PARAMETER STATUS WORD
      960         01 00213           :BCDC    EQU      :MLT+19           ADDR OF BCD FORMAT CONVERSION
      961         01 00214           :MONITOR EQU      :MLT+20           DIRECTIVE RETURN ADDRESS
      962         01 00216           :BINC    EQU      :MLT+22           ADDR OF BINARY FORMAT CONVERSION R
      963         01 00217           :DECC    EQU      :MLT+23           ADDR OF DECIMAL FORMAT CONVERSION
      964         01 00218           :HEXC    EQU      :MLT+24           ADDR OF HEXADEC FORMAT CONVERSION
      965         01 00219           :1BYTEIN EQU      :MLT+25           ADDR OF 1 BYTE INPUT ROUTINE
      966         01 0021A           :CURBCNT EQU      :MLT+26           CURRENT BYTE COUNT
      967         01 0021B           :MERROR  EQU      :MLT+27           ADDR OF ERROR REPORT ROUTINE
      968         01 0021C           :PRINT   EQU      :MLT+28           ADDR OF MESSAGE PRINT ROUTINE
      969         01 0021D           :MSENSE  EQU      :MLT+29           ADDR OF SENSE SWITCH 1,3 TESTS
      970         01 0021E           :MONWAIT EQU      :MLT+30           MONITOR WAIT
      971         01 0021F           :MRECOVR EQU      :MLT+31           BRANCH TO ABSOLUTE RECOVERY LOCATION
      972         01 00220           :MSGOUT  EQU      :MLT+32           MSG OUTPUT DEVICE, TYPE AND ADDR
      973         01 00221           :MSGIN   EQU      :MLT+33           MSG INPUT DEVICE, TYPE AND ADDR
      974         01 00222           :LOADIN  EQU      :MLT+34           ADDR OF INITIAL LOADING DEVICE
      975         01 00224           :KSRADR  EQU      :MLT+36           KEYBOARD/PRINTER DEVICE ADDR X'001
      976         01 00225           :MACHINE EQU      :MLT+37           MACHINE TYPE CODE(0 = 5/7, 9 = 8/9)
      977         01 00226           :RELBIAS EQU      :MLT+38           RELOCATION BIAS
      978         01 00227           :RLOADER EQU      :MLT+39           ADDR OF RESIDENT LOADER
      979         01 00228           :DTLFLAG EQU      :MLT+40           DIAGNOSTIC TAPE LIBRARY FLAG
      980         01 00229           :PREPORT EQU      :MLT+41           ADDR OF PARAMETER ERROR REPORT
      981         01 0022A           :QSENSE  EQU      :MLT+42           QUICK SENSE
      982         01 0022B           :WAIT    EQU      :MLT+43           WAIT SUBR.
      983         01 0022C           :DICINDX EQU      :MLT+44           ADDR OF DICTIONARY (DPM)
      984         01 0022D           :DICILEN EQU      :MLT+45           LENGHT OF DICTIONARY (DPM)
      985         01 0022E           :MEMSIZE EQU      :MLT+46           SYSTEM MEMORY SIZE
      986         01 0022F           :MEMLAST EQU      :MLT+47           ADDR OF LAST USABLE MEMORY LOCATIO
      987         01 00230           :MONIOBF EQU      :MLT+48           ADDR OF MONITOR IO BUFFER
      988         01 00231           :MONPBF  EQU      :MLT+49           ADDR OF MONITOR PARAMETER BUFFER
      989         01 00237           :REMOTE  EQU      :MLT+55           BRANCH TO CONNECT REMOTE
      990         01 00240           :MLTEND  EQU      :MLT+64           LAST LOCATION OF MONITOR LINK TABL
      991                            *
      992                            *  PROGRAM INTERFACE TABLE
      993                            *  -----------------------
      994                            *                          THIS TABLE IS LOADED BY THE TEST PROGRAM FOR
      995                            *  THE PURPOSE OF ESTABLISHING COMMUNICATIONS BETWEEN THE MONITOR (DPM)
      996                            *  AND THE USER PROGRAM.
      997                            *
      998   01 00300                          ORG      X'300'
            01 00300
      999   01 00300    00000000 A   :PIT0    DATA     0                 ADDR OF LOC. CONTAINING CATALOG NO.
     1000   01 00301    00000337     :PIT1    DATA     :PROGID           ADDR OF PROGRAM ID MESSAGE.
     1001   01 00302    00000320     :PIT2    DATA     :DIC              ADDR OF DIRECTIVE DICTIONARY
     1002   01 00303    0000000C A   :PIT3    DATA     :DICEND-:DIC      LENGTH OF DIRECTIVE DICTIONARY
     1003   01 00304    0000041A     :PIT4    DATA     :RECOVER          ADDR OF ABSOLUTE RECOVERY ROUTINE
     1004   01 00305    0000032C     :PIT5    DATA     :CDT              ADDR OF CONTEXT DISCRIPTION TABLE
     1005   01 00306    00000002 A   :PIT6    DATA     :CDTEND-:CDT      LENGTH OF CONTEXT DESCRIPTION TABLE
     1006   01 00307    00000000 A   :PIT7    DATA     0
     1007   01 00308    00000343     :PIT8    DATA     :INITIAL          ADDR OF INITIALIZER ROUTINE
     1008   01 00309    00000000 A   :PIT9    DATA     0                 LAST MODEL NUMBER STORED IN CDB
     1009   01 0030A    00000000 A   :PIT10   DATA     0                 PARAMETER NUMBER, PARAMETER IN ERROR
     1010   01 0030B    00000000 A   :PIT11   DATA     0                 ADDR OF MSG TO BE PRINTED AFTER INIT
     1011   01 0030C    00000000 A   :PIT12   DATA     0                 RUNFLAG, RUN PROG IF FLAG = -1
     1012   01 0030D    00000000 A            DATA     0
     1013   01 0030E    00000000 A            DATA     0
     1014   01 0030F    00000000 A   :PIT15   DATA     0                 INTERRUPT/TRAP HANDLER ADDRESS
     1015         01 00310           :PITLAST EQU      %
     1016         01 0031B           :PITEND  EQU      :PIT0+27
     1017         0000000B                    DO       :PITEND-:PITLAST  CLEAR LOCATIONS UP TO PIT27
     1018   01 00310    00000000 A            DATA     0
     1019                                     FIN
            01 00311    00000000 A
            01 00312    00000000 A
            01 00313    00000000 A
            01 00314    00000000 A
            01 00315    00000000 A
            01 00316    00000000 A
            01 00317    00000000 A
            01 00318    00000000 A
            01 00319    00000000 A
            01 0031A    00000000 A
1 C00   21:10 JUN 20,'83    TELEFILE LINE PRINTER DIAGNOSTIC 960-0607-H02                         PAGE    6
A    1021                            *
     1022                            *  DIRECTIVE DICTIONARY
     1023                            *  --------------------
     1024                            *                        THIS TABLE SUPPLIES THE MONITOR WITH
     1025                            *  INFORMATION ABOUT EACH DIRECTIVE AVAILABLE IN THE TEST PROGRAM.
     1026                            *  EACH DICTIONARY ENTRY CONSISTS OF 2 WORDS (64 BITS) WHICH ARE
     1027                            *  DEFINED AS FOLLOWS:
     1028                            *
     1029                            *  BITS 00 THRU 31  4 BYTE MNEMONIC IDENTIFIER IN EBCDIC
     1030                            *  BITS 32 THRU 34  TYPE OF CONVERSION FOR PARAMETER 1.
     1031                            *  BITS 35 THRU 37  TYPE OF CONVERSION FOR PARAMETER 2.
     1032                            *  BITS 38 THRU 40  TYPE OF CONVERSION FOR PARAMETER 3.
     1033                            *  BITS 41 THRU 43  TYPE OF CONVERSION FOR PARAMETER 4.
     1034                            *  BITS 44 THRU 47  NOT ASSIGNED; MUST BE EQUAL TO ZERO
     1035                            *  BITS 48 THRU 63  ROUTINE ADDRESS
     1036                            *
     1037                            *  TYPE OF PARAMETER CONVERSION
     1038                            *
     1039                            *  000   HEXADECIMAL CONVERSION
     1040                            *  001   DECIMAL CONVERSION TO BINARY
     1041                            *  002   ALPHANUMERIC
     1042                            *  007   UNASSIGNED
     1043                            *
     1044   01 00320                          ORG      X'320'
            01 00320
     1045         01 00320           :DIC     EQU      %
     1046   01 00320    E3E2E3F0 A            :PROCDIC 'TST0',7,7,7,7,0,TST0      COMPREHENSIVE
                        FFF00425
     1047   01 00322    E3E2E3F1 A            :PROCDIC 'TST1',1,1,7,7,0,TST1      FUNCTIONAL TEST
                        27F004A0
     1048   01 00324    E3E2E3F2 A            :PROCDIC 'TST2',1,7,7,7,0,TST2      RANDOM EXERCISER
                        3FF0094F
     1049   01 00326    E3E2E3F3 A            :PROCDIC 'TST3',1,1,1,1,0,TST3     UTILITY TEST
                        24900A72
     1050   01 00328    C4C1E3C1 A            :PROCDIC 'DATA',1,0,0,0,0,:DATA     DATA DIRECTIVE
                        20000E1A
     1051   01 0032A    D3C9D4E3 A            :PROCDIC 'LIMT',1,1,1,1,0,:LIMIT   LIMIT DIRECTIVE
                        24900E62
     1052                            *
     1053         01 0032C           :DICEND  EQU      %
     1054                            *
     1055                            *
     1056                            *  CONTEXT DESCRIPTION TABLE
     1057                            *  -------------------------
     1058                            *                             THE CONTEXT DESCRIPTION TABLE ALLOWS
     1059                            *  THE MONITOR TO PASS-ON ENVIRONMENTAL INFORMATION FROM THE 'SYST'
     1060                            *  DIRECTIVE TO THE TEST PROGRAM. NORMALLY ONLY ONE ENTRY WILL BE
     1061                            *  REQUIRED. EACH CONTEXT DESCRIPTION TABLE ENTRY CONSISTS OF 2 WORDS
     1062                            *  (64 BITS) WHICH ARE DEFINED AS FOLLOWS:
     1063                            *
     1064                            *  BITS 00 THRU 08  LENGTH OF CONTEXT DATA BLOCK
     1065                            *  BITS 09 THRU 27  NOT ASSIGNED; MUST BE EQUAL TO ZERO
     1066                            *  BITS 28 THRU 31  NUMBER OF DEVICE MODEL NUMBERS
     1067                            *  BITS 32 THRU 61  ADDR OF CONTEXT DATA BLOCK
     1068                            *
     1069         01 0032C           :CDT     EQU      :DICEND
     1070   01 0032C    01800006 N            GEN,9,19,4,32 :CDBEND-:CDB,0,:CDBMEND-:CDBM,:CDB
                        00000334
     1071         01 0032E           :CDTEND  EQU      %
     1072                            *
     1073                            *
     1074                            *  CONTEXT DATA BLOCK
     1075                            *  ------------------
     1076                            *                      THE CONTEXT DATA BLOCK CONTAINS ENVIRONMENTAL
     1077                            *  INFORMATION FOR THE TEST PROGRAM.
     1078                            *
     1079         01 0032E           :CDBM    EQU      %
     1080   01 0032E    00001D25 A            DATA     7461                   MODEL NUMBER
     1081   01 0032F    00001D26 A            DATA     7462
     1082   01 00330    00001D27 A            DATA     7463
     1083   01 00331    00001D28 A            DATA     7464
     1084   01 00332    00001D29 A            DATA     7465
     1085   01 00333    00001D2A A            DATA     7466
     1086         01 00334           :CDBMEND EQU      %
     1087                            *
     1088         01 00334           :CDB     EQU      %
     1089   01 00334    00031D25 A            GEN,16,16 3,7461           PARAMETER COUNT, MODEL NUMBER
        1*  01 00335    00000000 A            DATA     0                 TYPE (INHIBIT VFU LOAD)         *H02
     1091   01 00336    00000002 A            DATA     2                 DEVICE ADDRESS
     1092                            *
     1093         01 00337           :CDBEND  EQU      %
     1094                            *
     1095                            *
     1096                            *
     1097                            *
     1098         01 00337           :PROGID  EQU      %                 PROGRAM IDENTIFICATION MESSAGE
     1099   01 00337    2DE3C5D3 A            TEXTC    TITLE
            01 00338    C5C6C9D3 A
            01 00339    C540D3C9 A
            01 0033A    D5C540D7 A
            01 0033B    D9C9D5E3 A
            01 0033C    C5D940C4 A
            01 0033D    C9C1C7D5 A
            01 0033E    D6E2E3C9 A
            01 0033F    C340F9F6 A
            01 00340    F060F0F6 A
            01 00341    F0F760C8 A
            01 00342    F0F24040 A
1 C00   21:10 JUN 20,'83    TELEFILE LINE PRINTER DIAGNOSTIC 960-0607-H02                         PAGE    7
A    1101                            *
     1102                            *        *** INITIAL - INITIALIZATION ROUTINE ***
     1103                            *
     1104                            * THIS ROUTINE IS ACCESSED BY THE MONITOR AFTER LOADING THE TEST
     1105                            * PROGRAM AND WHENEVER A SYST DIRECTIVE IS EXECUTED BY THE USER.
     1106                            *
     1107   01 00343    35F00419     :INITIAL STW,15   INITIALX          SAVE RETURN ADDRESS
     1108   01 00344    6AF00237              BAL,15   :REMOTE           CONNECT REMOTE
     1109   01 00345    6AF0041A              BAL,15   :RECOVER
     1110   01 00346    52E00334              LH,14    :CDB              FETCH NUMBER OF PARAMETER ENTERED
     1111   01 00347    21E00003 A            CI,14    3                 COMPARE TO 3
     1112   01 00348    6830034D              BE       %+5               B: NO. OF PAR = 3
     1113   01 00349    3530030A              STW,3    :PIT10            SAVE PARAMETER IN ERROR
     1114   01 0034A    22E00000 A   INITIALA LI,14    0                 RESET RUN FLAG
     1115   01 0034B    35E0030C              STW,14   :PIT12
     1116   01 0034C    E8000419              B        *INITIALX         RETURN TO MONITOR

     1118   01 0034D    32E00336              LW,14    :CDB+2            DEVICE ADDRESS
     1119   01 0034E    21E00080 A            CI,14    X'80'             IS IT SINGLE UNIT ADDR
     1120   01 0034F    69400349              BCS,4    INITIALA-1         B: NO
     1121   01 00350    21E01B7F A            CI,14    X'1B7F'           IS DEVICE ADDRESS VALID
     1122   01 00351    69200349              BG       INITIALA-1        B: NO, DEVICE ADDR > X'7FF'
     1123   01 00352    35E00FC6              STW,14   :DEVADDR          SAVE DEVICE ADDRESS
     1124   01 00353    22EFFFFF A            LI,14    -1                SET RUN FLAG
     1125   01 00354    35E0030C              STW,14   :PIT12
     1126   01 00355    22E00D75              LI,14    CHARTBL           CHAR TABLE ADDR
     1127   01 00356    35E00CC5              STW,14   CHARTBLX          SAVE
     1128   01 00357    22E0000F A            LI,14    15                GET MAXIMUM CHANNEL
     1129   01 00358    35E00911              STW,14   MAXCHAN           SAVE

        2*        01 00359           LVFU     EQU      %                                                 *H00
        3*  01 00359    52420334              LH,4     :CDB,1            GET MODEL NUMBER                *H00
        4*  01 0035A    21401D26 A            CI,4     7462               COMPARE WITH PRINTRONIX        *H02
        5*  01 0035B    69200364              BG       LVFU1               AND SKIP IF DATAPRODUCTS      *H02

        7*        01 0035C           LVFU0    EQU      %                                                 *H02
        8*  01 0035C    32000335              LW,0     :CDB+1            GET EVFU INDICATOR              *H02
        9*  01 0035D    68300372              BEZ      LVFUX              SKIP IF ZERO                   *H02

       11*  01 0035E    21000084 A            CI,0     132               CHECK FOR MAXIMUM               *H02
       12*  01 0035F    68200361              BLE      %+2                LINES PER PAGE                 *H02
       13*  01 00360    22000084 A            LI,0     132                                               *H02

       15*  01 00361    550203AB              STH,0    EVFUPX+1,1        PLACE IN IOCD                   *H02

       17*  01 00362    220001D5              LI,0     DA(EVFUPX)        SET FOR LOAD                    *H02
       18*  01 00363    6800036D              B        LVFUY              EVFU - PRINTRONIX              *H02

       20*        01 00364           LVFU1    EQU      %                                                 *H02
       21*  01 00364    32000335              LW,0     :CDB+1            GET EVFU INDICATOR              *H02
       22*  01 00365    68300372              BEZ      LVFUX              SKIP IF ZERO                   *H02

       24*  01 00366    2100008F A            CI,R0    143               CHECK FOR MAXIMUM               *H02
       25*  01 00367    68200369              BLE      %+2                LINES PER PAGE                 *H02
       26*  01 00368    2200008F A            LI,R0    143                                               *H02

       28*  01 00369    25000001 A            SLS,0    1                 HALF WORD PER LINE              *H02
       29*  01 0036A    550203AD              STH,0    EVFUDP+1,1         STORE IN CHANNEL PROGRAM       *H02

       31*  01 0036B    220001D6              LI,0     DA(EVFUDP)        SET FOR LOAD                    *H02
       32*  01 0036C    6800036D              B        LVFUY              EVFU - DATA PRODUCTS           *H02

       34*        01 0036D           LVFUY    EQU      %                                                 *H02
       35*  01 0036D    6AF012C5              BAL,15   EXECUTE           DO STANDARD I/O                 *H00
       36*  01 0036E    68000372              B        LVFUX              SKIP IF SUCCESSFUL             *H00

       38*  01 0036F    EAF0138D              BAL,15   *:SENSE           DO STANDARD LOOP                *H00
       39*  01 00370    2E000370              WAIT     %                                                 *H00
       40*  01 00371    68000359              B        LVFU                                              *H00

       42*        01 00372           LVFUX    EQU      %                                                 *H00
     1130   01 00372    52E20334              LH,14    :CDB,1            FETCH MODEL NUMBER
     1131   01 00373    21E01D25 A            CI,14    7461              IS IT LOW SPEED 64 CHAR SET LP
     1132   01 00374    6930037D              BNE      INITIALB          B: NO
     1133   01 00375    22F00040 A            LI,15    64                GET CHAR NO.
     1134   01 00376    35F00418              STW,15   CHARINDX          SAVE CHAR INDEX
     1135   01 00377    35F00CC7              STW,15   LASTCHAR          SAVE
     1136   01 00378    22F00084 A            LI,15    132               GET BYTE COUNT
     1137   01 00379    55F20E17              STH,15   IOCD34+1,1        SAVE BYTE COUNT IN IOCD
     1138   01 0037A    22F0000B A            LI,15    11                GET MAXIMUM CHANNEL NUMBER
     1139   01 0037B    35F00911              STW,15   MAXCHAN           SAVE
     1140   01 0037C    E8000419              B        *INITIALX         RETURN TO MONITOR

     1141   01 0037D    21E01D26 A   INITIALB CI,14    7462              IS IT LOW SPEED 95 CHAR SET LP
     1142   01 0037E    69300387              BNE      INITIALC          B : N0
     1143   01 0037F    22F0005F A            LI,15    95                GET CHAR INDEX
     1144   01 00380    35F00418              STW,15   CHARINDX          SAVE CHAR INDEX
     1145   01 00381    35F00CC7              STW,15   LASTCHAR          SAVE LAST CHAR
     1146   01 00382    22F00084 A            LI,15    132               GET BYTE COUNT
     1147   01 00383    55F20E17              STH,15   IOCD34+1,1        SAVE BYTE COUNT IN IOCD
     1148   01 00384    22F0000B A            LI,15    11                GET MAXIMUM CHANNEL NUMBER
     1149   01 00385    35F00911              STW,15   MAXCHAN           SAVE
     1150   01 00386    E8000419              B        *INITIALX         RETURN TO MONITOR

     1151   01 00387    21E01D27 A   INITIALC CI,14    7463              IS IT MED SPEED 60 CHAR SET LP
     1152   01 00388    69300390              BNE      INITIALD          B: NO
     1153   01 00389    22F00040 A            LI,15    64                GET CHAR INDEX
     1154   01 0038A    35F00418              STW,15   CHARINDX          SAVE CHAR INDEX
     1155   01 0038B    22F00020 A            LI,15    32                GET LAST CHAR
     1156   01 0038C    35F00CC7              STW,15   LASTCHAR          SAVE LAST CHAR
     1157   01 0038D    22F00048 A            LI,15    72                GET BYTE COUNT
     1158   01 0038E    55F20E17              STH,15   IOCD34+1,1        SAVE BYTE COUNT IN IOCD
     1159   01 0038F    E8000419              B        *INITIALX         RETURN TO MONITOR

     1160   01 00390    21E01D28 A   INITIALD CI,14    7464              IS IT MED SPEED 95 CHAR SET LP
     1161   01 00391    69300399              BNE      INITIALE          B :NO
     1162   01 00392    22F0005F A            LI,15    95                GET CHAR INDEX
     1163   01 00393    35F00418              STW,15   CHARINDX          SAVE CHAR INDEX
     1164   01 00394    22F00020 A            LI,15    32                GET LAST CHAR
     1165   01 00395    35F00CC7              STW,15   LASTCHAR          SAVE LAST CHAR
     1166   01 00396    22F00048 A            LI,15    72                GET BYTE CIUNT
     1167   01 00397    55F20E17              STH,15   IOCD34+1,1        SAVE BYTE COUNT IN IOCD
     1168   01 00398    E8000419              B        *INITIALX         RETURN TO MONITOR

     1169   01 00399    21E01D29 A   INITIALE CI,14    7465              IS IT HIGH SPEED 64 CHAR SET LP
     1170   01 0039A    693003A2              BNE      INITIALF          B: NO
     1171   01 0039B    22F00040 A            LI,15    64                GET CHAR INDEX
     1172   01 0039C    35F00418              STW,15   CHARINDX          SAVE CHAR INDEX
     1173   01 0039D    22F00024 A            LI,15    36                GET LAST CHAR
     1174   01 0039E    35F00CC7              STW,15   LASTCHAR          SAVE LAST CHAR
     1175   01 0039F    22F00084 A            LI,15    132               GET BYTE COUNT
     1176   01 003A0    55F20E17              STH,15   IOCD34+1,1        SAVE IN IOCD
     1177   01 003A1    E8000419              B        *INITIALX         RETURN TO MONITOR

     1178   01 003A2    22F0005F A   INITIALF LI,15    95                GET CHAR INDEX
     1179   01 003A3    35F00418              STW,15   CHARINDX          SAVE CHAR INDEX
     1180   01 003A4    22F00024 A            LI,15    36                GET LAST CHAR
     1181   01 003A5    35F00CC7              STW,15   LASTCHAR          SAVE LAST CHAR
     1182   01 003A6    22F00084 A            LI,15    132               GET BYTE COUNT
     1183   01 003A7    55F20E17              STH,15   IOCD34+1,1        SAVE IN IOCD
     1184   01 003A8    E8000419              B        *INITIALX         RETURN TO MONITOR
1 C00   21:10 JUN 20,'83    TELEFILE LINE PRINTER DIAGNOSTIC 960-0607-H02                         PAGE    8
A       2*                                    BOUND    8                                                 *H00
        3*  01 003AA    09000EB8     EVFUPX   GEN,8,24 X'09',BA(EVFUPXB0) PRINTRONIX VFU IMAGE           *H00
        4*  01 003AB    1C000085 A            GEN,8,24 X'1C',BA(EVFUPXB2)-BA(EVFUPXB0)                   *H00

        6*  01 003AC    07000F40     EVFUDP   GEN,8,24 X'07',BA(EVFUDPB0) DATAPRODUCTS VFU IMAGE         *H00
        7*  01 003AD    1C00011E A            GEN,8,24 X'1C',BA(EVFUDPB2)-BA(EVFUDPB0)                   *H00

        9*        01 003AE           EVFUPXB0 EQU      %                                                 *H00
       10*        LIST               EVFULIST SET      '1','2','3','4','5','6','7','8','9',X'FA',X'FB'   *H00
       11*        0000000B           EVFUINDX DO       NUM(EVFULIST)                                     *H00
       12*  01 003AE    F1       A            DATA,1   EVFULIST(EVFUINDX)                                *H00
       13*  01 003AE 1  FC       A            DATA,1   X'FC',X'FC',X'FC',X'FC'                           *H00
            01 003AE 2  FC       A
            01 003AE 3  FC       A
            01 003AF    FC       A
       14*                                    FIN                                                        *H00
            01 003AF 1  F2       A
            01 003AF 2  FC       A
            01 003AF 3  FC       A
            01 003B0    FC       A
            01 003B0 1  FC       A
            01 003B0 2  F3       A
            01 003B0 3  FC       A
            01 003B1    FC       A
            01 003B1 1  FC       A
            01 003B1 2  FC       A
            01 003B1 3  F4       A
            01 003B2    FC       A
            01 003B2 1  FC       A
            01 003B2 2  FC       A
            01 003B2 3  FC       A
            01 003B3    F5       A
            01 003B3 1  FC       A
            01 003B3 2  FC       A
            01 003B3 3  FC       A
            01 003B4    FC       A
            01 003B4 1  F6       A
            01 003B4 2  FC       A
            01 003B4 3  FC       A
            01 003B5    FC       A
            01 003B5 1  FC       A
            01 003B5 2  F7       A
            01 003B5 3  FC       A
            01 003B6    FC       A
            01 003B6 1  FC       A
            01 003B6 2  FC       A
            01 003B6 3  F8       A
            01 003B7    FC       A
            01 003B7 1  FC       A
            01 003B7 2  FC       A
            01 003B7 3  FC       A
            01 003B8    F9       A
            01 003B8 1  FC       A
            01 003B8 2  FC       A
            01 003B8 3  FC       A
            01 003B9    FC       A
            01 003B9 1  FA       A
            01 003B9 2  FC       A
            01 003B9 3  FC       A
            01 003BA    FC       A
            01 003BA 1  FC       A
            01 003BA 2  FB       A
            01 003BA 3  FC       A
            01 003BB    FC       A
            01 003BB 1  FC       A
            01 003BB 2  FC       A
       15*  01 003BB 3  F0       A            DATA,1   '0'                                               *H00
       16*        01 003BC           EVFUPXB1 EQU      %                                                 *H00

       18*        0000004D                    DO       132-5*NUM(EVFULIST)                               *H02
       19*  01 003BC    FC       A            DATA,1   X'FC'                                             *H00
       20*                                    FIN                                                        *H00
            01 003BC 1  FC       A
            01 003BC 2  FC       A
            01 003BC 3  FC       A
            01 003BD    FC       A
            01 003BD 1  FC       A
            01 003BD 2  FC       A
            01 003BD 3  FC       A
            01 003BE    FC       A
            01 003BE 1  FC       A
            01 003BE 2  FC       A
            01 003BE 3  FC       A
            01 003BF    FC       A
            01 003BF 1  FC       A
            01 003BF 2  FC       A
            01 003BF 3  FC       A
            01 003C0    FC       A
            01 003C0 1  FC       A
            01 003C0 2  FC       A
            01 003C0 3  FC       A
            01 003C1    FC       A
            01 003C1 1  FC       A
            01 003C1 2  FC       A
            01 003C1 3  FC       A
            01 003C2    FC       A
            01 003C2 1  FC       A
            01 003C2 2  FC       A
            01 003C2 3  FC       A
            01 003C3    FC       A
            01 003C3 1  FC       A
            01 003C3 2  FC       A
            01 003C3 3  FC       A
            01 003C4    FC       A
            01 003C4 1  FC       A
            01 003C4 2  FC       A
            01 003C4 3  FC       A
            01 003C5    FC       A
            01 003C5 1  FC       A
            01 003C5 2  FC       A
            01 003C5 3  FC       A
            01 003C6    FC       A
            01 003C6 1  FC       A
            01 003C6 2  FC       A
            01 003C6 3  FC       A
            01 003C7    FC       A
            01 003C7 1  FC       A
            01 003C7 2  FC       A
            01 003C7 3  FC       A
            01 003C8    FC       A
            01 003C8 1  FC       A
            01 003C8 2  FC       A
            01 003C8 3  FC       A
            01 003C9    FC       A
            01 003C9 1  FC       A
            01 003C9 2  FC       A
            01 003C9 3  FC       A
            01 003CA    FC       A
            01 003CA 1  FC       A
            01 003CA 2  FC       A
            01 003CA 3  FC       A
            01 003CB    FC       A
            01 003CB 1  FC       A
            01 003CB 2  FC       A
            01 003CB 3  FC       A
            01 003CC    FC       A
            01 003CC 1  FC       A
            01 003CC 2  FC       A
            01 003CC 3  FC       A
            01 003CD    FC       A
            01 003CD 1  FC       A
            01 003CD 2  FC       A
            01 003CD 3  FC       A
            01 003CE    FC       A
            01 003CE 1  FC       A
            01 003CE 2  FC       A
            01 003CE 3  FC       A
            01 003CF    FC       A
       21*        01 003CF 1         EVFUPXB2 EQU      %                                                 *H00

       23*                                    BOUND    4                                                 *H00

       25*        00000000           DPGEN    FNAME                                                      *H00
       26*                                    PROC                                                       *H00
       27*                                    DO       AF(1)<7                                           *H00
       28*                           DPMSK    SET      X'10000'**-(AF(1)+2)                              *H00
       29*                                    ELSE                                                       *H00
       30*                           DPMSK    SET      X'10000'**-(AF(1)+4)                              *H00
       31*                                    FIN                                                        *H00
       32*                                    PEND     DPMSK                                             *H00

       34*        01 003D0           EVFUDPB0 EQU      %                                                 *H00
       35*        0000000B           EVFUINDX DO       11                                                *H00
       36*  01 003D0    2000     A            DATA,2   DPGEN(EVFUINDX)                                   *H00
       37*  01 003D0 2  0000     A            DATA,2   0,0,0,0                                           *H00
            01 003D1    0000     A
            01 003D1 2  0000     A
            01 003D2    0000     A
       38*                                    FIN                                                        *H00
            01 003D2 2  1000     A
            01 003D3    0000     A
            01 003D3 2  0000     A
            01 003D4    0000     A
            01 003D4 2  0000     A
            01 003D5    0800     A
            01 003D5 2  0000     A
            01 003D6    0000     A
            01 003D6 2  0000     A
            01 003D7    0000     A
            01 003D7 2  0400     A
            01 003D8    0000     A
            01 003D8 2  0000     A
            01 003D9    0000     A
            01 003D9 2  0000     A
            01 003DA    0200     A
            01 003DA 2  0000     A
            01 003DB    0000     A
            01 003DB 2  0000     A
            01 003DC    0000     A
            01 003DC 2  0100     A
            01 003DD    0000     A
            01 003DD 2  0000     A
            01 003DE    0000     A
            01 003DE 2  0000     A
            01 003DF    0020     A
            01 003DF 2  0000     A
            01 003E0    0000     A
            01 003E0 2  0000     A
            01 003E1    0000     A
            01 003E1 2  0010     A
            01 003E2    0000     A
            01 003E2 2  0000     A
            01 003E3    0000     A
            01 003E3 2  0000     A
            01 003E4    0008     A
            01 003E4 2  0000     A
            01 003E5    0000     A
            01 003E5 2  0000     A
            01 003E6    0000     A
            01 003E6 2  0004     A
            01 003E7    0000     A
            01 003E7 2  0000     A
            01 003E8    0000     A
            01 003E8 2  0000     A
            01 003E9    0002     A
            01 003E9 2  0000     A
            01 003EA    0000     A
            01 003EA 2  0000     A
            01 003EB    0000     A
       39*  01 003EB 2  0001     A            DATA,2   DPGEN(12)                                         *H00
       40*        01 003EC           EVFUDPB1 EQU      %                                                 *H00

       42*        00000057                    DO       143-HA(EVFUDPB1)+HA(EVFUDPB0)                     *H00
       43*  01 003EC    0000     A            DATA,2   0                                                 *H00
       44*                                    FIN                                                        *H00
            01 003EC 2  0000     A
            01 003ED    0000     A
            01 003ED 2  0000     A
            01 003EE    0000     A
            01 003EE 2  0000     A
            01 003EF    0000     A
            01 003EF 2  0000     A
            01 003F0    0000     A
            01 003F0 2  0000     A
            01 003F1    0000     A
            01 003F1 2  0000     A
            01 003F2    0000     A
            01 003F2 2  0000     A
            01 003F3    0000     A
            01 003F3 2  0000     A
            01 003F4    0000     A
            01 003F4 2  0000     A
            01 003F5    0000     A
            01 003F5 2  0000     A
            01 003F6    0000     A
            01 003F6 2  0000     A
            01 003F7    0000     A
            01 003F7 2  0000     A
            01 003F8    0000     A
            01 003F8 2  0000     A
            01 003F9    0000     A
            01 003F9 2  0000     A
            01 003FA    0000     A
            01 003FA 2  0000     A
            01 003FB    0000     A
            01 003FB 2  0000     A
            01 003FC    0000     A
            01 003FC 2  0000     A
            01 003FD    0000     A
            01 003FD 2  0000     A
            01 003FE    0000     A
            01 003FE 2  0000     A
            01 003FF    0000     A
            01 003FF 2  0000     A
            01 00400    0000     A
            01 00400 2  0000     A
            01 00401    0000     A
            01 00401 2  0000     A
            01 00402    0000     A
            01 00402 2  0000     A
            01 00403    0000     A
            01 00403 2  0000     A
            01 00404    0000     A
            01 00404 2  0000     A
            01 00405    0000     A
            01 00405 2  0000     A
            01 00406    0000     A
            01 00406 2  0000     A
            01 00407    0000     A
            01 00407 2  0000     A
            01 00408    0000     A
            01 00408 2  0000     A
            01 00409    0000     A
            01 00409 2  0000     A
            01 0040A    0000     A
            01 0040A 2  0000     A
            01 0040B    0000     A
            01 0040B 2  0000     A
            01 0040C    0000     A
            01 0040C 2  0000     A
            01 0040D    0000     A
            01 0040D 2  0000     A
            01 0040E    0000     A
            01 0040E 2  0000     A
            01 0040F    0000     A
            01 0040F 2  0000     A
            01 00410    0000     A
            01 00410 2  0000     A
            01 00411    0000     A
            01 00411 2  0000     A
            01 00412    0000     A
            01 00412 2  0000     A
            01 00413    0000     A
            01 00413 2  0000     A
            01 00414    0000     A
            01 00414 2  0000     A
            01 00415    0000     A
            01 00415 2  0000     A
            01 00416    0000     A
            01 00416 2  0000     A
            01 00417    0000     A
       45*        01 00417 2         EVFUDPB2 EQU      %                                                 *H00

       47*                                    BOUND    4                                                 *H00
     1185   01 00418    00000000 A   CHARINDX DATA     0
     1186   01 00419    00000000 A   INITIALX DATA     0                 RETURN ADDRESS
1 C00   21:10 JUN 20,'83    TELEFILE LINE PRINTER DIAGNOSTIC 960-0607-H02                         PAGE    9
A    1188                            *                                                                      *
     1189                            *            *** RECOVER - RECOVERY ROUTINE  ***                       *
     1190                            *                                                                      *
     1191                            *  THE RECOVER ROUTINE RE-INITIALIZES PROGRAM PARAMETERS WHEN THE PCP  *
     1192                            *  INTERRUPT SWITCH IS DEPRESSED.                                      *
     1193                            *                                                                      *
     1194   01 0041A    35F00424     :RECOVER STW,R15  RECOVERX          SAVE RETURN ADDRESS

     1200         01 0041B           REVBRNCH EQU      %
     1204   01 0041B    6AF02E74              BAL,15   REVPRINT

     1206   01 0041C    22100001 A            LI,1     1
     1207   01 0041D    22200002 A            LI,2     2
     1208   01 0041E    22300003 A            LI,3     3
     1209   01 0041F    6AF0128D              BAL,R15  :INTD             DISARM IO INTERRUPT
     1210   01 00420    6AF01093              BAL,R15  :DELAYD           DISARM COUNTER 4 INTERRUPTS
     1211   01 00421    6AF0122F              BAL,R15  :SAVECLR          CLEAR ERROR REPORT TABLE
     1212   01 00422    CFC00FC6              HIO,12   *:DEVADDR          ISSUE  HIO
     1213   01 00423    E8000424              B        *RECOVERX         EXIT
     1214                            *
     1215   01 00424    00000000 A   RECOVERX DATA     0
1 C00   21:10 JUN 20,'83    TELEFILE LINE PRINTER DIAGNOSTIC 960-0607-H02                         PAGE   10
A    1217                            *                                                                      *
     1218                            *            *** TST0 - FUNCTIONAL TEST AND RANDOM EXERCISER ***       *
     1219                            *                                                                      *
     1220                            *  THIS DIRECTIVE ALLOWS THE USER TO SPECIFY THE EXECUTION OF THE      *
     1221                            *  FUNCTIONAL TEST, FOLLOWED  IMMEDIATELY BY THE RANDOM EXERCISER.     *
     1222                            *                                                                      *
     1223                            *  P1 THRU P4 ARE NOT USED                                             *
     1224                            *                                                                      *
     1225   01 00425    22E00000 A   TST0     LI,14    0                 SET TEST FLAG TO 0
     1226   01 00426    35E00432              STW,14   TSTFLAG
     1227   01 00427    35100201              STW,1    :P1               INITIALIZE STARTING SUBTEST
     1228   01 00428    22E00014 A            LI,14    20                    AND
     1229   01 00429    35E00202              STW,14   :P2                   ENDING SUBTEST
     1230   01 0042A    680004A3              B        TST1ALT           GO TO TEST1
     1231   01 0042B    22E00006 A   TST0A    LI,14    6                 INITIALIZE CYCLE COUNT
     1232   01 0042C    35E00201              STW,14   :P1
     1233   01 0042D    68000957              B        TST2ALT           GO TO TEST2
     1234   01 0042E    EAF0138D     TST0B    BAL,15   *:SENSE           TEST SENSE SWITCH 1,3
     1235   01 0042F    2E00042F              WAIT     %
     1236   01 00430    68000427              B        TST0+2            LOOP
     1237   01 00431    E8000214              B        *:MONITOR         RETURN TO MONITOR
     1238                            *
     1239   01 00432    00000000 A   TSTFLAG  DATA     0

     1241         01 00433           BANDDLY1 EQU      %
     1242   01 00433    3110090C              CW,1     TST1INDX          USE DEFAULT IF INDEX>1
     1243   01 00434    E910000F A            BL       *R15

     1245         01 00435           BANDDLY  EQU      %                 SET CONSTANT FOR BAND

        2*  01 00435    52020334              LH,0     :CDB,1            LOOK FOR STC BAND PRINTER       *H01
        3*  01 00436    21001D28 A            CI,0     7464               AND EXIT IF DRUM-LIKE          *H01
        4*  01 00437    E820000F A            BLE      *R15                                              *H01

     1249   01 00438    22E00C00 A            LI,R14   X'C00'            WAIT ABOUT 3 SECONDS
     1250   01 00439    E800000F A            B        *R15               (EMPIRICALLY DETERMINED)
1 C00   21:10 JUN 20,'83    TELEFILE LINE PRINTER DIAGNOSTIC 960-0607-H02                         PAGE   11
A    1252                            *        *** TEST SEQUENCE TABLE ***
     1253                            *
     1254   01 0043A    5051525B A   TSEQ1    :TSEQ    SIOF0,SIOF1,SIOF2,SIOT3,SIOF5,SIOF6,SIOF7
            01 0043B    55565700 A
     1255   01 0043C    1011121B A   TSEQ2    :TSEQ    TIOF0,TIOF1,TIOF2,TIOT3,TIOF4,TIOF5,TIOF6,TIOF7
            01 0043D    14151617 A
            01 0043E    00000000 A
     1256   01 0043F    10191A1B A   TSEQ4    :TSEQ    TIOF0,TIOT1,TIOT2,TIOT3,TIOF4,TIOT5,TIOT6,TIOF7
            01 00440    141D1E17 A
            01 00441    00000000 A
     1257   01 00442    48414243 A   TSEQ5    :TSEQ    TDVT0,TDVF1,TDVF2,TDVF3,TDVF4
            01 00443    44000000 A
     1258   01 00444    40494243 A   TSEQ6    :TSEQ    TDVF0,TDVT1,TDVF2,TDVF3,TDVF4
            01 00445    44000000 A
     1259   01 00446    40414A43 A   TSEQ7    :TSEQ    TDVF0,TDVF1,TDVT2,TDVF3,TDVF4
            01 00447    44000000 A
     1260   01 00448    4041424B A   TSEQ8    :TSEQ    TDVF0,TDVF1,TDVF2,TDVT3,TDVF4
            01 00449    44000000 A
     1261   01 0044A    40414243 A   TSEQ9    :TSEQ    TDVF0,TDVF1,TDVF2,TDVF3,TDVT4
            01 0044B    4C000000 A
     1262   01 0044C    20212223 A   TSEQ11   :TSEQ    OSBF0,OSBF1,OSBF2,OSBF3,OSBF4,OSBF5,OSBF6,OSBF7
            01 0044D    24252627 A
            01 0044E    00000000 A
     1263   01 0044F    28212223 A   TSEQ12   :TSEQ    OSBT0,OSBF1,OSBF2,OSBF3,OSBF4,OSBF5,OSBF6,OSBF7
            01 00450    24252627 A
            01 00451    00000000 A
     1264   01 00452    40414244 A   TSEQ13   :TSEQ    TDVF0,TDVF1,TDVF2,TDVF4,TDVF5,TDVF6,TDVF7
            01 00453    45464700 A
     1265                            TSEQ14   :TSEQ    TIOF0,TIOF1,TIOF2,TIOT3,TIOF4,TIOF5,TIOF6,TIOF7,;
     1266                                              OSBF0,OSBF1,OSBF2,OSBF3,OSBF4,OSBF5,OSBF6,OSBF7,;
     1267   01 00454    1011121B A                     TDVF0,TDVF1,TDVF2,TDVF4,TDVF5,TDVF6,TDVF7,BYT00
            01 00455    14151617 A
            01 00456    20212223 A
            01 00457    24252627 A
            01 00458    40414244 A
            01 00459    454647E1 A
            01 0045A    00000000 A
     1268                            TSEQ15   :TSEQ    TIOF0,TIOF1,TIOF2,TIOT3,TIOF4,TIOF5,TIOF6,TIOF7,;
     1269                                              OSBF0,OSBF1,OSBF2,OSBF3,OSBF4,OSBF5,OSBF6,OSBF7,;
     1270   01 0045B    1011121B A                     TDVF0,TDVF1,TDVF6,BYT00
            01 0045C    14151617 A
            01 0045D    20212223 A
            01 0045E    24252627 A
            01 0045F    404146E1 A
            01 00460    00000000 A
     1271                            TSEQ16   :TSEQ    TIOF0,TIOF1,TIOF2,TIOT3,TIOF4,TIOF5,TIOF6,TIOF7,;
     1272                                              OSBF0,OSBF1,OSBF2,OSBF3,OSBF4,OSBF5,OSBF6,OSBF7,;
     1273   01 00461    1011121B A                     BYT00
            01 00462    14151617 A
            01 00463    20212223 A
            01 00464    24252627 A
            01 00465    E1000000 A
     1274                            TSEQ17   :TSEQ    TIOF0,TIOF1,TIOF2,TIOT3,TIOF4,TIOF5,TIOF6,TIOF7,;
     1275                                              OSBT0,OSBF1,OSBF2,OSBF3,OSBF4,OSBF5,OSBF6,OSBF7,;
     1276   01 00466    1011121B A                     BYT00
            01 00467    14151617 A
            01 00468    28212223 A
            01 00469    24252627 A
            01 0046A    E1000000 A
     1277   01 0046B    48414243 A   TSEQ18   :TSEQ    TDVT0,TDVF1,TDVF2,TDVF3,TDVF4,TDVT5,TDVF6,TDVF7
            01 0046C    444D4647 A
            01 0046D    00000000 A
     1278   01 0046E    40494243 A   TSEQ19   :TSEQ    TDVF0,TDVT1,TDVF2,TDVF3,TDVT5,TDVT6,TDVT7
            01 0046F    4D4E4F00 A
     1279   01 00470    40414A4B A   TSEQ20   :TSEQ    TDVF0,TDVF1,TDVT2,TDVT3,TDVF4,TDVF5,TDVF6,TDVF7
            01 00471    44454647 A
            01 00472    00000000 A
     1280   01 00473    40414244 A   TSEQ21   :TSEQ    TDVF0,TDVF1,TDVF2,TDVF4,TDVF5,TDVF6,TDVF7
            01 00474    45464700 A
     1281                            TSEQ23   :TSEQ    TIOF0,TIOF1,TIOF2,TIOT3,TIOF4,TIOF5,TIOF6,TIOF7,;
     1282   01 00475    1011121B A                     OSBF0,OSBF1,OSBF2,OSBF3,OSBF4,OSBF5,OSBF6,OSBF7
            01 00476    14151617 A
            01 00477    20212223 A
            01 00478    24252627 A
            01 00479    00000000 A
     1283   01 0047A    40414243 A   TSEQ24   :TSEQ    TDVF0,TDVF1,TDVF2,TDVF3,TDVT4,TDVT5,TDVT6,TDVT7
            01 0047B    4C4D4E4F A
            01 0047C    00000000 A
     1284   01 0047D    40494243 A   TSEQ25   :TSEQ    TDVF0,TDVT1,TDVF2,TDVF3,TDVT4,TDVT5,TDVT6,TDVT7
            01 0047E    4C4D4E4F A
            01 0047F    00000000 A
     1285                            TSEQ26   :TSEQ    TIOF0,TIOF1,TIOF2,TIOT3,TIOT4,TIOF5,TIOF6,TIOF7,;
     1286   01 00480    1011121B A                     OSBT0,OSBF1,OSBF2,OSBF3,OSBF4,OSBF5,OSBF6,OSBF7
            01 00481    1C151617 A
            01 00482    28212223 A
            01 00483    24252627 A
            01 00484    00000000 A
     1287                            TSEQ27   :TSEQ    TIOF0,TIOF1,TIOF2,TIOT3,TIOF4,TIOF5,TIOF6,TIOF7,;
     1288                                              OSBF1,OSBF2,OSBF3,OSBF4,OSBF5,OSBF6,OSBF7,;
     1289   01 00485    1011121B A                     TDVF1,TDVF2,TDVF6
            01 00486    14151617 A
            01 00487    21222324 A
            01 00488    25262741 A
            01 00489    42460000 A
     1290                            TSEQ28   :TSEQ    TIOF0,TIOF1,TIOF2,TIOT3,TIOF4,TIOF5,TIOF6,TIOF7,;
     1291                                              OSBF0,OSBF1,OSBF2,OSBF3,OSBF4,OSBF5,OSBF5,OSBF7,;
     1292   01 0048A    1011121B A                     TDVF2,TDVF5
            01 0048B    14151617 A
            01 0048C    20212223 A
            01 0048D    24252527 A
            01 0048E    42450000 A
     1293   01 0048F    41424600 A   TSEQ29   :TSEQ    TDVF1,TDVF2,TDVF6
     1294   01 00490    4C000000 A   TSEQ30   :TSEQ    TDVT4
     1295   01 00491    42434C4D A   TSEQ31   :TSEQ    TDVF2,TDVF3,TDVT4,TDVT5,TDVT6,TDVT7
            01 00492    4E4F0000 A
     1296   01 00493    44460000 A   TSEQ34   :TSEQ    TDVF4,TDVF6
     1297   01 00494    41460000 A   TSEQ35   :TSEQ    TDVF1,TDVF6
     1298   01 00495    4049424B A   TSEQ36   :TSEQ    TDVF0,TDVT1,TDVF2,TDVT3,TDVT4,TDVF5,TDVF6,TDVF7
            01 00496    4C454647 A
            01 00497    00000000 A
     1299   01 00498    4049424B A   TSEQ37   :TSEQ    TDVF0,TDVT1,TDVF2,TDVT3,TDVT4,TDVF5,TDVF6
            01 00499    4C454600 A
     1300                            TSEQ38   :TSEQ    TIOF0,TIOF1,TIOF2,TIOT3,TIOF4,TIOF5,TIOF6,TIOF7,;
     1301                                              OSBF1,OSBF2,OSBF3,OSBF4,OSBF5,OSBF6,OSBF7,;
     1302   01 0049A    1011121B A                     TDVT1,TDVF2,TDVF5
            01 0049B    14151617 A
            01 0049C    21222324 A
            01 0049D    25262749 A
            01 0049E    42450000 A
     1303   01 0049F    00000000 A   T1TSEQ   DATA     0
1 C00   21:10 JUN 20,'83    TELEFILE LINE PRINTER DIAGNOSTIC 960-0607-H02                         PAGE   12
A    1305                            *            *** TST1 - FUNCTIONAL TEST ***                            *
     1306                            *                                                                      *
     1307                            *  THIS DIRECTIVE ALLOWS THE USER TO SELECT ONE OR MORE CONTIGUOUS     *
     1308                            *  FUNCTIONAL SUBTESTS BY SPECIFYING IN PARAMETERS P1 AND P2           *
     1309                            *  THE STARTING AND ENDING SUBTEST NUMBERS:                            *
     1310                            *                                                                      *
     1311                            *    P1 = 1 THRU 22                                                    *
     1312                            *    P2 = 1 THRU 22  (WHERE 1<=P1<=P2<=22)                             *
     1313                            *                                                                      *
     1314                            *     NO OTHER VALUES OF P1 AND P2 ARE ALLOWED. IF P1 AND P2 ARE NOT   *
     1315                            *    SPECIFIED, SUBTESTS 1 THUR 20 WILL BE PERFORMED.                  *
     1316                            *                                                                      *
     1317                            *     PARAMETERS P3 AND P4 ARE NOT USED.                               *
     1318                            *                                                                      *
     1319   01 004A0    35100432     TST1     STW,1    TSTFLAG           SAVE TEST FLAG
     1320   01 004A1    22E00000 A            LI,14    0
     1321   01 004A2    35E004E4              STW,14   TST1FLG1          RESET APPLICABLE SUBTEST MSG FLAG
     1322   01 004A3    32C00201     TST1ALT  LW,12    :P1               STARTING SUBTEST
     1323   01 004A4    683004B4              BEZ      TST102            B: STARTING SUBTEST NOT SPECIFIED
     1324   01 004A5    21C00016 A            CI,12    22                IS STARTING SUBTEST VALID
     1325   01 004A6    682004AB              BLE      %+5               B: NO, P1 IN ERROR
     1326   01 004A7    3510030A     TST101   STW,1    :PIT10            PARAMETER IN ERROR: P1 >22 OR P2
     1327   01 004A8    EAF00229              BAL,15   *:PREPORT         REPORT PAR. ERROR
     1328   01 004A9    00000322              DATA     :DIC+2            'TST1'
     1329   01 004AA    E8000214              B        *:MONITOR         EXIT
     1330   01 004AB    31C00202              CW,12    :P2               STARTING SUBTEST:ENDING SUBTEST
     1331   01 004AC    692004A7              BG       TST101            B: STARTING SUBTEST GREATER
     1332   01 004AD    32D00202              LW,13    :P2               ENDING SUBTEST
     1333   01 004AE    21D00016 A            CI,13    22                IS THE LAST SUBTEST VALID
     1334   01 004AF    682004B2              BLE      %+3               B: YES
     1335   01 004B0    3520030A              STW,2    :PIT10            PARAMETER IN ERROR: P2 > 22
     1336   01 004B1    680004A8              B        TST101+1          REPORT PAR. ERROR
     1337   01 004B2    15C004E2              STD,12   TST1LMT           SAVE STARTING,ENDING SUBTEST
     1338   01 004B3    680004B9              B        TST109
     1339   01 004B4    31C00202     TST102   CW,12    :P2               IS ENDING SUBTEST SPECIFIED
     1340   01 004B5    693004A7              BNE      TST101            B: P2 IN ERROR
     1341   01 004B6    351004E2              STW,1    TST1LMT           SAVE FIRST SUBTEST
     1342   01 004B7    22E00014 A            LI,14    20                LAST SUBTEST
     1343   01 004B8    35E004E3              STW,14   TST1LMT+1         SAVE
     1344   01 004B9    32E0109F     TST109   LW,14    :DELMTW           MODIFY TEST WORD INSTRUCTION
     1345   01 004BA    35E00055 A            STW,14   X'55'             SAVE
     1346   01 004BB    32E0109E              LW,14    :DELXPSD          SET IO INTERRUPT LINKAGE
     1347   01 004BC    35E0005B A            STW,14   X'5B'
     1348   01 004BD    35E01373              STW,14   PIOCDFLG          RESET PRINTED IOCD FLAG
     1349   01 004BE    6AF0128D     TST104   BAL,15   :INTD             DISARM IO INTERRUPT
     1350   01 004BF    6AF0122F              BAL,15   :SAVECLR          CLEAR STATUS SAVE TABLE
     1351   01 004C0    324004E2              LW,4     TST1LMT           SUBTEST#
     1352   01 004C1    354013A4              STW,4    ITHSUBT           SET INTER/TRAP HDLR SUBTEST
     1353   01 004C2    351013A3              STW,1    ITHTEST           SET INTER/TRAP HDLR TEST
     1354   01 004C3    22E0138F              LI,14    ITHDLR
     1355   01 004C4    35E0030F              STW,14   :PIT15            INVOKE HDLR
     1356   01 004C5    22E004B9              LI,14    TST109
     1357   01 004C6    35E013A5              STW,14   ITHRST            TEST RESTART ADDRESS
     1358   01 004C7    311004E2              CW,1     TST1LMT           SUBTEST NO.
     1359   01 004C8    683004CD              BE       %+5               B: SUBTEST NO 1
     1360   01 004C9    6AF010A1              BAL,15   :ERRORT           IS PRINTER IN AUTO
     1361   01 004CA    00001394              DATA     BA(T1TSEQ1)
     1362   01 004CB    680004CD              B        %+2               AUTO
     1363   01 004CC    E8000214              B        *:MONITOR         MANUAL, EXIT

     1364   01 004CD    32E804E6              LW,14    TST1G,4           SUBTEST# ADDRESS
     1365   01 004CE    E800000E A            B        *14               GO TO SUBTEST#
     1366   01 004CF    331004E2     TST105   MTW,1    TST1LMT           INCREMENT SUBTEST#
     1367   01 004D0    32E004E2              LW,14    TST1LMT           SUBTEST#
     1368   01 004D1    31E004E3              CW,14    TST1LMT+1         SUBTEST#:ENDING SUBTEST
     1369   01 004D2    682004B9              BLE      TST109            B: NEXT SUBTEST
     1370   01 004D3    31100432              CW,1     TSTFLAG           IS IT TST1
     1371   01 004D4    6930042B              BNE      TST0A             B: NO, TST0
     1372   01 004D5    EAF0138D              BAL,15   *:SENSE           TEST SENSE SWITCH 1,3
     1373   01 004D6    2E0004D6              WAIT     %
     1374   01 004D7    680004A3              B        TST1ALT           LOOP
     1375   01 004D8    E8000214              B        *:MONITOR         RETURN TO MONITOR

     1376   01 004D9    311004E4     TST1051  CW,1     TST1FLG1          TEST APPLICABLE SUBTEST MSG FLAG
     1377   01 004DA    683004CF              BE       TST105            B: SKIP MSG
     1378   01 004DB    32C004E2              LW,12    TST1LMT           SUBTEST #
     1379   01 004DC    EAF00217              BAL,15   *:DECC            CONVERT TO DECIMAL
     1380   01 004DD    55F20945              STH,15   TST1MSG4+2,1      STORE IN MSG
     1381   01 004DE    EAF0021C              BAL,15   *:PRINT
     1382   01 004DF    00000943              DATA     TST1MSG4          'SUBTEST  XX NOT APPLICABLE'
     1383   01 004E0    E8000214              B        *:MONITOR         RETURN TO MONITOR
     1384                            *
     1385                                     BOUND    8
     1386   01 004E2    00000000 A   TST1LMT  DATA     0,0
            01 004E3    00000000 A
     1387   01 004E4    00000000 A   TST1FLG1 DATA     0
     1388   01 004E5    1B000000 A   T1TSEQ1  :TSEQ    TIOT3
     1389         01 004CF           EXIT     EQU      TST105
     1390                            *                                                                      *
     1391                            *
     1392   01 004E6    00000000 A   TST1G    DATA     0,TST11,TST12,TST13,TST14,TST15
            01 004E7    000004FD
            01 004E8    0000051E
            01 004E9    0000055F
            01 004EA    000005A1
            01 004EB    000005A2
     1393   01 004EC    00000624              DATA     TST16,TST17,TST18,TST19,TST110
            01 004ED    00000657
            01 004EE    000006A8
            01 004EF    000006CD
            01 004F0    0000072F
     1394   01 004F1    00000730              DATA     TST111,TST112,TST113,TST114,TST115
            01 004F2    00000741
            01 004F3    00000742
            01 004F4    00000757
            01 004F5    000007C1
     1395   01 004F6    000007F2              DATA     TST116,EXIT,EXIT,TST119,TST120 (NO BAD FORMATS)
            01 004F7    000004CF
            01 004F8    000004CF
            01 004F9    00000863
            01 004FA    00000886
     1396   01 004FB    000008A7              DATA     TST121,TST122
            01 004FC    000008A8
     1397                            *
1 C00   21:10 JUN 20,'83    TELEFILE LINE PRINTER DIAGNOSTIC 960-0607-H02                         PAGE   13
A    1399                            *
     1400                            *
     1401                            *
     1402   01 004FD    CFC00FC6     TST11    HIO,12   *:DEVADDR         ISSUE HIO
     1403   01 004FE    35101373              STW,1    PIOCDFLG          SET PRINTED IOCD FLAG
     1404   01 004FF    6AF00E8C              BAL,15   :HIO              ISSUE HIO
     1405   01 00500    9700C000 A            DATA     X'9700C000'       STATUS MASK
     1406   01 00501    10000000 A            DATA     X'10000000'       EXPECTED STATUS
     1407   01 00502    68000506              B        T1M01
     1408                            *ERROR 101
     1409   01 00503    EAF01386              BAL,15   *:ERROR           REPORT ERROR
     1410   01 00504    00000065 A            DATA     101               #101
     1411   01 00505    6800051A              B        T1M04
     1412                            *
     1413   01 00506    6AF00E87     T1M01    BAL,15   :TIO              ISSUE TIO
     1414   01 00507    FF00C000 A            DATA     X'FF00C000'       STATUS MASK
     1415   01 00508    10000000 A            DATA     X'10000000'       EXPECTED STATUS
     1416   01 00509    6800050D              B        T1M02
     1417                            *ERROR 102
     1418   01 0050A    EAF01386              BAL,15   *:ERROR           REPORT ERROR
     1419   01 0050B    00000066 A            DATA     102               #102
     1420   01 0050C    6800051A              B        T1M04
     1421                            *
     1422   01 0050D    6AF00E91     T1M02    BAL,15   :TDV              ISSUE TDV
     1423   01 0050E    EF00C000 A            DATA     X'EF00C000'       STATUS MASK
     1424   01 0050F    00000000 A            DATA     0                 EXPECTED MASK
     1425   01 00510    68000514              B        T1M03
     1426                            *ERROR 103
     1427   01 00511    EAF01386              BAL,15   *:ERROR           REPORT ERROR
     1428   01 00512    00000067 A            DATA     103               #103
     1429   01 00513    6800051A              B        T1M04
     1430                            *
     1431   01 00514    6AF00E96     T1M03    BAL,15   :AIO              ISSUE AIO
     1432   01 00515    0000C000 A            DATA     X'0000C000'       STATUS MASK
     1433   01 00516    0000C000 A            DATA     X'0000C000'       EXPECTED STATUS
     1434   01 00517    680004CF              B        EXIT              GO TO EXIT
     1435                            *ERROR 104
     1436   01 00518    EAF01386              BAL,15   *:ERROR           REPORT ERROR
     1437   01 00519    00000068 A            DATA     104               #104
     1438   01 0051A    EAF0138D     T1M04    BAL,15   *:SENSE           TEST SSW1,3
     1439   01 0051B    2E00051B              WAIT     %                 WAIT
     1440   01 0051C    680004FD              B        TST11             LOOP
     1441   01 0051D    680004CF              B        EXIT              GO TO EXIT
1 C00   21:10 JUN 20,'83    TELEFILE LINE PRINTER DIAGNOSTIC 960-0607-H02                         PAGE   14
A    1443                            *
     1444                            *
     1445                            *
     1446   01 0051E    22E00000 A   TST12    LI,14    0                 RESET INDEX
     1447   01 0051F    35E0090C              STW,14   TST1INDX
     1448   01 00520    32E0090C              LW,14    TST1INDX          INDEX
     1449   01 00521    75E00DD6              STB,14   IOCD10            STORE IN IOCD
     1450   01 00522    220006EB              LI,0     DA(IOCD10)        LOAD IOCD
     1451   01 00523    6AF00E82              BAL,15   :SIO              ISSUE SIO
     1452   01 00524    F600C000 A            DATA     X'F600C000'       STATUS MASK
     1453   01 00525    10000000 A            DATA     X'10000000'       EXPECTED STATUS
     1454   01 00526    68000530              B        T2M02
     1455   01 00527    CFC00FC6              HIO,12   *:DEVADDR         ISSUE HIO
     1456   01 00528    70340F9D              LCF      :STATUSCC,2       LOAD CONDITION CODES
     1457   01 00529    68C0052D              BCR,12   T2M01             CC1,2 = 0,0
     1458                            *ERROR 201
     1459   01 0052A    EAF01386              BAL,15   *:ERROR
     1460   01 0052B    000000C9 A            DATA     201               #201
     1461   01 0052C    68000556              B        T2M06
     1462                            *
     1463                            *ERROR 202
     1464   01 0052D    EAF01386     T2M01    BAL,15   *:ERROR
     1465   01 0052E    000000CA A            DATA     202               #202
     1466   01 0052F    68000556              B        T2M06
     1467                            *
     1468   01 00530    22400021 A   T2M02    LI,4     33                DELAY 50 MICROSECOND
     1469   01 00531    64400531              BDR,4    %
     1470   01 00532    6AF00E87              BAL,15   :TIO              ISSUE TIO
     1471   01 00533    FFFFC000 A            DATA     X'FFFFC000'       STATUS MASK
     1472   01 00534    18000000 A            DATA     X'18000000'       EXPECTED STATUS
     1473   01 00535    68000540              B        T2M07
     1474   01 00536    72E00F9D              LB,14    :STATUSCC         IO STATUS
     1475   01 00537    21E00006 A            CI,14    X'06'             IS CONTR BUSY
     1476   01 00538    6840053D              BCR,4    T2M03             B: NO, REPORT ERROR
     1477   01 00539    CFC00FC6              HIO,12   *:DEVADDR         ISSUE HIO
     1478                            *ERROR 203
     1479   01 0053A    EAF01386              BAL,15   *:ERROR
     1480   01 0053B    000000CB A            DATA     203               #203
     1481   01 0053C    68000556              B        T2M06
     1482                            *
     1483                            *ERROR 204
     1484   01 0053D    EAF01386     T2M03    BAL,15   *:ERROR
     1485   01 0053E    000000CC A            DATA     204               #204
     1486   01 0053F    68000556              B        T2M06
     1487                            *
     1488   01 00540    6AF00E91     T2M07    BAL,15   :TDV              ISSUE TDV
     1489   01 00541    EFFFC000 A            DATA     X'EFFFC000'       STATUS MASK
     1490   01 00542    20000000 A            DATA     X'20000000'       EXPECTED STATUS
     1491   01 00543    68000547              B        T2M04             NO ERRORS
     1492                            *ERROR 206
     1493   01 00544    EAF01386              BAL,15   *:ERROR
     1494   01 00545    000000CE A            DATA     206               #206
     1495   01 00546    68000556              B        T2M06
     1496                            *
     1497   01 00547    72E60F9D     T2M04    LB,14    :STATUSCC,3       FETCH BYTE COUNT
     1498   01 00548    31E00001 A            CW,14    1                 BYTE COUNT:1
     1499   01 00549    6830054D              BE       T2M05             B: BYTE COUNT EQUAL 1
     1500                            *ERROR 205
     1501   01 0054A    EAF01386              BAL,15   *:ERROR
     1502   01 0054B    000000CD A            DATA     205               #205
     1503   01 0054C    68000556              B        T2M06
     1504                            *
     1505   01 0054D    3310090C     T2M05    MTW,1    TST1INDX          INCREMENT INDEX
     1506   01 0054E    32E0090C              LW,14    TST1INDX          INDEX
     1507   01 0054F    21E00100 A            CI,14    256               INDEX:256
     1508   01 00550    681004CF              BGE      EXIT              B: INDEX => 256, GO TO EXIT
     1509   01 00551    3110090C              CW,1     TST1INDX          IS INDEX BIT 31 SET
     1510   01 00552    6940054D              BCS,4    T2M05             B: YES, NEXT INDEX
     1511   01 00553    21E00008 A            CI,14    X'08'             IS IT TRANSFER IN CHANNEL
     1512   01 00554    6940054D              BCS,4    T2M05             B: YES
     1513   01 00555    68000520              B        TST12+2           B: TEST INVALID ORDER
     1514   01 00556    EAF0138D     T2M06    BAL,15   *:SENSE
     1515   01 00557    2E000557              WAIT     %
     1516   01 00558    6800055A              B        %+2
     1517   01 00559    6800054D              B        T2M05
     1518   01 0055A    CFC00FC6              HIO,12   *:DEVADDR         ISSUE HIO
     1519   01 0055B    68000520              B        TST12+2
1 C00   21:10 JUN 20,'83    TELEFILE LINE PRINTER DIAGNOSTIC 960-0607-H02                         PAGE   15
A    1521                            *
     1522                            *
     1523                            *
1 C00   21:10 JUN 20,'83    TELEFILE LINE PRINTER DIAGNOSTIC 960-0607-H02                         PAGE   16
A    1525                            *
     1526                            *
     1527         01 0043A           T03SEQ1  EQU      TSEQ1
     1528   01 0055C    11121B15 A   T03SEQ2  :TSEQ    TIOF1,TIOF2,TIOT3,TIOF5,TIOF6
            01 0055D    16000000 A
     1529         01 00475           T03SEQ3  EQU      TSEQ23
     1530         01 00480           T03SEQ4  EQU      TSEQ26
     1531   01 0055E    49424600 A   T03SEQ5  :TSEQ    TDVT1,TDVF2,TDVF6
     1532         01 0048F           T03SEQ6  EQU      TSEQ29
     1533                            *
     1534   01 0055F    22E00060 A   TST13    LI,14    X'60'
     1535   01 00560    75E013DA              STB,14   BUFFER2           INHIBIT UPSPACE FORMAT
     1536   01 00561    3510090C              STW,1    TST1INDX          BYTE COUNT INDEX
     1537   01 00562    32E0090C     T03M01   LW,14    TST1INDX          BYTE COUNT
     1538   01 00563    55E60DE4              STH,14   IOCD15,3          STORE IN IOCD
     1539   01 00564    22A00000 A   T03M02   LI,10    0
     1540   01 00565    35A0090F              STW,10   TST1ERR           RESET ERROR FLAG
     1541   01 00566    CFC00FC6              HIO,12   *:DEVADDR         ISSUE HIO
     1542   01 00567    220006F2              LI,0     DA(IOCD15)        LOAD IOCD
     1543   01 00568    CCC00FC6              SIO,12   *:DEVADDR         INHIBIT UPSPACE
     1544   01 00569    6AF0124F              BAL,15   :SAVESIO          SAVE SIO STATUS
     1545   01 0056A    6AF010A1              BAL,15   :ERRORT           TEST SIO
     1546   01 0056B    000010E8              DATA     BA(T03SEQ1)
     1547   01 0056C    68000570              B        T03M03            NO ERRORS
     1548                            *ERROR 0301
     1549   01 0056D    EAF01386              BAL,15   *:ERROR
     1550   01 0056E    0000012D A            DATA     0301              #0301
     1551   01 0056F    6800058F              B        T03M10
     1552                            *
     1553   01 00570    32E0091B     T03M03   LW,14    DELAYS            SET DELAY FOR DRUM PRINTERS
     1554   01 00571    6AF00433              BAL,15   BANDDLY1           THEN MODIFY IF BAND
     1555   01 00572    6AF01082              BAL,15   :DELAY
     1556   01 00573    68000574              B        %+1
     1557   01 00574    6AF010A1              BAL,15   :ERRORT           TEST TIO
     1558   01 00575    00001570              DATA     BA(T03SEQ2)
     1559   01 00576    6800057A              B        T03M05            DEVICE READY
     1560                            *ERROR 0302
     1561   01 00577    EAF01386              BAL,15   *:ERROR
     1562   01 00578    0000012E A            DATA     0302              #0302
     1563   01 00579    6800058F              B        T03M10
     1564                            *
     1565                            *
     1566   01 0057A    32E0090C     T03M05   LW,14    TST1INDX          INDEX
     1567   01 0057B    38E00001 A            SW,14    1                 DECREMENT
     1568   01 0057C    71E6000D A            CB,14    13,3              TEST BYTE COUNT
     1569   01 0057D    68300581              BE       T03M07            B: BYTE COUNT = INDEX-1
     1570   01 0057E    3510090F              STW,1    TST1ERR           SET ERROR FLAG
     1571                            *ERROR 0305
     1572   01 0057F    EAF01386     T03M06   BAL,15   *:ERROR
     1573   01 00580    00000131 A            DATA     0305              #0305
     1574                            *
     1575   01 00581    3110090C     T03M07   CW,1     TST1INDX          BYTE COUNT:1
     1576   01 00582    69300587              BNE      T03M08            BYTE COUNT NOT EQUAL 1
     1577   01 00583    6AF010A1              BAL,15   :ERRORT           TEST TIO,OSB,BYTE CNT
     1578   01 00584    000011D4              DATA     BA(T03SEQ3)
     1579   01 00585    68000597              B        T03M12            NO ERRORS
     1580   01 00586    6800058A              B        T03M04
     1581   01 00587    6AF010A1     T03M08   BAL,15   :ERRORT           TEST TIO,OSB,BYTE CNT
     1582   01 00588    00001200              DATA     BA(T03SEQ4)
     1583   01 00589    6800059D              B        T03M13            NO ERRORS
     1584                            *ERROR 0304
     1585   01 0058A    EAF01386     T03M04   BAL,15   *:ERROR
     1586   01 0058B    00000130 A            DATA     0304              #0304
     1587   01 0058C    6800058F              B        T03M10
     1588                            *
     1589   01 0058D    3110090F     T03M09   CW,1     TST1ERR           TEST ERROR FLAG
     1590   01 0058E    69300592              BNE      T03M11            B: NO ERRORS
     1591   01 0058F    EAF0138D     T03M10   BAL,15   *:SENSE
     1592   01 00590    2E000590              WAIT     %
     1593   01 00591    68000564              B        T03M02            LOOP
     1594   01 00592    3310090C     T03M11   MTW,1    TST1INDX          INCREMENT BYTE COUNT
     1595   01 00593    32E0090C              LW,14    TST1INDX          BYTE COUNT
     1596   01 00594    21E00002 A            CI,14    2                 BYTE COUNT:2
     1597   01 00595    68200562              BLE      T03M01            B: BYTE COUNT <= 2
     1598   01 00596    680004CF              B        EXIT              EXIT
     1599   01 00597    6AF010A1     T03M12   BAL,15   :ERRORT           TEST TDV STATUS
     1600   01 00598    0000123C              DATA     BA(T03SEQ6)
     1601   01 00599    6800058D              B        T03M09            NO ERRORS
     1602                            * ERROR 0303
     1603   01 0059A    EAF01386     T03M14   BAL,15   *:ERROR
     1604   01 0059B    0000012F A            DATA     0303              #0303
     1605   01 0059C    6800058F              B        T03M10
     1606                            *
     1607   01 0059D    6AF010A1     T03M13   BAL,15   :ERRORT           TEST TDV STATUS
     1608   01 0059E    00001578              DATA     BA(T03SEQ5)
     1609   01 0059F    6800058D              B        T03M09            NO ERRORS
     1610   01 005A0    6800059A              B        T03M14
1 C00   21:10 JUN 20,'83    TELEFILE LINE PRINTER DIAGNOSTIC 960-0607-H02                         PAGE   17
A    1612   01 005A1    680004CF     TST14    B        EXIT
     1613                            *
     1614                            *
     1615                            *
     1616   01 005A2    22E00000 A   TST15    LI,14    0
     1617   01 005A3    35E0090C              STW,14   TST1INDX          RESET INDEX
     1618   01 005A4    22E00060 A            LI,14    X'60'
     1619   01 005A5    75E00E18              STB,14   FORMAT            INHIBIT UPSPACE FORMAT
     1620   01 005A6    CFC00FC6     T05M01   HIO,12   *:DEVADDR         ISSUE HIO
     1621   01 005A7    6EC00000 A            AIO,12   0                 ISSUE AIO
     1622   01 005A8    22E00010 A            LI,14    X'10'             IOCD FLAG (ICE)
     1623   01 005A9    75E00DED              STB,14   IOCD20+1          STORE IN IOCD
     1624   01 005AA    220006F6              LI,0     DA(IOCD20)        LOAD IOCD
     1625   01 005AB    6AF00F9E              BAL,15   :IOEXEC           EXECUTE IO

     1627   01 005AC    32E0091B              LW,14    DELAYS            SET CONSTANT FOR DRUM PRINTER
     1628   01 005AD    6AF00433              BAL,15   BANDDLY1           THEN MODIFY IF BAND
     1629   01 005AE    6AF01082              BAL,15   :DELAY
     1630   01 005AF    680005B0              B        %+1

     1632   01 005B0    6AF00E87              BAL,15   :TIO              ISSUE TIO
     1633   01 005B1    FFFFC000 A            DATA     X'FFFFC000'
     1634   01 005B2    90004000 A            DATA     X'90004000'
     1635   01 005B3    680005BC              B        T05M03            NO ERRORS
     1636   01 005B4    32D0000D A            LW,13    13                TIO STATUS
     1637   01 005B5    691005B9              BLZ      T05M02            B: INTERRUPT PENDING
     1638                            *ERROR 0501
     1639   01 005B6    EAF01386              BAL,15   *:ERROR
     1640   01 005B7    000001F5 A            DATA     0501              #0501
     1641   01 005B8    68000620              B        T05M17
     1642                            *
     1643                            *ERROR 0502
     1644   01 005B9    EAF01386     T05M02   BAL,15   *:ERROR
     1645   01 005BA    000001F6 A            DATA     0502              #0502
     1646   01 005BB    68000620              B        T05M17
     1647                            *
     1648   01 005BC    32E0090C     T05M03   LW,14    TST1INDX          IS INDEX SET
     1649   01 005BD    693005C5              BNEZ     T05M04            B: YES
     1650   01 005BE    6AF00E96              BAL,15   :AIO              ISSUE AIO
     1651   01 005BF    FFFFC002 A            DATA     X'FFFFC002'
     1652   01 005C0    00100000 A            DATA     X'00100000'
     1653   01 005C1    680005C6              B        T05M05            NO ERRORS
     1654                            *ERROR 0503
     1655   01 005C2    EAF01386              BAL,15   *:ERROR
     1656   01 005C3    000001F7 A            DATA     0503              #0503
     1657   01 005C4    68000620              B        T05M17
     1658                            *
     1659   01 005C5    CFC00FC6     T05M04   HIO,12   *:DEVADDR         ISSUE HIO
     1660   01 005C6    6AF00E87     T05M05   BAL,15   :TIO              ISSUE TIO
     1661   01 005C7    FFFFC000 A            DATA     X'FFFFC000'
     1662   01 005C8    10000000 A            DATA     X'10000000'
     1663   01 005C9    680005D2              B        T05M07            NOERRORS
     1664   01 005CA    32E0090C              LW,14    TST1INDX          IS INDEX SET
     1665   01 005CB    693005CF              BNEZ     T05M06            B: YES
     1666                            *ERROR 0514
     1667   01 005CC    EAF01386              BAL,15   *:ERROR
     1668   01 005CD    00000202 A            DATA     0514              #0514
     1669   01 005CE    68000620              B        T05M17
     1670                            *
     1671                            *ERROR 0504
     1672   01 005CF    EAF01386     T05M06   BAL,15   *:ERROR
     1673   01 005D0    000001F8 A            DATA     0504              #0504
     1674   01 005D1    68000620              B        T05M17
     1675                            *
     1676   01 005D2    22E00040 A   T05M07   LI,14    X'40'             IOCD FLAG (IZC)
     1677   01 005D3    75E00DED              STB,14   IOCD20+1          STORE IN IOCD
     1678   01 005D4    220006F6              LI,0     DA(IOCD20)        LOAD IOCD
     1679   01 005D5    6AF00F9E              BAL,15   :IOEXEC           EXECUTE IO

     1681   01 005D6    32E0091B              LW,14    DELAYS            SET CONSTANT FOR DRUM PRINTER
     1682   01 005D7    6AF00433              BAL,15   BANDDLY1           THEN MODIFY IF BAND
     1683   01 005D8    6AF01082              BAL,15   :DELAY
     1684   01 005D9    680005DA              B        %+1

     1686   01 005DA    6AF00E87              BAL,15   :TIO              ISSUE TIO
     1687   01 005DB    FFFFC000 A            DATA     X'FFFFC000'
     1688   01 005DC    90004000 A            DATA     X'90004000'
     1689   01 005DD    680005E6              B        T05M09            NO ERRORS
     1690   01 005DE    32D0000D A            LW,13    13                TIO STATUS
     1691   01 005DF    691005E3              BLZ      T05M08            B: INTERRUPT PENDING
     1692                            *ERROR 0505
     1693   01 005E0    EAF01386              BAL,15   *:ERROR
     1694   01 005E1    000001F9 A            DATA     0505              #0505
     1695   01 005E2    68000620              B        T05M17
     1696                            *
     1697                            *ERROR 0506
     1698   01 005E3    EAF01386     T05M08   BAL,15   *:ERROR
     1699   01 005E4    000001FA A            DATA     0506              #0506
     1700   01 005E5    68000620              B        T05M17
     1701                            *
     1702   01 005E6    32E0090C     T05M09   LW,14    TST1INDX          IS INDEX SET
     1703   01 005E7    693005EF              BNEZ     T05M10            B: YES
     1704   01 005E8    6AF00E96              BAL,15   :AIO              ISSUE AIO
     1705   01 005E9    FFFFC002 A            DATA     X'FFFFC002'
     1706   01 005EA    00200000 A            DATA     X'00200000'
     1707   01 005EB    680005F0              B        T05M101           NO ERRORS
     1708                            *ERROR 0507
     1709   01 005EC    EAF01386              BAL,15   *:ERROR
     1710   01 005ED    000001FB A            DATA     0507              #0507
     1711   01 005EE    68000620              B        T05M17
     1712                            *
     1713   01 005EF    CFC00FC6     T05M10   HIO,12   *:DEVADDR         ISSUE HIO
     1714   01 005F0    6AF00E87     T05M101  BAL,15   :TIO              ISSUE TIO
     1715   01 005F1    FFFFC000 A            DATA     X'FFFFC000'
     1716   01 005F2    10000000 A            DATA     X'10000000'
     1717   01 005F3    680005F7              B        T05M11            NO ERRORS
     1718                            *ERROR 0508
     1719   01 005F4    EAF01386              BAL,15   *:ERROR
     1720   01 005F5    000001FC A            DATA     0508              #0508
     1721   01 005F6    68000620              B        T05M17
     1722                            *
     1723   01 005F7    220006F7     T05M11   LI,0     DA(IOCD21)        LOAD IOCD
     1724   01 005F8    CCC00FC6              SIO,12   *:DEVADDR         ISSUE INVALID ORDER
     1725   01 005F9    32400912              LW,4     DELYTM
     1726   01 005FA    644005FA              BDR,4    %                 DELAY
     1727   01 005FB    6AF00E87              BAL,15   :TIO              ISSUE TIO
     1728   01 005FC    FFFFC000 A            DATA     X'FFFFC000'
     1729   01 005FD    98004000 A            DATA     X'98004000'
     1730   01 005FE    68000607              B        T05M13            NO ERRORS
     1731   01 005FF    32D0000D A            LW,13    13                TIO STATUS
     1732   01 00600    69100604              BLZ      T05M12            B: INTERRUPT PENDING
     1733                            *ERROR 0509
     1734   01 00601    EAF01386              BAL,15   *:ERROR
     1735   01 00602    000001FD A            DATA     0509              #0509
     1736   01 00603    68000620              B        T05M17
     1737                            *ERROR 0510
     1738   01 00604    EAF01386     T05M12   BAL,15   *:ERROR
     1739   01 00605    000001FE A            DATA     0510              #0510
     1740   01 00606    68000620              B        T05M17
     1741                            *
     1742   01 00607    32E0090C     T05M13   LW,14    TST1INDX          IS INDEX SET
     1743   01 00608    69300614              BNEZ     T05M15            B: YES
     1744   01 00609    6AF00E96              BAL,15   :AIO              ISSUE AIO
     1745   01 0060A    FFFFC002 A            DATA     X'FFFFC002'
     1746   01 0060B    00084000 A            DATA     X'00084000'
     1747   01 0060C    68000615              B        T05M151           NO ERRORS
     1748                            *ERROR 0511
     1749   01 0060D    EAF01386              BAL,15   *:ERROR
     1750   01 0060E    000001FF A            DATA     0511              #0511
     1751   01 0060F    68000620              B        T05M17
     1752                            *
     1753   01 00610    3110090C     T05M14   CW,1     TST1INDX          IS INDEX SET
     1754   01 00611    683004CF              BE       EXIT              B: YES, GO TO EXIT
     1755   01 00612    3310090C              MTW,1    TST1INDX          INCREMENT INDEX
     1756   01 00613    680005A6              B        T05M01            REPEAT
     1757   01 00614    CFC00FC6     T05M15   HIO,12   *:DEVADDR         ISSUE HIO
     1758   01 00615    6AF00E87     T05M151  BAL,15   :TIO              ISSUE TIO
     1759   01 00616    F7FFC000 A            DATA     X'F7FFC000'
     1760   01 00617    10000000 A            DATA     X'10000000'
     1761   01 00618    68000610              B        T05M14            NO ERRORS
     1762   01 00619    31D0141D              CW,13    =X'08000000'      TEST UNUSUAL END STATUS
     1763   01 0061A    6940061E              BCS,4    T05M16            B: UNUSUAL END
     1764                            *ERROR 0512
     1765   01 0061B    EAF01386              BAL,15   *:ERROR
     1766   01 0061C    00000200 A            DATA     0512              #0512
     1767   01 0061D    68000620              B        T05M17
     1768                            *
     1769                            *ERROR 0513
     1770   01 0061E    EAF01386     T05M16   BAL,15   *:ERROR
     1771   01 0061F    00000201 A            DATA     0513              #0513
     1772   01 00620    EAF0138D     T05M17   BAL,15   *:SENSE
     1773   01 00621    2E000621              WAIT     %
     1774   01 00622    680005A6              B        T05M01            LOOP
     1775   01 00623    68000610              B        T05M14
1 C00   21:10 JUN 20,'83    TELEFILE LINE PRINTER DIAGNOSTIC 960-0607-H02                         PAGE   18
A    1777                            *
     1778                            *
     1779                            *
     1780   01 00624    32E00652     TST16    LW,14    T06XPSD
     1781   01 00625    35E0005C A            STW,14   X'5C'             SET UP IO INTERRUPT LINKAGE
     1782   01 00626    6AF0128D              BAL,15   :INTD             DISARM IO INTERRUPT
     1783   01 00627    22E00060 A            LI,14    X'60'
     1784   01 00628    75E00E18              STB,14   FORMAT            INHIBIT UPSPACE FORMAT
     1785   01 00629    220006DF              LI,0     DA(IOCD1)
     1786   01 0062A    6AF00F9E              BAL,15   :IOEXEC
     1787   01 0062B    22E00001 A            LI,R14   1                 DEFAULT DELAY FOR DRUM PRINTERS
     1788   01 0062C    6AF00435              BAL,15   BANDDLY            THEN MODIFY IF BAND
     1789   01 0062D    6AF01082              BAL,R15  :DELAY
     1790   01 0062E    6800062F              B        %+1
     1791   01 0062F    6AF010A1              BAL,15   :ERRORT           TEST INTERRUPT PENDING
     1792   01 00630    0000194C              DATA     BA(T06SEQ1)
     1793   01 00631    68000635              B        T06M01            YES, INTERRUPT PENDING
     1794                            *ERROR 0601
     1795   01 00632    EAF01386              BAL,15   *:ERROR           #0601
     1796   01 00633    00000259 A            DATA     0601
     1797   01 00634    6800063F              B        T06M03
     1798                            *
     1799   01 00635    330010A0     T06M01   MTW,0    :INTRECF          TEST INTERRUPT REC FLAG
     1800   01 00636    6830063A              BEZ      T06M02            B: PROGRAM WAS NOT INTERRUPTED
     1801                            *ERROR 0602
     1802   01 00637    EAF01386              BAL,15   *:ERROR
     1803   01 00638    0000025A A            DATA     0602              #0602
     1804   01 00639    6800063F              B        T06M03
     1805                            *
     1806   01 0063A    6AF01287     T06M02   BAL,15   :INTAE            ARM AND ENABLE IO
     1807   01 0063B    311010A0              CW,1     :INTRECF          TEST INT. REC FLAG
     1808   01 0063C    68300643              BE       T06M04            B: INTERRUPT RECEIVE FLAG SET
     1809                            *ERROR 0603
     1810   01 0063D    EAF01386              BAL,15   *:ERROR
     1811   01 0063E    0000025B A            DATA     0603              #0603
     1812   01 0063F    CFC00FC6     T06M03   HIO,12   *:DEVADDR         ISSUE HIO
     1813   01 00640    EAF0138D              BAL,15   *:SENSE
     1814   01 00641    2E000641              WAIT     %
     1815   01 00642    68000624              B        TST16             LOOP
     1816   01 00643    6AF0128D     T06M04   BAL,15   :INTD             DISARM IS INTERRUPT
     1817   01 00644    680004CF              B        EXIT              EXIT
     1818   01 00645    351010A0     T06REC   STW,1    :INTRECF          SET IO INTER REC'D FLAG
     1819   01 00646    6ED00000 A            AIO,13   0                 ISSUE AIO
     1820   01 00647    6AF010A1              BAL,15   :ERRORT           TEST FOR INTERRUPT PENDING CLEARED
     1821   01 00648    00001950              DATA     BA(T06SEQ2)
     1822   01 00649    6800064C              B        %+3               NO ERROR
     1823                            *ERROR 0604
     1824   01 0064A    EAF01386              BAL,15   *:ERROR
     1825   01 0064B    0000025C A            DATA     0604              #0604
     1826   01 0064C    0E20064E              LPSD,2   T06PSD            EXIT
     1827                                     BOUND    8
     1828   01 0064E    00000000 A   T06PSD   DATA     0,0
            01 0064F    00000000 A
     1829   01 00650    00000645              DATA     T06REC,0
            01 00651    00000000 A
     1830   01 00652    0F00064E     T06XPSD  XPSD,0   T06PSD
     1831   01 00653    18000000 A   T06SEQ1  :TSEQ    TIOT0
     1832   01 00654    10000000 A   T06SEQ2  :TSEQ    TIOF0
1 C00   21:10 JUN 20,'83    TELEFILE LINE PRINTER DIAGNOSTIC 960-0607-H02                         PAGE   19
A    1834                            *
     1835                            *
     1836         01 00485           T07SEQ1  EQU      TSEQ27
     1837   01 00655    28000000 A   T07SEQ2  :TSEQ    OSBT0
     1838   01 00656    20000000 A   T07SEQ3  :TSEQ    OSBF0
     1839         01 0043A           T07SEQ4  EQU      TSEQ1
     1840         01 0048F           T07SEQ5  EQU      TSEQ29
     1841                            *
     1842   01 00657    224FFFDF A   TST17    LI,4     -33               BUFFER INDEX
     1843   01 00658    32E0141E              LW,14    =X'40404040'      BLANK CHARACTERS
     1844   01 00659    35E813FB              STW,14   BUFFER2+33,4      STORE IN BUFFER2
     1845   01 0065A    65400659              BIR,4    %-1               B: LOOP TILL COMPLETE
     1846   01 0065B    3510090C              STW,1    TST1INDX          INDEX = 1

     1848   01 0065C    22E00000 A            LI,14    0                 DRUM PRINTER DEFAULT
     1849   01 0065D    6AF00435              BAL,15   BANDDLY            IMPLIES NO DELAY

     1851   01 0065E    6AF01082              BAL,15   :DELAY            BAND PRINTER IMPLIES
     1852   01 0065F    68000660              B        %+1                DELAY UNTIL SHUTDOWN

     1854   01 00660    22E00000 A   T07M01   LI,14    0
     1855   01 00661    35E0090F              STW,14   TST1ERR           RESET ERROR FLAG
     1856   01 00662    22E00060 A            LI,14    X'60'
     1857   01 00663    75E00E18              STB,14   FORMAT            INHIBIT UPSPACE FORMAT
     1858   01 00664    32E0090C              LW,14    TST1INDX          BYTE COUNT
     1859   01 00665    55E20DE1              STH,14   IOCD13+3,1        STORE IN IOCD
     1860   01 00666    CFC00FC6              HIO,12   *:DEVADDR         ISSUE HIO
     1861   01 00667    220006EF              LI,0     DA(IOCD13)        LOAD IOCD
     1862   01 00668    CCC00FC6              SIO,12   *:DEVADDR         PRINT WITH INHIBIT UPSPACE
     1863   01 00669    6AF0124F              BAL,15   :SAVESIO          SAVE SIO STATUS
     1864   01 0066A    6AF010A1              BAL,15   :ERRORT           TEST SIO
     1865   01 0066B    000010E8              DATA     BA(T07SEQ4)
     1866   01 0066C    68000670              B        T07M011           B: NO ERROR
     1867                            *ERROR 0706
     1868   01 0066D    EAF01386              BAL,15   *:ERROR           #0706
     1869   01 0066E    000002C2 A            DATA     0706
     1870   01 0066F    680006A0              B        T07M09

     1872         01 00670           T07M011  EQU      %
     1873   01 00670    22E00078 A            LI,14    120               USE 120 MS FOR DRUM

        2*  01 00671    52020334              LH,0     :CDB,1            PRINTRONIX PRINTERS             *H00
        3*  01 00672    21001D26 A            CI,0     7462               BEHAVE LIKE DRUM PRINTERS      *H01
        4*  01 00673    68200678              BLE      %+5                                               *H00

     1874   01 00674    33000335              MTW,0    :CDB+1             ELSE 80 MS FOR BAND
        1*  01 00675    68300678              BEZ      %+3                (EMPIRICALLY DETERMINED)       *H00

     1876   01 00676    22E00050 A            LI,14    80
     1877   01 00677    6AF00433              BAL,15   BANDDLY1          MODIFY ACCORDING TO INDEX

     1879   01 00678    6AF01082              BAL,15   :DELAY
     1880   01 00679    6800067A              B        %+1

     1882   01 0067A    6AF010A1              BAL,15   :ERRORT           TEST TDV
     1883   01 0067B    0000123C              DATA     BA(T07SEQ5)
     1884   01 0067C    68000680              B        T07M02            NO ERRORS
     1885                            *ERROR 0701
     1886   01 0067D    EAF01386              BAL,15   *:ERROR
     1887   01 0067E    000002BD A            DATA     0701              #0701
     1888   01 0067F    680006A0              B        T07M09
     1889                            *
     1890                            *
     1891   01 00680    22E00000 A   T07M02   LI,14    0
     1892   01 00681    51E2000D A            CH,14    13,1              BYTE COUNT:0
     1893   01 00682    68300689              BE       T07M03            B: BYTE COUNT = 0
     1894   01 00683    32E0090C              LW,14    TST1INDX          GET INDEX
     1895   01 00684    21E00084 A            CI,14    132               IS IT 132
     1896   01 00685    69200689              BG       T07M03            B: GREATER THAN 132
     1897   01 00686    3510090F              STW,1    TST1ERR           SET ERROR FLAG
     1898                            *ERROR 0702
     1899   01 00687    EAF01386              BAL,15   *:ERROR
     1900   01 00688    000002BE A            DATA     0702              #0702
     1901                            *
     1902   01 00689    32E0090C     T07M03   LW,14    TST1INDX          INDEX
     1903   01 0068A    21E00084 A            CI,14    132               INDEX:132
     1904   01 0068B    68200692              BLE      T07M04            B: INDEX <= 132
     1905   01 0068C    6AF010A1              BAL,15   :ERRORT           TEST OSB
     1906   01 0068D    00001954              DATA     BA(T07SEQ2)
     1907   01 0068E    68000698              B        T07M06            NO ERRORS
     1908                            *ERROR 0703
     1909   01 0068F    EAF01386              BAL,15   *:ERROR
     1910   01 00690    000002BF A            DATA     0703              #0703
     1911   01 00691    68000697              B        T07M05
     1912                            *
     1913   01 00692    6AF010A1     T07M04   BAL,15   :ERRORT           TEST OSB
     1914   01 00693    00001958              DATA     BA(T07SEQ3)
     1915   01 00694    68000698              B        T07M06            NO ERRORS
     1916                            *ERROR 0704
     1917   01 00695    EAF01386              BAL,15   *:ERROR
     1918   01 00696    000002C0 A            DATA     0704              #0704
     1919                            *
     1920   01 00697    3510090F     T07M05   STW,1    TST1ERR           SET ERROR FLAG
     1921   01 00698    6AF010A1     T07M06   BAL,15   :ERRORT           TEST TIO,OSB,TDV
     1922   01 00699    00001214              DATA     BA(T07SEQ1)
     1923   01 0069A    6800069E              B        T07M07            NO ERRORS
     1924                            *ERROR 0705
     1925   01 0069B    EAF01386              BAL,15   *:ERROR
     1926   01 0069C    000002C1 A            DATA     0705              #0705
     1927   01 0069D    680006A0              B        T07M09
     1928                            *
     1929   01 0069E    3110090F     T07M07   CW,1     TST1ERR           TEST ERROR FLAG
     1930   01 0069F    693006A3              BNE      T07M08            B: NO ERROR
     1931   01 006A0    EAF0138D     T07M09   BAL,15   *:SENSE
     1932   01 006A1    2E0006A1              WAIT     %
     1933   01 006A2    68000660              B        T07M01            LOOP
     1934   01 006A3    3310090C     T07M08   MTW,1    TST1INDX          INDEX + 1
     1935   01 006A4    32E0090C              LW,14    TST1INDX          INDEX
     1936   01 006A5    21E00085 A            CI,14    133               TST1INDX:133
     1937   01 006A6    68200660              BLE      T07M01            B: TST1INDX <= 133
     1938   01 006A7    680004CF              B        EXIT              EXIT
     1939                            *
1 C00   21:10 JUN 20,'83    TELEFILE LINE PRINTER DIAGNOSTIC 960-0607-H02                         PAGE   20
A    1941                            *
     1942                            *
     1943                            *
     1944                            *
     1945                            *
     1946                            *
     1947   01 006A8    22E00060 A   TST18    LI,14    X'60'
     1948   01 006A9    75E00E18              STB,14   FORMAT            INHIBIT UPSPACE FORMAT
     1949   01 006AA    224FFFDF A            LI,4     -33               BUFFER INDEX
     1950   01 006AB    32E0141E              LW,14    =X'40404040'      BLANK CHARACTER
     1951   01 006AC    35E813FB              STW,14   BUFFER2+33,4      STORE IN BUFFERI
     1952   01 006AD    654006AC              BIR,4    %-1               B: LOOP TILL BUFFER COMPLETE
     1953   01 006AE    CFC00FC6     T08M01   HIO,12   *:DEVADDR         ISSUE HIO
     1954   01 006AF    220006F8              LI,0     DA(IOCD22)        LOAD IOCD
     1955   01 006B0    6AF00F9E              BAL,15   :IOEXEC           INTERRUPT ON DTC ORDER
     1956   01 006B1    32E0091C     T08M05   LW,14    DELAYSP
     1957   01 006B2    6AF01082              BAL,15   :DELAY            DELAY
     1958   01 006B3    680006B4              B        %+1
     1959   01 006B4    6AF00E87              BAL,15   :TIO              ISSUE TIO
     1960   01 006B5    FFFFC000 A            DATA     X'FFFFC000'
     1961   01 006B6    90004000 A            DATA     X'90004000'
     1962   01 006B7    680006C0              B        T08M03            NO ERRORS
     1963   01 006B8    32D0000D A            LW,13    13                TIO STATUS
     1964   01 006B9    691006BD              BLZ      T08M02            B: INTERRUPT PENDING
     1965                            *ERROR 0801
     1966   01 006BA    EAF01386              BAL,15   *:ERROR
     1967   01 006BB    00000321 A            DATA     0801              #0801
     1968   01 006BC    680006C6              B        T08M04
     1969                            *
     1970                            *ERROR 0802
     1971   01 006BD    EAF01386     T08M02   BAL,15   *:ERROR
     1972   01 006BE    00000322 A            DATA     0802              #0802
     1973   01 006BF    680006C6              B        T08M04
     1974                            *
     1975   01 006C0    6AF00E96     T08M03   BAL,15   :AIO              ISSUE AIO
     1976   01 006C1    FFFFC002 A            DATA     X'FFFFC002'
     1977   01 006C2    40000000 A            DATA     X'40000000'
     1978   01 006C3    680006CA              B        T08M06            NO ERRORS
     1979                            *ERROR 0803
     1980   01 006C4    EAF01386              BAL,15   *:ERROR
     1981   01 006C5    00000323 A            DATA     0803              #0803
     1982   01 006C6    EAF0138D     T08M04   BAL,15   *:SENSE
     1983   01 006C7    2E0006C7              WAIT     %
     1984   01 006C8    680006AE              B        T08M01            LOOP
     1985   01 006C9    680004CF              B        EXIT              EXIT
     1986   01 006CA    3110090F     T08M06   CW,1     TST1ERR           TEST FOR ERROR
     1987   01 006CB    683006C6              BE       T08M04            B: ERROR
     1988   01 006CC    680004CF              B        EXIT              EXIT
1 C00   21:10 JUN 20,'83    TELEFILE LINE PRINTER DIAGNOSTIC 960-0607-H02                         PAGE   21
A    1990                            *
     1991                            *
     1992         01 0043A           T9SEQ1   EQU      TSEQ1
     1993                            *
     1994   01 006CD    22E00060 A   TST19    LI,14    X'60'
     1995   01 006CE    75E00E18              STB,14   FORMAT            INHIBIT UPSPACE FORMAT
     1996   01 006CF    224FFFDF A            LI,4     -33               BUFFER INDEX
     1997   01 006D0    32E0141E              LW,14    =X'40404040'      BLANK CHAR
     1998   01 006D1    35E813FB              STW,14   BUFFER2+33,4      STORE IN BUFFER2
     1999   01 006D2    654006D1              BIR,4    %-1               B: LOOP TILL BUFFER COMPLETE
     2000   01 006D3    CFC00FC6     T9M01    HIO,12   *:DEVADDR         ISSUE HIO
     2001   01 006D4    22E00005 A            LI,14    X'05'             PRINT WITH FORMAT ORDER
     2002   01 006D5    75E00DF4              STB,14   IOCD23            STORE IN IOCD
     2003   01 006D6    220006FA              LI,0     DA(IOCD23)        LOAD IOCD
     2004   01 006D7    CCC00FC6              SIO,12   *:DEVADDR         PRINT WITH INHIBIT UPSPACE
     2005   01 006D8    6AF0124F              BAL,15   :SAVESIO          SAVE SIO STATUS
     2006   01 006D9    6AF010A1              BAL,15   :ERRORT           TEST SIO
     2007   01 006DA    000010E8              DATA     BA(T9SEQ1)
     2008   01 006DB    680006DF              B        T9M011            B: NO ERRORS
     2009                            *ERROR 0912
     2010   01 006DC    EAF01386              BAL,15   *:ERROR
     2011   01 006DD    00000390 A            DATA     0912              0912
     2012                            *
     2013   01 006DE    680006FF              B        T9M06
     2014   01 006DF    32E0091C     T9M011   LW,14    DELAYSP
     2015   01 006E0    25E00401 A            SAS,14   1
     2016   01 006E1    6AF01082              BAL,15   :DELAY            DELAY
     2017   01 006E2    680006E3              B        %+1
     2018   01 006E3    6AF00E87              BAL,15   :TIO              ISSUE TIO
     2019   01 006E4    FFFFC000 A            DATA     X'FFFFC000'
     2020   01 006E5    10000000 A            DATA     X'10000000'
     2021   01 006E6    680006F6              B        T9M04             NO ERRORS
     2022   01 006E7    72E0000D A            LB,14    13                TIO STATUS
     2023   01 006E8    21E00006 A            CI,14    X'06'             IS CONTR BUSY
     2024   01 006E9    684006EE              BCR,4    T9M02             B: NOT BUSY
     2025   01 006EA    CFC00FC6              HIO,12   *:DEVADDR         ISSUE HIO
     2026                            *ERROR 0901
     2027   01 006EB    EAF01386              BAL,15   *:ERROR
     2028   01 006EC    00000385 A            DATA     0901              #0901
     2029   01 006ED    680006FF              B        T9M06
     2030                            *
     2031   01 006EE    31D0141F     T9M02    CW,13    =X'FF000000'      IS CONTR BITS IN ERROR
     2032   01 006EF    684006F3              BCR,4    T9M03             B:NO
     2033                            * ERROR 0902
     2034   01 006F0    EAF01386              BAL,15   *:ERROR
     2035   01 006F1    00000386 A            DATA     0902              #0902
     2036   01 006F2    680006FF              B        T9M06
     2037                            *
     2038                            *ERROR 0903
     2039   01 006F3    EAF01386     T9M03    BAL,15   *:ERROR
     2040   01 006F4    00000387 A            DATA     0903              #0903
     2041   01 006F5    680006FF              B        T9M06
     2042                            *
     2043   01 006F6    72E60F9D     T9M04    LB,14    :STATUSCC,3       BYTE COUNT
     2044   01 006F7    683006FB              BEZ      T9M05             B: BYTE COUNT = 0
     2045                            *ERROR 0904
     2046   01 006F8    EAF01386              BAL,15   *:ERROR
     2047   01 006F9    00000388 A            DATA     0904              #0904
     2048   01 006FA    680006FF              B        T9M06
     2049                            *
     2050   01 006FB    21C006FD     T9M05    CI,12    DA(IOCD23+6)      TEST FOR LAST IOCD
     2051   01 006FC    68300702              BE       T9M07             2ND IOCD
     2052                            *ERROR 0905
     2053   01 006FD    EAF01386              BAL,15   *:ERROR
     2054   01 006FE    00000389 A            DATA     0905              #0905
     2055   01 006FF    EAF0138D     T9M06    BAL,15   *:SENSE
     2056   01 00700    2E000700              WAIT     %
     2057   01 00701    680006D3              B        T9M01             LOOP
     2058   01 00702    CFC00FC6     T9M07    HIO,12   *:DEVADDR         ISSUE HIO
     2059   01 00703    22E00000 A            LI,14    0
     2060   01 00704    75E00DF4              STB,14   IOCD23            STORE INVALID ORDER
     2061   01 00705    220006FA              LI,0     DA(IOCD23)        LOAD IOCD
     2062   01 00706    6AF00E82              BAL,15   :SIO              ISSUE INVALID ORDER
     2063   01 00707    9700C000 A            DATA     X'9700C000'
     2064   01 00708    10000000 A            DATA     X'10000000'
     2065   01 00709    6800070D              B        %+4               NO ERRORS
     2066                            *ERROR 0911
     2067   01 0070A    EAF01386              BAL,15   *:ERROR
     2068   01 0070B    0000038F A            DATA     0911              #0911
     2069   01 0070C    6800072B              B        T9M12
     2070                            *
     2071   01 0070D    32400912              LW,4     DELYTM
     2072   01 0070E    6440070E              BDR,4    %                 DELAY
     2073   01 0070F    6AF00E87              BAL,15   :TIO              ISSUE TIO
     2074   01 00710    FFFFC000 A            DATA     X'FFFFC000'
     2075   01 00711    18000000 A            DATA     X'18000000'
     2076   01 00712    68000722              B        T9M10             NO ERRORS
     2077   01 00713    72E0000D A            LB,14    13                TIO STATUS
     2078   01 00714    21E00006 A            CI,14    X'06'             IS CONTR READY
     2079   01 00715    6840071A              BCR,4    T9M08             B: NO, CONTR READY
     2080   01 00716    CFC00FC6              HIO,12   *:DEVADDR         ISSUE HIO
     2081                            *ERROR 0906
     2082   01 00717    EAF01386              BAL,15   *:ERROR
     2083   01 00718    0000038A A            DATA     0906              #0906
     2084   01 00719    6800072B              B        T9M12
     2085                            *
     2086   01 0071A    31D0141D     T9M08    CW,13    =X'08000000'      TEST FOR UNUSUAL END
     2087   01 0071B    6940071F              BCS,4    T9M09             B: UNUSUAL END
     2088                            *ERROR 0907
     2089   01 0071C    EAF01386              BAL,15   *:ERROR
     2090   01 0071D    0000038B A            DATA     0907              #0907
     2091   01 0071E    6800072B              B        T9M12
     2092                            *
     2093                            *ERROR 0908
     2094   01 0071F    EAF01386     T9M09    BAL,15   *:ERROR
     2095   01 00720    0000038C A            DATA     0908              #0908
     2096   01 00721    6800072B              B        T9M12
     2097                            *
     2098   01 00722    71160F9D     T9M10    CB,1     :STATUSCC,3       TEST BYTE COUNT
     2099   01 00723    68300727              BE       T9M11             B: BYTE COUNT = 1
     2100                            *ERROR 0909
     2101   01 00724    EAF01386              BAL,15   *:ERROR
     2102   01 00725    0000038D A            DATA     0909              #0909
     2103   01 00726    6800072B              B        T9M12
     2104                            *
     2105   01 00727    21C006FA     T9M11    CI,12    DA(IOCD23)        TEST 1ST IOCD
     2106   01 00728    683004CF              BE       EXIT              EXIT
     2107                            *ERROR   0910
     2108   01 00729    EAF01386              BAL,15   *:ERROR
     2109   01 0072A    0000038E A            DATA     0910              #0910
     2110   01 0072B    EAF0138D     T9M12    BAL,15   *:SENSE
     2111   01 0072C    2E00072C              WAIT     %
     2112   01 0072D    68000702              B        T9M07             LOOP
     2113   01 0072E    680004CF              B        EXIT              EXIT
     2114                            *
     2115                            *
1 C00   21:10 JUN 20,'83    TELEFILE LINE PRINTER DIAGNOSTIC 960-0607-H02                         PAGE   22
A    2117   01 0072F    680004CF     TST110   B        EXIT
     2118                            *
     2119                            *
     2120         01 0048A           T11SEQ1  EQU      TSEQ28
     2121         01 00490           T11SEQ2  EQU      TSEQ30
     2122                            *
     2123   01 00730    22E000C1 A   TST111   LI,14    X'C1'
     2124   01 00731    75E00E18              STB,14   FORMAT            SPACE 1 LINE FORMAT
     2125   01 00732    CFC00FC6     T11M01   HIO,12   *:DEVADDR         ISSUE HIO
     2126   01 00733    220006EC              LI,0     DA(IOCD11)        LOAD IOCD
     2127   01 00734    6AF00F9E              BAL,15   :IOEXEC           SPACE 1 LINE
        1*  01 00735    22E00400 A   T11M02   LI,14    1024              INCREASE FOR PRINTRONIX         *H00
     2129   01 00736    6AF01082              BAL,15   :DELAY            DELAY
     2130   01 00737    68000738              B        %+1
     2131   01 00738    6AF010A1              BAL,15   :ERRORT           TEST TIO,OSB,TDV
     2132   01 00739    00001228              DATA     BA(T11SEQ1)
     2133   01 0073A    680004CF              B        EXIT              NO ERRORS, EXIT
     2134                            *ERROR 1101
     2135   01 0073B    EAF01386              BAL,15   *:ERROR
     2136   01 0073C    0000044D A            DATA     1101              #1101
     2137   01 0073D    EAF0138D     T11M03   BAL,15   *:SENSE
     2138   01 0073E    2E00073E              WAIT     %
     2139   01 0073F    68000732              B        T11M01            LOOP
     2140   01 00740    680004CF              B        EXIT              EXIT
1 C00   21:10 JUN 20,'83    TELEFILE LINE PRINTER DIAGNOSTIC 960-0607-H02                         PAGE   23
A    2142                            *
     2143                            *
     2144                            *
     2145   01 00741    680004CF     TST112   B        EXIT
1 C00   21:10 JUN 20,'83    TELEFILE LINE PRINTER DIAGNOSTIC 960-0607-H02                         PAGE   24
A    2147                            *
     2148                            *
     2149                            *
     2150   01 00742    22A00000 A   TST113   LI,10    0
     2151   01 00743    35A0090C              STW,10   TST1INDX          RESET INDEX
     2152   01 00744    224FFF7C A   T13M01   LI,4     -132              BUFFER INDEX
     2153   01 00745    3250090C              LW,5     TST1INDX          GET INDEX
     2154   01 00746    F2EA0CC5              LB,14    *CHARTBLX,5       PATTERN OF INDEX
     2155   01 00747    75E813FB              STB,14   BUFFER2+33,4      STORE IN BUFFER 2
     2156   01 00748    65400747              BIR,4    %-1               B: LOOP TILL BUFFER COMPLETE
     2157   01 00749    CFC00FC6     T13M02   HIO,12   *:DEVADDR         ISSUE HIO
     2158   01 0074A    220006E2              LI,0     DA(IOCD3)         LOAD IOCD
     2159   01 0074B    6AF012C5              BAL,15   EXECUTE           PRINT A LINE
     2160   01 0074C    68000752              B        T13M03            NO ERRORS
     2161                            *ERROR 1301
     2162   01 0074D    EAF01386              BAL,15   *:ERROR
     2163   01 0074E    00000515 A            DATA     1301              #1301
     2164   01 0074F    EAF0138D              BAL,15   *:SENSE
     2165   01 00750    2E000750              WAIT     %
     2166   01 00751    68000749              B        T13M02
     2167   01 00752    3310090C     T13M03   MTW,1    TST1INDX          INCR INDEX
     2168   01 00753    32E0090C              LW,14    TST1INDX          INDEX
     2169   01 00754    31E00418              CW,14    CHARINDX          CHAR INDEX
     2170   01 00755    69100744              BL       T13M01            B: INDEX < 64
     2171   01 00756    680004CF              B        EXIT              EXIT
     2172                            *
1 C00   21:10 JUN 20,'83    TELEFILE LINE PRINTER DIAGNOSTIC 960-0607-H02                         PAGE   25
A    2174                            *
     2175                            *
     2176                            *
     2177   01 00757    22E00000 A   TST114   LI,14    0
     2178   01 00758    35E0090C              STW,14   TST1INDX          RESET INDEX
     2179   01 00759    224FFFDF A   T14M01   LI,4     -33               BUFFER INDEX
     2180   01 0075A    22E00000 A            LI,14    0                 INDEX
     2181   01 0075B    35E813FB              STW,14   BUFFER2+33,4      STORE IN BUFFER2
     2182   01 0075C    6540075B              BIR,4    %-1               B: LOOP TILL BUFFER COMPLETE
     2183   01 0075D    3240090C              LW,4     TST1INDX          INDEX
     2184   01 0075E    22E000C5 A            LI,14    X'C5'             CHAR 'E'
     2185   01 0075F    75E813DA              STB,14   BUFFER2,4         STORE IN BUFFER2
     2186   01 00760    3310090C              MTW,1    TST1INDX          BYTE COUNT
     2187   01 00761    32E0090C              LW,14    TST1INDX          BYTE COUNT
     2188   01 00762    55E20DFD              STH,14   IOCD24+1,1        STORE IN IOCD
     2189   01 00763    CFC00FC6     T14M02   HIO,12   *:DEVADDR         ISSUE HIO
     2190   01 00764    220006FE              LI,0     DA(IOCD24)        LOAD IOCD
     2191   01 00765    6AF012C5              BAL,15   EXECUTE           PRINT ONE  LINE
     2192   01 00766    68000771              B        T14M03            NO ERROR
     2193   01 00767    32C0090C              LW,12    TST1INDX          INDEX
     2194   01 00768    EAF00217              BAL,15   *:DECC            CONVERT TO DECIMAL
     2195   01 00769    35F0094E              STW,15   T14MSG+4          STORE IN MESSAGE
     2196   01 0076A    EAF0021C              BAL,15   *:PRINT
     2197   01 0076B    0000094A              DATA     T14MSG            'COLUMN ERROR   XXXX'
     2198                            *ERROR 1401
     2199   01 0076C    EAF01386              BAL,15   *:ERROR
     2200   01 0076D    00000579 A            DATA     1401              #1401
     2201   01 0076E    EAF0138D              BAL,15   *:SENSE
     2202   01 0076F    2E00076F              WAIT     %
     2203   01 00770    68000763              B        T14M02            LOOP
     2204   01 00771    32E0090C     T14M03   LW,14    TST1INDX          INDEX
     2205   01 00772    21E00084 A            CI,14    132               INDEX:132
     2206   01 00773    69100759              BL       T14M01            B: INDEX <=132
     2207   01 00774    680004CF              B        EXIT              EXIT
     2208                            *
     2209                            *
     2210                            *
     2211                            *
     2212   01 00775                 T15MSGA  RES      25
        1*  01 0078E    C3D6D3E4 A            TEXT     'COLUMN 65 THRU 100 MUST BE BLANK'                *H00
            01 0078F    D4D540F6 A
            01 00790    F540E3C8 A
            01 00791    D9E440F1 A
            01 00792    F0F040D4 A
            01 00793    E4E2E340 A
            01 00794    C2C540C2 A
            01 00795    D3C1D5D2 A
     2214   01 00796                 T15MSGB  RES      15
        1*  01 007A5    C3D6D3E4 A            TEXT     'COLUMN 2 THRU 60 MUST BE BLANK    '              *H00
            01 007A6    D4D540F2 A
            01 007A7    40E3C8D9 A
            01 007A8    E440F6F0 A
            01 007A9    40D4E4E2 A
            01 007AA    E340C2C5 A
            01 007AB    40C2D3C1 A
            01 007AC    D5D24040 A
            01 007AD    40404040 A
     2216   01 007AE    00000000 A   LASTINVC DATA     0
     2217   01 007AF    40404040 A   T15MSG   DATA     X'40404040'
     2218   01 007B0    E3C1D9E3 A            TEXT     'TART OF UNAVAILABLE CHARACTER TEST'
            01 007B1    40D6C640 A
            01 007B2    E4D5C1E5 A
            01 007B3    C1C9D3C1 A
            01 007B4    C2D3C540 A
            01 007B5    C3C8C1D9 A
            01 007B6    C1C3E3C5 A
            01 007B7    D940E3C5 A
            01 007B8    E2E34040 A
     2219   01 007B9    1DE4D5C1 A   MSGPERR  TEXTC    'UNABLE TO PRINT MESSAGE ON LP'
            01 007BA    C2D3C540 A
            01 007BB    E3D640D7 A
            01 007BC    D9C9D5E3 A
            01 007BD    40D4C5E2 A
            01 007BE    E2C1C7C5 A
            01 007BF    40D6D540 A
            01 007C0    D3D74040 A
     2220   01 007C1    22E00000 A   TST115   LI,14    0
     2221   01 007C2    35E0090C              STW,14   TST1INDX          CLEAR INDEX
     2222   01 007C3    6AF0131B              BAL,15   PRINTPOS          PRINT COLUMN HEADING
     2223   01 007C4    22E000E2 A            LI,14    'S'               GET 'S' CHAR
     2224   01 007C5    75E607AF              STB,14   T15MSG,3          SAVE IN MSG
     2225   01 007C6    32E01420              LW,14    ='TART'           GET 'TART' CHAR
     2226   01 007C7    35E007B0              STW,14   T15MSG+1
     2227   01 007C8    22000703              LI,0     DA(IOCD27)        LOAD IOCD ADDR
     2228   01 007C9    6AF012C5              BAL,15   EXECUTE           PRINT STARTING TEST MSG
     2229   01 007CA    680007CE              B        T15M01            NO ERRORS
     2230   01 007CB    EAF0021C     T15M06   BAL,15   *:PRINT           PRINT MESSAGE
     2231   01 007CC    000007B9              DATA     MSGPERR           'UNABLE TO PRINT MSG ON LP'
     2232   01 007CD    680004CF              B        EXIT              EXIT
     2233   01 007CE    224FFFE7 A   T15M01   LI,4     -25               CLEAR INDEX REG
     2234   01 007CF    32E80DAE              LW,14    INVCTBL2,4        GET INVALID CHAR
     2235   01 007D0    35E8078E              STW,14   T15MSGA+25,4      STORE IN BUFFER1
     2236   01 007D1    654007CF              BIR,4    %-2               LOOP TILL BUFFER COMPLETE
     2237   01 007D2    22000708     T15M03   LI,0     DA(IOCD31)        LOAD IOCD ADDR
     2238   01 007D3    6AF012C5              BAL,15   EXECUTE           PRINT FIRST INVALID CHAR
     2239   01 007D4    680007D8              B        T15M04            NO ERRORS
     2240                            *ERROR 1501
     2241   01 007D5    EAF01386              BAL,15   *:ERROR
     2242   01 007D6    000005DD A            DATA     1501              #1501
     2243   01 007D7    680007EA              B        T15M08
     2244   01 007D8    224FFFF1 A   T15M04   LI,4     -15               GET BUFFER INDEX
     2245   01 007D9    32E80DBD              LW,14    INVCTBL3,4        GET INVALID CHAR
     2246   01 007DA    35E807A5              STW,14   T15MSGB+15,4      STORE IN MESSAGE
     2247   01 007DB    654007D9              BIR,4    %-2               LOOP TILL BUFFER COMPLETE
     2248   01 007DC    22000709     T15M07   LI,0     DA(IOCD32)        LOAD IOCD ADDR
     2249   01 007DD    6AF012C5              BAL,15   EXECUTE           PRINT INVALID CHARS
     2250   01 007DE    680007E2              B        T15M05            NO ERRORS
     2251                            *ERROR 1502
     2252   01 007DF    EAF01386              BAL,15   *:ERROR
     2253   01 007E0    000005DE A            DATA     1502              #1502
     2254   01 007E1    680007EE              B        T15M09
     2255   01 007E2    22E00040 A   T15M05   LI,14    X'40'             GET BLANK CHAR
     2256   01 007E3    75E607AF              STB,14   T15MSG,3          STORE A BLANK CHAR
     2257   01 007E4    32E01421              LW,14    ='END '           GET 'END ' CHAR
     2258   01 007E5    35E007B0              STW,14   T15MSG+1          STORE IN MSG
     2259   01 007E6    22000703              LI,0     DA(IOCD27)        LOAD IOCD ADDR
     2260   01 007E7    6AF012C5              BAL,15   EXECUTE           PRINT ENDING TEST MESSAGE
     2261   01 007E8    680004CF              B        EXIT              EXIT
     2262   01 007E9    680007CB              B        T15M06            PRINT ERROR MESSAGE
     2263   01 007EA    EAF0138D     T15M08   BAL,15   *:SENSE
     2264   01 007EB    2E0007EB              WAIT     %
     2265   01 007EC    680007D2              B        T15M03            LOOP
     2266   01 007ED    680007D8              B        T15M04            CONTINUE
     2267   01 007EE    EAF0138D     T15M09   BAL,15   *:SENSE
     2268   01 007EF    2E0007EF              WAIT     %
     2269   01 007F0    680007DC              B        T15M07            LOOP
     2270   01 007F1    680007E2              B        T15M05            CONTINUE
     2271                            *
     2272                            *
     2273   01 007F2    680004CF     TST116   B        EXIT
     2274                            *
     2275                            *
     2276                            *
     2277                            *                                                                      *
     2278   01 007F3    22E00000 A   TST117   LI,14    0                 RESET
     2279   01 007F4    35E00CC2              STW,14   TST3CNT               SPACE COUNT
     2280   01 007F5    35E00C9A              STW,14   TST3INDX          CLEAR INDEX
     2281   01 007F6    22E00000 A            LI,14    X'00'             SPACE 0 LINE
     2282   01 007F7    75E00E18              STB,14   FORMAT                FORMAT
     2283   01 007F8    72C00E18     T17M01   LB,12    FORMAT            NUMBER OF SPACES
     2284   01 007F9    EAF00218              BAL,15   *:HEXC            CONVERT TO EBCDIC
     2285   01 007FA    55F00D26              STH,15   TST37M3+8         STORE IN MESSAGE
     2286   01 007FB    32C00CC2              LW,12    TST3CNT           GET LINE COUNT
     2287   01 007FC    EAF00217              BAL,15   *:DECC            CONVERT TO EBCDIC
     2288   01 007FD    55F20D20              STH,15   TST37M3+2,1       STORE IN MSG
     2289   01 007FE    72E00D1E              LB,14    TST37M3           FETCH BYTE COUNT
     2290   01 007FF    55E20DD5              STH,14   IOCD9+3,1         STORE IN IOCD
     2291   01 00800    22E03479              LI,14    BA(TST37M3)+1     FETCH IOCD BYTE ADDRESS
     2292   01 00801    55E20DD4              STH,14   IOCD9+2,1         STORE IN IOCD
     2293   01 00802    220006E9              LI,0     DA(IOCD9)         LOAD IOCD
     2294   01 00803    6AF012C5              BAL,15   EXECUTE           PRINT MESSAGE
     2295   01 00804    68000808              B        T17M05            NO ERROR
     2296                            *ERROR 1701
     2297   01 00805    EAF01386              BAL,15   *:ERROR
     2298   01 00806    000006A5 A            DATA     1701              #1701
     2299   01 00807    68000829              B        T17M07
     2300   01 00808    33100CC2     T17M05   MTW,1    TST3CNT           INCREMENT SPACE COUNT
     2301   01 00809    73100E18              MTB,1    FORMAT            INCREMENT SPACE FORMAT
     2302   01 0080A    32C00CC2              LW,12    TST3CNT           SPACE FORMAT
     2303   01 0080B    21C0000A A   T17M04   CI,12    10                CP: SPACE LINE:10
     2304   01 0080C    691007F8              BL       T17M01            B: SPACE LINE IS LESS THAN 10
     2305   01 0080D    6920081C              BG       T17M03            B: SPACE LINE IS GREATER THAN 10
     2306   01 0080E    72E00D27     T17M02   LB,14    TST37TP           FETCH BYTE COUNT
     2307   01 0080F    55E20DD5              STH,14   IOCD9+3,1         STORE IN IOCD
     2308   01 00810    22E0349D              LI,14    BA(TST37TP)+1     FETCH IOCD BYTE ADDRESS
     2309   01 00811    55E20DD4              STH,14   IOCD9+2,1         STORE IN IOCD
     2310   01 00812    32D01422              LW,13    =X'F1000000'      TOP OF PAGE FORMAT
     2311   01 00813    46D00E18              XW,13    FORMAT            EXCHANGE FORMAT
     2312   01 00814    220006E9     T17M09   LI,0     DA(IOCD9)         LOAD IOCD
     2313   01 00815    6AF012C5              BAL,15   EXECUTE           SKIP TO TOP OF PAGE
     2314   01 00816    6800081A              B        T17M06            NO ERROR
     2315                            *ERROR 1702
     2316   01 00817    EAF01386              BAL,15   *:ERROR
     2317   01 00818    000006A6 A            DATA     1702              #1702
     2318   01 00819    6800082D              B        T17M08
     2319   01 0081A    46D00E18     T17M06   XW,13    FORMAT            EXCHANGE FORMAT
     2320   01 0081B    680007F8              B        T17M01            NEXT SPACE FORMAT
     2321   01 0081C    21C0000D A   T17M03   CI,12    13                CP: SPACE LINE:13
     2322   01 0081D    6830080E              BE       T17M02            B: SPACE LINE EQUAL 13
     2323   01 0081E    21C0000F A            CI,12    15                CP: SPACE LINE:15
     2324   01 0081F    691007F8              BL       T17M01            B: SPACE LINE LESS THAN 15
     2325   01 00820    6830080E              BE       T17M02            B: SPACE LINE EQUAL 15
     2326   01 00821    32E00C9A              LW,14    TST3INDX          GET INDEX
     2327   01 00822    693004CF              BNEZ     EXIT              GO TO EXIT
     2328   01 00823    33100C9A              MTW,1    TST3INDX          INCR INDEX
     2329   01 00824    22E00020 A            LI,14    X'20'             GET SPACE 0 LINES WITH INHIBITUPSPACE
     2330   01 00825    75E00E18              STB,14   FORMAT            SAVE
     2331   01 00826    22E00000 A            LI,14    0
     2332   01 00827    35E00CC2              STW,14   TST3CNT           RESET COUNT FLAG
     2333   01 00828    680007F8              B        T17M01            REPEAT TEST
     2334                            *
     2335   01 00829    EAF0138D     T17M07   BAL,15   *:SENSE
     2336   01 0082A    2E00082A              WAIT     %
     2337   01 0082B    680007F8              B        T17M01            LOOP
     2338   01 0082C    68000808              B        T17M05            CONTINUE
     2339   01 0082D    EAF0138D     T17M08   BAL,15   *:SENSE
     2340   01 0082E    2E00082E              WAIT     %
     2341   01 0082F    68000814              B        T17M09            LOOP
     2342   01 00830    6800081A              B        T17M06            CONTINUE
     2343                            *
     2344   01 00831    22E00000 A   TST118   LI,14    0
     2345   01 00832    35E00CC2              STW,14   TST3CNT           RESET INDEX
     2346   01 00833    35E0090C              STW,14   TST1INDX          CLEAR INDEX
     2347   01 00834    22E00030 A            LI,14    X'30'
     2348   01 00835    35E00C25              STW,14   FMTCODE           SAVE FORMAT CODE
     2349   01 00836    32C00CC2     T18M01   LW,12    TST3CNT           GET CHANNEL NUMBER
     2350   01 00837    49C00C25              OR,12    FMTCODE           MERGE WITH FORMAT CODE
     2351   01 00838    EAF00218              BAL,15   *:HEXC            CONVERT TO HEX
     2352   01 00839    55F00D34              STH,15   TST38MSG+9        STORE IN MSG
     2353   01 0083A    32C00CC2              LW,12    TST3CNT           GET SKIP TO CHANNEL
     2354   01 0083B    49C00C25              OR,12    FMTCODE           MERGE WITH FORMAT CODE
     2355   01 0083C    75C00E18              STB,12   FORMAT            SAVE IN FORMAT
     2356   01 0083D    32C00CC2              LW,12    TST3CNT           GET CHANNEL NO.
     2357   01 0083E    4BC01423              AND,12   =X'B'             MASK
     2358   01 0083F    EAF00217     T18M07   BAL,15   *:DECC            CONVERT TO EBCDIC
     2359   01 00840    55F00D30              STH,15   TST38MSG+5        STORE IN MSG
     2360   01 00841    72E00D2B              LB,14    TST38MSG          FETCH BYTE COUNT
     2361   01 00842    55E60DD4              STH,14   IOCD9+2,3         STORE IN IOCD
     2362   01 00843    22E034AD              LI,14    BA(TST38MSG)+1    FETCH MEMORY BYTE ADDRESS
     2363   01 00844    55E20DD4              STH,14   IOCD9+2,1         STORE IN IOCD
     2364   01 00845    220006DF     T18M02   LI,0     DA(IOCD1)         LOAD IOCD
     2365   01 00846    6AF012C5              BAL,15   EXECUTE           SKIP TO CHANNEL XX
     2366   01 00847    6800084B              B        T18M03            NO ERRORS
     2367                            *ERROR 1801
     2368   01 00848    EAF01386              BAL,15   *:ERROR
     2369   01 00849    00000709 A            DATA     1801              #1801
     2370   01 0084A    6800085F              B        T18M06
     2371   01 0084B    22E00060 A   T18M03   LI,14    X'60'
     2372   01 0084C    75E00E18              STB,14   FORMAT            INHIBIT AUTO UPSPACE FORMAT
     2373   01 0084D    220006E9     T18M05   LI,0     DA(IOCD9)         LOAD IOCD
     2374   01 0084E    6AF012C5              BAL,15   EXECUTE           PRINT MESSAGE
     2375   01 0084F    68000853              B        T18M04            NO ERRORS
     2376                            *ERROR 1802
     2377   01 00850    EAF01386              BAL,15   *:ERROR
     2378   01 00851    0000070A A            DATA     1802              #1802
     2379   01 00852    6800085F              B        T18M06
     2380                            *
     2381   01 00853    33100CC2     T18M04   MTW,1    TST3CNT           INCR COUNT
     2382   01 00854    32E00CC2              LW,14    TST3CNT           GET SKIP TO CHANNEL
     2383   01 00855    31E00911              CW,14    MAXCHAN           IS IT SKIP TO CHANNEL XX
     2384   01 00856    68200836              BLE      T18M01            <= 15
     2385   01 00857    32E0090C              LW,14    TST1INDX          GET INDEX
     2386   01 00858    693004CF              BNEZ     EXIT              EXIT
     2387   01 00859    3310090C              MTW,1    TST1INDX          INCR INDEX
     2388   01 0085A    22E00010 A            LI,14    X'10'             GET FORMAT BYTE
     2389   01 0085B    35E00C25              STW,14   FMTCODE           SAVE
     2390   01 0085C    22E00000 A            LI,14    0
     2391   01 0085D    35E00CC2              STW,14   TST3CNT           RESET COUNT FLAG
     2392   01 0085E    68000836              B        T18M01            REPEAT
     2393   01 0085F    EAF0138D     T18M06   BAL,15   *:SENSE
     2394   01 00860    2E000860              WAIT     %
     2395   01 00861    6800084B              B        T18M03            LOOP
     2396   01 00862    68000836              B        T18M01            CONTINUE
     2397                            *
     2398   01 00863    22E000F0 A   TST119   LI,14    X'F0'             GET SKIP TO BOTTOM OF PAGE FORMAT
     2399   01 00864    75E00E18              STB,14   FORMAT            SAVE IN FORMAT
     2400   01 00865    220006DF              LI,0     DA(IOCD1)         GET IOCD ADDR
     2401   01 00866    6AF012C5              BAL,15   EXECUTE           SKIP TO BOTTOM OF PAGE
     2402   01 00867    6800086B              B        T19M01            NO ERRORS
     2403                            *ERROR 1901
     2404   01 00868    EAF01386              BAL,15   *:ERROR
     2405   01 00869    0000076D A            DATA     1901              #1901
     2406   01 0086A    68000881              B        T19M03
     2407                            *
     2408                            *
     2409   01 0086B    22E000C1 A   T19M01   LI,14    X'C1'             SPACE 1 LINE FORMAT
     2410   01 0086C    75E00E18              STB,14   FORMAT            SAVE FORMAT
     2411   01 0086D    224FFFEC A            LI,4     -20               SET LOOP COUNT
     2412   01 0086E    22E006DF     T19M04   LI,14    DA(IOCD1)         LOAD IOCD
     2413   01 0086F    6AF012C5              BAL,15   EXECUTE           SPACE 0 LINE
     2414   01 00870    68000874              B        T19M02            NO ERRORS
     2415                            *ERROR 1902
     2416   01 00871    EAF01386              BAL,15   *:ERROR
     2417   01 00872    0000076E A            DATA     1902              #1902
     2418   01 00873    68000881              B        T19M03
     2419                            *
     2420                            *
     2421   01 00874    CEC00FC6     T19M02   TDV,12   *:DEVADDR         ISSUE TDV
     2422   01 00875    4BD01424              AND,13   =X'10000000'      MASK
     2423   01 00876    68300878              BEZ      %+2               NOT TOP OF PAGE
     2424   01 00877    680004CF              B        EXIT              EXIT
     2425                            *ERROR 1903
     2426   01 00878    6540086E              BIR,4    T19M04            LOOP TILL TOP OF PAGE DETECTED

        2*  01 00879    52420334              LH,4     :CDB,1            THESE TYPE OF PRINTERS          *H00
        3*  01 0087A    21401D26 A            CI,4     7462               DO NOT SHOW TOP-OF-FORM        *H01
        4*  01 0087B    682004CF              BLE      EXIT                SO SUPPRESS ERROR             *H00

     2427   01 0087C    6AF010A1              BAL,15   :ERRORT           ISSUE TDV
     2428   01 0087D    00002214              DATA     BA(T19SEQ1)
     2429   01 0087E    680004CF              B        EXIT              EXIT
     2430   01 0087F    EAF01386              BAL,15   *:ERROR
     2431   01 00880    0000076F A            DATA     1903              #1903
     2432   01 00881    EAF0138D     T19M03   BAL,15   *:SENSE
     2433   01 00882    2E000882              WAIT     %
     2434   01 00883    68000863              B        TST119            LOOP
     2435   01 00884    680004CF              B        EXIT              EXIT
     2436   01 00885    4B000000 A   T19SEQ1  :TSEQ    TDVT3
     2437                            *
     2438                            *
     2439                            *
     2440   01 00886    22E00000 A   TST120   LI,14    0
     2441   01 00887    35E0091F              STW,14   TSTP1             RESET PARAMETER 1
     2442   01 00888    35100921              STW,1    TST1FLAG          SET FLAG
     2443   01 00889    3240091F     T20M01   LW,4     TSTP1             PARAMETER 1
     2444   01 0088A    32E80922              LW,14    LINECNT,4         FETCH LINE COUNT
     2445   01 0088B    35E00CC3              STW,14   TST3LINE          SAVE
     2446   01 0088C    22E000C4 A            LI,14    X'C4'             SPACE 4 LINE FORMAT
     2447   01 0088D    75E00E18              STB,14   FORMAT               SAVE
     2448   01 0088E    22E00000 A            LI,14    0
     2449   01 0088F    35E00920              STW,14   EXECERR1          RESET ERROR FLAG
     2450   01 00890    68000A84              B        TST3C             GO TO TST3C
     2451                            *
     2452   01 00891    32E00920     TST120A  LW,14    EXECERR1          TEST ERROR FLAG
     2453   01 00892    6830089E              BEZ      T20M02            B: NO ERROR
     2454   01 00893    32E0091F              LW,14    TSTP1             PARAMETER 1
     2455   01 00894    21E00004 A            CI,14    4                 :P1:4
     2456   01 00895    68200897              BLE      %+2               B: :P1 <= 4
     2457   01 00896    38E00002 A            SW,14    2                 DECREMENT :P1 BY 2
     2458   01 00897    20E007D1 A            AI,14    2001              SPECIFY ERROR NUMBER
     2459   01 00898    35E0089A              STW,14   %+2               SAVE
     2460                            *ERROR 2001-2008
     2461   01 00899    EAF01386              BAL,15   *:ERROR           #2001-2008
     2462   01 0089A    00000000 A            DATA     0
     2463   01 0089B    EAF0138D              BAL,15   *:SENSE
     2464   01 0089C    2E00089C              WAIT     %
     2465   01 0089D    68000889              B        T20M01            LOOP

     2466   01 0089E    3310091F     T20M02   MTW,1    TSTP1             :P1+1
     2467   01 0089F    32E0091F              LW,14    TSTP1             :P1
     2468   01 008A0    21E00005 A            CI,14    5                 :P1:5
     2469   01 008A1    69100889              BL       T20M01             B: :P1 < 5
     2470   01 008A2    21E00006 A            CI,14    6                 :P1:6
     2471   01 008A3    6820089E              BLE      T20M02            B: :P1 <= 6
     2472   01 008A4    21E00009 A            CI,14    9                 :P1:9
     2473   01 008A5    68200889              BLE      T20M01            B: :P1 <= 8
     2474   01 008A6    680004CF              B        EXIT              EXIT

     2475   01 008A7    680004CF     TST121   B        EXIT
     2476                            *
     2477   01 008A8    22E00001 A   TST122   LI,14    1                 GET BYTE COUNT
     2478   01 008A9    35E0090C              STW,14   TST1INDX          SAVE BYTE COUNT
     2479   01 008AA    22E000E2 A            LI,14    'S'               GET 'S' CHAR
     2480   01 008AB    75E608FB              STB,14   T22MSG,3          STORE IN MSG
     2481   01 008AC    32E01420              LW,14    ='TART'           GET 'TART' CHARS
     2482   01 008AD    35E008FC              STW,14   T22MSG+1          STORE IN MSG
     2483   01 008AE    2200070A              LI,0     DA(IOCD33)        GET IOCD ADDR
     2484   01 008AF    6AF012C5              BAL,15   EXECUTE           PRINT STARTING TEST MSG
     2485   01 008B0    680008B4              B        T22M07            NO ERRORS
     2486   01 008B1    EAF0021C     T22M09   BAL,15   *:PRINT           PRINT ERROR MSG
     2487   01 008B2    000007B9              DATA     MSGPERR           'UNABLE TO PRINT MSG ON LP'
     2488   01 008B3    680004CF              B        EXIT              EXIT
     2489   01 008B4    22E00706     T22M07   LI,14    DA(IOCD29)        GET IOCD ADDR
     2490   01 008B5    30E0141D              AW,14    =X'08000000'      SET IOP HALT FLAG
     2491   01 008B6    35E00E0A              STW,14   IOCD28+2          STORE IN IOCD
     2492   01 008B7    224FFFDF A            LI,4     -33               GET BUFFER INDEX
     2493   01 008B8    32E01425              LW,14    ='XXXX'           GET CHAR XXXX
     2494   01 008B9    35E813DA              STW,14   BUFFER1+33,4      STORE IN BUFFER1
     2495   01 008BA    654008B9              BIR,4    %-1               LOOP TILL BUFFER COMPLETE
     2496   01 008BB    22E00085 A            LI,14    133               GET BYTE COUNT = 133
     2497   01 008BC    38E0090C              SW,14    TST1INDX          SUBTRACT X BYTE COUNT
     2498   01 008BD    55E20E0F              STH,14   IOCD30+1,1        STORE BYTE COUNT
     2499   01 008BE    32E00E08              LW,14    IOCD28            GET BUFFER ADDR
     2500   01 008BF    30E0090C              AW,14    TST1INDX          CALCULATE BUFFER ADDR
     2501   01 008C0    35E00E0E              STW,14   IOCD30            STORE BUFFER ADDR
     2502   01 008C1    32E0090C     T22M01   LW,14    TST1INDX          GET BYTE COUNT
     2503   01 008C2    55E20E09              STH,14   IOCD28+1,1        STORE BYTE COUNT IN IOCD
     2504   01 008C3    22000704     T22M08   LI,0     DA(IOCD28)        LOAD IOCD ADDR
     2505   01 008C4    6AF00E82              BAL,15   :SIO              ISSUE SIO
     2506   01 008C5    F000C000 A            DATA     X'F000C000'       MASK
     2507   01 008C6    10000000 A            DATA     X'10000000'       EXPECTED STATUS
     2508   01 008C7    680008CB              B        T22M03            NO ERRORS
     2509                            *ERROR 2201
     2510   01 008C8    EAF01386              BAL,15   *:ERROR
     2511   01 008C9    00000899 A            DATA     2201              #2201
     2512   01 008CA    680008EB              B        T22M10
     2513   01 008CB    224F3CB0 A   T22M03   LI,4     -50000
     2514   01 008CC    654008CC              BIR,4    %                 DELAY
     2515   01 008CD    6AF010A1              BAL,15   :ERRORT           TEST IO STATUS
     2516   01 008CE    00002418              DATA     BA(T22SEQ1)
     2517   01 008CF    680008D3              B        T22M04            NO ERRORS
     2518                            *ERROR 2202
     2519   01 008D0    EAF01386              BAL,15   *:ERROR
     2520   01 008D1    0000089A A            DATA     2202              #2202
     2521   01 008D2    680008EB              B        T22M10
     2522   01 008D3    22E00707     T22M04   LI,14    DA(IOCD30)        GET IOCD ADDR
     2523   01 008D4    30E0141D              AW,14    =X'08000000'      SET IOP HALT FLAG
     2524   01 008D5    35E00E0A              STW,14   IOCD28+2          STORE IN IOCD
     2525   01 008D6    22000704              LI,0     DA(IOCD28)        LOAD IOCD ADDR
     2526   01 008D7    6AF00E82              BAL,15   :SIO              ISSUE SIO
     2527   01 008D8    F000C000 A            DATA     X'F000C000'       MASK
     2528   01 008D9    10000000 A            DATA     X'10000000'       EXPECTED STATUS
     2529   01 008DA    680008DE              B        T22M05            NO ERRORS
     2530                            *ERROR 2203
     2531   01 008DB    EAF01386              BAL,15   *:ERROR
     2532   01 008DC    0000089B A            DATA     2203              #2203
     2533   01 008DD    680008EF              B        T22M11
     2534   01 008DE    224F3CB0 A   T22M05   LI,4     -50000
     2535   01 008DF    654008DF              BIR,4    %                 DELAY
     2536   01 008E0    6AF010A1              BAL,15   :ERRORT           TEST IO STATUS
     2537   01 008E1    00002420              DATA     BA(T22SEQ2)
     2538   01 008E2    680008E6              B        T22M06            NO ERRORS
     2539                            *ERROR 2204
     2540   01 008E3    EAF01386              BAL,15   *:ERROR
     2541   01 008E4    0000089C A            DATA     2204              #2204
     2542   01 008E5    680008EF              B        T22M11
     2543   01 008E6    3310090C     T22M06   MTW,1    TST1INDX          INCR INDEX
     2544   01 008E7    32E0090C              LW,14    TST1INDX          GET INDEX
     2545   01 008E8    21E00008 A            CI,14    8                 HAS 8 BYTE TESTED
     2546   01 008E9    682008B4              BLE      T22M07            NO DO NEXT BYTE
     2547   01 008EA    680008F3              B        T22M12
     2548   01 008EB    EAF0138D     T22M10   BAL,15   *:SENSE
     2549   01 008EC    2E0008EC              WAIT     %
     2550   01 008ED    680008C3              B        T22M08            LOOP
     2551   01 008EE    680008D3              B        T22M04            CONTINUE
     2552   01 008EF    EAF0138D     T22M11   BAL,15   *:SENSE
     2553   01 008F0    2E0008F0              WAIT     %
     2554   01 008F1    680008D3              B        T22M04            LOOP
     2555   01 008F2    680008E6              B        T22M06            CONTINUE
     2556   01 008F3    22E00040 A   T22M12   LI,14    X'40'             GET BLANK CHAR
     2557   01 008F4    75E608FB              STB,14   T22MSG,3          STORE BLANK CHAR
     2558   01 008F5    32E01421              LW,14    ='END '           GET 'END ' CHARS
     2559   01 008F6    35E008FC              STW,14   T22MSG+1          STORE IN MSG
     2560   01 008F7    2200070A              LI,0     DA(IOCD33)        GET IOCD ADDR
     2561   01 008F8    6AF012C5              BAL,15   EXECUTE           PRINT ERROR MSG
     2562   01 008F9    680004CF              B        EXIT              EXIT
     2563   01 008FA    680008B1              B        T22M09            ERRORS
     2564   01 008FB    40404040 A   T22MSG   DATA     X'40404040'
     2565   01 008FC    E3C1D9E3 A            TEXT     'TART OF IOP HALT/INHIBIT UPSPACE TEST'
            01 008FD    40D6C640 A
            01 008FE    C9D6D740 A
            01 008FF    C8C1D3E3 A
            01 00900    61C9D5C8 A
            01 00901    C9C2C9E3 A
            01 00902    40E4D7E2 A
            01 00903    D7C1C3C5 A
            01 00904    40E3C5E2 A
            01 00905    E3404040 A
     2566   01 00906    1B1C2E41 A   T22SEQ1  :TSEQ    TIOT3,TIOT4,OSBT6,TDVF1,TDVT2
            01 00907    4A000000 A
     2567   01 00908    1B142641 A   T22SEQ2  :TSEQ    TIOT3,TIOF4,OSBF6,TDVF1,TDVF2
            01 00909    42000000 A
     2568                            *
     2569                            *
     2570                                     BOUND    8
     2571   01 0090A    0000000B A   TST1MINT DATA     X'B'              MIN TIME
     2572   01 0090B    0000006A A   TST1MAXT DATA     X'6A'             MAXIMUM TIME
     2573   01 0090C    00000000 A   TST1INDX DATA     0
     2574   01 0090D    00000000 A   TST1EXP  DATA     0
     2575   01 0090E    00000000 A   TST1IND1 DATA     0
     2576   01 0090F    00000000 A   TST1ERR  DATA     0
     2577   01 00910    00000000 A   TST1PATN DATA     0
     2578   01 00911    0000000F A   MAXCHAN  DATA     15
     2579   01 00912    00000050 A   DELYTM   DATA     X'50'
     2580   01 00913    00000145 A   DELYTMP  DATA     325
     2581   01 00914    0000000D A   DELYTMSP DATA     13
     2582   01 00915    00000145 A   DELYTMF  DATA     325
     2583   01 00916    00000145 A   DELYTMPF DATA     325
     2584   01 00917    00000190 A   DELYTMS  DATA     400
     2585   01 00918    00000023 A   DELAYTM2 DATA     35
     2586   01 00919    00000014 A   DELAYTMS DATA     20
     2587   01 0091A    00000064 A   DELAYTMP DATA     100
     2588   01 0091B    0000001E A   DELAYS   DATA     30
     2589   01 0091C    000000C8 A   DELAYSP  DATA     200
     2590   01 0091D    00000000 A   TST1FLGM DATA     0
     2591   01 0091E    00000000 A   TST1SAVE DATA     0
     2592   01 0091F    00000000 A   TSTP1    DATA     0
     2593   01 00920    00000000 A   EXECERR1 DATA     0
     2594   01 00921    00000000 A   TST1FLAG DATA     0
     2595   01 00922    00000020 A   LINECNT  DATA     32,32,132,36,263
            01 00923    00000020 A
            01 00924    00000084 A
            01 00925    00000024 A
            01 00926    00000107 A
     2596   01 00927    00000000 A   TMBYTE1  DATA     0
     2597   01 00928    00000000 A   TMBYTE2  DATA     0
     2598   01 00929    00000000 A   TMBYTE3  DATA     0
     2599   01 0092A    00000000 A   FORMAT1  DATA     0
     2600   01 0092B    00000000 A   BYTECNT  DATA     0
     2601   01 0092C    17C9D6C3 A   TST1MSG1 TEXTC    'IOCD BYTE CNT =     XXX'
            01 0092D    C440C2E8 A
            01 0092E    E3C540C3 A
            01 0092F    D5E3407E A
            01 00930    40404040 A
            01 00931    40E7E7E7 A
     2602   01 00932    1DC1C4C4 A   TST1MSG2 TEXTC    'ADDR COUNTER   EXP XX  OSB XX'
            01 00933    D940C3D6 A
            01 00934    E4D5E3C5 A
            01 00935    D9404040 A
            01 00936    C5E7D740 A
            01 00937    E7E74040 A
            01 00938    D6E2C240 A
            01 00939    E7E74040 A
     2603   01 0093A    23C6D6D9 A   TST1MSG3 TEXTC    'FORMAT REG ERROR:    EXP XX  OSB XX'
            01 0093B    D4C1E340 A
            01 0093C    D9C5C740 A
            01 0093D    C5D9D9D6 A
            01 0093E    D97A4040 A
            01 0093F    4040C5E7 A
            01 00940    D740E7E7 A
            01 00941    4040D6E2 A
            01 00942    C240E7E7 A
     2604   01 00943    1AE2E4C2 A   TST1MSG4 TEXTC    'SUBTEST  XX NOT APPLICABLE'
            01 00944    E3C5E2E3 A
            01 00945    4040E7E7 A
            01 00946    40D5D6E3 A
            01 00947    40C1D7D7 A
            01 00948    D3C9C3C1 A
            01 00949    C2D3C540 A
     2605   01 0094A    13C3D6D3 A   T14MSG   TEXTC    'COLUMN ERROR   XXXX'
            01 0094B    E4D4D540 A
            01 0094C    C5D9D9D6 A
            01 0094D    D9404040 A
            01 0094E    E7E7E7E7 A
1 C00   21:10 JUN 20,'83    TELEFILE LINE PRINTER DIAGNOSTIC 960-0607-H02                         PAGE   26
A    2607                            *                                                                      *
     2608                            *        *** TST2 - RANDOM EXERCISER ***                               *
     2609                            *                                                                      *
     2610                            * THIS DIRECTIVE ALLOWS THE USER TO RANDOMLY EXERCISE THE LINE         *
     2611                            * PRINTER.                                                             *
     2612                            *                                                                      *
     2613                            *   P1 =  CYCLE COUNT                                                  *
     2614                            *         (0 < P1 <= 99999)                                            *
     2615                            *                                                                      *
     2616                            * P1 ALLOWS THE USER TO TERMINATE THE TEST AFTER A FIXED NUMBER OF     *
     2617                            * CYCLES HAVE BEEN PERFORMED.                                          *
     2618                            *                                                                      *
     2619                            *                                                                      *
     2620                            * TEST VARIATIONS                                                      *
     2621                            * ---------------                                                      *
     2622                            *   NONE                                                               *
     2623                            *                                                                      *
     2624   01 0094F    35200432     TST2     STW,2    TSTFLAG           SET FLAG
     2625   01 00950    32500201              LW,5     :P1               TEST INPUT
     2626   01 00951    2151869F A            CI,5     99999                 PARAMETER P1 (CYCLE COUNT)
     2627   01 00952    68200957              BLE      %+5               B: P1 VALID
     2628   01 00953    3510030A              STW,1    :PIT10            PARAMETER IN ERROR: P1 > 99999
     2629   01 00954    EAF00229              BAL,15   *:PREPORT         REPORT PAR. ERROR
     2630   01 00955    00000324              DATA     :DIC+4            'TST2'
     2631   01 00956    E8000214              B        *:MONITOR         EXIT
     2632                            *
     2633   01 00957    32500201     TST2ALT  LW,5     :P1               CYCLE COUNT
     2634   01 00958    68300953              BEZ      %-5               B: P1 EQUAL TO ZERO
     2635   01 00959    35500A63              STW,5    T2CCOUNT          SAVE CYCLE COUNT
     2636   01 0095A    352013A3              STW,2    ITHTEST           SET INTER/TRAP
     2637   01 0095B    2240138F              LI,4     ITHDLR
     2638   01 0095C    3540030F              STW,4    :PIT15            INVOKE HDLR
     2639   01 0095D    22400957              LI,4     TST2ALT
     2640   01 0095E    354013A5              STW,4    ITHRST            TEST RESTART ADDRESS
     2641   01 0095F    6AF00968              BAL,15   T2EXEC            EXECUTE RANDOM EXERCISER
     2642   01 00960    33F00A63              MTW,-1   T2CCOUNT          DECREMENT CYCLE COUNT
     2643   01 00961    6920095F              BGZ      %-2               B:     LOOP TILL CYCLE COUNT = 0
     2644   01 00962    31200432              CW,2     TSTFLAG           IS IT TST2
     2645   01 00963    6930042E              BNE      TST0B             B: NO, TST0
     2646                            *
     2647   01 00964    EAF0138D              BAL,15   *:SENSE           TEST SENSE SW 1,3
     2648   01 00965    2E000965              WAIT     %                 WAIT
     2649   01 00966    68000957              B        TST2ALT           LOOP
     2650   01 00967    E8000214              B        *:MONITOR         EXIT
     2651                            *
     2652                            *                                                                      *
     2653                            *        *** T2EXEC - EXECUTE RANDOM EXERCISE ***                      *
     2654                            *                                                                      *
     2655                            * THIS CALLS UPON A SET OF MODULES THAT PRINT SPECIFIC PATTERNS        *
     2656                            *                                                                      *
     2657   01 00968    35F00A60     T2EXEC   STW,15   T2EXRTN           SAVE RETURN
     2658   01 00969    22E000F1 A            LI,14    X'F1'             FETCH FORMAT
     2659   01 0096A    75E00E18              STB,14   FORMAT            SAVE
     2660   01 0096B    220006DF              LI,0     DA(IOCD1)         LOAD IOCD
     2661   01 0096C    6AF012C5              BAL,15   EXECUTE           SKIP TO TOP OF PAGE
     2662   01 0096D    6800096E              B        %+1
     2663   01 0096E    22E029B8              LI,14    BA(TST2MSG)       MESSAGE BYTE ADDRESS
     2664   01 0096F    55E20DD0              STH,14   IOCD8,1           STORE IN IOCD
     2665   01 00970    22E00010 A            LI,14    16                FETCH BYTE COUNT
     2666   01 00971    55E20DD1              STH,14   IOCD8+1,1         STORE IN IOCD
     2667   01 00972    220006E8              LI,0     DA(IOCD8)         LOAD IOCD
     2668   01 00973    6AF012C5              BAL,15   EXECUTE           PRINT HEADER MESSAGE
     2669   01 00974    68000975              B        %+1
     2670   01 00975    6AF0131B              BAL,15   PRINTPOS          PRINT CHAR POSITION
     2671   01 00976    35100A62              STW,1    T2MODN            SAVE RANDOM MODULE INDEX
     2672   01 00977    6AF00980     T2EXEC01 BAL,15   T2MOD0            SPACE N LINES
     2673   01 00978    32400A62              LW,4     T2MODN            RANDOM MODULE
     2674   01 00979    32E80A57              LW,14    T2MODX,4              ADDRESS
     2675   01 0097A    EAF0000E A            BAL,15   *14               EXECUTE RANDOM MODULE
     2676   01 0097B    33100A62              MTW,1    T2MODN            INCREMENT RANDOM MODULE INDEX
     2677   01 0097C    32E00A62              LW,14    T2MODN            RANDOM MODULE INDEX
     2678   01 0097D    21E00005 A            CI,14    5                 HAS IT RAN ALL  5 RANDOM MODULE
     2679   01 0097E    68200977              BLE      T2EXEC01          B: NO, LOOP TILL TEST COMPLETE
     2680   01 0097F    E8000A60              B        *T2EXRTN          EXIT
     2681                            *
     2682                            *                                                                      *
     2683                            *        *** T2MOD0 - SPACE N LINES ***                                *
     2684                            *                                                                      *
     2685                            * THIS SPACES N LINES WHERE THE RANDOM NUMBER : 2 <= N =< 6            *
     2686                            *                                                                      *
     2687   01 00980    35F00A5F     T2MOD0   STW,15   TST2RTN           SAVE RETURN ADDRESS
     2688   01 00981    6AF01298              BAL,15   :RANDOMX          FETCH RANDOM NUMBER
     2689   01 00982    3290000E A            LW,9     14                CALCULATE
     2690   01 00983    22800000 A            LI,8     0                     BASE 5
     2691   01 00984    36801426              DW,8     =5                    RANDOM NUMBER
     2692   01 00985    208000C2 A            AI,8     X'C2'             CONVERT TO SPACE N LINE FORMAT CHAR
     2693   01 00986    75800E18              STB,8    FORMAT            SAVE
     2694   01 00987    220006DF              LI,0     DA(IOCD1)         LOAD IOCD
     2695   01 00988    6AF012C5              BAL,15   EXECUTE           SPACE N LINES
     2696   01 00989    6800098A              B        %+1
     2697   01 0098A    E8000A5F              B        *TST2RTN          EXIT
     2698                            *
     2699                            *                                                                      *
     2700                            *        *** T2MOD1 - FIXED PATTERN (INHIBIT UPSPACE) ***              *
     2701                            *                                                                      *
     2702                            * RANDOM CHARACTER PRINTED AT RANDOM POSITIONS (WITH UPSPACE INHIBIT)  *
     2703                            * UNTILL ALL POSITIONS PRINTED. AUTOMATIC UPSPACE WITH FINAL PRINT.    *
     2704                            * PRINT 40 LINES.                                                      *
     2705                            *                                                                      *
     2706   01 0098B    35F00A5F     T2MOD1   STW,15   TST2RTN           SAVE RETURN ADDRESS
     2707   01 0098C    22E000E0 A            LI,14    X'E0'             INHIBIT UPSPACE FORMAT
     2708   01 0098D    75E00E18              STB,14   FORMAT            SAVE
     2709   01 0098E    22EFFFEC A            LI,14    -20               PRINT WITH AUTOMATIC UPSPACE INDEX
     2710   01 0098F    35E00A64              STW,14   TST2LOOP          SAVE
     2711   01 00990    22E00000 A   T2MOD101 LI,14    0                 INITIALIZE LOWER LIMIT  OF PRINT
     2712   01 00991    22F0002B A            LI,15    43                INITIALIZE UPPER LIMIT OF PRINT
     2713   01 00992    15E00A66              STD,14   TST2X1            SAVE
     2714   01 00993    22EFFFFA A            LI,14    -6                 PRINT WITH INHIBIT UPSPACE INDEX
     2715   01 00994    35E00A65              STW,14   TST2LINE          SAVE
     2716                            *                             BUILD RANDOM PATTERN INTO BUFFER1
     2717   01 00995    224FFF7C A            LI,4     -132              BUFFER INDEX
     2718   01 00996    6AF012A8     T2MOD102 BAL,15   RANDOMC           FETCH VALID CHARACTER
     2719   01 00997    21E0003F A            CI,14    X'3F'             IS IT BLANK CHARACTER
     2720   01 00998    68400996              BCR,4    %-2               B: YES
     2721   01 00999    75E813DA              STB,14   BUFFER1+33,4      STORE IN BUFFER1
     2722   01 0099A    65400996              BIR,4    T2MOD102          B: LOOP TILL BUF FILLED
     2723                            *                             CLEAR BUFFER2 TO X'40' BYTES
     2724   01 0099B    224FFFDF A   T2MOD103 LI,4     -33               BUFFER INDEX
     2725   01 0099C    32E00E19              LW,14    CHARBLNK          BLANK CHARACTERS
     2726   01 0099D    35E813FB              STW,14   BUFFER2+33,4      STORE IN BUFFER2
     2727   01 0099E    6540099D              BIR,4    %-1               B: LOOP TILL BUFFER FILLED WITH BLNK
     2728   01 0099F    224FFF7C A            LI,4     -132              BUFFER INDEX
     2729   01 009A0    72E813DA     T2MOD104 LB,14    BUFFER1+33,4      CHARACTER
     2730   01 009A1    19E00A66              CLM,14   TST2X1            TEST FOR CHAR UPPER LIMITS
     2731   01 009A2    699009A4              BCS,9    T2MOD105          CHAR ALREADY PRINTED
     2732   01 009A3    75E813FB              STB,14   BUFFER2+33,4      STORE IN BUFFER2
     2733   01 009A4    654009A0     T2MOD105 BIR,4    T2MOD104          B: LOOP TILL ENTIRE BUFFER  SCANNED
     2734   01 009A5    33100A65              MTW,1    TST2LINE          INCREMENT INHIBIT UPSPACE INDEX
     2735   01 009A6    681009AE              BGEZ     T2MOD106          B: AUTOMATIC UPSPACE
     2736   01 009A7    220006E0              LI,0     DA(IOCD2)         LOAD IOCD
     2737   01 009A8    6AF012B1              BAL,15   EXECUTEX          PRINT W INHIBIT UPSPACE
     2738   01 009A9    680009AA              B        %+1
     2739   01 009AA    22E0002C A            LI,14    44                NEXT RANDOM NUMBER RANGE
     2740   01 009AB    66E00A66              AWM,14   TST2X1            NEW LOWER LIMITS OFCHARACTERS
     2741   01 009AC    66E00A67              AWM,14   TST2X2            NEW UPPER LIMITS OFCHARACTERS
     2742   01 009AD    6800099B              B        T2MOD103          REPEAT SCANNING BUFFER
     2743   01 009AE    220006E2     T2MOD106 LI,0     DA(IOCD3)         LOAD IOCD
     2744   01 009AF    6AF012B1              BAL,15   EXECUTEX          PRINT W AUTOMATIC UPSPACE
     2745   01 009B0    680009B1              B        %+1
     2746   01 009B1    22E04EE4              LI,14    BA(BUFFER1)       BUFFER1 BYTE ADDRESS
     2747   01 009B2    55E20DC6              STH,14   IOCD4,1           SAVE IN IOCD
     2748   01 009B3    220006E3              LI,0     DA(IOCD4)         LOAD IOCD
     2749   01 009B4    6AF012B1              BAL,15   EXECUTEX          PRINT 2ND LINE
     2750   01 009B5    680009B6              B        %+1
     2751   01 009B6    33100A64              MTW,1    TST2LOOP          INCREMENT PRINT WITH UPSPACE INDEX
     2752   01 009B7    69100990              BLZ      T2MOD101          B: REPEAT IN NEW LINE
     2753   01 009B8    E8000A5F              B        *TST2RTN          EXIT
     2754                            *
     2755                            *                                                                      *
     2756                            *        *** T2MOD2 - BLOCK SHIFTING (LINE CONSTANT) ***               *
     2757                            *                                                                      *
     2758                            * PATTERN OF 4 BLOCKS (10 LINES X 4 CHARACTERS) OF RANDOM CHARACTERS   *
     2759                            * SHIFTED FROM ONE SIDE OF PAGE TO THE OTHER. EACH LINE CONTAINS THE   *
     2760                            * SAME CHARACTER.                                                      *
     2761                            *                                                                      *
     2762   01 009B9    35F00A5F     T2MOD2   STW,15   TST2RTN           SAVE RETURN ADDRESS
     2763   01 009BA    22E000C1 A            LI,14    X'C1'             SPACE 1 LINE PRINT FORMAT
     2764   01 009BB    75E00E18              STB,14   FORMAT            SAVE
     2765   01 009BC    22EFFFC8 A            LI,14    -56               MARCHING INDEX
     2766   01 009BD    35E00A64              STW,14   TST2LOOP          SAVE
     2767   01 009BE    22E04F68              LI,14    BA(BUFFER2)       BUFFER2 BYTE ADDRESS
     2768   01 009BF    55E20DC6              STH,14   IOCD4,1           SAVE IN IOCD
     2769                            *                             CLEAR BUFFER1 AND BUFFER2 WITH BLANKS
     2770   01 009C0    224FFFDF A            LI,4     -33               BUFFER INDEX
     2771   01 009C1    32E00E19              LW,14    CHARBLNK          BLANK CHARACTERS
     2772   01 009C2    35E813DA              STW,14   BUFFER1+33,4      STORE IN BUFFER1
     2773   01 009C3    35E813FB              STW,14   BUFFER2+33,4      STORE IN BUFFER2
     2774   01 009C4    654009C2              BIR,4    %-2               B: LOOP TILL BUFFERS FILLED
     2775   01 009C5    22EFFFF6 A   T2MOD201 LI,14    -10                PRINT LINE INDEX
     2776   01 009C6    35E00A65              STW,14   TST2LINE          SAVE
     2777                            *                             BUILD PATTERN OF 4 4-CHAR OF RANDOM CHAR.
     2778   01 009C7    6AF012A8              BAL,15   RANDOMC           FETCH VALID CHARACTER
     2779   01 009C8    21E0003F A            CI,14    X'3F'             iS IT BLANK CHARACTER
     2780   01 009C9    684009C7              BCR,4    %-2               B: YES
     2781   01 009CA    75E4000E A            STB,14   14,2              SAVE TWO CHAR OF SAME RANDOM CHAR
     2782   01 009CB    22400000 A            LI,4     0                 RESET BUFFER INDEX
     2783   01 009CC    55E813DA              STH,14   BUFFER2,4
     2784   01 009CD    20400001 A            AI,4     1                 STORE RANDOM CHARACTER
     2785   01 009CE    55E813DA              STH,14   BUFFER2,4             IN BUFFER2
     2786   01 009CF    20400002 A            AI,4     2                 INCREMENT BUFFER INDEX
     2787   01 009D0    2140000C A            CI,4     12                HAS BUILD PATTERN COMPLETE
     2788   01 009D1    691009CC              BL       %-5               B: NO, LOOP TILL BUILD PATTERN COMPL
     2789                            *
     2790   01 009D2    220006E3              LI,0     DA(IOCD4)         LOAD IOCD
     2791   01 009D3    6AF012B1              BAL,15   EXECUTEX          PRINT PATTERN OF 4 4-CHARACTER
     2792   01 009D4    680009D5              B        %+1
     2793   01 009D5    33100A65              MTW,1    TST2LINE          INCREMENT PRINT LINE INDEX
     2794   01 009D6    691009C7              BLZ      T2MOD201+2        B: REPEAT WITH NEW RANDOM CHARACTER
     2795   01 009D7    33100A64              MTW,1    TST2LOOP          INCREMENT MARCHING INDEX
     2796   01 009D8    E8100A5F              BGEZ     *TST2RTN          B: EXIT
     2797   01 009D9    220006DF              LI,0     DA(IOCD1)         LOAD IOCD
     2798   01 009DA    6AF012C5              BAL,15   EXECUTE           SPACE 1 LINE
     2799   01 009DB    680009DC              B        %+1
     2800   01 009DC    33E00DC6              MTW,-2   IOCD4             DECREMENT IOCD BYTE ADDRESS
     2801   01 009DD    680009C5              B        T2MOD201          REPEAT NEXT GROUP OF 4 BLOCKS
     2802                            *                                                                      *
     2803                            *        *** T2MOD3 - BLOCK SHIFTING (BLOCK CONSTANT) ***              *
     2804                            * PATTERN OF 4 BLOCKS (4 LINES X 10 CHARACTERS) OF RANDOM CHARACTERS   *
     2805                            * SHIFTED FROM ONE SIDE OF PAGE TO THE OTHER. EACH BLOCK CONTAINS THE  *
     2806                            * SAME CHARACTER.                                                      *
     2807                            *                                                                      *
     2808   01 009DE    35F00A5F     T2MOD3   STW,15   TST2RTN           SAVE RETURN ADDRESS
     2809   01 009DF    22E000C1 A            LI,14    X'C1'             SPACE 1 LINE PRINT FORMAT
     2810   01 009E0    75E00E18              STB,14   FORMAT            SAVE
     2811                            *                             CLEAR BUFFER1 AND BUFFER2 WITH BLANKS
     2812   01 009E1    224FFFDF A            LI,4     -33               BUFFER INDEX
     2813   01 009E2    32E00E19              LW,14    CHARBLNK          BLANK CHARACTERS
     2814   01 009E3    35E813DA              STW,14   BUFFER1+33,4      STORE IN BUFFER1
     2815   01 009E4    35E813FB              STW,14   BUFFER2+33,4      STORE IN BUFFER2
     2816   01 009E5    654009E3              BIR,4    %-2               B: LOOP TILL BUFFERS FILLED
     2817   01 009E6    22EFFFD4 A            LI,14    -44               MARCHING INDEX
     2818   01 009E7    35E00A64              STW,14   TST2LOOP          SAVE
     2819   01 009E8    22E04F68              LI,14    BA(BUFFER2)       BUFFER2 BYTE ADDRESS
     2820   01 009E9    55E20DC6              STH,14   IOCD4,1           SAVE IN IOCD
     2821   01 009EA    22EFFFFC A   T2MOD301 LI,14    -4                 PRINT LINE INDEX
     2822   01 009EB    35E00A65              STW,14   TST2LINE          SAVE
     2823                            *                             BUILD PATTERN OF 4 10-CHAR  RANDOM CHAR
     2824   01 009EC    22400000 A   T2MOD302 LI,4     0                 RESET BUFFER INDEX
     2825   01 009ED    6AF012A8              BAL,15   RANDOMC           FETCH VALID CHARACTER
     2826   01 009EE    21E0003F A            CI,14    X'3F'             iS IT BLANK CHARACTER
     2827   01 009EF    684009ED              BCR,4    %-2               B: YES
     2828   01 009F0    75E4000E A            STB,14   14,2              SAVE TWO CHAR OF SAME RANDOM CHAR
     2829   01 009F1    225FFFFB A            LI,5     -5                CHARACTERS INDEX
     2830   01 009F2    55E813DA              STH,14   BUFFER2,4         STORE RANDOM CHARACTERS IN BUFFER2
     2831   01 009F3    33100004 A            MTW,1    4                 INCREMENT BUFFER INDEX
     2832   01 009F4    655009F2              BIR,5    %-2               B: LOOP TILL STORED 10 CHARACTERS
     2833   01 009F5    21400017 A            CI,4     23                HAS BUILDING PATTERN COMPLETE
     2834   01 009F6    681009F9              BGE      T2MOD303          B: BUILDING PATTERN COMPLETED
     2835   01 009F7    20400001 A            AI,4     1                 INCREMENT BUFFER INDEX
     2836   01 009F8    680009ED              B        T2MOD302+1        REPEAT NEXT 10 CHARACTERS
     2837                            *
     2838   01 009F9    220006E3     T2MOD303 LI,0     DA(IOCD4)         LOAD IOCD
     2839   01 009FA    6AF012B1              BAL,15   EXECUTEX          PRINT PATTERN OF 4 10-CHAR
     2840   01 009FB    680009FC              B        %+1
     2841   01 009FC    33100A65              MTW,1    TST2LINE          INCREMENT PRINT LINE INDEX
     2842   01 009FD    691009F9              BLZ      T2MOD303          B: REPEAT NEXT LINE
     2843   01 009FE    33100A64              MTW,1    TST2LOOP          INCREMENT MARCHING INDEX
     2844   01 009FF    E8100A5F              BGEZ     *TST2RTN          B: EXIT
     2845   01 00A00    220006DF              LI,0     DA(IOCD1)         LOAD IOCD
     2846   01 00A01    6AF012C5              BAL,15   EXECUTE           SPACE 1 LINE
     2847   01 00A02    68000A03              B        %+1
     2848   01 00A03    33E00DC6              MTW,-2   IOCD4             DECREMENT IOCD BYTE ADDRESS
     2849   01 00A04    680009EA              B        T2MOD301          REPEAT NEXT GROUP OF 4 BLOCKS
     2850                            *
     2851                            *                                                                      *
     2852                            *        *** T2MOD4 - VARIABLE LOADING ***                             *
     2853                            *                                                                      *
     2854                            * VARIABLE LOADING PATTERN CONSISTS OF COMBINATIONS OF PRINT DRUM      *
     2855                            * CONTIGUOUS CHARACTERS TAKEN 2 AT A TIME, 4 AT A TIME AND 8 AT A      *
     2856                            * TIME. TEST REPEATED USING CHARACTERS SPACED NON-CONTIGUOUSLY.        *
     2857                            *                                                                      *
     2858   01 00A05    35F00A5F     T2MOD4   STW,15   TST2RTN           SAVE RETURN ADDRESS
     2859   01 00A06    22E000C1 A            LI,14    X'C1'             SPACE 1 LINE FORMAT
     2860   01 00A07    75E00E18              STB,14   FORMAT            SAVE
     2861   01 00A08    22E00000 A            LI,14    0                 RESET NON-CONTIGUOUSLY CHARACTER
     2862   01 00A09    35E00A66              STW,14   TST2X1                FLAG, SAVE
     2863   01 00A0A    35300A64              STW,3    TST2LOOP          BLOCK COUNT
     2864   01 00A0B    22EFFFF8 A   T2MOD401 LI,14    -8                LINE COUNT
     2865   01 00A0C    35E00A65              STW,14   TST2LINE          SAVE
     2866   01 00A0D    6AF00A1C              BAL,15   T2MOD402          BUILD PATTERN
     2867   01 00A0E    220006E2              LI,0     DA(IOCD3)         LOAD IOCD
     2868   01 00A0F    6AF012B1              BAL,15   EXECUTEX          PRINT A LINE
     2869   01 00A10    68000A11              B        %+1
     2870   01 00A11    33100A65              MTW,1    TST2LINE          INCREMENT LINE COUNT
     2871   01 00A12    69100A0D              BLZ      T2MOD401+2        B: BUILD NEXT PATTERN AND PRINT
     2872   01 00A13    220006DF              LI,0     DA(IOCD1)         LOAD IOCD
     2873   01 00A14    6AF012C5              BAL,15   EXECUTE           SPACE 1 LINE
     2874   01 00A15    68000A16              B        %+1
     2875   01 00A16    33F00A64              MTW,-1   TST2LOOP          DECREMENT LOOP COUNT
     2876   01 00A17    69200A0B              BGZ      T2MOD401          B: REPEAT USING DIFFERENT GROUP PATN
     2877   01 00A18    31100A66              CW,1     TST2X1            HAS NON-CONTIGUOUSLY CHAR FLAG SET
     2878   01 00A19    E8300A5F              BE       *TST2RTN          B: YES, EXIT
     2879   01 00A1A    35100A66              STW,1    TST2X1            SET NON-CONTIGUOUSLY CHAR FLAG
     2880   01 00A1B    68000A0A              B        T2MOD401-1        REPEAT USING NON-CONTIGUOUSLY CHAR
     2881                            *                             BUILD PATTERN
     2882   01 00A1C    35F00A61     T2MOD402 STW,15   T2MODRTN          SAVE RETURN ADDRESS
     2883   01 00A1D    31100A66              CW,1     TST2X1            IS IT FOR NON-CONTIGUOUSLY CHARACTER
     2884   01 00A1E    68300A29              BE       T2MOD403          B: YES
     2885                            *                             FETCH ANY 8 CONTIGUOUS   CHARACTER
     2886   01 00A1F    224FFFF8 A            LI,4     -8                8 CHARCTER INDEX
     2887   01 00A20    6AF01298              BAL,15   :RANDOMX          FETCH RANDOM VALID CHARACTER
     2888   01 00A21    4BE01427              AND,14   =X'7F'            MASK
     2889   01 00A22    3260000E A            LW,6     14                SAVE IN INDEX REG
     2890   01 00A23    F2EC0CC5     T2MOD409 LB,14    *CHARTBLX,6       FETCH CHAR
     2891   01 00A24    75E80A6A              STB,14   T2MODPAT+2,4      SAVE
     2892   01 00A25    33100006 A            MTW,1    6                 INCREMENT INDEX FOR NEXT CONTIGUOUS
     2893   01 00A26    4B601427              AND,6    =X'7F'            MASK
     2894   01 00A27    65400A23              BIR,4    T2MOD409          B: FETCH NEXT CONTIGUOUS CHAR
     2895   01 00A28    68000A2F              B        T2MOD404
     2896                            *                             FETCH ANY 8 NON-CONTIGUOUSLY CHARACTER
     2897   01 00A29    22400000 A   T2MOD403 LI,4     0                 RESET INDEX
     2898   01 00A2A    6AF012A8     T2MOD411 BAL,15   RANDOMC           FETCH RANDOM CHARACTER
     2899   01 00A2B    75E80A68              STB,14   T2MODPAT,4        STORE CHARACTER
     2900   01 00A2C    33100004 A            MTW,1    4                 INCR INDEX
     2901   01 00A2D    21400008 A            CI,4     8                 HAS 8 CHARACTERS STORED
     2902   01 00A2E    69100A2A              BL       T2MOD411          B: NO
     2903                            *                             BUILD CHARACTER  FIELDS INTO BUFFER2
     2904   01 00A2F    226FFFF8 A   T2MOD404 LI,6     -8                INDEX
     2905   01 00A30    72EC0A6A              LB,14    T2MODPAT+2,6      FETCH CHARACTER
     2906   01 00A31    21E01428              CI,14    =X'3F'            IS IT A BLANK CHAR
     2907   01 00A32    68400A35              BCR,4    T2MOD405          B: YES
     2908   01 00A33    65600A30              BIR,6    T2MOD404+1        B: LOOP TILL ALL CHAR TESTED FOR BLK
     2909   01 00A34    68000A38              B        T2MOD406
     2910   01 00A35    6AF012A8     T2MOD405 BAL,15   RANDOMC           FETCH RANDOM CHARACTER
     2911   01 00A36    75EC0A6A              STB,14   T2MODPAT+2,6      SAVE RANDOM CHAR
     2912   01 00A37    68000A30              B        T2MOD404+1
     2913   01 00A38    22400000 A   T2MOD406 LI,4     0                 RESET BUFFER INDEX
     2914   01 00A39    22EFFFFC A            LI,14    -4
     2915   01 00A3A    31E00A65              CW,14    TST2LINE          OFFSET CHAR FIELD?
     2916   01 00A3B    68200A44              BLE      T2MOD408          B: YES,OFFSET CHAR FIELD
     2917   01 00A3C    32600A64     T2MOD407 LW,6     TST2LOOP          FETCH BLOCK COUNT
     2918   01 00A3D    325C0A6A              LW,5     T2MODIND,6        FETCH CHARACTER FIELD INDEX
     2919   01 00A3E    52EA0A6A              LH,14    T2MODPAT+2,5      FETCH TWO CHARACTERS
     2920   01 00A3F    55E813DA              STH,14   BUFFER2,4         STORE IN BUFFER2
     2921   01 00A40    33100004 A            MTW,1    4                 INCREMENT BUFFER INDEX
     2922   01 00A41    21400042 A            CI,4     66                HAS BUFFER FILLED
     2923   01 00A42    E8100A61              BGE      *T2MODRTN         B: YES, EXIT
     2924   01 00A43    65500A3E              BIR,5    T2MOD407+2        B: FETCH NEXT TWO CHAR
     2925   01 00A44    52E00E19     T2MOD408 LH,14    CHARBLNK          STORE IN BUFFER2
     2926   01 00A45    55E813DA              STH,14   BUFFER2,4         STORE IN BUFFER2
     2927   01 00A46    33100004 A            MTW,1    4                 INCREMENT BUFFER INDEX
     2928   01 00A47    68000A3C              B        T2MOD407          BUILD ANOTHER FIELD CHAR
     2929                            *
     2930                            *
     2931                            *        *** T2MOD5 - BROADSIDE ***
     2932                            *
     2933                            * BROADSIDE PATTERN OF 40 RANDOM CHARACTERS                            *
     2934                            *                                                                      *
     2935   01 00A48    35F00A5F     T2MOD5   STW,15   TST2RTN           SAVE RETURN
     2936   01 00A49    32500A5D              LW,5     T2LCOUNT          LINE COUNT
     2937   01 00A4A    6AF012A8     T2MOD501 BAL,15   RANDOMC           FETCH RANDOM CHARACTER
     2938   01 00A4B    21E0003F A            CI,14    X'3F'             iS IT BLANK CHARACTER
     2939   01 00A4C    68400A4A              BCR,4    %-2               B: YES
     2940   01 00A4D    75E4000E A            STB,14   14,2              FETCH RANDOM CHARACTER
     2941   01 00A4E    55E0000E A            STH,14   14                SAME 2 RANDOM CHARACTER
     2942   01 00A4F    224FFFDF A            LI,4     -33               BUFFER INDEX
     2943   01 00A50    35E813FB              STW,14   BUFFER2+33,4      STORE  IN BUFFER
     2944   01 00A51    65400A50              BIR,4    %-1               B: LOOP TILL BUFFER COMPLETE
     2945   01 00A52    220006E2              LI,0     DA(IOCD3)         LOAD IOCD
     2946   01 00A53    6AF012B1              BAL,15   EXECUTEX          PRINT A LINE
     2947   01 00A54    68000A55              B        %+1               NO ERRORS
     2948   01 00A55    64500A4A              BDR,5    T2MOD501          B:PRINT ANOTHER LINE
     2949   01 00A56    E8000A5F              B        *TST2RTN          EXIT
     2950   01 00A57    00000980     T2MODX   DATA     T2MOD0            SPACE N LINES
     2951   01 00A58    0000098B              DATA     T2MOD1            FIXED PATTERN
     2952   01 00A59    000009B9              DATA     T2MOD2            BLOCK SHIFTING(LINE CONSTANT)
     2953   01 00A5A    000009DE              DATA     T2MOD3            BLOCK SHIFTING(BLOCK CONSTANT)
     2954   01 00A5B    00000A05              DATA     T2MOD4            VARIABLE LOADING
     2955   01 00A5C    00000A48              DATA     T2MOD5
     2956   01 00A5D    00000064 A   T2LCOUNT DATA     100
     2957   01 00A5E    00000000 A   TST2FLG  DATA     0
     2958   01 00A5F                 TST2RTN  RES      1                 RETURN ADDRESS
     2959   01 00A60                 T2EXRTN  RES      1                 RETURN ADDRESS
     2960   01 00A61                 T2MODRTN RES      1                 RETURN ADDRESS
     2961   01 00A62    00000000 A   T2MODN   DATA     0                 RANDOM MODULE INDEX
     2962   01 00A63    00000000 A   T2CCOUNT DATA     0
     2963   01 00A64                 TST2LOOP RES      1
     2964   01 00A65                 TST2LINE RES      1
     2965                                     BOUND    8
     2966   01 00A66                 TST2X1   RES      1
     2967   01 00A67                 TST2X2   RES      1
     2968   01 00A68    00000000 A   T2MODPAT DATA     0,0
            01 00A69    00000000 A
     2969   01 00A6A    00000000 A   T2MODIND DATA     0
     2970   01 00A6B    FFFFFFFC A            DATA     -4
     2971   01 00A6C    FFFFFFFE A            DATA     -2
     2972   01 00A6D    FFFFFFFF A            DATA     -1
     2973   01 00A6E    D9C1D5C4 A   TST2MSG  TEXT     'RANDOM EXERCISER'
            01 00A6F    D6D440C5 A
            01 00A70    E7C5D9C3 A
            01 00A71    C9E2C5D9 A
     2974                            *                                                                      *
     2975                            *        *** TST3 - UTILITY TEST ROUTINES ***                          *
     2976                            *                                                                      *
     2977                            * THIS DIRECTIVE ALLOWS THE USER TO SELECT UTILITY TEST ROUTINES BY    *
     2978                            * SPECIFYING IN PARAMETER 1 THE DESIRED TEST:                          *
     2979                            *                                                                      *
     2980                            *   P1 = 0 HAMMER REGISTRATION                                         *
     2981                            *   P1 = 1 CHECKERBOARD PATTERN                                        *
     2982                            *   P1 = 2 RIPPLE  PATTERN                                             *
     2983                            *   P1 = 3 PRINTER SPEED                                               *
     2984                            *   P1 = 4 PRINTER LOAD                                                *
     2985                            *   P1 = 5 BROADSIDE PATTERN                                           *
     2986                            *   P1 = 6 SELECTABLE PATTERN/POSITION                                 *
     2987                            *   P1 = 7 SPACE LINES                                                 *
     2988                            *   P1 = 8 CHANNEL SEARCH                                              *
     2989                            *   P1 = 9 PAPER SLEW SPEED TEST                                      *
     2990                            *   P1 = 10 UTILITY TEST                                               *
     2991                            *                                                                      *
     2992                            *    NO OTHER VALUES OF P1 ARE ALLOWED.                                *
     2993                            *                                                                      *
     2994                            *    PARAMETERS 2,3, AND 4 ARE DEFINED BY THE SPECIFIC TEST            *
     2995                            *                                                                      *
     2996   01 00A72    32500201     TST3     LW,5     :P1               TEST INPUT
     2997   01 00A73    2150000B A            CI,5     11                    PARAMETER P1 (UTILITY TEST)
     2998   01 00A74    68200A79              BLE      %+5               B: P1 VALID
     2999   01 00A75    3510030A              STW,1    :PIT10            PARAMETER IN ERROR: P1 > 8
     3000   01 00A76    EAF00229              BAL,15   *:PREPORT         REPORT PAR. ERROR
     3001   01 00A77    00000326              DATA     :DIC+6            'TST3'
     3002   01 00A78    E8000214              B        *:MONITOR         EXIT
     3003                            *
     3004   01 00A79    35300432              STW,3    TSTFLAG           SET TST3 FLAG
     3005   01 00A7A    22E000F1 A            LI,14    X'F1'             SKIP TO TOP OF PAGE FORMAT
     3006   01 00A7B    75E00E18              STB,14   FORMAT            SAVE
     3007   01 00A7C    3550091F              STW,5    TSTP1             SAVE PARAMETER 1
     3008   01 00A7D    22E00000 A            LI,14    0
     3009   01 00A7E    35E00921              STW,14   TST1FLAG          RESET TEST FLAG
     3010   01 00A7F    22E7A120 A            LI,14    500000            MAX LINE COUNT
     3011   01 00A80    71220211              CB,2     :PSW,1            FETCH PARAMETER COUNT
     3012   01 00A81    69200A83              BG       TST3C-1          P2 NOT SPECIFIED
     3013   01 00A82    32E00202     TST3D    LW,14    :P2               LINE COUNT
     3014   01 00A83    35E00CC3              STW,14   TST3LINE          SAVE
     3015   01 00A84    3250091F     TST3C    LW,5     TSTP1             FETCH  UTILITY TEST NUMBER
     3016   01 00A85    3130091F              CW,3     TSTP1             TEST FOR PRINTER SPEED TEST
     3017   01 00A86    69300A89              BNE      %+3               B: NOT PRINTER SPEED TEST
     3018   01 00A87    22E000F0 A            LI,14    X'F0'
     3019   01 00A88    75E00E18              STB,14   FORMAT            SKIP TO BOTTOM OF PAGE FORMAT
     3020   01 00A89    353013A3              STW,3    ITHTEST           SET INT/TRAP
     3021   01 00A8A    22E0138F              LI,14    ITHDLR
     3022   01 00A8B    35E0030F              STW,14   :PIT15            INVOKE HDLR
     3023   01 00A8C    22E00A72              LI,14    TST3
     3024   01 00A8D    35E013A5              STW,14   ITHRST            TEST RESTART ADDRESS
     3025   01 00A8E    32EA0CCE              LW,14    TABLEMSG,5        MESSAGE ADDRESS
     3026   01 00A8F    F250000E A            LB,5     *14               BYTE COUNT
     3027   01 00A90    55520E05              STH,5    IOCD26+3,1        STORE IN IOCD
     3028   01 00A91    25E00002 A            SLS,14   2                 MESSAGE BYTE ADDRESS WITH BYTE COUNT
     3029   01 00A92    20E00001 A            AI,14    1                 MESSAGE BYTE ADDRESS
     3030   01 00A93    55E20E04              STH,14   IOCD26+2,1        SAVE IN IOCD
     3031   01 00A94    22000701              LI,0     DA(IOCD26)        LOAD IOCD
     3032   01 00A95    6AF012C5              BAL,15   EXECUTE           PRINT HEADER MESSAGE
     3033   01 00A96    68000A98              B        %+2               NO ERROR
     3034   01 00A97    35100920              STW,1    EXECERR1          SET ERROR FLAG
     3035   01 00A98    3250091F              LW,5     TSTP1
     3036   01 00A99    21500009 A            CI,5     9                 IS IT FOR TST3,9
     3037   01 00A9A    68300A9C              BE       %+2              B: YES, SKIP PRINT CHAR POS
     3038   01 00A9B    6AF0131B              BAL,15   PRINTPOS          PRINT CHAR POSITION
     3039   01 00A9C    3250091F              LW,5     TSTP1             FETCH
     3040   01 00A9D    325A0CD9              LW,5     TST3TST,5             UTILITY TEST ADDRESS
     3041   01 00A9E    E8000005 A            B        *5                START UTILITY TEST
     3042   01 00A9F    33F00CC3     TST3A    MTW,-1   TST3LINE          DECR LINE COUNT
     3043   01 00AA0    E920000F A            BGZ      *15               B: LINE COUNT > 0
     3044   01 00AA1    31100921     TST3B    CW,1     TST1FLAG          IS IT TST1
     3045   01 00AA2    68300891              BE       TST120A           YES, TST1
     3046   01 00AA3    69100C86              BL       TST31001          TST3,10
     3047   01 00AA4    EAF0138D              BAL,15   *:SENSE           TEST SW 1,3
     3048   01 00AA5    2E000AA5              WAIT     %
     3049   01 00AA6    68000A72              B        TST3              LOOP
     3050   01 00AA7    E8000214              B        *:MONITOR         RETURN TO MONITOR
     3051                            *                                                                      *
     3052                            *        *** TST30 - HAMMER REGISTRATION TEST PATTERN ***              *
     3053                            *                                                                      *
     3054                            * GENERATES A PATTERN OF BROADSIDE CHARACTER 'E' CONTINUOUSLY.         *
     3055                            *                                                                      *
     3056                            * P1 = 0.                                                              *
     3057                            * P2 = LINE COUNT                                                      *
     3058                            *                                                                      *
     3059                            * NO OTHER PARAMETERS REQUIRED.                                        *
     3060                            *                                                                      *
     3061   01 00AA8    224FFFDF A   TST30    LI,4     -33               GET BUFFER INDEX
     3062   01 00AA9    32501429              LW,5     =X'C5C5C5C5'      GET WORD OF CHARACTER E
     3063   01 00AAA    355813FB              STW,5    BUFFER2+33,4      STORE IN PRINT BUFFER
     3064   01 00AAB    65400AAA              BIR,4    %-1               LOOP IF BUFFER NOT FILLED
     3065   01 00AAC    220006E2              LI,0     DA(IOCD3)         LOAD IOCD
     3066   01 00AAD    6AF012C5              BAL,15   EXECUTE           PRINT A LINE
     3067   01 00AAE    68000AB0              B        %+2               NO ERROR
     3068   01 00AAF    35100920              STW,1    EXECERR1          SET ERROR FLAG
     3069   01 00AB0    6AF00A9F              BAL,15   TST3A             TEST LINE COUNT
     3070   01 00AB1    68000AAD              B        %-4
     3071                            *                                                                      *
     3072                            *        *** TST31 - CHECKERBOARD PATTERN ***                          *
     3073                            *                                                                      *
     3074                            * THE PATTERN CONSISTS OF ALTERNATING CHARACTER 'E' AND BLANK          *
     3075                            *                                                                      *
     3076                            * P1 = 1                                                               *
     3077                            * P2 = LINE COUNT                                                      *
     3078                            *                                                                      *
     3079                            * NO OTHER PARAMETERS REQUIRED.                                        *
     3080                            *                                                                      *
     3081   01 00AB2    32E0142A     TST31    LW,14    =X'C540C540'      ALTERNATING CHAR 'E' AND BLANK
     3082   01 00AB3    224FFFDF A            LI,4     -33               BUFFER INDEX
     3083   01 00AB4    35E813FB              STW,14   BUFFER2+33,4      STORE CHARACTERS IN BUFFER2
     3084   01 00AB5    65400AB4              BIR,4    %-1               B: LOOP TILL BUFFER COMPLETED
     3085                            *
     3086   01 00AB6    22E00040 A            LI,14    X'40'             BLANK CHARACTER
     3087   01 00AB7    75E613D9              STB,14   BUFFER1+32,3      STORE IN LAST BYTE OF BUFFER1
     3088   01 00AB8    22E04F68              LI,14    BA(BUFFER2)       BUFFER2 BYTE ADDRESS
     3089   01 00AB9    55E20DC6              STH,14   IOCD4,1           STORE IN IOCD MEMORY BYTE ADDRESS
     3090   01 00ABA    220006E3     TST3101  LI,0     DA(IOCD4)         LOAD IOCD
     3091   01 00ABB    6AF012C5              BAL,15   EXECUTE           PRINT ONE LINE
     3092   01 00ABC    68000ABE              B        %+2               NO ERROR
     3093   01 00ABD    35100920              STW,1    EXECERR1          SET ERROR FLAG
     3094   01 00ABE    6AF00A9F              BAL,15   TST3A             TEST LINE COUNT
     3095   01 00ABF    52E20DC6              LH,14    IOCD4,1           FETCH MEMORY BYTE ADDRESS
     3096   01 00AC0    4BE0142B              AND,14   =X'FFFF'
     3097   01 00AC1    21E04F68              CI,14    BA(BUFFER2)       IS IT EQUAL TO BUFFER2 BYTE ADDRESS
     3098   01 00AC2    69300AC5              BNE      %+3               B: NOT EQUAL
     3099   01 00AC3    33F00DC6              MTW,-1   IOCD4             DECREMENT IOCD BYTE ADDRESS
     3100   01 00AC4    68000ABA              B        TST3101           LOOP TO PRINT ANOTHER LINE
     3101   01 00AC5    33100DC6              MTW,1    IOCD4             INCREMENT IOCD BYTE ADDRESS
     3102   01 00AC6    68000ABA              B        TST3101           LOOP TO PRINT ANOTHER LINE
     3103                            *                                                                      *
     3104                            *        *** TST32 -  RIPPLE PATTERN ***                               *
     3105                            *                                                                      *
     3106                            * GENERATES A PATTERN CONSISTING OF ALL CHARACTERS PER LINE, EACH      *
     3107                            * SUCCEEDING LINE HAVING THE CHARACTERS SHIFTED ONE POSITION TO        *
     3108                            * THE LEFT.                                                            *
     3109                            *                                                                      *
     3110                            * P1 = 2.                                                              *
     3111                            * P2 = LINE COUNT                                                      *
     3112                            *                                                                      *
     3113                            * NO OTHER PARAMETERS USED.                                            *
     3114                            *                                                                      *
     3115   01 00AC7    225FFEF8 A   TST32    LI,5     -264              BUFFER INDEX
     3116   01 00AC8    22E00000 A            LI,14    0
     3117   01 00AC9    35E00CC2              STW,14   TST3CNT           RESET TST3CNT
     3118   01 00ACA    22400000 A   TST3205  LI,4     0                 RESET COUNTER
     3119   01 00ACB    F2E80CC5              LB,14    *CHARTBLX,4       FETCH CHARS
     3120   01 00ACC    75EA141C              STB,14   BUFFER2+66,5      STORE IN BUFFER
     3121   01 00ACD    33100004 A            MTW,1    4                 INCR COUNTER
     3122   01 00ACE    65500AD0              BIR,5    %+2               B: FETCH NEXT CHAR
     3123   01 00ACF    68000AD3              B        TST3201           BUFFER FILLED
     3124   01 00AD0    31400418              CW,4     CHARINDX          IS IT LAST CHAR
     3125   01 00AD1    68100ACA              BGE      TST3205           B: RECYCLE CHAR TABLE
     3126   01 00AD2    68000ACB              B        TST3205+1         FETCH NEXT CHAR
     3127   01 00AD3    22E04F68     TST3201  LI,14    BA(BUFFER2)       INITIALIZE
     3128   01 00AD4    55E20DC6              STH,14   IOCD4,1               BYTE ADDRESS
     3129   01 00AD5    220006E3     TST3202  LI,0     DA(IOCD4)         LOAD IOCD
     3130   01 00AD6    6AF012C5              BAL,15   EXECUTE           PRINT ONE LINE
     3131   01 00AD7    68000AD9              B        %+2               NO ERROR
     3132   01 00AD8    35100920              STW,1    EXECERR1          SET ERROR FLAG
     3133   01 00AD9    6AF00A9F              BAL,15   TST3A             TEST LINE COUNT
     3134   01 00ADA    33100CC2              MTW,1    TST3CNT           INCREMENT COUNTER
     3135   01 00ADB    32E00CC2              LW,14    TST3CNT           GET INDEX
     3136   01 00ADC    21E00084 A            CI,14    132               IS IT 132
     3137   01 00ADD    69200AC7              BG       TST32             REPEAT TEST
     3138   01 00ADE    33100DC6              MTW,1    IOCD4             INCREMENT BYTE ADDRESS
     3139   01 00ADF    68000AD5              B        TST3202           PRINT ANOTHER LINE
     3140                            *                                                                      *
     3141                            *        *** TST33- PRINTER SPEED ***                                  *
     3142                            *                                                                      *
     3143                            * A 36-LINE PATTERN OF CHARACTERS IS PRINTED TO PRODUCE MAXIMUM PRINT  *
     3144                            * RATE. THE AVERAGE TIME TO PRINT AND UPSPACE IS CALCULATED AND THE    *
     3145                            * PRINTER SPEED IS REPORTED.                                           *
     3146                            *                                                                      *
     3147                            * P1 = 3                                                               *
     3148                            * P2 = CHAR COUNT                                                      *
     3149                            *                                                                      *
     3150                            * NO OTHER PARAMETER USED.                                             *
     3151                            *
     3152   01 00AE0    32E00C93     TST33    LW,14    TST33MTW          STORE MODIFY TEST WORD INSTRUCTION
     3153   01 00AE1    35E00055 A            STW,14   X'55'                 IN COUNTER PULSE INTERRUPT LOC
     3154   01 00AE2    32E00C94              LW,14    TST33CTZ          STORE COUNTER EQUAL ZERO INTERRUPT
     3155   01 00AE3    35E0005B A            STW,14   X'5B'
     3156   01 00AE4    72E20211              LB,14    :PSW,1            FETCH NUMBER OF PARAMETER ENTERED
     3157   01 00AE5    21E00002 A            CI,14    2                 COMPARE TO 2
     3158   01 00AE6    69300AF2              BNE      TST33011          P2 NOT SPECIFIED
     3159   01 00AE7    32400202              LW,4     :P2               FETCH P2
     3160   01 00AE8    68300AF2              BEZ      TST33011          P2 = 0
     3161   01 00AE9    31300432              CW,3     TSTFLAG           IS IT FOR TST3
     3162   01 00AEA    69300AF2              BNE      TST33011          B: NOT FOR TST3
     3163   01 00AEB    2140005F A            CI,4     95                P2:95
     3164   01 00AEC    68200AF1              BLE      TST33011-1        B: P2 LESS OR EQUAL TO 95
     3165   01 00AED    3520030A              STW,2    :PIT10            PARAMETER IN ERROR :P2 GREATER 95
     3166   01 00AEE    EAF00229              BAL,15   *:PREPORT         REPORT PAR. ERROR
     3167   01 00AEF    00000326              DATA     :DIC+6            'TST3'
     3168   01 00AF0    E8000214              B        *:MONITOR         RETURN TO MONITOR
     3169   01 00AF1    35400CC7              STW,4    LASTCHAR          SAVE LAST CHAR
     3170   01 00AF2    32400CC7     TST33011 LW,4     LASTCHAR          SAVE
     3171   01 00AF3    33F00004 A            MTW,-1   4                 ADJUST P2
     3172   01 00AF4    F2E80CC5              LB,14    *CHARTBLX,4       FETCH SYNC CHARACTER
     3173   01 00AF5    75E4000E A            STB,14   14,2              BUILD
     3174   01 00AF6    55E0000E A            STH,14   14                   ONE WORD
     3175   01 00AF7    35E00CC6              STW,14   SYNCCHAR          SAVE
     3176   01 00AF8    225FFF7C A            LI,5     -132              BUFFER INDEX
     3177   01 00AF9    22400000 A   TST3301  LI,4     0                 RESET COUNTER
     3178   01 00AFA    F2E80CC5              LB,14    *CHARTBLX,4       FETCH CHAR
     3179   01 00AFB    75EA13DA              STB,14   BUFFER1+33,5      STORE IN BUFFER
     3180   01 00AFC    33100004 A            MTW,1    4                 INCREMENT COUNTER
     3181   01 00AFD    65500AFF              BIR,5    %+2               B: FETCH NEXT CHARACTER
     3182   01 00AFE    68000B02              B        %+4               BUFFER FILLED
     3183   01 00AFF    31400CC7              CW,4     LASTCHAR          IS IT THE LAST CHAR
     3184   01 00B00    68100AF9              BGE      TST3301           B: LAST CHARACTER, RECYLE
     3185   01 00B01    68000AFA              B        TST3301+1         FETCH NEXT CHARACTER
     3186                            *
     3187   01 00B02    32E00CC6              LW,14    SYNCCHAR          FETCH SYNC CHARACTER
     3188   01 00B03    224FFFDF A            LI,4     -33               BUFFER INDEX
     3189   01 00B04    35E813FB              STW,14   BUFFER2+33,4      STORE SYNC CHARACTER IN BUFFER
     3190   01 00B05    65400B04              BIR,4    %-1               B: LOOP TILL BUFFER FILLED
     3191                            *
     3192   01 00B06    224FFFDC A            LI,4     -36               SET
     3193   01 00B07    32E0142C              LW,14    =X'0FFFFFFF'      SET
     3194   01 00B08    35E00C9B              STW,14   TST33CT               COUNTER
     3195   01 00B09    6AF0108F              BAL,15   :DELAYAE          ARM/ENABLE COUNTER 4 INTERRUPT
     3196   01 00B0A    22501A0B A            LI,5     6667              DELAY 10 MILLISECOND
     3197   01 00B0B    64500B0B              BDR,5    %
     3198   01 00B0C    220006E6              LI,0     DA(IOCD6)         LOAD IOCD
     3199   01 00B0D    6AF00F9E              BAL,15   :IOEXEC           PRINT SYNC PATTERN
     3200   01 00B0E    32500CC8              LW,5     IOMDT              IO MAX DELAY TIME
     3201   01 00B0F    CDC00FC6              TIO,12   *:DEVADDR         TEST FOR CHANNEL END
     3202   01 00B10    68C00B13              BCR,12   %+3               B: CHANNEL END DETECTED
     3203   01 00B11    64500B0F              BDR,5    %-2               B: LOOP TILL CHANNEL END DETECTED
     3204   01 00B12    68000B4B              B        TST3305           TIO MAX DELAY TIME EXCEEDED
     3205   01 00B13    32500CC8     TST3302  LW,5     IOMDT              IO MAX DELAY TIME
     3206   01 00B14    2200070B              LI,0     DA(IOCD34)        LOAD IOCD
     3207   01 00B15    CCC00FC6              SIO,12   *:DEVADDR         PRINT A LINE
     3208   01 00B16    68C00B19              BCR,12   %+3               B: SIO ACCEPTED
     3209   01 00B17    64500B15              BDR,5    %-2               B: LOOP TILL SIO ACCEPTED
     3210   01 00B18    68000B4B              B        TST3305           SIO MAX DELAY TIME EXCEEDED
     3211   01 00B19    32E00C9B              LW,14    TST33CT           FETCH COUNT
     3212   01 00B1A    35E00C9C              STW,14   TST33SAV          SAVE
     3213   01 00B1B    32500CC8              LW,5     IOMDT              IO MAX DELAY TIME
     3214   01 00B1C    CDC00FC6              TIO,12   *:DEVADDR         TEST FOR CHANNEL END
     3215   01 00B1D    68C00B20              BCR,12   %+3               B: CHANNEL END DETECTED
     3216   01 00B1E    64500B1C              BDR,5    %-2               B: LOOP TILL CHANNEL END DETECTED
     3217   01 00B1F    68000B4B              B        TST3305           TIO MAX DELAY TIME EXCEEDED
     3218   01 00B20    32E00C9C     TST33021 LW,14    TST33SAV
     3219   01 00B21    38E00C9B              SW,14    TST33CT           SUBTRACT FROM STARTING COUNT
     3220   01 00B22    35E80CC2              STW,14   TST33PT+36,4      SAVE COUNT IN TABLE
     3221   01 00B23    65400B13              BIR,4    TST3302           B: LOOP TILL TABLE COMPLETE
     3222   01 00B24    6AF01093              BAL,15   :DELAYD           DISARM COUNTER 4 INTERRUPT
     3223   01 00B25    224FFFDC A            LI,4     -36               TABLE INDEX
     3224   01 00B26    22E00000 A            LI,14    0                 RESET ACCUMULATOR
     3225   01 00B27    30E80CC2              AW,14    TST33PT+36,4      ADD PRINT TIME TO ACCUMULATOR
     3226   01 00B28    65400B27              BIR,4    %-1               B: LOOP TILL ADDED ALL 36-LINE
     3227   01 00B29    3250142D              LW,5     =1080000          CALCUTE
     3228   01 00B2A    3640000E A            DW,4     14                    LINE PER MINUTE
     3229   01 00B2B    32C00005 A            LW,12    5                 LINES PER MINUTE
     3230   01 00B2C    EAF00217              BAL,15   *:DECC            CONVERT TO EBCDIC
     3231   01 00B2D    35F00CE8              STW,15   TST33MSG+4        STORE IN MESSAGE
     3232                            *                             SEARCH TST33PT FOR MAX, MIN TIMES
     3233   01 00B2E    224FFFDC A            LI,4     -36               SEARCH TABLE INDEX
     3234   01 00B2F    32C80CC2              LW,12    TST33PT+36,4      FIRST TIMING IN
     3235   01 00B30    32D0000C A            LW,13    12                    MAX AND MIN REG
     3236   01 00B31    31C80CC2     TST3303  CW,12    TST33PT+36,4      COMPARE TABLE WITH MAX
     3237   01 00B32    68100B35              BGE      %+3               B: MAX GREATER THAN TABLE
     3238   01 00B33    32C80CC2              LW,12    TST33PT+36,4      FETCH NEW MAX FROM TABLE
     3239   01 00B34    68000B38              B        TST3304
     3240   01 00B35    31D80CC2              CW,13    TST33PT+36,4      COMPARE TABLE WITH MIN
     3241   01 00B36    68200B38              BLE      TST3304           B: MIN LESS THAN TABLE
     3242   01 00B37    32D80CC2              LW,13    TST33PT+36,4      FETCH NEW MIN FROM TABLE
     3243   01 00B38    65400B31     TST3304  BIR,4    TST3303           B: LOOP TILL SEARCH COMPLETE
     3244   01 00B39    25C00501 A            SAD,12   1                 CONVERT MAX AND MIN TO MILLISECOND
     3245   01 00B3A    EAF00217              BAL,15   *:DECC            CONVERT MAX TO EBCDIC
     3246   01 00B3B    35F00CEE              STW,15   TST33MSG+10       STORE IN MESSAGE
     3247   01 00B3C    32C0000D A            LW,12    13                FETCH MIN
     3248   01 00B3D    EAF00217              BAL,15   *:DECC            CONVERT TO EBCDIC
     3249   01 00B3E    35F00CF1              STW,15   TST33MSG+13       STORE IN MESSAGE
     3250   01 00B3F    22E000C2 A            LI,14    X'C2'             SPACE 2 LINE PRINT FORMAT
     3251   01 00B40    75E00E18              STB,14   FORMAT            SAVE
     3252   01 00B41    22E00038 A            LI,14    56                FETCH BYTE COUNT
     3253   01 00B42    55E20DCB              STH,14   IOCD5+3,1         STORE IN IOCD
     3254   01 00B43    22E03390              LI,14    BA(TST33MSG)      MESSAGE BYTE ADDRESS
     3255   01 00B44    55E20DCA              STH,14   IOCD5+2,1         STORE IN IOCD
     3256   01 00B45    220006E4              LI,0     DA(IOCD5)         LOAD IOCD
     3257   01 00B46    CCC00FC6              SIO,12   *:DEVADDR         PRINT MESSAGE
     3258   01 00B47    32500CC8              LW,5     IOMDT             IO MAX DELAY TIME
     3259   01 00B48    CDC00FC6              TIO,12   *:DEVADDR         TEST FOR CHANNEL END
     3260   01 00B49    68C00B4E              BCR,12   %+5               B: CHANNEL END DETECTED
     3261   01 00B4A    64500B48              BDR,5    %-2               B: LOOP TILL CHANNEL END DETECTED
     3262   01 00B4B    EAF0021C     TST3305  BAL,15   *:PRINT           TIO MAX DELAY TIME EXCEEDED
     3263   01 00B4C    00000CC9              DATA     IOMDTMSG          'IO MAX DELAY TIME EXCEEDED'
     3264   01 00B4D    E8000214              B        *:MONITOR         RETURN TO MONITOR
     3265   01 00B4E    68000AA1              B        TST3B             GO TO TST3
     3266                            *
     3267   01 00B4F    6AF01093     TST33CTR BAL,15   :DELAYD           DISARM COUNTER 4
     3268   01 00B50    EAF0021C              BAL,15   *:PRINT           PRINT MESSAGE
     3269   01 00B51    00000CF2              DATA     TSTCTZMG
     3270   01 00B52    E8000214              B        *:MONITOR         RETURN TO MONITOR
     3271                            *                                                                    *
     3272                            *        *** TST34 - PRINTER LOAD TEST PATTERN ***                   *
     3273                            *                                                                    *
     3274                            * GENERATES A PATTERN OF AN INCREASING NUMBER OF CHARACTER 'E' EACH *
     3275                            * LINE TILL 132 POSITION PRINTED, THEN DECREASING NUMBER OF           *
     3276                            * CHARACTER 'E' EACH LINE.                                            *
     3277                            *                                                                     *
     3278                            * P1 = 4.                                                             *
     3279                            * P2 = LINE COUNT                                                     *
     3280                            *                                                                     *
     3281                            * NO OTHER PARAMETERS REQUIRED.                                       *
     3282                            *                                                                     *
     3283   01 00B53    224FFFDF A   TST34    LI,4     -33               BUFFER INDEX
     3284   01 00B54    32500E19              LW,5     CHARBLNK          BLANK CHARACTERS
     3285   01 00B55    32601429              LW,6     =X'C5C5C5C5'      CHARACTER 'E'
     3286   01 00B56    355813DA              STW,5    BUFFER1+33,4      STORE BLANK CHARACTERS
     3287   01 00B57    3558141C              STW,5    BUFFER3+33,4      STORE BLANK CHARACTERS
     3288   01 00B58    356813FB              STW,6    BUFFER2+33,4      STORE CHARACTER 'E'
     3289   01 00B59    65400B56              BIR,4    %-3               B: LOOP TILL BUFFERS COMPLETE
     3290   01 00B5A    22E04FEB     TST3401  LI,14    BA(BUFFER3)-1     BYTE ADDRESS
     3291   01 00B5B    55E20DC6              STH,14   IOCD4,1           STORE IN IOCD
     3292   01 00B5C    22E00107 A            LI,14    263               SET TOTAL
     3293   01 00B5D    35E00CC2              STW,14   TST3CNT               LINE INDEX
     3294   01 00B5E    220006E3     TST3402  LI,0     DA(IOCD4)         LOAD IOCD
     3295   01 00B5F    6AF012C5              BAL,15   EXECUTE           PRINT ONE LINE
     3296   01 00B60    68000B62              B        %+2               NO ERROR
     3297   01 00B61    35100920              STW,1    EXECERR1          SET ERROR FLAG
     3298   01 00B62    6AF00A9F              BAL,15   TST3A             TEST LINE COUNT
     3299   01 00B63    33F00DC6              MTW,-1   IOCD4             DECREMENT IOCD BYTE ADDRESS
     3300   01 00B64    33F00CC2              MTW,-1   TST3CNT           DECREMENT LINE INDEX
     3301   01 00B65    69200B5E              BGZ      TST3402           B: LOOP TILL PRINTER LOAD TEST COMPL
     3302   01 00B66    68000B5A              B        TST3401           REPEAT
     3303                            *                                                                      *
     3304                            *        *** TST35 - BROADSIDE PATTERN ***                             *
     3305                            *                                                                      *
     3306                            * GENERATES A 64-LINE PATTERN OF ALL PRINTABLE CHARACTERS BROADSIDE    *
     3307                            *                                                                      *
     3308                            * P1 = 5.                                                              *
     3309                            * P2 = LINE COUNT                                                      *
     3310                            *                                                                      *
     3311                            * NO OTHER PARAMETERS REQUIRED.                                        *
     3312                            *                                                                      *
     3313   01 00B67    22600000 A   TST35    LI,6     0                 CHARACTER INDEX
     3314   01 00B68    224FFFDF A            LI,4     -33               BUFFER INDEX
     3315   01 00B69    32E00CC5              LW,14    CHARTBLX          CALCULATE CHARACTER ADDR
     3316   01 00B6A    F25C000E A            LB,5     *14,6             FETCH ONE CHARACTER
     3317   01 00B6B    75540005 A            STB,5    5,2               FILL REGISTER
     3318   01 00B6C    55500005 A            STH,5    5                     WITH THE CHARACTER
     3319   01 00B6D    355813FB              STW,5    BUFFER2+33,4      STORE IT IN BUFFER
     3320   01 00B6E    65400B6D              BIR,4    %-1               B: LOOP TILL BUFFER COMPLETE
     3321                            *
     3322   01 00B6F    220006E2              LI,0     DA(IOCD3)         LOAD IOCD
     3323   01 00B70    6AF012C5              BAL,15   EXECUTE           PRINT ONE LINE
     3324   01 00B71    68000B72              B        %+1
     3325   01 00B72    6AF00A9F              BAL,15   TST3A             TEST LINE COUNT
     3326   01 00B73    33100006 A            MTW,1    6                 INCREMENT CHARACTER INDEX
     3327   01 00B74    31600418              CW,6     CHARINDX          IS IT LAST CHAR
     3328   01 00B75    68200B68              BLE      TST35+1           B: NO
     3329   01 00B76    68000B67              B        TST35             REPEAT
     3330                            *                                                                      *
     3331                            *  *** TST36 - SELECTABLE CHARACTER/PRINT POSITION TEST PATTERN ***    *
     3332                            *                                                                      *
     3333                            * GENERATES A SELECTABLE CHARACTER AND POSITION(S) PATTERN             *
     3334                            *                                                                      *
     3335                            * P1 = 6.                                                              *
     3336                            * P2 = LINE COUNT                                                      *
     3337                            * P3 = GROUP/DATA LINE
     3338                            * P4 = GROUP/SPACE LINE
     3339                            *                                                                      *
     3340                            * NO OTHER PARAMETERS REQUIRED                                         *
     3341                            *                                                                      *
     3342                            * USE DATA DIRECTIVE  FOR SELECTING CHARACTER AND POSITION(S).         *
     3343                            *                                                                      *
     3344   01 00B77    32E00E5D     TST36    LW,14    :DATAP1           DATA PARAMETER
     3345   01 00B78    21E00004 A            CI,14    4                 TEST FOR CHAR/POS SPECIFIED
     3346   01 00B79    68300B7D              BE       %+4               B: CHAR/POS SPECIFIED
     3347   01 00B7A    EAF0021C              BAL,15   *:PRINT           PRINT ERROR MESSAGE
     3348   01 00B7B    00000CFD              DATA     TST36MSG          'CHARACTER/POSITION NOT SPECIFIED'
     3349   01 00B7C    E8000214              B        *:MONITOR         EXIT TO MONITOR
     3350   01 00B7D    224FFFDF A            LI,4     -33               BUFFER INDEX
     3351   01 00B7E    32E00E19              LW,14    CHARBLNK          BLANK CHARACTER
     3352   01 00B7F    35E813FB              STW,14   BUFFER2+33,4      STORE IN BUFFER
     3353   01 00B80    65400B7F              BIR,4    %-1               B: LOOP TILL BUFFER COMPLETE
     3354                            *
     3355   01 00B81    22700000 A            LI,7     0                 RESET CHARACTER INDEX
     3356   01 00B82    32500E5E              LW,5     :DATAP2           STARTING COLUMN
     3357   01 00B83    33F00005 A            MTW,-1   5                 COLUMN INDEX
     3358   01 00B84    72EE0E60     TST3601  LB,14    :DATAP4,7         FETCH ONE CHARACTER
     3359   01 00B85    75EA13DA              STB,14   BUFFER2,5         STORE IN BUFFER
     3360   01 00B86    33100005 A            MTW,1    5                 INCREMENT COLUMN INDEX
     3361   01 00B87    33100007 A            MTW,1    7                 INCREMENT CHARACTER INDEX
     3362   01 00B88    4B700003 A            AND,7    3                 MASK OFF GREATER THAN 4 COUNT
     3363   01 00B89    31500E5F              CW,5     :DATAP3           IS IT LAST CHARACTER
     3364   01 00B8A    69100B84              BL       TST3601           B: NO
     3365   01 00B8B    72E20211              LB,14    :PSW,1            FETCH NO OF PARAMETER ENTERED
     3366   01 00B8C    21E00003 A            CI,14    3                 COMPARE:3
     3367   01 00B8D    69100B91              BL       TST3602           B: P3 NOT SPECIFIED
     3368   01 00B8E    68300BA5              BE       TST3604           B: P4 NOT SPECIFIED
     3369   01 00B8F    32E00203     TST3603  LW,14    :P3               LINE COUNT/GROUP
     3370   01 00B90    35E00CC4              STW,14   T3LINE1           SAVE
     3371   01 00B91    220006E2     TST3602  LI,0     DA(IOCD3)         LOAD IOCD
     3372   01 00B92    6AF012C5              BAL,15   EXECUTE           PRINT ONE LINE
     3373   01 00B93    68000B94              B        %+1
     3374   01 00B94    6AF00A9F              BAL,15   TST3A             TEST LINE COUNT
     3375   01 00B95    72E20211              LB,14    :PSW,1            FETCH NO. OF PARAMETER ENTERED
     3376   01 00B96    21E00003 A            CI,14    3                 COMPARE TO 3
     3377   01 00B97    69100B91              BL       TST3602           B: P3 NOT SPECIFIED
     3378   01 00B98    33F00CC4              MTW,-1   T3LINE1           DECR LINE COUNT
     3379   01 00B99    69200B91              BGZ      TST3602           B: LINE COUNT > 0
     3380   01 00B9A    32E00204              LW,14    :P4               SPACE LINE/GROUP
     3381   01 00B9B    68300B8F              BEZ      TST3603           SPACE LINE = 0
     3382   01 00B9C    35E00CC4              STW,14   T3LINE1           SAVE
     3383   01 00B9D    22E000C1 A            LI,14    X'C1'
     3384   01 00B9E    75E00E18              STB,14   FORMAT            SPACE 1 LINE FORMAT
     3385   01 00B9F    220006DF              LI,0     DA(IOCD1)         LOAD IOCD
     3386   01 00BA0    6AF012C5              BAL,15   EXECUTE           SPACE LINE
     3387   01 00BA1    68000BA2              B        %+1               NO ERROR
     3388   01 00BA2    33F00CC4              MTW,-1   T3LINE1           DECR LINE COUNT
     3389   01 00BA3    69200B9F              BGZ      %-4               B: LINE COUNT > 0
     3390   01 00BA4    68000B8F              B        TST3603           REPEAT
     3391   01 00BA5    22E00004 A   TST3604  LI,14    4
     3392   01 00BA6    35E0030A              STW,14   :PIT10            PARAMETER IN ERROR
     3393   01 00BA7    EAF00229              BAL,15   *:PREPORT         REPORT PAR. ERROR
     3394   01 00BA8    00000326              DATA     :DIC+6            'TST3'
     3395   01 00BA9    E8000214              B        *:MONITOR         RETURN TO MONITOR
     3396                            *
     3397                            *                                                                      *
     3398                            *        *** TST37 - SPACE LINE ***                                    *
     3399                            *                                                                      *
     3400                            * SPACE ORDERS ARE ISSUE TO EACH OF THE 15 POSSIBLE POSITION IN        *
     3401                            * SEQUENCE.                                                            *
     3402                            *                                                                      *
     3403                            * P1 = 7.                                                              *
     3404                            *                                                                      *
     3405                            * NO OTHER PARAMETER REQUIRED.                                         *
     3406                            *                                                                      *
     3407   01 00BAA    22E00000 A   TST37    LI,14    0                 RESET
     3408   01 00BAB    35E00CC2              STW,14   TST3CNT               SPACE COUNT
     3409   01 00BAC    35E00C9A              STW,14   TST3INDX          CLEAR INDEX
     3410   01 00BAD    22E00060 A            LI,14    X'60'             INHIBIT UPSPACE
     3411   01 00BAE    75E00E18              STB,14   FORMAT                AFTER PRINT FORMAT
     3412   01 00BAF    72E00D07              LB,14    TST37M1           FETCH BYTE COUNT
     3413   01 00BB0    55E20DD5              STH,14   IOCD9+3,1         STORE IN IOCD
     3414   01 00BB1    22E0341D              LI,14    BA(TST37M1)+1     FETCH IOCD BYTE ADDRESS
     3415   01 00BB2    55E20DD4              STH,14   IOCD9+2,1         STORE IN IOCD
     3416   01 00BB3    220006E9              LI,0     DA(IOCD9)         LOAD IOCD
     3417   01 00BB4    6AF012C5              BAL,15   EXECUTE           PRINT A LINE WITH INHIBIT UPSPACE
     3418   01 00BB5    68000BB7              B        %+2               NO ERROR
     3419   01 00BB6    35100920              STW,1    EXECERR1          SET ERROR FLAG
     3420   01 00BB7    22E0003B A            LI,14    59                FETCH BYTE COUNT
     3421   01 00BB8    55E60DD0              STH,14   IOCD8,3           STORE IN IOCD
     3422   01 00BB9    22E0343C              LI,14    BA(TST37M2)       FETCH IOCD BYTE ADDRESS
     3423   01 00BBA    55E20DD0              STH,14   IOCD8,1           STORE IN IOCD
     3424   01 00BBB    220006E8              LI,0     DA(IOCD8)         LOAD IOCD
     3425   01 00BBC    6AF012C5              BAL,15   EXECUTE           PRINT A LINE
     3426   01 00BBD    68000BBE              B        %+1
     3427   01 00BBE    22E000C0 A            LI,14    X'C0'             SPACE 0 LINE
     3428   01 00BBF    75E00E18              STB,14   FORMAT                FORMAT
     3429   01 00BC0    72C00E18     TST3701  LB,12    FORMAT            NUMBER OF SPACES
     3430   01 00BC1    EAF00218              BAL,15   *:HEXC            CONVERT TO EBCDIC
     3431   01 00BC2    55F00D26              STH,15   TST37M3+8         STORE IN MESSAGE
     3432   01 00BC3    32C00CC2              LW,12    TST3CNT           GET LINE COUNT
     3433   01 00BC4    EAF00217              BAL,15   *:DECC            CONVERT TO EBCDIC
     3434   01 00BC5    55F20D20              STH,15   TST37M3+2,1       STORE IN MESSAGE
     3435   01 00BC6    72E00D1E              LB,14    TST37M3           FETCH BYTE COUNT
     3436   01 00BC7    55E20DD5              STH,14   IOCD9+3,1         STORE IN IOCD
     3437   01 00BC8    22E03479              LI,14    BA(TST37M3)+1     FETCH IOCD BYTE ADDRESS
     3438   01 00BC9    55E20DD4              STH,14   IOCD9+2,1         STORE IN IOCD
     3439   01 00BCA    220006E9              LI,0     DA(IOCD9)         LOAD IOCD
     3440   01 00BCB    6AF012C5              BAL,15   EXECUTE           PRINT MESSAGE
     3441   01 00BCC    68000BCE              B        %+2               NO ERROR
     3442   01 00BCD    35100920              STW,1    EXECERR1          SET ERROR FLAG
     3443   01 00BCE    33100CC2              MTW,1    TST3CNT           INCREMENT SPACE COUNT
     3444   01 00BCF    73100E18              MTB,1    FORMAT            INCREMENT SPACE FORMAT
     3445   01 00BD0    32C00CC2              LW,12    TST3CNT           SPACE FORMAT
     3446   01 00BD1    21C0000A A   TST3704  CI,12    10                CP: SPACE LINE:10
     3447   01 00BD2    69100BC0              BL       TST3701           B: SPACE LINE IS LESS THAN 10
     3448   01 00BD3    69200BE0              BG       TST3703           B: SPACE LINE IS GREATER THAN 10
     3449   01 00BD4    72E00D27     TST3702  LB,14    TST37TP           FETCH BYTE COUNT
     3450   01 00BD5    55E20DD5              STH,14   IOCD9+3,1         STORE IN IOCD
     3451   01 00BD6    22E0349D              LI,14    BA(TST37TP)+1     FETCH IOCD BYTE ADDRESS
     3452   01 00BD7    55E20DD4              STH,14   IOCD9+2,1         STORE IN IOCD
     3453   01 00BD8    32D01422              LW,13    =X'F1000000'      TOP OF PAGE FORMAT
     3454   01 00BD9    46D00E18              XW,13    FORMAT            EXCHANGE FORMAT
     3455   01 00BDA    220006E9              LI,0     DA(IOCD9)         LOAD IOCD
     3456   01 00BDB    6AF012C5              BAL,15   EXECUTE           SKIP TO TOP OF PAGE
     3457   01 00BDC    68000BDE              B        %+2               NO ERROR
     3458   01 00BDD    35100920              STW,1    EXECERR1          SET ERROR FLAG
     3459   01 00BDE    46D00E18              XW,13    FORMAT            EXCHANGE FORMAT
     3460   01 00BDF    68000BC0              B        TST3701           NEXT SPACE FORMAT
     3461   01 00BE0    21C0000D A   TST3703  CI,12    13                CP: SPACE LINE:13
     3462   01 00BE1    68300BD4              BE       TST3702           B: SPACE LINE EQUAL 13
     3463   01 00BE2    21C0000F A            CI,12    15                CP: SPACE LINE:15
     3464   01 00BE3    69100BC0              BL       TST3701           B: SPACE LINE LESS THAN 15
     3465   01 00BE4    68300BD4              BE       TST3702           B: SPACE LINE EQUAL 15
     3466   01 00BE5    32E00C9A              LW,14    TST3INDX          GET INDEX
     3467   01 00BE6    69300AA1              BNEZ     TST3B             GO TO TST3
     3468   01 00BE7    33100C9A              MTW,1    TST3INDX          INCR INDEX
     3469   01 00BE8    22E000E0 A            LI,14    X'E0'             GET SPACE 0 LINES WITH INHIBITUPSPACE
     3470   01 00BE9    75E00E18              STB,14   FORMAT            SAVE
     3471   01 00BEA    22E00000 A            LI,14    0
     3472   01 00BEB    35E00CC2              STW,14   TST3CNT           RESET COUNT
     3473   01 00BEC    68000BC0              B        TST3701           REPEAT TEST
     3474   01 00BED    68000AA1              B        TST3B             GO TO TST3
     3475                            *
     3476                            *                                                                      *
     3477                            *        *** TST38 - CHANNEL SEARCH ***                                *
     3478                            *                                                                      *
     3479                            * CHANNEL SEARCHES ARE ISSUE TO THE OPERATOR-SPECIFIED CHANNEL         *
     3480                            *                                                                      *
     3481                            * P1 = 8.                                                              *
     3482                            * P2 = CHANNEL NUMBER  0 <= P2 <= 7                                    *
     3483                            *  P3 = 1 SEARCH CHANNEL WITH INHIBIT UPSPACE
     3484                            * P2 NOT SPECIFIED - SEARCH ALL CHANNELS SEQUENCE
     3485                            *                                                                      *
     3486                            * NO OTHER PARAMETERS REQUIRED.                                        *
     3487                            *                                                                      *
     3488   01 00BEE    31100921     TST38    CW,1     TST1FLAG          IS IT FUNCTIONAL TEST
     3489   01 00BEF    68200BF4              BLE      TST3804           B: YES
     3490   01 00BF0    32C00202              LW,12    :P2               SKIP TO CHANNEL
     3491   01 00BF1    72E20211              LB,14    :PSW,1            FETCH NUMBER OF PARAMETER ENTERED
     3492   01 00BF2    21E00002 A            CI,14    2                 COMPARE TO 2
     3493   01 00BF3    68100BF5              BGE      %+2               P2 SPECIFIED
     3494   01 00BF4    22C00000 A   TST3804  LI,12    0                 SKIP TO CHANNEL 0
     3495   01 00BF5    35C00CC2              STW,12   TST3CNT           SAVE SKIP TO CHANNEL
     3496   01 00BF6    22E000F0 A            LI,14    X'F0'
     3497   01 00BF7    35E00C25              STW,14   FMTCODE           FORMAT CODE
     3498   01 00BF8    21C0000F A            CI,12    15                IS PARAMETER GREATER THAN 15
     3499   01 00BF9    68200C20              BLE      TST3805           B: NO
     3500   01 00BFA    3520030A              STW,2    :PIT10            PARAMETER IN ERROR: P2 > 11
     3501   01 00BFB    EAF00229              BAL,15   *:PREPORT         REPORT PAR. ERROR
     3502   01 00BFC    00000326              DATA     :DIC+6            'TST3'
     3503   01 00BFD    E8000214              B        *:MONITOR         EXIT TO MONITOR

     3504   01 00BFE    32C00CC2     TST3802  LW,12    TST3CNT           CHANNEL NUMBER
     3505   01 00BFF    49C00C25              OR,12    FMTCODE           MERGE WITH FORMAT CODE
     3506   01 00C00    EAF00218              BAL,15   *:HEXC            CONVERT TO HEX
     3507   01 00C01    55F00D34              STH,15   TST38MSG+9        STORE IN MESSAGE
     3508   01 00C02    32C00CC2              LW,12    TST3CNT           SKIP TO CHANNEL
     3509   01 00C03    49C00C25              OR,12    FMTCODE           MERGE WITH FORMAT CODE
     3510   01 00C04    75C00E18              STB,12   FORMAT            SAVE IN FORMAT

     3511   01 00C05    32C00CC2              LW,12    TST3CNT           GET CHANNEL NO.
     3513   01 00C06    EAF00217              BAL,15   *:DECC            CONVERT TO EBCDIC
     3514   01 00C07    55F00D30              STH,15   TST38MSG+5        STORE IN MSG
     3515   01 00C08    72E00D2B              LB,14    TST38MSG          FETCH BYTE COUNT
     3516   01 00C09    55E60DD4              STH,14   IOCD9+2,3         STORE IN IOCD
     3517   01 00C0A    22E034AD              LI,14    BA(TST38MSG)+1    FETCH MEMORY BYTE ADDRESS
     3518   01 00C0B    55E20DD4              STH,14   IOCD9+2,1         STORE IN IOCD

     3519   01 00C0C    220006DF     TST3801  LI,0     DA(IOCD1)         LOAD IOCD
     3520   01 00C0D    6AF012C5              BAL,15   EXECUTE           SKIP TO CHANNEL XX
     3521   01 00C0E    68000C10              B        %+2               NO ERROR
     3522   01 00C0F    35100920              STW,1    EXECERR1          SET ERROR FLAG
     3523   01 00C10    22E00060 A            LI,14    X'60'
     3524   01 00C11    75E00E18              STB,14   FORMAT            INHIBIT AUTOMATIC UPSPACE FORMAT
     3525   01 00C12    220006E9              LI,0     DA(IOCD9)         LOAD IOCD
     3526   01 00C13    6AF012C5              BAL,15   EXECUTE           PRINT MESSAGE
     3527   01 00C14    68000C16              B        %+2               NO ERROR
     3528   01 00C15    35100920              STW,1    EXECERR1          SET ERROR FLAG
     3529   01 00C16    31100921              CW,1     TST1FLAG          IS IT FUNCTIONAL TEST
     3530   01 00C17    68200C1B              BLE      %+4               B: YES
     3531   01 00C18    72C20211              LB,12    :PSW,1            FETCH NUMBER OF PARAMETER ENTERED
     3532   01 00C19    21C00002 A            CI,12    2                 COMPARE TO 2
     3533   01 00C1A    68100AA1              BGE      TST3B             B: P2 SPECIFIED
     3534   01 00C1B    33100CC2              MTW,1    TST3CNT           INCREMENT SKIP TO CHANNEL
     3535   01 00C1C    32C00CC2              LW,12    TST3CNT           SKIP TO CHANNEL
     3536   01 00C1D    21C0000B A   TST3803  CI,12    11                COMPARE TO 11
     3537   01 00C1E    68200BFE              BLE      TST3802           B: SKIP TO CHANNEL <= 11
     3538   01 00C1F    68000AA1              B        TST3B             GO TO TST3
     3539   01 00C20    31100203     TST3805  CW,1     :P3               IS IT FOR SKIP WITH INH. UPS PCE
     3540   01 00C21    69300BFE              BNE      TST3802           B: NO
     3541   01 00C22    22E000D0 A            LI,14    X'D0'             SKIP WITH INHIBIT UPSPACE FORMAT
     3542   01 00C23    35E00C25              STW,14   FMTCODE
     3543   01 00C24    68000BFE              B        TST3802
     3544   01 00C25    00000000 A   FMTCODE  DATA     0
     3545                            *                                                                      *
     3546                            *        *** TST39 - PAPER SLEW SPEED ***                              *
     3547                            *                                                                      *
     3548                            * THIS TEST WILL SPACE 15 LINES, DETERMINE PAPER ADVANCE SPEED AND     *
     3549                            * REPORT THE RESULTS                                                   *
     3550                            *                                                                      *
     3551                            * P1 = 9                                                               *
     3552                            *                                                                      *
     3553                            *                                                                      *
     3554                            * NO OTHER PARAMETER USED.                                             *
     3555                            *
     3556   01 00C26    32E00C6C     TST39    LW,14    TST39MTW          STORE MODIFY TEST WORD INSTRUCTION
     3557   01 00C27    35E00055 A            STW,14   X'55'                 IN COUNTER PULSE INTERRUPT LOC
     3558   01 00C28    32E00C6D              LW,14    TST39CTZ          STORE COUNTER EQUAL ZERO INTERRUPT
     3559   01 00C29    35E0005B A            STW,14   X'5B'
     3560   01 00C2A    22E000C1 A            LI,14    X'C1'             SPACE ONE LINE FORMAT
     3561   01 00C2B    75E00E18              STB,14   FORMAT            SAVE
     3562   01 00C2C    32E0142C              LW,14    =X'0FFFFFFF'      SET
     3563   01 00C2D    35E00C72              STW,14   TST39CT               COUNTER
     3564   01 00C2E    6AF0108F              BAL,15   :DELAYAE          ARM/ENABLE COUNTER 4 INTERRUPT
     3565   01 00C2F    22501A0B A            LI,5     6667              DELAY 10 MILLISECOND
     3566   01 00C30    64500C30              BDR,5    %
     3567   01 00C31    220006EC              LI,0     DA(IOCD11)        LOAD IOCD
     3568   01 00C32    6AF00F9E              BAL,15   :IOEXEC           PRINT SYNC PATTERN
     3569   01 00C33    32500CC8              LW,5     IOMDT              IO MAX DELAY TIME
     3570   01 00C34    CDC00FC6              TIO,12   *:DEVADDR         TEST FOR CHANNEL END
     3571   01 00C35    68C00C38              BCR,12   %+3               B: CHANNEL END DETECTED
     3572   01 00C36    64500C34              BDR,5    %-2               B: LOOP TILL CHANNEL END DETECTED
     3573   01 00C37    68000C61              B        TST3905           TIO MAX DELAY TIME EXCEEDED
     3574   01 00C38    32E0142E              LW,14    =X'CF'            GET SPACE LINE FORMAT
     3575   01 00C39    75E00E18              STB,14   FORMAT            SAVE
     3576   01 00C3A    32500CC8     TST3902  LW,5     IOMDT              IO MAX DELAY TIME
     3577   01 00C3B    220006EC              LI,0     DA(IOCD11)        LOAD IOCD
     3578   01 00C3C    CCC00FC6              SIO,12   *:DEVADDR         PRINT A LINE
     3579   01 00C3D    68C00C40              BCR,12   %+3               B: SIO ACCEPTED
     3580   01 00C3E    64500C3C              BDR,5    %-2               B: LOOP TILL SIO ACCEPTED
     3581   01 00C3F    68000C61              B        TST3905           SIO MAX DELAY TIME EXCEEDED
     3582   01 00C40    32E00C72              LW,14    TST39CT           FETCH COUNT
     3583   01 00C41    35E00C73              STW,14   TST39SAV          SAVE
     3584   01 00C42    32500CC8              LW,5     IOMDT              IO MAX DELAY TIME
     3585   01 00C43    CDC00FC6              TIO,12   *:DEVADDR         TEST FOR CHANNEL END
     3586   01 00C44    68C00C47              BCR,12   %+3               B: CHANNEL END DETECTED
     3587   01 00C45    64500C43              BDR,5    %-2               B: LOOP TILL CHANNEL END DETECTED
     3588   01 00C46    68000C61              B        TST3905           TIO MAX DELAY TIME EXCEEDED
     3589   01 00C47    32E00C73     TST39021 LW,14    TST39SAV
     3590   01 00C48    38E00C72              SW,14    TST39CT           SUBTRACT FROM STARTING COUNT
     3591   01 00C49    35E00C74              STW,14   TST39PT           SAVE COUNT IN TABLE
     3592   01 00C4A    6AF01093              BAL,15   :DELAYD           DISARM COUNTER 4 INTERRUPT
     3593   01 00C4B    22700000 A            LI,7     0                 CLEAR R7
     3594   01 00C4C    32E00C74     TST3903  LW,14    TST39PT           ADD PRINT TIME TO ACCUMULATOR
     3595   01 00C4D    22400000 A            LI,4     0                 CLEAR R4
     3596   01 00C4E    325E0C80              LW,5     KSLEW,7           CALCUTE
     3597   01 00C4F    3640000E A            DW,4     14                    INCH PER SECOND
     3598   01 00C50    32C00005 A            LW,12    5                 INCHES PER SECONDS
     3599   01 00C51    EAF00217              BAL,15   *:DECC            CONVERT TO EBCDIC
     3600   01 00C52    55F20C78              STH,15   TST39MSG+3,1      STORE IN MESSAGE
     3601   01 00C53    72EE0C7F              LB,14    LINEPIN,7         GET LINES PER INCH
     3602   01 00C54    75E40C7A              STB,14   TST39MSG+5,2      STORE IN MSG
     3603   01 00C55    22E000C0 A            LI,14    X'C0'             SPACE 0 LINE
     3604   01 00C56    75E00E18              STB,14   FORMAT            STORE IN FORMAT BYTE
     3605   01 00C57    22E00026 A            LI,14    38                FETCH BYTE COUNT
     3606   01 00C58    55E20DCB              STH,14   IOCD5+3,1         STORE IN IOCD
     3607   01 00C59    22E031D4              LI,14    BA(TST39MSG)      MESSAGE BYTE ADDRESS
     3608   01 00C5A    55E20DCA              STH,14   IOCD5+2,1         STORE IN IOCD
     3609   01 00C5B    220006E4              LI,0     DA(IOCD5)         LOAD IOCD
     3610   01 00C5C    CCC00FC6              SIO,12   *:DEVADDR         PRINT MESSAGE
     3611   01 00C5D    32500CC8              LW,5     IOMDT             IO MAX DELAY TIME
     3612   01 00C5E    CDC00FC6              TIO,12   *:DEVADDR         TEST FOR CHANNEL END
     3613   01 00C5F    68C00C64              BCR,12   %+5               B: CHANNEL END DETECTED
     3614   01 00C60    64500C5E              BDR,5    %-2               B: LOOP TILL CHANNEL END DETECTED
     3615   01 00C61    EAF0021C     TST3905  BAL,15   *:PRINT           TIO MAX DELAY TIME EXCEEDED
     3616   01 00C62    00000CC9              DATA     IOMDTMSG          'IO MAX DELAY TIME EXCEEDED'
     3617   01 00C63    E8000214              B        *:MONITOR         RETURN TO MONITOR
     3618   01 00C64    21700001 A            CI,7     1                 IS R7 SET
     3619   01 00C65    68100AA1              BGE      TST3B             GO TO TST3
     3620   01 00C66    33100007 A            MTW,1    7                 INCR R7
     3621   01 00C67    68000C4C              B        TST3903           REPEAT CALCULATION
     3622                            *
     3623   01 00C68    6AF01093     TST39CTR BAL,15   :DELAYD           DISARM COUNTER 4
     3624   01 00C69    EAF0021C              BAL,15   *:PRINT           PRINT MESSAGE
     3625   01 00C6A    00000CF2              DATA     TSTCTZMG
     3626   01 00C6B    E8000214              B        *:MONITOR         RETURN TO MONITOR
     3627   01 00C6C    33F00C72     TST39MTW MTW,-1   TST39CT
     3628   01 00C6D    0F000C6E     TST39CTZ XPSD,0   TST39Z
     3629                                     BOUND    8
     3630   01 00C6E    00000000 A   TST39Z   DATA     0,0
            01 00C6F    00000000 A
     3631   01 00C70    00000C68              DATA     TST39CTR,0
            01 00C71    00000000 A
     3632   01 00C72    00000000 A   TST39CT  DATA     0
     3633   01 00C73    00000000 A   TST39SAV DATA     0
     3634   01 00C74    00000000 A   TST39PT  DATA     0
     3635   01 00C75    C9D5C3C8 A   TST39MSG TEXT     'INCHES/SEC =  XX  FOR X LINES PER INCH'
            01 00C76    C5E261E2 A
            01 00C77    C5C3407E A
            01 00C78    4040E7E7 A
            01 00C79    4040C6D6 A
            01 00C7A    D940E740 A
            01 00C7B    D3C9D5C5 A
            01 00C7C    E240D7C5 A
            01 00C7D    D940C9D5 A
            01 00C7E    C3C84040 A
     3636   01 00C7F    F8F64040 A   LINEPIN  DATA     X'F8F64040'
     3637   01 00C80    000009C4 A   KSLEW    DATA     2500,3000
            01 00C81    00000BB8 A
     3638                            *                                                                      *
     3639                            *                                                                      *
     3640                            *        *** TST310 - UTILITY TEST ***                                 *
     3641                            *                                                                      *
     3642                            * RUN ALL UTILITY TEST IN SEQUENCE                                     *
     3643                            *                                                                      *
     3644                            * P1 = 10                                                              *
     3645                            * P2 = LINE COUNT                                                      *
     3646                            *                                                                      *
     3647                            * NO OTHER PARAMETER REQUIRES                                          *
     3648                            *                                                                      *
     3649   01 00C82    22E00000 A   TST310   LI,14    0
     3650   01 00C83    35E0091F              STW,14   TSTP1             RESET P1 COUNT
     3651   01 00C84    35200921              STW,2    TST1FLAG          SET TST310 FLAG
     3652   01 00C85    68000A82              B        TST3D             RUN UTILITY TEST
     3653   01 00C86    3310091F     TST31001 MTW,1    TSTP1             INCREMENT P1
     3654   01 00C87    22E000C4 A            LI,14    X'C4'
     3655   01 00C88    75E00E18              STB,14   FORMAT            SPACE 4 LINE FORMAT
     3656   01 00C89    32E0091F              LW,14    TSTP1             P1
     3657   01 00C8A    21E00006 A            CI,14    6                 TSTP1:6
     3658   01 00C8B    69100A82              BL       TST3D             RUN UTILITY TEST
     3659   01 00C8C    68300C86              BE       TST31001          B: INCREMENT P1
     3660   01 00C8D    21E00009 A            CI,14    9                 TSTP1:9
     3661   01 00C8E    68200A82              BLE      TST3D             TSTP1 <= 9
     3662   01 00C8F    EAF0138D              BAL,15   *:SENSE
     3663   01 00C90    2E000C90              WAIT     %
     3664   01 00C91    68000C82              B        TST310            LOOP
     3665   01 00C92    E8000214              B        *:MONITOR         RETURN TO MONITOR
     3666   01 00C93    33F00C9B     TST33MTW MTW,-1   TST33CT
     3667   01 00C94    0F000C96     TST33CTZ XPSD,0   TST33Z
     3668                                     BOUND    8
     3669   01 00C96    00000000 A   TST33Z   DATA     0,0
            01 00C97    00000000 A
     3670   01 00C98    00000B4F              DATA     TST33CTR,0
            01 00C99    00000000 A
     3671   01 00C9A    00000000 A   TST3INDX DATA     0
     3672   01 00C9B    00000000 A   TST33CT  DATA     0
     3673   01 00C9C    00000000 A   TST33SAV DATA     0
     3674   01 00C9D    00000000 A   TST33X   DATA     0
     3675   01 00C9E                 TST33PT  RES      36
     3676   01 00CC2    00000000 A   TST3CNT  DATA     0
     3677   01 00CC3    00000000 A   TST3LINE DATA     0
     3678   01 00CC4    00000000 A   T3LINE1  DATA     0
     3679   01 00CC5    00000000 A   CHARTBLX DATA     0
     3680   01 00CC6    00000000 A   SYNCCHAR DATA     0
     3681   01 00CC7    00000000 A   LASTCHAR DATA     0
     3682   01 00CC8    00009C40 A   IOMDT    DATA     40000
     3683   01 00CC9    10C9D640 A   IOMDTMSG TEXTC    'IO DELAY TIMEOUT'
            01 00CCA    C4C5D3C1 A
            01 00CCB    E840E3C9 A
            01 00CCC    D4C5D6E4 A
            01 00CCD    E3404040 A
     3684                            *
     3685   01 00CCE    00000D35     TABLEMSG DATA     HDMSG1
     3686   01 00CCF    00000D3C              DATA     HDMSG2
     3687   01 00CD0    00000D42              DATA     HDMSG3
     3688   01 00CD1    00000D48              DATA     HDMSG4
     3689   01 00CD2    00000D4D              DATA     HDMSG5
     3690   01 00CD3    00000D52              DATA     HDMSG6
     3691   01 00CD4    00000D56              DATA     HDMSG7
     3692   01 00CD5    00000D5F              DATA     HDMSG8
     3693   01 00CD6    00000D65              DATA     HDMSG9
     3694   01 00CD7    00000D6D              DATA     HDMSG10
     3695   01 00CD8    00000D71              DATA     HDMSG11
     3696   01 00CD9    00000AA8     TST3TST  DATA     TST30             HAMMER REGISTRATION TEST PATTERN
     3697   01 00CDA    00000AB2              DATA     TST31             CHECKERBOARD PATTERN
     3698   01 00CDB    00000AC7              DATA     TST32             RIPPLE TEST PATTERN
     3699   01 00CDC    00000AE0              DATA     TST33             PRINTER SPEED TEST
     3700   01 00CDD    00000B53              DATA     TST34             PRINTER LOAD TEST PATTERN
     3701   01 00CDE    00000B67              DATA     TST35             BROADSIDE TEST PATTERN
     3702   01 00CDF    00000B77              DATA     TST36             SELECTABLE CHAR/PRINT POSITION TEST
     3703   01 00CE0    00000BAA              DATA     TST37             SKIP LINE TEST
     3704   01 00CE1    00000BEE              DATA     TST38             CHANNEL SEARCH TEST
     3705   01 00CE2    00000C26              DATA     TST39             PAPER SLEW SPEED TEST
     3706   01 00CE3    00000C82             DATA     TST310           UTILITY TEST
     3707                            *
     3708   01 00CE4    40D3C9D5 A   TST33MSG TEXT     ' LINES/MINUTE = XXXX    '
            01 00CE5    C5E261D4 A
            01 00CE6    C9D5E4E3 A
            01 00CE7    C5407E40 A
            01 00CE8    E7E7E7E7 A
            01 00CE9    40404040 A
     3709   01 00CEA    D4E261D3 A            TEXT     'MS/LINE:  MAX.= XXXX  MIN.= XXXX'
            01 00CEB    C9D5C57A A
            01 00CEC    4040D4C1 A
            01 00CED    E74B7E40 A
            01 00CEE    E7E7E7E7 A
            01 00CEF    4040D4C9 A
            01 00CF0    D54B7E40 A
            01 00CF1    E7E7E7E7 A
     3710   01 00CF2    2AC3D5E3 A   TSTCTZMG TEXTC    'CNT4 = 0 INTER RECD  BEFORE TST33 COMPLETE'
            01 00CF3    F4407E40 A
            01 00CF4    F040C9D5 A
            01 00CF5    E3C5D940 A
            01 00CF6    D9C5C3C4 A
            01 00CF7    4040C2C5 A
            01 00CF8    C6D6D9C5 A
            01 00CF9    40E3E2E3 A
            01 00CFA    F3F340C3 A
            01 00CFB    D6D4D7D3 A
            01 00CFC    C5E3C540 A
     3711   01 00CFD    27C5D9D9 A   TST36MSG TEXTC    'ERROR: CHARACTER/POSITION NOT SPECIFIED'
            01 00CFE    D6D97A40 A
            01 00CFF    C3C8C1D9 A
            01 00D00    C1C3E3C5 A
            01 00D01    D961D7D6 A
            01 00D02    E2C9E3C9 A
            01 00D03    D6D540D5 A
            01 00D04    D6E340E2 A
            01 00D05    D7C5C3C9 A
            01 00D06    C6C9C5C4 A
     3712   01 00D07    1FE2E4D7 A   TST37M1  TEXTC    'SUPPRESS SPACE AFTER PRINT ----'
            01 00D08    D7D9C5E2 A
            01 00D09    E240E2D7 A
            01 00D0A    C1C3C540 A
            01 00D0B    C1C6E3C5 A
            01 00D0C    D940D7D9 A
            01 00D0D    C9D5E340 A
            01 00D0E    60606060 A
     3713   01 00D0F    40404040 A   TST37M2  TEXT     '                                '
            01 00D10    40404040 A
            01 00D11    40404040 A
            01 00D12    40404040 A
            01 00D13    40404040 A
            01 00D14    40404040 A
            01 00D15    40404040 A
            01 00D16    40404040 A
     3714   01 00D17    60606060 A            TEXT     '---- SHOULD PRINT SAME LINE'
            01 00D18    40E2C8D6 A
            01 00D19    E4D3C440 A
            01 00D1A    D7D9C9D5 A
            01 00D1B    E340E2C1 A
            01 00D1C    D4C540D3 A
            01 00D1D    C9D5C540 A
     3715   01 00D1E    21E2D7C1 A   TST37M3  TEXTC    'SPACED   XX LINES FORMAT BYTE  XX'
            01 00D1F    C3C5C440 A
            01 00D20    4040E7E7 A
            01 00D21    40D3C9D5 A
            01 00D22    C5E240C6 A
            01 00D23    D6D9D4C1 A
            01 00D24    E340C2E8 A
            01 00D25    E3C54040 A
            01 00D26    E7E74040 A
     3716   01 00D27    0FE3D6D7 A   TST37TP  TEXTC    'TOP - OF - PAGE'
            01 00D28    406040D6 A
            01 00D29    C6406040 A
            01 00D2A    D7C1C7C5 A
     3717   01 00D2B    25E2D2C9 A   TST38MSG TEXTC    'SKIPPED TO CHANNEL XX  FORMAT BYTE XX'
            01 00D2C    D7D7C5C4 A
            01 00D2D    40E3D640 A
            01 00D2E    C3C8C1D5 A
            01 00D2F    D5C5D340 A
            01 00D30    E7E74040 A
            01 00D31    C6D6D9D4 A
            01 00D32    C1E340C2 A
            01 00D33    E8E3C540 A
            01 00D34    E7E74040 A
     3718   01 00D35    18C8C1D4 A   HDMSG1   TEXTC    'HAMMER REGISTRATION TEST'
            01 00D36    D4C5D940 A
            01 00D37    D9C5C7C9 A
            01 00D38    E2E3D9C1 A
            01 00D39    E3C9D6D5 A
            01 00D3A    40E3C5E2 A
            01 00D3B    E3404040 A
     3719   01 00D3C    14C3C8C5 A   HDMSG2   TEXTC    'CHECKERBOARD PATTERN'
            01 00D3D    C3D2C5D9 A
            01 00D3E    C2D6C1D9 A
            01 00D3F    C440D7C1 A
            01 00D40    E3E3C5D9 A
            01 00D41    D5404040 A
     3720   01 00D42    15C3C8C1 A   HDMSG3   TEXTC    'CHARACTER RIPPLE TEST'
            01 00D43    D9C1C3E3 A
            01 00D44    C5D940D9 A
            01 00D45    C9D7D7D3 A
            01 00D46    C540E3C5 A
            01 00D47    E2E34040 A
     3721   01 00D48    12D7D9C9 A   HDMSG4   TEXTC    'PRINTER SPEED TEST'
            01 00D49    D5E3C5D9 A
            01 00D4A    40E2D7C5 A
            01 00D4B    C5C440E3 A
            01 00D4C    C5E2E340 A
     3722   01 00D4D    11D7D9C9 A   HDMSG5   TEXTC    'PRINTER LOAD TEST'
            01 00D4E    D5E3C5D9 A
            01 00D4F    40D3D6C1 A
            01 00D50    C440E3C5 A
            01 00D51    E2E34040 A
     3723   01 00D52    0EC2D9D6 A   HDMSG6   TEXTC    'BROADSIDE TEST'
            01 00D53    C1C4E2C9 A
            01 00D54    C4C540E3 A
            01 00D55    C5E2E340 A
     3724   01 00D56    20E2C5D3 A   HDMSG7   TEXTC    'SELECTABLE PATTERN/POSITION TEST'
            01 00D57    C5C3E3C1 A
            01 00D58    C2D3C540 A
            01 00D59    D7C1E3E3 A
            01 00D5A    C5D9D561 A
            01 00D5B    D7D6E2C9 A
            01 00D5C    E3C9D6D5 A
            01 00D5D    40E3C5E2 A
            01 00D5E    E3404040 A
     3725   01 00D5F    17D7D9C9 A   HDMSG8   TEXTC    'PRINTER LINE SPACE TEST'
            01 00D60    D5E3C5D9 A
            01 00D61    40D3C9D5 A
            01 00D62    C540E2D7 A
            01 00D63    C1C3C540 A
            01 00D64    E3C5E2E3 A
     3726   01 00D65    1CD7D9C9 A   HDMSG9   TEXTC    'PRINTER VERTICAL FORMAT TEST'
            01 00D66    D5E3C5D9 A
            01 00D67    40E5C5D9 A
            01 00D68    E3C9C3C1 A
            01 00D69    D340C6D6 A
            01 00D6A    D9D4C1E3 A
            01 00D6B    40E3C5E2 A
            01 00D6C    E3404040 A
     3727   01 00D6D    0FD7C1D7 A   HDMSG10  TEXTC    'PAPER SLEW TEST'
            01 00D6E    C5D940E2 A
            01 00D6F    D3C5E640 A
            01 00D70    E3C5E2E3 A
     3728   01 00D71    0DE4E3C9 A   HDMSG11  TEXTC    'UTILITY  TEST'
            01 00D72    D3C9E3E8 A
            01 00D73    4040E3C5 A
            01 00D74    E2E34040 A
     3729                            *                                                                      *
     3730                            *                *** INDEXED PRINTER  CHARACTERS              ***      *
     3731                            *                *** CHARACTER SEQUENCE = PRINT DRUM SEQUENCE ***      *
     3732                            *                                                                      *
     3733   01 00D75    405A7F7B A   CHARTBL  DATA     X'405A7F7B'       SP     #
     3734   01 00D76    5B6C507D A            DATA     X'5B6C507D'       % % & '
     3735   01 00D77    4D5D5C4E A            DATA     X'4D5D5C4E'       ( ) * +
     3736   01 00D78    6B604B61 A            DATA     X'6B604B61'       , - . /
     3737   01 00D79    F0F1F2F3 A            DATA     X'F0F1F2F3'       0 1 2 3
     3738   01 00D7A    F4F5F6F7 A            DATA     X'F4F5F6F7'       4 5 6 7
     3739   01 00D7B    F8F97A5E A            DATA     X'F8F97A5E'       8 9 : ;
     3740   01 00D7C    4C7E6E6F A            DATA     X'4C7E6E6F'       < = >
     3741   01 00D7D    7CC1C2C3 A            DATA     X'7CC1C2C3'       @ A B C
     3742   01 00D7E    C4C5C6C7 A            DATA     X'C4C5C6C7'       D E F G
     3743   01 00D7F    C8C9D1D2 A            DATA     X'C8C9D1D2'       H I J K
     3744   01 00D80    D3D4D5D6 A            DATA     X'D3D4D5D6'       L M N O
     3745   01 00D81    D7D8D9E2 A            DATA     X'D7D8D9E2'       P Q R S
     3746   01 00D82    E3E4E5E6 A            DATA     X'E3E4E5E6'       T U V W
     3747   01 00D83    E7E8E9B4 A            DATA     X'E7E8E9B4'       X Y Z
     3748   01 00D84    B1B56A6D A            DATA     X'B1B56A6D'
     3749   01 00D85    4A818283 A            DATA     X'4A818283'        A B C
     3750   01 00D86    84858687 A            DATA     X'84858687'       D E F G
     3751   01 00D87    88899192 A            DATA     X'88899192'       H I J K
     3752   01 00D88    93949596 A            DATA     X'93949596'       L M N O
     3753   01 00D89    979899A2 A            DATA     X'979899A2'       P Q R S
     3754   01 00D8A    A3A4A5A6 A            DATA     X'A3A4A5A6'       T U V W
     3755   01 00D8B    A7A8A9B2 A            DATA     X'A7A8A9B2'       X Y Z
     3756   01 00D8C    4FB35F40 A            DATA     X'4FB35F40'
     3757   01 00D8D    405A7F7B A            DATA     X'405A7F7B'       SP    #
     3758   01 00D8E    5B6C507D A            DATA     X'5B6C507D'       % % & '
     3759   01 00D8F    4D5D5C4E A            DATA     X'4D5D5C4E'       ( ) * +
     3760   01 00D90    6B604B61 A            DATA     X'6B604B61'       , - . /
     3761   01 00D91    F0F1F2F3 A            DATA     X'F0F1F2F3'       0 1 2 3
     3762   01 00D92    F4F5F6F7 A            DATA     X'F4F5F6F7'        4 5 6 7
     3763   01 00D93    F8F97A5E A            DATA     X'F8F97A5E'       8 9 : ;
     3764   01 00D94    4C7E6E6F A            DATA     X'4C7E6E6F'       < = >
     3765   01 00D95    00010203 A   INVCTBL1 DATA     X'00010203'
     3766   01 00D96    04050607 A            DATA     X'04050607'
     3767   01 00D97    08090A0B A            DATA     X'08090A0B'
     3768   01 00D98    0C0D0E0F A            DATA     X'0C0D0E0F'
     3769   01 00D99    10111213 A            DATA     X'10111213'
     3770   01 00D9A    14151617 A            DATA     X'14151617'
     3771   01 00D9B    18191A1B A            DATA     X'18191A1B'
     3772   01 00D9C    1C1D1E1F A            DATA     X'1C1D1E1F'
     3773   01 00D9D    20212223 A            DATA     X'20212223'
     3774   01 00D9E    24252627 A            DATA     X'24252627'
     3775   01 00D9F    28292A2B A            DATA     X'28292A2B'
     3776   01 00DA0    2C2D2E2F A            DATA     X'2C2D2E2F'
     3777   01 00DA1    30313233 A            DATA     X'30313233'
     3778   01 00DA2    34353637 A            DATA     X'34353637'
     3779   01 00DA3    38393A3B A            DATA     X'38393A3B'
     3780   01 00DA4    3C3D3E3F A            DATA     X'3C3D3E3F'
     3781   01 00DA5    41424344 A            DATA     X'41424344'
     3782   01 00DA6    45464748 A            DATA     X'45464748'
     3783   01 00DA7    49515253 A            DATA     X'49515253'
     3784   01 00DA8    54555657 A            DATA     X'54555657'
     3785   01 00DA9    58596263 A            DATA     X'58596263'
     3786   01 00DAA    64656667 A            DATA     X'64656667'
     3787   01 00DAB    68697071 A            DATA     X'68697071'
     3788   01 00DAC    72737475 A            DATA     X'72737475'
     3789   01 00DAD    76777879 A            DATA     X'76777879'
     3790   01 00DAE    808A8B8C A   INVCTBL2 DATA     X'808A8B8C'
     3791   01 00DAF    8D8E8F90 A            DATA     X'8D8E8F90'
     3792   01 00DB0    9A9B9C9D A            DATA     X'9A9B9C9D'
     3793   01 00DB1    9E9FA0A1 A            DATA     X'9E9FA0A1'
     3794   01 00DB2    AAABACAD A            DATA     X'AAABACAD'
     3795   01 00DB3    AEAFB0B6 A            DATA     X'AEAFB0B6'
     3796   01 00DB4    B7B8B9BA A            DATA     X'B7B8B9BA'
     3797   01 00DB5    BBBCBDBE A            DATA     X'BBBCBDBE'
     3798   01 00DB6    BFC0CACB A            DATA     X'BFC0CACB'
     3799   01 00DB7    CCCDCECF A            DATA     X'CCCDCECF'
     3800   01 00DB8    D0DADBDC A            DATA     X'D0DADBDC'
     3801   01 00DB9    DDDEDFE0 A            DATA     X'DDDEDFE0'
     3802   01 00DBA    E1EAEBEC A            DATA     X'E1EAEBEC'
     3803   01 00DBB    EDEFFAFB A            DATA     X'EDEFFAFB'
     3804   01 00DBC    FCFDFEFF A            DATA     X'FCFDFEFF'
     3805   01 00DBD    00000000 A   INVCTBL3 DATA     0
     3806                            *
     3807                                     BOUND    8
     3808   01 00DBE    03003860     IOCD1    GEN,8,24 X'03',BA(FORMAT)  FORMAT
     3809   01 00DBF    10000001 A            GEN,8,24 X'10',1
     3810   01 00DC0    05003860     IOCD2    GEN,8,24 X'05',BA(FORMAT)  FORMAT
     3811   01 00DC1    80000001 A            GEN,8,24 X'80',1           (DATA CHAIN)
     3812   01 00DC2    05004F68              GEN,8,24 X'05',BA(BUFFER2) PRINT
     3813   01 00DC3    10000084 A            GEN,8,24 X'10',132
     3814   01 00DC4    01004F68     IOCD3    GEN,8,24 X'01',BA(BUFFER2) PRINT
     3815   01 00DC5    10000084 A            GEN,8,24 X'10',132
     3816   01 00DC6    01004F68     IOCD4    GEN,8,24 X'01',BA(BUFFER2) PRINT
     3817   01 00DC7    10000084 A            GEN,8,24 X'10',132         (VARIABLE BUFFER ADDRESS)
     3818   01 00DC8    05003860     IOCD5    GEN,8,24 X'05',BA(FORMAT)  FORMAT
     3819   01 00DC9    80000001 A            GEN,8,24 X'80',1           (DATA CHAIN)
     3820   01 00DCA    05000000 A            GEN,8,24 X'05',0           PRINT
     3821   01 00DCB    00000000 A            GEN,8,24 X'00',0           (VARIABLE BUFFER ADDR, BYTE CNT)
     3822   01 00DCC    01004F68     IOCD6    GEN,8,24 X'01',BA(BUFFER2) PRINT
     3823   01 00DCD    00000084 A            GEN,8,24 X'00',132
     3824   01 00DCE    01004EE4     IOCD7    GEN,8,24 X'01',BA(BUFFER1) PRINT
     3825   01 00DCF    00000084 A            GEN,8,24 X'00',132
     3826   01 00DD0    01000000 A   IOCD8    GEN,8,24 X'01',0           PRINT
     3827   01 00DD1    10000000 A            GEN,8,24 X'10',0           (VARIABLE BUFFER ADDR, BYTE CNT)
     3828   01 00DD2    05003860     IOCD9    GEN,8,24 X'05',BA(FORMAT)  FORMAT
     3829   01 00DD3    80000001 A            GEN,8,24 X'80',1           (DATA CHAIN)
     3830   01 00DD4    05000000 A            GEN,8,24 X'05',0           PRINT
     3831   01 00DD5    10000000 A            GEN,8,24 X'10',0           (VARIABLE BUFFER ADDR, BYTE CNT)
     3832   01 00DD6    00004F68     IOCD10   GEN,8,24 X'00',BA(BUFFER2) ORDER
     3833   01 00DD7    00000001 A            GEN,8,24 X'00',1           (VARIABLE ORDER)
     3834   01 00DD8    03003860     IOCD11   GEN,8,24 X'03',BA(FORMAT)  FORMAT
     3835   01 00DD9    00000001 A            GEN,8,24 X'00',1
     3836   01 00DDA    05003860     IOCD12   GEN,8,24 X'05',BA(FORMAT)  FORMAT
     3837   01 00DDB    80000001 A            GEN,8,24 X'80',1           (DATA CHAIN)
     3838   01 00DDC    05004F68              GEN,8,24 X'05',BA(BUFFER2) PRINT
     3839   01 00DDD    00000084 A            GEN,8,24 X'00',132
     3840   01 00DDE    05003860     IOCD13   GEN,8,24 X'05',BA(FORMAT)  FORMAT
     3841   01 00DDF    80000001 A            GEN,8,24 X'80',1           (DATA CHAIN)
     3842   01 00DE0    01004F68     IOCD14   GEN,8,24 X'01',BA(BUFFER2) PRINT
     3843   01 00DE1    00000000 A            GEN,8,24 X'00',0           (VARIABLE BYTE CNT)
     3844   01 00DE2    05003860     IOCD16   GEN,8,24 X'05',BA(FORMAT)  FORMAT
     3845   01 00DE3    00000001 A            GEN,8,24 X'00',1           (VARIABLE FLAG)
     3846   01 00DE4    03004F68     IOCD15   GEN,8,24 X'03',BA(BUFFER2) PRINT
     3847   01 00DE5    00000000 A            GEN,8,24 X'00',0           (VARIABLE BYTE CNT)
     3848   01 00DE6    00004F68     IOCD17   GEN,8,24 X'00',BA(BUFFER2)
     3849   01 00DE7    00000000 A            GEN,8,24 X'00',0           (VARIABLE ORDER, BYTE CNT)
     3850   01 00DE8    04004FEC     IOCD18   GEN,8,24 X'04',BA(BUFFER3) SENSE ORDER
     3851   01 00DE9    00000084 A            GEN,8,24 X'00',132
     3852   01 00DEA    04004FEC     IOCD19   GEN,8,24 X'04',BA(BUFFER3) SENSE ORDER
     3853   01 00DEB    00000000 A            GEN,8,24 X'00',0           (VARIABLE BYTE COUNT)
     3854   01 00DEC    03003860     IOCD20   GEN,8,24 X'03',BA(FORMAT)  FORMAT
     3855   01 00DED    00000001 A            GEN,8,24 0,1               (VARIABLE FLAG)
     3856   01 00DEE    00003860     IOCD21   GEN,8,24 X'00',BA(FORMAT)  FORMAT
     3857   01 00DEF    04000001 A            GEN,8,24 X'04',1           (INVALID ORDER)
     3858   01 00DF0    45003860     IOCD22   GEN,8,24 X'45',BA(FORMAT)  PRINT WITH FORMAT
     3859   01 00DF1    80000001 A            GEN,8,24 X'80',1           (DATA CHAIN)
     3860   01 00DF2    45004F68              GEN,8,24 X'45',BA(BUFFER2)
     3861   01 00DF3    00000084 A            GEN,8,24 X'00',132
     3862   01 00DF4    00003860     IOCD23   GEN,8,24 X'00',BA(FORMAT)  VARIABLE ORDER
     3863   01 00DF5    80000001 A            GEN,8,24 X'80',1
     3864   01 00DF6    05004F68              GEN,8,24 X'05',BA(BUFFER2)
     3865   01 00DF7    20000084 A            GEN,8,24 X'20',132
     3866   01 00DF8    05003860              GEN,8,24 X'05',BA(FORMAT)
     3867   01 00DF9    80000001 A            GEN,8,24 X'80',1
     3868   01 00DFA    05004F68              GEN,8,24 X'05',BA(BUFFER2)
     3869   01 00DFB    00000084 A            GEN,8,24 0,132
     3870   01 00DFC    01004F68     IOCD24   GEN,8,24 X'01',BA(BUFFER2) PRINT
     3871   01 00DFD    10000001 A            GEN,8,24 X'10',1           (CHANNEL END)
     3872   01 00DFE    05003860     IOCD25   GEN,8,24 X'05',BA(FORMAT)  FORMAT
     3873   01 00DFF    80000001 A            GEN,8,24 X'80',1           (DATA CHAIN)
     3874   01 00E00    05004EE4              GEN,8,24 X'05',BA(BUFFER1) PRINT
     3875   01 00E01    10000084 A            GEN,8,24 X'10',132
     3876   01 00E02    05003860     IOCD26   GEN,8,24 X'05',BA(FORMAT)  FORMAT
     3877   01 00E03    80000001 A            GEN,8,24 X'80',1           (DATA CHAIN)
     3878   01 00E04    05000000 A            GEN,8,24 X'05',0           PRINT
     3879   01 00E05    10000000 A            GEN,8,24 X'10',0           (VARIABLE BUFFER ADDR, BYTE CNT)
     3880   01 00E06    01001EBC     IOCD27   GEN,8,24 X'01',BA(T15MSG)
     3881   01 00E07    10000026 A            GEN,8,24 X'10',38
     3882   01 00E08    01004EE4     IOCD28   GEN,8,24 X'01',BA(BUFFER1) PRINT WITH DATA CHAIN FLAG
     3883   01 00E09    80000001 A            GEN,8,24 X'80',1           VARIABLE BYTE COUNT
     3884   01 00E0A    08000706              GEN,8,24 X'08',DA(IOCD29)  VARIABLE IOCD DW
     3885   01 00E0B    80000001 A            GEN,8,24 X'80',1           IOP HALT FLAG
     3886   01 00E0C    08000704     IOCD29   GEN,8,24 X'08',DA(IOCD28)  DOUBLE TIC
     3887   01 00E0D    80000001 A            GEN,8,24 X'80',1           IOP HALT FLAG
     3888   01 00E0E    01004EE4     IOCD30   GEN,8,24 X'01',BA(BUFFER1) VARIABLE BUFFER ADDR
     3889   01 00E0F    00000085 A            GEN,8,24 X'00',133         VARIABLE BYTE COUNT
     3890   01 00E10    01001DD4     IOCD31   GEN,8,24 X'01',BA(T15MSGA) PRINT
     3891   01 00E11    10000084 A            GEN,8,24 X'10',132
     3892   01 00E12    01001E58     IOCD32   GEN,8,24 X'01',BA(T15MSGB) PRINT
     3893   01 00E13    1000005C A            GEN,8,24 X'10',92
     3894   01 00E14    010023EC     IOCD33   GEN,8,24 X'01',BA(T22MSG)  PRINT
     3895   01 00E15    10000029 A            GEN,8,24 X'10',41
     3896   01 00E16    01004EE4     IOCD34   GEN,8,24 X'01',BA(BUFFER1) PRINT
     3897   01 00E17    00000084 A            GEN,8,24 X'00',132         VARIABLE BYTE COUNT
     3898                            *
     3899   01 00E18    00000000 A   FORMAT   DATA     0
     3900   01 00E19    40404040 A   CHARBLNK DATA     X'40404040'       BLANK CHARACTERS
     3901                            *
1 C00   21:10 JUN 20,'83    TELEFILE LINE PRINTER DIAGNOSTIC 960-0607-H02                         PAGE   27
A    3903                            *
     3904                            *        *** DATA - DIRECTIVE ***                                      *
     3905                            *                                                                      *
     3906                            * THIS DIRECTIVE ALLOWS THE USER TO DEFINE THE DATA PATTERN TO BE      *
     3907                            * USED WITH THE UTILITY TEST  (TST36 ONLY).                            *
     3908                            *                                                                      *
     3909                            * PARAMETER P1 DETERMINES THE PATTERN TYPE:                            *
     3910                            *                                                                      *
     3911                            *    P1 = 0 - FIXED DATA PATTERN                                       *
     3912                            *             P2 - 8 HEXADECIMAL DIGITS FIXED DATA PATTERN             *
     3913                            *                                                                      *
     3914                            *    P1 = 1 - INCREMENT DATA PATTERN                                   *
     3915                            *             P2 - 8 HEXADECIMAL DIGITS STARTING PATTERN               *
     3916                            *             P3 - 8 HEXADECIMAL DIGITS INCREMENT VALUE                *
     3917                            *                                                                      *
     3918                            *    P1 = 2 - RANDOM DATA PATTERN                                      *
     3919                            *             P2 - 8 HEXADECIMAL DIGITS RANDOM NUMBER SEED             *
     3920                            *             (THIS SEED WILL ONLY BE USED FOR WRITTING; THE SEED FOR  *
     3921                            *              READ DATA IS OBTAINED FROM THE 1ST WORD OF THE BUFFER)  *
     3922                            *                                                                      *
     3923                            *    P1 = 3 - SPREAD 4 BYTE SEEK ADDRESS AS DATA.                      *
     3924                            *                                                                      *
     3925                            *    P1 = 4 - SPECIFY PRINT PATTERN                                    *
     3926                            *             P2 - STARTING COLUMN (1 THRU 132)                        *
     3927                            *             P3 - ENDING COLUMN (1 THRU 132)                          *
     3928                            *             P4 - EBCDIC CHARACTER STRING                             *
     3929                            *             0 < P2 <= P3 <= 132                                      *
     3930                            *                                                                      *
     3931                            * NO OTHER VALUES OF P1 ARE ALLOWED. PARAMETERS 2 AND 3 ARE REQUIRED   *
     3932                            * IF INDICATED ABOVE. (RANGE: 0 <= P2 OR P3 <= FFFFFFFF)               *
     3933                            *                                                                      *
     3934   01 00E1A    35100E61     :DATA    STW,1    PARNOERR          SET INITIAL PAR NO
     3935   01 00E1B    72820211              LB,8     :PSW,1            FETCH PAR COUNT
     3936   01 00E1C    22E00004 A            LI,14    4
     3937   01 00E1D    31E00201              CW,14    :P1               COMP 4 TO P1
     3938   01 00E1E    68100E24              BGE      %+6               B: P1<=4
     3939   01 00E1F    32800E61     :DATA1   LW,8     PARNOERR
     3940   01 00E20    3580030A              STW,8    :PIT10            SAVE PAR NO
     3941   01 00E21    EAF00229              BAL,15   *:PREPORT         PRINT PARAMETER ERROR
     3942   01 00E22    00000328              DATA     :DIC+8
     3943   01 00E23    E8000214              B        *:MONITOR         EXIT TO MONITOR
     3944   01 00E24    31300201              CW,3     :P1               COMP 3 TO P1
     3945   01 00E25    68100E38              BGE      :DATA2            B: P1<= 3
     3946   01 00E26    32E00202              LW,14    :P2               FETCH P2
     3947   01 00E27    69200E2A              BGZ      %+3               B: P2 = 0 >
     3948   01 00E28    35200E61              STW,2    PARNOERR          SET PAR NO
     3949   01 00E29    68000E1F              B        :DATA1            GO TO PRINT PAR ERROR
     3950   01 00E2A    31E00203              CW,14    :P3               COMP P2 TO P3
     3951   01 00E2B    69200E28              BG       %-3               B: GO TO PRINT PAR ERROR
     3952   01 00E2C    32E00203              LW,14    :P3               FETCH P3
     3953   01 00E2D    21E00132 A            CI,14    X'132'            COMP P3 TO X'132'
     3954   01 00E2E    68200E31              BLE      :DATA4            B: P3 > X'132'
     3955   01 00E2F    35300E61              STW,3    PARNOERR          SET PAR NO
     3956   01 00E30    68000E1F              B        :DATA1
     3957   01 00E31    32E00202     :DATA4   LW,14    :P2               FETCH P2
     3958   01 00E32    6AF00E4F              BAL,15   HEXTDECC          CONVERT HEX TO DECIMAL
     3959   01 00E33    35A00202              STW,10   :P2               STORE IN P2
     3960   01 00E34    32E00203              LW,14    :P3               FETCH P3
     3961   01 00E35    6AF00E4F              BAL,15   HEXTDECC          CONVERT HEX TO DECIMAL
     3962   01 00E36    35A00203              STW,10   :P3               STORE IN P3
     3963   01 00E37    68000E4B              B        :DATA3
     3964   01 00E38    21800001 A   :DATA2   CI,8     1
     3965   01 00E39    69100E1F              BL       :DATA1            B: PARCNT < 1
     3966   01 00E3A    33100E61              MTW,1    PARNOERR          INCR. PAR NO
     3967   01 00E3B    31300201              CW,3     :P1               COMPARE 3 TO P1
     3968   01 00E3C    69300E40              BNE      %+4               B: 3 NE P1
     3969   01 00E3D    21800002 A            CI,8     2
     3970   01 00E3E    68100E1F              BGE      :DATA1            B: PARCNT => 2
     3971   01 00E3F    68000E4B              B        :DATA3            PARAMETERS OK
     3972   01 00E40    21800002 A            CI,8     2
     3973   01 00E41    69100E1F              BL       :DATA1            B: PARCNT < 2
     3974   01 00E42    33100E61              MTW,1    PARNOERR          INCR. PAR NO.
     3975   01 00E43    31100201              CW,1     :P1               COMPARE 1 TO P1
     3976   01 00E44    68300E48              BE       %+4               B: 1 = P1
     3977   01 00E45    21800003 A            CI,8     3
     3978   01 00E46    68100E1F              BGE      :DATA1            B: PARCNT NE 3
     3979   01 00E47    68000E4B              B        :DATA3
     3980   01 00E48    33100E61              MTW,1    PARNOERR          INCR. PAR NO
     3981   01 00E49    21800003 A            CI,8     3
     3982   01 00E4A    69300E1F              BNE      :DATA1            B: 3 NE CNT
     3983   01 00E4B    02200040 A   :DATA3   LCI      4
     3984   01 00E4C    2AA00201              LM,R10   :P1               FETCH AND STORE
     3985   01 00E4D    2BA00E5D              STM,10   :DATAP1               PARAMETERS
     3986   01 00E4E    E8000214              B        *:MONITOR         EXIT TO MONITOR
     3987                            *
     3988   01 00E4F    22A00000 A   HEXTDECC LI,10    0                 CLEAR ACCMULATOR
     3989   01 00E50    7294000E A            LB,9     14,2              FETCH FIRST 4 BITS
     3990   01 00E51    4B90142F              AND,9    =X'F'
     3991   01 00E52    23800064 A            MI,8     100               MULTIPLY BY 100
     3992   01 00E53    30A00009 A            AW,10    9                 ADD TO ACCUMULATOR
     3993   01 00E54    7296000E A            LB,9     14,3              FETCH SECOND 4 BITS
     3994   01 00E55    4B901430              AND,9    =X'F0'
     3995   01 00E56    2590047C A            SAS,9    -4
     3996   01 00E57    2380000A A            MI,8    10                MULTIPLY BY 10
     3997   01 00E58    30A00009 A            AW,10    9                 ADD TO ACCUMULATOR
     3998   01 00E59    7296000E A            LB,9     14,3              FETCH LAST 4 BITS
     3999   01 00E5A    4B90142F              AND,9    =X'F'
     4000   01 00E5B    30A00009 A            AW,10    9                 ADD TO ACCUMULATOR
     4001   01 00E5C    E800000F A            B        *15               EXIT
     4002                            *
     4003   01 00E5D    00000000 A   :DATAP1  DATA     0
     4004   01 00E5E    00000000 A   :DATAP2  DATA     0
     4005   01 00E5F    00000000 A   :DATAP3  DATA     0
     4006   01 00E60    00000000 A   :DATAP4  DATA     0
     4007   01 00E61    00000000 A   PARNOERR DATA     0                 PARAMETER NO. ERROR
     4008                            *
1 C00   21:10 JUN 20,'83    TELEFILE LINE PRINTER DIAGNOSTIC 960-0607-H02                         PAGE   28
A    4010                            *                                                                      *
     4011                            *             *** LIMIT DIRECTIVE ***                                  *
     4012                            * THIS DIRECTIVE ALLOWS THE USER TO LIMIT PROGRAM OPERATIONS           *
     4013                            * SPECIFIED BY P1 AND P2.                                              *
     4014                            *                                                                      *
     4015                            *     P1 = 1  LIMIT COMPARE ERROR PRINTOUT TO P2 LIMES.                *
     4016                            *                                                                      *
     4017                            *     P1 = 2  LIMIT RANDOM EXERCISER RANDOM DELAY TIME BETWEEN      *
     4018                            *             P2 AND P3 MILLISECONDS (WHERE 0<=P2<=P3<=99,999).       *
     4019                            *
     4020   01 00E62    32400201     :LIMIT   LW,4     :P1               PARAMETER P1
     4021   01 00E63    21400001 A            CI,4     1
     4022   01 00E64    68300E6B              BE       :LIM1             P1 = 1
     4023   01 00E65    21400002 A            CI,4     2
     4024   01 00E66    68300E74              BE       :LIM3             P1 = 2
     4025   01 00E67    3510030A              STW,1    :PIT10            ERROR: P1 > 2
     4026   01 00E68    EAF00229     :LIM0    BAL,15   *:PREPORT         REPORT
     4027   01 00E69    0000032A              DATA     :DIC+10           'LIMT'
     4028   01 00E6A    E8000214              B        *:MONITOR         RETURN TO MONITOR
     4029   01 00E6B    32500203     :LIM1    LW,5     :P3               PARAMETER  P3
     4030   01 00E6C    68300E6F              BEZ      %+3               P3 = 0
     4031   01 00E6D    3530030A     :LIM2    STW,3    :PIT10            ERROR: P3 > 0
     4032   01 00E6E    68000E68              B        :LIM0             GO TO REPORT
     4033   01 00E6F    32800202              LW,8     :P2               PARAMETER P2
     4034   01 00E70    69200E72              BGZ      %+2               P2>0; COMPARE COUNT = P2
     4035   01 00E71    2280FFFF A            LI,8     X'FFFF'           SET COMPARE COUNT TO MAX
     4036   01 00E72    35801044              STW,8    :COMPLIM          SAVE
     4037   01 00E73    E8000214              B        *:MONITOR         RETURN TO MONITOR
     4038   01 00E74    32500202     :LIM3    LW,5     :P2               PARAMETER P2
     4039   01 00E75    31500203              CW,5     :P3               P2:P3
     4040   01 00E76    68200E79              BLE      %+3               P2<=P3
     4041   01 00E77    3520030A              STW,2    :PIT10            ERROR: P2>P3
     4042   01 00E78    68000E68              B        :LIM0             GO TO REPORT
     4043   01 00E79    32600203              LW,6     :P3               PARAMETER P3
     4044   01 00E7A    2161869F A            CI,6     99999             TEST FOR P3<= 99999
     4045   01 00E7B    69200E6D              BG       :LIM2             ERROR: P3>99999
     4046   01 00E7C    02200030 A            LCI      3
     4047   01 00E7D    2B400E7F              STM,4    :LIMITP1          SAVE P1,P2,P3
     4048   01 00E7E    E8000214              B        *:MONITOR         RETURN TO MOMITOR
     4049                            *
     4050   01 00E7F    00000000 A   :LIMITP1 DATA     0
     4051   01 00E80    00000000 A   :LIMITP2 DATA     0
     4052   01 00E81    00000000 A   :LIMITP3 DATA     0
1 C00   21:10 JUN 20,'83    TELEFILE LINE PRINTER DIAGNOSTIC 960-0607-H02                         PAGE   29
A    4054                            *
     4055                            *                *** ISSUE SIO, TIO, HIO, TDV, AIO ***
     4056                            *
     4057                            * THE ISSUE SUBROUTINE ISSUES AN SIO, TIO, HIO, TDV, OR AIO TO
     4058                            *  SPECIFIED DEVICE.  STATUS MASK IS COMPARED WITH RETURNED DEVICE
     4059                            *   STATUS, CONDITION CODES.  ERROR CONDITIONS ARE PRINTED.
     4060                            *
     4061                            *       INPUT PARAMETERS:
     4062                            *
     4063                            *
     4064                            *
     4065                            *               <<CALLING SEQUENCE >>
     4066                            *
     4067                            *        BAL,15   (NAME OF SEQUENCE DESIRED; :SIO  :TIO  :HIO :TDV,:AIO)
     4068                            *        DATA     (MASK 0=MASK OUT BIT POSITION, 1=SAVE BIT POSITION
     4069                            *       *              FOR BIT POSITIONS 0-17
     4070                            *       *              BIT POSITION 30 = COMPARE DEV-ADDR <AIO ONLY>
     4071                            *       *              BIT POSITION 31 = IF 1 INHIBIT PRINTING)
     4072                            *        DATA     (EXPECTED STATUS BIT POSITIONS 0-15
     4073                            *       *         (EXPECTED CONDITION CODES 16,17)
     4074                            *        B        (RETURNS HERE IF NO ERROR)
     4075                            *                 (RETURNS HERE IF THERE WAS AN ERROR)
     4076                            *
     4077                            *
     4078                            *
     4079                            *       REGISTERS DISTURBED:
     4080                            *
     4081                            *                 14
     4082                            *
     4083                            *       OUTPUT PARAMETERS:
     4084                            *
     4085                            *         NORMAL EXIT-RETURN ADDRESS
     4086                            *
     4087                            *                 I S S U E  S I O
     4088                            *
     4089   01 00E82    CCC00FC6     :SIO     SIO,12   *:DEVADDR         ISSUE SIO
     4090   01 00E83    35D00F9D              STW,13   :STATUSCC         SAVE STATUS
     4091   01 00E84    74040F9D              STCF     :STATUSCC,2       SAVE CONDITION CODES
     4092   01 00E85    22E00000 A   :SIO1    LI,14    0                 LOAD TYPE OF OPERATION
     4093   01 00E86    68000E9B              B        :STATEST          GO TEST STATUS & CONDITION CODES
     4094                            *
     4095                            *                 I S S U E  T I O
     4096                            *
     4097   01 00E87    CDC00FC6     :TIO     TIO,12   *:DEVADDR         ISSUE TIO
     4098   01 00E88    35D00F9D              STW,13   :STATUSCC         SAVE STATUS
     4099   01 00E89    74040F9D              STCF     :STATUSCC,2       SAVE CONDITION CODES
     4100   01 00E8A    22E00001 A   :TIO1    LI,14    1                 LOAD TYPE OF OPERATION
     4101   01 00E8B    68000E9B              B        :STATEST          GO TEST STATUS & CONDITION CODES
     4102                            *
     4103                            *                 I S S U E  H I O
     4104                            *
     4105   01 00E8C    CFC00FC6     :HIO     HIO,12   *:DEVADDR         ISSUE HIO
     4106   01 00E8D    35D00F9D              STW,13   :STATUSCC         SAVE STATUS
     4107   01 00E8E    74040F9D              STCF     :STATUSCC,2       SAVE CONDITION CODES
     4108   01 00E8F    22E00002 A   :HIO1    LI,14    2                 LOAD TYPE OF OPERATION
     4109   01 00E90    68000E9B              B        :STATEST          GO TEST STATUS & CONDITION CODES
     4110                            *
     4111                            *                 I S S U E  T D V
     4112                            *
     4113   01 00E91    CEC00FC6     :TDV     TDV,12   *:DEVADDR         ISSUE TDV
     4114   01 00E92    35D00F9D              STW,13   :STATUSCC         SAVE STATUS
     4115   01 00E93    74040F9D              STCF     :STATUSCC,2       SAVE CONDITION CODES
     4116   01 00E94    22E00003 A   :TDV1    LI,14    3                 LOAD TYPE OF OPERATION
     4117   01 00E95    68000E9B              B        :STATEST          GO TEST STATUS & CONDITION CODES
     4118                            *
     4119                            *                 I S S U E  A I O
     4120                            *
     4121   01 00E96    6ED00000 A   :AIO     AIO,13   0                 ISSUE AIO
     4122   01 00E97    35D00F9D              STW,13   :STATUSCC         SAVE STATUS
     4123   01 00E98    74040F9D              STCF     :STATUSCC,2       SAVE CONDITION CODES
     4124   01 00E99    22E00004 A   :AIO1    LI,14    4                 LOAD TYPE OF OPERATION
     4125   01 00E9A    68000E9B              B        :STATEST          GO TEST STATUS & CONDITION CODES
     4126                            *
     4127                            *
     4128                            *                 T E S T  F O R  A N Y  E R R O R S
     4129                            *
     4130                            *
     4131   01 00E9B    35E00F9C     :STATEST STW,14   :TYPE             SAVE TYPE OF I/O OPERATION
     4132   01 00E9C    35F00F9B              STW,15   :IORTN
     4133   01 00E9D    B2E00F9B              LW,14    *:IORTN           FETCH MASK
     4134   01 00E9E    B2F20F9B              LW,15    *:IORTN,1         FETCH EXPECTED STATUS
     4135   01 00E9F    4BE01431              AND,14   L(X'FFFFC000')    MASK OUT; PRINT INHIBIT & DEV AD BIT
     4136   01 00EA0    4BF0000E A            AND,15   14                MASK EXPECTED STATUS
     4137   01 00EA1    4BE00F9D              AND,14   :STATUSCC         MASK RECEIVED STATUS TO MASK
     4138   01 00EA2    31E0000F A            CW,14    15                COMPARE RECEIVED AND EXPECTED STATUS
     4139   01 00EA3    69300EAA              BNE      :CCTEST           IF ERROR GO TEST CONDITION CODES
     4140   01 00EA4    B1200F9B              CW,2     *:IORTN           IS THIS A TEST OF DEV ADDR
     4141   01 00EA5    E8440F9B              BAZ      *:IORTN,2         IF NOT RETURN
     4142   01 00EA6    32E0000D A            LW,14    13                LOAD RECEIVED STATUS
     4143   01 00EA7    4BE01432              AND,14   L(X'7FF')         MASKOUT ALL BUT DEVICE ADDR
     4144   01 00EA8    31E00FC6              CW,14    :DEVADDR          COMPARE WITH EXPECTED DEV ADDR
     4145   01 00EA9    E8340F9B              BE       *:IORTN,2         IF EQUAL RETURN
     4146                            *
     4147                            *
     4148                            *
     4149   01 00EAA    B1100F9B     :CCTEST  CW,1     *:IORTN           TEST PRINT INHIBIT BIT
     4150   01 00EAB    E9460F9B              BANZ     *:IORTN,3         IF SET TAKE ERROR RETURN
     4151   01 00EAC    15400F92              STD,4    :REG0405          SAVE REGISTERS 4 & 5
     4152   01 00EAD    15C00F96              STD,12   :REG1213          SAVE REGISTERS 12 & 13
     4153   01 00EAE    32C00FC6              LW,12    :DEVADDR          LOAD EXPECTED DEVICE ADDRESS
     4154   01 00EAF    EAF00218              BAL,15   *:HEXC            CONVERT EBCDIC
     4155   01 00EB0    35F00F71              STW,15   :DAERM+6          SAVE IN DEVICE ADDR ERROR MESSAGE
     4156   01 00EB1    35F00F81              STW,15   :STATEM1+12       SAVE IN STATUS MESSAGE
     4157   01 00EB2    70340F9D              LCF      :STATUSCC,2       LOAD CONDITION CODES
     4158   01 00EB3    32400F9C              LW,4     :TYPE             LOAD TYPE OF I/O OPERATION
     4159   01 00EB4    22500000 A            LI,5     0                 ZERO CC3,4
     4160   01 00EB5    68C00EC3              BCR,12   :DEVADER          CC1,2 = 0,0
     4161   01 00EB6    68800EB9              BCR,8    :CCERR1           CC1,2 = 0,1
     4162   01 00EB7    68400EBE              BCR,4    :CCERR2           CC1,2 = 1,0
     4163   01 00EB8    68000ED0              B        :CCERR3           CC1,2 = 1,1
     4164                            *
     4165                            *                 C C 1 , 2  =  0 , 1
     4166                            *
     4167   01 00EB9    32580F12     :CCERR1  LW,5     :ERRADR1,4        LOAD ADDRESS OF MSG
     4168   01 00EBA    35500EBC              STW,5    %+2               SAVE ADDRESS OF MSG
     4169   01 00EBB    EAF0021C              BAL,15   *:PRINT           PRINT MSG
     4170   01 00EBC    00000000 A            DATA     0
     4171   01 00EBD    68000EC3              B        :DEVADER          GO TO TEST DEV ADDR
     4172                            *
     4173                            *                 C C 1 , 2  =  1 , 0
     4174                            *
     4175   01 00EBE    32580F17     :CCERR2  LW,5     :ERRADR2,4        LOAD ADDRESS OF MSG
     4176   01 00EBF    35500EC1              STW,5    %+2               SAVE ADDRESS OF MSG
     4177   01 00EC0    EAF0021C              BAL,15   *:PRINT           PRINT MSG
     4178   01 00EC1    00000000 A            DATA     0
     4179   01 00EC2    68000ECD              B        :DEVEXIT          GO TO ERROR EXIT
     4180                            *
     4181                            *                 R E P O R T  D E V - A D D R  I F  I T  E X I S T S
     4182                            *
     4183   01 00EC3    21400004 A   :DEVADER CI,4     4                 TEST FOR AIO
     4184   01 00EC4    69300EDA              BNE      :STATERR              IF NOT,GO TEST STATUS
     4185   01 00EC5    32C0000D A            LW,12    13                LOAD DEVICE ADDRESS
     4186   01 00EC6    4BC01433              AND,12   L(X'1FFF')        SAVE ONLY DEVICE ADDRESS
     4187   01 00EC7    31C00FC6              CW,12    :DEVADDR          IS IT = TO EXPECTED ADDRESS
     4188   01 00EC8    68300EDA              BE       :STATERR              GO TO TEST STATUS
     4189   01 00EC9    EAF00218              BAL,15   *:HEXC            CONVERT TO EBCDIC
     4190   01 00ECA    35F00F74              STW,15   :DAERM+9          SAVE IN DEVICE ERROR MESSAGE
     4191   01 00ECB    EAF0021C              BAL,15   *:PRINT           PRINTOUT DEVICE ADDRESS ERROR
     4192   01 00ECC    00000F6B              DATA     :DAERM            MESSAGE
     4193   01 00ECD    12400F92     :DEVEXIT LD,4     :REG0405          RESTORE REG 4 & 5
     4194   01 00ECE    12C00F96              LD,12    :REG1213          RESTORE REG 12 & 13
     4195   01 00ECF    E8060F9B              B        *:IORTN,3         TAKE ERROR RETURN
     4196                            *
     4197                            *                 C C 1, 2  =  1 , 1
     4198                            *
     4199   01 00ED0    32580F1C     :CCERR3  LW,5     :ERRADR3,4        LOAD ERROR MSG ADDRESS
     4200   01 00ED1    35500ED8              STW,5    :CCPRINT          SAVE ADDRESS OF MESSAGE TO BE PRINTED
     4201   01 00ED2    22500004 A            LI,5     4                 LOAD INDEX
     4202   01 00ED3    21400004 A            CI,4     4                 IS THIS AN AIO
     4203   01 00ED4    68300ED7              BE       %+3               IF SO DON'T ADD DEVICE ADDRESS
     4204   01 00ED5    32C00F71              LW,12    :DAERM+6          LOAD A CONVERTED DEV ADDR
     4205   01 00ED6    B5CA0ED8              STW,12   *:CCPRINT,5       SAVE DEVICE ADDRESS
     4206   01 00ED7    EAF0021C              BAL,15   *:PRINT           PRINT ERROR
     4207   01 00ED8    00000000 A   :CCPRINT DATA     0
     4208   01 00ED9    68000ECD              B        :DEVEXIT          TAKE ERROR EXIT
     4209                            *
     4210                            *                 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
     4211                            *
     4212   01 00EDA    B2E00F9B     :STATERR LW,14    *:IORTN           FETCH MASK
     4213   01 00EDB    B2F20F9B              LW,15    *:IORTN,1         FETCH EXPECTED STATUS
     4214   01 00EDC    4BE01431              AND,14   L(X'FFFFC000')    SAVE ONLY STATUS
     4215   01 00EDD    4BF0000E A            AND,15   14                MASK TO EXPECTED CONDITIONS
     4216   01 00EDE    4BE00F9D              AND,14   :STATUSCC         MASK RECEIVED STATUS TO MASK
     4217   01 00EDF    31E0000F A            CW,14    15                ARE THEY EQUAL
     4218   01 00EE0    68300ECD              BE       :DEVEXIT              IF TAKE ERROR EXIT
     4219   01 00EE1    32580F8D              LW,5     :STATTYP,4        LOAD TYPE OF OPERATION
     4220   01 00EE2    46500F75              XW,5     :STATEM1          SAVE TYPE OF OPERATION AND FETCH BC
     4221   01 00EE3    72500005 A            LB,5     5                 POSITION BYTE COUNT
     4222   01 00EE4    75500F75              STB,5    :STATEM1          SAVE MESSAGE BYTE COUNT
     4223   01 00EE5    EAF0021C              BAL,15   *:PRINT           PRINT STATUS ERROR HEADER MSG
     4224   01 00EE6    00000F75              DATA     :STATEM1
     4225   01 00EE7    15600F94              STD,6    :REG0607          SAVE REGISTER 6 & 7
     4226                            *
     4227   01 00EE8    22600002 A            LI,6     2                 LOAD POINTER
     4228   01 00EE9    B2700F9B              LW,7     *:IORTN           LOAD MASK
     4229   01 00EEA    B2C20F9B              LW,12    *:IORTN,1         LOAD EXPECTED STATUS
     4230   01 00EEB    68000EED              B        %+2               GO TO STATUS MESSAGE BUILDING
     4231                            *
     4232                            *
     4233   01 00EEC    32C00F9D     :STATER1 LW,12    :STATUSCC         LOAD RECEIVED STATUS
     4234   01 00EED    25700074 A            SLS,7    -12
     4235   01 00EEE    25C00074 A            SLS,12   -12               POSITION CC AND STATUS
     4236   01 00EEF    6AF00F03              BAL,15   :BINCOVT          GO TO CONVERT CC
     4237   01 00EF0    25F00070 A            SLS,15   -16               POSITION CC
     4238   01 00EF1    55F20F8A              STH,15   :STATEM2+8,1      STORE CC IN MSG
     4239   01 00EF2    22500012 A            LI,5     18                MSG BYTE INDEX=18
     4240   01 00EF3    22400004 A            LI,4     4                 MINOR INDEX=4
     4241   01 00EF4    6AF00F03              BAL,15   :BINCOVT          CONVERT BINARY TO EBCDIC MASKED
     4242   01 00EF5    75FA0F85              STB,15   :STATEM2+3,5      STATUS BIT TO ERROR MSG
     4243   01 00EF6    205FFFFF A            AI,5     -1                BYTE INDEX-1
     4244   01 00EF7    25F00078 A            SLS,15   -8                ADJUST CONVERTED STATUS BITS
     4245   01 00EF8    64400EF5              BDR,4    %-3               MINOR INDEX-1 NOT ZERO
     4246   01 00EF9    64500EF3              BDR,5    %-6               BYTE INDEX-1 NOT ZERO
     4247   01 00EFA    325C0F8A              LW,5     :EXPOBS-1,6       LOAD EITHER 'OBS' OR 'EXP' MSG
     4248   01 00EFB    46500F82              XW,5     :STATEM2          SAVE TYPE OF OPERATION & FETCH MG BC
     4249   01 00EFC    72500005 A            LB,5     5                 POSITION MSG BYTE COUNT
     4250   01 00EFD    75500F82              STB,5    :STATEM2          SAVE MESSAGE BYTE COUNT
     4251   01 00EFE    EAF0021C              BAL,15   *:PRINT           GO PRINT OUT MSG
     4252   01 00EFF    00000F82              DATA     :STATEM2
     4253   01 00F00    64600EEC              BDR,6    :STATER1          IS THERE ANY MSG LEFT
     4254   01 00F01    12600F94              LD,6     :REG0607          RESTORE REGISTER 6 & 7
     4255   01 00F02    68000ECD              B        :DEVEXIT          TAKE ERROR EXIT
     4256                            *
     4257                            *
     4258                            *
     4259   01 00F03    15400F98     :BINCOVT STD,4    :BIN0405          SAVE REGISTERS 4 & 5
     4260   01 00F04    35F00F9A              STW,15   :BINRTN           SAVE REGISTER  15
     4261   01 00F05    EAF00216              BAL,15   *:BINC            GO CONVERT BINARY TO EBCDIC
     4262   01 00F06    680C0F06              B        %,6               IF IT IS EXPECT MASK
     4263   01 00F07    68000F10              B        :BINEXIT          IF IT IS RECEIVED EXIT
     4264   01 00F08    22400003 A   :BINCOT1 LI,4     3                 LOAD INCREMENT POINTER
     4265   01 00F09    225000E7 A            LI,5     'X'               LOAD A 'X'
     4266   01 00F0A    2570027F A   :BINCOT2 SCS,7    -1                TEST A BIT
     4267   01 00F0B    33000007 A            MTW,0    7                 TEST FOR NEGATIVE
     4268   01 00F0C    69100F0E              BLZ      %+2               IF NEGATIVE,DON'T ADD 'X'
     4269   01 00F0D    7558000F A            STB,5    15,4              STORE 'X'
     4270   01 00F0E    204FFFFF A            AI,4     -1                INCREMENT STORAGE POINTER
     4271   01 00F0F    68100F0A              BGEZ     :BINCOT2          GO TO TEST NEXT BYTE
     4272   01 00F10    12400F98     :BINEXIT LD,4     :BIN0405          RESTORE REGISTER 4 & 5
     4273   01 00F11    E8000F9A              B        *:BINRTN          RETURN
     4274                            *
     4275   01 00F12    00000F21     :ERRADR1 DATA     :CCERM1           ERROR ADDRESS 1-F
     4276   01 00F13    00000F26              DATA     :CCERM2
     4277   01 00F14    00000F2C              DATA     :CCERM3
     4278   01 00F15    00000F32              DATA     :CCERM4
     4279   01 00F16    00000F38              DATA     :CCERM5
     4280   01 00F17    00000F3D     :ERRADR2 DATA     :CCERM6
     4281   01 00F18    00000F41              DATA     :CCERM7
     4282   01 00F19    00000F45              DATA     :CCERM8
     4283   01 00F1A    00000F49              DATA     :CCERM9
     4284   01 00F1B    00000F4D              DATA     :CCERMA
     4285   01 00F1C    00000F51     :ERRADR3 DATA     :CCERMB
     4286   01 00F1D    00000F56              DATA     :CCERMC
     4287   01 00F1E    00000F5B              DATA     :CCERMD
     4288   01 00F1F    00000F60              DATA     :CCERME
     4289   01 00F20    00000F65              DATA     :CCERMF
     4290   01 00F21    10E2C9D6 A   :CCERM1  TEXTC    'SIO-NOT ACCEPTED'
            01 00F22    60D5D6E3 A
            01 00F23    40C1C3C3 A
            01 00F24    C5D7E3C5 A
            01 00F25    C4404040 A
     4291   01 00F26    14E3C9D6 A   :CCERM2  TEXTC    'TIO-SIO NOT POSSIBLE'
            01 00F27    60E2C9D6 A
            01 00F28    40D5D6E3 A
            01 00F29    40D7D6E2 A
            01 00F2A    E2C9C2D3 A
            01 00F2B    C5404040 A
     4292   01 00F2C    14C8C9D6 A   :CCERM3  TEXTC    'HIO-DEV BUSY AT HALT'
            01 00F2D    60C4C5E5 A
            01 00F2E    40C2E4E2 A
            01 00F2F    E840C1E3 A
            01 00F30    40C8C1D3 A
            01 00F31    E3404040 A
     4293   01 00F32    16E3C4E5 A   :CCERM4  TEXTC    'TDV-CC1,2=01-TEST MODE'
            01 00F33    60C3C3F1 A
            01 00F34    6BF27EF0 A
            01 00F35    F160E3C5 A
            01 00F36    E2E340D4 A
            01 00F37    D6C4C540 A
     4294   01 00F38    10C1C9D6 A   :CCERM5  TEXTC    'AIO-UE INTERRUPT'
            01 00F39    60E4C540 A
            01 00F3A    C9D5E3C5 A
            01 00F3B    D9D9E4D7 A
            01 00F3C    E3404040 A
     4295   01 00F3D    0CE2C9D6 A   :CCERM6  TEXTC    'SIO-CC1,2=10'
            01 00F3E    60C3C3F1 A
            01 00F3F    6BF27EF1 A
            01 00F40    F0404040 A
     4296   01 00F41    0CE3C9D6 A   :CCERM7  TEXTC    'TIO-CC1,2=10'
            01 00F42    60C3C3F1 A
            01 00F43    6BF27EF1 A
            01 00F44    F0404040 A
     4297   01 00F45    0CC8C9D6 A   :CCERM8  TEXTC    'HIO-CC1,2=10'
            01 00F46    60C3C3F1 A
            01 00F47    6BF27EF1 A
            01 00F48    F0404040 A
     4298   01 00F49    0CE3C4E5 A   :CCERM9  TEXTC    'TDV-CC1,2=10'
            01 00F4A    60C3C3F1 A
            01 00F4B    6BF27EF1 A
            01 00F4C    F0404040 A
     4299   01 00F4D    0CC1C9D6 A   :CCERMA  TEXTC    'AIO-CC1,2=10'
            01 00F4E    60C3C3F1 A
            01 00F4F    6BF27EF1 A
            01 00F50    F0404040 A
     4300   01 00F51    13E2C9D6 A   :CCERMB  TEXTC    'SIO-NO AR-DEV  XXXX'
            01 00F52    60D5D640 A
            01 00F53    C1D960C4 A
            01 00F54    C5E54040 A
            01 00F55    E7E7E7E7 A
     4301   01 00F56    13E3C9D6 A   :CCERMC  TEXTC    'TIO-NO AR-DEV  XXXX'
            01 00F57    60D5D640 A
            01 00F58    C1D960C4 A
            01 00F59    C5E54040 A
            01 00F5A    E7E7E7E7 A
     4302   01 00F5B    13C8C9D6 A   :CCERMD  TEXTC    'HIO-NO AR-DEV  XXXX'
            01 00F5C    60D5D640 A
            01 00F5D    C1D960C4 A
            01 00F5E    C5E54040 A
            01 00F5F    E7E7E7E7 A
     4303   01 00F60    13E3C4E5 A   :CCERME  TEXTC    'TDV-NO AR-DEV  XXXX'
            01 00F61    60D5D640 A
            01 00F62    C1D960C4 A
            01 00F63    C5E54040 A
            01 00F64    E7E7E7E7 A
     4304   01 00F65    16C1C9D6 A   :CCERMF  TEXTC    'AIO-NO INTERRUPT RECOG'
            01 00F66    60D5D640 A
            01 00F67    C9D5E3C5 A
            01 00F68    D9D9E4D7 A
            01 00F69    E340D9C5 A
            01 00F6A    C3D6C740 A
     4305   01 00F6B    27C1C9D6 A   :DAERM   TEXTC    'AIO-DEV ADDR ERR: EXP  XXXX   REC  XXXX'
            01 00F6C    60C4C5E5 A
            01 00F6D    40C1C4C4 A
            01 00F6E    D940C5D9 A
            01 00F6F    D97A40C5 A
            01 00F70    E7D74040 A
            01 00F71    E7E7E7E7 A
            01 00F72    404040D9 A
            01 00F73    C5C34040 A
            01 00F74    E7E7E7E7 A
     4306   01 00F75    33404040 A   :STATEM1 TEXTC    '           0123 4567 8901 2345 CC1,2 DEV ADDR   XXX'
            01 00F76    40404040 A
            01 00F77    40404040 A
            01 00F78    F0F1F2F3 A
            01 00F79    40F4F5F6 A
            01 00F7A    F740F8F9 A
            01 00F7B    F0F140F2 A
            01 00F7C    F3F4F540 A
            01 00F7D    C3C3F16B A
            01 00F7E    F240C4C5 A
            01 00F7F    E540C1C4 A
            01 00F80    C4D94040 A
            01 00F81    40E7E7E7 A
     4307   01 00F82    23404040 A   :STATEM2 TEXTC    '    STATUS XXXX XXXX XXXX XXXX   XX'
            01 00F83    40E2E3C1 A
            01 00F84    E3E4E240 A
            01 00F85    E7E7E7E7 A
            01 00F86    40E7E7E7 A
            01 00F87    E740E7E7 A
            01 00F88    E7E740E7 A
            01 00F89    E7E7E740 A
            01 00F8A    4040E7E7 A
     4308   01 00F8B    40D6C2E2 A   :EXPOBS  TEXT     ' OBS'
     4309   01 00F8C    40C5E7D7 A            TEXT     ' EXP'
     4310   01 00F8D    40E2C9D6 A   :STATTYP TEXT     ' SIO',' TIO',' HIO',' TDV',' AIO'
            01 00F8E    40E3C9D6 A
            01 00F8F    40C8C9D6 A
            01 00F90    40E3C4E5 A
            01 00F91    40C1C9D6 A
     4311                                     BOUND    8
     4312   01 00F92    00000000 A   :REG0405 DATA     0,0               STORAGE FOR REGS  4 &  5
            01 00F93    00000000 A
     4313   01 00F94    00000000 A   :REG0607 DATA     0,0               STORAGE FOR REG 6 & 7
            01 00F95    00000000 A
     4314   01 00F96    00000000 A   :REG1213 DATA     0,0               STORAGE FOR REGS 12 & 13
            01 00F97    00000000 A
     4315   01 00F98    00000000 A   :BIN0405 DATA     0,0
            01 00F99    00000000 A
     4316   01 00F9A    00000000 A   :BINRTN  DATA     0
     4317   01 00F9B    00000000 A   :IORTN   DATA     0                 STORAGE FOR REG  15
     4318   01 00F9C    00000000 A   :TYPE    DATA     0                 ISSUE TYPE
     4319                            :STATUSCC  ;
     4320   01 00F9D    00000000 A            DATA     0                 RECEVIED STATUS AND CONDITION CODES
1 C00   21:10 JUN 20,'83    TELEFILE LINE PRINTER DIAGNOSTIC 960-0607-H02                         PAGE   30
A    4322                            *
     4323                            *               *** IO EXECUTE ***
     4324                            *
     4325                            * THE IO EXECUTE SUBROUTINE ISSUES A TIO, SIO TO SPECIFIED DEVICE.
     4326                            *  THE SUBROUTINE LOOPS UPON DETECTION OF STATUS OR CC ERROR.
     4327                            *
     4328                            *       INPUT PARAMETERS:
     4329                            *
     4330                            *         REG 0   -DA(IOCD)
     4331                            *         REG 15  -RETURN ADDRESS
     4332                            *         :DEVADDR-DEVICE ADDRESS
     4333                            *
     4334                            *       REGISTERS DISTURBED:
     4335                            *
     4336                            *         (NONE)
     4337                            *
     4338                            *       OUTPUT PARAMETERS:
     4339                            *
     4340                            *         REG 12-SIO COMMAND ADDRESS
     4341                            *         REG 13-SIO DEVICE STATUS, BYTE COUNT
     4342                            *
     4343                            *       WAIT CONDITION-PROGRAM ENTERS WAIT STATE (1) AFTER UNSUCCESSFUL
     4344                            *                      HIO, IO RESET, TIO SEQUENCE OR (2) IF DEVICE
     4345                            *                      MANUAL CONDITION IS DETECTED.
     4346                            *
     4347   01 00F9E    35400FC2     :IOEXEC  STW,R4   :IOSAVE           SAVE REGISTERS 4,11,14,15
     4348   01 00F9F    35B00FC3              STW,R11  :IOSAVE+1
     4349   01 00FA0    15E00FC4              STD,R14  :IOSAVE+2
     4350   01 00FA1    6AF00E87     :IOEXEC1 BAL,R15  :TIO              ISSUE TIO
     4351   01 00FA2    9700C000 A            DATA     X'9700C000'       EXPECTED STATUS
     4352   01 00FA3    10000000 A            DATA     X'10000000'       EXPECTED STATUS
     4353   01 00FA4    68000FA6              B        %+2
     4354   01 00FA5    68000FB1              B        :IOERR1           TIO STATUS ERROR
     4355   01 00FA6    4BD01424              AND,R13  =X'10000000'      MASK DEV STATUS FOR AUTO TEST
     4356   01 00FA7    68300FBE              BCR,3    :IOERR2           DEVICE MANUAL ERROR
     4357   01 00FA8    6AF00E82              BAL,R15  :SIO              ISSUE SIO
     4358   01 00FA9    9700C000 A            DATA     X'9700C000'       STATUS MASK
     4359   01 00FAA    10000000 A            DATA     X'10000000'       EXPECTED STATUS
     4360   01 00FAB    68000FAD              B        %+2
     4361   01 00FAC    68000FA1              B        :IOEXEC1          SIO STATUS ERROR-LOOP TO ISSUE TIO
     4362   01 00FAD    32400FC2              LW,R4    :IOSAVE           RESTORE REGISTERS 4,11,14,15
     4363   01 00FAE    32B00FC3              LW,R11   :IOSAVE+1
     4364   01 00FAF    12E00FC4              LD,R14   :IOSAVE+2
     4365   01 00FB0    E800000F A            B        *R15              EXIT
     4366                            *                                   TIO STATUS ERROR
     4367   01 00FB1    6AF00E8C     :IOERR1  BAL,R15  :HIO              ISSUE HIO
     4368   01 00FB2    10008000 A            DATA     X'10008000'       STATUS MASK
     4369   01 00FB3    10000000 A            DATA     X'10000000'       EXPECTED STATUS
     4370   01 00FB4    68000FA1              B        :IOEXEC1          HIO STATUS ERROR-LOOP TO ISSUE TIO
     4371   01 00FB5    6D000042 A            WD,0     X'42'             IO RESET
     4372   01 00FB6    6D000042 A            WD,0     X'42'
     4373   01 00FB7    6AF00E87              BAL,R15  :TIO              ISSUE TIO
     4374   01 00FB8    9700C000 A            DATA     X'9700C000'       STATUS MASK
     4375   01 00FB9    10000000 A            DATA     X'10000000'       EXPECTED STATUS
     4376   01 00FBA    68000FA1              B        :IOEXEC1          LOOP TO ISSUE TIO
     4377                            *                                   ENTER WAIT STATE
     4378   01 00FBB    EAF0022B     :IOERR1A WAITPROC :IOERM1           'CLEAR WAIT TO CONTINUE'
            01 00FBC    00000FC7
     4379   01 00FBD    68000FA1              B        :IOEXEC1          LOOP TO ISSUE TIO
     4380                            *                                   DEVICE MANUAL ERROR
     4381   01 00FBE    EAF0021C     :IOERR2  BAL,15   *:PRINT           PRINT ERROR MSG
     4382   01 00FBF    00000FCD              DATA     :IOERM2
     4383   01 00FC0    68000FBB              B        :IOERR1A          GO TO WAIT
     4384                            *
     4385                                     BOUND    8
     4386   01 00FC2                 :IOSAVE  RES      4                 REGISTERS 4,11,14,15
     4387   01 00FC6    00000002 A   :DEVADDR DATA     2                 DEVICE ADDRESS
     4388   01 00FC7    16C3D3C5 A   :IOERM1  TEXTC    'CLEAR WAIT TO CONTINUE'
            01 00FC8    C1D940E6 A
            01 00FC9    C1C9E340 A
            01 00FCA    E3D640C3 A
            01 00FCB    D6D5E3C9 A
            01 00FCC    D5E4C540 A
     4389   01 00FCD    0AC4C5E5 A   :IOERM2  TEXTC    'DEV MANUAL'
            01 00FCE    40D4C1D5 A
            01 00FCF    E4C1D340 A
     4390                            *
1 C00   21:10 JUN 20,'83    TELEFILE LINE PRINTER DIAGNOSTIC 960-0607-H02                         PAGE   31
A    4392                            *
     4393                            *                   *** C O M P A R E ***
     4394                            *
     4395                            * THE COMPARE SUBROUTINE COMPARES TWO BUFFER AREAS A WORD AT A
     4396                            *  TIME. AN ERROR COUNT IS GENERATED WHEN UNEQUAL COMPARES ARE
     4397                            *   SENSED. UNEQUAL WORDS ARE PRINTED. ERROR EXIT IF ONE OR MORE
     4398                            *    UNEQUAL COMPARES SENSED.
     4399                            *
     4400                            *       INPUT PARAMETERS:
     4401                            *
     4402                            *           REG 15  -RETURN ADDRESS
     4403                            *           :COMWCNT-NUMBER OF WORDS TO BE COMPARED
     4404                            *           :COMBFRA-EXPECTED BUFFER ADDRESS
     4405                            *           :COMBFRB-OBSERVED BUFFER ADDRESS
     4406                            *           :COMFLAG-ERROR PRINTOUT INHIBIT FLAG (INHIBIT IF <>0)
     4407                            *                    (REGISTERS 8 THRU 11 CAN BE USED AS BUFFERS)
     4408                            *
     4409                            *       REGISTERS DISTURBED:
     4410                            *
     4411                            *           (NONE)
     4412                            *
     4413                            *       OUTPUT PARAMETERS:
     4414                            *
     4415                            *           NORMAL EXIT-RETURN ADDRESS
     4416                            *           ERROR EXIT -RETURN ADDRESS +1
     4417                            *           :COMERRT   -COUNT OF COMPARE ERRORS
     4418                            *
     4419   01 00FD0    02200000 A   :COMPARE LCI      0
     4420   01 00FD1    2B00102B              STM,R0   :COMTEM1          SAVE REGISTERS 0-15
     4421   01 00FD2    22500000 A            LI,R5    0
     4422   01 00FD3    1550103E              STD,R5   :COMERRT          CLEAR ERROR TOTAL, HDR FLAG
     4423   01 00FD4    32401041              LW,R4    :COMBFRA          EXPECTED BUFFER ADDRESS A
     4424   01 00FD5    32501042              LW,R5    :COMBFRB          OBSERVED BUFFER ADDRESS B
     4425   01 00FD6    30401040              AW,R4    :COMWCNT          BUFFER A + WORD COUNT
     4426   01 00FD7    30501040              AW,R5    :COMWCNT          BUFFER B + WORD COUNT
     4427   01 00FD8    1540103C              STD,R4   :COMTEM2          SAVE FINAL BFR ADDRESSES
     4428   01 00FD9    3A401040              LCW,R4   :COMWCNT          -(WORD COUNT)
     4429   01 00FDA    B258103C     :COM1    LW,R5    *:COMTEM2,R4      BUFFER A WORD
     4430   01 00FDB    B158103D              CW,R5    *:COMTEM2+1,R4    BUFFER A WORD:BUFFER B WORD
     4431   01 00FDC    69300FE4              BCS,3    :COM2             UNEQUAL COMPARISON
     4432   01 00FDD    65400FDA              BIR,R4   :COM1             WORD COUNT NOT 0
     4433   01 00FDE    3240103E              LW,R4    :COMERRT          ERROR TOTAL
     4434   01 00FDF    68300FE1              BCR,3    %+2               NO ERROR
     4435   01 00FE0    3310103A              MTW,1    :COMTEM1+15       ERROR-RETURN ADDRESS +1
     4436   01 00FE1    02200000 A            LCI      0
     4437   01 00FE2    2A00102B              LM,R0    :COMTEM1          RESTORE REGISTERS 0-15
     4438   01 00FE3    E800000F A            B        *R15              EXIT
     4439                            *                                   COMPARE ERROR
     4440   01 00FE4    3120091D     :COM2    CW,2     TST1FLGM          IS IT MODEL 7446
     4441   01 00FE5    69300FF6              BNE      :COM21            B NO
     4442   01 00FE6    B2A8103D              LW,10    *:COMTEM2+1,4     BUFFER B WORD
     4443   01 00FE7    22B00080 A            LI,11    X'80'
     4444   01 00FE8    71B0000A A            CB,11    10                IS BYTE = X'80'
     4445   01 00FE9    69300FEB              BNE      %+2               B: NO
     4446   01 00FEA    49501434              OR,5     =X'80000000'      SET BIT 0
     4447   01 00FEB    71B2000A A            CB,11    10,1              IS BYTE = X'80'
     4448   01 00FEC    69300FEE              BNE      %+2               B: NO
     4449   01 00FED    49501435              OR,5     =X'800000'        SET BIT 0
     4450   01 00FEE    71B4000A A            CB,11    10,2              IS BYTE = X'80'
     4451   01 00FEF    69300FF1              BNE      %+2               B: NO
     4452   01 00FF0    49501436              OR,5     =X'8000'          SET BIT 0
     4453   01 00FF1    71B6000A A            CB,11    10,3              IS BYTE = X'80'
     4454   01 00FF2    69300FF4              BNE      %+2               B: NO
     4455   01 00FF3    49501437              OR,5     =X'80'            SET BIT 0
     4456   01 00FF4    B158103D              CW,5     *:COMTEM2+1,4     BUFFER A WORD:BUFFER B WORD
     4457   01 00FF5    68300FDD              BE       :COM1+3           B: EQUAL
     4458   01 00FF6    3310103E     :COM21   MTW,1    :COMERRT          INCR ERROR COUNT
     4459   01 00FF7    32601043              LW,R6    :COMFLAG          PRINT INHIBIT FLAG
     4460   01 00FF8    69300FDD              BCS,3    :COM1+3           PRINT INHIBIT <>0 -RETURN TO COMPARE
     4461   01 00FF9    3260103E              LW,R6    :COMERRT          ERROR TOTAL
     4462   01 00FFA    31601044              CW,R6    :COMPLIM          TEST FOR MAX PRINTOUT
     4463   01 00FFB    69200FE0              BG       :COM1+6           MAX PRINTOUT - BIPASS PO
     4464   01 00FFC    3260103F              LW,R6    :COMTEM3          HEADER FLAG
     4465   01 00FFD    69301011              BCS,3    :COM3             FLAG NOT 0 -NO ERR MSG HDR REQ'D
     4466                            *                                   PRINT ERROR MSG HEADER
     4467   01 00FFE    3310103F              MTW,1    :COMTEM3          SET HDR FLAG
     4468   01 00FFF    32C00FC6              LW,R12   :DEVADDR          DEVICE ADDRESS
     4469   01 01000    EAF00218              BAL,R15  *:HEXC            CONVERT TO EBCDIC
     4470   01 01001    35F0104D              STW,R15  :COMERM1+8        ENTER INTO HDR MSG
     4471   01 01002    EAF0021C              BAL,R15  *:PRINT           PRINT ERROR MSG HEADER
     4472   01 01003    00001045              DATA     :COMERM1
     4473   01 01004    32C01041              LW,R12   :COMBFRA          EXPECTED BUFFER ADDRESS
     4474   01 01005    EAF00218              BAL,R15  *:HEXC            CONVERT TO HEXADECIMAL IN EBCDIC
     4475   01 01006    22600001 A            LI,R6    1                 INDEX=1
     4476   01 01007    55F01052              STH,R15  :COMERM2+4        BFR ADDR TO MSG
     4477   01 01008    52F0000F A            LH,R15   R15
     4478   01 01009    55FC1051              STH,R15  :COMERM2+3,R6
     4479   01 0100A    32C01042              LW,R12   :COMBFRB          OBSERVED BUFFER ADDRESS
     4480   01 0100B    EAF00218              BAL,R15  *:HEXC            CONVERT TO HEXADECIMAL IN EBCDIC
     4481   01 0100C    35F01056              STW,R15  :COMERM2+8        BFR ADDR TO MSG
     4482   01 0100D    EAF0021C              BAL,R15  *:PRINT           PRINT ERROR MSG HEADER
     4483   01 0100E    0000104E              DATA     :COMERM2
     4484   01 0100F    EAF0021C              BAL,R15  *:PRINT           PRINT ERROR MSG HEADER
     4485   01 01010    00001057              DATA     :COMERM3
     4486                            *                                   PRINT EXPECTED, OBSERVED WORDS
     4487   01 01011    32C01040     :COM3    LW,R12   :COMWCNT          NUMBER OF WORDS
     4488   01 01012    30C00004 A            AW,R12   R4                WRD CNT=NUM WORDS + WRD CNT INDEX
     4489   01 01013    EAF00218              BAL,R15  *:HEXC            CONVERT TO HEXADECIMAL IN EBCDIC
     4490   01 01014    35F01073              STW,R15  :COMERM4+13       WRD CNT TO MSG
     4491   01 01015    B2C8103C              LW,R12   *:COMTEM2,R4      EXPECTED WORD
     4492   01 01016    22D01066              LI,R13   :COMERM4          ERROR MSG ADDR
     4493   01 01017    6AE01020              BAL,R14  :COM4             ENTER EXP WRD INTO MSG
     4494   01 01018    EAF0021C              BAL,R15  *:PRINT           PRINT EXPECTED WORD MSG
     4495   01 01019    00001066              DATA     :COMERM4
     4496   01 0101A    B2C8103D              LW,R12   *:COMTEM2+1,R4    OBSERVED WORD
     4497   01 0101B    22D01074              LI,R13   :COMERM5          ERROR MSG ADDR
     4498   01 0101C    6AE01020              BAL,R14  :COM4             ENTER OBS WRD INTO MSG
     4499   01 0101D    EAF0021C              BAL,R15  *:PRINT           PRINT OBSERVED WORD MSG
     4500   01 0101E    00001074              DATA     :COMERM5
     4501   01 0101F    68000FDD              B        :COM1+3           RETURN TO COMPARISON
     4502                            *                                   ENTER STATUS BITS INTO MESSAGE
     4503   01 01020    22600030 A   :COM4    LI,R6    48                BYTE INDEX=48
     4504   01 01021    22700004 A            LI,R7    4                 MINOR INDEX=4
     4505   01 01022    EAF00216              BAL,R15  *:BINC            CONVERT TO BINARY IN EBCDIC
     4506   01 01023    F5FC000D A            STB,R15  *R13,R6           BIT TO MSG
     4507   01 01024    33F00006 A            MTW,-1   R6                BYTE INDEX -1
     4508   01 01025    25F00078 A            SLS,R15  -8                ADJUST EBCDIC BITS
     4509   01 01026    64701023              BDR,R7   %-3               MINOR LOOP INDEX NOT 0
     4510   01 01027    33F00006 A            MTW,-1   R6                BYTE INDEX -1
     4511   01 01028    21600009 A            CI,R6    9                 BYTE INDEX:9
     4512   01 01029    69201021              BCS,2    :COM4+1           BYTE INDEX NOT MINIMUM
     4513   01 0102A    E800000E A            B        *R14              ENTER COMPLETE-EXIT
     4514                            *
     4515   01 0102B                 :COMTEM1 RES      16                REGISTERS 0-15
     4516                                     BOUND    8
     4517   01 0103C    00000000 A   :COMTEM2 DATA     0,0               BUFFER A ADDR, BUFFER B ADDR
            01 0103D    00000000 A
     4518   01 0103E    00000000 A   :COMERRT DATA     0                 COMPARE ERROR TOTAL
     4519   01 0103F    00000000 A   :COMTEM3 DATA     0                 MESSAGE HEADER FLAG
     4520   01 01040    00000000 A   :COMWCNT DATA     0                 BUFFER WORD COUNT
     4521   01 01041    00000000 A   :COMBFRA DATA     0                 EXPECTED BUFFER A
     4522   01 01042    00000000 A   :COMBFRB DATA     0                 OBSERVED BUFFER B
     4523   01 01043    00000000 A   :COMFLAG DATA     0                 PRINT INHIBIT FLAG
     4524   01 01044    0000FFFF A   :COMPLIM DATA     X'FFFF'           COMPARE LIMIT COUNT
     4525   01 01045    23D9C5C1 A   :COMERM1 TEXTC    'READ COMPARE ERROR    DEV ADDR XXXX'
            01 01046    C440C3D6 A
            01 01047    D4D7C1D9 A
            01 01048    C540C5D9 A
            01 01049    D9D6D940 A
            01 0104A    404040C4 A
            01 0104B    C5E540C1 A
            01 0104C    C4C4D940 A
            01 0104D    E7E7E7E7 A
     4526   01 0104E    23C5E7D7 A   :COMERM2 TEXTC    'EXP BFR ADDR XXXX OBS BFR ADDR XXXX'
            01 0104F    40C2C6D9 A
            01 01050    40C1C4C4 A
            01 01051    D940E7E7 A
            01 01052    E7E740D6 A
            01 01053    C2E240C2 A
            01 01054    C6D940C1 A
            01 01055    C4C4D940 A
            01 01056    E7E7E7E7 A
     4527                            :COMERM3 TEXTC    ;
     4528   01 01057    38404040 A    '         0123 4567 8901 2345 6789 0123 4567 8901  WD CNT'
            01 01058    40404040 A
            01 01059    4040F0F1 A
            01 0105A    F2F340F4 A
            01 0105B    F5F6F740 A
            01 0105C    F8F9F0F1 A
            01 0105D    40F2F3F4 A
            01 0105E    F540F6F7 A
            01 0105F    F8F940F0 A
            01 01060    F1F2F340 A
            01 01061    F4F5F6F7 A
            01 01062    40F8F9F0 A
            01 01063    F14040E6 A
            01 01064    C440C3D5 A
            01 01065    E3404040 A
     4529   01 01066    37C5E7D7 A   :COMERM4 TEXT     ' EXPECTED   '
            01 01067    C5C3E3C5 A
            01 01068    C4404040 A
     4530         0000000B                    DO       11
     4531   01 01069    40404040 A            DATA     X'40404040'       SPACES
     4532                                     FIN
            01 0106A    40404040 A
            01 0106B    40404040 A
            01 0106C    40404040 A
            01 0106D    40404040 A
            01 0106E    40404040 A
            01 0106F    40404040 A
            01 01070    40404040 A
            01 01071    40404040 A
            01 01072    40404040 A
            01 01073    40404040 A
     4533   01 01074    34D6C2E2 A   :COMERM5 TEXT     ' OBSERVED   '
            01 01075    C5D9E5C5 A
            01 01076    C4404040 A
     4534         0000000B                    DO       11
     4535   01 01077    40404040 A            DATA     X'40404040'       SPACES
     4536                                     FIN
            01 01078    40404040 A
            01 01079    40404040 A
            01 0107A    40404040 A
            01 0107B    40404040 A
            01 0107C    40404040 A
            01 0107D    40404040 A
            01 0107E    40404040 A
            01 0107F    40404040 A
            01 01080    40404040 A
            01 01081    40404040 A
1 C00   21:10 JUN 20,'83    TELEFILE LINE PRINTER DIAGNOSTIC 960-0607-H02                         PAGE   32
A    4538                            *
     4539                            *                *** DELAY FOR I/O INTERRUPT ***
     4540                            *
     4541                            * THE DELAY SUBROUTINE DELAYS TO AWAIT THE I/O INTERRUPT. TIMEOUT OCCURS
     4542                            *  WHEN SPECIFIED MAXIMUM DELAY TIME IS REACHED.
     4543                            *
     4544                            *       INPUT PARAMETERS:
     4545                            *
     4546                            *         REG 14- MAX DELAY TIME (DELAY =  (R14) MILLISECONDS)
     4547                            *         REG 15- RETURN ADDRESS
     4548                            *
     4549                            *       REGISTERS DISTURBED:
     4550                            *
     4551                            *         (NONE)
     4552                            *
     4553                            *       OUTPUT PARAMETERS:
     4554                            *
     4555                            *         INTERRUPT REC'D EXIT-RETURN ADDRESS
     4556                            *         DELAY TIMEOUT EXIT  -RETURN ADDRESS +1
     4557                            *                             (INTERRUPTS ARMED, ENABLED IF FLAG <>0)
     4558                            *
     4559   01 01082    35F01098     :DELAY   STW,R15  :DELSAVE          SAVE REGISTER 15
     4560   01 01083    25E0007F A            SLS,R14  -1                DELAY TIME /2
     4561   01 01084    3310000E A            MTW,1    R14               COMPENSATE FOR IMMEDIATE CTR4 INTER
     4562   01 01085    35E01097              STW,R14  :DELTIME          TIME TO CTR 4 DECR POSITION
     4563   01 01086    6AF0108F              BAL,R15  :DELAYAE          ARM AND ENABLE COUNTER 4 INTERRUPTS
     4564   01 01087    32F010A0              LW,R15   :INTRECF          I/O INTERRUPT RECEIVED FLAG
     4565   01 01088    68301087              BCR,3    %-1               FLAG=0,I/O INTERRUPT NOT RECEIVED
     4566   01 01089    6AF01093              BAL,R15  :DELAYD           DISARM COUNTER 4 INTERRUPTS
     4567   01 0108A    32F01098     :DELEXIT LW,R15   :DELSAVE          RESTORE REGISTER 15
     4568   01 0108B    E800000F A            B        *R15              EXIT
     4569                            *                                   DELAY TIMEOUT
     4570   01 0108C    6AF01093     :DELTO   BAL,R15  :DELAYD           DISARM COUNTER 4 INTERRUPTS
     4571   01 0108D    33101098              MTW,1    :DELSAVE          RETURN ADDRESS +1
     4572   01 0108E    6800108A              B        :DELEXIT          GO TO DELAY TIMEOUT EXIT
     4573                            *                                   ARM/ENABLE COUNTER 4 INTERRUPTS
     4574   01 0108F    35F01099     :DELAYAE STW,R15  :DELSAVE+1        SAVE REGISTER 15
     4575   01 01090    22F01040 A            LI,R15   X'1040'           BITS 19,25
     4576   01 01091    6DF01200 A            WD,R15   X'1200'           ARM AND ENABLE CTR 4 INTERRUPTS
     4577   01 01092    E8001099              B        *:DELSAVE+1       EXIT
     4578                            *                                   DISARM COUNTER 4 INTERRUPTS
     4579   01 01093    35F01099     :DELAYD  STW,R15  :DELSAVE+1        SAVE REGISTER 15
     4580   01 01094    22F01040 A            LI,R15   X'1040'           BITS 19,25
     4581   01 01095    6DF01100 A            WD,R15   X'1100'           DISARM COUNTER 4 INTERRUPTS
     4582   01 01096    E8001099              B        *:DELSAVE+1       EXIT
     4583                            *
     4584   01 01097    00000000 A   :DELTIME DATA     0                 DELAY TIME CTR 4 DECREMENT POSITION
     4585   01 01098    00000000 A   :DELSAVE DATA     0,0               REGISTER 15
            01 01099    00000000 A
     4586                                     BOUND    8
     4587   01 0109A    00000000 A   :DELAYTO DATA     0,0
            01 0109B    00000000 A
     4588   01 0109C    0000108C              DATA     :DELTO,0
            01 0109D    00000000 A
     4589   01 0109E    0F00109A     :DELXPSD XPSD,0   :DELAYTO
     4590   01 0109F    33F01097     :DELMTW  MTW,-1   :DELTIME
     4591   01 010A0    00000000 A   :INTRECF DATA     0                 INTERRUPT RECEIVED FLAG
1 C00   21:10 JUN 20,'83    TELEFILE LINE PRINTER DIAGNOSTIC 960-0607-H02                         PAGE   33
A    4593                            *
     4594                            *                *** ERROR ROUTINE (MODIFIED) ***
     4595                            *
     4596                            * THIS SUBROUTINE ACCEPTS A STRING OF BYTES, EACH OF WHICH IDENTIFIES
     4597                            * THE STATUS TYPE (BITS 0 - 3), THE BIT TEST (BIT 4) AND THE STATUS
     4598                            * MASK (BITS 5 - 7). THE TESTS WILL BE PERFORMED IN THE SEQUENCE OF THE
     4599                            * BYTE STRING, WITH EACH TEST CHECKING A SPECIFIC STATUS BIT FOR THE
     4600                            * TRUE OR FALSE CONDITION. A ZERO BYTE   WILL INDICATE THE END OF THE
     4601                            * BYTE STRING. ALL UNSPECIFIED BIT POSITIONS WILL NOT BE TESTED        *
     4602                            *
     4603                            * THE BYTE HAS THE FOLLOWING FORMAT:
     4604                            *
     4605                            * BITS 0 - 3                 BIT 4    BITS 5 - 7
     4606                            * ----------                 -----    ----------
     4607                            * 0 NOT ALLOWED              0 FALSE  0 MASK X'80', BYT   -, COM2<COM1
     4608                            * 1 TIO STATUS               1 TRUE   1 MASK X'40', BYT = 0, COM2=COM1
     4609                            * 2 OPERATIONAL STATUS (TIO)   TEST   2 MASK X'20', BYT  +1, COM2=COM1+1
     4610                            * 3 HIO STATUS                        3 MASK X'10', BYT  +2, COM2=COM1+2
     4611                            * 4 TDV STATUS                        4 MASK X'08', BYT  +3, COM2=COM1+3
     4612                            * 5 SIO STATUS                        5 MASK X'04', BYT  +4, COM2=COM1+4
     4613                            * 6 AIO STATUS                        6 MASK X'02', BYT  +5, COM2=COM1+5
     4614                            * 7 INTERRUPT STATUS (AIO)            7 MASK X'01', BYT  +6, COM2=COM1+6
     4615                            * 8 SENSE BYTE A
     4616                            * 9 SENSE BYTE B
     4617                            * A NOT ASSIGNED
     4618                            * B NOT ASSIGNED
     4619                            * C NOT ASSIGNED
     4620                            * D NOT ASSIGNED
     4621                            * E BYTE COUNT TEST (TIO)
     4622                            * F COMMAND ADDR TEST (TIO)
     4623                            *
     4624                            *
     4625                            * SUBROUTINES ARE PROVIDED TO STORE STATUS INFORMATION INTO A TABLE.
     4626                            * IF THE TIO, HIO, TDV, OSB, BYTE CNT, OR COMMAND ADR HAS NOT BEEN
     4627                            * STORED IN THE TABLE, THE ERROR ROUTINE  SR WILL ISSUE THE APPROPRIATE
     4628                            * I/O INSTRUCTION AND STORE THE STATUS BEFORE TESTING COMMENCES.
     4629                            *
     4630                            * CALLING SEQUENCE: BAL,15 :ERRORT
     4631                            *                   DATA   BA(TSEQNNN)
     4632                            * NORMAL EXIT:      B      (CONTINUE TEST)
     4633                            * ERROR  EXIT:             (IDENTIFY SUBTEST)
     4634                            *
     4635                            * REGISTERS DISTURBED: NONE (R1 = 1, R2 = 2, R3 = 3)
     4636                            *
     4637                            * VARIABLES REQUIRED: STATUS IN SAVE TABLE
     4638                            *                     STARTING COMMAND ADR
     4639                            *
     4640                            * OTHER SUBROUTINES: CLEAR STATUS SAVE TABLE (:SAVECLR)
     4641                            *                    STORE STATUS IN SAVE TABLE (:SAVETIO,:SAVEHIO,
     4642                            *                    :SAVETDV,:SAVESIO,:SAVEAIO,:SAVESSA,SAVESSB,:TIO,
     4643                            *                    :TDV,:HIO)
     4644                            *
     4645                            *
     4646                            * THE FOLLOWING EQUATE STATEMENTS ASSIGN LABELS TO BYTE VALUES
     4647                            *
     4648                            TIOF0,TIOF1,TIOF2,TIOF3,TIOF4,TIOF5,TIOF6,TIOF7  :TSEQEQU  X'10'
     4649                            TIOT0,TIOT1,TIOT2,TIOT3,TIOT4,TIOT5,TIOT6,TIOT7  :TSEQEQU  X'18'
     4650                            OSBF0,OSBF1,OSBF2,OSBF3,OSBF4,OSBF5,OSBF6,OSBF7  :TSEQEQU  X'20'
     4651                            OSBT0,OSBT1,OSBT2,OSBT3,OSBT4,OSBT5,OSBT6,OSBT7  :TSEQEQU  X'28'
     4652                            HIOF0,HIOF1,HIOF2,HIOF3,HIOF4,HIOF5,HIOF6,HIOF7  :TSEQEQU  X'30'
     4653                            HIOT0,HIOT1,HIOT2,HIOT3,HIOT4,HIOT5,HIOT6,HIOT7  :TSEQEQU  X'38'
     4654                            TDVF0,TDVF1,TDVF2,TDVF3,TDVF4,TDVF5,TDVF6,TDVF7  :TSEQEQU  X'40'
     4655                            TDVT0,TDVT1,TDVT2,TDVT3,TDVT4,TDVT5,TDVT6,TDVT7  :TSEQEQU  X'48'
     4656                            SIOF0,SIOF1,SIOF2,SIOF3,SIOF4,SIOF5,SIOF6,SIOF7  :TSEQEQU  X'50'
     4657                            SIOT0,SIOT1,SIOT2,SIOT3,SIOT4,SIOT5,SIOT6,SIOT7  :TSEQEQU  X'58'
     4658                            AIOF0,AIOF1,AIOF2,AIOF3,AIOF4,AIOF5,AIOF6,AIOF7  :TSEQEQU  X'60'
     4659                            AIOT0,AIOT1,AIOT2,AIOT3,AIOT4,AIOT5,AIOT6,AIOT7  :TSEQEQU  X'68'
     4660                            ISBF0,ISBF1,ISBF2,ISBF3,ISBF4,ISBF5,ISBF6,ISBF7  :TSEQEQU  X'70'
     4661                            ISBT0,ISBT1,ISBT2,ISBT3,ISBT4,ISBT5,ISBT6,ISBT7  :TSEQEQU  X'78'
     4662                            SBAF0,SBAF1,SBAF2,SBAF3,SBAF4,SBAF5,SBAF6,SBAF7  :TSEQEQU  X'80'
     4663                            SBAT0,SBAT1,SBAT2,SBAT3,SBAT4,SBAT5,SBAT6,SBAT7  :TSEQEQU  X'88'
     4664                            SBBF0,SBBF1,SBBF2,SBBF3,SBBF4,SBBF5,SBBF6,SBBF7  :TSEQEQU  X'90'
     4665                            SBBT0,SBBT1,SBBT2,SBBT3,SBBT4,SBBT5,SBBT6,SBBT7  :TSEQEQU  X'98'
     4666                            BYTN0,BYT00,BYT01,BYT02,BYT03,BYT04,BYT05,BYT06  :TSEQEQU  X'E0'
     4667                            COMNG,COM00,COM01,COM02,COM03,COM04,COM05,COM06  :TSEQEQU  X'F0'
     4668                            *
     4669   01 010A1    02200000 A   :ERRORT  LCI      0
     4670   01 010A2    2B001158              STM,0    :ERRTMP1          SAVE ALL REGISTERS
     4671   01 010A3    B250000F A            LW,5     *15               FETCH BYTE ADDR
     4672   01 010A4    22000000 A            LI,0     0
     4673   01 010A5    35001169              STW,0    :ERRTFLG          RESET ERROR FLAG
     4674   01 010A6    35001187              STW,0    :ERRTFG1           RESET PRINT HEADER FLAG
     4675   01 010A7    726A0000 A   :ERRT0   LB,6     0,5               FETCH BYTE
     4676   01 010A8    6830111D              BCR,3    :ERRT13           BRANCH: BYTE = 0
     4677   01 010A9    22700000 A            LI,7     0
     4678   01 010AA    2560037C A            SCD,6    -4                BITS 0 - 3 RIGHT JUSTIFIED
     4679   01 010AB    35601168              STW,6    :ERRTMP3          SAVE INDEX
     4680   01 010AC    2160000A A            CI,6     10
     4681   01 010AD    691010B3              BCS,1    :ERRT1            BRANCH: RANGE OF INDEX 1 - 9
     4682   01 010AE    2160000D A            CI,6     13
     4683   01 010AF    69201109              BCS,2    :ERRT11           BRANCH: RANGE OF INDEX 14 - 15
     4684   01 010B0    EAF0022B              WAITPROC WAITMSG1          /// HALT ///
            01 010B1    000013B5
     4685   01 010B2    680010B0              B        %-2               PROGRAM ERRORS
     4686                            *
     4687   01 010B3    328C1272     :ERRT1   LW,8     :SAVETAB,6        FETCH STATUS
     4688   01 010B4    691010DA              BCS,1    :ERRT6            BRANCH: STATUS IN TABLE
     4689   01 010B5    21600005 A            CI,6     5
     4690   01 010B6    691010BA              BCS,1    :ERRT2            BRANCH: RANGE OF INDEX 1 - 4
     4691   01 010B7    EAF0022B              WAITPROC WAITMSG1          /// HALT ///
            01 010B8    000013B5
     4692   01 010B9    680010B7              B        %-2               PROGRAM ERROR
     4693   01 010BA    21600003 A   :ERRT2   CI,6     3
     4694   01 010BB    693010C4              BCS,3    :ERRT3            BRANCH: NOT HIO TEST
     4695   01 010BC    6AF00E8C              BAL,15   :HIO              ISSUE HIO AND TEST CC1
     4696   01 010BD    00008000 A            DATA     X'00008000',0
            01 010BE    00000000 A
     4697   01 010BF    680010C1              B        %+2
     4698   01 010C0    68001107              B        :ERRT10           BRANCH: NO ADDR RECOG OR BUSY SIOP
     4699   01 010C1    15C01164              STD,R12  :ERRTMP1+12       SAVE STATUS
     4700   01 010C2    6AF01245              BAL,15   :SAVEHIO          STORE HIO STATUS IN TABLE
     4701   01 010C3    680010B3              B        :ERRT1            FETCH STATUS
     4702                            *
     4703   01 010C4    21600004 A   :ERRT3   CI,6     4
     4704   01 010C5    693010CE              BCS,3    :ERRT4            BRANCH: NOT TDV TEST
     4705   01 010C6    6AF00E91              BAL,15   :TDV              ISSUE TDV AND TEST CC1
     4706   01 010C7    00008000 A            DATA     X'00008000',0
            01 010C8    00000000 A
     4707   01 010C9    680010CB              B        %+2
     4708   01 010CA    68001107              B        :ERRT10           BRANCH: NO ADDR RECOG OR BUSY SIOP
     4709   01 010CB    15C01164              STD,R12  :ERRTMP1+12       SAVE STATUS
     4710   01 010CC    6AF0124A              BAL,15   :SAVETDV          STORE TDV STATUS
     4711   01 010CD    680010B3              B        :ERRT1            FETCH STATUS
     4712                            *
     4713   01 010CE    6AF010D0     :ERRT4   BAL,15   :ERRT5            ISSUE TIO AND STORE STATUS
     4714   01 010CF    680010B3              B        :ERRT1
     4715                            *
     4716   01 010D0    35F010D9     :ERRT5   STW,15   :ERRT5X           SAVE EXIT ADDR
     4717   01 010D1    6AF00E87              BAL,15   :TIO              ISSUE TIO AND TEST CC1
     4718   01 010D2    00008000 A            DATA     X'00008000',0
            01 010D3    00000000 A
     4719   01 010D4    680010D6              B        %+2
     4720   01 010D5    68001107              B        :ERRT10           BRANCH: NO ADDR RECOG OR BUSY SIOP
     4721   01 010D6    15C01164              STD,R12  :ERRTMP1+12       SAVE STATUS
     4722   01 010D7    6AF01237              BAL,15   :SAVETIO          STORE TIO STATUS, OSB, BYT, COM
     4723   01 010D8    E80010D9              B        *:ERRT5X          EXIT                    IN TABLE
     4724   01 010D9    00000000 A   :ERRT5X  DATA     0                 EXIT ADDR
     4725                            *
     4726   01 010DA    22600000 A   :ERRT6   LI,6     0
     4727   01 010DB    25600301 A            SCD,6    1                 T/F BIT
     4728   01 010DC    35601188              STW,6    :ERRTMP2          SAVE TRUE/FALSE TEST FLAG
     4729   01 010DD    25700203 A            SCS,7    3                 BIT POSITION
     4730   01 010DE    35701186              STW,7    :ERRBITS          SAVE
     4731   01 010DF    3A700007 A            LCW,7    7                 FORM -(BIT POSITION)
     4732   01 010E0    25600207 A            SCS,6    7                 ADJUST T/F BIT
     4733   01 010E1    49601436              OR,6     =X'8000'          ADD IN MASK BIT
     4734   01 010E2    4B701438              AND,7    =X'FF'            MASK
     4735   01 010E3    A5600007 A            SLS,6    *7                ADJUST MASK, BIT
     4736   01 010E4    49800006 A            OR,8     6                 ADD TO TABLE VALUE
     4737   01 010E5    72940006 A            LB,9     6,2               MASK
     4738   01 010E6    71920008 A            CB,9     8,1               COMPARE MASK TO STATUS
     4739   01 010E7    694010EB              BCS,4    :ERRT7            BRANCH: MATCH BETWEEN STATUS & MASK
     4740   01 010E8    33001188              MTW,0    :ERRTMP2          TEST TRUE/FALSE FLAG
     4741   01 010E9    683010EE              BCR,3    :ERRT8            BRANCH: FALSE TEST SUCCESSFUL
     4742   01 010EA    680010F2              B        :ERRT9            BRANCH: TRUE TEST UNSUCCESSFUL
     4743                            *
     4744   01 010EB    33001188     :ERRT7   MTW,0    :ERRTMP2          TEST TRUE/FALSE FLAG
     4745   01 010EC    683010F2              BCR,3    :ERRT9            BRANCH: FALSE TEST UNSUCCESSFUL
     4746   01 010ED    680010EE              B        :ERRT8            BRANCH: TRUE TEST SUCESSFUL
     4747                            *
     4748   01 010EE    32601168     :ERRT8   LW,6     :ERRTMP3          FETCH INDEX
     4749   01 010EF    358C1272              STW,8    :SAVETAB,6        SAVE STATUS IN TABLE
     4750   01 010F0    33100005 A   :ERRT8A  MTW,1    5                 INCR BYTE ADDRESS
     4751   01 010F1    680010A7              B        :ERRT0            TEST NEXT BYTE
     4752                            *
     4753   01 010F2    32601168     :ERRT9   LW,6     :ERRTMP3          FETCH INDEX
     4754   01 010F3    358C1272              STW,8    :SAVETAB,6        SAVE STATUS IN TABLE
     4755   01 010F4    32601168     :ERRT9A  LW,6     :ERRTMP3          FETCH INDEX
     4756   01 010F5    327C120A     :ERRT9D1 LW,7     :ERRTYPE,6        FETCH WORD CORRESP. TO INDEX
     4757   01 010F6    3570118B              STW,7    :ERRTMG1+1        STORE IN OUTPUT FORMAT
     4758   01 010F7    327C117E              LW,7     :ERRTTB,6         FETCH INDEX FROM INDEX TABLE
     4759   01 010F8    32601186              LW,6     :ERRBITS          FETCH BIT SELECTED
     4760   01 010F9    D2EC0007 A            LH,14    *7,6              FETCH DOUBLEWORD
     4761   01 010FA    9280000E A            LD,8     *14                   ERROR MESSAGE
     4762   01 010FB    1580118E              STD,8    :ERRTMG1+4        STORE DOUBLEWORD TO OUTPUT FORMAT
     4763   01 010FC    206000F0 A            AI,6     X'F0'             CHANGE HEX TO EBCDIC
     4764   01 010FD    7562118D              STB,6    :ERRTMG1+3,1      STORE BIT NUMBER IN OUTPUT FORMAT
     4765   01 010FE    32601188              LW,6     :ERRTMP2          FETCH TRUE OR FALSE BIT
     4766   01 010FF    206000F0 A            AI,6     X'F0'             CHANGE TO EBCDIC
     4767   01 01100    75641191              STB,6    :ERRTMG1+7,2      STORE T/F BIT IN OUTPUT FORMAT
     4768   01 01101    32601188              LW,6     :ERRTMP2          T/F BIT
     4769   01 01102    48600001 A            EOR,6    1                 COMPLEMENT T/F BIT
     4770   01 01103    206000F0 A            AI,6     X'F0'             CHANGE TO EBCDIC
     4771   01 01104    75601193              STB,6    :ERRTMG1+9,0      STORE COMPLEMENTED T/F BIT
     4772   01 01105    EAF0021C              BAL,15   *:PRINT
     4773   01 01106    0000118A              DATA     :ERRTMG1
     4774                            *
     4775   01 01107    33101169     :ERRT10  MTW,1    :ERRTFLG          INCR. ERROR TALLY
     4776   01 01108    680010F0              B        :ERRT8A
     4777                            *
     4778   01 01109    330C1272     :ERRT11  MTW,0    :SAVETAB,6        TEST FOR STATUS PRESENT
     4779   01 0110A    6910110C              BCS,1    %+2               PRESENT
     4780   01 0110B    6AF010D0              BAL,15   :ERRT5            ISSUE/SAVE TIO STATUS
     4781   01 0110C    2160000F A            CI,6     15                CMDW TEST
     4782   01 0110D    68301115              BE       :ERRT12           YES
     4783   01 0110E    52C21280              LH,12    :SAVETAB+14,1     BYTE COUNT
     4784   01 0110F    683010F0              BEZ      :ERRT8A           ZERO - GO TO UPDATE BYTE ADDR
     4785   01 01110    EAF00218              BAL,15   *:HEXC            CONVERT TO HEXADECIMAL
     4786   01 01111    35F01229              STW,15   :ERRTM3+5         STORE IN MESSAGE
     4787   01 01112    EAF0021C              BAL,15   *:PRINT
     4788   01 01113    00001224              DATA     :ERRTM3           'BYTE COUNT NOT 0'
     4789   01 01114    68001107              B        :ERRT10           GO TO INCR ERROR COUNT
     4790   01 01115    25600304 A   :ERRT12  SCD,6    4
     4791   01 01116    4B601439              AND,6    =7                CMD DIFF
     4792   01 01117    30601286              AW,6     :SAVCOM1          ADD INITIAL CMD ADDR
     4793   01 01118    51621281              CH,6     :SAVETAB+15,R1    TEST FOR PRESET CMD ADDR
     4794   01 01119    683010F0              BE       :ERRT8A           EQUAL - GO TO UPDATE BYTE ADR
     4795   01 0111A    EAF0021C              BAL,15   *:PRINT
     4796   01 0111B    0000122A              DATA     :ERRTM4           'CMD ADDR INCORRECT'
     4797   01 0111C    68001107              B        :ERRT10           GO TO INCR ERROR COUNT
     4798                            *
     4799   01 0111D    224FFFF7 A   :ERRT13  LI,4     -9                SET INDEX
     4800   01 0111E    3288127C              LW,8     :SAVETAB+10,4     FETCH STATUS
     4801   01 0111F    6810112F              BCR,1    :ERRT14           BRANCH: NO STATUS
     4802   01 01120    72940008 A            LB,9     8,2               FETCH CURRENT MASK
     4803   01 01121    69301126              BCS,3    :ERRT13A           B: STATUS PREVIOUSLY TESTED
     4804   01 01122    22A00000 A            LI,10    0
     4805   01 01123    75A00008 A            STB,10   8                 RESET STATUS FLAG
     4806   01 01124    3588127C              STW,8    :SAVETAB+10,4     RESTORE WORD IN TABLE
     4807   01 01125    6800112F              B        :ERRT14
     4808   01 01126    22A00000 A   :ERRT13A LI,10    0
     4809   01 01127    75A00008 A            STB,10   8                 RESET STATUS FLAG
     4810   01 01128    3588127C              STW,8    :SAVETAB+10,4     RESTORE WORD IN TABLE
     4811   01 01129    72A20008 A            LB,10    8,1               STATUS
     4812   01 0112A    72B40008 A            LB,11    8,2               MASK
     4813   01 0112B    4BA0000B A            AND,10   11                MASK STATUS
     4814   01 0112C    72B60008 A            LB,11    8,3               CURRENT STATUS
     4815   01 0112D    48A0000B A            EOR,10   11                COMPARE
     4816   01 0112E    69301135              BCS,3    :ERRT15           BRANCH: STATUS IN ERROR
     4817   01 0112F    6540111E     :ERRT14  BIR,4    :ERRT13+1         BRANCH: TEST NEXT STATUS
     4818   01 01130    02200000 A            LCI      0
     4819   01 01131    2A001158              LM,0     :ERRTMP1          RESTORE REGISTERS
     4820   01 01132    33001169              MTW,0    :ERRTFLG          TEST ERROR FLAG
     4821   01 01133    E832000F A            BCR,3    *15,1             NORMAL EXIT
     4822   01 01134    E804000F A            B        *15,2             ERROR EXIT
     4823                            *
     4824   01 01135    32C81214     :ERRT15  LW,12    :ERRTYPE+10,4     FETCH STATUS TYPE
     4825   01 01136    35C01215              STW,12   :ERRTM1+1         STORE SATUS ID
     4826   01 01137    32C00FC6              LW,12    :DEVADDR          DEV ADDR
     4827   01 01138    EAF00218              BAL,15   *:HEXC            CONVERT TO EBCDIC
     4828   01 01139    35F0121B              STW,15   :ERRTM1+7         ENTER INTO MSG
     4829   01 0113A    EAF0021C              BAL,15   *:PRINT           PRINT LINE 1
     4830   01 0113B    00001214              DATA     :ERRTM1           MSG = '   TIO 01234567'
     4831   01 0113C    72C20008 A            LB,12    8,1               FETCH STATUS BYTE
     4832   01 0113D    EAF00216              BAL,15   *:BINC            CONVERT FOUR BYTES
     4833   01 0113E    35F0121F              STW,15   :ERRTM2+3         STORE IN MSG AREA
     4834   01 0113F    EAF00216              BAL,15   *:BINC            CONVERT FOUR BYTES
     4835   01 01140    35F0121E              STW,15   :ERRTM2+2         STORE IN MSG AREA
     4836   01 01141    EAF0021C              BAL,15   *:PRINT           PRINT LINE 2
     4837   01 01142    0000121C              DATA     :ERRTM2           MSG = 'STATUS BBBBBBBB'
     4838   01 01143    72C60008 A            LB,12    8,3               FETCH CURRENT STATUS
     4839   01 01144    EAF00216              BAL,15   *:BINC            CONVERT 4 BYTES
     4840   01 01145    35F01223              STW,15   :ERRTM11+3        STORE IN MSG
     4841   01 01146    EAF00216              BAL,15   *:BINC            CONVERT 4 BYTES
     4842   01 01147    35F01222              STW,15   :ERRTM11+2        STORE IN MSG
     4843   01 01148    72C40008 A            LB,12    8,2               MASK STATUS
     4844   01 01149    75C0000C A            STB,12   12                MOVE MASK TO HI ORDER BYTE
     4845   01 0114A    220000E7 A            LI,0     X'E7'             'X'
     4846   01 0114B    22700000 A            LI,7     0                 INDEX
     4847   01 0114C    22F00008 A            LI,15    8                 BIT COUNT
     4848   01 0114D    32C0000C A            LW,12    12                TEST FOR MASK BIT = 1
     4849   01 0114E    69101150              BLZ      %+2               MASK BIT = 1
     4850   01 0114F    750E1222              STB,0    :ERRTM11+2,7      STORE 'X' INTO MSG
     4851   01 01150    33100007 A            MTW,1    7                 INCR INDEX
     4852   01 01151    25C00001 A            SLS,12   1                 ADJUST MASK
     4853   01 01152    64F0114D              BDR,15   %-5               LOOP TIL BIT COUNT = 0
     4854   01 01153    EAF0021C              BAL,15   *:PRINT           PRINT LINE 3
     4855   01 01154    00001220              DATA     :ERRTM11          MSG =  'MASK  MMMMMMMM'
     4856   01 01155    33101169              MTW,1    :ERRTFLG          INCR ERROR TALLY
     4857   01 01156    6800112F              B        :ERRT14
     4858                            *
     4859                                     BOUND 8
     4860   01 01158                 :ERRTMP1 RES      16                REGISTER SAVE AREA
     4861   01 01168    00000000 A   :ERRTMP3 DATA     0                 INDEX
     4862   01 01169    00000000 A   :ERRTFLG DATA     0
     4863                            :ERRTTBA DATA,2   INTPEND,NOTOP,UNAVAIL,AUTO,;
     4864   01 0116A    11B8     N                     UE,NOTOP,UNAVAIL,NOTUSED  TIO,SIO HIO STATUS
            01 0116A 2  11CA     N
            01 0116B    1206     N
            01 0116B 2  1196     N
            01 0116C    1202     N
            01 0116C 2  11CA     N
            01 0116D    1206     N
            01 0116D 2  11CC     N
     4865                            :ERRTTBB DATA,2   INCLEN,TRANSM,TRANSMEM,MEMADR,;       BIT 0-7
     4866   01 0116E    11B6     N                     IOPMEM,IOPCONT,IOPHALT,SIOPBUSY        OSB STATUS
            01 0116E 2  11FE     N
            01 0116F    1200     N
            01 0116F 2  11C6     N
            01 01170    11C2     N
            01 01170 2  11BE     N
            01 01171    11C0     N
            01 01171 2  11EC     N
     4867                            :ERRTTBD DATA,2   NOTUSED,DTCINT,NOTUSED,NOTUSED,;  BIT 0-7
     4868   01 01172    11CC     N                     NOTUSED,NOTUSED,NOTUSED,NOTUSED       AIO STATUS
            01 01172 2  11A2     N
            01 01173    11CC     N
            01 01173 2  11CC     N
            01 01174    11CC     N
            01 01174 2  11CC     N
            01 01175    11CC     N
            01 01175 2  11CC     N
     4869                            :ERRTTBE DATA,2   INCLEN,TRANSM,ZBCINT,CEINT,;         BIT 0-7
     4870   01 01176    11B6     N                     UEINT,NOTUSED,NOTUSED,NOTUSED         ISB STATUS
            01 01176 2  11FE     N
            01 01177    1208     N
            01 01177 2  11A0     N
            01 01178    1204     N
            01 01178 2  11CC     N
            01 01179    11CC     N
            01 01179 2  11CC     N
     4871                            :ERRTTBC DATA,2   NOTUSED,RECOVRY2,RECOVRY1,PAPTOP,;     TDV SATAUS
     4872   01 0117A    11CC     N                     NOTUSED,NOTUSED,IOPAR,NOTUSED       NOMAL SET
            01 0117A 2  11E2     N
            01 0117B    11E0     N
            01 0117B 2  11D8     N
            01 0117C    11CC     N
            01 0117C 2  11CC     N
            01 0117D    11BC     N
            01 0117D 2  11CC     N
     4873                                     BOUND    8
     4874   01 0117E    00000000 A   :ERRTTB  DATA     0,:ERRTTBA,:ERRTTBB,:ERRTTBA,:ERRTTBC,:ERRTTBA
            01 0117F    0000116A
            01 01180    0000116E
            01 01181    0000116A
            01 01182    0000117A
            01 01183    0000116A
     4875   01 01184    00001172              DATA     :ERRTTBD,:ERRTTBE
            01 01185    00001176
     4876   01 01186    00000000 A   :ERRBITS DATA     0
     4877   01 01187    00000000 A   :ERRTFG1 DATA     0
     4878   01 01188    00000000 A   :ERRTMP2 DATA     0
     4879                                     BOUND    8
     4880   01 0118A    24404040 A   :ERRTMG1 TEXTC    '   XXX BIT  X (XXXXXXXX) EXP X OBS X'
            01 0118B    E7E7E740 A
            01 0118C    C2C9E340 A
            01 0118D    40E7404D A
            01 0118E    E7E7E7E7 A
            01 0118F    E7E7E7E7 A
            01 01190    5D40C5E7 A
            01 01191    D740E740 A
            01 01192    D6C2E240 A
            01 01193    E7404040 A
     4881                                     BOUND    8
     4882   01 01194    40C1C6C5 A   AFERR    TEXT     ' AFERR  '
            01 01195    D9D94040 A
     4883   01 01196    4040C1E4 A   AUTO     TEXT     '  AUTO  '
            01 01197    E3D64040 A
     4884   01 01198    40C2E4D7 A   BUPAR    TEXT     ' BUPAR  '
            01 01199    C1D94040 A
     4885   01 0119A    40C2E4D7 A   BUPAR1   TEXT     ' BUPAR1 '
            01 0119B    C1D9F140 A
     4886   01 0119C    40C3C2D9 A   CBREC    TEXT     ' CBREC  '
            01 0119D    C5C34040 A
     4887   01 0119E    40C3C4D7 A   CDPAR    TEXT     ' CDPAR  '
            01 0119F    C1D94040 A
     4888   01 011A0    40C3C540 A   CEINT    TEXT     ' CE INT '
            01 011A1    C9D5E340 A
     4889   01 011A2    C4E3C340 A   DTCINT   TEXT     'DTC INT '
            01 011A3    C9D5E340 A
     4890   01 011A4    C5C3C8D6 A   ECHOERR  TEXT     'ECHOERR '
            01 011A5    C5D9D940 A
     4891   01 011A6    40C6D4E2 A   FMSE     TEXT     ' FMSE   '
            01 011A7    C5404040 A
     4892   01 011A8    40C6D4E2 A   FMSP     TEXT     ' FMSP   '
            01 011A9    D7404040 A
     4893   01 011AA    40C6D4C9 A   FMIUP    TEXT     ' FMIUP  '
            01 011AB    E4D74040 A
     4894   01 011AC    40C6D4F4 A   FM4      TEXT     ' FM4    '
            01 011AD    40404040 A
     4895   01 011AE    40C6D4F5 A   FM5      TEXT     ' FM5    '
            01 011AF    40404040 A
     4896   01 011B0    40C6D4F6 A   FM6      TEXT     ' FM6    '
            01 011B1    40404040 A
     4897   01 011B2    40C6D4F7 A   FM7      TEXT     ' FM7    '
            01 011B3    40404040 A
     4898   01 011B4    40C8E2C3 A   HSCLOK   TEXT     ' HSCLOK '
            01 011B5    D3D6D240 A
     4899   01 011B6    C9D5C340 A   INCLEN   TEXT     'INC LEN '
            01 011B7    D3C5D540 A
     4900   01 011B8    C9D5E340 A   INTPEND  TEXT     'INT PEND'
            01 011B9    D7C5D5C4 A
     4901   01 011BA    4040C9D5 A   INTLK    TEXT     '  INTLK '
            01 011BB    E3D3D240 A
     4902   01 011BC    40C9D6D7 A   IOPAR    TEXT     ' IOPAR  '
            01 011BD    C1D94040 A
     4903   01 011BE    C9D6D740 A   IOPCONT  TEXT     'IOP CONT'
            01 011BF    C3D6D5E3 A
     4904   01 011C0    C9D6D740 A   IOPHALT  TEXT     'IOP HALT'
            01 011C1    C8C1D3E3 A
     4905   01 011C2    C9D6D740 A   IOPMEM   TEXT     'IOP MEM '
            01 011C3    D4C5D440 A
     4906   01 011C4    40D3D4C3 A   LMCLK    TEXT     ' LMCLK  '
            01 011C5    D3D24040 A
     4907   01 011C6    D4C5D440 A   MEMADR   TEXT     'MEM ADR '
            01 011C7    C1C4D940 A
     4908   01 011C8    D4D740E4 A   MPUSED   TEXT     'MP USED '
            01 011C9    E2C5C440 A
     4909   01 011CA    40D5D6E3 A   NOTOP    TEXT     ' NOT OP '
            01 011CB    40D6D740 A
     4910   01 011CC    D5D6E340 A   NOTUSED  TEXT     'NOT USED'
            01 011CD    E4E2C5C4 A
     4911   01 011CE    D6E5C5D9 A   OVERRUN  TEXT     'OVERRUN '
            01 011CF    D9E4D540 A
     4912   01 011D0    40D7C1D7 A   PAPERR   TEXT     ' PAPERR '
            01 011D1    C5D9D940 A
     4913   01 011D2    D7C1D740 A   PAPLOW   TEXT     'PAP LOW '
            01 011D3    D3D6E640 A
     4914   01 011D4    D7C1D740 A   PAPMOV   TEXT     'PAP MOV '
            01 011D5    D4D6E540 A
     4915   01 011D6    D7C1D740 A   PAPRUN   TEXT     'PAP RUN '
            01 011D7    D9E4D540 A
     4916   01 011D8    D7C1D740 A   PAPTOP   TEXT     'PAP TOP '
            01 011D9    E3D6D740 A
     4917   01 011DA    D740C6C1 A   PFAULT   TEXT     'P FAULT '
            01 011DB    E4D3E340 A
     4918   01 011DC    D740D6D9 A   PORDER   TEXT     'P ORDER '
            01 011DD    C4C5D940 A
     4919   01 011DE    D7D9C9D5 A   PRINTERR TEXT     'PRINTERR'
            01 011DF    E3C5D9D9 A
     4920   01 011E0    D9C5C3D6 A   RECOVRY1 TEXT     'RECOVRY|'
            01 011E1    E5D9E84F A
     4921   01 011E2    D9C5C3D6 A   RECOVRY2 TEXT     'RECOVRY2'
            01 011E3    E5D9E8F2 A
     4922   01 011E4    D9C5C3D6 A   RECOVRY3 TEXT     'RECOVRY3'
            01 011E5    E5D9E8F3 A
     4923   01 011E6    40D7E2D3 A   PSLOW    TEXT     ' PSLOW  '
            01 011E7    D6E64040 A
     4924   01 011E8    40E2C3D6 A   SCOMP    TEXT     ' SCOMP  '
            01 011E9    D4D74040 A
     4925   01 011EA    40E2C5D4 A   SEMON    TEXT     ' SEMON  '
            01 011EB    D6D54040 A
     4926   01 011EC    E2C9D6D7 A   SIOPBUSY TEXT     'SIOPBUSY'
            01 011ED    C2E4E2E8 A
     4927   01 011EE    40E2D7C5 A   SPERR    TEXT     ' SPERR  '
            01 011EF    D9D94040 A
     4928   01 011F0    E2E3C1E3 A   STATEA   TEXT     'STATE A '
            01 011F1    C540C140 A
     4929   01 011F2    E2E3C1E3 A   STATEB   TEXT     'STATE B '
            01 011F3    C540C240 A
     4930   01 011F4    E2E3C1E3 A   STATEC   TEXT     'STATE C '
            01 011F5    C540C340 A
     4931   01 011F6    E2E3C1E3 A   STATED   TEXT     'STATE D '
            01 011F7    C540C440 A
     4932   01 011F8    E2E3C1E3 A   STATEE   TEXT     'STATE E '
            01 011F9    C540C540 A
     4933   01 011FA    40E3D340 A   TLODD    TEXT     ' TL ODD '
            01 011FB    D6C4C440 A
     4934   01 011FC    E3D9C1D5 A   TRANSERR TEXT     'TRANSERR'
            01 011FD    E2C5D9D9 A
     4935   01 011FE    40E3D9C1 A   TRANSM   TEXT     ' TRANSM '
            01 011FF    D5E2D440 A
     4936   01 01200    E3D9C1D5 A   TRANSMEM TEXT     'TRANSMEM'
            01 01201    E2D4C5D4 A
     4937   01 01202    4040E4C5 A   UE       TEXT     '  UE    '
            01 01203    40404040 A
     4938   01 01204    40E4C540 A   UEINT    TEXT     ' UE INT '
            01 01205    C9D5E340 A
     4939   01 01206    E4D5C1E5 A   UNAVAIL  TEXT     'UNAVAIL '
            01 01207    C1C9D340 A
     4940   01 01208    E9C2C340 A   ZBCINT   TEXT     'ZBC INT '
            01 01209    C9D5E340 A
     4941   01 0120A    00000000 A   :ERRTYPE DATA  0,'TIO ','OSB ','HIO ','TDV ','SIO ','AIO ','ISB ','SBA '
            01 0120B    E3C9D640 A
            01 0120C    D6E2C240 A
            01 0120D    C8C9D640 A
            01 0120E    E3C4E540 A
            01 0120F    E2C9D640 A
            01 01210    C1C9D640 A
            01 01211    C9E2C240 A
            01 01212    E2C2C140 A
     4942   01 01213    E2C2F640 A            DATA      'SB6 '
     4943   01 01214    1F404040 A   :ERRTM1  TEXTC    '   XXX 01234567   DEV ADDR XXXX'
            01 01215    E7E7E740 A
            01 01216    F0F1F2F3 A
            01 01217    F4F5F6F7 A
            01 01218    404040C4 A
            01 01219    C5E540C1 A
            01 0121A    C4C4D940 A
            01 0121B    E7E7E7E7 A
     4944   01 0121C    0FE2E3C1 A   :ERRTM2  TEXTC    'STATUS BBBBBBBB'
            01 0121D    E3E4E240 A
            01 0121E    C2C2C2C2 A
            01 0121F    C2C2C2C2 A
     4945   01 01220    0F4040D4 A   :ERRTM11 TEXTC    '  MASK MMMMMMMM' MSG
            01 01221    C1E2D240 A
            01 01222    D4D4D4D4 A
            01 01223    D4D4D4D4 A
     4946   01 01224    17E3C5D9 A   :ERRTM3  TEXTC    'TERM BC EXP 0  OSB XXXX'
            01 01225    D440C2C3 A
            01 01226    40C5E7D7 A
            01 01227    40F04040 A
            01 01228    D6E2C240 A
            01 01229    E7E7E7E7 A
     4947   01 0122A    12C3D4C4 A   :ERRTM4  TEXTC    'CMD ADDR INCORRECT'
            01 0122B    40C1C4C4 A
            01 0122C    D940C9D5 A
            01 0122D    C3D6D9D9 A
            01 0122E    C5C3E340 A
     4948                            *
     4949                            *                 *** SAVECLR                                ***
     4950                            *                 *** SAVETIO, -HIO,-TDV,-SIO,-AIO,-SSA,-SSB ***
     4951                            *                     ROUTINES
     4952                            *
     4953                            * THE SUBROUTINES CLEAR THE STATUS SAVE TABLE ('SAVETAB') AND STORE
     4954                            * THE SELECTED STATUS IN THE CELL.
     4955                            *
     4956                            * CALLING SEQUENCE: BAL,15  :SAVE---
     4957                            * NORMAL EXIT:      ---     ---
     4958                            *
     4959                            * REGISTERS DISTURBED: NONE (R1 = 1, R2 = 2, R3 = 3)
     4960                            *
     4961                            * VARIABLES REQUIRED: R13 - IOSTATUS AND BYTE COUNT
     4962                            *                     R12 - CURRENT COMMAND ADDR
     4963                            *
     4964                            * OTHER SUBROUTINES: NONE
     4965                            *
     4966                            *
     4967   01 0122F    15401282     :SAVECLR STD,4    :SAVETMP          SAVE R4 AND R5
     4968   01 01230    224FFFE0 A            LI,4     -32               INDEX
     4969   01 01231    22500000 A            LI,5     0                 0
     4970   01 01232    55581282              STH,5    :SAVETAB+16,4     CLEAR FLAG AND CURRENT STATUS
     4971   01 01233    65401234              BIR,4    %+1               INCR R4
     4972   01 01234    65401232              BIR,4    %-2               LOOP
     4973   01 01235    12401282              LD,4     :SAVETMP          RESTORE R4 AND R5
     4974   01 01236    E800000F A            B        *15               EXIT
     4975                            *
     4976   01 01237    15401282     :SAVETIO STD,4    :SAVETMP          SAVE R4 AND R5
     4977   01 01238    35D01284              STW,13   :SAVETMP+2       SAVE STATUS
     4978   01 01239    22401273              LI,4     WA(:SAVETAB+1)    INDEX - TIO STATUS
     4979   01 0123A    6A501269              BAL,5    :SAVEALL          STORE STATUS
     4980   01 0123B    22401274              LI,4     WA(:SAVETAB+2)    INDEX - OSB
     4981   01 0123C    6A501269              BAL,5    :SAVEALL          STORE STATUS
     4982   01 0123D    32D01284              LW,13    :SAVETMP+2        FETCH STATUS
     4983   01 0123E    55D21280              STH,13   :SAVETAB+14,1     STORE BYTE COUNT
     4984   01 0123F    225FFFFF A            LI,5     -1
     4985   01 01240    75501280              STB,5    :SAVETAB+14,0     SET FLAG
     4986   01 01241    55C21281              STH,12   :SAVETAB+15,1     STORE CURRENT COMMAND ADDR
     4987   01 01242    75501281              STB,5    :SAVETAB+15,0     SET FLAG
     4988   01 01243    12401282              LD,4     :SAVETMP          RESTORE R4 AND R5
     4989   01 01244    E800000F A            B        *15               EXIT
     4990                            *
     4991   01 01245    15401282     :SAVEHIO STD,4    :SAVETMP          SAVE R4 AND R5
     4992   01 01246    22401275              LI,4     WA(:SAVETAB+3)    INDEX - HIO STATUS
     4993   01 01247    6A501269              BAL,5    :SAVEALL          STORE STATUS
     4994   01 01248    12401282              LD,4     :SAVETMP          RESTORE R4 AND R5
     4995   01 01249    E800000F A            B        *15               EXIT
     4996   01 0124A    15401282     :SAVETDV STD,4    :SAVETMP          SAVE R4 AND R5
     4997   01 0124B    22401276              LI,4     WA(:SAVETAB+4)    INDEX - TDV STATUS
     4998   01 0124C    6A501269              BAL,5    :SAVEALL          STORE STATUS
     4999   01 0124D    12401282              LD,4     :SAVETMP          RESTORE R4 AND R5
     5000   01 0124E    E800000F A            B        *15               EXIT
     5001                            *
     5002   01 0124F    15401282     :SAVESIO STD,4    :SAVETMP          SAVE R4 AND R5
     5003   01 01250    22401277              LI,4     WA(:SAVETAB+5)    INDEX - SIO
     5004   01 01251    6A501269              BAL,5    :SAVEALL          STORE STATUS
     5005   01 01252    12401282              LD,4     :SAVETMP          RESTORE R4 AND R5
     5006   01 01253    E800000F A            B        *15               EXIT
     5007                            *
     5008   01 01254    15401282     :SAVEAIO STD,4    :SAVETMP          SAVE R4 AND R5
     5009   01 01255    35D01284              STW,13   :SAVETMP+2        SAVE STATUS
     5010   01 01256    22401278              LI,4      WA(:SAVETAB+6)   INDEX - AIO
     5011   01 01257    6A501269              BAL,5    :SAVEALL          STORE STATUS
     5012   01 01258    22401279              LI,4      WA(:SAVETAB+7)   INDEX - ISB
     5013   01 01259    6A501269              BAL,5    :SAVEALL          STORE STATUS
     5014   01 0125A    32D01284              LW,13    :SAVETMP+2        FETCH STATUS
     5015   01 0125B    12401282              LD,4     :SAVETMP          RESTORE R4 AND R5
     5016   01 0125C    E800000F A            B        *15               EXIT
     5017                            *
     5018   01 0125D    15401282     :SAVESSA STD,4    :SAVETMP          SAVE R4 AND R5
     5019   01 0125E    75D0000D A            STB,13    13                MOVE SBA TO MSB OF R13
     5020   01 0125F    2240127A              LI,4     WA(:SAVETAB+8)    SAVE STATUS
     5021   01 01260    6A501269              BAL,5    :SAVEALL          RESTORE R4 AND R5
     5022   01 01261    12401282              LD,4     :SAVETMP          RESTORE R4 AND R5
     5023   01 01262    E800000F A            B        *15               EXIT
     5024                            *
     5025   01 01263    15401282     :SAVESSB STD,4    :SAVETMP          SAVE R4 AND R5
     5026   01 01264    75D0000D A            STB,13   13                 MOVE SBB TO MSB OF R13
     5027   01 01265    2240127B              LI,4     WA(:SAVETAB+9)    SAVE STATUS
     5028   01 01266    6A501269              BAL,5    :SAVEALL          RESTORE R4 AND R5
     5029   01 01267    12401282              LD,4     :SAVETMP          RESTORE R4 AND R5
     5030   01 01268    E800000F A            B        *15               EXIT
     5031                            *
     5032   01 01269    35501285     :SAVEALL STW,5    :SAVETMP+3        SAVE EXIT ADDR
     5033   01 0126A    22500000 A            LI,5     0
     5034   01 0126B    D5520004 A            STH,5    *4,1              CLEAR CURRENT STATUS,MASK
     5035   01 0126C    25D00208 A            SCS,13   +8
     5036   01 0126D    F5D20004 A            STB,13   *4,1              STORE STATUS
     5037   01 0126E    225FFFFF A            LI,5     -1
     5038   01 0126F    F5500004 A            STB,5    *4,0              STORE FLAG
     5039   01 01270    E8001285              B        *:SAVETMP+3        EXIT
     5040                            *
     5041                                     BOUND    8
     5042         01 01272           :SAVETAB EQU      %
     5043   01 01272    00000000 A            DATA     0                 UNDEFINED                    0
     5044   01 01273    00000000 A            DATA     0                 TIO STATUS                  1
     5045   01 01274    00000000 A            DATA     0                 OSB STATUS                  2
     5046   01 01275    00000000 A            DATA     0                 HIO STATUS                  3
     5047   01 01276    00000000 A            DATA     0                 TDV STATUS                  4
     5048   01 01277    00000000 A            DATA     0                 SIO STATUS                  5
     5049   01 01278    00000000 A            DATA     0                 AIO STATUS                  6
     5050   01 01279    00000000 A            DATA     0                 ISB STATUS                  7
     5051   01 0127A    00000000 A            DATA     0                 SBA STATUS                  8
     5052   01 0127B    00000000 A            DATA     0                 SBB STATUS                  9
     5053   01 0127C    00000000 A            DATA     0,0,0,0           NOT ASSIGNED                 10 - 13
            01 0127D    00000000 A
            01 0127E    00000000 A
            01 0127F    00000000 A
     5054   01 01280    00000000 A            DATA     0,0               BYTE COUNT, COMMAND ADR      14 - 15
            01 01281    00000000 A
     5055   01 01282    00000000 A   :SAVETMP DATA     0,0,0,0           4 TEMP LOC
            01 01283    00000000 A
            01 01284    00000000 A
            01 01285    00000000 A
     5056   01 01286    00000000 A   :SAVCOM1 DATA     0                 ORIGINAL COMMAND ADDR
     5057                            *
1 C00   21:10 JUN 20,'83    TELEFILE LINE PRINTER DIAGNOSTIC 960-0607-H02                         PAGE   34
A    5059                            *                 *** ARM AND ENABLE IO INTERRUPT ***
     5060                            *
     5061   01 01287    35F01293     :INTAE   STW,15   :INTSAV1          SAVE EXIT ADR
     5062   01 01288    22F00000 A            LI,15    0
     5063   01 01289    35F010A0              STW,15   :INTRECF          CLEAR IO INTER REC'D FLAG
     5064   01 0128A    22F00020 A            LI,15    X'20'             ARM AND ENABLE
     5065   01 0128B    6DF01200 A            WD,15    X'1200'             IO INTERRUPT
     5066   01 0128C    E8001293              B        *:INTSAV1         EXIT
     5067                            *
     5068                            *
     5069                            *                 *** DISARM IO INTERRUPT ***
     5070                            *
     5071   01 0128D    35F01294     :INTD    STW,15   :INTSAV2          SAVE EXIT ADR
     5072   01 0128E    22F00020 A            LI,15    X'20'
     5073   01 0128F    6DF01100 A            WD,15    X'1100'           DISARM IO INTERRUPT
     5074   01 01290    22F00000 A            LI,R15   0
     5075   01 01291    35F010A0              STW,R15  :INTRECF           RESET INTERRUPT REC'D FLAG
     5076   01 01292    E8001294              B        *:INTSAV2         EXIT
     5077                            *
     5078   01 01293    00000000 A   :INTSAV1 DATA     0                 EXIT ADR
     5079   01 01294    00000000 A   :INTSAV2 DATA     0
1 C00   21:10 JUN 20,'83    TELEFILE LINE PRINTER DIAGNOSTIC 960-0607-H02                         PAGE   35
A    5081                            *
     5082                            *        MODIFIED PSEUDORANDOM NUMBER GENERATOR
     5083                            *
     5084                            *                 THE ALGORITHM
     5085                            *
     5086                            *        THE CALCULATION OF THE NEXT NUMBER X(N+1) DEPENDS ON THE
     5087                            *                 PREVIOUS NUMBER X(N) AND THE VALUE OF TWO INTERNAL
     5088                            *                 COUNTERS M1 AND M2.  THE TWO COUNTERS ARE CHANGED
     5089                            *                 BY UNITY EACH TIME A RANDOM NUMBER IS GENERATED, THE
     5090                            *                 ONE COUNTER INCREASING AND THE OTHER DECREASING.
     5091                            *
     5092                            *                 THE PROCEDURE
     5093                            *
     5094                            *        X(N+1) = M1 (+) M2 (+) M(X(N)), WHERE (+)=EXCLUSIVE OR
     5095                            *
     5096                            *        OPTION-1, USES INTERNAL VALUES OF M1, M2 AND X.  RESULTS
     5097                            *                 FOUND IN REGISTER-14.
     5098                            *
     5099                            *        OPTION-1 CALLING SEQUENCE
     5100                            *
     5101                            *        BAL,15   :RANDOMX
     5102                            *
     5103                            *        OPTION-2, USES INTERNAL VALUES OF M1 AND M2.  USER PROVIDES
     5104                            *                 SEED IN REGISTER-14.  RESULT IN REGISTER-14.
     5105                            *
     5106                            *        OPTION-2 CALLING SEQUENCE
     5107                            *
     5108                            *        LW,14    :SEED             SEED IN REGISTER-14.
     5109                            *        BAL,15   :RANDOM
     5110                            *
     5111                            *        OPTION-3, USER PROVIDES M1,M2 AND X.  RESULT IN REGISTER-14.
     5112                            *
     5113                            *        OPTION-3 CALLING SEQUENCE
     5114                            *
     5115                            *        LW,12    :M1               M1 = VALUE OF COUNTER 1
     5116                            *        LW,13    :M2               M2 = VALUE OF COUNTER 2
     5117                            *        LW,14    :SEED             SEED = RANDOM NUMBER SEED
     5118                            *        BAL,15   :RANDOMY
     5119                            *
     5120                            *
     5121   01 01295    35C012A2     :RANDOMY STW,12   :M1               OPTION-3 ENTRY
     5122   01 01296    35D012A3              STW,13   :M2               SAVE PARAMETERS
     5123                            *
     5124   01 01297    35E012A4     :RANDOM  STW,14   :SEED             OPTION-2 ENTRY
     5125                            *
     5126   01 01298    331012A2     :RANDOMX MTW,1    :M1               OPTION-1 ENTRY
     5127   01 01299    6830129B              BCR,3    %+2               TEST, M1 + 1 = 0
     5128   01 0129A    33F012A3              MTW,-1   :M2               NO, M2 = M2 - 1
     5129   01 0129B    32E012A4              LW,14    :SEED
     5130   01 0129C    25E0020D A            SCS,14   13                GENERATE M(SEED) BY ARITHMETIC MEANS
     5131   01 0129D    30E012A5              AW,14    :K                ADD CONSTANT :K
     5132   01 0129E    48E012A2              EOR,14   :M1               M(SEED) (+) M1, WHERE (+) = EOR
     5133   01 0129F    48E012A3              EOR,14   :M2               M(SEED) (+) M1 (+) M2
     5134   01 012A0    35E012A4              STW,14   :SEED             SEED = M(SEED) (+) M1 (+) M2
     5135   01 012A1    E800000F A            B        *15
     5136                            *
     5137   01 012A2    12B9B0A1 A   :M1      DATA     314159265         PI - PRE-SET M1 VALUE
     5138   01 012A3    1033C4D7 A   :M2      DATA     271828183         E - PRE-SET M2 VALUE
     5139   01 012A4    544B2FBA A   :SEED    DATA     1414213562        SQRT(2) - PRE-SET SEED VALUE
     5140   01 012A5    22679CB1 A   :K       DATA     577215665         GAMMA - CONSTANT
     5141   01 012A6    00000000 A   RANDOMCX DATA     0
     5142   01 012A7    00000000 A   RANDOMR  DATA     0
     5143   01 012A8    35F012A6     RANDOMC  STW,15   RANDOMCX          SAVE RETURN ADDR
     5144   01 012A9    355012A7              STW,5    RANDOMR           SAVE R5
     5145   01 012AA    6AF01298              BAL,15   :RANDOMX          GET RANDOM CHAR
     5146   01 012AB    4BE01427              AND,14   =X'7F'            MASK
     5147   01 012AC    35E00005 A            STW,14   5                 SAVE IN INDEX REG
     5148   01 012AD    F2EA0CC5              LB,14    *CHARTBLX,5       GET RANDOM CHAR
     5149   01 012AE    325012A7              LW,5     RANDOMR           RESTORE R5
     5150   01 012AF    32F012A6              LW,15    RANDOMCX          RESTORE R15
     5151   01 012B0    E800000F A            B        *15               EXIT
1 C00   21:10 JUN 20,'83    TELEFILE LINE PRINTER DIAGNOSTIC 960-0607-H02                         PAGE   36
A    5153                            *                                                                      *
     5154                            *             *** EXECUTE  ***                                         *
     5155                            *                                                                      *
     5156                            * THE EXECUTE ROUTINE ISSUE AN SIO AND DELAYS UNTIL THE CE INTERRUPT   *
     5157                            * IS RECEIVED. STATUS IS TESTED AND ERROR EXIT TAKEN IF STATUS ERROR   *
     5158                            * EXISTS.                                                              *
     5159                            *                                                                      *
     5160                            *  REG. REQUIRED: NONE                                                 *
     5161                            *                                                                      *
     5162   01 012B1    02200040 A   EXECUTEX LCI      4
     5163   01 012B2    2BC01301              STM,12   EXECSAV           SAVE REG 12-15
     5164   01 012B3    32E0109F              LW,14    :DELMTW           MODIFY TEST WORD INSTRUCTION
     5165   01 012B4    35E00055 A            STW,14   X'55'             SAVE
     5166   01 012B5    32E0109E              LW,14    :DELXPSD          SET IO INTERRUPT LINKAGE
     5167   01 012B6    35E0005B A            STW,14   X'5B'
     5168   01 012B7    6AF01298              BAL,15   :RANDOMX          RANDOM NUMBER
     5169   01 012B8    32F0000E A            LW,15    14                MOVE RANDOM NUMBER
     5170   01 012B9    22E00000 A            LI,14    0
     5171   01 012BA    31200E7F              CW,2     :LIMITP1          TEST FOR DELAY LIMITS SPECIFIED
     5172   01 012BB    693012C7              BNE      EXECUTE+2         LIMIT NOT SPECIED
     5173   01 012BC    32C00E81              LW,12    :LIMITP3          HI LIMIT
     5174   01 012BD    38C00E80              SW,12    :LIMITP2          HI LIMIT - LO LIMIT
     5175   01 012BE    693012C0              BNEZ     %+2               B: DELAY GREATER THAN 0
     5176   01 012BF    680012C7              B        EXECUTE+2         DELAY = 0
     5177   01 012C0    36E0000C A            DW,14    12
     5178   01 012C1    30E00E80              AW,14    :LIMITP2          DELAY = LO LIMIT + RANDOM NUMBER
     5179   01 012C2    6AF01082     EXECX2   BAL,15   :DELAY            DELAY
     5180   01 012C3    680012C4              B        %+1
     5181   01 012C4    680012C7              B        EXECUTE+2
     5182   01 012C5    02200040 A   EXECUTE  LCI      4
     5183   01 012C6    2BC01301              STM,12   EXECSAV           SAVE REG. 12-15
     5184   01 012C7    32C012FC              LW,12    EXECXPSD
     5185   01 012C8    35C0005C A            STW,12   X'5C'             ENTER IO INTER XPSD INTO LOC.
     5186   01 012C9    22C00000 A            LI,12    0
     5187   01 012CA    35C012FD              STW,12   EXECERR           RESET ERROR FLAG
     5188   01 012CB    6AF00F9E              BAL,15   :IOEXEC
     5189   01 012CC    6AF01287              BAL,15   :INTAE            ARM/ENABLE IO INTERRUPT
     5190   01 012CD    32C012FE              LW,12    EXECDTM           MAX DELAY TIME
     5191   01 012CE    35C012FF              STW,12   EXECDT            SAVE
     5192   01 012CF    330010A0              MTW,0    :INTRECF          TEST INTER REC'D FLAG
     5193   01 012D0    693012DA              BNEZ     EXEC2             SET - INTER REC'D
     5194   01 012D1    33F012FF              MTW,-1   EXECDT            DECR DELAY TIME
     5195   01 012D2    692012CF              BGZ      %-3               DELAY TIME NOT 0
     5196   01 012D3    6AF0128D              BAL,15   :INTD             DISARM IO INTERRUPT
     5197   01 012D4    EAF0021C              BAL,15   *:PRINT
     5198   01 012D5    00001305              DATA     EXECMSG           'IO INTER NOT REC'D'
     5199   01 012D6    33101304              MTW,1    EXECSAV+3         INCR EXIT ADDR
     5200   01 012D7    02200040 A   EXEC1    LCI      4
     5201   01 012D8    2AC01301              LM,12    EXECSAV           RESTORE REG. 12-15
     5202   01 012D9    E800000F A            B        *15               EXIT
     5203   01 012DA    6AF0128D     EXEC2    BAL,15   :INTD             DISARM IO INTER
     5204   01 012DB    330012FD              MTW,0    EXECERR           TEST ERROR FLAG
     5205   01 012DC    683012D7              BEZ      EXEC1             NO ERROR- EXIT NORMAL
     5206   01 012DD    311013A3              CW,1     ITHTEST           TST1?
     5207   01 012DE    683012D6              BE       EXEC1-1           YES-BIPASS PRINTOUT
     5208   01 012DF    6AF01345              BAL,15   PIOCD
     5209   01 012E0    32C013A3              LW,12    ITHTEST           TEST NUMBER
     5210   01 012E1    EAF00218              BAL,15   *:HEXC            CONVERT TO EBCDIC
     5211   01 012E2    75F0130D              STB,15   EXECMSG1+1        ENTER INTO MSG
     5212   01 012E3    EAF0021C              BAL,15   *:PRINT
     5213   01 012E4    0000130C              DATA     EXECMSG1          'TSTX - ERROR (SEE ABOVE STATUS)'
     5214   01 012E5    680012D6              B        EXEC1-1           GO TO EXIT
     5215                            *
     5216   01 012E6    6AF00E96     EXECREC  BAL,15   :AIO              ISSUE AIO,TEST STATUS, DEV ADDR
     5217   01 012E7    FF7FC002 A            DATA     X'FF7FC002'       MASK
     5218   01 012E8    00100000 A            DATA     X'00100000'       EXPECTED STATUS
     5219   01 012E9    680012EB              B        %+2               NO ERROR
     5220   01 012EA    351012FD              STW,1    EXECERR           SET ERROR FLAG
     5221   01 012EB    6AF00E87              BAL,15   :TIO              ISSUE TIO, TEST STATUS
     5222   01 012EC    FF7FC000 A            DATA     X'FF7FC000'       MASK
     5223   01 012ED    10000000 A            DATA     X'10000000'       EXPECTED STATUS
     5224   01 012EE    680012F0              B        %+2               NO ERROR
     5225   01 012EF    351012FD              STW,1    EXECERR           SET ERROR FLAG
     5226   01 012F0    6AF00E91              BAL,15   :TDV              ISSUE TDV, TEST STATUS
     5227   01 012F1    EF7FC000 A            DATA     X'EF7FC000'       MASK
     5228   01 012F2    00000000 A            DATA     0                 EXPECTED STATUS
     5229   01 012F3    680012F5              B        %+2               NO ERROR
     5230   01 012F4    351012FD              STW,1    EXECERR           SET ERROR FLAG
     5231   01 012F5    351010A0              STW,1    :INTRECF          SET IO INTER REC'D FLAG
     5232   01 012F6    0E2012F8              LPSD,2   EXECPSD           EXIT
     5233                            *
     5234                                     BOUND    8
     5235   01 012F8    00000000 A   EXECPSD  DATA     0,0
            01 012F9    00000000 A
     5236   01 012FA    000012E6              DATA     EXECREC,0
            01 012FB    00000000 A
     5237   01 012FC    0F0012F8     EXECXPSD XPSD,0   EXECPSD
     5238   01 012FD    00000000 A   EXECERR  DATA     0
     5239   01 012FE    00080000 A   EXECDTM  DATA     X'80000'
     5240   01 012FF    00000000 A   EXECDT   DATA     0
     5241   01 01300    00000005 A   EXECDELT DATA     5
     5242   01 01301                 EXECSAV  RES      4
     5243   01 01305    19C9D640 A   EXECMSG  TEXTC    'IO INTERRUPT NOT RECEIVED'
            01 01306    C9D5E3C5 A
            01 01307    D9D9E4D7 A
            01 01308    E340D5D6 A
            01 01309    E340D9C5 A
            01 0130A    C3C5C9E5 A
            01 0130B    C5C44040 A
     5244   01 0130C    1DE3E2E3 A   EXECMSG1 TEXTC    'TSTX ERROR (SEE ABOVE STATUS)'
            01 0130D    E740C5D9 A
            01 0130E    D9D6D940 A
            01 0130F    4DE2C5C5 A
            01 01310    40C1C2D6 A
            01 01311    E5C540E2 A
            01 01312    E3C1E3E4 A
            01 01313    E25D4040 A
     5245   01 01314    1BC9D6C3 A   EXECMSG2 TEXTC    'IOCD   XXXXXXXX    XXXXXXXX'
            01 01315    C4404040 A
            01 01316    E7E7E7E7 A
            01 01317    E7E7E7E7 A
            01 01318    40404040 A
            01 01319    E7E7E7E7 A
            01 0131A    E7E7E7E7 A
     5246                            *                                                                      *
1 C00   21:10 JUN 20,'83    TELEFILE LINE PRINTER DIAGNOSTIC 960-0607-H02                         PAGE   37
A    5248                            *
     5249                            *        *** PRINT POSITION HEADER MESSAGE ***
     5250                            *
     5251                            * THIS SUBROUTINE ALLOWS THE USER TO OBSERVE CORRECTLY PRINTED
     5252                            * POSITIONS.
     5253                            *
     5254   01 0131B    35F01340     PRINTPOS STW,15   PRPOSRTN          SAVE RETURN ADDRSS
     5255   01 0131C    22500000 A            LI,5     0                 RESET POSITION COUNTER
     5256   01 0131D    3550133F              STW,5    PRPOSFLG          RESET PRINT POSITION FLAG
     5257   01 0131E    224FFFDF A            LI,4     -33               BUFFER INDEX
     5258   01 0131F    355813FB              STW,5    BUFFER2+33,4      CLEAR BUFFER
     5259   01 01320    6540131F              BIR,4    %-1               B: LOOP TILL BUFFER CLEAR
     5260   01 01321    22400000 A            LI,4     0                 RESET CHAR COUNTER
     5261   01 01322    72E81341     PRPOS1   LB,14    PRPOSNUM,4        FETCH CHAR NUMBER
     5262   01 01323    75EA13DA              STB,14   BUFFER2,5         STORE IN BUFFER
     5263   01 01324    2050000A A            AI,5     10                INCR BUFFER POSITION BY 10
     5264   01 01325    3110133F              CW,1     PRPOSFLG          TEST PRINT POSITION FLAG
     5265   01 01326    68301329              BE       %+3               B: FLAG SET
     5266   01 01327    33F00005 A            MTW,-1   5                 DECR BUFFER POSITION BY 1
     5267   01 01328    3510133F              STW,1    PRPOSFLG          SET FLAG
     5268   01 01329    33100004 A            MTW,1    4                 INCR CHAR COUNTER
     5269   01 0132A    21500084 A            CI,5     132               IS PRINT POSITION EQUAL TO 132
     5270   01 0132B    68201322              BLE      PRPOS1            B: PRINT POSITION LESS THAN 132
     5271   01 0132C    220006E2              LI,0     DA(IOCD3)         LOAD IOCD
     5272   01 0132D    6AF012C5              BAL,15   EXECUTE           PRINT A LINE
     5273   01 0132E    6800132F              B        %+1
     5274   01 0132F    225FFF7C A            LI,5     -132              BUFFER INDEX
     5275   01 01330    22400001 A            LI,4     1                 START WITH CHAR '1'
     5276   01 01331    68001333              B        %+2
     5277   01 01332    22400000 A   PRPOS2   LI,4     0                 START WITH CHAR '0'
     5278   01 01333    72E81341              LB,14    PRPOSNUM,4        FETCH CHAR NUMBER
     5279   01 01334    75EA13FB              STB,14   BUFFER2+33,5      STORE IN BUFFER
     5280   01 01335    33100004 A            MTW,1    4                 INCR CHAR COUNT
     5281   01 01336    65501338              BIR,5    %+2               B: BUFFER NOT COMPLETELY FILLED
     5282   01 01337    6800133B              B        PRPOS3            B: BUFFER COMPLETED
     5283   01 01338    21400009 A            CI,4     9                 IS CHAR NUMBER EQUAL 9
     5284   01 01339    68201333              BLE      PRPOS2+1          B: CHAR NUMBER <= 9
     5285   01 0133A    68001332              B        PRPOS2            B: CHAR NUMBER > 9
     5286   01 0133B    220006E2     PRPOS3   LI,0     DA(IOCD3)         LOAD IOCD
     5287   01 0133C    6AF012C5              BAL,15   EXECUTE           PRINT A LINE
     5288   01 0133D    6800133E              B        %+1
     5289   01 0133E    E8001340              B        *PRPOSRTN         EXIT
     5290                            *
     5291   01 0133F    00000000 A   PRPOSFLG DATA     0
     5292   01 01340    00000000 A   PRPOSRTN DATA     0
     5293   01 01341    F0F1F2F3 A   PRPOSNUM DATA     X'F0F1F2F3'
     5294   01 01342    F4F5F6F7 A            DATA     X'F4F5F6F7'
     5295   01 01343    F8F9F0F1 A            DATA     X'F8F9F0F1'
     5296   01 01344    F2F3F4F5 A            DATA     X'F2F3F4F5'
1 C00   21:10 JUN 20,'83    TELEFILE LINE PRINTER DIAGNOSTIC 960-0607-H02                         PAGE   38
A    5298                            *
     5299                            *
     5300                            *
     5301   01 01345    02200040 A   PIOCD    LCI      4
     5302   01 01346    2BC0136F              STM,12   PIOCDSAV          SAVE REGISTERS 12-15
     5303   01 01347    32E00000 A            LW,14    0                 DA(IOCD)
     5304   01 01348    25E00001 A            SLS,14   1                 WA(IOCD)
     5305   01 01349    F2D0000E A            LB,13    *14               ORDER
     5306   01 0134A    6830135E              BEZ      PIOCD2-3           ORDER BYTE = 0
     5307   01 0134B    4BD0142F              AND,13   =X'F'             MASK
     5308   01 0134C    21D00003 A            CI,13    3                 IS IT FORMAT ORDER
     5309   01 0134D    68301350              BE       %+3               B: YES, PRINT FORMAT ORDER
     5310   01 0134E    21D00005 A            CI,13    5                 IS IT PRINT WITH FORMAT ORDER
     5311   01 0134F    69301358              BNE      PIOCD1-1          B: NO
     5312   01 01350    B2C0000E A            LW,12    *14               IOCD
     5313   01 01351    4BC0142B              AND,12   =X'FFFF'          FORMAT BYTE ADDR
     5314   01 01352    25C0007E A            SLS,12   -2                FORMAT WORD ADDR
     5315   01 01353    F2C0000C A            LB,12    *12               FORMAT
     5316   01 01354    EAF00218              BAL,15   *:HEXC            CONVERT TO HEX
     5317   01 01355    55F0137D              STH,15   PIOCDMG1+2        STORE IN MESSAGE
     5318   01 01356    EAF0021C              BAL,15   *:PRINT
     5319   01 01357    0000137B              DATA     PIOCDMG1          'FORMAT XX'
     5320   01 01358    68001361              B        PIOCD2            PRINT IOCD
     5321   01 01359    B2C0000E A   PIOCD1   LW,12    *14               LSH IOCD
     5322   01 0135A    31C0143A              CW,12    =X'A0000000'      TEST FOR DATA OR CMD CHAINING
     5323   01 0135B    6840135E              BCR,4    %+3               NO
     5324   01 0135C    30E00001 A            AW,14    1                 WA(IOCD)
     5325   01 0135D    68001361              B        PIOCD2            PRINT IOCD
     5326   01 0135E    02200040 A            LCI      4
     5327   01 0135F    2AC0136F              LM,12    PIOCDSAV          RESTORE REGISTER 12-15
     5328   01 01360    E800000F A            B        *15               EXIT
     5329   01 01361    B2C0000E A   PIOCD2   LW,12    *14               MSH IOCD
     5330   01 01362    EAF00218              BAL,15   *:HEXC            CONVERT TO EBCIDIC
     5331   01 01363    35F01377              STW,15   PIOCDMSG+3        SAVE
     5332   01 01364    EAF00218              BAL,15   *:HEXC            CONVERT TO EBCIDIC
     5333   01 01365    35F01376              STW,15   PIOCDMSG+2        SAVE
     5334   01 01366    30E00001 A            AW,14    1
     5335   01 01367    B2C0000E A          LW,12    *14                 LSH IOCD
     5336   01 01368    EAF00218              BAL,15   *:HEXC            CONVERT TO EBCDIC
     5337   01 01369    35F0137A              STW,15   PIOCDMSG+6        SAVE
     5338   01 0136A    EAF00218              BAL,15   *:HEXC            CONVERT TO EBCDIC
     5339   01 0136B    35F01379              STW,15   PIOCDMSG+5        SAVE
     5340   01 0136C    EAF0021C              BAL,15   *:PRINT
     5341   01 0136D    00001374              DATA     PIOCDMSG          'IOCD XXXXXXXX XXXXXXXX'
     5342   01 0136E    68001359              B        PIOCD1
     5343   01 0136F                 PIOCDSAV RES      4
     5344   01 01373    00000000 A   PIOCDFLG DATA     0
     5345   01 01374    1BC9D6C3 A   PIOCDMSG TEXTC    'IOCD   XXXXXXXX    XXXXXXXX'
            01 01375    C4404040 A
            01 01376    E7E7E7E7 A
            01 01377    E7E7E7E7 A
            01 01378    40404040 A
            01 01379    E7E7E7E7 A
            01 0137A    E7E7E7E7 A
     5346   01 0137B    09C6D6D9 A   PIOCDMG1 TEXTC    'FORMAT XX'
            01 0137C    D4C1E340 A
            01 0137D    E7E74040 A
     5347   01 0137E    35F01387     ERROR    STW,15   :ERRORX           SAVE RETURN ADDRESS
     5348   01 0137F    31101373              CW,1     PIOCDFLG          HAVE IOCD PRINTED
     5349   01 01380    68301383              BE       %+3               B: YES
     5350   01 01381    35101373              STW,1    PIOCDFLG          NO, SET FLAG
     5351   01 01382    6AF01345              BAL,15   PIOCD             PRINT IOCD
     5352   01 01383    32F01387     ERROR1   LW,15    :ERRORX           RETURN ADDRESS
     5353   01 01384    32F01387              LW,15    :ERRORX           RETURN ADDRESS
     5354   01 01385    E800021B              B        *:MERROR
     5355   01 01386    0000137E     :ERROR   DATA     ERROR
     5356   01 01387    00000000 A   :ERRORX  DATA     0
     5357   01 01388    35F0138E     SENSE    STW,15   :SENSEX           SAVE RETURN
     5358   01 01389    22F00000 A            LI,15    0
     5359   01 0138A    35F01373              STW,15   PIOCDFLG          RESET PRINT IOCD FLAG
     5360   01 0138B    32F0138E              LW,15    :SENSEX           RETURN ADDRESS
     5361   01 0138C    E800021D              B        *:MSENSE          SENSE SW 1,3
     5362   01 0138D    00001388     :SENSE   DATA     SENSE
     5363   01 0138E    00000000 A   :SENSEX  DATA     0
1 C00   21:10 JUN 20,'83    TELEFILE LINE PRINTER DIAGNOSTIC 960-0607-H02                         PAGE   39
A    5365                            *             *** INTERRUPT/TRAP HANDLER ***
     5366                            *
     5367                            * PARAMETERS REQ'D:
     5368                            * ----------------
     5369                            *   ITHTEST - TEST BEING PERFORMED (1=TST1,2=TST2,3=TST3)
     5370                            *   ITHSUBT - SUBTEST BEING PERFORMED (TST1 ONLY)
     5371                            *   ITHRST  - RESTART ADDRESS
     5372                            *
     5373   01 0138F    35F013A6     ITHDLR   STW,15   ITHSAVE           SAVE RETURN ADDRESS
     5374   01 01390    32C013A3              LW,12    ITHTEST           TEST NUMBER
     5375   01 01391    EAF00218              BAL,15   *:HEXC            CONVERT TO EBCDIC
     5376   01 01392    75F213A8              STB,15   ITHM2+1,1         ENTER INTO MSG
     5377   01 01393    EAF0021C              BAL,15   *:PRINT
     5378   01 01394    000013A7              DATA     ITHM2             'TSTX WILL BE RESTARTED'
     5379   01 01395    311013A3              CW,1     ITHTEST           TST1?
     5380   01 01396    6930139C              BNE      %+6               NO
     5381   01 01397    32C013A4              LW,12    ITHSUBT           SUBTEST NUMBER
     5382   01 01398    EAF00217              BAL,15   *:DECC            CONVERT TO EBCDIC
     5383   01 01399    55F213B0              STH,15   ITHM3+3,1         ENTER INTO MSG
     5384   01 0139A    EAF0021C              BAL,15   *:PRINT
     5385   01 0139B    000013AD              DATA     ITHM3             'SUBTEST NO. XX'
     5386   01 0139C    32C00FC6              LW,12    :DEVADDR          DEVICE ADDRESS
     5387   01 0139D    EAF00218              BAL,15   *:HEXC            CONVERT TO EBCDIC
     5388   01 0139E    35F013B4              STW,15   ITHM4+3           ENTER INTO MSG
     5389   01 0139F    EAF0021C              BAL,15   *:PRINT
     5390   01 013A0    000013B1              DATA     ITHM4             'DEVICE NO.XXXX'
     5391   01 013A1    32F013A5              LW,15    ITHRST            (R15)=RESTART ADDRESS
     5392   01 013A2    E80013A6              B        *ITHSAVE          RETURN TO MONITOR INTER/TRAP HANDLER
     5393                            *
     5394   01 013A3    00000000 A   ITHTEST  DATA     0
     5395   01 013A4    00000000 A   ITHSUBT  DATA     0
     5396   01 013A5    00000000 A   ITHRST   DATA     0
     5397   01 013A6    00000000 A   ITHSAVE  DATA     0
     5398   01 013A7    1740E3E2 A   ITHM2    TEXTC    ' TSTX WILL BE RESTARTED'
            01 013A8    E3E740E6 A
            01 013A9    C9D3D340 A
            01 013AA    C2C540D9 A
            01 013AB    C5E2E3C1 A
            01 013AC    D9E3C5C4 A
     5399   01 013AD    0F40E2E4 A   ITHM3    TEXTC    ' SUBTEST NO. XX'
            01 013AE    C2E3C5E2 A
            01 013AF    E340D5D6 A
            01 013B0    4B40E7E7 A
     5400   01 013B1    0F40C4C5 A   ITHM4    TEXTC    ' DEVICE NO.XXXX'
            01 013B2    E5C9C3C5 A
            01 013B3    40D5D64B A
            01 013B4    E7E7E7E7 A
     5401   01 013B5    0DD7D9D6 A   WAITMSG1 TEXTC    'PROGRAM ERROR'
            01 013B6    C7D9C1D4 A
            01 013B7    40C5D9D9 A
            01 013B8    D6D94040 A
     5402                            *
     5403   01 013B9                 BUFFER1  RES      33
     5404   01 013DA                 BUFFER2  RES      33
     5405   01 013FB                 BUFFER3  RES      33
     5406                            USERPROG END
            01 0141C    00002E01
            01 0141D    08000000 A
            01 0141E    40404040 A
            01 0141F    FF000000 A
            01 01420    E3C1D9E3 A
            01 01421    C5D5C440 A
            01 01422    F1000000 A
            01 01423    0000000B A
            01 01424    10000000 A
            01 01425    E7E7E7E7 A
            01 01426    00000005 A
            01 01427    0000007F A
            01 01428    0000003F A
            01 01429    C5C5C5C5 A
            01 0142A    C540C540 A
            01 0142B    0000FFFF A
            01 0142C    0FFFFFFF A
            01 0142D    00107AC0 A
            01 0142E    000000CF A
            01 0142F    0000000F A
            01 01430    000000F0 A
            01 01431    FFFFC000 A
            01 01432    000007FF A
            01 01433    00001FFF A
            01 01434    80000000 A
            01 01435    00800000 A
            01 01436    00008000 A
            01 01437    00000080 A
            01 01438    000000FF A
            01 01439    00000007 A
            01 0143A    A0000000 A

  CONTROL SECTION SUMMARY: 01 02E82   PT 0
  * NO UNDEFINED SYMBOLS
  *    ERROR SEVERITY LEVEL: 0
  * NO ERROR LINES
1 C00   21:10 JUN 20,'83    TELEFILE LINE PRINTER DIAGNOSTIC 960-0607-H02                         PAGE   40
A  AFERR           4882-TEXT
   AIOF0           4658-:TSEQEQU
   AIOF1           4658-:TSEQEQU
   AIOF2           4658-:TSEQEQU
   AIOF3           4658-:TSEQEQU
   AIOF4           4658-:TSEQEQU
   AIOF5           4658-:TSEQEQU
   AIOF6           4658-:TSEQEQU
   AIOF7           4658-:TSEQEQU
   AIOT0           4659-:TSEQEQU
   AIOT1           4659-:TSEQEQU
   AIOT2           4659-:TSEQEQU
   AIOT3           4659-:TSEQEQU
   AIOT4           4659-:TSEQEQU
   AIOT5           4659-:TSEQEQU
   AIOT6           4659-:TSEQEQU
   AIOT7           4659-:TSEQEQU
   AUTO            4863/DATA    4883-TEXT
   BANDDLY         1245-EQU     1788/BAL     1849/BAL
   BANDDLY1        1241-EQU     1554/BAL     1628/BAL     1682/BAL     1877/BAL
   BUFFER1         2494/STW     2721/STB     2729/LB      2746/LI      2772/STW     2814/STW     3087/STB
      3179/STB     3286/STW     3824/GEN     3874/GEN     3882/GEN     3888/GEN     3896/GEN     5403-RES
   BUFFER2         1535/STB     1844/STW     1951/STW     1998/STW     2155/STB     2181/STW     2185/STB
      2726/STW     2732/STB     2767/LI      2773/STW     2783/STH     2785/STH     2815/STW     2819/LI
      2830/STH     2920/STH     2926/STH     2943/STW     3063/STW     3083/STW     3088/LI      3097/CI
      3120/STB     3127/LI      3189/STW     3288/STW     3319/STW     3352/STW     3359/STB     3812/GEN
      3814/GEN     3816/GEN     3822/GEN     3832/GEN     3838/GEN     3842/GEN     3846/GEN     3848/GEN
      3860/GEN     3864/GEN     3868/GEN     3870/GEN     5258/STW     5262/STB     5279/STB     5404-RES
   BUFFER3         3287/STW     3290/LI      3850/GEN     3852/GEN     5405-RES
   BUPAR           4884-TEXT
   BUPAR1          4885-TEXT
   BYTECNT         2600-DATA
   BYTN0           4666-:TSEQEQU
   BYT00           1265/:TSEQ   1268/:TSEQ   1271/:TSEQ   1274/:TSEQ   4666-:TSEQEQU
   BYT01           4666-:TSEQEQU
   BYT02           4666-:TSEQEQU
   BYT03           4666-:TSEQEQU
   BYT04           4666-:TSEQEQU
   BYT05           4666-:TSEQEQU
   BYT06           4666-:TSEQEQU
   CATALOG          1.1-EQU        4/EQU
   CBREC           4886-TEXT
   CDPAR           4887-TEXT
   CEINT           4869/DATA    4888-TEXT
   CHARBLNK        2725/LW      2771/LW      2813/LW      2925/LH      3284/LW      3351/LW      3900-DATA
   CHARINDX        1134/STW     1144/STW     1154/STW     1163/STW     1172/STW     1179/STW     1185-DATA
      2169/CW      3124/CW      3327/CW
   CHARTBL         1126/LI      3733-DATA
   CHARTBLX        1127/STW     2154/LB*     2890/LB*     3119/LB*     3172/LB*     3178/LB*     3315/LW
      3679-DATA    5148/LB*
   CODE             906-CNAME
   COMNG           4667-:TSEQEQU
   COM00           4667-:TSEQEQU
   COM01           4667-:TSEQEQU
   COM02           4667-:TSEQEQU
   COM03           4667-:TSEQEQU
   COM04           4667-:TSEQEQU
   COM05           4667-:TSEQEQU
   COM06           4667-:TSEQEQU
   DELAYS          1553/LW      1627/LW      1681/LW      2588-DATA
   DELAYSP         1956/LW      2014/LW      2589-DATA
   DELAYTMP        2587-DATA
   DELAYTMS        2586-DATA
   DELAYTM2        2585-DATA
   DELYTM          1725/LW      2071/LW      2579-DATA
   DELYTMF         2582-DATA
   DELYTMP         2580-DATA
   DELYTMPF        2583-DATA
   DELYTMS         2584-DATA
   DELYTMSP        2581-DATA
   DPGEN        1184.25-FNAME             1184.36/DATA 1184.39/DATA
   DPMSK        1184.28-SET  1184.30-SET  1184.32/PEND
   DTCINT          4867/DATA    4889-TEXT
   ECHOERR         4890-TEXT
   ERROR           5347-STW     5355/DATA
   ERROR1          5352-LW
   EVFUDP       1129.29/STH  1129.31/LI    1184.6-GEN
   EVFUDPB0      1184.6/GEN   1184.7/GEN  1184.34-EQU  1184.42/DO
   EVFUDPB1     1184.40-EQU  1184.42/DO
   EVFUDPB2      1184.7/GEN  1184.45-EQU
   EVFUINDX     1184.11-DO   1184.12/DATA 1184.35-DO   1184.36/DATA
   EVFULIST     1184.10-SET  1184.11/DO   1184.12/DATA 1184.18/DO
   EVFUPX       1129.15/STH  1129.17/LI    1184.3-GEN
   EVFUPXB0      1184.3/GEN   1184.4/GEN   1184.9-EQU
   EVFUPXB1     1184.16-EQU
   EVFUPXB2      1184.4/GEN  1184.21-EQU
   EXECDELT        5241-DATA
   EXECDT          5191/STW     5194/MTW     5240-DATA
   EXECDTM         5190/LW      5239-DATA
   EXECERR         5187/STW     5204/MTW     5220/STW     5225/STW     5230/STW     5238-DATA
   EXECERR1        2449/STW     2452/LW      2593-DATA    3034/STW     3068/STW     3093/STW     3132/STW
      3297/STW     3419/STW     3442/STW     3458/STW     3522/STW     3528/STW
   EXECMSG         5198/DATA    5243-TEXTC
   EXECMSG1        5211/STB     5213/DATA    5244-TEXTC
   EXECMSG2        5245-TEXTC
   EXECPSD         5232/LPSD    5235-DATA    5237/XPSD
   EXECREC         5216-BAL     5236/DATA
   EXECSAV         5163/STM     5183/STM     5199/MTW     5201/LM      5242-RES
   EXECUTE      1129.35/BAL     2159/BAL     2191/BAL     2228/BAL     2238/BAL     2249/BAL     2260/BAL
      2294/BAL     2313/BAL     2365/BAL     2374/BAL     2401/BAL     2413/BAL     2484/BAL     2561/BAL
      2661/BAL     2668/BAL     2695/BAL     2798/BAL     2846/BAL     2873/BAL     3032/BAL     3066/BAL
      3091/BAL     3130/BAL     3295/BAL     3323/BAL     3372/BAL     3386/BAL     3417/BAL     3425/BAL
      3440/BAL     3456/BAL     3520/BAL     3526/BAL     5172/BNE     5176/B       5181/B       5182-LCI
      5272/BAL     5287/BAL
   EXECUTEX        2737/BAL     2744/BAL     2749/BAL     2791/BAL     2839/BAL     2868/BAL     2946/BAL
      5162-LCI
   EXECXPSD        5184/LW      5237-XPSD
   EXECX2          5179-BAL
   EXEC1           5200-LCI     5205/BEZ     5207/BE      5214/B
   EXEC2           5193/BNEZ    5203-BAL
   EXIT            1389-EQU     1395/DATA    1395/DATA    1434/B       1441/B       1508/BGE     1598/B
      1612/B       1754/BE      1817/B       1938/B       1985/B       1988/B       2106/BE      2113/B
      2117/B       2133/B       2140/B       2145/B       2171/B       2207/B       2232/B       2261/B
      2273/B       2327/BNEZ    2386/BNEZ    2424/B     2426.4/BLE     2429/B       2435/B       2474/B
      2475/B       2488/B       2562/B
   FMIUP           4893-TEXT
   FMSE            4891-TEXT
   FMSP            4892-TEXT
   FMTCODE         2348/STW     2350/OR      2354/OR      2389/STW     3497/STW     3505/OR      3509/OR
      3542/STW     3544-DATA
   FM4             4894-TEXT
   FM5             4895-TEXT
   FM6             4896-TEXT
   FM7             4897-TEXT
   FORMAT          1619/STB     1784/STB     1857/STB     1948/STB     1995/STB     2124/STB     2282/STB
      2283/LB      2301/MTB     2311/XW      2319/XW      2330/STB     2355/STB     2372/STB     2399/STB
      2410/STB     2447/STB     2659/STB     2693/STB     2708/STB     2764/STB     2810/STB     2860/STB
      3006/STB     3019/STB     3251/STB     3384/STB     3411/STB     3428/STB     3429/LB      3444/MTB
      3454/XW      3459/XW      3470/STB     3510/STB     3524/STB     3561/STB     3575/STB     3604/STB
      3655/STB     3808/GEN     3810/GEN     3818/GEN     3828/GEN     3834/GEN     3836/GEN     3840/GEN
      3844/GEN     3854/GEN     3856/GEN     3858/GEN     3862/GEN     3866/GEN     3872/GEN     3876/GEN
      3899-DATA
   FORMAT1         2599-DATA
   HDMSG1          3685/DATA    3718-TEXTC
   HDMSG10         3694/DATA    3727-TEXTC
   HDMSG11         3695/DATA    3728-TEXTC
   HDMSG2          3686/DATA    3719-TEXTC
   HDMSG3          3687/DATA    3720-TEXTC
   HDMSG4          3688/DATA    3721-TEXTC
   HDMSG5          3689/DATA    3722-TEXTC
   HDMSG6          3690/DATA    3723-TEXTC
   HDMSG7          3691/DATA    3724-TEXTC
   HDMSG8          3692/DATA    3725-TEXTC
   HDMSG9          3693/DATA    3726-TEXTC
   HEXTDECC        3958/BAL     3961/BAL     3988-LI
   HIOF0           4652-:TSEQEQU
   HIOF1           4652-:TSEQEQU
   HIOF2           4652-:TSEQEQU
   HIOF3           4652-:TSEQEQU
   HIOF4           4652-:TSEQEQU
   HIOF5           4652-:TSEQEQU
   HIOF6           4652-:TSEQEQU
   HIOF7           4652-:TSEQEQU
   HIOT0           4653-:TSEQEQU
   HIOT1           4653-:TSEQEQU
   HIOT2           4653-:TSEQEQU
   HIOT3           4653-:TSEQEQU
   HIOT4           4653-:TSEQEQU
   HIOT5           4653-:TSEQEQU
   HIOT6           4653-:TSEQEQU
   HIOT7           4653-:TSEQEQU
   HSCLOK          4898-TEXT
   I                817-SET      819/GEN      819/GEN      819/GEN      819/GEN      820-SET      820/SET
   INCLEN          4865/DATA    4869/DATA    4899-TEXT
   INITIALA        1114-LI      1120/BCS     1122/BG
   INITIALB        1132/BNE     1141-CI
   INITIALC        1142/BNE     1151-CI
   INITIALD        1152/BNE     1160-CI
   INITIALE        1161/BNE     1169-CI
   INITIALF        1170/BNE     1178-LI
   INITIALX        1107/STW     1116/B*      1140/B*      1150/B*      1159/B*      1168/B*      1177/B*
      1184/B*      1186-DATA
   INTLK           4901-TEXT
   INTPEND         4863/DATA    4900-TEXT
   INVCTBL1        3765-DATA
   INVCTBL2        2234/LW      3790-DATA
   INVCTBL3        2245/LW      3805-DATA
   IOCD1           1785/LI      2364/LI      2400/LI      2412/LI      2660/LI      2694/LI      2797/LI
      2845/LI      2872/LI      3385/LI      3519/LI      3808-GEN
   IOCD10          1449/STB     1450/LI      3832-GEN
   IOCD11          2126/LI      3567/LI      3577/LI      3834-GEN
   IOCD12          3836-GEN
   IOCD13          1859/STH     1861/LI      3840-GEN
   IOCD14          3842-GEN
   IOCD15          1538/STH     1542/LI      3846-GEN
   IOCD16          3844-GEN
   IOCD17          3848-GEN
   IOCD18          3850-GEN
   IOCD19          3852-GEN
   IOCD2           2736/LI      3810-GEN
   IOCD20          1623/STB     1624/LI      1677/STB     1678/LI      3854-GEN
   IOCD21          1723/LI      3856-GEN
   IOCD22          1954/LI      3858-GEN
   IOCD23          2002/STB     2003/LI      2050/CI      2060/STB     2061/LI      2105/CI      3862-GEN
   IOCD24          2188/STH     2190/LI      3870-GEN
   IOCD25          3872-GEN
   IOCD26          3027/STH     3030/STH     3031/LI      3876-GEN
   IOCD27          2227/LI      2259/LI      3880-GEN
   IOCD28          2491/STW     2499/LW      2503/STH     2504/LI      2524/STW     2525/LI      3882-GEN
      3886/GEN
   IOCD29          2489/LI      3884/GEN     3886-GEN
   IOCD3           2158/LI      2743/LI      2867/LI      2945/LI      3065/LI      3322/LI      3371/LI
      3814-GEN     5271/LI      5286/LI
   IOCD30          2498/STH     2501/STW     2522/LI      3888-GEN
   IOCD31          2237/LI      3890-GEN
   IOCD32          2248/LI      3892-GEN
   IOCD33          2483/LI      2560/LI      3894-GEN
   IOCD34          1137/STH     1147/STH     1158/STH     1167/STH     1176/STH     1183/STH     3206/LI
      3896-GEN
   IOCD4           2747/STH     2748/LI      2768/STH     2790/LI      2800/MTW     2820/STH     2838/LI
      2848/MTW     3089/STH     3090/LI      3095/LH      3099/MTW     3101/MTW     3128/STH     3129/LI
      3138/MTW     3291/STH     3294/LI      3299/MTW     3816-GEN
   IOCD5           3253/STH     3255/STH     3256/LI      3606/STH     3608/STH     3609/LI      3818-GEN
   IOCD6           3198/LI      3822-GEN
   IOCD7           3824-GEN
   IOCD8           2664/STH     2666/STH     2667/LI      3421/STH     3423/STH     3424/LI      3826-GEN
   IOCD9           2290/STH     2292/STH     2293/LI      2307/STH     2309/STH     2312/LI      2361/STH
      2363/STH     2373/LI      3413/STH     3415/STH     3416/LI      3436/STH     3438/STH     3439/LI
      3450/STH     3452/STH     3455/LI      3516/STH     3518/STH     3525/LI      3828-GEN
   IOMDT           3200/LW      3205/LW      3213/LW      3258/LW      3569/LW      3576/LW      3584/LW
      3611/LW      3682-DATA
   IOMDTMSG        3263/DATA    3616/DATA    3683-TEXTC
   IOPAR           4871/DATA    4902-TEXT
   IOPCONT         4865/DATA    4903-TEXT
   IOPHALT         4865/DATA    4904-TEXT
   IOPMEM          4865/DATA    4905-TEXT
   ISBF0           4660-:TSEQEQU
   ISBF1           4660-:TSEQEQU
   ISBF2           4660-:TSEQEQU
   ISBF3           4660-:TSEQEQU
   ISBF4           4660-:TSEQEQU
   ISBF5           4660-:TSEQEQU
   ISBF6           4660-:TSEQEQU
   ISBF7           4660-:TSEQEQU
   ISBT0           4661-:TSEQEQU
   ISBT1           4661-:TSEQEQU
   ISBT2           4661-:TSEQEQU
   ISBT3           4661-:TSEQEQU
   ISBT4           4661-:TSEQEQU
   ISBT5           4661-:TSEQEQU
   ISBT6           4661-:TSEQEQU
   ISBT7           4661-:TSEQEQU
   ITHDLR          1354/LI      2637/LI      3021/LI      5373-STW
   ITHM2           5376/STB     5378/DATA    5398-TEXTC
   ITHM3           5383/STH     5385/DATA    5399-TEXTC
   ITHM4           5388/STW     5390/DATA    5400-TEXTC
   ITHRST          1357/STW     2640/STW     3024/STW     5391/LW      5396-DATA
   ITHSAVE         5373/STW     5392/B*      5397-DATA
   ITHSUBT         1352/STW     5381/LW      5395-DATA
   ITHTEST         1353/STW     2636/STW     3020/STW     5206/CW      5209/LW      5374/LW      5379/CW
      5394-DATA
   KSLEW           3596/LW      3637-DATA
   L               4135/AND     4143/AND     4186/AND     4214/AND
   LASTCHAR        1135/STW     1145/STW     1156/STW     1165/STW     1174/STW     1181/STW     3169/STW
      3170/LW      3183/CW      3681-DATA
   LASTINVC        2216-DATA
   LINECNT         2444/LW      2595-DATA
   LINEPIN         3601/LB      3636-DATA
   LMCLK           4906-TEXT
   LVFU          1129.2-EQU  1129.40/B
   LVFUX         1129.9/BEZ  1129.22/BEZ  1129.36/B    1129.42-EQU
   LVFUY        1129.18/B    1129.32/B    1129.34-EQU
   LVFU0         1129.7-EQU
   LVFU1         1129.5/BG   1129.20-EQU
   MAXCHAN         1129/STW     1139/STW     1149/STW     2383/CW      2578-DATA
   MEMADR          4865/DATA    4907-TEXT
   MPUSED          4908-TEXT
   MSGPERR         2219-TEXTC   2231/DATA    2487/DATA
   NOP              918/LW       921-NOP
   NOTOP           4863/DATA    4863/DATA    4909-TEXT
   NOTUSED         4863/DATA    4867/DATA    4867/DATA    4867/DATA    4867/DATA    4867/DATA    4867/DATA
      4867/DATA    4869/DATA    4869/DATA    4869/DATA    4871/DATA    4871/DATA    4871/DATA    4871/DATA
      4910-TEXT
   OSBF0           1262/:TSEQ   1265/:TSEQ   1268/:TSEQ   1271/:TSEQ   1281/:TSEQ   1290/:TSEQ   1838/:TSEQ
      4650-:TSEQEQU
   OSBF1           1262/:TSEQ   1263/:TSEQ   1265/:TSEQ   1268/:TSEQ   1271/:TSEQ   1274/:TSEQ   1281/:TSEQ
      1285/:TSEQ   1287/:TSEQ   1290/:TSEQ   1300/:TSEQ   4650-:TSEQEQU
   OSBF2           1262/:TSEQ   1263/:TSEQ   1265/:TSEQ   1268/:TSEQ   1271/:TSEQ   1274/:TSEQ   1281/:TSEQ
      1285/:TSEQ   1287/:TSEQ   1290/:TSEQ   1300/:TSEQ   4650-:TSEQEQU
   OSBF3           1262/:TSEQ   1263/:TSEQ   1265/:TSEQ   1268/:TSEQ   1271/:TSEQ   1274/:TSEQ   1281/:TSEQ
      1285/:TSEQ   1287/:TSEQ   1290/:TSEQ   1300/:TSEQ   4650-:TSEQEQU
   OSBF4           1262/:TSEQ   1263/:TSEQ   1265/:TSEQ   1268/:TSEQ   1271/:TSEQ   1274/:TSEQ   1281/:TSEQ
      1285/:TSEQ   1287/:TSEQ   1290/:TSEQ   1300/:TSEQ   4650-:TSEQEQU
   OSBF5           1262/:TSEQ   1263/:TSEQ   1265/:TSEQ   1268/:TSEQ   1271/:TSEQ   1274/:TSEQ   1281/:TSEQ
      1285/:TSEQ   1287/:TSEQ   1290/:TSEQ   1290/:TSEQ   1300/:TSEQ   4650-:TSEQEQU
   OSBF6           1262/:TSEQ   1263/:TSEQ   1265/:TSEQ   1268/:TSEQ   1271/:TSEQ   1274/:TSEQ   1281/:TSEQ
      1285/:TSEQ   1287/:TSEQ   1300/:TSEQ   2567/:TSEQ   4650-:TSEQEQU
   OSBF7           1262/:TSEQ   1263/:TSEQ   1265/:TSEQ   1268/:TSEQ   1271/:TSEQ   1274/:TSEQ   1281/:TSEQ
      1285/:TSEQ   1287/:TSEQ   1290/:TSEQ   1300/:TSEQ   4650-:TSEQEQU
   OSBT0           1263/:TSEQ   1274/:TSEQ   1285/:TSEQ   1837/:TSEQ   4651-:TSEQEQU
   OSBT1           4651-:TSEQEQU
   OSBT2           4651-:TSEQEQU
   OSBT3           4651-:TSEQEQU
   OSBT4           4651-:TSEQEQU
   OSBT5           4651-:TSEQEQU
   OSBT6           2566/:TSEQ   4651-:TSEQEQU
   OSBT7           4651-:TSEQEQU
   OVERRUN         4911-TEXT
   PAPERR          4912-TEXT
   PAPLOW          4913-TEXT
   PAPMOV          4914-TEXT
   PAPRUN          4915-TEXT
   PAPTOP          4871/DATA    4916-TEXT
   PARNOERR        3934/STW     3939/LW      3948/STW     3955/STW     3966/MTW     3974/MTW     3980/MTW
      4007-DATA
   PFAULT          4917-TEXT
   PIOCD           5208/BAL     5301-LCI     5351/BAL
   PIOCDFLG        1348/STW     1403/STW     5344-DATA    5348/CW      5350/STW     5359/STW
   PIOCDMG1        5317/STH     5319/DATA    5346-TEXTC
   PIOCDMSG        5331/STW     5333/STW     5337/STW     5339/STW     5341/DATA    5345-TEXTC
   PIOCDSAV        5302/STM     5327/LM      5343-RES
   PIOCD1          5311/BNE     5321-LW      5342/B
   PIOCD2          5306/BEZ     5320/B       5325/B       5329-LW
   PORDER          4918-TEXT
   PRINT            911-BAL      917/BDR
   PRINTERR        4919-TEXT
   PRINTPOS        2222/BAL     2670/BAL     3038/BAL     5254-STW
   PRPOSFLG        5256/STW     5264/CW      5267/STW     5291-DATA
   PRPOSNUM        5261/LB      5278/LB      5293-DATA
   PRPOSRTN        5254/STW     5289/B*      5292-DATA
   PRPOS1          5261-LB      5270/BLE
   PRPOS2          5277-LI      5284/BLE     5285/B
   PRPOS3          5282/B       5286-LI
   PSLOW           4923-TEXT
   RANDOMC         2718/BAL     2778/BAL     2825/BAL     2898/BAL     2910/BAL     2937/BAL     5143-STW
   RANDOMCX        5141-DATA    5143/STW     5150/LW
   RANDOMR         5142-DATA    5144/STW     5149/LW
   RECOVERX        1194/STW     1213/B*      1215-DATA
   RECOVRY1        4871/DATA    4920-TEXT
   RECOVRY2        4871/DATA    4921-TEXT
   RECOVRY3        4922-TEXT
   REV              889-CNAME
   REVBRNCH         919/STW     1200-EQU
   REVCOUNT         886-SET      891/DO       895-SET      895/SET      900/GEN
   REVEND           896/DO       941-REV
   REVISION         908/LW       909/LW       929-REV
   REVPRINT         908-LW      1204/BAL
   REVSTART         887-SET      892-SET      899/ORG
   S:PT               4/EQU
   SBAF0           4662-:TSEQEQU
   SBAF1           4662-:TSEQEQU
   SBAF2           4662-:TSEQEQU
   SBAF3           4662-:TSEQEQU
   SBAF4           4662-:TSEQEQU
   SBAF5           4662-:TSEQEQU
   SBAF6           4662-:TSEQEQU
   SBAF7           4662-:TSEQEQU
   SBAT0           4663-:TSEQEQU
   SBAT1           4663-:TSEQEQU
   SBAT2           4663-:TSEQEQU
   SBAT3           4663-:TSEQEQU
   SBAT4           4663-:TSEQEQU
   SBAT5           4663-:TSEQEQU
   SBAT6           4663-:TSEQEQU
   SBAT7           4663-:TSEQEQU
   SBBF0           4664-:TSEQEQU
   SBBF1           4664-:TSEQEQU
   SBBF2           4664-:TSEQEQU
   SBBF3           4664-:TSEQEQU
   SBBF4           4664-:TSEQEQU
   SBBF5           4664-:TSEQEQU
   SBBF6           4664-:TSEQEQU
   SBBF7           4664-:TSEQEQU
   SBBT0           4665-:TSEQEQU
   SBBT1           4665-:TSEQEQU
   SBBT2           4665-:TSEQEQU
   SBBT3           4665-:TSEQEQU
   SBBT4           4665-:TSEQEQU
   SBBT5           4665-:TSEQEQU
   SBBT6           4665-:TSEQEQU
   SBBT7           4665-:TSEQEQU
   SCOMP           4924-TEXT
   SEMON           4925-TEXT
   SENSE           5357-STW     5362/DATA
   SIOF0           1254/:TSEQ   4656-:TSEQEQU
   SIOF1           1254/:TSEQ   4656-:TSEQEQU
   SIOF2           1254/:TSEQ   4656-:TSEQEQU
   SIOF3           4656-:TSEQEQU
   SIOF4           4656-:TSEQEQU
   SIOF5           1254/:TSEQ   4656-:TSEQEQU
   SIOF6           1254/:TSEQ   4656-:TSEQEQU
   SIOF7           1254/:TSEQ   4656-:TSEQEQU
   SIOPBUSY        4865/DATA    4926-TEXT
   SIOT0           4657-:TSEQEQU
   SIOT1           4657-:TSEQEQU
   SIOT2           4657-:TSEQEQU
   SIOT3           1254/:TSEQ   4657-:TSEQEQU
   SIOT4           4657-:TSEQEQU
   SIOT5           4657-:TSEQEQU
   SIOT6           4657-:TSEQEQU
   SIOT7           4657-:TSEQEQU
   SPERR           4927-TEXT
   STATEA          4928-TEXT
   STATEB          4929-TEXT
   STATEC          4930-TEXT
   STATED          4931-TEXT
   STATEE          4932-TEXT
   SYNCCHAR        3175/STW     3187/LW      3680-DATA
   TABLEMSG        3025/LW      3685-DATA
   TDVF0           1258/:TSEQ   1259/:TSEQ   1260/:TSEQ   1261/:TSEQ   1264/:TSEQ   1265/:TSEQ   1268/:TSEQ
      1278/:TSEQ   1279/:TSEQ   1280/:TSEQ   1283/:TSEQ   1284/:TSEQ   1298/:TSEQ   1299/:TSEQ
      4654-:TSEQEQU
   TDVF1           1257/:TSEQ   1259/:TSEQ   1260/:TSEQ   1261/:TSEQ   1264/:TSEQ   1265/:TSEQ   1268/:TSEQ
      1277/:TSEQ   1279/:TSEQ   1280/:TSEQ   1283/:TSEQ   1287/:TSEQ   1293/:TSEQ   1297/:TSEQ   2566/:TSEQ
      2567/:TSEQ   4654-:TSEQEQU
   TDVF2           1257/:TSEQ   1258/:TSEQ   1260/:TSEQ   1261/:TSEQ   1264/:TSEQ   1265/:TSEQ   1277/:TSEQ
      1278/:TSEQ   1280/:TSEQ   1283/:TSEQ   1284/:TSEQ   1287/:TSEQ   1290/:TSEQ   1293/:TSEQ   1295/:TSEQ
      1298/:TSEQ   1299/:TSEQ   1300/:TSEQ   1531/:TSEQ   2567/:TSEQ   4654-:TSEQEQU
   TDVF3           1257/:TSEQ   1258/:TSEQ   1259/:TSEQ   1261/:TSEQ   1277/:TSEQ   1278/:TSEQ   1283/:TSEQ
      1284/:TSEQ   1295/:TSEQ   4654-:TSEQEQU
   TDVF4           1257/:TSEQ   1258/:TSEQ   1259/:TSEQ   1260/:TSEQ   1264/:TSEQ   1265/:TSEQ   1277/:TSEQ
      1279/:TSEQ   1280/:TSEQ   1296/:TSEQ   4654-:TSEQEQU
   TDVF5           1264/:TSEQ   1265/:TSEQ   1279/:TSEQ   1280/:TSEQ   1290/:TSEQ   1298/:TSEQ   1299/:TSEQ
      1300/:TSEQ   4654-:TSEQEQU
   TDVF6           1264/:TSEQ   1265/:TSEQ   1268/:TSEQ   1277/:TSEQ   1279/:TSEQ   1280/:TSEQ   1287/:TSEQ
      1293/:TSEQ   1296/:TSEQ   1297/:TSEQ   1298/:TSEQ   1299/:TSEQ   1531/:TSEQ   4654-:TSEQEQU
   TDVF7           1264/:TSEQ   1265/:TSEQ   1277/:TSEQ   1279/:TSEQ   1280/:TSEQ   1298/:TSEQ
      4654-:TSEQEQU
   TDVT0           1257/:TSEQ   1277/:TSEQ   4655-:TSEQEQU
   TDVT1           1258/:TSEQ   1278/:TSEQ   1284/:TSEQ   1298/:TSEQ   1299/:TSEQ   1300/:TSEQ   1531/:TSEQ
      4655-:TSEQEQU
   TDVT2           1259/:TSEQ   1279/:TSEQ   2566/:TSEQ   4655-:TSEQEQU
   TDVT3           1260/:TSEQ   1279/:TSEQ   1298/:TSEQ   1299/:TSEQ   2436/:TSEQ   4655-:TSEQEQU
   TDVT4           1261/:TSEQ   1283/:TSEQ   1284/:TSEQ   1294/:TSEQ   1295/:TSEQ   1298/:TSEQ   1299/:TSEQ
      4655-:TSEQEQU
   TDVT5           1277/:TSEQ   1278/:TSEQ   1283/:TSEQ   1284/:TSEQ   1295/:TSEQ   4655-:TSEQEQU
   TDVT6           1278/:TSEQ   1283/:TSEQ   1284/:TSEQ   1295/:TSEQ   4655-:TSEQEQU
   TDVT7           1278/:TSEQ   1283/:TSEQ   1284/:TSEQ   1295/:TSEQ   4655-:TSEQEQU
   TEXTADR          910/STW      912-DATA
   TIOF0           1255/:TSEQ   1256/:TSEQ   1265/:TSEQ   1268/:TSEQ   1271/:TSEQ   1274/:TSEQ   1281/:TSEQ
      1285/:TSEQ   1287/:TSEQ   1290/:TSEQ   1300/:TSEQ   1832/:TSEQ   4648-:TSEQEQU
   TIOF1           1255/:TSEQ   1265/:TSEQ   1268/:TSEQ   1271/:TSEQ   1274/:TSEQ   1281/:TSEQ   1285/:TSEQ
      1287/:TSEQ   1290/:TSEQ   1300/:TSEQ   1528/:TSEQ   4648-:TSEQEQU
   TIOF2           1255/:TSEQ   1265/:TSEQ   1268/:TSEQ   1271/:TSEQ   1274/:TSEQ   1281/:TSEQ   1285/:TSEQ
      1287/:TSEQ   1290/:TSEQ   1300/:TSEQ   1528/:TSEQ   4648-:TSEQEQU
   TIOF3           4648-:TSEQEQU
   TIOF4           1255/:TSEQ   1256/:TSEQ   1265/:TSEQ   1268/:TSEQ   1271/:TSEQ   1274/:TSEQ   1281/:TSEQ
      1287/:TSEQ   1290/:TSEQ   1300/:TSEQ   2567/:TSEQ   4648-:TSEQEQU
   TIOF5           1255/:TSEQ   1265/:TSEQ   1268/:TSEQ   1271/:TSEQ   1274/:TSEQ   1281/:TSEQ   1285/:TSEQ
      1287/:TSEQ   1290/:TSEQ   1300/:TSEQ   1528/:TSEQ   4648-:TSEQEQU
   TIOF6           1255/:TSEQ   1265/:TSEQ   1268/:TSEQ   1271/:TSEQ   1274/:TSEQ   1281/:TSEQ   1285/:TSEQ
      1287/:TSEQ   1290/:TSEQ   1300/:TSEQ   1528/:TSEQ   4648-:TSEQEQU
   TIOF7           1255/:TSEQ   1256/:TSEQ   1265/:TSEQ   1268/:TSEQ   1271/:TSEQ   1274/:TSEQ   1281/:TSEQ
      1285/:TSEQ   1287/:TSEQ   1290/:TSEQ   1300/:TSEQ   4648-:TSEQEQU
   TIOT0           1831/:TSEQ   4649-:TSEQEQU
   TIOT1           1256/:TSEQ   4649-:TSEQEQU
   TIOT2           1256/:TSEQ   4649-:TSEQEQU
   TIOT3           1255/:TSEQ   1256/:TSEQ   1265/:TSEQ   1268/:TSEQ   1271/:TSEQ   1274/:TSEQ   1281/:TSEQ
      1285/:TSEQ   1287/:TSEQ   1290/:TSEQ   1300/:TSEQ   1388/:TSEQ   1528/:TSEQ   2566/:TSEQ   2567/:TSEQ
      4649-:TSEQEQU
   TIOT4           1285/:TSEQ   2566/:TSEQ   4649-:TSEQEQU
   TIOT5           1256/:TSEQ   4649-:TSEQEQU
   TIOT6           1256/:TSEQ   4649-:TSEQEQU
   TIOT7           4649-:TSEQEQU
   TITLE              4-EQU      442/TITLE   1099/TEXTC
   TLODD           4933-TEXT
   TMBYTE1         2596-DATA
   TMBYTE2         2597-DATA
   TMBYTE3         2598-DATA
   TRANSERR        4934-TEXT
   TRANSM          4865/DATA    4869/DATA    4935-TEXT
   TRANSMEM        4865/DATA    4936-TEXT
   TSEQ1           1254-:TSEQ   1527/EQU     1839/EQU     1992/EQU
   TSEQ11          1262-:TSEQ
   TSEQ12          1263-:TSEQ
   TSEQ13          1264-:TSEQ
   TSEQ14          1265-:TSEQ
   TSEQ15          1268-:TSEQ
   TSEQ16          1271-:TSEQ
   TSEQ17          1274-:TSEQ
   TSEQ18          1277-:TSEQ
   TSEQ19          1278-:TSEQ
   TSEQ2           1255-:TSEQ
   TSEQ20          1279-:TSEQ
   TSEQ21          1280-:TSEQ
   TSEQ23          1281-:TSEQ   1529/EQU
   TSEQ24          1283-:TSEQ
   TSEQ25          1284-:TSEQ
   TSEQ26          1285-:TSEQ   1530/EQU
   TSEQ27          1287-:TSEQ   1836/EQU
   TSEQ28          1290-:TSEQ   2120/EQU
   TSEQ29          1293-:TSEQ   1532/EQU     1840/EQU
   TSEQ30          1294-:TSEQ   2121/EQU
   TSEQ31          1295-:TSEQ
   TSEQ34          1296-:TSEQ
   TSEQ35          1297-:TSEQ
   TSEQ36          1298-:TSEQ
   TSEQ37          1299-:TSEQ
   TSEQ38          1300-:TSEQ
   TSEQ4           1256-:TSEQ
   TSEQ5           1257-:TSEQ
   TSEQ6           1258-:TSEQ
   TSEQ7           1259-:TSEQ
   TSEQ8           1260-:TSEQ
   TSEQ9           1261-:TSEQ
   TSTCTZMG        3269/DATA    3625/DATA    3710-TEXTC
   TSTFLAG         1226/STW     1239-DATA    1319/STW     1370/CW      2624/STW     2644/CW      3004/STW
      3161/CW
   TSTP1           2441/STW     2443/LW      2454/LW      2466/MTW     2467/LW      2592-DATA    3007/STW
      3015/LW      3016/CW      3035/LW      3039/LW      3650/STW     3653/MTW     3656/LW
   TST0            1046/:PROCDIC             1225-LI      1236/B
   TST0A           1231-LI      1371/BNE
   TST0B           1234-BAL     2645/BNE
   TST1            1047/:PROCDIC             1319-STW
   TST1ALT         1230/B       1322-LW      1374/B
   TST1ERR         1540/STW     1570/STW     1589/CW      1855/STW     1897/STW     1920/STW     1929/CW
      1986/CW      2576-DATA
   TST1EXP         2574-DATA
   TST1FLAG        2442/STW     2594-DATA    3009/STW     3044/CW      3488/CW      3529/CW      3651/STW
   TST1FLGM        2590-DATA    4440/CW
   TST1FLG1        1321/STW     1376/CW      1387-DATA
   TST1G           1364/LW      1392-DATA
   TST1INDX        1242/CW      1447/STW     1448/LW      1505/MTW     1506/LW      1509/CW      1536/STW
      1537/LW      1566/LW      1575/CW      1594/MTW     1595/LW      1617/STW     1648/LW      1664/LW
      1702/LW      1742/LW      1753/CW      1755/MTW     1846/STW     1858/LW      1894/LW      1902/LW
      1934/MTW     1935/LW      2151/STW     2153/LW      2167/MTW     2168/LW      2178/STW     2183/LW
      2186/MTW     2187/LW      2193/LW      2204/LW      2221/STW     2346/STW     2385/LW      2387/MTW
      2478/STW     2497/SW      2500/AW      2502/LW      2543/MTW     2544/LW      2573-DATA
   TST1IND1        2575-DATA
   TST1LMT         1337/STD     1341/STW     1343/STW     1351/LW      1358/CW      1366/MTW     1367/LW
      1368/CW      1378/LW      1386-DATA
   TST1MAXT        2572-DATA
   TST1MINT        2571-DATA
   TST1MSG1        2601-TEXTC
   TST1MSG2        2602-TEXTC
   TST1MSG3        2603-TEXTC
   TST1MSG4        1380/STH     1382/DATA    2604-TEXTC
   TST1PATN        2577-DATA
   TST1SAVE        2591-DATA
   TST101          1326-STW     1331/BG      1336/B       1340/BNE
   TST102          1323/BEZ     1339-CW
   TST104          1349-BAL
   TST105          1366-MTW     1377/BE      1389/EQU
   TST1051         1376-CW
   TST109          1338/B       1344-LW      1356/LI      1369/BLE
   TST11           1392/DATA    1402-HIO     1440/B
   TST110          1393/DATA    2117-B
   TST111          1394/DATA    2123-LI
   TST112          1394/DATA    2145-B
   TST113          1394/DATA    2150-LI
   TST114          1394/DATA    2177-LI
   TST115          1394/DATA    2220-LI
   TST116          1395/DATA    2273-B
   TST117          2278-LI
   TST118          2344-LI
   TST119          1395/DATA    2398-LI      2434/B
   TST12           1392/DATA    1446-LI      1513/B       1519/B
   TST120          1395/DATA    2440-LI
   TST120A         2452-LW      3045/BE
   TST121          1396/DATA    2475-B
   TST122          1396/DATA    2477-LI
   TST13           1392/DATA    1534-LI
   TST14           1392/DATA    1612-B
   TST15           1392/DATA    1616-LI
   TST16           1393/DATA    1780-LW      1815/B
   TST17           1393/DATA    1842-LI
   TST18           1393/DATA    1947-LI
   TST19           1393/DATA    1994-LI
   TST2            1048/:PROCDIC             2624-STW
   TST2ALT         1233/B       2633-LW      2639/LI      2649/B
   TST2FLG         2957-DATA
   TST2LINE        2715/STW     2734/MTW     2776/STW     2793/MTW     2822/STW     2841/MTW     2865/STW
      2870/MTW     2915/CW      2964-RES
   TST2LOOP        2710/STW     2751/MTW     2766/STW     2795/MTW     2818/STW     2843/MTW     2863/STW
      2875/MTW     2917/LW      2963-RES
   TST2MSG         2663/LI      2973-TEXT
   TST2RTN         2687/STW     2697/B*      2706/STW     2753/B*      2762/STW     2796/BGEZ*   2808/STW
      2844/BGEZ*   2858/STW     2878/BE*     2935/STW     2949/B*      2958-RES
   TST2X1          2713/STD     2730/CLM     2740/AWM     2862/STW     2877/CW      2879/STW     2883/CW
      2966-RES
   TST2X2          2741/AWM     2967-RES
   TST3            1049/:PROCDIC             2996-LW      3023/LI      3049/B
   TST3A           3042-MTW     3069/BAL     3094/BAL     3133/BAL     3298/BAL     3325/BAL     3374/BAL
   TST3B           3044-CW      3265/B       3467/BNEZ    3474/B       3533/BGE     3538/B       3619/BGE
   TST3C           2450/B       3012/BG      3015-LW
   TST3CNT         2279/STW     2286/LW      2300/MTW     2302/LW      2332/STW     2345/STW     2349/LW
      2353/LW      2356/LW      2381/MTW     2382/LW      2391/STW     3117/STW     3134/MTW     3135/LW
      3293/STW     3300/MTW     3408/STW     3432/LW      3443/MTW     3445/LW      3472/STW     3495/STW
      3504/LW      3508/LW      3511/LW      3534/MTW     3535/LW      3676-DATA
   TST3D           3013-LW      3652/B       3658/BL      3661/BLE
   TST3INDX        2280/STW     2326/LW      2328/MTW     3409/STW     3466/LW      3468/MTW     3671-DATA
   TST3LINE        2445/STW     3014/STW     3042/MTW     3677-DATA
   TST3TST         3040/LW      3696-DATA
   TST30           3061-LI      3696/DATA
   TST31           3081-LW      3697/DATA
   TST310          3649-LI      3664/B       3706/DATA
   TST31001        3046/BL      3653-MTW     3659/BE
   TST3101         3090-LI      3100/B       3102/B
   TST32           3115-LI      3137/BG      3698/DATA
   TST3201         3123/B       3127-LI
   TST3202         3129-LI      3139/B
   TST3205         3118-LI      3125/BGE     3126/B
   TST33           3152-LW      3699/DATA
   TST33CT         3194/STW     3211/LW      3219/SW      3666/MTW     3672-DATA
   TST33CTR        3267-BAL     3670/DATA
   TST33CTZ        3154/LW      3667-XPSD
   TST33MSG        3231/STW     3246/STW     3249/STW     3254/LI      3708-TEXT
   TST33MTW        3152/LW      3666-MTW
   TST33PT         3220/STW     3225/AW      3234/LW      3236/CW      3238/LW      3240/CW      3242/LW
      3675-RES
   TST33SAV        3212/STW     3218/LW      3673-DATA
   TST33X          3674-DATA
   TST33Z          3667/XPSD    3669-DATA
   TST3301         3177-LI      3184/BGE     3185/B
   TST33011        3158/BNE     3160/BEZ     3162/BNE     3164/BLE     3170-LW
   TST3302         3205-LW      3221/BIR
   TST33021        3218-LW
   TST3303         3236-CW      3243/BIR
   TST3304         3239/B       3241/BLE     3243-BIR
   TST3305         3204/B       3210/B       3217/B       3262-BAL
   TST34           3283-LI      3700/DATA
   TST3401         3290-LI      3302/B
   TST3402         3294-LI      3301/BGZ
   TST35           3313-LI      3328/BLE     3329/B       3701/DATA
   TST36           3344-LW      3702/DATA
   TST36MSG        3348/DATA    3711-TEXTC
   TST3601         3358-LB      3364/BL
   TST3602         3367/BL      3371-LI      3377/BL      3379/BGZ
   TST3603         3369-LW      3381/BEZ     3390/B
   TST3604         3368/BE      3391-LI
   TST37           3407-LI      3703/DATA
   TST37M1         3412/LB      3414/LI      3712-TEXTC
   TST37M2         3422/LI      3713-TEXT
   TST37M3         2285/STH     2288/STH     2289/LB      2291/LI      3431/STH     3434/STH     3435/LB
      3437/LI      3715-TEXTC
   TST37TP         2306/LB      2308/LI      3449/LB      3451/LI      3716-TEXTC
   TST3701         3429-LB      3447/BL      3460/B       3464/BL      3473/B
   TST3702         3449-LB      3462/BE      3465/BE
   TST3703         3448/BG      3461-CI
   TST3704         3446-CI
   TST38           3488-CW      3704/DATA
   TST38MSG        2352/STH     2359/STH     2360/LB      2362/LI      3507/STH     3514/STH     3515/LB
      3517/LI      3717-TEXTC
   TST3801         3519-LI
   TST3802         3504-LW      3537/BLE     3540/BNE     3543/B
   TST3803         3536-CI
   TST3804         3489/BLE     3494-LI
   TST3805         3499/BLE     3539-CW
   TST39           3556-LW      3705/DATA
   TST39CT         3563/STW     3582/LW      3590/SW      3627/MTW     3632-DATA
   TST39CTR        3623-BAL     3631/DATA
   TST39CTZ        3558/LW      3628-XPSD
   TST39MSG        3600/STH     3602/STB     3607/LI      3635-TEXT
   TST39MTW        3556/LW      3627-MTW
   TST39PT         3591/STW     3594/LW      3634-DATA
   TST39SAV        3583/STW     3589/LW      3633-DATA
   TST39Z          3628/XPSD    3630-DATA
   TST3902         3576-LW
   TST39021        3589-LW
   TST3903         3594-LW      3621/B
   TST3905         3573/B       3581/B       3588/B       3615-BAL
   T03M01          1537-LW      1597/BLE
   T03M02          1539-LI      1593/B
   T03M03          1547/B       1553-LW
   T03M04          1580/B       1585-BAL
   T03M05          1559/B       1566-LW
   T03M06          1572-BAL
   T03M07          1569/BE      1575-CW
   T03M08          1576/BNE     1581-BAL
   T03M09          1589-CW      1601/B       1609/B
   T03M10          1551/B       1563/B       1587/B       1591-BAL     1605/B
   T03M11          1590/BNE     1594-MTW
   T03M12          1579/B       1599-BAL
   T03M13          1583/B       1607-BAL
   T03M14          1603-BAL     1610/B
   T03SEQ1         1527-EQU     1546/DATA
   T03SEQ2         1528-:TSEQ   1558/DATA
   T03SEQ3         1529-EQU     1578/DATA
   T03SEQ4         1530-EQU     1582/DATA
   T03SEQ5         1531-:TSEQ   1608/DATA
   T03SEQ6         1532-EQU     1600/DATA
   T05M01          1620-HIO     1756/B       1774/B
   T05M02          1637/BLZ     1644-BAL
   T05M03          1635/B       1648-LW
   T05M04          1649/BNEZ    1659-HIO
   T05M05          1653/B       1660-BAL
   T05M06          1665/BNEZ    1672-BAL
   T05M07          1663/B       1676-LI
   T05M08          1691/BLZ     1698-BAL
   T05M09          1689/B       1702-LW
   T05M10          1703/BNEZ    1713-HIO
   T05M101         1707/B       1714-BAL
   T05M11          1717/B       1723-LI
   T05M12          1732/BLZ     1738-BAL
   T05M13          1730/B       1742-LW
   T05M14          1753-CW      1761/B       1775/B
   T05M15          1743/BNEZ    1757-HIO
   T05M151         1747/B       1758-BAL
   T05M16          1763/BCS     1770-BAL
   T05M17          1641/B       1646/B       1657/B       1669/B       1674/B       1695/B       1700/B
      1711/B       1721/B       1736/B       1740/B       1751/B       1767/B       1772-BAL
   T06M01          1793/B       1799-MTW
   T06M02          1800/BEZ     1806-BAL
   T06M03          1797/B       1804/B       1812-HIO
   T06M04          1808/BE      1816-BAL
   T06PSD          1826/LPSD    1828-DATA    1830/XPSD
   T06REC          1818-STW     1829/DATA
   T06SEQ1         1792/DATA    1831-:TSEQ
   T06SEQ2         1821/DATA    1832-:TSEQ
   T06XPSD         1780/LW      1830-XPSD
   T07M01          1854-LI      1933/B       1937/BLE
   T07M011         1866/B       1872-EQU
   T07M02          1884/B       1891-LI
   T07M03          1893/BE      1896/BG      1902-LW
   T07M04          1904/BLE     1913-BAL
   T07M05          1911/B       1920-STW
   T07M06          1907/B       1915/B       1921-BAL
   T07M07          1923/B       1929-CW
   T07M08          1930/BNE     1934-MTW
   T07M09          1870/B       1888/B       1927/B       1931-BAL
   T07SEQ1         1836-EQU     1922/DATA
   T07SEQ2         1837-:TSEQ   1906/DATA
   T07SEQ3         1838-:TSEQ   1914/DATA
   T07SEQ4         1839-EQU     1865/DATA
   T07SEQ5         1840-EQU     1883/DATA
   T08M01          1953-HIO     1984/B
   T08M02          1964/BLZ     1971-BAL
   T08M03          1962/B       1975-BAL
   T08M04          1968/B       1973/B       1982-BAL     1987/BE
   T08M05          1956-LW
   T08M06          1978/B       1986-CW
   T1M01           1407/B       1413-BAL
   T1M02           1416/B       1422-BAL
   T1M03           1425/B       1431-BAL
   T1M04           1411/B       1420/B       1429/B       1438-BAL
   T1TSEQ          1303-DATA
   T1TSEQ1         1361/DATA    1388-:TSEQ
   T11M01          2125-HIO     2139/B
   T11M02        2127.1-LI
   T11M03          2137-BAL
   T11SEQ1         2120-EQU     2132/DATA
   T11SEQ2         2121-EQU
   T13M01          2152-LI      2170/BL
   T13M02          2157-HIO     2166/B
   T13M03          2160/B       2167-MTW
   T14MSG          2195/STW     2197/DATA    2605-TEXTC
   T14M01          2179-LI      2206/BL
   T14M02          2189-HIO     2203/B
   T14M03          2192/B       2204-LW
   T15MSG          2217-DATA    2224/STB     2226/STW     2256/STB     2258/STW     3880/GEN
   T15MSGA         2212-RES     2235/STW     3890/GEN
   T15MSGB         2214-RES     2246/STW     3892/GEN
   T15M01          2229/B       2233-LI
   T15M03          2237-LI      2265/B
   T15M04          2239/B       2244-LI      2266/B
   T15M05          2250/B       2255-LI      2270/B
   T15M06          2230-BAL     2262/B
   T15M07          2248-LI      2269/B
   T15M08          2243/B       2263-BAL
   T15M09          2254/B       2267-BAL
   T17M01          2283-LB      2304/BL      2320/B       2324/BL      2333/B       2337/B
   T17M02          2306-LB      2322/BE      2325/BE
   T17M03          2305/BG      2321-CI
   T17M04          2303-CI
   T17M05          2295/B       2300-MTW     2338/B
   T17M06          2314/B       2319-XW      2342/B
   T17M07          2299/B       2335-BAL
   T17M08          2318/B       2339-BAL
   T17M09          2312-LI      2341/B
   T18M01          2349-LW      2384/BLE     2392/B       2396/B
   T18M02          2364-LI
   T18M03          2366/B       2371-LI      2395/B
   T18M04          2375/B       2381-MTW
   T18M05          2373-LI
   T18M06          2370/B       2379/B       2393-BAL
   T18M07          2358-BAL
   T19M01          2402/B       2409-LI
   T19M02          2414/B       2421-TDV
   T19M03          2406/B       2418/B       2432-BAL
   T19M04          2412-LI      2426/BIR
   T19SEQ1         2428/DATA    2436-:TSEQ
   T2CCOUNT        2635/STW     2642/MTW     2962-DATA
   T2EXEC          2641/BAL     2657-STW
   T2EXEC01        2672-BAL     2679/BLE
   T2EXRTN         2657/STW     2680/B*      2959-RES
   T2LCOUNT        2936/LW      2956-DATA
   T2MODIND        2918/LW      2969-DATA
   T2MODN          2671/STW     2673/LW      2676/MTW     2677/LW      2961-DATA
   T2MODPAT        2891/STB     2899/STB     2905/LB      2911/STB     2919/LH      2968-DATA
   T2MODRTN        2882/STW     2923/BGE*    2960-RES
   T2MODX          2674/LW      2950-DATA
   T2MOD0          2672/BAL     2687-STW     2950/DATA
   T2MOD1          2706-STW     2951/DATA
   T2MOD101        2711-LI      2752/BLZ
   T2MOD102        2718-BAL     2722/BIR
   T2MOD103        2724-LI      2742/B
   T2MOD104        2729-LB      2733/BIR
   T2MOD105        2731/BCS     2733-BIR
   T2MOD106        2735/BGEZ    2743-LI
   T2MOD2          2762-STW     2952/DATA
   T2MOD201        2775-LI      2794/BLZ     2801/B
   T2MOD3          2808-STW     2953/DATA
   T2MOD301        2821-LI      2849/B
   T2MOD302        2824-LI      2836/B
   T2MOD303        2834/BGE     2838-LI      2842/BLZ
   T2MOD4          2858-STW     2954/DATA
   T2MOD401        2864-LI      2871/BLZ     2876/BGZ     2880/B
   T2MOD402        2866/BAL     2882-STW
   T2MOD403        2884/BE      2897-LI
   T2MOD404        2895/B       2904-LI      2908/BIR     2912/B
   T2MOD405        2907/BCR     2910-BAL
   T2MOD406        2909/B       2913-LI
   T2MOD407        2917-LW      2924/BIR     2928/B
   T2MOD408        2916/BLE     2925-LH
   T2MOD409        2890-LB      2894/BIR
   T2MOD411        2898-BAL     2902/BL
   T2MOD5          2935-STW     2955/DATA
   T2MOD501        2937-BAL     2948/BDR
   T2M01           1457/BCR     1464-BAL
   T2M02           1454/B       1468-LI
   T2M03           1476/BCR     1484-BAL
   T2M04           1491/B       1497-LB
   T2M05           1499/BE      1505-MTW     1510/BCS     1512/BCS     1517/B
   T2M06           1461/B       1466/B       1481/B       1486/B       1495/B       1503/B       1514-BAL
   T2M07           1473/B       1488-BAL
   T20M01          2443-LW      2465/B       2469/BL      2473/BLE
   T20M02          2453/BEZ     2466-MTW     2471/BLE
   T22MSG          2480/STB     2482/STW     2557/STB     2559/STW     2564-DATA    3894/GEN
   T22M01          2502-LW
   T22M03          2508/B       2513-LI
   T22M04          2517/B       2522-LI      2551/B       2554/B
   T22M05          2529/B       2534-LI
   T22M06          2538/B       2543-MTW     2555/B
   T22M07          2485/B       2489-LI      2546/BLE
   T22M08          2504-LI      2550/B
   T22M09          2486-BAL     2563/B
   T22M10          2512/B       2521/B       2548-BAL
   T22M11          2533/B       2542/B       2552-BAL
   T22M12          2547/B       2556-LI
   T22SEQ1         2516/DATA    2566-:TSEQ
   T22SEQ2         2537/DATA    2567-:TSEQ
   T3LINE1         3370/STW     3378/MTW     3382/STW     3388/MTW     3678-DATA
   T9M01           2000-HIO     2057/B
   T9M011          2008/B       2014-LW
   T9M02           2024/BCR     2031-CW
   T9M03           2032/BCR     2039-BAL
   T9M04           2021/B       2043-LB
   T9M05           2044/BEZ     2050-CI
   T9M06           2013/B       2029/B       2036/B       2041/B       2048/B       2055-BAL
   T9M07           2051/BE      2058-HIO     2112/B
   T9M08           2079/BCR     2086-CW
   T9M09           2087/BCS     2094-BAL
   T9M10           2076/B       2098-CB
   T9M11           2099/BE      2105-CI
   T9M12           2069/B       2084/B       2091/B       2096/B       2103/B       2110-BAL
   T9SEQ1          1992-EQU     2007/DATA
   UE              4863/DATA    4937-TEXT
   UEINT           4869/DATA    4938-TEXT
   UNAVAIL         4863/DATA    4863/DATA    4939-TEXT
   USERPROG        5406-END
   VERSION          1.2-EQU        4/EQU
   WAITMSG1        4684/WAITPROC             4691/WAITPROC             5401-TEXTC
   WAITPROC         841-CNAME
   ZBCINT          4869/DATA    4940-TEXT
   :AIO            1431/BAL     1650/BAL     1704/BAL     1744/BAL     1975/BAL     4121-AIO     5216/BAL
   :AIO1           4124-LI
   :BCDC            960-EQU
   :BINC            962-EQU     4261/BAL*    4505/BAL*    4832/BAL*    4834/BAL*    4839/BAL*    4841/BAL*
   :BINCOT1        4264-LI
   :BINCOT2        4266-SCS     4271/BGEZ
   :BINCOVT        4236/BAL     4241/BAL     4259-STD
   :BINEXIT        4263/B       4272-LD
   :BINRTN         4260/STW     4273/B*      4316-DATA
   :BIN0405        4259/STD     4272/LD      4315-DATA
   :CCERMA         4284/DATA    4299-TEXTC
   :CCERMB         4285/DATA    4300-TEXTC
   :CCERMC         4286/DATA    4301-TEXTC
   :CCERMD         4287/DATA    4302-TEXTC
   :CCERME         4288/DATA    4303-TEXTC
   :CCERMF         4289/DATA    4304-TEXTC
   :CCERM1         4275/DATA    4290-TEXTC
   :CCERM2         4276/DATA    4291-TEXTC
   :CCERM3         4277/DATA    4292-TEXTC
   :CCERM4         4278/DATA    4293-TEXTC
   :CCERM5         4279/DATA    4294-TEXTC
   :CCERM6         4280/DATA    4295-TEXTC
   :CCERM7         4281/DATA    4296-TEXTC
   :CCERM8         4282/DATA    4297-TEXTC
   :CCERM9         4283/DATA    4298-TEXTC
   :CCERR1         4161/BCR     4167-LW
   :CCERR2         4162/BCR     4175-LW
   :CCERR3         4163/B       4199-LW
   :CCPRINT        4200/STW     4205/STW*    4207-DATA
   :CCTEST         4139/BNE     4149-CW
   :CDB            1070/GEN     1070/GEN     1088-EQU     1110/LH      1118/LW    1129.3/LH    1129.8/LW
   1129.21/LW      1130/LH    1245.2/LH    1873.2/LH      1874/MTW   2426.2/LH
   :CDBEND         1070/GEN     1093-EQU
   :CDBM           1070/GEN     1079-EQU
   :CDBMEND        1070/GEN     1086-EQU
   :CDT            1004/DATA    1005/DATA    1069-EQU
   :CDTEND         1005/DATA    1071-EQU
   :COMBFRA        4423/LW      4473/LW      4521-DATA
   :COMBFRB        4424/LW      4479/LW      4522-DATA
   :COMERM1        4470/STW     4472/DATA    4525-TEXTC
   :COMERM2        4476/STH     4478/STH     4481/STW     4483/DATA    4526-TEXTC
   :COMERM3        4485/DATA    4527-TEXTC
   :COMERM4        4490/STW     4492/LI      4495/DATA    4529-TEXT
   :COMERM5        4497/LI      4500/DATA    4533-TEXT
   :COMERRT        4422/STD     4433/LW      4458/MTW     4461/LW      4518-DATA
   :COMFLAG        4459/LW      4523-DATA
   :COMPARE        4419-LCI
   :COMPLIM        4036/STW     4462/CW      4524-DATA
   :COMTEM1        4420/STM     4435/MTW     4437/LM      4515-RES
   :COMTEM2        4427/STD     4429/LW*     4430/CW*     4442/LW*     4456/CW*     4491/LW*     4496/LW*
      4517-DATA
   :COMTEM3        4464/LW      4467/MTW     4519-DATA
   :COMWCNT        4425/AW      4426/AW      4428/LCW     4487/LW      4520-DATA
   :COM1           4429-LW      4432/BIR     4457/BE      4460/BCS     4463/BG      4501/B
   :COM2           4431/BCS     4440-CW
   :COM21          4441/BNE     4458-MTW
   :COM3           4465/BCS     4487-LW
   :COM4           4493/BAL     4498/BAL     4503-LI      4512/BCS
   :CURBCNT         966-EQU
   :DAERM          4155/STW     4190/STW     4192/DATA    4204/LW      4305-TEXTC
   :DATA           1050/:PROCDIC             3934-STW
   :DATAP1         3344/LW      3985/STM     4003-DATA
   :DATAP2         3356/LW      4004-DATA
   :DATAP3         3363/CW      4005-DATA
   :DATAP4         3358/LB      4006-DATA
   :DATA1          3939-LW      3949/B       3956/B       3965/BL      3970/BGE     3973/BL      3978/BGE
      3982/BNE
   :DATA2          3945/BGE     3964-CI
   :DATA3          3963/B       3971/B       3979/B       3983-LCI
   :DATA4          3954/BLE     3957-LW
   :DECC            963-EQU     1379/BAL*    2194/BAL*    2287/BAL*    2358/BAL*    3230/BAL*    3245/BAL*
      3248/BAL*    3433/BAL*    3513/BAL*    3599/BAL*    5382/BAL*
   :DELAY          1555/BAL     1629/BAL     1683/BAL     1789/BAL     1851/BAL     1879/BAL     1957/BAL
      2016/BAL     2129/BAL     4559-STW     5179/BAL
   :DELAYAE        3195/BAL     3564/BAL     4563/BAL     4574-STW
   :DELAYD         1210/BAL     3222/BAL     3267/BAL     3592/BAL     3623/BAL     4566/BAL     4570/BAL
      4579-STW
   :DELAYTO        4587-DATA    4589/XPSD
   :DELEXIT        4567-LW      4572/B
   :DELMTW         1344/LW      4590-MTW     5164/LW
   :DELSAVE        4559/STW     4567/LW      4571/MTW     4574/STW     4577/B*      4579/STW     4582/B*
      4585-DATA
   :DELTIME        4562/STW     4584-DATA    4590/MTW
   :DELTO          4570-BAL     4588/DATA
   :DELXPSD        1346/LW      4589-XPSD    5166/LW
   :DEVADDR        1123/STW     1212/HIO*    1402/HIO*    1455/HIO*    1477/HIO*    1518/HIO*    1541/HIO*
      1543/SIO*    1620/HIO*    1659/HIO*    1713/HIO*    1724/SIO*    1757/HIO*    1812/HIO*    1860/HIO*
      1862/SIO*    1953/HIO*    2000/HIO*    2004/SIO*    2025/HIO*    2058/HIO*    2080/HIO*    2125/HIO*
      2157/HIO*    2189/HIO*    2421/TDV*    3201/TIO*    3207/SIO*    3214/TIO*    3257/SIO*    3259/TIO*
      3570/TIO*    3578/SIO*    3585/TIO*    3610/SIO*    3612/TIO*    4089/SIO*    4097/TIO*    4105/HIO*
      4113/TDV*    4144/CW      4153/LW      4187/CW      4387-DATA    4468/LW      4826/LW      5386/LW
   :DEVADER        4160/BCR     4171/B       4183-CI
   :DEVEXIT        4179/B       4193-LD      4208/B       4218/BE      4255/B
   :DIC            1001/DATA    1002/DATA    1045-EQU     1328/DATA    2630/DATA    3001/DATA    3167/DATA
      3394/DATA    3502/DATA    3942/DATA    4027/DATA
   :DICEND         1002/DATA    1053-EQU     1069/EQU
   :DICILEN         984-EQU
   :DICINDX         983-EQU
   :DTLFLAG         979-EQU
   :DUMP            958-EQU
   :ERRADR1        4167/LW      4275-DATA
   :ERRADR2        4175/LW      4280-DATA
   :ERRADR3        4199/LW      4285-DATA
   :ERRBITS        4730/STW     4759/LW      4876-DATA
   :ERROR          1409/BAL*    1418/BAL*    1427/BAL*    1436/BAL*    1459/BAL*    1464/BAL*    1479/BAL*
      1484/BAL*    1493/BAL*    1501/BAL*    1549/BAL*    1561/BAL*    1572/BAL*    1585/BAL*    1603/BAL*
      1639/BAL*    1644/BAL*    1655/BAL*    1667/BAL*    1672/BAL*    1693/BAL*    1698/BAL*    1709/BAL*
      1719/BAL*    1734/BAL*    1738/BAL*    1749/BAL*    1765/BAL*    1770/BAL*    1795/BAL*    1802/BAL*
      1810/BAL*    1824/BAL*    1868/BAL*    1886/BAL*    1899/BAL*    1909/BAL*    1917/BAL*    1925/BAL*
      1966/BAL*    1971/BAL*    1980/BAL*    2010/BAL*    2027/BAL*    2034/BAL*    2039/BAL*    2046/BAL*
      2053/BAL*    2067/BAL*    2082/BAL*    2089/BAL*    2094/BAL*    2101/BAL*    2108/BAL*    2135/BAL*
      2162/BAL*    2199/BAL*    2241/BAL*    2252/BAL*    2297/BAL*    2316/BAL*    2368/BAL*    2377/BAL*
      2404/BAL*    2416/BAL*    2430/BAL*    2461/BAL*    2510/BAL*    2519/BAL*    2531/BAL*    2540/BAL*
      5355-DATA
   :ERRORT         1360/BAL     1545/BAL     1557/BAL     1577/BAL     1581/BAL     1599/BAL     1607/BAL
      1791/BAL     1820/BAL     1864/BAL     1882/BAL     1905/BAL     1913/BAL     1921/BAL     2006/BAL
      2131/BAL     2427/BAL     2515/BAL     2536/BAL     4669-LCI
   :ERRORX         5347/STW     5352/LW      5353/LW      5356-DATA
   :ERRTFG1        4674/STW     4877-DATA
   :ERRTFLG        4673/STW     4775/MTW     4820/MTW     4856/MTW     4862-DATA
   :ERRTMG1        4757/STW     4762/STD     4764/STB     4767/STB     4771/STB     4773/DATA    4880-TEXTC
   :ERRTMP1        4670/STM     4699/STD     4709/STD     4721/STD     4819/LM      4860-RES
   :ERRTMP2        4728/STW     4740/MTW     4744/MTW     4765/LW      4768/LW      4878-DATA
   :ERRTMP3        4679/STW     4748/LW      4753/LW      4755/LW      4861-DATA
   :ERRTM1         4825/STW     4828/STW     4830/DATA    4943-TEXTC
   :ERRTM11        4840/STW     4842/STW     4850/STB     4855/DATA    4945-TEXTC
   :ERRTM2         4833/STW     4835/STW     4837/DATA    4944-TEXTC
   :ERRTM3         4786/STW     4788/DATA    4946-TEXTC
   :ERRTM4         4796/DATA    4947-TEXTC
   :ERRTTB         4758/LW      4874-DATA
   :ERRTTBA        4863-DATA    4874/DATA    4874/DATA    4874/DATA
   :ERRTTBB        4865-DATA    4874/DATA
   :ERRTTBC        4871-DATA    4874/DATA
   :ERRTTBD        4867-DATA    4875/DATA
   :ERRTTBE        4869-DATA    4875/DATA
   :ERRTYPE        4756/LW      4824/LW      4941-DATA
   :ERRT0          4675-LB      4751/B
   :ERRT1          4681/BCS     4687-LW      4701/B       4711/B       4714/B
   :ERRT10         4698/B       4708/B       4720/B       4775-MTW     4789/B       4797/B
   :ERRT11         4683/BCS     4778-MTW
   :ERRT12         4782/BE      4790-SCD
   :ERRT13         4676/BCR     4799-LI      4817/BIR
   :ERRT13A        4803/BCS     4808-LI
   :ERRT14         4801/BCR     4807/B       4817-BIR     4857/B
   :ERRT15         4816/BCS     4824-LW
   :ERRT2          4690/BCS     4693-CI
   :ERRT3          4694/BCS     4703-CI
   :ERRT4          4704/BCS     4713-BAL
   :ERRT5          4713/BAL     4716-STW     4780/BAL
   :ERRT5X         4716/STW     4723/B*      4724-DATA
   :ERRT6          4688/BCS     4726-LI
   :ERRT7          4739/BCS     4744-MTW
   :ERRT8          4741/BCR     4746/B       4748-LW
   :ERRT8A         4750-MTW     4776/B       4784/BEZ     4794/BE
   :ERRT9          4742/B       4745/BCR     4753-LW
   :ERRT9A         4755-LW
   :ERRT9D1        4756-LW
   :EXPOBS         4247/LW      4308-TEXT
   :HEXC            964-EQU     2284/BAL*    2351/BAL*    3430/BAL*    3506/BAL*    4154/BAL*    4189/BAL*
      4469/BAL*    4474/BAL*    4480/BAL*    4489/BAL*    4785/BAL*    4827/BAL*    5210/BAL*    5316/BAL*
      5330/BAL*    5332/BAL*    5336/BAL*    5338/BAL*    5375/BAL*    5387/BAL*
   :HIO            1404/BAL     4105-HIO     4367/BAL     4695/BAL
   :HIO1           4108-LI
   :INITIAL        1007/DATA    1107-STW
   :INTAE          1806/BAL     5061-STW     5189/BAL
   :INTD           1209/BAL     1349/BAL     1782/BAL     1816/BAL     5071-STW     5196/BAL     5203/BAL
   :INTRECF        1799/MTW     1807/CW      1818/STW     4564/LW      4591-DATA    5063/STW     5075/STW
      5192/MTW     5231/STW
   :INTSAV1        5061/STW     5066/B*      5078-DATA
   :INTSAV2        5071/STW     5076/B*      5079-DATA
   :IOERM1         4378/WAITPROC             4388-TEXTC
   :IOERM2         4382/DATA    4389-TEXTC
   :IOERR1         4354/B       4367-BAL
   :IOERR1A        4378-WAITPROC             4383/B
   :IOERR2         4356/BCR     4381-BAL
   :IOEXEC         1625/BAL     1679/BAL     1786/BAL     1955/BAL     2127/BAL     3199/BAL     3568/BAL
      4347-STW     5188/BAL
   :IOEXEC1        4350-BAL     4361/B       4370/B       4376/B       4379/B
   :IORTN          4132/STW     4133/LW*     4134/LW*     4140/CW*     4141/BAZ*    4145/BE*     4149/CW*
      4150/BANZ*   4195/B*      4212/LW*     4213/LW*     4228/LW*     4229/LW*     4317-DATA
   :IOSAVE         4347/STW     4348/STW     4349/STD     4362/LW      4363/LW      4364/LD      4386-RES
   :K              5131/AW      5140-DATA
   :KSRADR          975-EQU
   :LIMIT          1051/:PROCDIC             4020-LW
   :LIMITP1        4047/STM     4050-DATA    5171/CW
   :LIMITP2        4051-DATA    5174/SW      5178/AW
   :LIMITP3        4052-DATA    5173/LW
   :LIM0           4026-BAL     4032/B       4042/B
   :LIM1           4022/BE      4029-LW
   :LIM2           4031-STW     4045/BG
   :LIM3           4024/BE      4038-LW
   :LOADIN          974-EQU
   :MACHINE         976-EQU
   :MEMLAST         986-EQU
   :MEMSIZE         985-EQU
   :MERROR          967-EQU     5354/B*
   :MLT             843/BAL*     952-EQU      954/EQU      955/EQU      956/EQU      957/EQU      958/EQU
       959/EQU      960/EQU      961/EQU      962/EQU      963/EQU      964/EQU      965/EQU      966/EQU
       967/EQU      968/EQU      969/EQU      970/EQU      971/EQU      972/EQU      973/EQU      974/EQU
       975/EQU      976/EQU      977/EQU      978/EQU      979/EQU      980/EQU      981/EQU      982/EQU
       983/EQU      984/EQU      985/EQU      986/EQU      987/EQU      988/EQU      989/EQU      990/EQU
   :MLTEND          990-EQU
   :MONIOBF         987-EQU
   :MONITOR         961-EQU     1237/B*      1329/B*      1363/B*      1375/B*      1383/B*      2631/B*
      2650/B*      3002/B*      3050/B*      3168/B*      3264/B*      3270/B*      3349/B*      3395/B*
      3503/B*      3617/B*      3626/B*      3665/B*      3943/B*      3986/B*      4028/B*      4037/B*
      4048/B*
   :MONPBF          988-EQU
   :MONWAIT         970-EQU
   :MRECOVR         971-EQU
   :MSENSE          969-EQU     5361/B*
   :MSGIN           973-EQU
   :MSGOUT          972-EQU
   :M1             5121/STW     5126/MTW     5132/EOR     5137-DATA
   :M2             5122/STW     5128/MTW     5133/EOR     5138-DATA
   :PITEND         1016-EQU     1017/DO
   :PITLAST        1015-EQU     1017/DO
   :PIT0            999-DATA    1016/EQU
   :PIT1           1000-DATA
   :PIT10          1009-DATA    1113/STW     1326/STW     1335/STW     2628/STW     2999/STW     3165/STW
      3392/STW     3500/STW     3940/STW     4025/STW     4031/STW     4041/STW
   :PIT11          1010-DATA
   :PIT12          1011-DATA    1115/STW     1125/STW
   :PIT15          1014-DATA    1355/STW     2638/STW     3022/STW
   :PIT2           1001-DATA
   :PIT3           1002-DATA
   :PIT4           1003-DATA
   :PIT5           1004-DATA
   :PIT6           1005-DATA
   :PIT7           1006-DATA
   :PIT8           1007-DATA
   :PIT9           1008-DATA
   :PREPORT         980-EQU     1327/BAL*    2629/BAL*    3000/BAL*    3166/BAL*    3393/BAL*    3501/BAL*
      3941/BAL*    4026/BAL*
   :PRINT           911/BAL*     968-EQU     1381/BAL*    2196/BAL*    2230/BAL*    2486/BAL*    3262/BAL*
      3268/BAL*    3347/BAL*    3615/BAL*    3624/BAL*    4169/BAL*    4177/BAL*    4191/BAL*    4206/BAL*
      4223/BAL*    4251/BAL*    4381/BAL*    4471/BAL*    4482/BAL*    4484/BAL*    4494/BAL*    4499/BAL*
      4772/BAL*    4787/BAL*    4795/BAL*    4829/BAL*    4836/BAL*    4854/BAL*    5197/BAL*    5212/BAL*
      5318/BAL*    5340/BAL*    5377/BAL*    5384/BAL*    5389/BAL*
   :PROCDIC         852-CNAME
   :PROGID         1000/DATA    1098-EQU
   :PSW             959-EQU     3011/CB      3156/LB      3365/LB      3375/LB      3491/LB      3531/LB
      3935/LB
   :P1              954-EQU     1227/STW     1232/STW     1322/LW      2625/LW      2633/LW      2996/LW
      3937/CW      3944/CW      3967/CW      3975/CW      3984/LM      4020/LW
   :P2              955-EQU     1229/STW     1330/CW      1332/LW      1339/CW      3013/LW      3159/LW
      3490/LW      3946/LW      3957/LW      3959/STW     4033/LW      4038/LW
   :P3              956-EQU     3369/LW      3539/CW      3950/CW      3952/LW      3960/LW      3962/STW
      4029/LW      4039/CW      4043/LW
   :P4              957-EQU     3380/LW
   :QSENSE          981-EQU
   :RANDOM         5124-STW
   :RANDOMX        2688/BAL     2887/BAL     5126-MTW     5145/BAL     5168/BAL
   :RANDOMY        5121-STW
   :RECOVER        1003/DATA    1109/BAL     1194-STW
   :REG0405        4151/STD     4193/LD      4312-DATA
   :REG0607        4225/STD     4254/LD      4313-DATA
   :REG1213        4152/STD     4194/LD      4314-DATA
   :RELBIAS         977-EQU
   :REMOTE          989-EQU     1108/BAL
   :RLOADER         978-EQU
   :SAVCOM1        4792/AW      5056-DATA
   :SAVEAIO        5008-STD
   :SAVEALL        4979/BAL     4981/BAL     4993/BAL     4998/BAL     5004/BAL     5011/BAL     5013/BAL
      5021/BAL     5028/BAL     5032-STW
   :SAVECLR        1211/BAL     1350/BAL     4967-STD
   :SAVEHIO        4700/BAL     4991-STD
   :SAVESIO        1544/BAL     1863/BAL     2005/BAL     5002-STD
   :SAVESSA        5018-STD
   :SAVESSB        5025-STD
   :SAVETAB        4687/LW      4749/STW     4754/STW     4778/MTW     4783/LH      4793/CH      4800/LW
      4806/STW     4810/STW     4970/STH     4978/LI      4980/LI      4983/STH     4985/STB     4986/STH
      4987/STB     4992/LI      4997/LI      5003/LI      5010/LI      5012/LI      5020/LI      5027/LI
      5042-EQU
   :SAVETDV        4710/BAL     4996-STD
   :SAVETIO        4722/BAL     4976-STD
   :SAVETMP        4967/STD     4973/LD      4976/STD     4977/STW     4982/LW      4988/LD      4991/STD
      4994/LD      4996/STD     4999/LD      5002/STD     5005/LD      5008/STD     5009/STW     5014/LW
      5015/LD      5018/STD     5022/LD      5025/STD     5029/LD      5032/STW     5039/B*      5055-DATA
   :SEED           5124/STW     5129/LW      5134/STW     5139-DATA
   :SENSE       1129.38/BAL*    1234/BAL*    1372/BAL*    1438/BAL*    1514/BAL*    1591/BAL*    1772/BAL*
      1813/BAL*    1931/BAL*    1982/BAL*    2055/BAL*    2110/BAL*    2137/BAL*    2164/BAL*    2201/BAL*
      2263/BAL*    2267/BAL*    2335/BAL*    2339/BAL*    2393/BAL*    2432/BAL*    2463/BAL*    2548/BAL*
      2552/BAL*    2647/BAL*    3047/BAL*    3662/BAL*    5362-DATA
   :SENSEX         5357/STW     5360/LW      5363-DATA
   :SIO            1451/BAL     2062/BAL     2505/BAL     2526/BAL     4089-SIO     4357/BAL
   :SIO1           4092-LI
   :STATEM1        4156/STW     4220/XW      4222/STB     4224/DATA    4306-TEXTC
   :STATEM2        4238/STH     4242/STB     4248/XW      4250/STB     4252/DATA    4307-TEXTC
   :STATERR        4184/BNE     4188/BE      4212-LW
   :STATER1        4233-LW      4253/BDR
   :STATEST        4093/B       4101/B       4109/B       4117/B       4125/B       4131-STW
   :STATTYP        4219/LW      4310-TEXT
   :STATUSCC       1456/LCF     1474/LB      1497/LB      2043/LB      2098/CB      4090/STW     4091/STCF
      4098/STW     4099/STCF    4106/STW     4107/STCF    4114/STW     4115/STCF    4122/STW     4123/STCF
      4137/AND     4157/LCF     4216/AND     4233/LW      4319-DATA
   :TDV            1422/BAL     1488/BAL     4113-TDV     4705/BAL     5226/BAL
   :TDV1           4116-LI
   :TIO            1413/BAL     1470/BAL     1632/BAL     1660/BAL     1686/BAL     1714/BAL     1727/BAL
      1758/BAL     1959/BAL     2018/BAL     2073/BAL     4097-TIO     4350/BAL     4373/BAL     4717/BAL
      5221/BAL
   :TIO1           4100-LI
   :TSEQ            814-CNAME
   :TSEQEQU         827-CNAME
   :TYPE           4131/STW     4158/LW      4318-DATA
   :WAIT            982-EQU
   :1BYTEIN         965-EQU
